畢業(yè)論文--展會(huì)管理系統(tǒng)

1、<p>　　本科生畢業(yè)論文（設(shè)計(jì)）</p><p><b>　　題目：展會(huì)管理系統(tǒng)</b></p><p><b>　　數(shù)學(xué)與信息技術(shù)院 </b></p><p><b>　　計(jì)算機(jī)科學(xué)與技術(shù)</b></p><p>　　論文完成日期： 2011年 4月30日 <

2、;/p><p><b>　　目錄</b></p><p>　　一、 緒 論1</p><p>　?。ㄒ唬┻x題的目的與意義1</p><p>　?。ǘ┱n題的開發(fā)環(huán)境1</p><p>　　（三）開發(fā)平臺(tái)的特點(diǎn)1</p><p>　　二、 開發(fā)平臺(tái)的相關(guān)技術(shù)3<

3、;/p><p>　?。ㄒ唬￢isual Basic6.0平臺(tái)概述及相關(guān)技術(shù)3</p><p>　?。ǘ〢DO數(shù)據(jù)庫(kù)訪問技術(shù)及其在VB中的應(yīng)用4</p><p>　　三、 展會(huì)管理系統(tǒng)的設(shè)計(jì)5</p><p>　?。ㄒ唬┫到y(tǒng)的總體設(shè)計(jì)5</p><p>　?。ǘ┫到y(tǒng)應(yīng)用軟件架構(gòu)設(shè)計(jì)5</p>&l

4、t;p>　　（三）系統(tǒng)的功能設(shè)計(jì)5</p><p>　?。ㄋ模┫到y(tǒng)的后臺(tái)數(shù)據(jù)庫(kù)設(shè)計(jì)8</p><p>　?。ㄎ澹┰O(shè)計(jì)規(guī)范的約定12</p><p>　　四、 展會(huì)管理系統(tǒng)的實(shí)現(xiàn)13</p><p>　?。ㄒ唬┑卿洿绑w模塊的實(shí)現(xiàn)13</p><p>　?。ǘ┲鞔翱谀K的實(shí)現(xiàn)14</p>

5、<p>　?。ㄈ┱刮徊樵兇绑w模塊的實(shí)現(xiàn)15</p><p>　　（四）收款管理窗體模塊的實(shí)現(xiàn)17</p><p>　?。ㄎ澹┦召M(fèi)查詢窗體模塊的實(shí)現(xiàn)19</p><p><b>　　總結(jié)21</b></p><p><b>　　參考文獻(xiàn)21</b></p><

6、;p><b>　　致謝21</b></p><p><b>　　展會(huì)管理系統(tǒng)</b></p><p>　　【摘要】隨著目前國(guó)內(nèi)會(huì)議會(huì)展的日趨增多，傳統(tǒng)的以手工方式為主的展會(huì)管理模式受到了很大的沖擊，展會(huì)資源不能合理得到利用，管理者不能實(shí)時(shí)掌握展會(huì)的各項(xiàng)動(dòng)態(tài)資料。因此有必要開發(fā)出一套針對(duì)展會(huì)組織者專用的計(jì)算機(jī)輔助管理軟件，展會(huì)管理系統(tǒng)便應(yīng)運(yùn)

7、而生。展會(huì)管理信息系統(tǒng)能夠幫助組委會(huì)在展會(huì)籌備階段對(duì)展商，觀眾，活動(dòng)和花費(fèi)進(jìn)行管理。系統(tǒng)高度抽象了展會(huì)籌備階段的業(yè)務(wù)模型，在設(shè)計(jì)上采用彈性，活動(dòng)的設(shè)計(jì)方法，具有一定的獨(dú)到之處。允許用戶根據(jù)實(shí)際需要定義展會(huì)中的活動(dòng)的各項(xiàng)屬性，使得組委會(huì)能夠根據(jù)實(shí)際情況在系統(tǒng)中定制展會(huì)活動(dòng)，并對(duì)活動(dòng)和資源計(jì)劃以及發(fā)生的費(fèi)用進(jìn)行全程的監(jiān)控，做出正確的決策。</p><p>　　【關(guān)鍵詞】 展會(huì)管理；管理信息系統(tǒng)；VB；Access

8、 </p><p>　　中圖分類號(hào)：tp315 文獻(xiàn)標(biāo)識(shí)碼: A</p><p>　　【Abstract】 Can exhibition along with the present domestic conference increases day by day, the tradition primarily exhibition by the manual way can man

9、age the pattern to be under the very big impact, exhibition meets the resources not to be able to obtain the use reasonably, the superintendent cannot real-time grasp exhibitions the meeting each item of dynamic material

10、. Therefore has the necessity to develop a set in view of to exhibition meets the organizer special-purpose computer assistance t</p><p>　　【Key Words】exhibition management ; Management Information System ; V

11、isual Basic ; access.</p><p><b>　　一、 緒 論</b></p><p>　?。ㄒ唬┻x題的目的與意義</p><p>　　信息技術(shù)的飛速發(fā)展大大推動(dòng)了社會(huì)的進(jìn)步，已經(jīng)逐漸改變了人類的生活、工作、學(xué)習(xí)等方式，數(shù)據(jù)庫(kù)技術(shù)和網(wǎng)絡(luò)技術(shù)是信息技術(shù)中最重要的兩大支柱。隨著我國(guó)經(jīng)濟(jì)的蓬勃發(fā)展并逐漸與世界接軌，各行各業(yè)都

12、在舉辦各種規(guī)模的國(guó)際展會(huì)，展會(huì)經(jīng)濟(jì)已經(jīng)成為社會(huì)活動(dòng)的熱點(diǎn)。但是大多數(shù)展會(huì)主辦機(jī)構(gòu)對(duì)展會(huì)籌備的整個(gè)過程缺乏信息化，智能化管理，仍停留在分散的，手工管理的初級(jí)水平上，已經(jīng)不能滿足人們的需求，甚至?xí)绊懙秸箷?huì)產(chǎn)業(yè)的長(zhǎng)期可持續(xù)發(fā)展。如何利用先進(jìn)的管理手段，提高展會(huì)的管理水平，是當(dāng)今大多數(shù)展會(huì)主辦機(jī)構(gòu)面臨的一個(gè)重要課題。要想提高展會(huì)的管理水平，必須全方位的提高展會(huì)管理意識(shí)。只有以為展商和觀眾提供高標(biāo)準(zhǔn)，高質(zhì)量的服務(wù)為目標(biāo)才能滿足人們的需要。面對(duì)信

13、息時(shí)代的挑戰(zhàn)，利用高科技手段計(jì)算機(jī)管理系統(tǒng)來(lái)提高展會(huì)管理的組織和協(xié)調(diào)過程無(wú)疑是一條行之有效的途徑。在某種意義上，信息與科技在展會(huì)管理與展會(huì)經(jīng)濟(jì)現(xiàn)代化建設(shè)中顯現(xiàn)出越來(lái)越重要的地位。展會(huì)管理的信息化與科學(xué)化，已成為展會(huì)經(jīng)濟(jì)現(xiàn)代化水平步入高臺(tái)階的重要標(biāo)志。因此有必要開發(fā)出一套針對(duì)展會(huì)組織者專用的計(jì)算機(jī)輔助管理軟件，展會(huì)管理系統(tǒng)便應(yīng)運(yùn)而生。</p><p>　?。ǘ┱n題的開發(fā)環(huán)境</p><p>

