企業(yè)銷售合同管理系統(tǒng)DOC

1、X X X X 大 學(xué)數(shù)據(jù)庫應(yīng)用技術(shù)課 程 設(shè) 計(jì) 說 明 書題目： 企業(yè)銷售合同管理系統(tǒng) 學(xué)院（系）： 專業(yè)班級(jí)： 學(xué) 號(hào)： 學(xué)生姓名： 指導(dǎo)教師： 教師職稱： 起止時(shí)間： xxxx大學(xué)課程設(shè)計(jì)（論文）任務(wù)書院（系）： 教研室： 學(xué) 號(hào) 學(xué)生姓名 專業(yè)班級(jí) 設(shè)計(jì)題目企業(yè)銷售合同管理系統(tǒng)設(shè)計(jì)技術(shù)參數(shù)1 題目要達(dá)到的目標(biāo)：完成系統(tǒng)的登陸、數(shù)據(jù)的插入刪除修改統(tǒng)計(jì)等基本操作。2 數(shù)據(jù)庫：SQLSERVER2000。3 所使用的語言、工具:VB6.0+ SQLSERVER2000+WINDOWSXP。4 所采用的技術(shù)、系統(tǒng)結(jié)構(gòu):ADO數(shù)據(jù)庫聯(lián)接技術(shù),系統(tǒng)結(jié)構(gòu)為C/S結(jié)構(gòu)。設(shè)計(jì)要求1 教師布置實(shí)習(xí)任務(wù)和

2、要求時(shí)，不得缺席，并做好記錄。2 上機(jī)前預(yù)先把所有的源程序編寫好。3 上機(jī)時(shí)不得遲到，不得缺席，愛護(hù)設(shè)備，認(rèn)真調(diào)試程序。4 仔細(xì)查閱相關(guān)資料，認(rèn)真完成思考題。5 按要求書寫設(shè)計(jì)任務(wù)書，并按要求按版打印，不得雷同。工作量二周工作計(jì)劃周一聽取教師布置設(shè)計(jì)的任務(wù)及要求。周二學(xué)生查閱相關(guān)資料，進(jìn)行數(shù)據(jù)庫設(shè)計(jì)。周三至周五：詳細(xì)設(shè)計(jì)與界面設(shè)計(jì)。周一至周四程序設(shè)計(jì)與上機(jī)，調(diào)試源程序。周五書寫課程設(shè)計(jì)任務(wù)書。參考資料數(shù)據(jù)庫應(yīng)用技術(shù)數(shù)據(jù)庫應(yīng)用技術(shù)實(shí)驗(yàn)指導(dǎo)書自編數(shù)據(jù)庫應(yīng)用技術(shù)課程設(shè)計(jì)大綱自編等指導(dǎo)教師評(píng)語 教師： 學(xué)生：說明：此表一式四份，學(xué)生、指導(dǎo)教師、教研室、系部各一份。可加附頁。2011年 12 月 31日

3、 xxxx大 學(xué) 課 程 設(shè) 計(jì) 說 明 （ 計(jì) 算 ）書 目錄第一章 概述4第二章 問題定義5第三章 需求分析6第四章 數(shù)據(jù)庫設(shè)計(jì)9第五章 界面設(shè)計(jì)14第六章 代碼與注釋17參考文獻(xiàn)24第一章 概述在現(xiàn)代企業(yè)管理中，銷售合同的管理處于十分重要的地位，已成為與生產(chǎn)進(jìn)度管理、質(zhì)量管理、資產(chǎn)管理、其它信息管理等同等重要的職能管理，企業(yè)生產(chǎn)的一切產(chǎn)品的交換過程都是通過締結(jié)和履行銷售合同的方式來進(jìn)行的，銷售合同管理的好壞直接影響和關(guān)系到企業(yè)經(jīng)營活動(dòng)順利運(yùn)行。企業(yè)銷售合同確定了產(chǎn)品銷售的價(jià)格、交易日期和質(zhì)量等項(xiàng)目，規(guī)定著合同雙方責(zé)任權(quán)利關(guān)系，它貫穿于企業(yè)從產(chǎn)品的研究、設(shè)計(jì)到質(zhì)量檢驗(yàn)及交付貨品的各個(gè)階段，

