1、.一、設計目的隨著科學技術的不斷提高， 計算機科學日漸成熟， 計算機在各個領域發揮著越來越重要的作用。 作為計算機應用的一部分， 使用計算機對水資源用戶及水費繳納情況進行管理，具有著手工管理所無法比擬的優點，如 : 檢索迅速、查找方便、可靠性高、存儲量大、保密性好、壽命長、成本低等。這些優點能夠極大地提高水資源用戶及水費繳納情況管理的效率， 也是水資源管理機構帳收費的科學化、正規化管理，與先進科學技術接軌的重要條件。現在我國的水資源用戶及水費繳納情況管理水平絕大部分還停留在紙介質的基礎上，這樣的機制已經不能適應時代的發展， 因為它浪費了許多人力和物力，在信息時代這種傳統的管理方法必然被計算機為

2、基礎的信息管理所取代。本課程設計的目的是建立水費收費管理信息系統， 采用計算機對水費信息進行管理，進一步提高水費收費機構及用戶對信息的查詢檢索的便捷功能， 實現其現代化水平。幫組工作人員提高工作效率， 實現水費信息管理工作流程的系統化，規范化和自動化。二、設計任務數據庫系統 課程設計是計算機科學與技術專業集中實踐性環節之一， 是學習完數據庫系統 課程后進行的一次全面的綜合練習， 涉及的深度廣些并更加接近實用，要求我們利用所學知識分析、 設計并實現一個有一定復雜性的數據庫系統。通過課程設計， 使我們綜合使用所學過的數據庫知識， 掌握數據庫開發系統的基本思路和方法， 利用所學的基本知識和技能， 發

3、揮自學能力和查找資料的能力，通過一個實例， 運用數據庫開發中各個環節， 加深對所學知識的理解與掌握，增強學生利用自己所學知識解決實際問題的能力， 為后續各門計算機課程的學習打下堅實基礎。具體本系統的任務有：1. 通過本課程設計的實踐及其前后的準備與總結，復習、領會、鞏固和運用軟件工程課堂上所學的數據庫知識2. 使學生通過參加小組團隊的開發實踐， 了解項目管理、 團隊合作、 文檔編寫、口頭與書面表達的重要性。3使每個學生了解軟件工具與環境對于項目開發的重要性，并且重點深入掌握好一、兩種較新或較流行的開發工具或計算機應用技術、技能（比如，網頁設計技術與常見工具；基于 Java(ASP、PHP等 )

4、 技術的 Web編程；軟件開發文檔編制工具 Office 、Visio 、Rose 等；商用數據庫 Access( 或 SQLServer 、Oracle 、 MySql 等) 設計與實現；客戶機 / 服務器結構）。對于水費收費等行業，快速有效地數據整理是吸引用戶、提高經濟效益的關鍵因素。越來越多的水費收費機構用水費管理系統來管理日常工作，合理配置資源，提升管理水平，從而在市場競爭中取得優勢。名稱：水費收費管理信息系統功能：用戶信息的添加、修改、刪除和查詢。水費類型信息的修改、刪除和查詢。水費價格信息的刪除和查詢。新入用戶信息的添加、修改、取消預定和查看詳細信息。登記信息和修改登記信息。保存結

5、算信息。打印實收水費信息。;.三 、設計內容（一）可行性分析1. 管理上的可行性在傳統的水費收費管理中，管理人員不得不花費大量的時間來處理水費信息，例如錯誤查詢、煩瑣的登記和結帳手續、費用計算錯誤、水費資料不能及時提供等，從而工作效率。 因此水費的管理人員迫切的需要一套水費收費管理信息系統對日常信息進行處理和維護。 歷史經驗的積累使水費現有的管理制度和管理方法比較科學， 規章制度比較齊全， 原始數據比較正確。 這些為系統的建設提供了有效的制度保障2. 技術上的可行性本管理信息系統將采用技術成熟的 VB6.0 做為前臺開發工具。后臺數據庫采用微軟公司的 Access 數據庫，它的靈活性，安全性，