14、;　　Visual Basic6.0版是微軟公司出品的一個(gè)可視化程序開發(fā)工具軟件,它不僅繼承了以往版本的各種先進(jìn)技術(shù),而且適應(yīng)目前計(jì)算機(jī)技術(shù)的發(fā)展潮流，提供了基于組件、Web及多層結(jié)構(gòu)的快速開發(fā)環(huán)境。它借助微軟在操作系統(tǒng)和辦公軟件的壟斷地位，Visual Basic6.0在短短的幾年內(nèi)就風(fēng)靡了全球。Visual Basic6.0是極有特色和功能強(qiáng)大的軟件，主要表現(xiàn)在：所見即所得的界面設(shè)計(jì)，基于對(duì)象的設(shè)計(jì)方法，極短的軟件開發(fā)周期，輕易維護(hù)

15、的生成代碼。</p><p>　　功能：Visual Basic6.0 具有強(qiáng)大的數(shù)據(jù)訪問、internet編程、使用新的控件、利用增強(qiáng)的控件提高性能、熟悉語(yǔ)言特性的向?qū)Чδ艿戎匾匦浴isual Basic6.0 具有的這些特點(diǎn)可以大大簡(jiǎn)化利用Visual Basic6.0 開發(fā)的美觀實(shí)用程序的難度。</p><p>　　隨著數(shù)據(jù)庫(kù)技術(shù)的發(fā)展，面向?qū)ο蟮臄?shù)據(jù)庫(kù)、分布式數(shù)據(jù)庫(kù)、多媒體數(shù)據(jù)

16、庫(kù)、數(shù)據(jù)庫(kù)開發(fā)工具的研究方興未艾，這些技術(shù)的發(fā)展使應(yīng)用軟件的開發(fā)速度更快、成本更低、質(zhì)量更好、功能更強(qiáng)。Visual Basic6.0是其中最杰出的代表之一，它集面向?qū)ο髷?shù)據(jù)庫(kù)技術(shù)、分布式應(yīng)用技術(shù)、多媒體技術(shù)于一身,是目前最有代表性的數(shù)據(jù)庫(kù)開發(fā)工具，幾乎已發(fā)展成為客戶/服務(wù)器前端工具的標(biāo)準(zhǔn)。因此，在開發(fā)展會(huì)管理系統(tǒng)時(shí)，我選用了Visual Basic6.0作為開發(fā)工具。</p><p>　?。ㄈ╅_發(fā)平臺(tái)的特點(diǎn)&

17、lt;/p><p>　　展會(huì)管理系統(tǒng)的開發(fā)將采用VB 6.0和Microsoft Access 2000數(shù)據(jù)庫(kù)作為開發(fā)平臺(tái)。 </p><p>　　Visual Basic 是運(yùn)行于windows平臺(tái)上的可視化集成開發(fā)環(huán)境。面對(duì)對(duì)象的編程；面向?qū)ο蟮脑O(shè)計(jì)方法 (OP, Objected Programming) 從應(yīng)用領(lǐng)域內(nèi)的問題著手，以直觀自然的方式描述客觀世界的實(shí)體。Visua

18、l Basic 作為一種面向?qū)ο蟮木幊谭椒ǎ殉绦蚝蛿?shù)據(jù)封裝起來(lái)作為一個(gè)對(duì)象，并為每個(gè)對(duì)象賦予相應(yīng)的屬性。在設(shè)計(jì)對(duì)象時(shí)，不必編寫建立和描述每個(gè)對(duì)象的程序代碼，而是用工具畫在界面上，Visual Basic 應(yīng)用程序基本的構(gòu)建塊是用戶所創(chuàng)建的對(duì)象，每一個(gè)對(duì)象都具有一些特性和行為（屬性、事件和方法）。開發(fā)人員可以最有效利用所創(chuàng)建的每一個(gè)對(duì)象。使用應(yīng)用程序具有可通用性可說擴(kuò)展性和強(qiáng)有力的功能。Visual Basic 應(yīng)用由一系列對(duì)象組成，包

19、括有函數(shù)、菜單、函數(shù)、結(jié)構(gòu)和數(shù)據(jù)窗口、用戶對(duì)象、用戶事件等等，對(duì)象中又包含若干控件如命令按鈕、單行編輯器等這些對(duì)象和控件都可在許多應(yīng)用中重復(fù)使用。</p><p>　　VB6.0以人們所熟知的BASIC語(yǔ)言為基礎(chǔ)，不僅易于學(xué)習(xí)、掌握，它的可視化特性還為應(yīng)用程序的界面設(shè)計(jì)提供了迅速便捷的途徑。在VB編程中不需編寫大量代碼去描述界面元素的外觀和位置，而只要把預(yù)先建立的對(duì)象拖放到適當(dāng)位置即可。VB同時(shí)還是一個(gè)包括了編輯

20、、測(cè)試和程序調(diào)試等各種程序開發(fā)工具的集成開發(fā)環(huán)境（IDE），從應(yīng)用程序的界面設(shè)計(jì)、程序編碼、測(cè)試和調(diào)試、編譯并建立可執(zhí)行程序，直到應(yīng)用程序的發(fā)行，種種功能VB無(wú)不包容。不論是Microsoft Windows應(yīng)用程序的專業(yè)開發(fā)人員，還是初學(xué)者，VB都為他們提供了完整的開發(fā)工具。</p><p>　　Microsoft Access 2000，可以在單一的數(shù)據(jù)庫(kù)文件中管理所有的信息。在這個(gè)文件中，用戶可以將自己的數(shù)

21、據(jù)分別保存在各自獨(dú)立的存儲(chǔ)空間中，這些空間稱作表；可以使用聯(lián)機(jī)窗體來(lái)查看、添加及更新表中的數(shù)據(jù)；使用查詢來(lái)查找并檢索所要的數(shù)據(jù)；也可以使用報(bào)表以特定的版面布置來(lái)分析及打印數(shù)據(jù)。</p><p>　　Access 2000是一種關(guān)系型數(shù)據(jù)庫(kù)管理系統(tǒng)，其主要特點(diǎn)如下： </p><p><b>　　1.存儲(chǔ)方式單一 </b></p><p>　　A

22、ccess管理的對(duì)象有表、查詢、窗體、報(bào)表、頁(yè)、宏和模塊，以上對(duì)象都存放在后綴為（.mdb）的數(shù)據(jù)庫(kù)文件種，便于用戶的操作和管理。 </p><p>　　2.界面友好、易操作 </p><p>　　Access是一個(gè)可視化工具，是風(fēng)格與Windows完全一樣，用戶想要生成對(duì)象并應(yīng)用，只要使用鼠標(biāo)進(jìn)行拖放即可，非常直觀方便。系統(tǒng)還提供了表生成器、查詢生成器、報(bào)表設(shè)計(jì)器以及數(shù)據(jù)庫(kù)向?qū)?、表向?qū)А?/p>