4、涉及到企業(yè)生產(chǎn)的各個(gè)部門，滲透到企業(yè)的生產(chǎn)進(jìn)度、質(zhì)量管理和成本管理之中，形成一個(gè)縱橫交錯(cuò)的龐大的合同信息鏈。 隨著經(jīng)濟(jì)的市場(chǎng)化和全球化，企業(yè)所面臨的環(huán)境更加錯(cuò)綜復(fù)雜，經(jīng)濟(jì)交易活動(dòng)的不穩(wěn)定性隨之增大，銷售合同的管理難度也隨著客戶的增加而加大，由此產(chǎn)生的風(fēng)險(xiǎn)也愈來愈多。目前，部分企業(yè)管理者或決策者存在合同法律意識(shí)差，不熟悉合同法的一般規(guī)定，基本上沒有把銷售合同管理納入經(jīng)營管理視野，合同管理制度形同虛設(shè)，無機(jī)構(gòu)、無人員、無銷售合同臺(tái)賬和檔案，一些銷售合同資料不全，甚至出現(xiàn)文本原件丟失時(shí)的現(xiàn)象，各業(yè)務(wù)部門協(xié)調(diào)不夠，沒有對(duì)合同的履行進(jìn)行深入監(jiān)控，往往致使銷售合同履行不到位，出了問題不能及時(shí)得到解決的情況

5、，這樣一定會(huì)干擾正常的企業(yè)的生產(chǎn)經(jīng)營活動(dòng)，給企業(yè)決策造成不利影響，導(dǎo)致企業(yè)形象和利益受損。企業(yè)的銷售合同管理采用無制度管理或手工管理方式甚至孤立的由某個(gè)管理層的管理方式，已遠(yuǎn)遠(yuǎn)不能滿足市場(chǎng)競(jìng)爭(zhēng)的要求。 根據(jù)企業(yè)銷售合同管理的實(shí)際需要，設(shè)計(jì)一個(gè)省時(shí)省力地、輕松地管理眾多復(fù)雜的銷售合同管理平臺(tái)，構(gòu)建出信息高度集成的企業(yè)銷售合同管理信息系統(tǒng)具有十分重要的現(xiàn)實(shí)意義。 第二章 問題定義企業(yè)銷售合同管理系統(tǒng)的主要任務(wù)是實(shí)現(xiàn)對(duì)企業(yè)銷售合同的過程管理和成本控制。本課程設(shè)計(jì)所描述的企業(yè)銷售合同管理系統(tǒng)的主要功能包括：1.產(chǎn)品信息管理功能產(chǎn)品信息的錄入：包括產(chǎn)品編號(hào)、產(chǎn)品名稱、商標(biāo)品牌、規(guī)格型號(hào)、計(jì)量單位等信息；

6、主要實(shí)現(xiàn)功能：產(chǎn)品信息的修改；產(chǎn)品信息的刪除；產(chǎn)品信息的查詢。2.合同費(fèi)用管理功能合同費(fèi)用的錄入，包括憑單號(hào)、費(fèi)用類別、合同編號(hào)、費(fèi)用明細(xì)、金額、收款人、經(jīng)辦人、發(fā)生日期和備注等信息；主要實(shí)現(xiàn)功能：合同費(fèi)用的修改； 合同費(fèi)用的查詢。3.合同收賬管理功能合同收賬的錄入，包括發(fā)票編號(hào)、發(fā)票類別、合同編號(hào)、金額、日期、經(jīng)辦人、備注等信息；主要實(shí)現(xiàn)功能： 合同收賬的修改；合同收賬的查詢。4.合同信息管理功能合同信息的錄入，包括合同編碼、簽訂日期、客戶名稱、合同狀態(tài)等信息；主要實(shí)現(xiàn)功能：合同信息的修改；合同信息的查詢。5.合同統(tǒng)計(jì)管理功能主要實(shí)現(xiàn)功能：合同成本利潤統(tǒng)計(jì)月報(bào)表 合同成本利潤統(tǒng)計(jì)年報(bào)表6.系

