正文內容

企業合同管理系統的設計與實現(編輯修改稿)

2026-06-13 14:18 本頁面

　

【文章內容簡介】 b Label3_Click() Unload Me End Sub Private Sub Label4_Click() Unload Me End Sub Private Sub Timer1_Timer() = + 30 If Then = End If End Sub 濰坊學院本科畢業論文 5 登陸模塊本模塊提供文本框輸入用戶信息，點擊 “ 確定 ” 按鈕完成用戶登錄，點擊 “ 退出 ”按鈕退出系統，界面如圖所示。圖系統登陸界面代碼如下： Private Sub Command1_Click(Index As Integer) If = 11 And = 11 Then Unload Me Else response = MsgBox(199。235。214。216。208。194。202。228。200。235。!) = = End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Timer1_Timer() = + 36 If Then = End If End Sub 主模塊本模塊功能是在啟動窗體的同時，進行數據庫的連接操作。主窗體菜單設計的效果圖如圖所示。濰坊學院本科畢業論文 6 圖系統主界面代碼如下： Private Sub ADC_Click() End Sub Private Sub add_Click() End Sub Private Sub addc_Click() End Sub Private Sub CK_Click() End Sub Private Sub CS_Click() End Sub Private Sub EXIT_Click() Unload Me End Sub Private Sub KC_Click() End Sub Private Sub mend_Click() 濰坊學院本科畢業論文 7 End Sub Private Sub mendc_Click() End Sub Private Sub MM_Click() End Sub Private Sub SC_Click() End Sub Private Sub search_Click() End Sub 員工信息管理本模塊提供文本框輸入員工相關基本信息，單擊 “ 添加 ” 按鈕完成員工信息的保存，單擊 “ 退出 ” 按鈕返回主菜單。具體設計效果圖如圖所示。圖員工信息添加界面代碼如下： Private Sub Command1_Click() On Error Resume Next If = 添加 Then = 確定濰坊學院本科畢業論文 8 Else = 添加 MsgBox 員工信息添加完成 End If End Sub Private Sub Command2_Click() Unload Me End Sub 本模塊可以選擇相應員工的信息進行修改刪除，點擊修改、刪除按鈕分別完成員工信息修改、刪除，點擊退出按鈕、返回主控界面，具體界面如圖所示。圖員工信息修改刪除界面代碼如下： Private Sub Command1_Click() On Error Resume Next If = 修改 Then = 確定 Else = 修改 End If End Sub 濰坊學院本科畢業論文 9 Private Sub Command2_Click() Dim sak As Integer On Error Resume Next ask = MsgBox(刪除否 ?, vbYesNo) If ask = 6 Then If Then End If End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command4_Click() = False End Sub Private Sub Command5_Click() If Then = True End Sub Private Sub Command6_Click() If Then = True End Sub Private Sub Command7_Click() = False End Sub 查詢本模塊提供了兩種查詢方式：編號查詢、姓名查詢，也可以點擊查詢全部按鈕查詢所有員工信息，具體界面如圖所示。濰坊學院本科畢業論文 10 圖員工信息查詢界面代碼如下： Private Sub Command1_Click() = adCmdText = select * from 員工信息表 Set = Adodc1 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command4_Click() If = True Then = adCmdText = select * from 員工信息表 where 員工編

點擊復制文檔內容

環評公示相關推薦

企業合同管理系統的設計與實現(編輯修改稿)

企業庫存管理系統的設計與實現論文-資料下載頁

企業人事管理系統的設計與實現論文-資料下載頁

企業兼職員工管理系統的設計與實現-資料下載頁

企業考勤管理系統的設計與實現word格式-資料下載頁

vc的企業人事管理系統設計與實現-資料下載頁

企業生產計劃管理系統的設計與實現-資料下載頁

企業信息管理系統的設計與實現-資料下載頁

基于vc的企業培訓管理系統的設計與實現-資料下載頁

企業人事管理系統設計與實現-資料下載頁

企業管理系統設計與實現-資料下載頁

企業管理系統設計與實現-資料下載頁

企業倉庫管理系統設計與實現論文-資料下載頁

jsp企業員工管理系統設計與實現-資料下載頁

管理系統的設計與實現-資料下載頁

畢業設計企業人事管理系統的設計與實現-資料下載頁

企業合同管理系統的設計與實現-wenkub

企業合同管理系統的設計與實現(已修改)

企業合同管理系統的設計與實現(編輯修改稿)

企業合同管理系統的設計與實現-wenkub.com

企業合同管理系統的設計與實現(已改無錯字)