23、查詢向?qū)?、窗體向?qū)?、?bào)表向?qū)У裙ぞ?，使得操作?jiǎn)便，容易使用和掌握。 </p><p>　　3.集成環(huán)境、處理多種數(shù)據(jù)信息 </p><p>　　Access基于Windows操作系統(tǒng)下的集成開發(fā)環(huán)境，該環(huán)境集成了各種向?qū)Ш蜕善鞴ぞ撸瑯O大地提高了開發(fā)人員的工作效率，使得建立數(shù)據(jù)庫(kù)、創(chuàng)建表、設(shè)計(jì)用戶界面、設(shè)計(jì)數(shù)據(jù)查詢、報(bào)表打印等可以方便有序地進(jìn)行。 </p><p>

24、　　4.Access支持ODBC（開發(fā)數(shù)據(jù)庫(kù)互連，Open Data Base Connectivity），利用Access強(qiáng)大的DDE（動(dòng)態(tài)數(shù)據(jù)交換）和OLE（對(duì)象的聯(lián)接和嵌入）特性，可以在一個(gè)數(shù)據(jù)表中嵌入位圖、聲音、Excel表格、Word文檔，還可以建立動(dòng)態(tài)的數(shù)據(jù)庫(kù)報(bào)表和窗體等。Access還可以將程序應(yīng)用于網(wǎng)絡(luò)，并與網(wǎng)絡(luò)上的動(dòng)態(tài)數(shù)據(jù)相聯(lián)接。利用數(shù)據(jù)庫(kù)訪問頁(yè)對(duì)象生成HTML文件，輕松構(gòu)建Internet/Intranet的應(yīng)用。&

25、lt;/p><p>　　5.支持廣泛，易于擴(kuò)展，彈性較大</p><p>　　能夠?qū)⑼ㄟ^鏈接表的方式來(lái)打開EXCEL文件、格式化文本文件等，這樣就可以利用數(shù)據(jù)庫(kù)的高效率對(duì)其中的數(shù)據(jù)進(jìn)行查詢、處理。還可以通過以Access作為前臺(tái)客戶端，以SQL Server作為后臺(tái)數(shù)據(jù)庫(kù)的方式（如ADP）開發(fā)大型數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)。</p><p>　　總之，Access是一個(gè)既可以只用來(lái)

26、存放數(shù)據(jù)的數(shù)據(jù)庫(kù)，也可以作為一個(gè)客戶端開發(fā)工具來(lái)進(jìn)行數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)；即可以開發(fā)方便易用的小型軟件，也可以用來(lái)開發(fā)大型的應(yīng)用系統(tǒng)。</p><p>　　二、 開發(fā)平臺(tái)的相關(guān)技術(shù)</p><p>　　（一）Visual Basic6.0平臺(tái)概述及相關(guān)技術(shù)</p><p>　　為了理解應(yīng)用程序開發(fā)過程，先要理解 Visual Basic 賴以創(chuàng)建的一些關(guān)鍵概念。因?yàn)?

27、Visual Basic 是 Windows 開發(fā)語(yǔ)言，所以有必要與 Windows 環(huán)境保持一定的相似性。 如果不熟悉 Windows 編程，就需要明白在 Windows環(huán)境下編程和在其它環(huán)境下編程的一些根本性的差別。</p><p>　　全面地討論 Windows 的內(nèi)部工作機(jī)制將需要整整一本書的容量。沒有必要深入了解所有的技術(shù)細(xì)節(jié)。Windows 的工作機(jī)制，簡(jiǎn)單地說就是三個(gè)關(guān)鍵的概念：窗口、事件和消息。&

28、lt;/p><p>　　Microsoft Windows 操作系統(tǒng)通過給每一個(gè)窗口指定一個(gè)唯一的標(biāo)識(shí)號(hào)來(lái)管理所有的窗口。操作系統(tǒng)連續(xù)地監(jiān)視每一個(gè)窗口的活動(dòng)或事件的信號(hào)。事件可以通過諸如單擊鼠標(biāo)或按下按鍵的操作而產(chǎn)生，也可以通過程序的控制而產(chǎn)生，甚至可以由另一個(gè)窗口的操作而產(chǎn)生。</p><p>　　每發(fā)生一次事件，將引發(fā)一條消息發(fā)送至操作系統(tǒng)。操作系統(tǒng)處理該消息并廣播給其它窗口。然后，每一個(gè)

29、窗口才能根據(jù)自身處理該條消息的指令而采取適當(dāng)?shù)牟僮鳎ɡ?，?dāng)窗口解除了其它窗口的覆蓋時(shí)，重顯自身窗口）。</p><p>　　可以想象，處理各種窗口、事件和消息的所有可能的組合將有驚人的工作量。幸運(yùn)的是Visual Basic 使您擺脫了所有的低層消息處理。許多消息由Visual Basic 自動(dòng)處理了，其它的作為事件過程由編程者自行處理。這樣可以快速創(chuàng)建強(qiáng)大的應(yīng)用程序而毋需處理不必要的細(xì)節(jié)。</p>

30、<p><b>　　事件驅(qū)動(dòng)模型</b></p><p>　　在傳統(tǒng)的或“過程化”的應(yīng)用程序中，應(yīng)用程序自身控制了執(zhí)行哪一部分代碼和按何種順序執(zhí)行代碼。從第一行代碼執(zhí)行程序并按應(yīng)用程序中預(yù)定的路徑執(zhí)行，必要時(shí)調(diào)用過程。</p><p>　　在事件驅(qū)動(dòng)的應(yīng)用程序中，代碼不是按照預(yù)定的路徑執(zhí)行，而是在響應(yīng)不同的事件時(shí)執(zhí)行不同的代碼片段。事件可以由用戶操作觸發(fā)

31、，也可以由來(lái)自操作系統(tǒng)或其它應(yīng)用程序的消息觸發(fā)，甚至由應(yīng)用程序本身的消息觸發(fā)。這些事件的順序決定了代碼執(zhí)行的順序，因此應(yīng)用程序每次運(yùn)行時(shí)所經(jīng)過的代碼的路徑都是不同的。</p><p>　　因?yàn)槭录捻樞蚴菬o(wú)法預(yù)測(cè)的，所以在代碼中必須對(duì)執(zhí)行時(shí)的“各種狀態(tài)”作一定的假設(shè)。當(dāng)作出某些假設(shè)時(shí)（例如，假設(shè)在運(yùn)行來(lái)處理某一輸入字段的過程之前，該輸入字段必須包含確定的值），應(yīng)該組織好應(yīng)用程序的結(jié)構(gòu)，以確保該假設(shè)始終有效（例如，

