企業(yè)合同管理系統(tǒng)的設(shè)計與實(shí)現(xiàn)-閱讀頁
2025-05-28 14:18本頁面
【正文】 d Sub Private Sub Label4_Click() Unload Me End Sub Private Sub Timer1_Timer() = + 30 If Then = End If End Sub 濰坊學(xué)院本科畢業(yè)論文 5 登陸 模塊 本模塊提供文本框輸入用戶信息，點(diǎn)擊 “ 確定 ” 按鈕完成用戶登錄，點(diǎn)擊 “ 退出 ”按鈕退出系統(tǒng)，界面如圖 所示。235。216。194。228。235。主窗體菜單設(shè)計的效果圖如圖 所示。具體設(shè)計效果圖如圖 所示。 圖 員工信息修改刪除界面 代碼 如下 ： Private Sub Command1_Click() On Error Resume Next If = 修改 Then = 確定 Else = 修改 End If End Sub 濰坊學(xué)院本科畢業(yè)論文 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 查詢 本模塊提供了兩種查詢方式：編號查詢 、 姓名查詢，也可以點(diǎn)擊查詢?nèi)堪粹o查詢所有員工信息，具體界面如圖 所示。 amp。 39。 amp。 39。具體設(shè)計效果圖如圖 所示。 濰坊學(xué)院本科畢業(yè)論文 12 圖 客戶信息修改刪除界面 代碼 如下： Private Sub Command1_Click() = False End Sub Private Sub Command2_Click() On Error Resume Next If = 修改 Then = 確定 Else = 修改 End If End Sub Private Sub Command3_Click() Dim sak As Integer On Error Resume Next ask = MsgBox(刪除否 ?, vbYesNo) If ask = 6 Then If Then End If End Sub Private Sub Command4_Click() Unload Me 濰坊學(xué)院本科畢業(yè)論文 13 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 本模塊提供了兩種查詢方式：編號查詢 、 姓名查詢，也可以點(diǎn)擊 “ 查詢?nèi)?” 按鈕查詢所有客戶信息，具體界面如圖 所示。 amp。 39。 amp。 39。具體設(shè)計效果圖如圖 所示。 點(diǎn)擊 “ 修改 ” 、 “ 刪除 ” 按鈕分別完成合同信息修改、刪除，點(diǎn)擊 “ 退出 ” 按鈕、返回主控界面，具體界面如圖 所示 。 濰坊學(xué)院本科畢業(yè)論文 17 合同查詢界面 代碼如下： Private Sub Command1_Click() = adCmdText = select * from 合同信息表 Set = Adodc1 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Command3_Click() If = True Then = adCmdText = select * from 合同信息表 where 合同編號 =39。 Trim() amp。 Set = Adodc1 End If If = True Then = adCmdText = select * from 合同信息表 where 簽約人 =39。 Trim() amp。 Set = Adodc1 End If End Sub 濰坊學(xué)院本科畢業(yè)論文 18 結(jié)束語 通過 畢業(yè)設(shè)計 ， 我 進(jìn)一步理解了軟件開發(fā) 的 思想和 過程 。在這段時間里，我學(xué)到了很多知識也有很多感受，從對 合同 信息管理的模糊認(rèn)識開始，查看相關(guān)的資料和書籍，讓自己頭腦中模糊的概念逐漸清晰，使自己非常稚嫩的作品一步步完善起來。 本系統(tǒng)基本上包含了合同管理中常用的功能，基本能夠滿足日常的工作需求。 （ 2）完善用戶管理和權(quán)限設(shè)置功能。 隨著計算機(jī)技術(shù)的迅猛發(fā)展，企業(yè)合同管理前景將更加廣闊。今后將進(jìn)一步加深對該技術(shù)的研究，對系統(tǒng)進(jìn)行改進(jìn)?；厥走^去四年的大學(xué)生活，真是有苦也有樂，然而更多的則是收獲。王萌老師豐富的軟件設(shè)計經(jīng)驗(yàn)以及對我認(rèn)真耐心的指導(dǎo)，使我克服了在畢業(yè)設(shè)計中遇到的許多困難，順利完成畢業(yè)設(shè)計。 我相信，這次畢業(yè)設(shè)計會給我四年的大學(xué)生活畫上一個圓滿的
環(huán)評公示相關(guān)推薦
鄂ICP備17016276號-1