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

1、X X X X大學(xué)數(shù)據(jù)庫應(yīng)用技術(shù)課 程設(shè)計 說明書題目企業(yè)銷售合同管理系統(tǒng)學(xué)院（系）：專業(yè)班級：學(xué) 號：學(xué)生姓名：指導(dǎo)教師：教師職稱：起止時間：XXXX大學(xué)課程設(shè)計（論文）任務(wù)書院（系）：教研室:學(xué)號學(xué)生姓名專業(yè)班級設(shè)計題目企業(yè)銷售合同管理系統(tǒng)設(shè)計技術(shù) 參數(shù)1. 題目要達到的目標：完成系統(tǒng)的登陸、數(shù)據(jù)的插入刪除修改統(tǒng)計等基本操作。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è) 計 要 求1 .教師布置實習(xí)任務(wù)和要求時，不得缺席，并做好記

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

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

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

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

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

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

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

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

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

11、+合同簽訂日期+合同狀態(tài)+負責(zé)人姓名+交貨方式+交貨日期+結(jié)算方式+有效期限+合同內(nèi)容+附加信息五、程序流程圖：圖3.1登陸模塊數(shù)據(jù)流圖圖3.2產(chǎn)品信息模塊流程圖六、功能結(jié)構(gòu)圖：企業(yè)銷售合同管理系統(tǒng)圖3.3銷售合同管理系統(tǒng)功能模塊示意圖 第四章數(shù)據(jù)庫設(shè)計、概念設(shè)計：1. 實體與實體之間關(guān)系E-R圖，如圖所示。2.在開發(fā)企業(yè)銷售合同管理系統(tǒng)時，得先進行E-R圖分析。根據(jù)對數(shù)據(jù)項與數(shù)據(jù)結(jié)構(gòu) 的分析以及設(shè)計規(guī)劃得出的實體有：產(chǎn)品實體、合同產(chǎn)品實體、合同費用實體、合同信 息實體、合同收賬實體。E-R圖，如圖所示產(chǎn)品信息圖4.2產(chǎn)品信息實體屬性圖圖4.6合同信息實體屬性圖、邏輯設(shè)計：1. 產(chǎn)品信息表：產(chǎn)

12、品信息表Product用來保存產(chǎn)品信息，它的結(jié)構(gòu)如表 4.1所示。表4.1Produce的結(jié)構(gòu)表編號字段名稱數(shù)據(jù)結(jié)構(gòu)說明1ProldVarchar50產(chǎn)品編號2ProNameVarchar50產(chǎn)品名稱3ProMarkVarchar50產(chǎn)品商標4ProStyleVarchar50產(chǎn)品型號5ProUnitVarchar50計量單位2. 合同費用信息表Cost合同費用信息表Cost用來保存合同費用信息，表 Cost的結(jié)構(gòu)如圖4.2所示表4.2 Cost的結(jié)構(gòu)表編號字段名稱數(shù)據(jù)結(jié)構(gòu)說明1CostldVarchar50憑單號2Con tractldVarchar50合同編號3CostTypeVarcha

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

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

15、Uni tPriceDecimal 15,2產(chǎn)品單價4Qua ntityInt產(chǎn)品數(shù)量5OrderOrgVarchar100訂購單位6DeliveryDateVarchar10交貨日期7MemoVarchar200備注信息5. 合同信息表Conteact合同信息表Conteact用來保存銷售合同的基本信息。結(jié)構(gòu)如表4.5所示表4.5 Conteact的結(jié)構(gòu)表編號字段名稱數(shù)據(jù)結(jié)構(gòu)說明1Con tractldVarchar50合同編號2Clie ntVarchar100客戶單位名稱3Sig nDateVarchar10合同簽訂日期4StatusTi nyl nt合同狀態(tài)（1-簽訂合同，2錢施合同，

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

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