32、在輸入字段中有效值之前禁止使用啟動(dòng)該處理過程的命令按鈕）。</p><p>　　在執(zhí)行中代碼也可以觸發(fā)事件。例如，在程序中改變文本框中的文本將引發(fā)文本框的 Change 事件。如果 Change 事件中包含有代碼，則將導(dǎo)致該代碼的執(zhí)行。如果原來(lái)假設(shè)該事件僅能由用戶的交互操作所觸發(fā)，則可能會(huì)產(chǎn)生意料之外的結(jié)果。正因?yàn)檫@一原因，所以在設(shè)計(jì)應(yīng)用程序時(shí)事件驅(qū)動(dòng)模型并牢記在心是非常重要的。</p><p

33、><b>　　交互式開發(fā)</b></p><p>　　傳統(tǒng)的應(yīng)用程序開發(fā)過程可以分為三個(gè)明顯的步驟：編碼、編譯和測(cè)試代碼。但是 Visual Basic 與傳統(tǒng)的語(yǔ)言不同，它使用交互式方法開發(fā)應(yīng)用程序，使三個(gè)步驟之間不再有明顯的界限。</p><p>　　在大多數(shù)語(yǔ)言里，如果編寫代碼時(shí)發(fā)生了錯(cuò)誤，則在開始編譯應(yīng)用程序時(shí)該錯(cuò)誤就會(huì)被編譯器捕獲。此時(shí)必須查找并改正該

34、錯(cuò)誤，然后再次進(jìn)行編譯，對(duì)每一個(gè)發(fā)現(xiàn)的錯(cuò)誤都要重復(fù)這樣的過程。Visual Basic 在編程者輸入代碼時(shí)便進(jìn)行解釋，即時(shí)捕獲并突出顯示大多數(shù)語(yǔ)法或拼寫錯(cuò)誤?？雌饋?lái)就像一位專家在監(jiān)視代碼的輸入。</p><p>　　除即時(shí)捕獲錯(cuò)誤以外，Visual Basic 也在輸入代碼時(shí)部分地編譯該代碼。當(dāng)準(zhǔn)備運(yùn)行和測(cè)試應(yīng)用程序時(shí)，只需極短時(shí)間即可完成編譯。如果編譯器發(fā)現(xiàn)了錯(cuò)誤，則將錯(cuò)誤突出顯示于代碼中。這時(shí)可以更正錯(cuò)誤并繼

35、續(xù)編譯，而不需從頭開始。</p><p>　　由于 Visual Basic 的交互特性，因此可以發(fā)現(xiàn)在開發(fā)應(yīng)用程序時(shí)，您自己正頻繁地運(yùn)行著您的應(yīng)用程序。通過這種方式，代碼運(yùn)行的效果可以在開發(fā)時(shí)進(jìn)行測(cè)試，而不必等到編譯完成以后。</p><p>　　Basic 的工作環(huán)境常常是指集成開發(fā)環(huán)境或 IDE，這是因?yàn)樗谝粋€(gè)公共環(huán)境里集成了許多不同的功能，例如，設(shè)計(jì)、編輯、編譯和調(diào)試。在大多傳統(tǒng)

36、開發(fā)工具中，每個(gè)功能都是以一個(gè)獨(dú)立的程序運(yùn)行，并都有自己的界面。</p><p>　　當(dāng)運(yùn)行 Visual Basic 安裝程序時(shí)，允許將程序項(xiàng)置于已存在的程序組中，或在 Windows 中為 Visual Basic 創(chuàng)建一個(gè)新的程序組和程序項(xiàng)。這時(shí)可準(zhǔn)備從 Windows 啟動(dòng) Visual Basic。</p><p>　?。ǘ〢DO數(shù)據(jù)庫(kù)訪問技術(shù)及其在VB中的應(yīng)用</p&g

37、t;<p>　　ActiveX Data Objects (ADO) 是微軟最新的數(shù)據(jù)訪問技術(shù)。它被設(shè)計(jì)用來(lái)同新的數(shù)據(jù)訪問層OLE DB Provider一起協(xié)同工作，以提供通用數(shù)據(jù)訪問（Universal Data Access）。OLE DB是一個(gè)低層的數(shù)據(jù)訪問接口，用它可以訪問各種數(shù)據(jù)源，包括傳統(tǒng)的關(guān)系型數(shù)據(jù)庫(kù)，以及電子郵件系統(tǒng)及自定義的商業(yè)對(duì)象。

38、</p><p>　　ADO向我們提供了一個(gè)熟悉的，高層的對(duì)OLE DB的Automation封裝接口。對(duì)那些熟悉RDO的程序員來(lái)說，你可以把OLEDB比作是ODBC驅(qū)動(dòng)程序。如同RDO對(duì)象是ODBC驅(qū)動(dòng)程序接口一樣，ADO對(duì)象是OLE DB的接口；如同不同的數(shù)據(jù)庫(kù)系統(tǒng)需要它們自己的ODBC驅(qū)動(dòng)程序一樣，不同的數(shù)據(jù)源要求它們自己的OLE DB提供者（OLE DB provi

39、der）。目前，雖然OLE DB提供者比較少，但微軟正積極推廣該技術(shù)，并打算用OLE DB取代ODBC。</p><p>　　ADO向VB程序員提供了很多好處。包括易于使用，熟悉的界面，高速度以及較低的內(nèi)存占用（已實(shí)現(xiàn)ADO2.0的Msado15.dll需要占用342K內(nèi)存，比RDO的Msrdo20.dll的368K略小，大約是DAO3.5的Dao350.dll所占內(nèi)存的60％）。同傳統(tǒng)的數(shù)據(jù)

40、對(duì)象層次（DAO和RDO）不同，ADO可以獨(dú)立創(chuàng)建。因此你可以只創(chuàng)建一個(gè)"Connection"對(duì)象，但是可以有多個(gè)，獨(dú)立的對(duì)象來(lái)使用它。ADO針對(duì)客戶／服務(wù)器以及WEB應(yīng)用程序作了優(yōu)化。 </p><p>　　ODBC 是 Open DataBase Connectivity 的縮寫，稱為開放式數(shù)據(jù)庫(kù)鏈接，它相當(dāng)于是一個(gè)數(shù)據(jù)庫(kù)引擎，或者簡(jiǎn)單理解為是一種數(shù)據(jù)庫(kù)驅(qū)動(dòng)程序。由于不同數(shù)據(jù)庫(kù)

41、系統(tǒng)的運(yùn)作方式和存取方法是各不相同的，為了能統(tǒng)一對(duì)不同數(shù)據(jù)庫(kù)的存取操作，為此，就誕生了ODBC。有了 ODBC 驅(qū)動(dòng)程序，就可實(shí)現(xiàn)用同樣的方法，來(lái)存取各種不同類型的關(guān)系型數(shù)據(jù)庫(kù)，而不必關(guān)心所存取數(shù)據(jù)庫(kù)類型。利用 ODBC ，可實(shí)現(xiàn)存取和訪問任何符合 ODBC 標(biāo)準(zhǔn)的關(guān)系型數(shù)據(jù)庫(kù)。</p><p>　　ADO對(duì)象模型的使用技巧</p><p>　　ADO 提供了7個(gè)獨(dú)立的對(duì)象，利用這些對(duì)象，

