企業(yè)合同管理系統(tǒng)的設計與實現(xiàn)-文庫吧資料
2025-05-16 14:18本頁面
【正文】 = True Then = adCmdText = select * from 客戶信息表 where 客戶姓名 =39。 Trim() amp。 圖 客戶信息查詢 界面 代碼 如下 ： Private Sub Command1_Click() = adCmdText = select * from 客戶信息表 Set = Adodc1 End Sub 濰坊學院本科畢業(yè)論文 14 Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() If = True Then = adCmdText = select * from 客戶信息表 where 編號 =39。 圖 客戶添加界面 代碼如下： Private Sub Command1_Click() On Error Resume Next If = 添加 Then = 確定 Else = 添加 MsgBox 客戶信息添加完成 End If End Sub Private Sub Command2_Click() Unload Me End Sub 本模塊可以選擇相應客戶的信息進行修改刪除，點擊 “ 修改 ” 、 “ 刪除 ” 按鈕分別完成客戶信息修改、刪除，點擊 “ 退出 ” 按鈕、返回主控界面，具體界面如圖 所示 。 Set = Adodc1 End If End Sub 濰坊學院本科畢業(yè)論文 11 客戶 信息 管理 本模塊提供文本框 輸 入客戶相關基本信息，單擊 “ 添加 ” 按鈕完成客戶信息的保存，單擊 “ 退出 ” 按鈕返回主菜單。 Trim() amp。 Set = Adodc1 End If If = True Then = adCmdText = select * from 員工信息表 where 員工姓名 =39。 Trim() amp。 濰坊學院本科畢業(yè)論文 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 員工編號 =39。 圖 員工信息添加 界面 代碼 如下 ： Private Sub Command1_Click() On Error Resume Next If = 添加 Then = 確定 濰坊學院本科畢業(yè)論文 8 Else = 添加 MsgBox 員工信息添加完成 End If End Sub Private Sub Command2_Click() Unload Me End Sub 本模塊可以選擇相應員工的信息進行修改刪除，點擊修改、刪除按鈕 分別 完成員工信息修改 、刪除 ， 點擊退出按鈕、返回主控界面，具體界面如圖 所示 。 濰坊學院本科畢業(yè)論文 6 圖 系統(tǒng)主 界面 代碼 如下： 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() 濰坊學院本科畢業(yè)論文 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 員工信息 管理 本模塊提供文本框 輸 入員工相關 基本信息，單擊 “ 添加 ” 按鈕完成員工信息的保存，單擊 “ 退出 ” 按鈕返回主菜單。!) = = End If End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Timer1_Timer() = + 36 If Then = End If End Sub 主 模塊 本模塊功能是 在啟動窗體的同時，進行數(shù)據(jù)庫的連接操作。200。202。208。214。 圖 系統(tǒng) 登陸 界面 代碼 如下 ： Private Sub Command1_Click(Index As Integer) If = 11 And = 11 Then Unload Me Else response = MsgBox(199。如表 33所示： 表 33 合同 信息表 中文字段名 數(shù)據(jù)類型
環(huán)評公示相關推薦
鄂ICP備17016276號-1