展會管理系統畢業(yè)論文

1、 . . . I / 25所 在 系：專 業(yè)：姓 名：學 號：指導教師： 本科生畢業(yè)論文（設計）本科生畢業(yè)論文（設計）題目：展會管理系統題目：展會管理系統 數學與信息技術院 計算機科學與技術 薇薇 0921410012 瀟論文完成日期： 2011 年 4 月 30 日 . . . I / 25目錄一、緒論 1（一）選題的目的與意義 1（二）課題的開發(fā)環(huán)境 1（三）開發(fā)平臺的特點 1二、開發(fā)平臺的相關技術 3（一）VISUAL BASIC6.0 平臺概述與相關技術 3（二）ADO 數據庫訪問技術與其在 VB 中的應用 4三、展會管理系統的設計 5（一）系統的總體設計 5（二）系統應用軟件架構設計

2、 5（三）系統的功能設計 5（四）系統的后臺數據庫設計 8（五）設計規(guī)的約定 12四、展會管理系統的實現 13（一）登錄窗體模塊的實現 13（二）主窗口模塊的實現 14（三）展位查詢窗體模塊的實現 15（四）收款管理窗體模塊的實現 17（五）收費查詢窗體模塊的實現 19總結 21參考文獻 21致 21 . . . I / 25展會管理系統展會管理系統薇薇薇薇 09214100120921410012摘要摘要隨著目前國會議會展的日趨增多，傳統的以手工方式為主的展會管理模式受到了很大的沖擊，展會資源不能合理得到利用，管理者不能實時掌握展會的各項動態(tài)資料。因此有必要開發(fā)出一套針對展會組織者專用的計算

3、機輔助管理軟件，展會管理系統便應運而生。展會管理信息系統能夠幫助組委會在展會籌備階段對展商，觀眾，活動和花費進行管理。系統高度抽象了展會籌備階段的業(yè)務模型，在設計上采用彈性，活動的設計方法，具有一定的獨到之處。允許用戶根據實際需要定義展會中的活動的各項屬性，使得組委會能夠根據實際情況在系統中定制展會活動，并對活動和資源計劃以與發(fā)生的費用進行全程的監(jiān)控，做出正確的決策。 關鍵詞關鍵詞 展會管理；管理信息系統；VB；Access 中圖分類號：中圖分類號：tp315tp315 文獻標識碼文獻標識碼: : A AAbstractAbstract Can exhibition along with th

4、e present domestic conference increases day by day, the tradition primarily exhibition by the manual way can manage 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 meeti

5、ng each item of dynamic material. Therefore has the necessity to develop a set in view of to exhibition meets the organizer special-purpose computer assistance to manage the software, exhibitions can the management system management system then arise at the historic moment. This exhibition managemen

6、t system helps the committee to plan and design in several aspets, such as size of exhibitor and vistor, activities and budges of eshibition. It does not only integrate the abstract work flow in eshibition , but aso contains some special features to provided a flexible manner. With the help of custo

7、mized definitions of activities and different properties in the system, different users can design according to different real world circumstances, observing the procedure and resources of the exhibit on-time so as make correct dscisions. KeyKey WordsWordsexhibition management ; Management Informati

8、on System ; Visual Basic ; access. . . . 1 / 25一、 緒 論（一）選題的目的與意義信息技術的飛速發(fā)展大大推動了社會的進步，已經逐漸改變了人類的生活、工作、學習等方式，數據庫技術和網絡技術是信息技術中最重要的兩大支柱。隨著我國經濟的蓬勃發(fā)展并逐漸與世界接軌，各行各業(yè)都在舉辦各種規(guī)模的國際展會，展會經濟已經成為社會活動的熱點。但是大多數展會主辦機構對展會籌備的整個過程缺乏信息化，智能化管理，仍停留在分散的，手工管理的初級水平上，已經不能滿足人們的需求，甚至會影響到展會產業(yè)的長期可持續(xù)發(fā)展。如何利用先進的管理手段，提高展會的管理水平，是當今大多數展會主辦

9、機構面臨的一個重要課題。要想提高展會的管理水平，必須全方位的提高展會管理意識。只有以為展商和觀眾提供高標準，高質量的服務為目標才能滿足人們的需要。面對信息時代的挑戰(zhàn)，利用高科技手段計算機管理系統來提高展會管理的組織和協調過程無疑是一條行之有效的途徑。在某種意義上，信息與科技在展會管理與展會經濟現代化建設中顯現出越來越重要的地位。展會管理的信息化與科學化，已成為展會經濟現代化水平步入高臺階的重要標志。因此有必要開發(fā)出一套針對展會組織者專用的計算機輔助管理軟件，展會管理系統便應運而生。（二）課題的開發(fā)環(huán)境Visual Basic6.0 版是微軟公司出品的一個可視化程序開發(fā)工具軟件,它不僅繼承了以往

