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

1、X X X X大學(xué)數(shù)據(jù)庫應(yīng)用技術(shù)課 程設(shè)計 說明書題目：企業(yè)銷售合同管理系統(tǒng)學(xué)院（系）：專業(yè)班級：學(xué) 號：學(xué)生姓名：指導(dǎo)教師：教師職稱：起止時間：31日xxxx大學(xué)課程設(shè)計（論文）任務(wù)書學(xué)號學(xué)生姓名專業(yè)班級設(shè)計題目企業(yè)銷售合同管理系統(tǒng)設(shè)計技術(shù) 參數(shù)1 .題目要達(dá)到的目標(biāo)：完成系統(tǒng)的登陸、數(shù)據(jù)的插入刪除修改統(tǒng)計等基本操作。2 .數(shù)據(jù)庫：SQLSERVER20003 .所使用的語言、工具:VB6.0+ SQLSERVER2000+WINDOWSXP4 .所采用的技術(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 .上機(jī)

2、前預(yù)先把所有的源程序編寫好。3 .上機(jī)時不得遲到，不得缺席，愛護(hù)設(shè)備，認(rèn)真調(diào)試程序。4 .仔細(xì)查閱相關(guān)資料，認(rèn)真完成思考題。5 .按要求書寫設(shè)計任務(wù)書，并按要求按版打印，不得雷同。工作量二周工 作 計 劃聽取教師布置 設(shè)計的任務(wù)及要求。周二學(xué)生查閱相關(guān) 資料，進(jìn)行數(shù)據(jù)庫設(shè)計。周三至周五：詳細(xì)設(shè)計與界面設(shè)計。周一至周四程序設(shè) 計與上機(jī)，調(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目錄

3、第一章概述 4第二章問題定義5第三章需求分析6第四章數(shù)據(jù)庫設(shè)計9第五章界面設(shè)計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)營活動順利運行。企業(yè)銷售合同確定了產(chǎn)品銷售的價格、交易日期和質(zhì)量 等項目，規(guī)定著 合同雙方責(zé)任權(quán)利關(guān)系，它貫穿于企業(yè)從產(chǎn)品的研究、設(shè)計到質(zhì)量檢驗 及交付貨品的各 個階段，涉及到企業(yè)生產(chǎn)的各個部門，滲透到企業(yè)的生產(chǎn)進(jìn)度、質(zhì)量管 理和

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

5、動，給企業(yè)決策 造成不利影響，導(dǎo)致企業(yè)形象和利益受損。企業(yè)的銷售合同管理采用無 制度管理或手工 管理方式甚至孤立的由某個管理層的管理方式，已遠(yuǎn)遠(yuǎn)不能滿足市場競 爭的要求。根據(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)品名稱、商標(biāo)品牌、規(guī)格型號、計量單位等信 息；主要實現(xiàn)功能：產(chǎn)品信息的修

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

7、系統(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)品管理、合同費用管理、合同收賬 管理、合同統(tǒng)計管理等主要功能模塊，比較全面地實

8、現(xiàn)了企業(yè)銷售合同管理系統(tǒng)的功能。本課程設(shè)計重點 體現(xiàn)了企業(yè)經(jīng)營和管理類系統(tǒng)的實現(xiàn)方法。其中通過合同費用管理 和合同收由管理，對企業(yè)的經(jīng)營活動進(jìn)行記錄和控制，動態(tài)地反映企業(yè)的經(jīng)營狀況。合 同統(tǒng)計模塊則對 企業(yè)的經(jīng)營狀況進(jìn)行分析，演示了數(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ù) 和信息進(jìn)行建模，利用實體關(guān)系圖來實現(xiàn).它描述系統(tǒng)中的各個實體以及相關(guān)實體之 間的關(guān)系，是系統(tǒng)特性和靜態(tài)描述.概念結(jié)構(gòu)設(shè)計是整個數(shù)據(jù)庫結(jié)構(gòu)設(shè)計的關(guān)鍵。我所定義的實

9、體 是：產(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)品商標(biāo)，產(chǎn)品型號，產(chǎn)品單位。合同費用信息表包含的數(shù)據(jù)項有憑單號，合同編號，費用類別，費用金額，收款人 姓名，經(jīng)辦人姓名，發(fā)生日期，備注。合同收賬信息表 包含的數(shù)據(jù)項有發(fā)票編號，合同編號，發(fā)票類型，收賬金額，經(jīng)辦 人姓名，發(fā)生日期，備注。合同產(chǎn)品信息表 包含的數(shù)據(jù)項有合同編號，產(chǎn)品編號，產(chǎn)品單價，產(chǎn)品數(shù)量，訂

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

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

12、、邏輯設(shè)計：1 .產(chǎn)品信息表:產(chǎn)品信息表Product用來保存產(chǎn)品信息，它的結(jié)構(gòu)如表4.1所示表4.1Produce的結(jié)構(gòu)表編R字段名稱數(shù)據(jù)結(jié)構(gòu)說明1ProldVarchar50產(chǎn)品編號2ProNameVarchar50產(chǎn)品名稱3ProMarkVarchar50產(chǎn)品商標(biāo)4ProStyleVarchar50產(chǎn)品型號5ProUnitVarchar50計量單位2 .合同費用信息表Cost合同費用信息表Cost用來保存合同費用信息，表Cost的結(jié)構(gòu)如圖4.2所示表4.2 C ost的結(jié)構(gòu)表編p字段名稱數(shù)據(jù)結(jié)構(gòu)說明1CostldVarchar50憑單號2ContractldVarchar50合同編號3C

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

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

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

16、合同，3-完成合同）5EmpNameVarchar50負(fù)責(zé)人姓名6DeliveryWayVarchar50交貨方式7DeliveryDateVarchar10交貨日期8SettleWayTinyInt結(jié)算方式（1-支票，2-現(xiàn)金，3-簽單，4-匯款）9LadtDayVarchar10有效期限10ContentsVarchar500合同內(nèi)容11AdditionalVarchar500附加信息9物理設(shè)計1 .創(chuàng)建索引1)為Produce表創(chuàng)建一個以Prold為索引關(guān)鍵字的惟一聚簇索引。2)為Cost表創(chuàng)建一個以Costld為索引關(guān)鍵字的惟一聚簇索引。3)為Income表創(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ù)文件儲存的位置：ContractSys_Data.MDF,將數(shù)據(jù)文件的初始大小設(shè)為20MB,文件增長方式設(shè)為自動增長，文件增長增量設(shè)為5MB,文件的增長上限設(shè)為500MB o事務(wù)日志存儲的 位置：ContractSys_Log.LDF ,將日志文件的初始大小設(shè)為20MB,文件增長量設(shè)為1MB,文件增長限制設(shè)為100MB。Microsoft S

