水費管理系統(tǒng)畢業(yè)設計

1、<p><b>　　目 錄</b></p><p>　　第一章 緒 論2</p><p><b>　　1．1課題簡介2</b></p><p>　　1．2開發(fā)的意義2</p><p><b>　　1．3團隊構成3</b></p><p

2、>　　第二章 開發(fā)環(huán)境及實現(xiàn)技術4</p><p><b>　　2．1開發(fā)環(huán)境4</b></p><p>　　2．2開發(fā)工具簡介4</p><p>　　第三章 系統(tǒng)設計7</p><p><b>　　3．1概要設計7</b></p><p><b&g

3、t;　　3．2詳細設計8</b></p><p>　　第四章 數(shù)據(jù)庫設計11</p><p>　　4．1數(shù)據(jù)庫Access簡介11</p><p>　　4．2數(shù)據(jù)庫需求分析12</p><p>　　4．3測試用例13</p><p>　　第五章 系統(tǒng)的實現(xiàn)16</p><

4、p>　　5．1系統(tǒng)登錄模塊的實現(xiàn)16</p><p>　　5．2主界面的實現(xiàn)20</p><p>　　5．3水費管理模塊的實現(xiàn)22</p><p>　　5．4用戶管理模塊的實現(xiàn)28</p><p>　　5．5瀏覽用戶模塊的實現(xiàn)31</p><p>　　5．6打印管理模塊的實現(xiàn)33</p>

5、<p>　　5．7環(huán)境設置模塊的實現(xiàn)35</p><p>　　5．8幫助模塊的實現(xiàn)36</p><p>　　5．9用戶管理模塊的實現(xiàn)37</p><p>　　第六章 系統(tǒng)使用說明39</p><p>　　6．1使用說明39</p><p>　　6．2運行環(huán)境39</p><

6、p>　　第七章 設計心得40</p><p><b>　　參考文獻41</b></p><p><b>　　第一章 緒 論</b></p><p><b>　　1．1課題簡介</b></p><p>　　水費管理系統(tǒng)是每一個水資源管理機構管理水資源用戶及水費繳納

7、情況的不可缺少的一個管理信息系統(tǒng)，它的內(nèi)容對于水資源管理機構的管理者來說是至關重要的，所以水費管理系統(tǒng)應該能夠為每一個水資源管理機構的管理者提供充足的信息和快捷的查詢手段，大大的方便水資源管理機構的管理者的合理管理。</p><p>　　隨著科學技術的不斷提高，計算機科學日漸成熟，其強大的功能已為人們深刻認識，它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。</p><p>　　作為計

8、算機應用的一部分，使用計算機對水資源用戶及水費繳納情況進行管理，具有著手工管理所無法比擬的優(yōu)點，如:檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高水資源用戶及水費繳納情況管理的效率，也是水資源管理機構帳收費的科學化、正規(guī)化管理，與先進科學技術接軌的重要條件。</p><p>　　因此，開發(fā)這樣一套管理軟件成為很有必要的事情，對于我們即將計算機專業(yè)畢業(yè)的學生來說，也是一次

9、將計算機應用于現(xiàn)實管理的一次很有意義的實踐活動。</p><p><b>　　1．2開發(fā)的意義</b></p><p>　　1．計算機已經(jīng)成為我們學習和工作的得力助手，使用其可方便的管理水資源用戶及水費繳納情況</p><p>　　今天，計算機的價格已經(jīng)十分低廉，性能卻有了長足的進步。它已經(jīng)應用于許多領域。</p><p&g

10、t;　　現(xiàn)在我國的水資源用戶及水費繳納情況管理水平絕大部分還停留在紙介質的基礎上，這樣的機制已經(jīng)不能適應時代的發(fā)展，因為它浪費了許多人力和物力，在信息時代這種傳統(tǒng)的管理方法必然被計算機為基礎的信息管理所取代。</p><p>　　我作為一個計算機應用專業(yè)的畢業(yè)生，希望可以在這方面有所貢獻。改革的總設計師鄧小平同志說過“科學技術是第一生產(chǎn)力”，我希望能用我所學的知識編制出一個實用的程序來幫助水資源管理機構進行水資源

11、用戶及水費繳納情況管理。 </p><p>　　開發(fā)這一系統(tǒng)的好處大約有以下幾點：</p><p>　　第一、可以存儲歷年水資源用戶及水費繳納情況的信息，安全、高效；</p><p>　　第二、只需一到二名檔案錄入員即可操作系統(tǒng)，節(jié)省人力；</p><p>　　第三、可以迅速查到水資源用戶及水費繳納情況的各類信息。</p>&l

12、t;p>　　2．為將來水資源管理機構上網(wǎng)做好準備</p><p>　　跟據(jù)2003年中國電信的調查報告顯示我國的上網(wǎng)人數(shù)已達到1870萬，互聯(lián)網(wǎng)已經(jīng)十分普及，本系統(tǒng)為水資源管理機構將來的上網(wǎng)作了先期工作，比如水資源管理機構的網(wǎng)絡管理模式的建立。</p><p><b>　　1．3團隊構成</b></p><p>　　指導教師：******