10、版本的各種先進技術,而且適應目前計算機技術的發(fā)展潮流，提供了基于組件、Web 與多層結構的快速開發(fā)環(huán)境。它借助微軟在操作系統和辦公軟件的壟斷地位，Visual Basic6.0在短短的幾年就風靡了全球。Visual Basic6.0 是極有特色和功能強大的軟件，主要表現在：所見即所得的界面設計，基于對象的設計方法，極短的軟件開發(fā)周期，輕易維護的生成代碼。功能：Visual Basic6.0 具有強大的數據訪問、internet 編程、使用新的控件、利用增強的控件提高性能、熟悉語言特性的向導功能等重要特性。Visual Basic6.0 具有的這些特點可以大大簡化利用 Visual Basic6

11、.0 開發(fā)的美觀實用程序的難度。隨著數據庫技術的發(fā)展，面向對象的數據庫、分布式數據庫、多媒體數據庫、數據庫開發(fā)工具的研究方興未艾，這些技術的發(fā)展使應用軟件的開發(fā)速度更快、成本更低、質量更好、功能更強。Visual Basic6.0 是其中最杰出的代表之一，它集面向對象數據庫技術、分布式應用技術、多媒體技術于一身,是目前最有代表性的數據庫開發(fā)工具，幾乎已發(fā)展成為客戶/服務器前端工具的標準。因此，在開發(fā)展會管理系統時，我選用了 Visual Basic6.0作為開發(fā)工具。（三）開發(fā)平臺的特點展會管理系統的開發(fā)將采用 VB 6.0 和 Microsoft Access 2000 數據庫作為開發(fā)平臺。

12、 Visual Basic 是運行于 windows 平臺上的可視化集成開發(fā)環(huán)境。面對對象的編程；面向對象的設計方法 (OP, Objected Programming) 從應用領域的問題著手，以直觀自然的方式描述客觀世界的實體。Visual Basic 作為一種面向對象的編程方法，把程序和數據封 . . . 2 / 25裝起來作為一個對象，并為每個對象賦予相應的屬性。在設計對象時，不必編寫建立和描述每個對象的程序代碼，而是用工具畫在界面上，Visual Basic 應用程序基本的構建塊是用戶所創(chuàng)建的對象，每一個對象都具有一些特性和行為（屬性、事件和方法） 。開發(fā)人員可以最有效利用所創(chuàng)建的每一

13、個對象。使用應用程序具有可通用性可說擴展性和強有力的功能。Visual Basic 應用由一系列對象組成，包括有函數、菜單、函數、結構和數據窗口、用戶對象、用戶事件等等，對象中又包含若干控件如命令按鈕、單行編輯器等這些對象和控件都可在許多應用中重復使用。VB6.0 以人們所熟知的 BASIC 語言為基礎，不僅易于學習、掌握，它的可視化特性還為應用程序的界面設計提供了迅速便捷的途徑。在 VB 編程中不需編寫大量代碼去描述界面元素的外觀和位置，而只要把預先建立的對象拖放到適當位置即可。VB 同時還是一個包括了編輯、測試和程序調試等各種程序開發(fā)工具的集成開發(fā)環(huán)境（IDE） ，從應用程序的界面設計、程

14、序編碼、測試和調試、編譯并建立可執(zhí)行程序，直到應用程序的發(fā)行，種種功能VB 無不包容。不論是 Microsoft Windows 應用程序的專業(yè)開發(fā)人員，還是初學者，VB 都為他們提供了完整的開發(fā)工具。Microsoft Access 2000，可以在單一的數據庫文件中管理所有的信息。在這個文件中，用戶可以將自己的數據分別保存在各自獨立的存儲空間中，這些空間稱作表；可以使用聯機窗體來查看、添加與更新表中的數據；使用查詢來查找并檢索所要的數據；也可以使用報表以特定的版面布置來分析與打印數據。Access 2000 是一種關系型數據庫管理系統，其主要特點如下： 1.存儲方式單一 Access 管理

15、的對象有表、查詢、窗體、報表、頁、宏和模塊，以上對象都存放在后綴為（.mdb）的數據庫文件種，便于用戶的操作和管理。 2.界面友好、易操作 Access 是一個可視化工具，是風格與 Windows 完全一樣，用戶想要生成對象并應用，只要使用鼠標進行拖放即可，非常直觀方便。系統還提供了表生成器、查詢生成器、報表設計器以與數據庫向導、表向導、查詢向導、窗體向導、報表向導等工具，使得操作簡便，容易使用和掌握。 3.集成環(huán)境、處理多種數據信息 Access 基于 Windows 操作系統下的集成開發(fā)環(huán)境，該環(huán)境集成了各種向導和生成器工具，極提高了開發(fā)人員的工作效率，使得建立數據庫、創(chuàng)建表、設計用戶界面

