企業(yè)合同管理系統(tǒng)的設計與實現(xiàn)(存儲版)
【正文】 .................................... 1 ............................................................. 1 模塊設計 ........................................................ 1 數(shù)據(jù)庫設計 ...................................................... 3 ............................................................. 4 啟動模塊 ........................................................ 4 登陸模塊 ........................................................ 5 主模塊 .......................................................... 5 員工信息管理 .................................................... 7 客戶 信息管理 ................................................... 11 合同信息管理 ................................................... 14 結束語 ................................................................ 18 參考文獻 .............................................................. 19 致謝 .................................................................. 20 摘要 ： 隨著信息技術在管理上越來越深入而廣泛的應用，管理信息系統(tǒng)的實施在技術上已逐步成熟。 System design part mainly introduced the system function design and database design。對于領導的決策時間有一定的影響。 （ 2）客戶管理：實現(xiàn)客戶 信息的添加 、 修改 、 刪除和查詢功能。 圖 系統(tǒng) 登陸 界面 代碼 如下 ： Private Sub Command1_Click(Index As Integer) If = 11 And = 11 Then Unload Me Else response = MsgBox(199。200。 濰坊學院本科畢業(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。 Set = Adodc1 End If End Sub 濰坊學院本科畢業(yè)論文 11 客戶 信息 管理 本模塊提供文本框 輸 入客戶相關基本信息，單擊 “ 添加 ” 按鈕完成客戶信息的保存，單擊 “ 退出 ” 按鈕返回主菜單。 Set = Adodc1 End If If = True Then = adCmdText = select * from 客戶信息表 where 客戶姓名 =39。 合同信息修改刪除界面 代碼如下： Private Sub Command1_Click() On Error Resume Next If = 修改 Then = 確定 Else = 修改 濰坊學院本科畢業(yè)論文 16 End If End Sub Private Sub Command2_Click() = False End Sub Private Sub Command3_Click() If Then = True End Sub Private Sub Command4_Click() If Then = True End Sub Private Sub Command5_Click() Dim sak As Integer On Error Resume Next ask = MsgBox(刪除否 ?, vbYesNo) If ask = 6 Then If Then End If End Sub Private Sub Command6_Click() Unload Me End Sub Private Sub Command7_Click() = False End Sub 信息 查詢 本模塊提供了兩種查詢方式：合同編號查詢 、 合同簽約人查詢，也可以點擊 “ 查詢全部 ” 按鈕查詢所有合同信息，具體界面如圖 所示。 39。 （ 3）增加合同的分類匯總和提醒功能。感謝同學、朋友給予的大力支持和幫助，感謝各位答辯小組的老師們對我的指導。在畢業(yè)設計中， 我非常感謝王老師的諄諄教導和所有老師的辛勤培育。但是，為了提高系統(tǒng)的運行效率，完善系統(tǒng)的功能，增
環(huán)評公示相關推薦
鄂ICP備17016276號-1