13、* </p><p><b>　　成 員：何華</b></p><p>　　第二章 開發(fā)環(huán)境及實現(xiàn)技術</p><p><b>　　2．1開發(fā)環(huán)境</b></p><p>　　硬件系統(tǒng)：奔騰100以上CPU、64M以上內(nèi)存、1G以上硬盤、光驅。</p><p>　　軟

14、件系統(tǒng)：Windows 9x或更高版本、Visual Basic 6.0中文版、Access數(shù)據(jù)庫。</p><p><b>　　2．2開發(fā)工具簡介</b></p><p>　　微軟公司的Visual Basic 6.0是Windows應用程序開發(fā)工具，使目前最為廣泛的、易學易用的面向對象的開發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設計界面和實

15、現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效的提高了應用程序的運行效率和可靠性。故而，實現(xiàn)本系統(tǒng)VB是一個相對較好的選擇。</p><p>　　Access2000 就是關系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。Access 的優(yōu)點在于它能使用數(shù)據(jù)表示圖或自定義窗體收集信息。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格，可以使數(shù)據(jù)庫一目了然。另外，Access 允許

16、創(chuàng)建自定義報表用于打印或輸出數(shù)據(jù)庫中的信息。Access也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡文件服務器，與其他網(wǎng)絡用戶共享數(shù)據(jù)庫。Access 是一種關系數(shù)據(jù)庫工具，關系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述，Access 作為關系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關系數(shù)據(jù)庫的強大功能。</p><p>　　微軟的JET數(shù)據(jù)庫引擎提供了與數(shù)據(jù)庫打

17、交道的途徑，我們是通過它以及Visual Basic 來訪問數(shù)據(jù)庫并對其進行各種操作。Visual Basic、Access以及其他微軟的軟件產(chǎn)品都是通過共用JET數(shù)據(jù)庫引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。</p><p>　　DATA 控件在數(shù)據(jù)庫中的信息與將信息顯示給用戶看的Visual Basic程序之間架起了一座橋梁。我們可以設置DATA控件的各個屬性，告訴它要調用那個數(shù)據(jù)庫的哪個部分。缺省情況下，DA

18、TA控件根據(jù)數(shù)據(jù)庫中的一個或多個數(shù)據(jù)表建立一個dynaset-type（動態(tài)集合）類型的記錄集合。一個記錄集合是動態(tài)的也就意味著，當原來的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會隨之改變。DATA控件還提供了用來瀏覽不同記錄的各種跳轉按鈕。將DATA控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系。</p><p>　　ADO是Mcrosoft提出的第三種數(shù)據(jù)庫訪問對象，是Microso

19、ft數(shù)據(jù)庫訪問技術的一個主要發(fā)展方向，ADO將OLE DB封裝在一個數(shù)據(jù)對象中，使得VB程序中以方便地實現(xiàn)對數(shù)據(jù)庫的訪問。</p><p>　　具體的與數(shù)據(jù)庫的關系如下：</p><p>　　VB數(shù)據(jù)庫應用程序一般由用戶界面、數(shù)據(jù)庫引擎和數(shù)據(jù)倉庫三大部分組成。</p><p>　　1．用戶界面: 用戶界面是指應用程序與用戶進行交互的界面，包括用于交互的所有界面元素和

20、代碼。它可以顯示數(shù)據(jù)并提供查看或更新數(shù)據(jù)的所有對象，比如數(shù)據(jù)作業(yè)窗體，添加、刪除記錄或執(zhí)行查詢的VB代碼等，這些對象隱含著用來請求數(shù)據(jù)庫服務的屬性、事件和方法。</p><p>　　2．數(shù)據(jù)庫引擎:所謂數(shù)據(jù)庫引擎，是一種管理數(shù)據(jù)怎樣被存儲和檢索的軟件系統(tǒng)，是應用程序與物理數(shù)據(jù)庫之間的橋梁。它把應用程序的請求翻譯成對各種類型數(shù)據(jù)庫的物理操作,并向應用程序返回結果。</p><p>　　3．數(shù)

21、據(jù)倉庫:數(shù)據(jù)倉庫是包含數(shù)據(jù)庫表的一個或多個文件，是存放數(shù)據(jù)的地方。對于本地的VB數(shù)據(jù)庫來說，就是.mdb格式文件；對于不同的數(shù)據(jù)庫，它可能具備其它格式。</p><p>　　VB訪問數(shù)據(jù)庫通常有三種途徑:</p><p>　　1.使用數(shù)據(jù)控件和數(shù)據(jù)綁定控件訪問數(shù)據(jù)庫；</p><p>　　2.通過VB提供的數(shù)據(jù)訪問變量編程訪問；</p><p&g