16、、設計數據查詢、報表打印等可以方便有序地進行。 4.Access 支持 ODBC（開發(fā)數據庫互連，Open Data Base Connectivity） ，利用Access 強大的 DDE（動態(tài)數據交換）和 OLE（對象的聯接和嵌入）特性，可以在一個數據表中嵌入位圖、聲音、Excel 表格、Word 文檔，還可以建立動態(tài)的數據庫報表和窗體等。Access 還可以將程序應用于網絡，并與網絡上的動態(tài)數據相聯接。利用數據庫訪問頁對象生成 HTML 文件，輕松構建 Internet/Intranet 的應用。5.支持廣泛，易于擴展，彈性較大能夠將通過表的方式來打開 EXCEL 文件、格式化文本文件等

17、，這樣就可以利用數據庫的高效率對其中的數據進行查詢、處理。還可以通過以 Access 作為前臺客戶端，以 SQL Server 作為后臺數據庫的方式（如 ADP）開發(fā)大型數據庫應用系統。總之，Access 是一個既可以只用來存放數據的數據庫，也可以作為一個客戶端開發(fā)工具來進行數據庫應用系統開發(fā)；即可以開發(fā)方便易用的小型軟件，也可以用來開發(fā)大型的應用系統。 . . . 3 / 25二、 開發(fā)平臺的相關技術（一）Visual Basic6.0 平臺概述與相關技術為了理解應用程序開發(fā)過程，先要理解 Visual Basic 賴以創(chuàng)建的一些關鍵概念。因為 Visual Basic 是 Windows

18、開發(fā)語言，所以有必要與 Windows 環(huán)境保持一定的相似性。 如果不熟悉 Windows 編程，就需要明白在 Windows 環(huán)境下編程和在其它環(huán)境下編程的一些根本性的差別。全面地討論 Windows 的部工作機制將需要整整一本書的容量。沒有必要深入了解所有的技術細節(jié)。Windows 的工作機制，簡單地說就是三個關鍵的概念：窗口、事件和消息。Microsoft Windows 操作系統通過給每一個窗口指定一個唯一的標識號來管理所有的窗口。操作系統連續(xù)地監(jiān)視每一個窗口的活動或事件的信號。事件可以通過諸如單擊鼠標或按下按鍵的操作而產生，也可以通過程序的控制而產生，甚至可以由另一個窗口的操作而產生

19、。每發(fā)生一次事件，將引發(fā)一條消息發(fā)送至操作系統。操作系統處理該消息并廣播給其它窗口。然后，每一個窗口才能根據自身處理該條消息的指令而采取適當的操作（例如，當窗口解除了其它窗口的覆蓋時，重顯自身窗口） ?？梢韵胂?，處理各種窗口、事件和消息的所有可能的組合將有驚人的工作量。幸運的是 Visual Basic 使您擺脫了所有的低層消息處理。許多消息由 Visual Basic 自動處理了，其它的作為事件過程由編程者自行處理。這樣可以快速創(chuàng)建強大的應用程序而毋需處理不必要的細節(jié)。事件驅動模型在傳統的或“過程化”的應用程序中，應用程序自身控制了執(zhí)行哪一部分代碼和按何種順序執(zhí)行代碼。從第一行代碼執(zhí)行程序并

20、按應用程序中預定的路徑執(zhí)行，必要時調用過程。在事件驅動的應用程序中，代碼不是按照預定的路徑執(zhí)行，而是在響應不同的事件時執(zhí)行不同的代碼片段。事件可以由用戶操作觸發(fā)，也可以由來自操作系統或其它應用程序的消息觸發(fā)，甚至由應用程序本身的消息觸發(fā)。這些事件的順序決定了代碼執(zhí)行的順序，因此應用程序每次運行時所經過的代碼的路徑都是不同的。因為事件的順序是無法預測的，所以在代碼中必須對執(zhí)行時的“各種狀態(tài)”作一定的假設。當作出某些假設時（例如，假設在運行來處理某一輸入字段的過程之前，該輸入字段必須包含確定的值） ，應該組織好應用程序的結構，以確保該假設始終有效（例如，在輸入字段中有效值之前禁止使用啟動該處理過程