6、和易用性為數據庫編程提供了良好的條件。因此，系統的軟件開發平臺已成熟可行。硬件方面，科技的飛速發展使硬件的更新速度越來越快， 容量越來越大， 可靠性越來越高， 價格越來越低，其硬件平臺完全能滿足此系統的需要。3效益上的可行性本系統的使用能大大提高員工工作效率， 加速資金周轉、 降低各項成本及改善服務質量。能夠取得良好的經濟效益。 水費收費系統除提供給管理人員的系統管理功能外， 還能對用戶開放， 實現用戶的查詢信息功能， 擁有完善的權限設置功能。（二）需求分析本系統主要有以下功能需求：1用戶登錄模塊， 主要用于用戶的登錄。 用戶權限分為管理員和普通用戶。當用戶輸入用戶名和密碼后經過確認， 才能進

7、入賓館客房管理信息系統， 并擁有相應的權限。如果不是用戶，拒絕進入。2水費管理模塊，該模塊是本系統的核心所在。主要用于對水費信息的管理，其中包括：水費收費模塊管理，主要包括信息的查詢及繳費等基本操作。水費查詢管理模塊，主要用于管理員及用戶對水費查詢管理等操作。水費管理模塊，主要用于用戶水費信息的查看，修改，刪除等基本操作。打印管理模塊，主要包括對水費信息繳費的情況打印的基本操作。3用戶管理模塊，該模塊主要用于對用戶的基本信息登記，以及瀏覽信息等操作。4賬戶管理模塊， 該模塊用于對密碼， 權限等基本信息的修改添加等操作。;.根據需求分析總結的用戶需求設計系統的體系功能模塊圖如下：水費收費管理信息

8、系統基本信息管理信息編輯管理水費收費管理系統用戶管理用水收用用用水實應管密理費碼戶費費戶戶戶收收員繳信類基登修刪水水信設費置息型本記改除費費息報管管管信管管管管管管表理理理息理理理理理理系統功能模塊圖可以看到，本系統劃分為四個功能模塊， 基本信息管理模塊用于對用戶及其水費情況進行管理， 用戶編輯管理模塊主要用于用戶狀態的查看和用戶信息的編輯。消費管理模塊主要用于對用戶消費進行入帳管理。 報表管理模塊提供給用戶用來查看繳費基本情況的信息，系統信息模塊用來對系統用戶進行管理。（三）業務描述：(1.) 本系統用戶分為系統用戶和普通用戶(2.) 用水賬戶分為用戶名、戶號、住址等基本信息：(3.) 用水

9、賬戶一月產生一次水費信息：水務公司按照月為單位對用水戶進行用水信息統計、收費(4.) 用水信息包括：本月用水信息及應繳費數額。管理員對用水戶會進行每月一次的信息收集，然后進行用戶用水水價等信息計算出月水費然后進行收費(5.) 用水賬戶存在水價調整的情況(6.) 對于每一月水費信息 需要進行匯總處理，包括用水總量匯總、水費總額匯總、繳費匯總、應收賬款匯總：水務公司會對每一個月的用水相關數據進行整體性把握，需要對用水月的所有用（和管轄組為單位）水量以及賬款收取情況、應收賬款情況進行總額統計。(7.) 按照用水管理組打印全部用戶基本信息：因業務需要，需要按用戶繳費情況打印用戶基本數據信息；(8.)

10、單個用水戶賬戶停表 /補交欠費恢復用水功能；對于用水戶根據業務需要應能單獨提供其用水戶的基本信息，以及其往月的用水記錄；(9.) 各種數據內容查詢；;.由上述系統描述產生本系統的業務流程圖：開始重試失敗否是用戶登錄失敗 3次退出系統成功讀取用戶類型用戶管理管理自己的用戶信息普通用戶水費管理管理員消費管理管理自己和普通用戶的用戶信息編輯管理系統流程設計圖通過對系統流程圖分析產生如下數據字典：名字：水費名字：用戶戶號別名：別名：用戶編號描述：標識水費價格及其基本信息的關鍵域描述：唯一標識客戶管理信息的一個特定域定義：水費 =水費價格 +水費類型定義：用戶戶號=8 數字 8位置：報表、用戶信息位置：

