1、1 .前言 12 .需求分析 13 .系統設計 13.1 模塊設計 13.2 數據庫設計 34 .系統實現 44.1 啟動模塊 44.2 登陸模塊 54.3 主模塊 54.4 員工信息管理 74.5 客戶信息管理 114.6 合同信息管理 14結束語 18參考文獻 19致謝 20摘要：隨著信息技術在管理上越來越深入而廣泛的應用，管理信息系統的實施在 技術上已逐步成熟。管理信息系統是一個不斷發展的新型學科，企業要生存要發展， 要高效率地把企業活動有機地組織起來， 就必須加強企業管理，即加強對企業內部的 各種資源（人、財、物等）的有效管理，建立與自身特點相適應的管理信息系統。本文介紹了在VB6.0

2、環境下采用“自上而下地總體規劃，自下而上地應用開發” 的策略開發一個企業合同管理信息系統的過程。通過分析傳統的人工管理合同的不 足，創建了一套行之有效的計算機管理合同的方案。論文詳細介紹了合同信息系統的 需求分析、系統設計和系統實現。系統設計部分主要介紹了系統功能設計和數據庫設 計；系統實現部分列出主要模塊的窗口界面和程序。本系統界面友好，操作簡單，比較實用。關鍵詞：Visual Basic6.0 ;員工信息；客戶信息；合同管理ABSTRACT : Along with the information technology in the management of more and more

3、depth and a wide range of applications, information management system in the implementation of technology has gradually matured. Management information system is a continuous development of new disciplines, enterprise to survive is to develop and efficient business activities organized organically,

4、to strengthen enterprise management, namely, to strengthen enterprise internal various resources (human, financial, material, etc.), the effective management of the establishment and its own characteristics in line with the management information system.This paper introduces the environment in, VB6.

5、0 to overall planning, "top-down" bottom-up application development strategy to develop a enterprise contract management information system process. Through the analysis of the traditional manual administration contract insufficiency, created a set of effective computer management library

6、scheme. This paper introduces in detail the books management information system of analysis parts, including the feasibility analysis, organization analysis, management function analysis, business process analysis, data flow analysis, processing description, etc.; System design part mainly introduce

7、d the system function design and database design; 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 Basic6.0 ; employee information ； customer informa

8、tion ； contract management濰坊學院本科畢業論文1 .前言企業合同管理系統是建立在信息技術基礎上，利用現代企業的先進管理思想，為企 業提供決策、計劃、控制與經營績效評估的全方位、系統化的合同管理平臺。合同信息作為企業的一項非常重要的數據資源，其具復雜性而難以單純依靠人工進 行管理。采用手工管理合同，由于涉及的部門眾多，需要管理的合同要素也各不相同， 因此造成信息不集中，實時性不強，導致各部門協作，業務流程組建，監控制度執行方 面效率不高，費時費力等問題，具體表現在如下方面：(1)文檔管理困難：傳統紙質合同與電子版合同共存，但對于不同的人員想閱讀 參考合同時，存在查找不方

9、便的問題。尤其是領導需要了解合同文本時需要耗費很多時 問。(2)進度控制困難：由于合同數目多，參與人員多，合同進度的控制基本靠手工 和普通Word、Excel管理已很難滿足公司發展需要，并且當領導想全局或全程了解合同 情況時存在很大障礙。財務人員的付款依據也與進度密切相關，但同樣存在障礙。(3)信息匯總困難：采用手工或Excel管理時，由于不同部門的數據格式不統一， 采集也不能夠及時繼續，匯總工作需要耗費大量時間還不一定準確。對于領導的決策時 間有一定的影響。(4)缺少預警機制：缺少對合同進度、結款等關鍵節點的預警，不能準確地預測 近期可能的收支項目，不能幫助公司進行財務規劃，掌控現金流，更好

10、地發揮資金運作。業務管理是合同管理的核心需求。 企業合同管理系統可以保存和管理企業的日常合 同及合同的相關信息，有效跟蹤管理企業的日常合同，帶動企業合同管理的信息化、科 學化，同時也可以節省人力、物力、財力，提高工作效率，使企業合同管理更加科學， 更加規范。2 .需求分析該合同管理系統主要用于企業合同的日常管理，主要對合同涉及的員工信息、客戶 信息、合同信息進行管理，提高合同管理的有效性和規范性。本系統要求性能穩定，圖 形用戶界面符合日常使用習慣，數據處理正確無誤。通過對企業合同管理流程的調研分析，該系統應當實現對企業員工信息、客戶信息、 合同信息的維護和管理，能夠完成對合同各項信息的添加、修