7、統(tǒng)用戶管理功能系統(tǒng)用戶信息的錄入，包括用戶名、密碼等信息；主要實(shí)現(xiàn)功能：系統(tǒng)用戶信息的修改； 系統(tǒng)用戶信息的刪除；系統(tǒng)用戶信息的查詢第三章 需求分析一、數(shù)據(jù)庫需求分析銷售合同時(shí)企業(yè)經(jīng)營的重要組成部分，它可以體現(xiàn)一個(gè)企業(yè)的經(jīng)營情況和效益。企業(yè)銷售合同管理系統(tǒng)可以有效地提高企業(yè)宏觀控制和經(jīng)營管理的質(zhì)量，使企業(yè)現(xiàn)代化管理的重要組成部分。本課程設(shè)計(jì)是在企業(yè)經(jīng)營和管理領(lǐng)域中應(yīng)用非常廣泛的數(shù)據(jù)庫應(yīng)用系統(tǒng)之一。它既可以作為獨(dú)立的系統(tǒng)使用，也可以作為企業(yè)綜合業(yè)務(wù)管理系統(tǒng)的一個(gè)重要組成部分。本課程設(shè)計(jì)包括產(chǎn)品管理、合同基本信息管理、合同產(chǎn)品管理、合同費(fèi)用管理、合同收賬管理、合同統(tǒng)計(jì)管理等主要功能模塊，比較全面地

8、實(shí)現(xiàn)了企業(yè)銷售合同管理系統(tǒng)的功能。本課程設(shè)計(jì)重點(diǎn)體現(xiàn)了企業(yè)經(jīng)營和管理類系統(tǒng)的實(shí)現(xiàn)方法。其中通過合同費(fèi)用管理和合同收由管理，對(duì)企業(yè)的經(jīng)營活動(dòng)進(jìn)行記錄和控制，動(dòng)態(tài)地反映企業(yè)的經(jīng)營狀況。合同統(tǒng)計(jì)模塊則對(duì)企業(yè)的經(jīng)營狀況進(jìn)行分析，演示了數(shù)據(jù)庫管理系統(tǒng)中統(tǒng)計(jì)報(bào)表的實(shí)現(xiàn)。二、數(shù)據(jù)庫概念的結(jié)構(gòu)設(shè)計(jì)將需求分析得到的用戶需求抽象為信息結(jié)構(gòu)即概念模型的過程就是概念結(jié)構(gòu)設(shè)計(jì)，概念數(shù)據(jù)模型,主要在系統(tǒng)開發(fā)的數(shù)據(jù)庫設(shè)計(jì)階段使用,是按照用戶的觀點(diǎn)來對(duì)數(shù)據(jù)和信息進(jìn)行建模,利用實(shí)體關(guān)系圖來實(shí)現(xiàn).它描述系統(tǒng)中的各個(gè)實(shí)體以及相關(guān)實(shí)體之間的關(guān)系，是系統(tǒng)特性和靜態(tài)描述.概念結(jié)構(gòu)設(shè)計(jì)是整個(gè)數(shù)據(jù)庫結(jié)構(gòu)設(shè)計(jì)的關(guān)鍵。我所定義的實(shí)體是：產(chǎn)品，合