42、可實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的存取和訪問。在這7個(gè)對(duì)象中，Connection、Command 和 RecordSet 對(duì)象是整個(gè) ADO 的核心，通過 Connection 對(duì)象與一個(gè)數(shù)據(jù)庫(kù)建立連接，然后利用 Command 對(duì)象執(zhí)行查詢，從而返回查詢結(jié)果，并將結(jié)果（記錄集）存入 RecordSet 對(duì)象中，利用服務(wù)器端腳本，通過訪問 RecordSet 對(duì)象遍可獲得所查詢到的記錄內(nèi)容。 除了 Command 對(duì)象可以執(zhí)行查詢外，另外，利用

43、Connection 對(duì)象的 Execute 方法和 RecordSet 對(duì)象的 Open 方法，也可以執(zhí)行一個(gè)查詢，從而返回一個(gè)記錄集。</p><p>　　使用adodata（ADO Data Control)控件訪問數(shù)據(jù)庫(kù)可以完全不用編寫代碼,只需要通過簡(jiǎn)單的設(shè)置和操作其屬性就可以實(shí)現(xiàn)與數(shù)據(jù)庫(kù)的連接,通過綁定數(shù)據(jù)感知控件,就能提供一個(gè)訪問數(shù)據(jù)庫(kù)的界面,用來(lái)實(shí)現(xiàn)對(duì)數(shù)據(jù)庫(kù)的瀏覽,貼加,刪除,修改等操作.<

44、/p><p>　　三、 展會(huì)管理系統(tǒng)的設(shè)計(jì)</p><p>　　（一）系統(tǒng)的總體設(shè)計(jì)</p><p><b>　　程序功能設(shè)計(jì)</b></p><p>　　軟件分為系統(tǒng)管理、展會(huì)數(shù)據(jù)初始化、查詢與收費(fèi)管理、展會(huì)管理、系統(tǒng)維護(hù)5大模塊。</p><p>　　1.系統(tǒng)管理：用戶管理、更改密碼、登錄系統(tǒng)、退

45、出系統(tǒng)。</p><p>　　2.展會(huì)數(shù)據(jù)初始化：展會(huì)展位登記、展會(huì)登記、客戶資料登記。</p><p>　　3.查詢與收費(fèi)管理：展會(huì)展位查詢、展會(huì)查詢、客戶資料查詢、收費(fèi)登記、收費(fèi)查詢。</p><p>　　4.展會(huì)管理：展會(huì)管理人員登記、展會(huì)展位合同管理、收款管理、展會(huì)管理人員查詢、展會(huì)展位合同查詢、收款情況查詢。</p><p>　　5

46、.系統(tǒng)維護(hù)：數(shù)據(jù)庫(kù)備份、數(shù)據(jù)庫(kù)恢復(fù)。</p><p>　　6.幫助：關(guān)于展會(huì)管理。</p><p><b>　　系統(tǒng)結(jié)構(gòu)圖:</b></p><p><b>　　圖1系統(tǒng)結(jié)構(gòu)圖</b></p><p>　　（二）系統(tǒng)應(yīng)用軟件架構(gòu)設(shè)計(jì)</p><p>　　1.采用C/S結(jié)構(gòu)設(shè)計(jì)

47、。</p><p>　　2.數(shù)據(jù)庫(kù)運(yùn)行在Server機(jī)上。</p><p>　　3.展會(huì)管理信息系統(tǒng)程序分別運(yùn)行在Client機(jī)上</p><p>　　4.主辦機(jī)構(gòu)負(fù)責(zé)人、總監(jiān)、具有不同的權(quán)限來(lái)使用系統(tǒng)的各個(gè)功能。</p><p>　?。ㄈ┫到y(tǒng)的功能設(shè)計(jì)</p><p>　　1.展會(huì)管理系統(tǒng)功能結(jié)構(gòu)圖</p&g

48、t;<p>　　圖2 系統(tǒng)功能結(jié)構(gòu)圖</p><p><b>　?、蚕到y(tǒng)功能模塊說明</b></p><p>　?。?）系統(tǒng)功能的說明</p><p>　　系統(tǒng)管理部分：系統(tǒng)管理具有用戶管理和退出系統(tǒng)的功能。對(duì)系統(tǒng)支持性數(shù)據(jù)作維護(hù)。</p><p>　?、儆脩艄芾恚嚎梢蕴砑?，刪除，修改用戶，設(shè)置用戶登陸密

49、碼，以及確認(rèn)用戶角色。</p><p>　?、谕顺鱿到y(tǒng)：斷開與數(shù)據(jù)庫(kù)的連接，退出系統(tǒng)。</p><p>　　展會(huì)數(shù)據(jù)初始化部分：展會(huì)信息包括（展會(huì)名稱、場(chǎng)館、開始時(shí)間、地點(diǎn)、展會(huì)組辦機(jī)構(gòu)等信息）。</p><p>　　客戶資料包括(單位法人名，單位地址，電話等信息)。刪除展會(huì)信息時(shí)需檢查。</p><p>　　查詢與收費(fèi)管理部分：管理和查看展

50、會(huì)展位及參展單位的負(fù)責(zé)人，實(shí)現(xiàn)對(duì)單位按其名稱執(zhí)行模糊查詢，還能夠按照其他屬性進(jìn)行全方位的查找。</p><p>　　操作員添加參展單位后，記錄該單位的展會(huì)活動(dòng)和活動(dòng)明細(xì)。</p><p>　　每項(xiàng)活動(dòng)的收費(fèi)金額合計(jì)（應(yīng)收賬款）=（資源單價(jià)*資源數(shù)量），員選擇參展單位后，系統(tǒng)自動(dòng)調(diào)出該單位的活動(dòng)和活動(dòng)明細(xì)。并可對(duì)收費(fèi)紀(jì)錄進(jìn)行票據(jù)打印。</p><p>　?。?）展會(huì)管

51、理部分：</p><p>　?、僬箷?huì)管理人員的信息包括：姓名,身份證號(hào)碼等信息。</p><p>　?、谡箷?huì)展位合同管理：是對(duì)展會(huì)展位合同管理和查看，實(shí)現(xiàn)對(duì)合同按其名稱執(zhí)行模糊查詢，還能夠按照其他屬性進(jìn)行全方位的查找。</p><p>　?、凼湛罟芾恚菏菍?duì)展會(huì)展位租金的收取，其中收款資料包括：交款日期，收款編號(hào)，交款方式等信息。并可對(duì)其打印。</p>

