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

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

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

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

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

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

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

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

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

9、體 是：產(chǎn)品，合同產(chǎn)品，費(fèi)用，合同信息。三、數(shù)據(jù)庫(kù)的邏輯結(jié)構(gòu)設(shè)計(jì)：數(shù)據(jù)庫(kù)的邏輯結(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ù)庫(kù)系統(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)用類(lèi)別，費(fèi)用金額，收款人 姓名，經(jīng)辦人姓名，發(fā)生日期，備注。合同收賬信息表 包含的數(shù)據(jù)項(xiàng)有發(fā)票編號(hào)，合同編號(hào)，發(fā)票類(lèi)型，收賬金額，經(jīng)辦 人姓名，發(fā)生日期，備注。合同產(chǎn)品信息表 包含的數(shù)據(jù)項(xiàng)有合同編號(hào)，產(chǎn)品編號(hào)，產(chǎn)品單價(jià)，產(chǎn)品數(shù)量，訂

10、購(gòu) 單位，交貨日期，備注信息。合同信息表包含的數(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)用類(lèi)別+費(fèi)用金額+收款人姓名+經(jīng)辦人姓名+ 發(fā)生日期+備注合同收賬信息表=發(fā)票編號(hào)+合同編號(hào)+發(fā)票類(lèi)型+收賬金額+經(jīng)辦人姓名+發(fā)生日期+ 備注合同產(chǎn)品信息表=合同編號(hào)+產(chǎn)品編號(hào)+產(chǎn)品單價(jià)+產(chǎn)品數(shù)量+訂購(gòu)單位+交貨日期+備 注信息合同信息表=合同編號(hào)+客戶單位名稱+合同簽訂日期+合同狀態(tài)+負(fù)責(zé)人姓名+交貨 方

11、式+交貨日期+結(jié)算方式+有效期限+合同內(nèi)容+附加信息五、程序流程圖:圖3.1登陸模塊數(shù)據(jù)流圖八、圖3.2產(chǎn)品信息模塊流程圖功能結(jié)構(gòu)圖:企業(yè)銷(xiāo)售合同管理系統(tǒng)同信息合同成本利佳威維和合同統(tǒng)計(jì)管理系統(tǒng)月戶管理合同收賬管理合同信息管理理添加用呵周娜飆戶信息圖3.3銷(xiāo)售合同管理系統(tǒng)功能模塊示意圖第四章數(shù)據(jù)庫(kù)設(shè)計(jì)、概念設(shè)計(jì)：1 .實(shí)體與實(shí)體之間關(guān)系E-R圖，如圖所示。用戶信口圖4.1各實(shí)體關(guān)系總E-R圖2 . 單個(gè)實(shí)體E-R圖在開(kāi)發(fā)企業(yè)銷(xiāo)售 合同管理系統(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í)體、合同圖4.6合同信息實(shí)體屬性圖二

12、、邏輯設(shè)計(jì)：1 .產(chǎn)品信息表:產(chǎn)品信息表Product用來(lái)保存產(chǎn)品信息，它的結(jié)構(gòu)如表4.1所示表4.1Produce的結(jié)構(gòu)表編R字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō)明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用來(lái)保存合同費(fèi)用信息，表Cost的結(jié)構(gòu)如圖4.2所示表4.2 C ost的結(jié)構(gòu)表編p字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō)明1CostldVarchar50憑單號(hào)2ContractldVarchar50合同編號(hào)3C

13、ostTypeVarchar20費(fèi)用類(lèi)別（米購(gòu)成 本、服務(wù)費(fèi)、其他）4DdtailVarchar50當(dāng)費(fèi)用類(lèi)別選擇“其他”時(shí)，使用 Detail字段來(lái)描述?？梢允腔疖?chē)票、 飛機(jī)票、出租車(chē)費(fèi)、住宿費(fèi)、差旅費(fèi)等，也可以手動(dòng)錄入5AmountDecimal 15,2費(fèi)用金額6ReceiverVarchar30收款人姓名7CashierVarchar30經(jīng)辦人姓名8CostDateVarchar10發(fā)生日期9MemoVarchar200備注3 .合同收賬信息表Income合同收賬信息表Income用來(lái)保存合同收賬信息。表Income的結(jié)構(gòu)如圖4.3所示。表4.3 Income的結(jié)構(gòu)表編R字段名稱數(shù)據(jù)結(jié)

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

15、r50產(chǎn)品編號(hào)3UnitPriceDecimal 15,2產(chǎn)品單價(jià)4QuantityInt產(chǎn)品數(shù)量5OrderOrgVarchar100訂購(gòu)單位6DeliveryDateVarchar10交貨日期7MemoVarchar200備注信息5 .合同信息表Conteact合同信息表Conteact用來(lái)保存銷(xiāo)售合同的基本信息。結(jié)構(gòu)如表 4.5所示表4.5 Conteact的結(jié)構(gòu)表編R字段名稱數(shù)據(jù)結(jié)構(gòu)說(shuō)明1ContractldVarchar50合同編號(hào)2ClientVarchar100客戶單位名稱3SignDateVarchar10合同簽訂日期4StatusTinyInt合同狀態(tài)（1-簽訂合同，2-實(shí)施