18、QL 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ù)和進(jìn)行數(shù)據(jù)訪問后的保存操作。ADO對象模型定義了一個 可編程的分層對象集合，主要由三個成員： Connection對象，Command 對象和Recordest對象以及其它的集合對象。ADO提供以執(zhí)

19、行以下的操作方式：(1)接到數(shù)據(jù)源。(2)指定訪問數(shù)據(jù)遠(yuǎn) 的命令，同時可帶變量參數(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)的身份認(rèn)證，也就是登陸。登陸過程需要完成 一下任務(wù)：(1)根據(jù)用戶名和密 碼來判斷是否可能進(jìn)入系統(tǒng);(2)根據(jù)用戶類型決定用戶擁有的權(quán)限。登陸模塊如圖5.1所示：圖5.1登陸模塊圖登陸后首頁

20、如圖5.2所示：圖5.2企業(yè)銷售合同管理首頁圖2 .合同管理模塊設(shè)計合同管理模塊是 本系統(tǒng)的核心部分，可以實現(xiàn)一下功能:(1)創(chuàng)建合同；(2)修改合同；(3)改變合同狀態(tài)；(4)查看合同內(nèi)容。合同管理模塊如 圖5.3所示：圖5.3合同管理模塊圖3 .合同收賬管理模塊設(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 ”請輸入用戶名”txtUser.SetFocusExit SubEnd IfIf txtPwd = "" ThenMsgBox "請輸入密碼”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 "密碼錯誤"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 "請輸入合同編號”Exit SubEnd IfIf Trim(txtClient) = "" ThenMsgBox ”請輸入客戶單位"Exit SubEnd IfIf ComboSignDate.Text = "" ThenMsgBox ”請

24、輸入簽約日期"Exit SubEnd IfTmpId = MakeStr(txtld)判斷產(chǎn)品編號是否已經(jīng)存在If Modify = False Or Orild <> Trim(txtld) ThenIf MyContract.In_DB(TmpId) = True ThenMsgBox ”合同編號" "+ Trim(txtId) + "”已經(jī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()將焦點設(shè)置為下一個控件，否則將反復(fù)執(zhí)行此過程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()將焦點設(shè)置為下一個控件，否則將反復(fù)執(zhí)行此過程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()'將焦點設(shè)置為下一個控件，否則將反復(fù)執(zhí)行此過程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 "請輸入憑單號"txtCostId.SetFo

32、cusExit SubEnd IfIf 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.Text = "&q

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