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

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團隊構(gòu)成3</b></p><p

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

3、t;　　3．2詳細設(shè)計8</b></p><p>　　第四章 數(shù)據(jù)庫設(shè)計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)境設(shè)置模塊的實現(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>　　第七章 設(shè)計心得40</p><p><b>　　參考文獻41</b></p><p><b>　　第一章 緒 論</b></p><p><b>　　1．1課題簡介</b></p><p>　　水費管理系統(tǒng)是每一個水資源管理機構(gòu)管理水資源用戶及水費繳納

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

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

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

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

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

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

13、* </p><p><b>　　成 員：何華</b></p><p>　　第二章 開發(fā)環(huán)境及實現(xiàn)技術(shù)</p><p><b>　　2．1開發(fā)環(huán)境</b></p><p>　　硬件系統(tǒng)：奔騰100以上CPU、64M以上內(nèi)存、1G以上硬盤、光驅(qū)。</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應(yīng)用程序開發(fā)工具，使目前最為廣泛的、易學(xué)易用的面向?qū)ο蟮拈_發(fā)工具。Visual Basic提供了大量的控件，這些控件可用于設(shè)計界面和實

15、現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計過程，從而有效的提高了應(yīng)用程序的運行效率和可靠性。故而，實現(xiàn)本系統(tǒng)VB是一個相對較好的選擇。</p><p>　　Access2000 就是關(guān)系數(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)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。Access 是一種關(guān)系數(shù)據(jù)庫工具，關(guān)系數(shù)據(jù)庫是已開發(fā)的最通用的數(shù)據(jù)庫之一。如上所述，Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(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程序之間架起了一座橋梁。我們可以設(shè)置DATA控件的各個屬性，告訴它要調(diào)用那個數(shù)據(jù)庫的哪個部分。缺省情況下，DA

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

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

20、代碼。它可以顯示數(shù)據(jù)并提供查看或更新數(shù)據(jù)的所有對象，比如數(shù)據(jù)作業(yè)窗體，添加、刪除記錄或執(zhí)行查詢的VB代碼等，這些對象隱含著用來請求數(shù)據(jù)庫服務(wù)的屬性、事件和方法。</p><p>　　2．?dāng)?shù)據(jù)庫引擎:所謂數(shù)據(jù)庫引擎，是一種管理數(shù)據(jù)怎樣被存儲和檢索的軟件系統(tǒng)，是應(yīng)用程序與物理數(shù)據(jù)庫之間的橋梁。它把應(yīng)用程序的請求翻譯成對各種類型數(shù)據(jù)庫的物理操作,并向應(yīng)用程序返回結(jié)果。</p><p>　　3．?dāng)?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電子表格，以及一些標(biāo)準(zhǔn)的文本文件。</p><p>　　3、ODBC數(shù)據(jù)庫——即符合開放式數(shù)據(jù)庫連接性(ODBC)協(xié)議的數(shù)據(jù)庫。VB可以訪問ODBC標(biāo)準(zhǔn)客戶/服務(wù)器數(shù)據(jù)庫--如

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

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

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

28、>　　3．1．3概要設(shè)計的原則</p><p>　?、賹④浖澐殖扇舾瑟毩⒊煞值囊罁?jù)。</p><p>　?、谌绾伪硎静煌某煞謨?nèi)的功能細節(jié)和數(shù)據(jù)結(jié)構(gòu)。</p><p>　?、廴绾谓y(tǒng)一衡量軟件設(shè)計的技術(shù)質(zhì)量。</p><p>　　3．1．4系統(tǒng)功能分析</p><p>　　根據(jù)水資源管理機構(gòu)提供的水費管理信息，預(yù)

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>　　第四部分 打印服務(wù)</b></p><p>　　要求：實現(xiàn)當(dāng)日繳費情況打印</p><p><b>　　第五部分 環(huán)境

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

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

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

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

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

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

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

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

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

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

41、t;　　5． 規(guī)范數(shù)據(jù)；</b></p><p>　　6． 標(biāo)識指定字段的信息；</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ù)庫之間的關(guān)系指明兩個庫之間共享一個共同的關(guān)鍵字值。一個連接是指一種虛擬的表，這種表是在當(dāng)用戶要求從相互關(guān)聯(lián)的各個不同的表中獲取信息時建立的，關(guān)鍵字段用于在相互連接的不同表中查找匹配的記錄。一個更高級的連接形式稱為自連接。這種連接是指一個表被連接到它自己的一個字段，或

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

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