9、同產(chǎn)品，費(fèi)用，合同信息。三、數(shù)據(jù)庫的邏輯結(jié)構(gòu)設(shè)計(jì)：數(shù)據(jù)庫的邏輯結(jié)構(gòu)設(shè)計(jì)就是把概念結(jié)構(gòu)設(shè)計(jì)階段設(shè)計(jì)好的基本 E -R 圖轉(zhuǎn)換為與選用的 DBMS產(chǎn)品所支持的數(shù)據(jù)模型相符合的邏輯結(jié)構(gòu)。將概念轉(zhuǎn)化為SQL Sever2000數(shù)據(jù)庫系統(tǒng)。產(chǎn)品信息表包含的數(shù)據(jù)項(xiàng)有產(chǎn)品編號(hào)，產(chǎn)品名稱，產(chǎn)品商標(biāo)，產(chǎn)品型號(hào)，產(chǎn)品單位。合同費(fèi)用信息表包含的數(shù)據(jù)項(xiàng)有憑單號(hào)，合同編號(hào)，費(fèi)用類別，費(fèi)用金額，收款人姓名，經(jīng)辦人姓名，發(fā)生日期，備注。合同收賬信息表包含的數(shù)據(jù)項(xiàng)有發(fā)票編號(hào)，合同編號(hào)，發(fā)票類型，收賬金額，經(jīng)辦人姓名，發(fā)生日期，備注。合同產(chǎn)品信息表包含的數(shù)據(jù)項(xiàng)有合同編號(hào)，產(chǎn)品編號(hào)，產(chǎn)品單價(jià)，產(chǎn)品數(shù)量，訂購單位，交貨日期，備注信

10、息。合同信息表包含的數(shù)據(jù)項(xiàng)有合同編號(hào)，客戶單位名稱，合同簽訂日期，合同狀態(tài)，負(fù)責(zé)人姓名，交貨方式，交貨日期，結(jié)算方式，有效期限，合同內(nèi)容，附加信息。四、數(shù)據(jù)字典（DD）:產(chǎn)品信息表=產(chǎn)品編號(hào)+產(chǎn)品名稱+產(chǎn)品商標(biāo)+產(chǎn)品型號(hào)+產(chǎn)品單位合同費(fèi)用信息表=憑單號(hào)+合同編號(hào)+費(fèi)用類別+費(fèi)用金額+收款人姓名+經(jīng)辦人姓名+發(fā)生日期+備注合同收賬信息表=發(fā)票編號(hào)+合同編號(hào)+發(fā)票類型+收賬金額+經(jīng)辦人姓名+發(fā)生日期+備注合同產(chǎn)品信息表=合同編號(hào)+產(chǎn)品編號(hào)+產(chǎn)品單價(jià)+產(chǎn)品數(shù)量+訂購單位+交貨日期+備注信息合同信息表=合同編號(hào)+客戶單位名稱+合同簽訂日期+合同狀態(tài)+負(fù)責(zé)人姓名+交貨方式+交貨日期+結(jié)算方式+有效期限+

11、合同內(nèi)容+附加信息五、程序流程圖：D2事物登錄信息密碼用戶名用戶P1.1接受事務(wù)D1P1.2處理事務(wù)P1.3退出登錄系統(tǒng)界面登錄信息用戶管理圖3.1 登陸模塊數(shù)據(jù)流圖D3產(chǎn)品信息用戶查詢產(chǎn)品管理信息P2.1查詢費(fèi)用管理信息P2.2接受事務(wù)P2.3處理事務(wù)P2.4產(chǎn)品基本信息Cost信息表D3產(chǎn)品圖3.2 產(chǎn)品信息模塊流程圖六、功能結(jié)構(gòu)圖：企業(yè)銷售合同管理系統(tǒng)產(chǎn)品信息管理合同費(fèi)用管理合同收賬管理合同信息管理合同統(tǒng)計(jì)管理系統(tǒng)用戶管理修改產(chǎn)品信息刪除產(chǎn)品信息添加合同費(fèi)用修改合同費(fèi)用添加合同收賬修改合同收賬添加銷售合同修改合同信息合同成本利潤月統(tǒng)計(jì)合同成本利潤年統(tǒng)計(jì)添加用戶信息刪除用戶信息添加產(chǎn)品信息