22、t;　　3.通過ODBC接口訪問ODBC API函數(shù)。</p><p>　　VB程序的數(shù)據(jù)訪問通過數(shù)據(jù)訪問接口來實現(xiàn)。</p><p>　　在 VB 中，主要的數(shù)據(jù)訪問接口有三種：數(shù)據(jù)存取對象(Data Access Object；DAO)、遠程數(shù)據(jù)對象(Remote Data Object；RDO)、ActiveX數(shù)據(jù)對象(ActiveX Data Objects；ADO)。</p

23、><p>　　VB通過數(shù)據(jù)庫引擎可以訪問的數(shù)據(jù)庫分如下三類:內(nèi)部數(shù)據(jù)庫、外部數(shù)據(jù)庫和 ODBC數(shù)據(jù)庫。</p><p>　　1、內(nèi)部數(shù)據(jù)庫——即.MDB格式的數(shù)據(jù)庫，包括DAO API、Microsoft Access和Microsoft Excel創(chuàng)建的數(shù)據(jù)源，也稱為本地數(shù)據(jù)庫。由于是由Jet引擎直接創(chuàng)建和操作這些數(shù)據(jù)庫，可以提供最大程度的靈活性和速度。</p><p&g

24、t;　　2、外部數(shù)據(jù)庫——即"索引順序存取方法(ISAM)數(shù)據(jù)庫，例如Btrieve、dBASE、FoxPro以及Paradox等。VB能夠創(chuàng)建和操作所有這些數(shù)據(jù)庫，還可以訪問Microsoft Excel或Lotus l-2-3電子表格，以及一些標準的文本文件。</p><p>　　3、ODBC數(shù)據(jù)庫——即符合開放式數(shù)據(jù)庫連接性(ODBC)協(xié)議的數(shù)據(jù)庫。VB可以訪問ODBC標準客戶/服務器數(shù)據(jù)庫--如

25、Microsoft SQL Server、Oracle和Sybase。可使用ODBC Object直接把命令傳遞給服務器處理，以創(chuàng)建真正的客戶機/服務器程序。</p><p><b>　　第三章 系統(tǒng)設計</b></p><p><b>　　3．1概要設計</b></p><p>　　3．1．1概要設計階段的主要任務&l

26、t;/p><p>　?、俦救讼葘彶檐浖媱潯④浖枨蠓治鎏峁┑奈臋n，提出最佳推薦方案，用系統(tǒng)流程圖，組成系統(tǒng)物理元素清單，成本效益分析，系統(tǒng)的進度計劃，供指導老師審定，審定后進入設計。</p><p>　?、诖_定模塊結構，劃分功能模塊，將軟件功能需求分配給所劃分的最小單元模塊。確定模塊間的聯(lián)系，確定數(shù)據(jù)結構、文件結構、數(shù)據(jù)庫模式，確定測試方法與策略。</p><p>　

27、?、劬帉懜乓O計說明書，用戶手冊，測試計劃，選用相關的軟件工具來描述軟件結構，結構圖是經(jīng)常使用的軟件描述工具。選擇分解功能與劃分模塊的設計原則，例如模塊劃分獨立性原則，信息隱蔽原則等。</p><p>　　3．1．2概要設計的過程</p><p>　　概要設計要先進行系統(tǒng)設計，復審系統(tǒng)計劃與需求分析，確定系統(tǒng)具體的實施方案；然后進行結構設計，確定軟件結構。</p><p

28、>　　3．1．3概要設計的原則</p><p>　?、賹④浖澐殖扇舾瑟毩⒊煞值囊罁?jù)。</p><p>　　②如何表示不同的成分內(nèi)的功能細節(jié)和數(shù)據(jù)結構。</p><p>　?、廴绾谓y(tǒng)一衡量軟件設計的技術質量。</p><p>　　3．1．4系統(tǒng)功能分析</p><p>　　根據(jù)水資源管理機構提供的水費管理信息，預

29、測開發(fā)的管理系統(tǒng)的達到的功能如下：</p><p>　　第一部分：系統(tǒng)用戶管理</p><p>　　要求：用戶分四類：超級用戶[一切功能可用]、管理員[不可添加系統(tǒng)用戶、修改用戶密碼]、收費員[僅可查詢信息、收費功能]</p><p><b>　　第二部分：水費管理</b></p><p>　　要求：實現(xiàn)繳納水費及查詢繳

30、費情況。</p><p><b>　　第三部分：用戶管理</b></p><p>　　要求：實現(xiàn)編輯用戶和瀏覽用戶信息</p><p><b>　　第四部分 打印服務</b></p><p>　　要求：實現(xiàn)當日繳費情況打印</p><p><b>　　第五部分 環(huán)境

31、設置</b></p><p>　　要求：實現(xiàn)繳費月份及當前水價的設置</p><p><b>　　第六部分 幫助</b></p><p>　　制作幫助文檔，介紹各部分功能即可根據(jù)以上分析，該系統(tǒng)考慮將整個系統(tǒng)分解成如圖3-1模塊結構圖:</p><p><b>　　圖3-1模塊結構圖</b&g