45、<p><b>　　用戶表的測試用例：</b></p><p>　　水費管理表的測試用例：</p><p>　　當(dāng)前水價表的測試用例：</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>　　界面包括的控件有標(biāo)簽、文本框、命令按鈕等控件。</p><p><b>　　3．實現(xiàn)過程：</b></p><p>　　第

47、一步將所需的控件放到窗體的相應(yīng)位置；方法：首先在“工具箱”中選中所需的控件圖標(biāo)，然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動鼠標(biāo)，即可把由所選取的控件生成的對象添加到窗體上。如下圖：</p><p>　　第二步，選擇窗體或控件進行屬性設(shè)置，如圖為窗體的屬性設(shè)置界面:</p><p>　　第三步雙擊相應(yīng)的控件，在控件的相應(yīng)過程中編寫代碼：</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控件拖放到窗體上，其次，設(shè)置它們的屬性：</p><p>　?。?）Data1控件的屬性設(shè)置如下圖：</p><p>　　此兩個屬性的作用是保證

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

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

53、菜單即可設(shè)置各菜單代碼），代碼如下：</p><p>　　主要是通過Show方法調(diào)用相應(yīng)的窗體。</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>　　第一步將所需的控件放到窗體的相應(yīng)位置；方法：首先在“工具箱”中選中所需的控件圖標(biāo)，然后在表單的恰當(dāng)位置上單擊鼠標(biāo)并拖動鼠標(biāo)，即可把由所選取的控件生成的對象添加到窗體上。如下圖：</p><p>　　第二步，選擇窗體或控件進行屬性設(shè)置，同上一小結(jié)。 &

55、lt;/p><p>　　其它屬性和控件的設(shè)置方法類似。</p><p>　　第三步雙擊相應(yīng)的控件，在控件的相應(yīng)過程中編寫代碼：</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>　　作用：收費入庫，并提示收費員相關(guān)信息。</p><p>　　此窗體上用了3個

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

68、>　　界面的實現(xiàn)方法同上，下面主要看關(guā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語句查詢并顯示結(jié)果。</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>　　界面的設(shè)計方法同上，在這不再重復(fù)。</p><p>　　現(xiàn)將控件的相應(yīng)代碼說明如下：<

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>　　當(dāng)日繳費情況打印界面：</p><p><b>　　3．實現(xiàn)過程：</b></p&g

100、t;<p>　　先通過DataEnvironment1建立連接。如下：</p><p>　　然后通過SQL設(shè)置查詢語句：</p><p>　　最后再通過DataReport1調(diào)用：</p><p>　　5．7環(huán)境設(shè)置模塊的實現(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>　　主要通過文本框?qū)崿F(xiàn)，使用了文本框的兩個屬性：</p><p

102、>　　5．9用戶管理模塊的實現(xiàn)</p><p><b>　　界面如下圖：</b></p><p>　　數(shù)據(jù)庫的連接方法同上。</p><p>　　Text3的權(quán)限說明：</p><p>　　各權(quán)限級別具有的權(quán)限如下：</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)默認用戶名、密碼、權(quán)限如下：</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>　　第七章 設(shè)計心得</b></p><p>　　經(jīng)過二個多月的設(shè)計和開發(fā)，水費管理系統(tǒng)基本開發(fā)完畢。</p><p>　　在此期間本人閱讀了大量VB及管理信息系統(tǒng)的教程，收獲非淺，比如：之前本人對DATA及ADOBC控件不熟悉，通過這次畢業(yè)設(shè)計，

106、我能熟練的操作這兩個控件；再比如說在用COMBO控件時不知道如何向其中添加列表項，走了許多彎路，查詢了眾多資料，最后終于找到了一種捷徑的方法，解決了我設(shè)計中的一大難題。</p><p>　　因此，在本次的畢業(yè)設(shè)計中，為搞清控件的使用方法、編程的各個難點、掌握面向?qū)ο蟮木幊趟枷耄救瞬檫^相關(guān)的教材、查詢過相關(guān)的網(wǎng)站、請教過指導(dǎo)教師。在摸索中學(xué)習(xí)，在困惑中探索，終于探究了一套較好的學(xué)習(xí)面向?qū)ο蟮某绦蛟O(shè)計的方法。<

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

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