企業(yè)合同管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)(更新版)
【正文】 where 編號(hào) =39。 Set = Adodc1 End If If = True Then = adCmdText = select * from 員工信息表 where 員工姓名 =39。 濰坊學(xué)院本科畢業(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() 濰坊學(xué)院本科畢業(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 員工信息 管理 本模塊提供文本框 輸 入員工相關(guān) 基本信息，單擊 “ 添加 ” 按鈕完成員工信息的保存，單擊 “ 退出 ” 按鈕返回主菜單。208。 濰坊學(xué)院本科畢業(yè)論文 2 圖 總體框架 圖 員工管理 圖 客戶管理 客戶管理 添加 修改刪除 查詢 員工管理 添加 修改 刪除 查詢 登錄 模塊 企業(yè)合同管理 系統(tǒng) 員工信息管理 客戶信息管理 合同信息管理 濰坊學(xué)院本科畢業(yè)論文 3 圖 合同管理 數(shù)據(jù)庫(kù)設(shè)計(jì) 根據(jù)系統(tǒng)的需求，利用 ACCESS 數(shù)據(jù)庫(kù) 管理系統(tǒng) ，分別建立員工信息表、客戶信息表、合同信息表，具體 如下 ： （ 1） 員工信息表 ，用于對(duì) 員工信息 的編號(hào)、姓名、部門(mén)、性別、生日、職務(wù) 進(jìn)行定義，如表 31所 示： 表 31 員工信息表 字段名（中文） 數(shù)據(jù)類型 寬度 是否為空 說(shuō)明 員工編號(hào) Text 10 no 員工姓名 Text 10 no 部門(mén) Text 50 no 性別 Text 10 no 生日 Date 職務(wù) Text 50 （ 2）客戶信息表 ，用于 保存 客戶 有關(guān)的信息。 該合同管理系統(tǒng)主要用于企業(yè)合同 的日常 管理， 主要 對(duì)合同涉及的員工信息、客戶信息、合同信息進(jìn)行管理，提高合同管理的有效性和 規(guī)范性。尤其是領(lǐng)導(dǎo)需要了解合同文本時(shí)需要耗費(fèi)很多 時(shí)間 。 論文 詳細(xì)介紹了 合同 信息系統(tǒng)的需求 分析 、 系統(tǒng)設(shè)計(jì) 和系統(tǒng)實(shí)現(xiàn)。通過(guò)分析傳統(tǒng)的人工管理合同的不足，創(chuàng)建了一套行之有效的計(jì)算機(jī)管理 合同 的方案。 采用手工管理合同，由于涉及的部門(mén) 眾多，需要管理的合同要素也各不相同，因此造成信息不集中，實(shí)時(shí)性不強(qiáng)，導(dǎo)致各部門(mén)協(xié)作，業(yè)務(wù)流程組建，監(jiān)控制度執(zhí)行方面效率不高，費(fèi)時(shí)費(fèi)力等問(wèn)題，具體表現(xiàn)在如下方面： （ 1） 文檔管理困難：傳統(tǒng)紙質(zhì)合同與電子版合同共存，但對(duì)于不同的人員想閱讀參考合同時(shí)，存在查找不方便的問(wèn)題。 企業(yè) 合同管理 系統(tǒng) 可以保存和管理企業(yè)的日常合同及合同的相關(guān)信息 ， 有效跟蹤管理企業(yè)的日常合同，帶動(dòng)企業(yè)合同管理的信息化、科學(xué)化，同時(shí)也可以節(jié)省人力、物力、財(cái)力，提高工作效率，使企業(yè)合同管理更加科學(xué)，更加規(guī)范。模塊圖如圖 、 、 、 。216。主窗體菜單設(shè)計(jì)的效果圖如圖 所示。 39。 濰坊學(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 本模塊提供了兩種查詢方式：編號(hào)查詢 、 姓名查詢，也可以點(diǎn)擊 “ 查詢?nèi)?” 按鈕查詢所有客戶信息，具體界面如圖 所示。 39。 Trim() amp。在這段時(shí)間里，我學(xué)到了很多知識(shí)也有很多感受，從對(duì) 合同 信息管理的模糊認(rèn)識(shí)開(kāi)始，查看相關(guān)的資料和書(shū)籍，讓自己頭腦中模糊的概念逐漸清晰，使自己非常稚嫩的作品一步步完善起來(lái)。今后將進(jìn)一步加深對(duì)該技術(shù)的研究，對(duì)系統(tǒng)進(jìn)行
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1