32、t;</p><p>　　并且在系統(tǒng)的開發(fā)過程中，我盡量注意模塊的高內(nèi)聚、低耦合，使得系統(tǒng)的整體性能提高，并且也有利于投入使用后的系統(tǒng)維護。</p><p><b>　　3．2詳細設計</b></p><p>　　3．2．1詳細設計的任務</p><p>　　詳細設計就是要在概要設計的結果的基礎上，考慮“怎樣實現(xiàn)”這個軟

33、件系統(tǒng)，直到對系統(tǒng)中的每個模塊給出足夠詳細的過程性描述。主要任務如下：①為每個模塊確定采用的算法，選擇某種適當?shù)墓ぞ弑磉_算法的過程，寫出模塊的詳細過程性描述；②確定每一模塊使用的數(shù)據(jù)結構；③確定模塊接口的細節(jié)，包括對系統(tǒng)外部的接口和用戶界面，對系統(tǒng)內(nèi)部其它模塊的接口，以及模塊輸入數(shù)據(jù)、輸出數(shù)據(jù)及局部數(shù)據(jù)的全部細節(jié)。④要為每一個模塊設計出一組測試用例，以便在編碼階段對模塊代碼（即程序）進行預定的測試，模塊的測試用例是軟件測試計劃的重要組成

34、部分，通常應包括輸入數(shù)據(jù)，期望輸出等內(nèi)容。</p><p>　　3．2．2詳細設計的方法</p><p>　　程序流程圖、N-S圖、PAD圖、IPO圖</p><p>　　本系統(tǒng)在開發(fā)過程中所采用的詳細設計方法為IPO圖：</p><p>　　繳納水費管理模塊模塊IPO圖：</p><p>　　繳費查詢模塊IPO圖：&

35、lt;/p><p>　　用戶管理模塊IPO圖：</p><p><b>　　打印模塊IPO圖：</b></p><p>　　用戶管理模塊的IPO圖</p><p>　　第四章 數(shù)據(jù)庫設計</p><p>　　4．1數(shù)據(jù)庫Access簡介</p><p>　　Access中文版

36、是Microsoft Office 2000套裝軟件的數(shù)據(jù)庫管理系統(tǒng)軟件，是目前比較流行的小型桌面數(shù)據(jù)庫管理系統(tǒng)，它適用于小型企業(yè)、學校、個人等用戶，可以通過多種方式實現(xiàn)對數(shù)據(jù)收集、分類、篩選處理，提供用戶查詢或打印報表。</p><p>　　Access具有良好的界面，采用了與Windows和Microsoft Office系列軟件完全一致的風格，用戶可以通過菜單和對話框操作，不用編寫任何命令便能有效地實現(xiàn)各種

37、功能的操作，完成數(shù)據(jù)管理任務。Microsoft Office的一個集成化的程序設計語言是VBA(Visual Basic for Applications)，使用VBA可以創(chuàng)建非常實用的數(shù)據(jù)庫應用系統(tǒng)。</p><p>　　Access可以作為個人計算機終端和大型主機系統(tǒng)之間的橋梁。通過如SQL、ODBC等特定技術，方便地存儲、檢索和處理服務器平臺上的關鍵信息，提供了靈活、可靠、安全的客戶/服務器解決方案。&l

38、t;/p><p>　　Access可以接受多種格式的數(shù)據(jù)，從而方便了用戶在不同系統(tǒng)之間進行數(shù)據(jù)轉換。</p><p>　　隨著Internet網(wǎng)絡應用的發(fā)展，Access還增加了使用信息發(fā)布Web 向導和用HTML格式導出對象的功能。</p><p><b>　　數(shù)據(jù)庫的概念</b></p><p>　　數(shù)據(jù)庫是一種存儲數(shù)據(jù)

39、并對數(shù)據(jù)進行操作的工具。數(shù)據(jù)庫的作用在于組織和表達信息，簡而言之，數(shù)據(jù)庫就是信息的集合。計算機的數(shù)據(jù)庫可以分為兩類：非關系數(shù)據(jù)庫（flat-file）和關系數(shù)據(jù)庫（relational）。關系數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個不同部分的術語，象記錄、域等。 </p><p><b>　　新建一個數(shù)據(jù)庫</b></p><p>　　創(chuàng)建任何一個數(shù)據(jù)庫的第一步

40、是仔細的規(guī)劃數(shù)據(jù)庫，設計必須是靈活的、有邏輯的。創(chuàng)建一個數(shù)據(jù)庫結構的過程被認為是數(shù)據(jù)模型設計。</p><p>　　1． 標識需要的數(shù)據(jù)；</p><p>　　2． 收集被標識的字段到表中；</p><p>　　3． 標識主關鍵字字段；</p><p>　　4． 繪制一個簡單的數(shù)據(jù)圖表；</p><p><b&g