11、改、刪除和查詢功能。主 要功能包括：(1)員工管理：實現員工信息的添加、修改、刪除和查詢功能。(2)客戶管理：實現客戶信息的添加、修改、刪除和查詢功能。(3)合同管理：實現合同信息的添加、修改、刪除和查詢功能。3 .系統設計3.1 模塊設計企業合同管理系統劃分成員工信息管理、客戶信息管理、合同信息管理三個模塊 模塊圖如圖 3.1、3.2、3.3、3.4。登錄模塊企業合同管理系統員工信息管理圖3.1總體框架圖3.2員工管理4圖3.3客戶管理圖3.4合同管理3.2 數據庫設計根據系統的需求，利用 ACCES數據庫管理系統，分別建立員工信息表、客戶信息 表、合同信息表，具體如下：(1)員工信息表，用

12、于對員工信息的編號、姓名、部門、性別、生日、職務進行定 義，如表3-1所小：表3-1員工信息表字段名(中文)數據類型寬度是否為空說明員工編號Text10no員工姓名Text10no部門Text50no性別Text10no生日Date職務Text50(2)客戶信息表，用于保存客戶有關的信息。如表 3-2所示: 表3-2客戶信息表字段名數據類型寬度是否為空說明編pText50no客戶姓名Text50no聯系人Text50no電話text50noE-mailText50no備注textno(3)合同信息表，用于管理合同信息。如表 3-3所示:表3-3合同信息表中文字段名數據類型寬度是否為空說明合同編

13、號text50no合同名稱text50no合同描述Textno客戶名稱Textno合同金額數字50no簽約人Textno合同起始日期Dateno合同終止日期Date已付款數字備注Text4 .系統實現4.1 啟動模塊本模塊提供系統啟動功能，點擊“進入系統”按鈕完成系統的啟動，點擊“退出系 統”完成系統的退出，界面如圖 4.1所示。圖4.1系統啟動界面代碼如下：Private Sub Label3_Click()Form2.ShowUnload MeEnd SubPrivate Sub Label4_Click()Unload MeEnd SubPrivate Sub Timer1_Timer(

14、)Label1.Left = Label1.Left + 30If Label1.Left > Form1.Width ThenLabel1.Left = -Label1.WidthEnd IfEnd Sub濰坊學院本科畢業論文4.2 登陸模塊本模塊提供文本框輸入用戶信息，點擊“確定”按鈕完成用戶登錄，點擊“退出” 按鈕退出系統，界面如圖4.2所示。圖4.2系統登陸界面代碼如下：Private Sub Command1_Click(Index As Integer) If Text1.Text = "11" And Text2.Text = "11"

15、; ThenForm3.ShowUnload MeElseresponse = MsgBox("?D?6 ? e ?!")Text1.Text =""Text2.Text =""End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Timer1_Timer()Label1.Left = Label1.Left + 36If Label1.Left > Form2.Width ThenLabel1.Left = -Label1.WidthEnd I

16、fEnd Sub4.3 主模塊本模塊功能是在啟動窗體的同時，進行數據庫的連接操作。主窗體菜單設計的效果圖4.3系統主界面代碼如下：Private Sub ADC_Click()FormlO.ShowEnd SubPrivate Sub add_Click()Form4.ShowEnd SubPrivate Sub addc_Click()Form7.ShowEnd SubPrivate Sub CK_Click() Form14.ShowEnd SubPrivate Sub CS_Click()Formll.ShowEnd SubPrivate Sub EXIT_Click()Unload M

17、eEnd SubPrivate Sub KC_Click()Form13.ShowEnd SubPrivate Sub mend_Click()Form5.ShowEnd SubPrivate Sub mendc_Click()Form8.ShowEnd SubPrivate Sub MM_Click()Form12.ShowEnd SubPrivate Sub SC_Click()Form9.ShowEnd SubPrivate Sub search_Click() Form6.ShowEnd Sub4.4 員工信息管理4.4.1 員工信息添加本模塊提供文本框輸入員工相關基本信息， 單擊“添

18、加”按鈕完成員工信息的保存, 單擊“退出”按鈕返回主菜單。具體設計效果圖如圖 4.4所示。圖4.4員工信息添加界面代碼如下：Private Sub Command1_Click()On Error Resume NextIf Command1.Caption =" 添加"ThenCommand1.Caption ="確定"AdodcI.Recordset.AddNewTextl.SetFocusElseCommandl.Caption ="添力口"AdodcI.Recordset.UpdateAdodcI.Recordset.Move

19、Last MsgBox "員工信息添加完成" End If End SubPrivate Sub Command2_Click() Unload MeEnd Sub4.4.2 員工信息修改刪除本模塊可以選擇相應員工的信息進行修改刪除，點擊修改、刪除按鈕分別完成員工 信息修改、刪除，點擊退出按鈕、返回主控界面，具體界面如圖4.5所示。圖4.5員工信息修改刪除界面代碼如下：Private Sub Command1_Click()On Error Resume NextIf Command1.Caption ="修改"ThenCommand1.Caption

