【導(dǎo)讀】企業(yè)管理人員迫切需要開發(fā)出適合本單位的合同管理的軟件。中小企業(yè)合同管理系。統(tǒng)主要是對合同信息進行處理，其中還包括對客戶信息處理和業(yè)務(wù)信息瀏覽。本文簡單介紹了管理信息系統(tǒng)、的。編程環(huán)境和數(shù)據(jù)庫編程技術(shù)。在需求分析和可行性研究的基礎(chǔ)上，對系統(tǒng)的設(shè)計方案、功能模塊、接口設(shè)計、數(shù)據(jù)庫系統(tǒng)設(shè)計和安全設(shè)計等進行了較詳細的論述。本系統(tǒng)遵循先進、經(jīng)濟、安全、高效、可靠、易操作、易維護和開放的設(shè)計原則。計算機以其對數(shù)據(jù)信息處理的速度快，效率高，操作簡單等。優(yōu)點，成為很多管理部門工作離不開的助手。計劃管理科只了解合同的簽訂情況，要了解。正是基于這一思想將合同管理納入計。于系統(tǒng)相互集成，信息共享，實現(xiàn)合同簽訂、履行、變更到終止等全過程的跟蹤管理，理決策；利用信息控制企業(yè)的行為、幫助實現(xiàn)其規(guī)劃目標(biāo)。統(tǒng)進入網(wǎng)絡(luò)化的發(fā)展時期。世界發(fā)達國家已建立起了完善的先進的管理信息系統(tǒng)體系，

　　