52、<p>　?、苷箷?huì)管理人員查詢：可以按照展會(huì)管理人員的編號(hào)和姓名查詢。</p><p>　　⑤展會(huì)展位合同查詢：展會(huì)展位合同查詢包括按照合同編號(hào)的查詢和按照展會(huì)展位綜合編號(hào)查詢等。</p><p>　?、奘湛钋闆r查詢：收款情況查詢包括按照合同編號(hào)查詢，按照展會(huì)展位綜合編號(hào)查詢和按照交費(fèi)日期時(shí)間范圍查詢等。</p><p>　　系統(tǒng)維護(hù)部分：包括對(duì)數(shù)據(jù)備份和

53、數(shù)據(jù)恢復(fù)，實(shí)現(xiàn)將現(xiàn)有的后臺(tái)數(shù)據(jù)庫(kù)進(jìn)行備份和恢復(fù)功能。</p><p>　　幫助部分:對(duì)本系統(tǒng)的開發(fā)和使用進(jìn)行簡(jiǎn)要的說明。</p><p>　?、持饕绦蚪Y(jié)構(gòu)的流程圖</p><p>　　圖3 用戶登陸數(shù)據(jù)流圖</p><p>　　圖4 展位管理模塊的數(shù)據(jù)流圖</p><p>　　圖5 收款管理模塊的數(shù)據(jù)流圖<

54、;/p><p>　?。ㄋ模┫到y(tǒng)的后臺(tái)數(shù)據(jù)庫(kù)設(shè)計(jì)</p><p>　　1．?dāng)?shù)據(jù)庫(kù)平臺(tái)的選擇 </p><p>　　在分析階段已確定本系統(tǒng)的數(shù)據(jù)庫(kù)平臺(tái)選擇微軟公司的Access 2000。</p><p>　　2. 關(guān)系數(shù)據(jù)表的建立</p><p>　　(1) 展會(huì)信息表字段的定義：</p><p>

55、;<b>　　表1 展會(huì)信息表</b></p><p>　　(2) 參展單位信息表字段的定義：</p><p>　　表2 參展單位信息表</p><p>　　(3) 場(chǎng)館表字段的定義</p><p><b>　　表3 場(chǎng)館表</b></p><p>　　(4) 合同資料

56、信息表字段的定義</p><p>　　表4 合同資料信息表 </p><p>　　(5) 單位活動(dòng)表字段的定義</p><p><b>　　表5 單位活動(dòng)表</b></p><p>　　(6) 活動(dòng)資源明細(xì)表字段的定義</p><p>　　表6 活動(dòng)資源明細(xì)表</p><

57、;p>　　(7) 銷售管理人員表字段的定義</p><p>　　表7 銷售管理人員表</p><p>　　(8) 收費(fèi)表字段的定義</p><p><b>　　表8 收費(fèi)信息表</b></p><p>　　(9) 收款單明細(xì)字段的定義</p><p><b>　　表9 收款信

58、息表</b></p><p>　　(10) 系統(tǒng)管理表字段的定義</p><p>　　表10 系統(tǒng)管理表</p><p>　?。ㄎ澹┰O(shè)計(jì)規(guī)范的約定</p><p><b>　　1.結(jié)構(gòu)化編碼約定</b></p><p>　　編碼應(yīng)清晰、可讀性好，運(yùn)用縮進(jìn)、空行，結(jié)合大小寫區(qū)別等方法保

59、持程序結(jié)構(gòu)良好。凡與數(shù)據(jù)庫(kù)操作相關(guān)的模塊一律加上容錯(cuò)代碼，涉及多表操作的模塊應(yīng)運(yùn)用“事務(wù)”處理，以保持?jǐn)?shù)據(jù)完整性。</p><p><b>　　2.數(shù)據(jù)源的約定</b></p><p>　　數(shù)據(jù)源組件是數(shù)據(jù)顯示組件和數(shù)據(jù)集組件之間的中介。數(shù)據(jù)集從數(shù)據(jù)庫(kù)獲得數(shù)據(jù)后，將其發(fā)送到數(shù)據(jù)源，然后數(shù)據(jù)源將數(shù)據(jù)送到界面上的數(shù)據(jù)顯示組件進(jìn)行顯示。當(dāng)使用數(shù)據(jù)模塊時(shí)，數(shù)據(jù)源組件是數(shù)據(jù)模塊

60、的一部分。</p><p><b>　　3.數(shù)據(jù)集約定</b></p><p>　　數(shù)據(jù)集是數(shù)據(jù)庫(kù)應(yīng)用程序的核心，數(shù)據(jù)集組件保存了一系列從底層的數(shù)據(jù)庫(kù)取出的記錄。這些記錄的數(shù)據(jù)可以取自一個(gè)表，一個(gè)表中的若干字段，多個(gè)數(shù)據(jù)表的若干字段。數(shù)據(jù)集組件實(shí)際上為應(yīng)用程序提供了一個(gè)緩沖區(qū)，來(lái)保存數(shù)據(jù)庫(kù)中實(shí)際存在表中的數(shù)據(jù)。如果系統(tǒng)要用到數(shù)據(jù)集組件，一律使用ADO頁(yè)中的數(shù)據(jù)集組件。

61、</p><p>　　四、 展會(huì)管理系統(tǒng)的實(shí)現(xiàn)</p><p>　　（一）登錄窗體模塊的實(shí)現(xiàn)</p><p>　　程序運(yùn)行時(shí)最先啟動(dòng)此窗口，連接數(shù)據(jù)庫(kù)并驗(yàn)證登錄用戶身份，輸入用戶名及密碼，驗(yàn)證通過后進(jìn)入系統(tǒng)主窗口。</p><p>　　1.登錄窗體模塊的界面設(shè)計(jì)</p><p><b>　　窗體樣式：<

62、;/b></p><p><b>　　圖1登錄窗體</b></p><p>　　2.登錄窗體模塊實(shí)現(xiàn)的代碼</p><p><b>　　代碼如下：</b></p><p>　　Private Sub cmdcancel_Click()</p><p>　　conn.Cl

63、ose '關(guān)閉數(shù)據(jù)庫(kù)連接</p><p>　　Set conn = Nothing</p><p><b>　　End Sub</b></p><p>　　Private Sub cmdok_Click()</p><p>　　If Trim(cmb

64、Name.Text) = "" Then '判斷輸入的用戶名是否為空</p><p>　　MsgBox "沒有這個(gè)用戶", vbOKOnly + vbExclamation</p><p>　　cmbName.SetFocus</p><p>　　Else

65、 '判斷用戶名和密碼是否正確</p><p>　　sql = "select * from 系統(tǒng)管理表 where czyh='" & cmbName.Text & "'"</p><p>　　rs_login.Open sql, conn, adOpenKeyset, adL

66、ockPessimistic</p><p>　　If rs_login.EOF = True Then</p><p>　　MsgBox "沒有這個(gè)用戶", vbOKOnly + vbExclamation, ""</p><p>　　cmbName.SetFocus</p><p>　　Else

67、 '檢驗(yàn)密碼是否正確</p><p>　　If Trim(rs_login.Fields(1)) = Trim(txtPwd.Text) Then</p><p>　　userID = cmbName.Text</p><p>　　username = rs_login.Fields(2)