18、件增長量設(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語句來訪 問一個關(guān)系數(shù)據(jù)庫的數(shù)據(jù)。這些API有：ADO,OLE,DB,ODBC,嵌入式SQL和DB-Libray 等。本程序主要運用ADO數(shù)據(jù)訪問接口，此接口使得程序設(shè)計者只要簡單的創(chuàng)建幾個 對象便可以連接數(shù)據(jù)來源，獲取所需的數(shù)據(jù)和進行數(shù)據(jù)訪問后的保存操作。ADO對象模型定義了一個可編程的分層對象集合，主要由三個成員：Co nn ection對象，Comma nd

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

20、限。登陸模塊如圖5.1所示：-身份聖證_圖5.1登陸模塊圖登陸后首頁如圖5.2所示：2. 合同管理模塊設(shè)計合同管理模塊是本系統(tǒng)的核心部分，可以實現(xiàn)一下功能:（1）創(chuàng)建合同；（2）修改合同；（3）改變合同狀態(tài)；（4）查看合同內(nèi)容。合同管理模塊如圖5.3所示：2009 AJJat>3 T J蛙迫口期: 君戶單位： 臺向伏吉: 血S?人： 結(jié)算方式I 冇訕斯隔12tlLjy-0fi- 5 垃于工業(yè)丈供 完宓芒R1 WnfiPH 直原EMM-12-30沛“II-冷曰時改合冋合冋伏奇圖5.3合同管理模塊圖3. 合同收賬管理模塊設(shè)計合同收賬管理模塊可以實現(xiàn)一下功能：(1) 添加合同收賬信息;(2)

21、修改合同收賬信息;(3) 查看合同收賬信息。合同收賬管理模塊如圖5.4所示:圖5.4合同收賬管理模塊圖第六章 代碼與注釋、登錄代碼Private Sub Cmd_OK_Click()Dim j As Single'數(shù)據(jù)有效性檢查If txtUser = "" ThenMsgBox " 請輸入用戶名 " txtUser.SetFocusExit SubEnd IfIf txtPwd = "" ThenMsgBox " 請輸入密碼 " txtPwd.SetFocusExit SubEnd IfNameKey =

22、 MakeStr(txtUser)PasswordKey = MakeStr(txtPwd)'判斷用戶是否存在If MyUser.In_DB(NameKey) = False ThenMsgBox " 用戶名不存在 "Try_times = Try_times + 1If Try_times >= 3 ThenMsgBox " 您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 DBapi_DisconnectEndElseExit SubEnd IfEnd If'判斷密碼是否正確If MyUser.GetPwd(NameKey) <>

23、; PasswordKey ThenMsgBox " 密碼錯誤 "Try_times = Try_times + 1If Try_times >= 3 ThenMsgBox " 您已經(jīng)三次嘗試進入本系統(tǒng)，均不成功，系統(tǒng)將關(guān)閉 DBapi_DisconnectEndElseExit SubEnd IfEnd IfCurUser.UserName = MyUser.UserName'關(guān)閉自己Unload MeEnd Sub、主界面代碼Private Sub Cmd_Save_Click()Dim TmpId As StringIf Trim(txtId)

24、 = "" ThenMsgBox " 請輸入合同編號 "Exit SubEnd IfIf Trim(txtClient) = "" ThenMsgBox " 請輸入客戶單位 "Exit SubEnd IfIf ComboSignDate.Text = "" ThenMsgBox " 請輸入簽約日期 "Exit SubEnd IfTmpId = MakeStr(txtId)'判斷產(chǎn)品編號是否已經(jīng)存在If Modify = False Or OriId <>

25、Trim(txtId) ThenIf MyContract.In_DB(TmpId) = True ThenMsgBox " 合同編號“ " + Trim(txtId) + " ”已經(jīng)存在，請重新輸入 " txtId.SetFocustxtId.SelStart = 0 txtId.SelLength = Len(txtId)Exit SubEnd IfEnd IfWith MyContract.ContractId = TmpId.Client = MakeStr(txtClient)'規(guī)范日期格式.SignDate = Format(Comb

26、oSignDate.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") .Contents = MakeStr(txtC

27、ontents).Additional = MakeStr(txtAdditional)If Modify = False Then.Status = 1.InsertModify = TrueOriId = .ContractIdElse.Update (OriId)End IfEnd WithMsgBox "合同保存完成 "End SubPrivate Sub ComboDeliveryDate_GotFocus() '將焦點設(shè)置為下一個控件，否則將反復(fù)執(zhí)行此過程 txtDeliveryWay.SetFocus'如果 ComboDeliveryDate

28、中包含日期，則將它賦值到 FrmDateSel 中If ComboDeliveryDate.Text <> "" ThenFrmDateSel.OriDate = ComboDeliveryDate.TextEnd If' 設(shè)置 FrmDateSel 窗體的位置FrmDateSel.Left = Me.Left + ComboDeliveryDate.Left + 350FrmDateSel.Top = Me.Top + ComboDeliveryDate.Top + ComboDeliveryDate.Height + 450 FrmDateSel.S

29、how 1' 將選擇的日期顯示到 ComboDeliveryDate 控件中ComboDeliveryDate.Text = FrmDateSel.OriDateEnd SubPrivate Sub ComboLastDay_GotFocus() '將焦點設(shè)置為下一個控件，否則將反復(fù)執(zhí)行此過程 ComboSettle.SetFocus' 如果 ComboLastDay 中包含日期，則將它賦值到 FrmDateSel 中If ComboLastDay.Text <> "" ThenFrmDateSel.OriDate = ComboLast

30、Day.TextEnd If' 設(shè)置 FrmDateSel 窗體的位置FrmDateSel.Left = Me.Left + ComboLastDay.Left + 350 - FrmDateSel.WidthFrmDateSel.Top = Me.Top + ComboLastDay.Top + ComboLastDay.Height + 450 FrmDateSel.Show 1' 將選擇的日期顯示到 ComboLastDay 控件中ComboLastDay.Text = FrmDateSel.OriDateEnd SubPrivate Sub ComboSignDate_

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

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

33、If Val(txtAmount) < 0 ThenMsgBox " 費用應(yīng)大于 0"txtAmount.SetFocusExit SubEnd IfIf Trim(txtReceive) = "" ThenMsgBox " 請輸入收款人 "txtReceive.SetFocusExit SubEnd IfIf Trim(txtCashier) = "" ThenMsgBox " 請輸入經(jīng)辦人 " txtCashier.SetFocusExit SubEnd IfIf ComboDate.

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