41、t;　　5． 規(guī)范數(shù)據(jù)；</b></p><p>　　6． 標識指定字段的信息；</p><p><b>　　7．創(chuàng)建物理表。</b></p><p><b>　　修改已建的數(shù)據(jù)庫</b></p><p>　　數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。這三種操作均可由Visual Basi

42、c 創(chuàng)建的程序來完成，下面的章節(jié)將詳細描述實現(xiàn)的具體方法。</p><p>　　實現(xiàn)數(shù)據(jù)庫之間的聯(lián)系</p><p>　　數(shù)據(jù)庫之間的關系指明兩個庫之間共享一個共同的關鍵字值。一個連接是指一種虛擬的表，這種表是在當用戶要求從相互關聯(lián)的各個不同的表中獲取信息時建立的，關鍵字段用于在相互連接的不同表中查找匹配的記錄。一個更高級的連接形式稱為自連接。這種連接是指一個表被連接到它自己的一個字段，或

43、在不同的紀錄中由重復數(shù)據(jù)的組合字段。數(shù)據(jù)庫中有三種不同類型的關鍵字：主關鍵字、組合關鍵字和外關鍵字。在表中使用的關鍵字類型用于描述庫表示什么以及在數(shù)據(jù)庫中如何與其它的庫建立關系。</p><p>　　4．2數(shù)據(jù)庫需求分析</p><p>　　根據(jù)調查水資源管理機構的水資源用戶及水費繳納情況管理的實際情況，分析得到如下的數(shù)據(jù)庫結構。</p><p><b>

44、　　水費管理表：</b></p><p><b>　　用戶管理表：</b></p><p><b>　　當前水價表：</b></p><p><b>　　用戶表：</b></p><p><b>　　4．3測試用例</b></p>

45、<p><b>　　用戶表的測試用例：</b></p><p>　　水費管理表的測試用例：</p><p>　　當前水價表的測試用例：</p><p><b>　　帳戶表的測試用例：</b></p><p>　　第五章 系統(tǒng)的實現(xiàn)</p><p>　　5．1系統(tǒng)

46、登錄模塊的實現(xiàn)</p><p><b>　　1．流程圖</b></p><p><b>　　2．界面：</b></p><p>　　界面包括的控件有標簽、文本框、命令按鈕等控件。</p><p><b>　　3．實現(xiàn)過程：</b></p><p>　　第

47、一步將所需的控件放到窗體的相應位置；方法：首先在“工具箱”中選中所需的控件圖標，然后在表單的恰當位置上單擊鼠標并拖動鼠標，即可把由所選取的控件生成的對象添加到窗體上。如下圖：</p><p>　　第二步，選擇窗體或控件進行屬性設置，如圖為窗體的屬性設置界面:</p><p>　　第三步雙擊相應的控件，在控件的相應過程中編寫代碼：</p><p>　　如此窗體上“進入

48、”與“退出”按鈕的代碼如下：</p><p>　　并且具有改變“登錄”菜單為“注銷”菜單的功能。</p><p>　　Private Sub Command2_Click()</p><p><b>　　Unload Me</b></p><p><b>　　End Sub</b></p>

49、;<p>　　此程序段中，“IF”語句的作用是判斷用戶輸入的用戶名與密碼和數(shù)據(jù)庫的是否相同，如果相同，則打開菜單項并執(zhí)行unload me，如果用戶名或密碼輸入錯誤，則提示：</p><p>　　使用戶重新輸入用戶名或密碼。</p><p>　　Unload me語句的作用是下載窗體。</p><p>　　此窗體上另外還有Data1、Text3二個控件

50、在程序運行時是看不到的，它們的作用是使VB與Access數(shù)據(jù)庫相連，然后判斷用戶輸入的用戶名與密碼是否與數(shù)據(jù)庫中的一致，如果一致，則允許用戶進入系統(tǒng)。此三個控件的創(chuàng)建方法如下：</p><p>　　首先，將Data、Text控件拖放到窗體上，其次，設置它們的屬性：</p><p>　?。?）Data1控件的屬性設置如下圖：</p><p>　　此兩個屬性的作用是保證

51、Data控件與數(shù)據(jù)庫相連。</p><p>　　Visible屬性是使此控件運行時在窗體上不顯示。</p><p>　?。?）Text3控件的屬性設置如下：</p><p>　　Visible屬性的設置同Data1控件。</p><p><b>　　5．2主界面的實現(xiàn)</b></p><p>　　

52、主界面是用菜單形式表現(xiàn)的，如圖：</p><p>　　菜單的制作過程如下：</p><p>　　首先通過“工具”菜單中的“菜單編輯器”調出菜單編輯器，然后進行菜單的設置，如下圖：</p><p>　　此過程中要注意各菜單的名稱唯一，還要注意菜單的級別，另外此設計過程中我們還可以給菜單加快捷鍵。</p><p>　　最后設置如下的代碼（只要單擊