68、'記錄登錄用戶的類型，以便權(quán)限設(shè)置</p><p><b>　　Unload Me</b></p><p>　　frmMain.Show</p><p>　　rs_login.Close</p><p><b>　　Exit Sub</b></p><p><b

69、>　　Else</b></p><p>　　MsgBox "密碼不正確", vbOKOnly + vbExclamation, ""</p><p>　　txtPwd.SetFocus</p><p><b>　　End If</b></p><p><b&

70、gt;　　End If</b></p><p><b>　　End If</b></p><p>　　Private Sub Form_Load()</p><p>　　connectionstring = "provider=Microsoft.Jet.oledb.4.0;" & _</p>

71、<p>　　"data source= " & App.Path & "\House.mdb"</p><p>　　conn.Open connectionstring '打開數(shù)據(jù)庫(kù)</p><p>　　sql = "select * from 系統(tǒng)管理表 "

72、 '檢索系統(tǒng)管理表</p><p>　　rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic '打開記錄集</p><p>　　If rs_login.EOF = False Then '有記錄時(shí)逐一添加到cmbName組合框</p><p>　　Do Whil

73、e rs_login.EOF = False</p><p>　　cmbName.AddItem (rs_login.Fields(0))</p><p>　　rs_login.MoveNext</p><p><b>　　Loop</b></p><p>　　cmbName.ListIndex = 0

74、 '默認(rèn)顯示第一個(gè)子項(xiàng)</p><p><b>　　End If</b></p><p>　　rs_login.Close</p><p>　　cnt = 0 '初始化輸入次數(shù)</p><p><b>　　End Su

75、b</b></p><p>　?。ǘ┲鞔翱谀K的實(shí)現(xiàn)</p><p>　　主程序窗體，是其它窗口的容器，負(fù)責(zé)調(diào)用其它子程序模塊，并在其容器窗口內(nèi)進(jìn)行顯示及操作。</p><p>　?、?主窗體模塊的界面設(shè)計(jì)</p><p><b>　　窗體樣式:</b></p><p><b&

76、gt;　　圖2主窗體界面</b></p><p>　　⒉ 登錄窗體模塊實(shí)現(xiàn)的代碼</p><p><b>　　代碼如下：</b></p><p>　　Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)</p><p>　

77、　If MsgBox("確實(shí)要退出本系統(tǒng)嗎？", vbYesNo + vbQuestion, "提示") = vbNo Then</p><p>　　Cancel = True '如果用戶不退出，則取消卸載</p><p>　　Else </

78、p><p>　　If conn.State <> 0 Then conn.Close '關(guān)閉數(shù)據(jù)庫(kù)連接</p><p>　　Set conn = Nothing </p><p><b>　　End If</b></p><p><b>　　End Su

79、b</b></p><p>　　Private Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button)</p><p>　　Select Case Button.Key '按關(guān)鍵字選擇</p><p>　　Case "bt_loupa

80、n" </p><p>　　frmBuildingFind.Show 1</p><p>　　Case "bt_kehu"</p><p>　　frmKehuFind.Show 1</p><p>　　Case "bt_shoufei"</p><p>　

81、　frmShoufeiFind.Show 1</p><p>　　Case "bt_shoulou"</p><p>　　frmHetongLogin.Show 1</p><p>　　Case "bt_shoukuan"</p><p>　　frmShoukuanLogin.Show 1</p&

82、gt;<p>　　Case "bt_tuichu"</p><p><b>　　Unload Me</b></p><p>　　End Select</p><p><b>　　End Sub</b></p><p>　?。ㄈ┱刮徊樵兇绑w模塊的實(shí)現(xiàn)</p&g

83、t;<p>　　查詢展位戶型信息，可查看展位的詳細(xì)介紹資料，提供按展位編號(hào)，展位面積和展位結(jié)構(gòu)三種方式查找，支持模糊查找。</p><p>　　1.展位查詢窗體模塊的界面設(shè)計(jì)</p><p><b>　　窗體樣式：</b></p><p>　　圖3 用戶查詢窗體界面</p><p>　　2.展位查詢窗體模塊

84、實(shí)現(xiàn)的代碼</p><p><b>　　代碼如下：</b></p><p>　　Private Sub cmdfind_Click() </p><p>　　On Error GoTo finderror</p><p>　　Dim sql As String</p><p>　

85、　CInt(Trim(txtmianji1.Text)) & " and " & CInt(Trim(txtmianji2.Text))</p><p>　　rs_huxing.CursorLocation = adUseClient</p><p>　　rs_huxing.Open sql, conn, adOpenKeyset, adLockPess

86、imistic</p><p><b>　　setgrid</b></p><p>　　setgridhead</p><p>　　displaygrid</p><p>　　rs_huxing.Close</p><p><b>　　Exit Sub</b></p&g

87、t;<p><b>　　End If</b></p><p>　　If Option3.Value = True Then '選擇戶型結(jié)構(gòu)作為查詢條件</p><p>　　sql = "select * from 戶型資料表 where Hst_type = '" & Trim(Co

88、mbo1.Text) & </p><p>　　rs_huxing.CursorLocation = adUseClient</p><p>　　rs_huxing.Open sql, conn, adOpenKeyset, adLockPessimistic</p><p><b>　　setgrid</b></p>&

89、lt;p>　　setgridhead</p><p>　　displaygrid</p><p>　　rs_huxing.Close</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>

90、;　　Exit Sub</b></p><p>　　finderror:</p><p>　　MsgBox Err.Description</p><p><b>　　End Sub</b></p><p>　?。ㄋ模┦湛罟芾泶绑w模塊的實(shí)現(xiàn)</p><p>　　本窗體主要用來(lái)對(duì)是對(duì)展會(huì)

91、展位租金的收取進(jìn)行統(tǒng)計(jì)，其中收款資料包括：交款日期，收款編號(hào)，付費(fèi)方式等信息收費(fèi)資料進(jìn)行登記，可以進(jìn)行添加，打印等操作。</p><p>　　1.收款管理窗體模塊的界面設(shè)計(jì)</p><p><b>　　窗體樣式：</b></p><p>　　圖4 收款管理窗體界面</p><p>　　2.收款管理窗體模塊實(shí)現(xiàn)的代碼<

92、;/p><p><b>　　代碼如下：</b></p><p>　　Private Sub cmdsave_Click()</p><p>　　Dim i As Integer</p><p>　　If Trim(txtloupannum.Text) = "" Then</p><p&

93、gt;　　MsgBox "展位編號(hào)不能為空！", vbOKOnly + vbExclamation</p><p>　　txtloupannum.SetFocus</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p&g

94、t;　　Label7.Caption = CStr(CCur(Trim(txtprice.Text)))</p><p>　　Label6.Caption = ChineseFormat(CCur(Trim(txtprice.Text)))</p><p>　　rs_shoufei.AddNew</p><p>　　rs_shoufei.Fields(0) = Va