11、用戶信息、報表、管理信息名字：管理員名字：報表別名：別名：描述：對系統進行管理描述：用于用戶繳費后打印的水費清單定義：管理員=管理員姓名+管理員密碼 + 管定義：報表 =用戶戶名 +用戶戶號 +繳費月份理員權限+用水量 +當前水價 +繳費數額 +繳費日位置：輸出到打印機期位置：輸出到打印機（四）總體設計1.針對水費收費管理信息系統的需求， 通過對水費管理工作過程的內容和數據流程分析，設計如下所示的數據項和數據結構：·水費基本信息，包括的數據項有：水費類型，水費狀態，單價等。·新添用戶基本信息，包括的數據項有：用戶戶號，用戶姓名，地址，操作員信息等。·已有用戶基本信

12、息，包括用戶戶號，用戶姓名，地址，基本水費信息，操作員等。;.·結算信息，包括的數據項有：用戶戶名，用戶戶號，地址，繳費月份，用水量，當前水價，繳費數額，繳費日期等。·系統用戶信息，包括的數據項有：用戶名，用戶密碼，用戶權限。有了上面的數據結構，數據項和數據流程，我們就能對系統進行數據庫設計。2.系統 ER 圖如下所示：用戶名公司名稱電話用戶權限1N自來水公司聘用管理員地址用戶密碼1MM管理管理管理NNN繳費金額姓名電話繳費日期用戶戶號賬戶存在用戶11水價繳費月份地址戶號用水量3. 根據 E-R 圖轉換成關系模式如下：自來水公司（公司名稱，電話，地址）管理員（用戶名，用戶密

13、碼，用戶權限）用戶（戶號，姓名，電話，地址）賬戶（用戶戶號，繳費日期，繳費月份，繳費金額，水價，用水量）聘用（自來水公司，管理員）管理（自來水公司，賬戶）管理（管理員，賬戶）4數據庫結構設計數據庫包含以下表：水費管理表、用戶管理表、用戶表、當前水價表;.1）用戶表包含管理員（超級用戶或普通用戶）的姓名Char(50) 、相應密碼Char(40) 及對應的權限Char(40) 。用戶表如（表一） ：表一用戶表編號字段名稱數據類型說明1UserChar(50)用戶的登錄名，必填字段2PasswordChar(40)密碼，必填字段3qxChar(40)用戶的權限，必填字段2）用戶管理表包括用戶繳費的

14、總戶號 Int（ 4）、用戶姓名 Varchar（ 20）、用戶居住地 Varchar（ 50）以及用戶當月所產生的費用 Char(40) 。用戶管理表如 （表二）：表二用戶管理表編號字段名稱數據類型說明1總戶號Int（ 4）用戶編號2戶名Varchar（ 20）用戶姓名3地址Varchar（ 50）用戶所居住地4總費用Char(40)用戶水費總金額3）水費管理表是本系統的關鍵，用于水費繳費及其查詢。 其包含用戶繳費的總戶號 Int(4) 、用戶姓名 Varchar(20) 、用戶居住地 Varchar(50) 等繳費信息的基本信息，以及用戶當月所用的用水量Int(4) 及產生的總費用Char

15、(40) 。如（表三）所示：表三水費管理表編號字段名稱數據類型說明1總戶號Int(4)用戶編號2戶名Varchar(20)用戶姓名3地址Varchar(50)用戶所居住地4用水量Int(4)用戶當月所用的水量5當前單價Char(40)當月水費價格6當前水費Char(40)用戶應繳費數額7應繳月份Date繳費月份8繳費日期Date繳費日期4）當前水價表是對當前水費的設置。水價表包括設置的水費價格信息以及應繳費的月份記錄。如下（表四）所示：表四當前水價表編號字段名稱數據類型說明1價格Char(40)當月水費價格2應繳月份Date應繳費月份;.四、測試與評價系統實現如下：1）登錄窗體 Form11，

16、如圖所示：2）主界面如圖示：3）賬戶管理設置頁面：;.4）繳納水費實現頁面：5）查詢繳費情況：6）編輯用戶界面如圖示：;.7）用戶瀏覽查詢界面：8）水費設置頁面9）報表打印頁面如圖所示：;.五、結論經過一個多月的設計和開發，這個水費收費管理信息系統基本完成。雖然有些功能還有些問題沒有調試好， 界面也設計得不是很美觀， 其中在水費繳費記錄查詢中對已繳用戶， 未繳用戶，以及用戶歷史繳費記錄功能不是很完善，對這些記錄的打印清單不是很方便， 在這方面還有待改進。 在用戶用水量的查詢，用水量的生成方面設置的也不夠完善。但在這期間借閱了大量有關系統設計的書籍，有單獨將各個模塊設計的， 也有直接講系統從早期