21、的命令按鈕） 。在執(zhí)行中代碼也可以觸發(fā)事件。例如，在程序中改變文本框中的文本將引發(fā)文本框的 Change 事件。如果 Change 事件中包含有代碼，則將導致該代碼的執(zhí)行。如果原來假設該事件僅能由用戶的交互操作所觸發(fā)，則可能會產生意料之外的結果。正因為這一原因，所以在設計應用程序時事件驅動模型并牢記在心是非常重要的。交互式開發(fā)傳統的應用程序開發(fā)過程可以分為三個明顯的步驟：編碼、編譯和測試代碼。但是 Visual Basic 與傳統的語言不同，它使用交互式方法開發(fā)應用程序，使三個步驟之間不再有明顯的界限。在大多數語言里，如果編寫代碼時發(fā)生了錯誤，則在開始編譯應用程序時該錯誤就會被編譯器捕獲。此時

22、必須查找并改正該錯誤，然后再次進行編譯，對每一個發(fā)現的錯誤都要重復這樣的過程。Visual Basic 在編程者輸入代碼時便進行解釋，即時捕獲并突出顯示大多數語法或拼寫錯誤?？雌饋砭拖褚晃粚＜以诒O(jiān)視代碼的輸入。除即時捕獲錯誤以外，Visual Basic 也在輸入代碼時部分地編譯該代碼。當準備運行和測試應用程序時，只需極短時間即可完成編譯。如果編譯器發(fā)現了錯誤，則將錯誤突出顯示于代碼中。這時可以更正錯誤并繼續(xù)編譯，而不需從頭開始。 . . . 4 / 25由于 Visual Basic 的交互特性，因此可以發(fā)現在開發(fā)應用程序時，您自己正頻繁地運行著您的應用程序。通過這種方式，代碼運行的效果可以

23、在開發(fā)時進行測試，而不必等到編譯完成以后。Basic 的工作環(huán)境常常是指集成開發(fā)環(huán)境或 IDE，這是因為它在一個公共環(huán)境里集成了許多不同的功能，例如，設計、編輯、編譯和調試。在大多傳統開發(fā)工具中，每個功能都是以一個獨立的程序運行，并都有自己的界面。當運行 Visual Basic 安裝程序時，允許將程序項置于已存在的程序組中，或在 Windows 中為 Visual Basic 創(chuàng)建一個新的程序組和程序項。這時可準備從 Windows 啟動 Visual Basic。（二）ADO 數據庫訪問技術與其在 VB 中的應用ActiveX Data Objects (ADO) 是微軟最新的數據訪問技術

24、。它被設計用來同新的數據訪問層OLEDB Provider 一起協同工作，以提供通用數據訪問（Universal Data Access） 。OLEDB 是一個低層的數據訪問接口，用它可以訪問各種數據源，包括傳統的關系型數據庫，以與電子系統與自定義的商業(yè)對象。ADO 向我們提供了一個熟悉的，高層的對 OLEDB 的 Automation 封裝接口。對那些熟悉 RDO 的程序員來說，你可以把 OLEDB 比作是 ODBC 驅動程序。如同 RDO 對象是 ODBC 驅動程序接口一樣，ADO 對象是 OLE DB 的接口；如同不同的數據庫系統需要它們自己的 ODBC 驅動程序一樣，不同的數據源要求它

25、們自己的 OLE DB 提供者（OLE DB provider） 。目前，雖然 OLE DB 提供者比較少，但微軟正積極推廣該技術，并打算用 OLE DB 取代 ODBC。ADO 向 VB 程序員提供了很多好處。包括易于使用，熟悉的界面，高速度以與較低的存占用（已實現 ADO2.0 的 Msado15.dll 需要占用 342K 存，比 RDO 的 Msrdo20.dll 的 368K 略小，大約是 DAO3.5 的Dao350.dll 所占存的 60） 。同傳統的數據對象層次（DAO 和 RDO）不同，ADO 可以獨立創(chuàng)建。因此你可以只創(chuàng)建一個Connection對象，但是可以有多個，獨立的

26、對象來使用它。ADO 針對客戶服務器以與 WEB 應用程序作了優(yōu)化。 ODBC 是 Open DataBase Connectivity 的縮寫，稱為開放式數據庫，它相當于是一個數據庫引擎，或者簡單理解為是一種數據庫驅動程序。由于不同數據庫系統的運作方式和存取方法是各不一樣的，為了能統一對不同數據庫的存取操作，為此，就誕生了 ODBC。有了 ODBC 驅動程序，就可實現用同樣的方法，來存取各種不同類型的關系型數據庫，而不必關心所存取數據庫類型。利用 ODBC ，可實現存取和訪問任何符合 ODBC 標準的關系型數據庫。ADO 對象模型的使用技巧ADO 提供了 7 個獨立的對象，利用這些對象，可實