12、修改用戶信息圖 3.3 銷售合同管理系統(tǒng)功能模塊示意圖第四章 數(shù)據(jù)庫設(shè)計(jì)一、概念設(shè)計(jì)： 1. 實(shí)體與實(shí)體之間關(guān)系E-R圖，如圖所示。圖 4.1各實(shí)體關(guān)系總E-R圖2. 單個(gè)實(shí)體E-R圖在開發(fā)企業(yè)銷售合同管理系統(tǒng)時(shí)，得先進(jìn)行E-R圖分析。根據(jù)對(duì)數(shù)據(jù)項(xiàng)與數(shù)據(jù)結(jié)構(gòu)的分析以及設(shè)計(jì)規(guī)劃得出的實(shí)體有：產(chǎn)品實(shí)體、合同產(chǎn)品實(shí)體、合同費(fèi)用實(shí)體、合同信息實(shí)體、合同收賬實(shí)體。E-R圖，如圖所示。產(chǎn)品信息產(chǎn)品商標(biāo)產(chǎn)品編號(hào)計(jì)量單位產(chǎn)品型號(hào)產(chǎn)品名稱圖 4.2 產(chǎn)品信息實(shí)體屬性圖合同費(fèi)用信息費(fèi)用類別憑單號(hào)費(fèi)用金額合同編號(hào)圖4.3 合同費(fèi)用信息實(shí)體屬性圖合同收賬信息發(fā)票類型發(fā)票編號(hào)收賬金額合同編號(hào)圖 4.4 合同收賬信息實(shí)體

13、屬性圖合同產(chǎn)品信息產(chǎn)品單價(jià)合同編號(hào)產(chǎn)品數(shù)量產(chǎn)品編號(hào)圖 4.5 合同產(chǎn)品信息實(shí)體屬性圖合同信息合同狀態(tài)合同編號(hào)交貨方式交貨日期圖 4.6 合同信息實(shí)體屬性圖二、邏輯設(shè)計(jì)：1.產(chǎn)品信息表：產(chǎn)品信息表Product用來保存產(chǎn)品信息，它的結(jié)構(gòu)如表4.1所示。表4.1Produce的結(jié)構(gòu)表編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說明1ProldVarchar50產(chǎn)品編號(hào)2ProNameVarchar50產(chǎn)品名稱3ProMarkVarchar50產(chǎn)品商標(biāo)4ProStyleVarchar50產(chǎn)品型號(hào)5ProUnitVarchar50 計(jì)量單位2.合同費(fèi)用信息表Cost合同費(fèi)用信息表Cost用來保存合同費(fèi)用信息，表Cost的結(jié)構(gòu)

14、如圖4.2所示。表4.2 Cost的結(jié)構(gòu)表編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說明1CostldVarchar50憑單號(hào)2ContractldVarchar50合同編號(hào)3CostTypeVarchar20費(fèi)用類別（采購成本、服務(wù)費(fèi)、其他）4DdtailVarchar50當(dāng)費(fèi)用類別選擇“其他”時(shí)，使用Detail字段來描述?？梢允腔疖嚻薄w機(jī)票、出租車費(fèi)、住宿費(fèi)、差旅費(fèi)等，也可以手動(dòng)錄入5AmountDecimal 15,2費(fèi)用金額6ReceiverVarchar30收款人姓名7CashierVarchar30經(jīng)辦人姓名8CostDateVarchar10發(fā)生日期9MemoVarchar200備注3.合同收賬信

15、息表Income合同收賬信息表Income用來保存合同收賬信息。表Income的結(jié)構(gòu)如圖4.3所示。表4.3 Income的結(jié)構(gòu)表編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說明1ReceiptldVarchar50發(fā)票編號(hào)2ContractldVarchar50合同編號(hào)3ReceiptTypeVarchar20發(fā)票類型（增值稅、服務(wù)費(fèi)）4AmountDecimal 15,2收賬金額5CashierVarchar30經(jīng)辦人姓名6IncomeDateVarchar10發(fā)生日期7MemoVarchar200備注4.合同產(chǎn)品信息表ConProduct合同產(chǎn)品信息表ConProduct用來保存銷售合同中涉及產(chǎn)品信息。結(jié)構(gòu)如表

16、4.4所示。表4.4 ConProduct的結(jié)構(gòu)表編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說明1ContractldVarchar50合同編號(hào)2proldVarchar50產(chǎn)品編號(hào)3UnitPriceDecimal 15,2產(chǎn)品單價(jià)4QuantityInt產(chǎn)品數(shù)量5OrderOrgVarchar100訂購單位6DeliveryDateVarchar10交貨日期7MemoVarchar200備注信息5.合同信息表Conteact合同信息表Conteact用來保存銷售合同的基本信息。結(jié)構(gòu)如表4.5所示。表4.5 Conteact的結(jié)構(gòu)表編號(hào)字段名稱數(shù)據(jù)結(jié)構(gòu)說明1ContractldVarchar50合同編號(hào)2Clie