17、系統分析設計到完成的，還看了專門講 VB的書。通過參閱其它系統，從中找到與自己系統相關的進行拼湊， 還有對各個控件的設置、 熟悉，在連接過程中走了很多彎路， 但是在一路的模仿過程中自己也逐漸懂得了如何進行相關操作， 不再像剛開始一頭霧水， 什么都不懂， 也大概知道了如何開發一個系統，自己要做的是在今后的學習過程中進行完善，更深入地學習。在本次的課程設計中， 為搞清控件的使用方法、 編程的各個難點、 掌握面向對象的編程思想等很多方面的問題， 才發現實踐的重要性， 尤其是要自己獨自實踐。;.六、致謝通過與指導老師的交流、 通過圖書館查看相關資料， 我基本熟悉了整個系統的業務流程，這對后期的開發工作

18、至關重要， 在這里感謝我的指導老師彭三城老師，是他教會了我整個設計過程的方法。經過整個課程設計期間的努力，我基本上完成了我的課題， 在此感謝學校給我們提供了舒適的工作、學習環境，以及彭老師給予的悉心關懷與指導。此外，同學們在我這次課程設計中也給了我很大的幫助，我非常感謝。彭老師認真負責的工作態度、嚴謹的治學風格以及平易近人的為人，讓我受益匪淺；開發的同時，和同學們之間的相互探討也使我的知識上了一個臺階。在這段時間里， 我除了完成了課程設計， 更重要的是學到了兢兢業業，奮發向上的精神， 這種精神是我今后人生前進道路上的一種力量。再次感謝彭老師以及給過我幫助的同學。;.附錄：源代碼清單繳納水費模塊

19、的實現 ：1. 運行界面：2. 雙擊相應的控件，在控件的相應過程中編寫代碼：窗體的 load 事件為：Private Sub Form_Load()Form21.Width = 7350Form21.Height = 7395Form21.Move (MDIForm1.Width - Form21.Width) / 2, (MDIForm1.Height - Form21.Height) / 4Label5.Caption = DateEnd Sub作用：使窗體居中顯示。;.的代碼如下：Private Sub Command2_Click()SQL= "select* from 用戶

20、管理 where總戶號 ='"& Trim(Text1(0).Text)& "'"Data3.RecordSource = SQLData3.RefreshIf Data3.Recordset.EOF ThenMsgBox "沒有此總戶號！請重新輸入 總戶號 ！", , "提示 "Text1(0).Text = ""Text1(0).SetFocusElseFor i = 1 To 9Label1(i).Visible = TrueNext iFor i = 1 To 6T

21、ext1(i).Visible = TrueNext iText8.Visible = TrueData1.Recordset.AddNewText1(7) = Text6Text1(1) = Text3Text1(2) = Text4Text1(4) = Text2Text1(6).Text = Date$Text1(3).SetFocusText8 = Text7End IfEnd Sub作用：先判斷用戶表中有沒有此總戶號，如有就收費，沒有就提示用戶。界面如下：;.的代碼如下：Private Sub Command1_Click()MsgBox "已入庫！ ", , &

22、quot;提示 "Text5.Text = Val(Text5.Text) + Val(Text1(5).Text)Data1.UpdateRecordText1(0).SetFocusText1(0).Text = ""For i = 1 To 9Label1(i).Visible = FalseNext iFor i = 1 To 6Text1(i).Visible = FalseNext iText8.Visible = FalseEnd Sub作用：收費入庫，并提示收費員相關信息。查詢繳費情況模塊的實現1. 運行界面：;.2實現過程：界面的實現方法同上，下面主要看關鍵代碼：單選按鈕組的代碼為：Private Sub Option1_Click(Index As Integer)For i = 0 To 2If Option1(0).Value = True Or Option1(1).Value = True ThenText1.Visible = TrueDTPicker1.Visible = FalseElseIf Option1(2).Value = True ThenText1.Visible = FalseDTPicker1.V