53、菜單即可設置各菜單代碼），代碼如下：</p><p>　　主要是通過Show方法調用相應的窗體。</p><p>　　5．3水費管理模塊的實現(xiàn)</p><p>　　5．3．1繳納水費模塊的實現(xiàn)：</p><p><b>　　1、流程圖：</b></p><p><b>　　2、運行界面：

54、</b></p><p><b>　　1．實現(xiàn)過程： </b></p><p>　　第一步將所需的控件放到窗體的相應位置；方法：首先在“工具箱”中選中所需的控件圖標，然后在表單的恰當位置上單擊鼠標并拖動鼠標，即可把由所選取的控件生成的對象添加到窗體上。如下圖：</p><p>　　第二步，選擇窗體或控件進行屬性設置，同上一小結。 &

55、lt;/p><p>　　其它屬性和控件的設置方法類似。</p><p>　　第三步雙擊相應的控件，在控件的相應過程中編寫代碼：</p><p>　　窗體的load事件為：</p><p>　　Private Sub Form_Load()</p><p>　　Form21.Width = 7350</p>&

56、lt;p>　　Form21.Height = 7395</p><p>　　Form21.Move (MDIForm1.Width - Form21.Width) / 2, (MDIForm1.Height - Form21.Height) / 4</p><p>　　Label5.Caption = Date</p><p><b>　　End S

57、ub</b></p><p>　　作用：使窗體居中顯示。</p><p><b>　　的代碼如下：</b></p><p>　　Private Sub Command2_Click()</p><p>　　SQL = "select * from 用戶管理 where 總戶號='"

58、 & Trim(Text1(0).Text) & "'"</p><p>　　Data3.RecordSource = SQL</p><p>　　Data3.Refresh</p><p>　　If Data3.Recordset.EOF Then</p><p>　　MsgBox "沒

59、有此總戶號！請重新輸入[總戶號]！", , "提示"</p><p>　　Text1(0).Text = ""</p><p>　　Text1(0).SetFocus</p><p><b>　　Else</b></p><p>　　For i = 1 To 9</

60、p><p>　　Label1(i).Visible = True</p><p><b>　　Next i</b></p><p>　　For i = 1 To 6</p><p>　　Text1(i).Visible = True</p><p><b>　　Next i</b>

61、;</p><p>　　Text8.Visible = True</p><p>　　Data1.Recordset.AddNew</p><p>　　Text1(7) = Text6</p><p>　　Text1(1) = Text3</p><p>　　Text1(2) = Text4</p>&l

62、t;p>　　Text1(4) = Text2</p><p>　　Text1(6).Text = Date$</p><p>　　Text1(3).SetFocus</p><p>　　Text8 = Text7</p><p><b>　　End If</b></p><p><b&

63、gt;　　End Sub</b></p><p>　　作用：先判斷用戶表中有沒有此總戶號，如有就收費，沒有就提示用戶。界面如下：</p><p><b>　　的代碼如下：</b></p><p>　　Private Sub Command1_Click()</p><p>　　MsgBox "已入庫

64、！", , "提示"</p><p>　　Text5.Text = Val(Text5.Text) + Val(Text1(5).Text)</p><p>　　Data1.UpdateRecord</p><p>　　Text1(0).SetFocus</p><p>　　Text1(0).Text = &qu

65、ot;"</p><p>　　For i = 1 To 9</p><p>　　Label1(i).Visible = False</p><p><b>　　Next i</b></p><p>　　For i = 1 To 6</p><p>　　Text1(i).Visible =

66、 False</p><p><b>　　Next i</b></p><p>　　Text8.Visible = False</p><p><b>　　End Sub</b></p><p>　　作用：收費入庫，并提示收費員相關信息。</p><p>　　此窗體上用了3個

67、data控件，data1與水費管理表相連，data2與用戶管理表相連，data3與當前價格表相連，連接方法同前一節(jié)，這邊不再重復。 </p><p>　　5．3．2查詢繳費情況模塊的實現(xiàn)</p><p><b>　　1．運行界面：</b></p><p><b>　　2．實現(xiàn)過程：</b></p><p

68、>　　界面的實現(xiàn)方法同上，下面主要看關鍵代碼：</p><p>　　單選按鈕組的代碼為：</p><p>　　Private Sub Option1_Click(Index As Integer)</p><p>　　For i = 0 To 2</p><p>　　If Option1(0).Value = True Or Optio

69、n1(1).Value = True Then</p><p>　　Text1.Visible = True</p><p>　　DTPicker1.Visible = False</p><p><b>　　Else</b></p><p>　　If Option1(2).Value = True Then</p

70、><p>　　Text1.Visible = False</p><p>　　DTPicker1.Visible = True</p><p><b>　　Else</b></p><p>　　MsgBox "請選擇查詢的項！", , "提示"</p><p>

71、<b>　　End If</b></p><p><b>　　End If</b></p><p><b>　　Next i</b></p><p>　　Command1.Visible = True</p><p><b>　　End Sub</b>&l