20、="確定"Adodc1.Recordset.UpdateText1.SetFocusElseCommand1.Caption ="修改"Adodc1.Recordset.UpdateEnd IfEnd SubPrivate Sub Command2_Click()Dim sak As IntegerOn Error Resume Nextask = MsgBox("刪除否？"，vbYesNo)If ask = 6 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1

21、.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command3_Click()Unload Me End SubPrivate Sub Command4_Click()Adodc1.Recordset.MoveFirstCommand5.Enabled = False End SubPrivate Sub Command5_Click()Adodc1.Recordset.MovePreviousIf Adodc1.Recordset.BOF Then Adodc1.Recordset.MoveFirs

22、tCommand6.Enabled = TrueEnd SubPrivate Sub Command6_Click()Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastCommand5.Enabled = TrueEnd SubPrivate Sub Command7_Click()Adodc1.Recordset.MoveLastCommand6.Enabled = False End Sub4.4.3 員工信息查詢本模塊提供了兩種查詢方式：編號查詢、姓名查詢，也可以點擊查詢全部按鈕查

23、詢 所有員工信息，具體界面如圖4.6所示。圖4.6員工信息查詢界面代碼如下：Private Sub Command1_Click()Adodcl.CommandType = adCmdTextAdodcI.RecordSource = "select * from員工信息表AdodcI.RefreshSet DataGrid1.DataSource = Adodc1End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command4_Click()If Option1.Value = True ThenAdod

24、c1.CommandType = adCmdTextAdodc1.RecordSource = "select * from 員工信息表 where 員工編號 ='"& Trim(Text1.Text)&皿Adodc1.RefreshSet DataGrid1.DataSource = Adodc1End IfIf Option2.Value = True ThenAdodc1.CommandType = adCmdTextAdodc1.RecordSource = "select * from 員工信息表 where 員工姓名"

25、& Trim(Text2.Text)&皿Adodc1.RefreshSet DataGrid1.DataSource = Adodc1End IfEnd Sub4.5 客戶信息管理4.5.1 客戶信息添加本模塊提供文本框輸入客戶相關基本信息， 單擊“添加”按鈕完成客戶信息的保存, 單擊“退出”按鈕返回主菜單。具體設計效果圖如圖 4.7所示。圖4.7客戶添加界面代碼如下：Private Sub Command1_Click()On Error Resume NextIf Command1.Caption ="添力口" ThenCommand1.Caption

26、="確定"Adodc1.Recordset.AddNewText1.SetFocusElseCommand1.Caption ="添力口"Adodc1.Recordset.UpdateAdodc1.Recordset.MoveLastMsgBox ”客戶信息添加完成"End IfEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub4.5.2 客戶信息修改刪除本模塊可以選擇相應客戶的信息進行修改刪除，點擊“修改”、“刪除”按鈕分別完 成客戶信息修改、刪除，點擊“退出”按鈕、返回主控界面，具體界面如

27、圖4.8所示。圖4.8客戶信息修改刪除界面代碼如下:Private Sub Command1_Click()AdodcI.Recordset.MoveFirstCommand5.Enabled = FalseEnd SubPrivate Sub Command2_Click()On Error Resume NextIf Command2.Caption ="修改"ThenCommand2.Caption ="確定"Adodc1.Recordset.UpdateText1.SetFocusElseCommand2.Caption ="修改&qu

28、ot;Adodc1.Recordset.UpdateEnd IfEnd SubPrivate Sub Command3_Click()Dim sak As IntegerOn Error Resume Nextask = MsgBox("刪除否？"，vbYesNo)If ask = 6 ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command4_Click(

29、)Unload MeEnd SubPrivate Sub Command5_Click()AdodcI.Recordset.MovePreviousIf Adodc1.Recordset.BOF Then AdodcI.Recordset.MoveFirstCommand6.Enabled = TrueEnd SubPrivate Sub Command6_Click()Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastCommand5.Enabled = TrueEnd SubPriv

30、ate Sub Command7_Click()Adodc1.Recordset.MoveLastCommand6.Enabled = FalseEnd Sub4.5.3 客戶信息查詢本模塊提供了兩種查詢方式：編號查詢、姓名查詢，也可以點擊“查詢全部”按鈕 查詢所有客戶信息，具體界面如圖 4.9所示。圖4.9客戶信息查詢界面代碼如下：Private Sub Command1_Click()Adodc1.CommandType = adCmdTextAdodc1.RecordSource = "select * from 客戶信息表"Adodcl.RefreshSet Dat