16、合同，3-完成合同）5EmpNameVarchar50負(fù)責(zé)人姓名6DeliveryWayVarchar50交貨方式7DeliveryDateVarchar10交貨日期8SettleWayTinyInt結(jié)算方式（1-支票，2-現(xiàn)金，3-簽單，4-匯款）9LadtDayVarchar10有效期限10ContentsVarchar500合同內(nèi)容11AdditionalVarchar500附加信息9物理設(shè)計(jì)1 .創(chuàng)建索引1)為Produce表創(chuàng)建一個(gè)以Prold為索引關(guān)鍵字的惟一聚簇索引。2)為Cost表創(chuàng)建一個(gè)以Costld為索引關(guān)鍵字的惟一聚簇索引。3)為Income表創(chuàng)建一個(gè)以Receiptld

17、為索引關(guān)鍵字的惟一聚簇索引。4)為ConProduct表創(chuàng)建一個(gè)以Contractld為索引關(guān)鍵字的惟一聚簇索引。5)為Conteact表創(chuàng)建一個(gè)以Contractld為索引關(guān)鍵字的惟一聚簇索引。2 .物理位置學(xué)生信息管理系統(tǒng)數(shù)據(jù)庫(kù)的數(shù)據(jù)文件安排如下：數(shù)據(jù)文件儲(chǔ)存的位置：ContractSys_Data.MDF,將數(shù)據(jù)文件的初始大小設(shè)為20MB,文件增長(zhǎng)方式設(shè)為自動(dòng)增長(zhǎng)，文件增長(zhǎng)增量設(shè)為5MB,文件的增長(zhǎng)上限設(shè)為500MB o事務(wù)日志存儲(chǔ)的 位置：ContractSys_Log.LDF ,將日志文件的初始大小設(shè)為20MB,文件增長(zhǎng)量設(shè)為1MB,文件增長(zhǎng)限制設(shè)為100MB。Microsoft S

18、QL Server 2000提供了多種API,它使得其他應(yīng)用程序訪問(wèn)數(shù)據(jù)庫(kù)資源， 這些API被稱為數(shù)據(jù)庫(kù)訪問(wèn)API.數(shù)據(jù)庫(kù)訪問(wèn)API允許應(yīng)用程序執(zhí)行一段 T-SQL語(yǔ)句來(lái) 訪問(wèn)一個(gè)關(guān)系數(shù) 據(jù)庫(kù)的數(shù)據(jù)。這些 API有：ADO,OLE,DB,ODBC,嵌入式SQL和DB- Libray 等。本程序主要運(yùn)用ADO數(shù)據(jù)訪問(wèn)接口，此接口使得程序設(shè)計(jì)者只要簡(jiǎn)單的創(chuàng)建幾個(gè) 對(duì)象便可以連接 數(shù)據(jù)來(lái)源，獲取所需的數(shù)據(jù)和進(jìn)行數(shù)據(jù)訪問(wèn)后的保存操作。ADO對(duì)象模型定義了一個(gè) 可編程的分層對(duì)象集合，主要由三個(gè)成員： Connection對(duì)象，Command 對(duì)象和Recordest對(duì)象以及其它的集合對(duì)象。ADO提供以執(zhí)

19、行以下的操作方式：(1)接到數(shù)據(jù)源。(2)指定訪問(wèn)數(shù)據(jù)遠(yuǎn) 的命令，同時(shí)可帶變量參數(shù)或優(yōu)化執(zhí)行。(3)執(zhí)行命令，例如一個(gè)SELECT腳本。(4)如果這個(gè)命令使數(shù)據(jù)按表中行的形式返回，則將這些行存儲(chǔ)在易于檢查，操作或更改的緩存中。(5)適當(dāng)情況下，可 以把緩存的更改內(nèi)容寫(xiě)回?cái)?shù)據(jù)庫(kù)中，更新數(shù)據(jù)源。(6)提供常規(guī)方法檢測(cè)錯(cuò)誤，設(shè)計(jì)ADO的Error對(duì)象。第五章界面設(shè)計(jì)1.登陸模塊設(shè)計(jì)用戶要使用本系統(tǒng)，首先要通過(guò)系統(tǒng)的身份認(rèn)證，也就是登陸。登陸過(guò)程需要完成 一下任務(wù)：(1)根據(jù)用戶名和密 碼來(lái)判斷是否可能進(jìn)入系統(tǒng);(2)根據(jù)用戶類(lèi)型決定用戶擁有的權(quán)限。登陸模塊如圖5.1所示：圖5.1登陸模塊圖登陸后首頁(yè)