17、ntVarchar100客戶單位名稱3SignDateVarchar10合同簽訂日期4StatusTinyInt合同狀態(tài)（1-簽訂合同，2-實(shí)施合同，3-完成合同）5EmpNameVarchar50負(fù)責(zé)人姓名6DeliveryWayVarchar50交貨方式7DeliveryDateVarchar10交貨日期8SettleWayTinyInt結(jié)算方式（1-支票，2-現(xiàn)金，3-簽單，4-匯款）9LadtDayVarchar10有效期限10ContentsVarchar500合同內(nèi)容11AdditionalVarchar500附加信息三、物理設(shè)計(jì)1.創(chuàng)建索引1）為Produce表創(chuàng)建一個(gè)以Prol

18、d為索引關(guān)鍵字的惟一聚簇索引。2）為Cost表創(chuàng)建一個(gè)以Costld為索引關(guān)鍵字的惟一聚簇索引。3）為Income表創(chuàng)建一個(gè)以Receiptld為索引關(guān)鍵字的惟一聚簇索引。4）為ConProduct表創(chuàng)建一個(gè)以Contractld為索引關(guān)鍵字的惟一聚簇索引。5）為Conteact表創(chuàng)建一個(gè)以Contractld為索引關(guān)鍵字的惟一聚簇索引。2.物理位置學(xué)生信息管理系統(tǒng)數(shù)據(jù)庫的數(shù)據(jù)文件安排如下：數(shù)據(jù)文件儲(chǔ)存的位置：e:officeMSSQLdata ContractSys_Data.MDF，將數(shù)據(jù)文件的初始大小設(shè)為20MB，文件增長方式設(shè)為自動(dòng)增長，文件增長增量設(shè)為5MB,文件的增長上限設(shè)為500

19、MB。事務(wù)日志存儲(chǔ)的位置：e:officeMSSQLdata ContractSys _Log.LDF，將日志文件的初始大小設(shè)為20MB，文件增長量設(shè)為1MB，文件增長限制設(shè)為100MB。Microsoft SQL Server 2000提供了多種API,它使得其他應(yīng)用程序訪問數(shù)據(jù)庫資源，這些API被稱為數(shù)據(jù)庫訪問API.數(shù)據(jù)庫訪問API允許應(yīng)用程序執(zhí)行一段T-SQL語句來訪問一個(gè)關(guān)系數(shù)據(jù)庫的數(shù)據(jù)。這些API有：ADO,OLE,DB,ODBC,嵌入式SQL和DB-Libray等。本程序主要運(yùn)用ADO數(shù)據(jù)訪問接口，此接口使得程序設(shè)計(jì)者只要簡(jiǎn)單的創(chuàng)建幾個(gè)對(duì)象便可以連接數(shù)據(jù)來源，獲取所需的數(shù)據(jù)和進(jìn)行

20、數(shù)據(jù)訪問后的保存操作。ADO對(duì)象模型定義了一個(gè)可編程的分層對(duì)象集合，主要由三個(gè)成員：Connection對(duì)象，Command對(duì)象和Recordest對(duì)象以及其它的集合對(duì)象。ADO提供以執(zhí)行以下的操作方式：（1）接到數(shù)據(jù)源。（2）指定訪問數(shù)據(jù)遠(yuǎn)的命令，同時(shí)可帶變量參數(shù)或優(yōu)化執(zhí)行。（3）執(zhí)行命令，例如一個(gè)SELECT腳本。（4）如果這個(gè)命令使數(shù)據(jù)按表中行的形式返回，則將這些行存儲(chǔ)在易于檢查，操作或更改的緩存中。（5）適當(dāng)情況下，可以把緩存的更改內(nèi)容寫回?cái)?shù)據(jù)庫中，更新數(shù)據(jù)源。（6）提供常規(guī)方法檢測(cè)錯(cuò)誤，設(shè)計(jì)ADO的Error對(duì)象。第五章 界面設(shè)計(jì)1.登陸模塊設(shè)計(jì)用戶要使用本系統(tǒng)，首先要通過系統(tǒng)的身份