【正文】 osoft Jet 數(shù)據(jù)庫引擎來訪問 Access、 FoxPro 和 Paradox 等 數(shù)據(jù)庫，還可以通過 ODBC Direct 來訪問 ODBC數(shù)據(jù)源。 DBGrid控件不在工具箱中，使用時需要載入，在“部件”控制選項卡中選擇 Microsoft Data Bound Grid Controls (SP3)。 DBGrid 控件不身不能顯示信息，它只能和數(shù)據(jù)綁定控件結(jié)合使用。 本窗體核心代碼： 用 Data 連接數(shù)據(jù)庫的代碼是： ’ 表示與窗體在同一路徑下 = amp。 \ 添加按鈕的代碼是： 河北理工大學(xué)畢業(yè)設(shè)計說明書 第 30 頁 共 51 頁 = False = False = False 刪除按鈕的代碼是： YesNo = MsgBox(真的要刪除嗎？ , vbYesNo + vbQuestion) If YesNo vbYes Then Exit Sub End If If 0 Then End If 訂單信息處理窗體設(shè)計 訂單信息處理窗體界面如圖 8所示： 圖 8訂單信息處理界面 河北理工大學(xué)畢業(yè)設(shè)計說明書 第 31 頁 共 51 頁 本窗體使用的控件有 Data 控件、 DBGrid 控件和 Command 控件。它的設(shè)計與實現(xiàn)與客戶信息處理相同。 付款信息處理窗體設(shè)計 付款信息處理窗體如圖 9所示： 圖 9付款信息處理界面 本窗體使用的控件有 Data 控件、 DBGrid 控件和 Command 控件。本窗體 的設(shè)計與客戶信息處理相同。 產(chǎn)品信息處理窗體設(shè)計 產(chǎn)品信息處理窗體如圖 10所示： 圖 10產(chǎn)品信息處理界面 本窗體使用的控件有 Data 控件、 DBGrid 控件和 Command 控件。本窗體的設(shè)計與客河北理工大學(xué)畢業(yè)設(shè)計說明書 第 32 頁 共 51 頁 戶信息處理相同。 按合同號查詢設(shè)計 按合同號查詢界面如圖 11所示： 圖 11按合同號查詢界面 本窗體使用的控件有： Data 控件、 TextBox 控件、 Label 控件和 Command 控件。在窗體中通過輸入合同編號，實現(xiàn)對 3個表的信息的選取并顯示在對應(yīng)標(biāo)簽的文本框中。 本窗體的核心代碼： 查詢按鈕的代碼是： = select ,ate, from pay,list,customer where = and = and =39。 amp。 amp。 39。 If = True Then On Error GoTo err 河北理工大學(xué)畢業(yè)設(shè)計說明書 第 33 頁 共 51 頁 = End If = (con_money) = (pay_money) = (customer_id) = (product_number) = (fin_date) = (number) = (fin_addr) = (customer_name) Exit Sub err: MsgBox 此編號不存在！請重新輸入！！ , vbOKOnly + vbExclamation, 錯誤 按客戶名查詢設(shè)計 按客戶名查詢界面如圖 12所示： 圖 12按客戶名查詢界面 河北理工大學(xué)畢業(yè)設(shè)計說明書 第 34 頁 共 51 頁 本窗體使用的控件有 Data 控件、 DBGrid 控件、 Label 控件、 TextBox 控件和 Command控件。 查詢按鈕的代碼是： = select * from customer where customer_name=39。 amp。 amp。 39。 按簽 約日期查詢設(shè)計 按簽約日期查詢界面如圖 13 所示： 圖 13按簽約日期查詢界面 本窗體使用的控件有 Data 控件、 DBGrid 控件、 Label 控件、 TextBox 控件和 Command控件。 查詢按鈕的代碼是： = select * from list where date = amp。 amp。 and date = amp。 amp。 按簽約金額查詢設(shè)計 按簽約金額查詢界面如圖 14 所示： 河北理工大學(xué)畢業(yè)設(shè)計說明書 第 35 頁 共 51 頁 圖 14按簽約金額查詢界面 本窗體使用的控件有 Data 控件、 DBGrid 控件、 Label 控件、 TextBox 控件和 Command控件。 查詢按鈕的代碼是： = select * from pay where con_money = amp。 amp。 and con_money = amp。 amp。 瀏覽全部合同設(shè)計 瀏覽全部合同界面如圖 15所示： 圖 15瀏覽全部合同界面 河北理工大學(xué)畢業(yè)設(shè)計說明書 第 36 頁 共 51 頁 本窗體使用的控件有： Data 控件和 DBGrid 控件。 列出合同狀態(tài)設(shè)計 列出合同狀態(tài)界面如圖 16所示： 圖 16列出合同狀態(tài)界面 本窗體使用的控件有：兩個 Data 控件和 DBGrid 控件。 活動窗體的代碼是： = select * from pay where excute=39。已執(zhí)行 39。 = select * from pay where excute=39。未執(zhí)行 39。 河北理工大學(xué)畢業(yè)設(shè)計說明書 第 37 頁 共 51 頁 客戶信息一覽設(shè)計 客戶信息一覽表界面如圖 17 所示： 圖 17客戶信息一覽表界面 本界面顯示的是報表信息，采用報表與數(shù)據(jù)環(huán)境相連的方式完成。 數(shù)據(jù)環(huán)境設(shè)計方法：在工程菜單下，選擇 More ActiveX Designer? 中的 Data Environment。右擊 Connection1，選擇屬性，連接數(shù)據(jù)庫。再右擊它，選擇 Add Command，添加按鈕。右擊該按鈕，選擇其屬性，在屬性窗口的通用選項卡中為按鈕命名為Command1， 在 Connection項中選擇 Connection1，數(shù)據(jù)庫對象類型為 Table,在 object中，選擇 Connection1 中的表 customer。 報表設(shè)計方法：在工程菜單下，選擇添加數(shù)據(jù)報表。在工具箱的 DataReport 選項卡中選擇 RptLabel 控件，在數(shù)據(jù)報表界面中的 Report Header 和 Page Header 中分別添加 RptLabel 控件 ,在 Report Headerd 的 RptLabel 控件的 Caption 屬性中輸入報表的名字，在 Page Header 的若干個 RptLabel 控件的 Caption 屬性中輸入 要顯示的字段名。 在工具箱的 DataReport選項卡中選擇 RptTextBox控件 ,在 Detail中添加和 Page Header的 RptLabel 控件的個數(shù)相同的 RptTextBox 控件，在其 DataField 屬性中選擇與顯示字段名對應(yīng)的數(shù)據(jù)庫表中的字段。 河北理工大學(xué)畢業(yè)設(shè)計說明書 第 38 頁 共 51 頁 在 MDI 中調(diào)用的代碼： If = adStateOpen Then End If printstr1 = select * from customer printstr1 If = True Then sssss = MsgBox(沒有當(dāng)前記錄！ , vbOKOnly + vbExclamation, 警告 ) Exit Sub End If 訂單信息一覽設(shè)計 訂單信息一覽表界面如圖 18 所示： 圖 18訂單信息一覽表界面 設(shè)計方法與客戶信息一覽表相同。 在 MDI 中調(diào)用的代碼： 河北理工大學(xué)畢業(yè)設(shè)計說明書 第 39 頁 共 51 頁 If = adStateOpen Then End If printstr2 = select * from list printstr2 If = True Then sssss = MsgBox(沒有當(dāng)前記錄！ , vbOKOnly + vbExclamation, 警告 ) Exit Sub End If 合同情況一覽設(shè)計 合同情況一覽表界面如圖 19 所示： 圖 19合同情況一覽表界面 設(shè)計方法與客戶信息一覽表相同。 在 MDI 中調(diào)用的代碼： If = adStateOpen Then 河北理工大學(xué)畢業(yè)設(shè)計說明書 第 40 頁 共 51 頁 End If printstr3 = select * from pay printstr3 If = True Then sssss = MsgBox(沒有當(dāng)前記錄！ , vbOKOnly + vbExclamation, 警告 ) Exit Sub End If 未完成合同明細設(shè)計 未完成合同明細表界面如圖 20所示： 圖 20未完成合同明細表界面 設(shè)計方法與客戶信息一覽表相同。 在 MDI 中調(diào)用的代碼： If = adStateOpen Then 河北理工大學(xué)畢業(yè)設(shè)計說明書 第 41 頁 共 51 頁 End printstr4 = select * from pay where excute=39。未執(zhí)行 printstr4 If = True Then sssss = MsgBox(沒有當(dāng)前記錄！ , vbOKOnly + vbExclamation, 警告 )