27、現對數據庫的存取和訪問。在這 7 個對象中，Connection、Command 和 RecordSet 對象是整個 ADO 的核心，通過 Connection 對象與一個數據庫建立連接，然后利用 Command 對象執(zhí)行查詢，從而返回查詢結果，并將結果（記錄集）存入 RecordSet 對象中，利用服務器端腳本，通過訪問 RecordSet 對象遍可獲得所查詢到的記錄容。 除了 Command 對象可以執(zhí)行查詢外，另外，利用 Connection 對象的 Execute 方法和 RecordSet 對象的 Open 方法，也可以執(zhí)行一個查詢，從而返回一個記錄集。使用 adodata（ADO

28、Data Control)控件訪問數據庫可以完全不用編寫代碼,只需要通過簡單的設置和操作其屬性就可以實現與數據庫的連接,通過綁定數據感知控件,就能提供一個訪問數據庫的界面,用來實現對數據庫的瀏覽,貼加,刪除,修改等操作. . . . 5 / 25三、 展會管理系統的設計（一）系統的總體設計程序功能設計軟件分為系統管理、展會數據初始化、查詢與收費管理、展會管理、系統維護 5 大模塊。1.系統管理：用戶管理、更改密碼、登錄系統、退出系統。2.展會數據初始化：展會展位登記、展會登記、客戶資料登記。3.查詢與收費管理：展會展位查詢、展會查詢、客戶資料查詢、收費登記、收費查詢。4.展會管理：展會管理人員

29、登記、展會展位合同管理、收款管理、展會管理人員查詢、展會展位合同查詢、收款情況查詢。5.系統維護：數據庫備份、數據庫恢復。6.幫助：關于展會管理。 系統結構圖:圖 1 系統結構圖（二）系統應用軟件架構設計1.采用 C/S 結構設計。2.數據庫運行在 Server 機上。3.展會管理信息系統程序分別運行在 Client 機上4.主辦機構負責人、總監(jiān)、具有不同的權限來使用系統的各個功能。（三）系統的功能設計1.展會管理系統功能結構圖展會管理系統系統維護展會管理系統管理展會數據初始化查詢與收費管理 . . . 6 / 25圖 2 系統功能結構圖系統功能模塊說明（1）系統功能的說明系統管理部分：系統管

30、理具有用戶管理和退出系統的功能。對系統支持性數據作維護。用戶管理：可以添加，刪除，修改用戶，設置用戶登陸密碼，以與確認用戶角色。退出系統：斷開與數據庫的連接，退出系統。系統維護查詢與收費管理收費登記收費查詢系統管理展會管理信息系統用戶管理退出系統登錄系統更改密碼客戶資料登記展會展位登記展會登記展會數據初始化客戶資料查詢展會展位查詢數據庫備份數據庫恢復幫助展會展位合同管理展會管理人員登記收款管理展會管理收款情況查詢展會管理人員查詢展會展位合同查詢 . . . 7 / 25展會數據初始化部分：展會信息包括（展會名稱、場館、開始時間、地點、展會組辦機構等信息） ?？蛻糍Y料包括(單位法人名，單位地址，

31、等信息)。刪除展會信息時需檢查。查詢與收費管理部分：管理和查看展會展位與參展單位的負責人，實現對單位按其名稱執(zhí)行模糊查詢，還能夠按照其他屬性進行全方位的查找。操作員添加參展單位后，記錄該單位的展會活動和活動明細。每項活動的收費金額合計（應收賬款）=（資源單價*資源數量） ，員選擇參展單位后，系統自動調出該單位的活動和活動明細。并可對收費紀錄進行票據打印。（2）展會管理部分：展會管理人員的信息包括：,等信息。展會展位合同管理：是對展會展位合同管理和查看，實現對合同按其名稱執(zhí)行模糊查詢，還能夠按照其他屬性進行全方位的查找。收款管理：是對展會展位租金的收取，其中收款資料包括：交款日期，收款編號，交款

32、方式等信息。并可對其打印。展會管理人員查詢：可以按照展會管理人員的編號和查詢。展會展位合同查詢：展會展位合同查詢包括按照合同編號的查詢和按照展會展位綜合編號查詢等。收款情況查詢：收款情況查詢包括按照合同編號查詢，按照展會展位綜合編號查詢和按照交費日期時間圍查詢等。系統維護部分：包括對數據備份和數據恢復，實現將現有的后臺數據庫進行備份和恢復功能。幫助部分:對本系統的開發(fā)和使用進行簡要的說明。主要程序結構的流程圖圖 3 用戶登陸數據流圖（1）用戶登陸數據流圖展位類別表系統信息登陸信息缺少項目用戶界面登陸信息用戶口令用戶表登陸信息初始化主界面身份驗證處理用戶權限系統登陸提交數據檢驗 . . . 8