20、如圖5.2所示：圖5.2企業(yè)銷(xiāo)售合同管理首頁(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.4合同收賬管理模塊圖第六章代碼與注釋、代碼Private Sub Cmd_OK_Click()Dim j As Single數(shù)據(jù)有效性檢查If txtUser = "&quo

21、t; ThenMsgBox ”請(qǐng)輸入用戶名”txtUser.SetFocusExit SubEnd IfIf txtPwd = "" ThenMsgBox "請(qǐng)輸入密碼”txtPwd.SetFocusExit SubEnd IfNameKey = MakeStr(txtUser)PasswordKey = MakeStr(txtPwd)判斷用戶是否存在If MyUser.In_DB(NameKey) = False ThenMsgBox ”用戶名不存在"Try_times = Try_times + 1If Try_times >= 3 Then關(guān)

22、閉”MsgBox "您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將DBapi_DisconnectEndElseExit SubEnd IfEnd If'判斷密碼是否正確If MyUser.GetPwd(NameKey) <> PasswordKey ThenMsgBox "密碼錯(cuò)誤"Try_times = Try_times + 1If Try_times >= 3 Then關(guān)閉”MsgBox "您已經(jīng)三次嘗試進(jìn)入本系統(tǒng)，均不成功，系統(tǒng)將DBapi_DisconnectEndElseExit SubEnd IfEnd IfCurU

23、ser.UserName = MyUser.UserName'關(guān)閉自己Unload MeEnd Sub、主界面代碼Private Sub Cmd_Save_Click()Dim TmpId As StringIf Trim(txtId) = "" ThenMsgBox "請(qǐng)輸入合同編號(hào)”Exit SubEnd IfIf Trim(txtClient) = "" ThenMsgBox ”請(qǐng)輸入客戶單位"Exit SubEnd IfIf ComboSignDate.Text = "" ThenMsgBox ”請(qǐng)

24、輸入簽約日期"Exit SubEnd IfTmpId = MakeStr(txtld)判斷產(chǎn)品編號(hào)是否已經(jīng)存在If Modify = False Or Orild <> Trim(txtld) ThenIf MyContract.In_DB(TmpId) = True ThenMsgBox ”合同編號(hào)" "+ Trim(txtId) + "”已經(jīng)存在，請(qǐng)重新輸 入"txtId.SetFocustxtId.SelStart = 0txtId.SelLength = Len(txtId)Exit SubEnd IfEnd IfWith

25、MyContract.ContractId = TmpId.Client = MakeStr(txtClient)規(guī)范日期格式.SignDate = Format(ComboSignDate.Text, "yyyy-mm-dd").EmpName = MakeStr(txtEmpName).DeliveryWay = MakeStr(txtDeliveryWay).DeliveryDate = Format(ComboDeliveryDate.Text, "yyyy-mm-dd") .SettleWay = ComboSettle.ListIndex +

26、 1.LastDay = Format(ComboLastDay.Text, "yyyy-mm-dd").Contents = MakeStr(txtContents).Additional = MakeStr(txtAdditional)If Modify = False Then.Status = 1.InsertModify = TrueOriId = .ContractIdElse.Update (Orild)End IfEnd WithMsgBox "合同保存完成"End SubPrivate Sub ComboDeliveryDate_Got

27、Focus()將焦點(diǎn)設(shè)置為下一個(gè)控件，否則將反復(fù)執(zhí)行此過(guò)程txtDeliveryWay.SetFocus'如果 ComboDeliveryDate中包含日期，則將它賦值到 FrmDateSel中If ComboDeliveryDate.Text <> "" ThenFrmDateSel.OriDate = ComboDeliveryDate.TextEnd If設(shè)置FrmDateSel窗體的位置FrmDateSel.Left = Me.Left + ComboDeliveryDate.Left + 350FrmDateSel.Top = Me.Top +

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

29、"" ThenFrmDateSel.OriDate = ComboLastDay.TextEnd If設(shè)置FrmDateSel窗體的位置FrmDateSel.Left = Me.Left + ComboLastDay.Left + 350 - FrmDateSel.WidthFrmDateSel.Top = Me.Top + ComboLastDay.Top + ComboLastDay.Height + 450FrmDateSel.Show 1'將選擇的日期顯示到ComboLastDay控件中ComboLastDay.Text = FrmDateSel.OriDa

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

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

32、cusExit SubEnd IfIf Val(txtAmount) < 0 ThenMsgBox ”費(fèi)用應(yīng)大于0"txtAmount.SetFocusExit SubEnd IfIf Trim(txtReceive) = "" ThenMsgBox ”請(qǐng)輸入收款人”txtReceive.SetFocusExit SubEnd IfIf Trim(txtCashier) = "" ThenMsgBox ”請(qǐng)輸入經(jīng)辦人”txtCashier.SetFocusExit SubEnd IfIf ComboDate.Text = "&q

33、uot; ThenMsgBox "請(qǐng)輸入發(fā)生日期"ComboDate.SetFocusExit SubEnd IfTmpId = TrimStr(txtCostId.Text)判斷憑單號(hào)是否已經(jīng)存在If Modify = False Or OriId <> TmpId ThenIf MyCost.In_DB(TmpId) = True ThenMsgBox "憑單號(hào)-"+ TmpId + "-已經(jīng)存在，請(qǐng)重新輸入txtCostId.SetFocusExit SubEnd IfEnd IfWith MyCost.ContractId = MyContract.ContractId.CostId = MakeStr(txtCostId).CostType = ComboType.TextIf ComboDetail.Visible = True Then.Detail = MakeStr(Combo