72、t;/p><p><b>　　主要選擇查詢的項。</b></p><p>　　“查詢“的主要代碼為：</p><p>　　Private Sub Command1_Click()</p><p>　　If Option1(0).Value = True Then</p><p>　　SQL = &qu

73、ot;select * from 水費管理 where 總戶號='" & Trim(Text1.Text) & "'"</p><p><b>　　Else</b></p><p>　　If Option1(1).Value = True Then</p><p>　　SQL = &

74、quot;select * from 水費管理 where 戶名='" & Trim(Text1.Text) & "'"</p><p><b>　　Else</b></p><p>　　If Option1(2).Value = True Then</p><p>　　SQL =

75、"select * from 水費管理 where 繳費日期='" & Format(DTPicker1.Value, "yyyy-mm-dd") & "'"</p><p><b>　　End If</b></p><p><b>　　End If</b>

76、;</p><p><b>　　End If</b></p><p>　　Data1.RecordSource = SQL</p><p>　　Data1.Refresh</p><p>　　If Data1.Recordset.EOF Then</p><p>　　MsgBox "沒有

77、您要查詢的繳納水費情況！", , "提示"</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　主要作用：根據(jù)用戶的選擇，通過SQL語句查詢并顯示結果。</p><p>　　其中，日期采用dtpick

78、er控件實現(xiàn)，如下：</p><p>　　5．4用戶管理模塊的實現(xiàn)</p><p><b>　　1．流程圖：</b></p><p><b>　　2．運行界面：</b></p><p><b>　　3．實現(xiàn)過程：</b></p><p>　　8個按紐組的

79、代碼如下：</p><p>　　Private Sub Command1_Click(Index As Integer)</p><p>　　If Index = 0 Then</p><p>　　Data1.Recordset.MoveFirst</p><p>　　Command1(2).Enabled = False</p>

80、<p>　　Command1(1).Enabled = True</p><p><b>　　End If</b></p><p>　　If Index = 1 Then</p><p>　　Command1(2).Enabled = True</p><p>　　Data1.Recordset.MoveN

81、ext</p><p>　　If Data1.Recordset.EOF Then</p><p>　　Data1.Recordset.MoveLast</p><p>　　Command1(1).Enabled = False</p><p><b>　　End If</b></p><p>&

82、lt;b>　　End If</b></p><p>　　If Index = 2 Then</p><p>　　Command1(1).Enabled = True</p><p>　　Data1.Recordset.MovePrevious</p><p>　　If Data1.Recordset.BOF Then<

83、/p><p>　　Data1.Recordset.MoveFirst</p><p>　　Command1(2).Enabled = False</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　If Inde

84、x = 3 Then</p><p>　　Data1.Recordset.MoveLast</p><p>　　Command1(1).Enabled = False</p><p>　　Command1(2).Enabled = True</p><p><b>　　End If</b></p><

85、p>　　If Index = 4 Then</p><p>　　Data1.Recordset.AddNew</p><p>　　Text1(0) = Data1.Recordset.RecordCount + 1</p><p>　　Text1(1).SetFocus</p><p>　　Command1(4).Enabled = F

86、alse</p><p>　　Command1(5).Enabled = False</p><p>　　Command1(6).Enabled = False</p><p><b>　　End If</b></p><p>　　If Index = 5 Then</p><p>　　Data1

87、.Recordset.Delete</p><p>　　Data1.Recordset.MoveNext</p><p>　　If Data1.Recordset.EOF Then</p><p>　　Data1.Recordset.MoveLast</p><p>　　Command1(1).Enabled = False</p>

88、;<p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　If Index = 6 Then</p><p>　　Data1.Recordset.Edit</p><p>　　Command1(4).Enabled = False

89、</p><p>　　Command1(5).Enabled = False</p><p>　　Command1(6).Enabled = False</p><p><b>　　End If</b></p><p>　　If Index = 7 Then</p><p>　　Data1.Upd

90、ateRecord</p><p>　　Data1.Recordset.MoveLast</p><p>　　Command1(1).Enabled = False</p><p>　　Command1(2).Enabled = True</p><p>　　Command1(4).Enabled = True</p><

91、p>　　Command1(5).Enabled = True</p><p>　　Command1(6).Enabled = True</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　5．5瀏覽用戶模塊的實現(xiàn)</p

92、><p><b>　　1．流程圖：</b></p><p><b>　　2．運行界面：</b></p><p><b>　　3．實現(xiàn)過程：</b></p><p>　　界面的設計方法同上，在這不再重復。</p><p>　　現(xiàn)將控件的相應代碼說明如下：<

93、;/p><p>　　“查詢”的代碼如下：</p><p>　　Private Sub Command1_Click()</p><p>　　If Option1.Value = True Then</p><p>　　SQL = "select * from 用戶管理 where 總戶號='" & Trim(T

94、ext1.Text) & "'"</p><p>　　Data1.RecordSource = SQL</p><p>　　Data1.Refresh</p><p>　　If Data1.Recordset.EOF Then</p><p>　　MsgBox "沒有此總戶號！", ,