21、認(rèn)證，也就是登陸。登陸過程需要完成一下任務(wù)：（1）根據(jù)用戶名和密碼來判斷是否可能進(jìn)入系統(tǒng)；（2）根據(jù)用戶類型決定用戶擁有的權(quán)限。登陸模塊如圖5.1所示：圖 5.1 登陸模塊圖登陸后首頁如圖5.2所示：圖 5.2 企業(yè)銷售合同管理首頁圖2.合同管理模塊設(shè)計(jì)合同管理模塊是本系統(tǒng)的核心部分，可以實(shí)現(xiàn)一下功能：（1）創(chuàng)建合同；（2）修改合同；（3）改變合同狀態(tài)；（4）查看合同內(nèi)容。合同管理模塊如圖5.3所示：圖 5.3 合同管理模塊圖3.合同收賬管理模塊設(shè)計(jì)合同收賬管理模塊可以實(shí)現(xiàn)一下功能：（1）添加合同收賬信息；（2）修改合同收賬信息；（3）查看合同收賬信息。合同收賬管理模塊如圖5.4所示：圖 5.

22、4 合同收賬管理模塊圖第六章 代碼與注釋一、登錄代碼Private Sub Cmd_OK_Click() Dim j As Single'數(shù)據(jù)有效性檢查 If txtUser = "" Then MsgBox "請(qǐng)輸入用戶名" txtUser.SetFocus Exit Sub End If If txtPwd = "" Then MsgBox "請(qǐng)輸入密碼" txtPwd.SetFocus Exit Sub End If NameKey = MakeStr(txtUser) PasswordKey = M

23、akeStr(txtPwd)'判斷用戶是否存在 If MyUser.In_DB(NameKey) = False Then MsgBox "用戶名不存在" Try_times = Try_times + 1 If Try_times >= 3 Then MsgBox "您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉" DBapi_Disconnect End Else Exit Sub End If End If'判斷密碼是否正確 If MyUser.GetPwd(NameKey) <> PasswordKey Then

24、 MsgBox "密碼錯(cuò)誤" Try_times = Try_times + 1 If Try_times >= 3 Then MsgBox "您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉" DBapi_Disconnect End Else Exit Sub End If End If CurUser.UserName = MyUser.UserName'關(guān)閉自己 Unload MeEnd Sub二、主界面代碼Private Sub Cmd_Save_Click() Dim TmpId As String If Trim(txtId)

25、= "" Then MsgBox "請(qǐng)輸入合同編號(hào)" Exit Sub End If If Trim(txtClient) = "" Then MsgBox "請(qǐng)輸入客戶單位" Exit Sub End If If ComboSignDate.Text = "" Then MsgBox "請(qǐng)輸入簽約日期" Exit Sub End If TmpId = MakeStr(txtId) '判斷產(chǎn)品編號(hào)是否已經(jīng)存在 If Modify = False Or OriId &l

26、t;> Trim(txtId) Then If MyContract.In_DB(TmpId) = True Then MsgBox "合同編號(hào)“" + Trim(txtId) + "”已經(jīng)存在，請(qǐng)重新輸入" txtId.SetFocus txtId.SelStart = 0 txtId.SelLength = Len(txtId) Exit Sub End If End If With MyContract .ContractId = TmpId .Client = MakeStr(txtClient) '規(guī)范日期格式 .SignDate

27、 = Format(ComboSignDate.Text, "yyyy-mm-dd") .EmpName = MakeStr(txtEmpName) .DeliveryWay = MakeStr(txtDeliveryWay) .DeliveryDate = Format(ComboDeliveryDate.Text, "yyyy-mm-dd") .SettleWay = ComboSettle.ListIndex + 1 .LastDay = Format(ComboLastDay.Text, "yyyy-mm-dd") .Cont