33、/ 25圖 4 展位管理模塊的數據流圖圖 5 收款管理模塊的數據流圖（四）系統的后臺數據庫設計1數據庫平臺的選擇 在分析階段已確定本系統的數據庫平臺選擇微軟公司的 Access 2000。2. 關系數據表的建立（2）展位管理模塊的數據流圖展位類別展位登記展位清單表展位類別表展位清單（3）收款管理模塊的數據流圖收款單活動活動收款單活動收款單表單位活動收款明細表收款處理收款登記收款單 . . . 9 / 25(1) 展會信息表字段的定義：表 1 展會信息表字段名數據類型主鍵說明ZongID文本Yes展會展位綜合編號ExhID文本No展位代碼ExhName文本No展會名稱Exhprice貨幣No展位

34、單位價格(2) 參展單位信息表字段的定義：表 2 參展單位信息表字段名數據類型主鍵說明CompanyID文本Yes參展單位代碼（法人號）CompanyName文本No單位名稱Address文本No單位地址PostCode文本NoEmail文本No電子Btithday日期No出生日期（法人）Sex文本No性別（聯系人）Name文本No聯系人Carcode文本No車牌號Tel文本NoMobtel文本No手機ExhNo浮點No參展次數Remark文本No備注(3) 場館表字段的定義表 3 場館表字段名數據類型主鍵說明ExhID文本Yes展位代碼MaxArea浮點No展位面積MaxStationNo浮

35、點No部面積HighLimit文本No展位形狀WeightLimit文本No圖片Remark文本No簡介 . . . 10 / 25(4) 合同資料信息表字段的定義表 4 合同資料信息表 字段名數據類型主鍵數據說明PctID浮點Yes合同編號ExhID文本Yes展位代碼CompanyID文本Yes單位代碼SampleClassID文本Yes聯系人SaleID文本Yes銷售人員編號Price文本No租金單價Discountrate浮點No折扣率Discoutcash貨幣No折扣金額Number文本No車位號TotalValue貨幣No車位租金TransMark文本No倉庫號TransExplai

36、n貨幣No倉庫租金B(yǎng)asement文本No付款方式Bank文本No貸款銀行Remark數字No是否交款BeginDate日期No簽訂日期EndDate日期No付款日期(5) 單位活動表字段的定義表 5 單位活動表字段名數據類型主鍵數據說明CompanyActiveID文本Yes單位活動代碼ExhCompanyID文本No參展單位代碼Remark文本No備注IsCharge邏輯No是否收費ShouldReceive貨幣No應收金額AlreadyReceive貨幣No實收金額ConfirmDate日期No審核日期OperateDate日期No操作日期Operator文本No操作員 . . . 11

37、 / 25(6) 活動資源明細表字段的定義表 6 活動資源明細表字段名數據類型主鍵說明ExhlID文本Yes展位代碼ResourceID文本Yes資源代碼Price貨幣No單價MaxNot浮點No最大數量ResourceNo文本No資源名稱Unit貨幣No單位(7) 銷售管理人員表字段的定義表 7 銷售管理人員表字段名數據類型主鍵說明PeopleID文本Yes銷售管理人員代碼ID文本Yes號PeopleName文本NoZipcode文本NoBrithday日期No出生日期Sex邏輯No性別OfficeTel文本No辦公Mobile文本No手機Email文本No電子Remark文本No備注(8)

38、 收費表字段的定義表 8 收費信息表字段名數據類型主鍵說明ReceiveID文本Yes收款代碼ExhID文本Yes展位代碼ReceiveValue貨幣No收費金額ReceiveDate日期No收費日期Operator文本No收費人Checker文本No交費人Zanwfee貨幣No展位管理費Telfee貨幣No機與網絡通信費 . . . 12 / 25(9) 收款單明細字段的定義表 9 收款信息表字段名數據類型主鍵說明ReceiveID文本Yes收款代碼CompanyActiveID文本Yes單位活動代碼ReceiveDetailID文本Yes回款明細代碼MinusShould貨幣No減應收金額

39、FactReceive貨幣No實收金額Remark文本No備注(10) 系統管理表字段的定義表 10 系統管理表字段名數據類型主鍵說明czyz文本Yes操作員號password文本No操作員密碼qx文本No權限（五）設計規(guī)的約定1.結構化編碼約定編碼應清晰、可讀性好，運用縮進、空行，結合大小寫區(qū)別等方法保持程序結構良好。凡與數據庫操作相關的模塊一律加上容錯代碼，涉與多表操作的模塊應運用“事務”處理，以保持數據完整性。2.數據源的約定數據源組件是數據顯示組件和數據集組件之間的中介。數據集從數據庫獲得數據后，將其發(fā)送到數據源，然后數據源將數據送到界面上的數據顯示組件進行顯示。當使用數據模塊時，數據