95、"提示"</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　If Option2.Value = True Then</p><p>　　SQL = "select * from 用戶管理 where

96、 戶名='" & Trim(Text1.Text) & "'"</p><p>　　Data1.RecordSource = SQL</p><p>　　Data1.Refresh</p><p>　　If Data1.Recordset.EOF Then</p><p>　　Ms

97、gBox "沒有此戶名！", , "提示"</p><p><b>　　End If</b></p><p><b>　　End If</b></p><p>　　If Option1.Value = False And Option2.Value = False Then</

98、p><p>　　MsgBox "請選擇查詢的項目后再進行查詢！", , "提示"</p><p><b>　　End If</b></p><p><b>　　End Sub</b></p><p>　　作用：瀏覽用戶信息，也可根據(jù)總戶號或姓名查詢用戶信息。<

99、;/p><p>　　5．6打印管理模塊的實現(xiàn)</p><p><b>　　1．流程圖：</b></p><p><b>　　2．運行界面：</b></p><p>　　當日繳費情況打印界面：</p><p><b>　　3．實現(xiàn)過程：</b></p&g

100、t;<p>　　先通過DataEnvironment1建立連接。如下：</p><p>　　然后通過SQL設置查詢語句：</p><p>　　最后再通過DataReport1調用：</p><p>　　5．7環(huán)境設置模塊的實現(xiàn)</p><p><b>　　運行界面：</b></p><p

101、>　　通過直接寫入data數(shù)據(jù)庫的方法實現(xiàn)。同前。</p><p>　　5．8幫助模塊的實現(xiàn)</p><p><b>　　1．運行界面：</b></p><p><b>　　2．實現(xiàn)過程</b></p><p>　　主要通過文本框實現(xiàn)，使用了文本框的兩個屬性：</p><p

102、>　　5．9用戶管理模塊的實現(xiàn)</p><p><b>　　界面如下圖：</b></p><p>　　數(shù)據(jù)庫的連接方法同上。</p><p>　　Text3的權限說明：</p><p>　　各權限級別具有的權限如下：</p><p>　　超級用戶[一切功能可用]、管理員[不可添加系統(tǒng)用戶、修

103、改用戶密碼、收費員[僅可查詢信息、收費功能]。</p><p>　　第六章 系統(tǒng)使用說明</p><p><b>　　6．1使用說明</b></p><p>　　1、運行于Windows 98以上操作系統(tǒng)。</p><p>　　建議分辨率1024*768。</p><p>　　2、水費數(shù)據(jù)庫的默

104、認路徑：C:\水費管理系統(tǒng)\water.mdb</p><p>　　3、用戶數(shù)據(jù)庫的默認路徑：C:\水費管理系統(tǒng)\user.mdb</p><p>　　4、系統(tǒng)默認用戶名、密碼、權限如下：</p><p><b>　　6．2運行環(huán)境</b></p><p>　　1、運行環(huán)境：Windows 98以上操作系統(tǒng)。</p

105、><p>　　2、JET數(shù)據(jù)引擎、ADO數(shù)據(jù)引擎。</p><p><b>　　第七章 設計心得</b></p><p>　　經(jīng)過二個多月的設計和開發(fā)，水費管理系統(tǒng)基本開發(fā)完畢。</p><p>　　在此期間本人閱讀了大量VB及管理信息系統(tǒng)的教程，收獲非淺，比如：之前本人對DATA及ADOBC控件不熟悉，通過這次畢業(yè)設計，

106、我能熟練的操作這兩個控件；再比如說在用COMBO控件時不知道如何向其中添加列表項，走了許多彎路，查詢了眾多資料，最后終于找到了一種捷徑的方法，解決了我設計中的一大難題。</p><p>　　因此，在本次的畢業(yè)設計中，為搞清控件的使用方法、編程的各個難點、掌握面向對象的編程思想，本人查過相關的教材、查詢過相關的網(wǎng)站、請教過指導教師。在摸索中學習，在困惑中探索，終于探究了一套較好的學習面向對象的程序設計的方法。<

107、;/p><p>　　但是由于畢業(yè)設計時間較短，所以該系統(tǒng)還有許多不盡如人意的地方，比如聯(lián)機文檔比較少，用戶界面不夠美觀，出錯處理不完善等多方面問題。這些都有待進一步改善。</p><p><b>　　參考文獻</b></p><p>　　1.《數(shù)據(jù)庫系統(tǒng)原理與應用》 閃四清 清華大學出版社 1999年</p&g

108、t;<p>　　2.《Visual Basic 6.0程序設計》 劉世峰 中央廣播電大出版社 2003年</p><p>　　3.《Visual Basic程序設計》 陳 明 中央廣播電大出版社 2001年</p><p>　　4.《軟件工程》 楊文龍 電子工業(yè)出版社 2001