【正文】 5． 3水費管理模塊的實現(xiàn) 5． 3． 1 繳納水費 模塊的實現(xiàn)： 流程圖： 運行界面： 1．實現(xiàn)過程。 5． 2主界面的實現(xiàn) 主界面是用菜單形式表現(xiàn) 的，如圖： 運行時是否隱藏 此數(shù)據(jù)控件綁定到何數(shù)據(jù)庫 此數(shù)據(jù)控件綁定到何字段 菜單的制作過程如下： 首先通過“工具”菜單中的“菜單編輯器”調(diào)出菜單編輯器，然后進行菜單的設(shè)置，如下圖： 此過程中要注意各菜單的名稱唯一，還要注意菜單的級別，另外此設(shè)計過程中我們還可以給菜單加快捷鍵。 數(shù) 據(jù) 庫的名稱 數(shù)據(jù)庫中的表名 Visible 屬性是使此控件運行時在窗體上不顯示。 不同的用戶權(quán)限打開不同的菜單 改變登錄菜單為注銷菜單 此窗體上另外還有 Data Text3 二個控件在程序運行時是看不到的，它們的作用是使 VB與 Access數(shù)據(jù)庫相連，然后判斷用戶輸入的用戶名 與密碼是否與數(shù)據(jù)庫中的一致，如果一致，則允許用戶進入系統(tǒng)。 Private Sub Command2_Click() Unload Me End Sub 此程序段中，“ IF”語句的作用是判斷用戶輸入的用戶名與密碼和數(shù)據(jù)庫的是否相同，如果相同，則打開菜單項并執(zhí)行 unload me，如果用戶名或密碼輸入錯誤，則提示： 使用戶重新輸入用戶名或密碼。 3．實現(xiàn)過程： Y N 開始 輸入登錄密碼 是否正確 主界面 第一步將所需的控件放到窗體的相應(yīng)位置；方法：首先在“工具箱”中選中所需的控件圖標，然后在表單的恰當位置上單擊鼠標并拖動鼠標，即可把由所選取的控件生成的對象添加到窗體上。 4． 2數(shù)據(jù)庫需求分析 根據(jù)調(diào)查水資源管理機構(gòu)的水資源用戶及水費繳納情況管理的實際情況，分析得到如下的數(shù)據(jù)庫結(jié)構(gòu)。數(shù)據(jù)庫中有三種不同類型的關(guān)鍵字：主關(guān)鍵字、組合關(guān)鍵字和外關(guān)鍵字。一個更高級的連接形式稱為自連接。 實現(xiàn)數(shù)據(jù)庫之間的聯(lián)系 數(shù)據(jù)庫之間的關(guān)系指明兩個庫之間共享一個共同的關(guān)鍵字值。 修改已建的數(shù)據(jù)庫 數(shù)據(jù)庫的修改分為：添加、編輯和刪除記錄。創(chuàng)建一個數(shù)據(jù)庫結(jié)構(gòu)的過程被認為是數(shù)據(jù)模型設(shè)計。關(guān)系數(shù)據(jù)庫中包含了多個數(shù)據(jù)表的信息，數(shù)據(jù)庫含有各個不同部分的術(shù)語，象記錄、域等。數(shù)據(jù)庫的作用在于組織和表達信息，簡而言之，數(shù)據(jù)庫就是信息的集合。 隨著 Inter網(wǎng)絡(luò)應(yīng)用的發(fā)展， Access還增加了使用信息發(fā)布 Web 向?qū)Ш陀?HTML 格式導出對象的功能。通過如SQL、 ODBC 等特定技術(shù)，方便地存儲、檢索和處理服務(wù)器平臺上的關(guān)鍵信息，提供了靈活、可靠、安全的客戶 /服務(wù)器解決方案。 Microsoft Office 的一個集成化的程序設(shè)計語言是 VBA(Visual Basic for Applications)，使用 VBA 可以創(chuàng)建非常實用的數(shù)據(jù)庫應(yīng)用系統(tǒng)。 3． 2． 2 詳細設(shè)計的方法 程序流程圖、 NS 圖、 PAD圖、 IPO圖 本系統(tǒng)在開發(fā)過程中所采用的詳細設(shè)計方法為 IPO 圖： 繳納水費管理模塊模塊 IPO 圖： 繳費查詢模塊 IPO 圖： 用戶管理模塊 IPO 圖： I O P 查詢內(nèi)容的設(shè)定 提供相應(yīng)的界面供操作人員操作 顯示查詢的結(jié)果 I O P 總戶號 提供相應(yīng)的界面供操作人員錄入 保存到表 I O P 增加 修改 刪除 查詢 提供相應(yīng)的界面供操作人員操作 保存到表 顯示查詢結(jié)果 打印模塊 IPO 圖： 用戶管理模塊的 IPO 圖 I O P 增加、刪除、修改用戶信息 提供相應(yīng)的界面供操作人員操作 保存到用戶管理表 I O P 選擇打印項 提供相應(yīng)的界面供操作人員操作 打印 第四章 數(shù)據(jù)庫設(shè)計 4． 1數(shù)據(jù)庫 Access簡介 Access中文版是 Microsoft Office 2021套裝軟件的數(shù)據(jù)庫管理系統(tǒng)軟件，是目前比較流行的小型桌面數(shù)據(jù)庫管理系統(tǒng)，它適用于小型企業(yè)、學校、個人等用戶，可以通過多種方式實現(xiàn)對數(shù)據(jù)收集、分類、篩選處理，提供用戶查詢或打印報表。主要任務(wù)如下：①為每個模塊確定采用的算法，選擇某種適當?shù)墓ぞ弑磉_算法的過程，寫出模主界面 系統(tǒng) 水費管理 用戶管理 環(huán)境設(shè)置 打印服務(wù) 登錄 塊的詳細過程性描述；②確定每一模塊使用的數(shù)據(jù)結(jié)構(gòu)；③確定模塊接口的細節(jié)，包括對系統(tǒng)外部的接口和用戶界面，對系統(tǒng)內(nèi)部其它模塊的接口，以及模塊輸入數(shù)據(jù)、輸出數(shù)據(jù)及局部數(shù)據(jù)的全部細節(jié)。 第三部分 ：用戶 管理 要求：實現(xiàn) 編輯用戶和瀏覽用戶信息 第四部分 打印服務(wù) 要求：實現(xiàn) 當日 繳費情況打印 第五部分 環(huán)境設(shè)置 要求：實現(xiàn) 繳費月份及當前水價的設(shè)置 第六部分 幫助 制作幫助文檔，介紹各部分功能即可 根據(jù)以上分析，該系統(tǒng)考慮將整個系統(tǒng)分解成如圖 31 模塊結(jié)構(gòu)圖 : 圖 31模塊結(jié)構(gòu)圖 并且在系統(tǒng)的開發(fā)過程中，我盡量注意模塊的高內(nèi)聚、低耦合，使得系統(tǒng)的整體性能提高，并且也有利于投入使用后的系統(tǒng)維護。 ③如何統(tǒng)一衡量軟件設(shè)計的技術(shù)質(zhì)量。 3． 1． 3 概要設(shè)計的原則 ①將軟件劃分成若干獨立成分的依據(jù)。選擇分解功能與劃分模塊的設(shè)計原則，例如模塊劃分獨立性原則，信息隱蔽原則等。確定模塊間的聯(lián)系，確定數(shù)據(jù)結(jié)構(gòu)、文件結(jié)構(gòu)、數(shù)據(jù)庫模式，確定測試方法與策略。 第三章 系統(tǒng)設(shè)計 3． 1概要設(shè)計 3． 1． 1 概要設(shè)計階段的主要任務(wù) ①本人先審查軟件計劃、軟件需求分析提供的文檔，提出最佳推薦方案，用系統(tǒng)流程圖，組成系統(tǒng)物理元素清單，成本效益分析，系統(tǒng)的進度計劃，供指導老師審 定，審定后進入設(shè)計。 VB可以訪問 ODBC 標準客戶 /服務(wù)器數(shù)據(jù)庫 如 Microsoft SQL Server、 Oracle 和Sybase。 VB能夠創(chuàng)建和操作所有這些數(shù)據(jù)庫，還可以訪問 Microsoft Excel 或 Lotus l23 電子表格，以及一些標 準的文本文件。由于是由 Jet引擎直接創(chuàng)建和操作這些數(shù)據(jù)庫，可以提供最大程度的靈活性和速度。 VB 通過數(shù)據(jù)庫引擎可以訪問的數(shù)據(jù)庫分如下三類 :內(nèi)部數(shù)據(jù)庫 、外部數(shù)據(jù)庫和 ODBC 數(shù)據(jù)庫。 VB 程序的數(shù)據(jù)訪問通過數(shù)據(jù)訪問接口來實現(xiàn)。對于本地的 VB數(shù)據(jù)庫來說，就是 .mdb格式文件；對于不同的數(shù)據(jù)庫，它可能具備其它格式。它把應(yīng)用程序的請求翻譯成對各種類型數(shù)據(jù)庫的物理操作 ,并向應(yīng)用程序返回結(jié)果。它可以顯示數(shù)據(jù)并提供查看或更新數(shù)據(jù)的所有對象，比如數(shù)據(jù)作業(yè)窗體，添加、刪除記錄或執(zhí)行查詢的 VB代碼等，這些對象隱含著用來請求數(shù)據(jù)庫服務(wù)的屬性、事件和方法。 具體的與數(shù)據(jù)庫的關(guān)系如下： VB 數(shù)據(jù)庫應(yīng)用程序一般由用戶界面、數(shù)據(jù)庫引擎和數(shù)據(jù)倉庫三大部分組成。將 DATA控件放置在窗體中之后，我們還必須在該控件與要處理的數(shù)據(jù)庫之間建立聯(lián)系。一個記錄集合是動態(tài)的也就意味著，當原來的數(shù)據(jù)表中的容改變了以后，該記錄集合中的記錄也會 隨之改變。我們可以設(shè)置 DATA 控件的各個屬性，告訴它要調(diào)用那個數(shù)據(jù)庫的哪個部分。 Visual Basic、 Access 以及其他微軟的軟件產(chǎn)品都是通過共用 JET 數(shù)據(jù)庫引擎，從而給用戶提供了豐富的數(shù)據(jù)類型。如上所述， Access 作為關(guān)系數(shù)據(jù)庫開發(fā)具備了許多優(yōu)點，可以在一個數(shù)據(jù)包中同時擁有桌面數(shù)據(jù)庫的便利和關(guān)系數(shù)據(jù)庫的強大功能。 Access 也提供了數(shù)據(jù)存儲庫，可以使用桌面數(shù)據(jù)庫文件把數(shù)據(jù)庫文件置于網(wǎng)絡(luò)文件服務(wù)器，與其他網(wǎng)絡(luò)用戶共享數(shù)據(jù)庫。數(shù)據(jù)表示圖提供了一種類似于 Excel 的電子表格 ，可以使數(shù)據(jù)庫一目了然。 Access2021 就是關(guān)系數(shù)據(jù)庫開發(fā)工具，數(shù)據(jù)庫能匯集各種信息以供查詢、存儲和檢索。 Visual Basic 提供了大量的控件，這些控件可用于設(shè)計界面和實現(xiàn)各種功能，減少了編程人員的工作量，也簡化了界面設(shè)計過程，從而有效的提高了應(yīng)用程序的運行效率和可靠性。 軟件系統(tǒng)： Windows 9x 或更高版本、 Visual Basic 中文版、 Access 數(shù)據(jù)庫。 2．為將來水資源管理機構(gòu)上網(wǎng)做好準備 跟據(jù) 2021年中國電信的調(diào)查報告顯示我國的上網(wǎng)人數(shù)已達到 1870萬，互聯(lián)網(wǎng)已經(jīng)十分普及，本系統(tǒng)為水資源管理機構(gòu)將來的上網(wǎng)作了先期工作，比如水資源管理機構(gòu)的網(wǎng)絡(luò)管理模式的建立。改革的總設(shè)計師鄧小平同志說過“科學技術(shù)是第一生產(chǎn)力”，我希望能用我所學的知識編制出一個實用的程序來幫助水資源管理機構(gòu)進行水資源用戶及水費繳納情況管理。 現(xiàn)在我國的水資源用戶及水費繳納情況管理水平絕大部分還停留在紙介質(zhì)的基礎(chǔ)上，這樣的機制已經(jīng)不能適應(yīng)時代的發(fā)展，因為它浪費了許多人力和物力，在信息時代這種 傳統(tǒng)的管理方法必然被計算機為基礎(chǔ)的信息管理所取代。 1． 2開發(fā)的意義 1．計算機已經(jīng)成為我們學習和工作的得力助手，使用其可方便的管理水資源用戶及水費繳納情況 今天，計算機的價格已經(jīng)十分低廉，性能卻有了長足的進步。這些優(yōu)點能夠極大地提高水資源用戶及水費繳納情況管理的效率，也是水資源管理機構(gòu)帳收費的科學化、正規(guī)化管 理，與先進科學技術(shù)接軌的重要條件。 隨著科學技術(shù)的不斷提高，計算機科學日漸成熟，其強大的功能已為人們深刻認識，它已進入人類社會的各個領(lǐng)域并發(fā)揮著越來越重要的作用。這些都有待進一步改善。在摸索中學習，在困惑中探索，終于探究了一套較好的學習面向?qū)ο蟮某绦蛟O(shè)計的方法。 在此期間本人閱讀了大量 VB 及管理信息系統(tǒng)的教程，收獲非淺，比如：之前本人對 DATA 及 ADOBC 控件不熟悉，通過這次畢業(yè)設(shè)計，我能熟練的操作這兩個控件；再比如說在用 COMBO 控件時不知道如何向其中添加列表項，走了許多彎路，查詢了眾多資料，最后終于找到了一種捷徑的方法，解決了我設(shè)計中的一大難題。 JET 數(shù) 據(jù)引擎、 ADO 數(shù)據(jù)引擎。 建議分辨率 1024*768。 Text3 的權(quán)限說明： 各權(quán)限級別具有的權(quán)限如下： 超級用戶 [一切功能可用 ]、管理員 [不可添加系統(tǒng)用戶、修改用戶密 碼、收費員 [僅可查詢信息、收費功能 ]。同前。 5． 6打印 管理模塊的實現(xiàn) 1．流程圖： 2．運行界面： 當日繳費情況打印界面： 3．實現(xiàn)過程： 先通過 DataEnvironment1 建立連接。 39。 amp。 39。 amp。 其中，日期采用 dtpicker 控件實現(xiàn)，如下： 5． 4用戶管理模塊的實現(xiàn) 1．流程圖： 2．運行界面： 3．實現(xiàn)過程： 8個按紐組的代碼如下： N Y 開始 增加 /修改用戶信息 是否繼續(xù) 保存入表 Private Sub Command1_Click(Index As Integer) If Index = 0 Then Command1(2).Enabled = False Command1(1).Enabled = True End If If Index = 1 Then Command1(2).Enabled = True If Then Command1(1).Enabled = False End If End If If Index = 2 Then Command1(1).Enabled = True If Then Command1(2).Enabled = False End If End If If Index = 3 Then Command1(1).Enabled = False Command1(2).Enabled = True End If If Index = 4 Then 首條 下一條 前一條 末條 增加 Text1(0) = + 1 Text1(1).SetFocus Command1(4).Enabled = False Command1(5).Enabled = False Command1(6).Enabled = False End If If Index = 5 Then If Then Command1(1).Enabled = False End If End If If Index = 6 Then Command1(4).Enabled = False Command1(5).Enabled = False Command1(6).Enabled = False End If If Index = 7 Then Command1(1).Enabled = False