40、源組件是數據模塊的一部分。3.數據集約定 數據集是數據庫應用程序的核心，數據集組件保存了一系列從底層的數據庫取出的記錄。這些記錄的數據可以取自一個表，一個表中的若干字段，多個數據表的若干字段。數據集組件實際上為應用程序提供了一個緩沖區(qū)，來保存數據庫中實際存在表中的數據。如果系統要用到數據集組件，一律使用 ADO 頁中的數據集組件。 . . . 13 / 25四、 展會管理系統的實現（一）登錄窗體模塊的實現程序運行時最先啟動此窗口，連接數據庫并驗證登錄用戶身份，輸入用戶名與密碼，驗證通過后進入系統主窗口。1.登錄窗體模塊的界面設計窗體樣式：圖 1 登錄窗體2.登錄窗體模塊實現的代碼代碼如下：Pr

41、ivate Sub cmdcancel_Click() conn.Close 關閉數據庫連接 Set conn = NothingEnd SubPrivate Sub cmdok_Click() If Trim(cmbName.Text) = Then 判斷輸入的用戶名是否為空 MsgBox 沒有這個用戶, vbOKOnly + vbExclamation cmbName.SetFocus Else 判斷用戶名和密碼是否正確 sql = select * from 系統管理表 where czyh= & cmbName.Text & rs_login.Open sql, con