31、aGridl.DataSource = AdodclEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()If Optionl.Value = True ThenAdodcl.CommandType = adCmdTextAdodc1.RecordSource = "select * from 客戶信息表 where 編號='"& Trim(Textl.Text) & "'"AdodcI.RefreshSet DataG

32、ridl.DataSource = AdodclEnd IfIf Option2.Value = True ThenAdodcl.CommandType = adCmdTextAdodcI.RecordSource = "select * from 客戶信息表 where 客戶姓名='"& Trim(Text2.Text)&皿AdodcI.RefreshSet DataGridl.DataSource = AdodclEnd IfEnd Sub4.6 合同信息管理4.6.1 合同信息添加本模塊提供文本框輸入合同相關基本信息，單擊“添加”按鈕完成合同信

33、息的保存,單擊“退出”按鈕返回主菜單。具體設計效果圖如圖 4.10所示。4.10合同添加界面代碼如下：Private Sub Command1_Click()On Error Resume NextIf Commandl.Caption =" 添加"Then Commandl.Caption ="確定" AdodcI.Recordset.AddNew txetl.SetFocusElseCommandl.Caption ="添力口" AdodcI.Recordset.Update Adodc1.Recordset.MoveLast M

34、sgBox ”合同信息添加已完成" End If End SubPrivate Sub Command2_Click() Unload MeEnd Sub4.6.2 合同信息修改刪除本模塊可以選擇相應合同的信息進行修改刪除。點擊“修改”、“刪除”按鈕分別完成合同信息修改、刪除，點擊“退出”按鈕、返回主控界面，具體界面如圖4.11所示4.11合同信息修改刪除界面代碼如下：Private Sub Command1_Click()On Error Resume NextIf Command1.Caption =" 修改"ThenCommand1.Caption =&qu

35、ot;確定"Adodc1.Recordset.UpdateText1.SetFocusElseCommand1.Caption ="修改"Adodc1.Recordset.UpdateEnd IfEnd SubPrivate Sub Command2_Click()AdodcI.Recordset.MoveFirstCommand3.Enabled = False End SubPrivate Sub Command3_Click()AdodcI.Recordset.MovePreviousIf Adodc1.Recordset.BOF Then AdodcI.R

36、ecordset.MoveFirstCommand4.Enabled = TrueEnd SubPrivate Sub Command4_Click()Adodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastCommand3.Enabled = TrueEnd SubPrivate Sub Command5_Click()Dim sak As IntegerOn Error Resume Nextask = MsgBox("刪除否？"，vbYesNo)If ask = 6

37、ThenAdodc1.Recordset.DeleteAdodc1.Recordset.MoveNextIf Adodc1.Recordset.EOF Then Adodc1.Recordset.MoveLastEnd IfEnd SubPrivate Sub Command6_Click()Unload Me End SubPrivate Sub Command7_Click()Adodc1.Recordset.MoveLastCommand4.Enabled = False End Sub4.6.3合同信息查詢本模塊提供了兩種查詢方式：合同編號查詢、合同簽約人查詢，也可以點擊“查詢 全部”

38、按鈕查詢所有合同信息，具體界面如圖4.12所示。4.12合同查詢界面代碼如下：Private Sub Command1_Click()Adodcl.CommandType = adCmdTextAdodcI.RecordSource = "select * from 合同信息表AdodcI.RefreshSet DataGrid1.DataSource = Adodc1End SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()If Option1.Value = True ThenAd

39、odc1.CommandType = adCmdTextAdodc1.RecordSource = "select * from 合同信息表 where 合同編號 ='"& Trim(Text1.Text)&皿Adodc1.RefreshSet DataGrid1.DataSource = Adodc1End IfIf Option2.Value = True ThenAdodc1.CommandType = adCmdTextAdodc1.RecordSource = "select * from 合同信息表 where 簽約人='

40、;"& Trim(Text2.Text) &AdodcI.RefreshSet DataGridl.DataSource = AdodclEnd IfEnd Sub結束語通過畢業設計，我進一步理解了軟件開發的思想和過程。從選擇畢業設計題目到系 統的實現，再到報告的完成，每走一步對我來說都是新的嘗試與挑戰，這也是我在大學 期間獨立完成的最大的實踐項目。在這段時間里，我學到了很多知識也有很多感受，從 對合同信息管理的模糊認識開始，查看相關的資料和書籍，讓自己頭腦中模糊的概念逐 漸清晰，使自己非常稚嫩的作品一步步完善起來。這次畢業設計中最難的一點就是數據庫的設計，因為一個系統的合理性與健壯性的 基礎就在于數據庫的設計上，開始的時候沒意識到這一點，導致在此后的系統開發中做 了很多無用功，浪費了很多時間。本