28、ents = MakeStr(txtContents) .Additional = MakeStr(txtAdditional) If Modify = False Then .Status = 1 .Insert Modify = True OriId = .ContractId Else .Update (OriId) End If End With MsgBox "合同保存完成"End SubPrivate Sub ComboDeliveryDate_GotFocus() '將焦點(diǎn)設(shè)置為下一個(gè)控件，否則將反復(fù)執(zhí)行此過程 txtDeliveryWay.SetFo

29、cus '如果ComboDeliveryDate中包含日期，則將它賦值到FrmDateSel中 If ComboDeliveryDate.Text <> "" Then FrmDateSel.OriDate = ComboDeliveryDate.Text End If '設(shè)置FrmDateSel窗體的位置 FrmDateSel.Left = Me.Left + ComboDeliveryDate.Left + 350 FrmDateSel.Top = Me.Top + ComboDeliveryDate.Top + ComboDeliveryD

30、ate.Height + 450 FrmDateSel.Show 1 '將選擇的日期顯示到ComboDeliveryDate控件中 ComboDeliveryDate.Text = FrmDateSel.OriDateEnd SubPrivate Sub ComboLastDay_GotFocus() '將焦點(diǎn)設(shè)置為下一個(gè)控件，否則將反復(fù)執(zhí)行此過程 ComboSettle.SetFocus '如果ComboLastDay中包含日期，則將它賦值到FrmDateSel中 If ComboLastDay.Text <> "" Then FrmD

31、ateSel.OriDate = ComboLastDay.Text End If '設(shè)置FrmDateSel窗體的位置 FrmDateSel.Left = Me.Left + ComboLastDay.Left + 350 - FrmDateSel.Width FrmDateSel.Top = Me.Top + ComboLastDay.Top + ComboLastDay.Height + 450 FrmDateSel.Show 1 '將選擇的日期顯示到ComboLastDay控件中 ComboLastDay.Text = FrmDateSel.OriDateEnd Sub

32、Private Sub ComboSignDate_GotFocus() '將焦點(diǎn)設(shè)置為下一個(gè)控件，否則將反復(fù)執(zhí)行此過程 ComboSettle.SetFocus '如果ComboSignDate中包含日期，則將它賦值到FrmDateSel中 If ComboSignDate.Text <> "" Then FrmDateSel.OriDate = ComboSignDate.Text End If '設(shè)置FrmDateSel窗體的位置 FrmDateSel.Left = Me.Left + ComboSignDate.Left + 35

33、0 FrmDateSel.Top = Me.Top + ComboSignDate.Top + ComboSignDate.Height + 450 FrmDateSel.Show 1 '將選擇的日期顯示到ComboSignDate控件中 ComboSignDate.Text = FrmDateSel.OriDateEnd Sub三、合同收賬管理模塊代碼Private Sub Cmd_OK_Click() Dim TmpId As String If Trim(txtCostId) = "" Then MsgBox "請(qǐng)輸入憑單號(hào)" txtCos

34、tId.SetFocus Exit Sub End If If Val(txtAmount) < 0 Then MsgBox "費(fèi)用應(yīng)大于0" txtAmount.SetFocus Exit Sub End If If Trim(txtReceive) = "" Then MsgBox "請(qǐng)輸入收款人" txtReceive.SetFocus Exit Sub End If If Trim(txtCashier) = "" Then MsgBox "請(qǐng)輸入經(jīng)辦人" txtCashier.S

35、etFocus Exit Sub End If If ComboDate.Text = "" Then MsgBox "請(qǐng)輸入發(fā)生日期" ComboDate.SetFocus Exit Sub End If TmpId = TrimStr(txtCostId.Text) '判斷憑單號(hào)是否已經(jīng)存在 If Modify = False Or OriId <> TmpId Then If MyCost.In_DB(TmpId) = True Then MsgBox "憑單號(hào) - " + TmpId + " - 已經(jīng)存在，請(qǐng)重新輸入" txtCostId.SetFocus Exit Sub End If End If With MyCost .ContractId = MyContract.ContractId .CostId = MakeStr(txtCostId) .CostType = ComboT