42、n, adOpenKeyset, adLockPessimistic If rs_login.EOF = True Then MsgBox 沒有這個用戶, vbOKOnly + vbExclamation, cmbName.SetFocus Else 檢驗密碼是否正確 If Trim(rs_login.Fields(1) = Trim(txtPwd.Text) Then userID = cmbName.Text username = rs_login.Fields(2) 記錄登錄用戶的類型，以便權限設置 Unload Me frmMain.Show rs_login.Close . . .

43、14 / 25 Exit Sub Else MsgBox 密碼不正確, vbOKOnly + vbExclamation, txtPwd.SetFocus End If End If End IfPrivate Sub Form_Load() connectionstring = provider=Microsoft.Jet.oledb.4.0; & _ data source= & App.Path & House.mdb conn.Open connectionstring 打開數據庫 sql = select * from 系統管理表 檢索系統管理表 rs_log

44、in.Open sql, conn, adOpenKeyset, adLockPessimistic 打開記錄集 If rs_login.EOF = False Then 有記錄時逐一添加到 cmbName 組合框 Do While rs_login.EOF = False cmbName.AddItem (rs_login.Fields(0) rs_login.MoveNextLoop cmbName.ListIndex = 0 默認顯示第一個子項 End If rs_login.Close t = 0 初始化輸入次數End Sub（二）主窗口模塊的實現主程序窗體，是其它窗口的容器，負責調用

45、其它子程序模塊，并在其容器窗口進行顯示與操作。 主窗體模塊的界面設計窗體樣式: . . . 15 / 25圖 2 主窗體界面 登錄窗體模塊實現的代碼代碼如下：Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) If MsgBox(確實要退出本系統嗎？, vbYesNo + vbQuestion, 提示) = vbNo Then Cancel = True 如果用戶不退出，則取消卸載 Else If conn.State 0 Then conn.Close 關閉數據庫連接 Set conn = Nothin

46、g End IfEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Key 按關鍵字選擇 Case bt_loupan frmBuildingFind.Show 1 Case bt_kehu frmKehuFind.Show 1 Case bt_shoufei frmShoufeiFind.Show 1 Case bt_shoulou frmHetongLogin.Show 1 Case bt_shoukuan frmShoukuanLogin.Show 1

47、 Case bt_tuichu Unload MeEnd SelectEnd Sub . . . 16 / 25（三）展位查詢窗體模塊的實現查詢展位戶型信息，可查看展位的詳細介紹資料，提供按展位編號，展位面積和展位結構三種方式查找，支持模糊查找。1.展位查詢窗體模塊的界面設計窗體樣式：圖 3 用戶查詢窗體界面2.展位查詢窗體模塊實現的代碼代碼如下：Private Sub cmdfind_Click() On Error GoTo finderror Dim sql As StringCInt(Trim(txtmianji1.Text) & and & CInt(Trim(txt

48、mianji2.Text) rs_huxing.CursorLocation = adUseClient rs_huxing.Open sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid rs_huxing.Close Exit SubEnd If If Option3.Value = True Then 選擇戶型結構作為查詢條件 sql = select * from 戶型資料表 where Hst_type = & Trim(Combo1.Text) & rs_huxing.C

49、ursorLocation = adUseClient rs_huxing.Open sql, conn, adOpenKeyset, adLockPessimistic . . . 17 / 25 setgrid setgridhead displaygrid rs_huxing.Close Exit Sub End If Exit Subfinderror: MsgBox Err.DescriptionEnd Sub（四）收款管理窗體模塊的實現本窗體主要用來對是對展會展位租金的收取進行統計，其中收款資料包括：交款日期，收款編號，付費方式等信息收費資料進行登記，可以進行添加，打印等操作。1.

50、收款管理窗體模塊的界面設計窗體樣式：圖 4 收款管理窗體界面2.收款管理窗體模塊實現的代碼代碼如下：Private Sub cmdsave_Click()Dim i As IntegerIf Trim(txtloupannum.Text) = Then MsgBox 展位編號不能為空！, vbOKOnly + vbExclamation txtloupannum.SetFocus Exit SubEnd IfLabel7.Caption = CStr(CCur(Trim(txtprice.Text)Label6.Caption = ChineseFormat(CCur(Trim(txtpric

51、e.Text) . . . 18 / 25rs_shoufei.AddNewrs_shoufei.Fields(0) = Val(Trim(Label5.Caption)rs_shoufei.Fields(1) = Val(Trim(Combo1.Text)rs_shoufei.Fields(2) = Trim(txtloupannum.Text)rs_shoufei.Fields(3) = Daters_shoufei.Fields(4) = CCur(Trim(txtprice.Text)rs_shoufei.Fields(5) = Trim(Combo2.Text)rs_shoufei.

52、Fields(6) = Trim(txtskr.Text)rs_shoufei.Fields(7) = Trim(txtjkr.Text)rs_shoufei.UpdateMsgBox 保存成功！, vbOKOnly + vbExclamationExit SubEnd SubPrivate Sub cmdprint_Click() Dim X% X% = BitBlt(Picture1.hDC, 0, 0, Picture1.Width, Picture1.Height, _ Picture1.hDC, 0, 0, SRCCOPY) Picture1.Picture = Picture1.I

53、mage Printer.PaintPicture Picture1.Picture, 0, 0End SubPrivate Sub cmdexit_Click()rs_shoufei.CloseUnload MeEnd SubPrivate Sub Form_Load()Dim sql As StringDim i As IntegerOn Error GoTo loaderrorsql = select * from 收款登記表If rs_shoufei.State 0 Then rs_shoufei.Closers_shoufei.CursorLocation = adUseClient

54、 rs_shoufei.Open sql, conn, adOpenKeyset, adLockPessimistic txtprice.Text = 0.00 i = rs_shoufei.RecordCount Label2.Caption = Year(Date) Date 取得當前系統日期 Label3.Caption = Month(Date) Month 函數取得日期的月數部分 Label4.Caption = Day(Date) Label5.Caption = Format(i + 1, 000000) 系統中現有記錄條數加 1 Combo2.AddItem (現金) Comb

55、o2.AddItem (刷卡) Combo2.AddItem (銀行票據) Combo2.ListIndex = 0 sql = select * from 合同資料表 . . . 19 / 25 If rs_hetong.State 0 Then rs_hetong.Close rs_hetong.CursorLocation = adUseClient rs_hetong.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_hetong.RecordCount 0 Then rs_hetong.MoveFirst Do While N

56、ot rs_hetong.EOF Combo1.AddItem (Trim(rs_hetong.Fields(0) rs_hetong.MoveNextLoop Combo1.ListIndex = 0 End If rs_hetong.Close Exit Subloaderror: MsgBox Err.DescriptionEnd Sub（五）收費查詢窗體模塊的實現本窗體主要用來對收費資料進行查詢，包括以收費單號，展會編號，交款人以與交款日期進行查詢。1.收費查詢窗體模塊的界面設計：窗體樣式：圖 5 收費查詢窗體界面2.收費查詢窗體模塊實現的代碼代碼如下：Private Sub cmdf

57、ind_Click()Dim sql As StringOn Error GoTo loaderrorgrdShoufeiFind.ClearIf optionid.Value = True Then . . . 20 / 25 sql = select * from 收費信息表 where fee_ID = & CInt(txtshoufeinum.Text) rs_shoufei.CursorLocation = adUseClient rs_shoufei.Open sql, conn, adOpenKeyset, adLockPessimistic setgrid setgridhead displaygrid rs_shoufei.Close Exit SubEnd IfEnd IfIf Optionjkr.Value = True Then sql = select * from 收費信息表 where fee_jkr = & tx