95、l(Trim(Label5.Caption))</p><p>　　rs_shoufei.Fields(1) = Val(Trim(Combo1.Text))</p><p>　　rs_shoufei.Fields(2) = Trim(txtloupannum.Text)</p><p>　　rs_shoufei.Fields(3) = Date</p>

96、<p>　　rs_shoufei.Fields(4) = CCur(Trim(txtprice.Text))</p><p>　　rs_shoufei.Fields(5) = Trim(Combo2.Text)</p><p>　　rs_shoufei.Fields(6) = Trim(txtskr.Text)</p><p>　　rs_shoufei

97、.Fields(7) = Trim(txtjkr.Text)</p><p>　　rs_shoufei.Update</p><p>　　MsgBox "保存成功！", vbOKOnly + vbExclamation</p><p><b>　　Exit Sub</b></p><p><b&

98、gt;　　End Sub</b></p><p>　　Private Sub cmdprint_Click()</p><p><b>　　Dim X%</b></p><p>　　X% = BitBlt(Picture1.hDC, 0, 0, Picture1.Width, Picture1.Height, _</p>

99、<p>　　Picture1.hDC, 0, 0, SRCCOPY)</p><p>　　Picture1.Picture = Picture1.Image</p><p>　　Printer.PaintPicture Picture1.Picture, 0, 0</p><p><b>　　End Sub</b></p&g

100、t;<p>　　Private Sub cmdexit_Click()</p><p>　　rs_shoufei.Close</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p><p>　　Private Sub Form

101、_Load()</p><p>　　Dim sql As String</p><p>　　Dim i As Integer</p><p>　　On Error GoTo loaderror</p><p>　　sql = "select * from 收款登記表"</p><p>　　If rs

102、_shoufei.State <> 0 Then rs_shoufei.Close</p><p>　　rs_shoufei.CursorLocation = adUseClient</p><p>　　rs_shoufei.Open sql, conn, adOpenKeyset, adLockPessimistic</p><p>　　txtpric

103、e.Text = "0.00"</p><p>　　i = rs_shoufei.RecordCount</p><p>　　Label2.Caption = Year(Date) 'Date取得當(dāng)前系統(tǒng)日期</p><p>　　Label3.Caption = Month(Date)

104、 'Month函數(shù)取得日期的月數(shù)部分</p><p>　　Label4.Caption = Day(Date)</p><p>　　Label5.Caption = Format(i + 1, "000000") '系統(tǒng)中現(xiàn)有記錄條數(shù)加1</p><p>　　Combo2.AddItem (&quo

105、t;現(xiàn)金")</p><p>　　Combo2.AddItem ("刷卡")</p><p>　　Combo2.AddItem ("銀行票據(jù)")</p><p>　　Combo2.ListIndex = 0</p><p>　　sql = "select * from 合同資料表&q

106、uot;</p><p>　　If rs_hetong.State <> 0 Then rs_hetong.Close</p><p>　　rs_hetong.CursorLocation = adUseClient</p><p>　　rs_hetong.Open sql, conn, adOpenKeyset, adLockPessimistic&l

107、t;/p><p>　　If rs_hetong.RecordCount > 0 Then</p><p>　　rs_hetong.MoveFirst</p><p>　　Do While Not rs_hetong.EOF</p><p>　　Combo1.AddItem (Trim(rs_hetong.Fields(0)))</p&

108、gt;<p>　　rs_hetong.MoveNext</p><p><b>　　Loop</b></p><p>　　Combo1.ListIndex = 0</p><p><b>　　End If</b></p><p>　　rs_hetong.Close</p>

109、<p><b>　　Exit Sub</b></p><p>　　loaderror:</p><p>　　MsgBox Err.Description</p><p><b>　　End Sub</b></p><p>　?。ㄎ澹┦召M(fèi)查詢窗體模塊的實(shí)現(xiàn)</p><p

110、>　　本窗體主要用來(lái)對(duì)收費(fèi)資料進(jìn)行查詢，包括以收費(fèi)單號(hào)，展會(huì)編號(hào)，交款人以及交款日期進(jìn)行查詢。</p><p>　　1.收費(fèi)查詢窗體模塊的界面設(shè)計(jì)：</p><p><b>　　窗體樣式：</b></p><p>　　圖5 收費(fèi)查詢窗體界面 </p><p>　　2.收費(fèi)查詢窗體模塊實(shí)現(xiàn)的代碼</p>

111、<p><b>　　代碼如下：</b></p><p>　　Private Sub cmdfind_Click()</p><p>　　Dim sql As String</p><p>　　On Error GoTo loaderror</p><p>　　grdShoufeiFind.Clear</

112、p><p>　　If optionid.Value = True Then</p><p>　　sql = "select * from 收費(fèi)信息表 where fee_ID = " & CInt(txtshoufeinum.Text)</p><p>　　rs_shoufei.CursorLocation = adUseClient<

113、/p><p>　　rs_shoufei.Open sql, conn, adOpenKeyset, adLockPessimistic</p><p><b>　　setgrid</b></p><p>　　setgridhead</p><p>　　displaygrid</p><p>　　rs_

114、shoufei.Close</p><p><b>　　Exit Sub</b></p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　If Optionjkr.Value = True Then</p&g

115、t;<p>　　sql = "select * from 收費(fèi)信息表 where fee_jkr = '" & txtjkr.Text & "'"</p><p>　　rs_shoufei.CursorLocation = adUseClient</p><p>　　rs_shoufei.Open sql

116、, conn, adOpenKeyset, adLockPessimistic</p><p><b>　　setgrid</b></p><p>　　setgridhead</p><p>　　displaygrid</p><p>　　rs_shoufei.Close</p><p><

117、b>　　Exit Sub</b></p><p><b>　　End If</b></p><p>　　If optionjkt.Value = True Then</p><p>　　sql = "select * from 收費(fèi)信息表 where Fee_date between #" & _&

118、lt;/p><p>　　DTPicker1.Value & "# and #" & DTPicker2.Value & "#"</p><p>　　rs_shoufei.CursorLocation = adUseClient</p><p>　　rs_shoufei.Open sql, conn, adO

119、penKeyset, adLockPessimistic</p><p><b>　　setgrid</b></p><p>　　setgridhead</p><p>　　displaygrid</p><p>　　rs_shoufei.Close</p><p><b>　　Exit

120、 Sub</b></p><p><b>　　End If</b></p><p><b>　　Exit Sub</b></p><p>　　loaderror:</p><p>　　MsgBox Err.Description</p><p><b>

121、　　End Sub</b></p><p>　　Private Sub Form_Load()</p><p>　　Dim sql As String</p><p>　　On Error GoTo loaderror</p><p>　　sql = "select * from 收費(fèi)信息表"</p>

122、;<p>　　rs_shoufei.CursorLocation = adUseClient</p><p>　　rs_shoufei.Open sql, conn, adOpenKeyset, adLockPessimistic</p><p><b>　　setgrid</b></p><p>　　setgridhead<