【正文】
強(qiáng)企業(yè)的信息安全,還可以從以下幾個方面對系統(tǒng)進(jìn)行改進(jìn)和擴(kuò)展: ( 1)添加對合同進(jìn)行分類管理的功能。 amp。 合同添加界面 代碼如下: Private Sub Command1_Click() On Error Resume Next 濰坊學(xué)院本科畢業(yè)論文 15 If = 添加 Then = 確定 Else = 添加 MsgBox 合同信息添加已完成 End If End Sub Private Sub Command2_Click() Unload Me End Sub 本模塊可以選擇相應(yīng)合同 的信息進(jìn)行修改刪除 。 Trim() amp。 Trim() amp。 圖 員工信息添加 界面 代碼 如下 : Private Sub Command1_Click() On Error Resume Next If = 添加 Then = 確定 濰坊學(xué)院本科畢業(yè)論文 8 Else = 添加 MsgBox 員工信息添加完成 End If End Sub Private Sub Command2_Click() Unload Me End Sub 本模塊可以選擇相應(yīng)員工的信息進(jìn)行修改刪除,點擊修改、刪除按鈕 分別 完成員工信息修改 、刪除 , 點擊退出按鈕、返回主控界面,具體界面如圖 所示 。202。如表 33所示: 表 33 合同 信息表 中文字段名 數(shù)據(jù)類型 寬度 是否為空 說明 合同編號 text 50 no 合同名稱 text 50 no 合同描述 Text no 客戶名稱 Text no 合同管理 添加 修改刪除 查詢 濰坊學(xué)院本科畢業(yè)論文 4 合同金額 數(shù)字 50 no 簽約人 Text no 合同起始日期 Date no 合同終止日期 Date 已付款 數(shù)字 備注 Text 啟動 模塊 本模塊提供系統(tǒng)啟動功能,點擊 “ 進(jìn)入系統(tǒng) ” 按鈕完成系統(tǒng)的啟動,點擊 “ 退出系統(tǒng) ” 完成系統(tǒng)的退出,界面如圖 所示。 通過對企業(yè)合同管理 流程 的調(diào)研分析, 該 系統(tǒng)應(yīng)當(dāng)實現(xiàn)對企業(yè)員工信息、客戶信息、合同信息的維護(hù)和管理,能夠完成對 合同 各項信息的添加、修改、刪除和查詢功能。財務(wù)人員的付款 依據(jù) 也與 進(jìn)度 密切相關(guān),但同樣存在障礙。 本系統(tǒng)界面友好,操作簡單,比較實用。管理信息系統(tǒng)是一個不斷發(fā)展的新型學(xué) 科,企業(yè)要生存要發(fā)展,要高效率地把企業(yè)活動有機(jī)地組織起來,就必須加強(qiáng)企業(yè)管理,即加強(qiáng)對企業(yè)內(nèi)部的各種資源(人、財、物等)的有效管理,建立與自身特點相適應(yīng)的管理信息系統(tǒng)。 System realizing section of several major program diagram, and with some of the main window and procedures. This system friendly interface, the operation is simple, is more practical. KEY WORDS: Visual ; employee information ; customer information ; contract management 濰坊學(xué)院本科畢業(yè)論文 1 企業(yè) 合同管理系統(tǒng) 是建立在信息技術(shù)基礎(chǔ)上,利用現(xiàn)代企業(yè)的先進(jìn)管理思想,為企業(yè)提供決策、計劃、控制與經(jīng)營績效評估的全方位、系統(tǒng)化的合同管理平臺。 ( 4) 缺 少預(yù)警機(jī)制:缺少對合同進(jìn)度、結(jié)款等關(guān)鍵節(jié)點的預(yù)警,不能準(zhǔn)確地預(yù)測近期可能的收支項目,不能幫助公司進(jìn)行財務(wù)規(guī)劃,掌控現(xiàn)金流,更好地發(fā)揮資金運作。 ( 3)合同 管理:實現(xiàn)合同信息的添加 、 修改 、 刪除和查詢功能 。235。235。 amp。具體設(shè)計效果圖如圖 所示。 amp。 濰坊學(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。 Set = Adodc1 End If End Sub 濰坊學(xué)院本科畢業(yè)論文 18 結(jié)束語 通過 畢業(yè)設(shè)計 , 我 進(jìn)一步理解了軟件開發(fā) 的 思想和 過程 。 隨著計算機(jī)技術(shù)的迅猛發(fā)展,企業(yè)合同管理前景將更加廣闊。 我相信,這次畢業(yè)設(shè)計會給我四年的大學(xué)生活畫上一個圓滿的句號?;厥走^去四年的大學(xué)生活,真是有苦也有樂,然而更多的則是收獲。 本系統(tǒng)基本上包含了合同管理中常用的功能,基本能夠滿足日常的工作需求。 Set = Adodc1 End If If = True Then = adCmdText = select * from 合同信息表 where 簽約人 =39。具體設(shè)計效果圖如圖 所示。 amp。 amp。具體設(shè)計效果圖如圖 所示。194。如表 32所示: 表 32 客戶 信息表 字段名 數(shù)據(jù)類型 寬度 是否為空 說明 編號 Text 50 no 客戶姓名 Text 50 no 聯(lián)系人 Text 50 no 電話 text 50 no Email Text 50 no 備注 text no ( 3)合同 信息表, 用于管理合同 信息。本系統(tǒng)要求 性