(精品)水費管理系統(tǒng)設計說明書(2013年優(yōu)秀畢業(yè)設計)

目目 錄錄 第一章第一章 緒緒 論論 .2 11 課題簡介 2 12 開發(fā)的意義 2 13 團隊構成 3 第二章第二章 開發(fā)環(huán)境及實現技術開發(fā)環(huán)境及實現技術 .4 21 開發(fā)環(huán)境 4 22 開發(fā)工具簡介 4 第三章第三章 系統(tǒng)設計系統(tǒng)設計 .7 31 概要設計 7 32 詳細設計 8 第四章第四章 數據庫設計數據庫設計 .11 41 數據庫 ACCESS簡介11 42 數據庫需求分析 12 43 測試用例 13 第五章第五章 系統(tǒng)的實現系統(tǒng)的實現 .16 51 系統(tǒng)登錄模塊的實現 16 52 主界面的實現 20 53 水費管理模塊的實現 22 54 用戶管理模塊的實現 28 55 瀏覽用戶模塊的實現 31 56 打印管理模塊的實現 33 57 環(huán)境設置模塊的實現 35 58 幫助模塊的實現 36 59 用戶管理模塊的實現 37 第六章第六章 系統(tǒng)使用說明系統(tǒng)使用說明 .39 61 使用說明 39 62 運行環(huán)境 39 第七章第七章 設計心得設計心得 .40 參考文獻參考文獻 .41 第一章第一章 緒緒 論論 11 課題簡介課題簡介 水費管理系統(tǒng)是每一個水資源管理機構管理水資源用戶及水費繳納情況的不可缺少 的一個管理信息系統(tǒng)，它的內容對于水資源管理機構的管理者來說是至關重要的，所以 水費管理系統(tǒng)應該能夠為每一個水資源管理機構的管理者提供充足的信息和快捷的查詢 手段，大大的方便水資源管理機構的管理者的合理管理。 隨著科學技術的不斷提高，計算機科學日漸成熟，其強大的功能已為人們深刻認識， 它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。 作為計算機應用的一部分，使用計算機對水資源用戶及水費繳納情況進行管理，具 有著手工管理所無法比擬的優(yōu)點，如:檢索迅速、查找方便、可靠性高、存儲量大、保密 性好、壽命長、成本低等。這些優(yōu)點能夠極大地提高水資源用戶及水費繳納情況管理的 效率，也是水資源管理機構帳收費的科學化、正規(guī)化管理，與先進科學技術接軌的重要 條件。 因此，開發(fā)這樣一套管理軟件成為很有必要的事情，對于我們即將計算機專業(yè)畢業(yè) 的學生來說，也是一次將計算機應用于現實管理的一次很有意義的實踐活動。 12 開發(fā)的意義開發(fā)的意義 1計算機已經成為我們學習和工作的得力助手，使用其可方便的管理水資源用戶及 水費繳納情況 今天，計算機的價格已經十分低廉，性能卻有了長足的進步。它已經應用于許多領 域。 現在我國的水資源用戶及水費繳納情況管理水平絕大部分還停留在紙介質的基礎上， 這樣的機制已經不能適應時代的發(fā)展，因為它浪費了許多人力和物力，在信息時代這種 傳統(tǒng)的管理方法必然被計算機為基礎的信息管理所取代。 我作為一個計算機應用專業(yè)的畢業(yè)生，希望可以在這方面有所貢獻。改革的總設計 師鄧小平同志說過“科學技術是第一生產力”，我希望能用我所學的知識編制出一個實 用的程序來幫助水資源管理機構進行水資源用戶及水費繳納情況管理。 開發(fā)這一系統(tǒng)的好處大約有以下幾點： 第一、可以存儲歷年水資源用戶及水費繳納情況的信息，安全、高效； 第二、只需一到二名檔案錄入員即可操作系統(tǒng)，節(jié)省人力； 第三、可以迅速查到水資源用戶及水費繳納情況的各類信息。 2為將來水資源管理機構上網做好準備 跟據 2003 年中國電信的調查報告顯示我國的上網人數已達到 1870 萬，互聯網已經 十分普及，本系統(tǒng)為水資源管理機構將來的上網作了先期工作，比如水資源管理機構的 網絡管理模式的建立。 13 團隊構成團隊構成 指導教師：* 成 員：何華 第二章第二章 開發(fā)環(huán)境及實現技術開發(fā)環(huán)境及實現技術 21 開發(fā)環(huán)境開發(fā)環(huán)境 硬件系統(tǒng)：奔騰 100 以上 CPU、64M 以上內存、1G 以上硬盤、光驅。 軟件系統(tǒng)：Windows 9x 或更高版本、Visual Basic 6.0 中文版、Access 數據庫。 22 開發(fā)工具簡介開發(fā)工具簡介 微軟公司的 Visual Basic 6.0 是 Windows 應用程序開發(fā)工具，使目前最為廣泛的、 易學易用的面向對象的開發(fā)工具。Visual Basic 提供了大量的控件，這些控件可用于設 計界面和實現各種功能，減少了編程人員的工作量，也簡化了界面設計過程，從而有效 的提高了應用程序的運行效率和可靠性。故而，實現本系統(tǒng) VB 是一個相對較好的選擇。 Access2000 就是關系數據庫開發(fā)工具，數據庫能匯集各種信息以供查詢、存儲和檢 索。Access 的優(yōu)點在于它能使用數據表示圖或自定義窗體收集信息。數據表示圖提供了 一種類似于 Excel 的電子表格，可以使數據庫一目了然。另外，Access 允許創(chuàng)建自定 義報表用于打印或輸出數據庫中的信息。Access 也提供了數據存儲庫，可以使用桌面數 據庫文件把數據庫文件置于網絡文件服務器，與其他網絡用戶共享數據庫。Access 是一 種關系數據庫工具，關系數據庫是已開發(fā)的最通用的數據庫之一。如上所述，Access 作 為關系數據庫開發(fā)具備了許多優(yōu)點，可以在一個數據包中同時擁有桌面數據庫的便利和 關系數據庫的強大功能。 微軟的 JET 數據庫引擎提供了與數據庫打交道的途徑，我們是通過它以及 Visual Basic 來訪問數據庫并對其進行各種操作。Visual Basic、Access 以及其他微軟的軟件 產品都是通過共用 JET 數據庫引擎，從而給用戶提供了豐富的數據類型。 DATA 控件在數據庫中的信息與將信息顯示給用戶看的 Visual Basic 程序之間架起 了一座橋梁。我們可以設置 DATA 控件的各個屬性，告訴它要調用那個數據庫的哪個部分。 缺省情況下，DATA 控件根據數據庫中的一個或多個數據表建立一個 dynaset-type（動態(tài) 集合）類型的記錄集合。一個記錄集合是動態(tài)的也就意味著，當原來的數據表中的容改 變了以后，該記錄集合中的記錄也會隨之改變。DATA 控件還提供了用來瀏覽不同記錄的 各種跳轉按鈕。將 DATA 控件放置在窗體中之后，我們還必須在該控件與要處理的數據庫 之間建立聯系。 ADO 是 Mcrosoft 提出的第三種數據庫訪問對象，是 Microsoft 數據庫訪問技術的一 個主要發(fā)展方向，ADO 將 OLE DB 封裝在一個數據對象中，使得 VB 程序中以方便地實現對 數據庫的訪問。 具體的與數據庫的關系如下： VB 數據庫應用程序一般由用戶界面、數據庫引擎和數據倉庫三大部分組成。 1用戶界面: 用戶界面是指應用程序與用戶進行交互的界面，包括用于交互的所有 界面元素和代碼。它可以顯示數據并提供查看或更新數據的所有對象，比如數據作業(yè)窗 體，添加、刪除記錄或執(zhí)行查詢的 VB 代碼等，這些對象隱含著用來請求數據庫服務的屬 性、事件和方法。 2數據庫引擎:所謂數據庫引擎，是一種管理數據怎樣被存儲和檢索的軟件系統(tǒng)， 是應用程序與物理數據庫之間的橋梁。它把應用程序的請求翻譯成對各種類型數據庫的 物理操作,并向應用程序返回結果。 3數據倉庫:數據倉庫是包含數據庫表的一個或多個文件，是存放數據的地方。對 于本地的 VB 數據庫來說，就是.mdb 格式文件；對于不同的數據庫，它可能具備其它格式。 VB 訪問數據庫通常有三種途徑: 1.使用數據控件和數據綁定控件訪問數據庫； 2.通過 VB 提供的數據訪問變量編程訪問； 3.通過 ODBC 接口訪問 ODBC API 函數。 VB 程序的數據訪問通過數據訪問接口來實現。 在 VB 中，主要的數據訪問接口有三種：數據存取對象(Data Access Object；DAO)、 遠程數據對象(Remote Data Object；RDO)、ActiveX 數據對象(ActiveX Data Objects；ADO)。 VB 通過數據庫引擎可以訪問的數據庫分如下三類:內部數據庫、外部數據庫和 ODBC 數據庫。 1、內部數據庫即.MDB 格式的數據庫，包括 DAO API、Microsoft Access 和 Microsoft Excel 創(chuàng)建的數據源，也稱為本地數據庫。由于是由 Jet 引擎直接創(chuàng)建和操作 這些數據庫，可以提供最大程度的靈活性和速度。 2、外部數據庫即“索引順序存取方法(ISAM)數據庫，例如 Btrieve、dBASE、FoxPro 以及 Paradox 等。VB 能夠創(chuàng)建和操作所有這些數據庫，還可以 訪問 Microsoft Excel 或 Lotus l-2-3 電子表格，以及一些標準的文本文件。 3、ODBC 數據庫即符合開放式數據庫連接性(ODBC)協議的數據庫。VB 可以訪問 ODBC 標準客戶/服務器數據庫-如 Microsoft SQL Server、Oracle 和 Sybase?？墒褂?ODBC Object 直接把命令傳遞給服務器處理，以創(chuàng)建真正的客戶機/服務器程序。 第三章第三章 系統(tǒng)設計系統(tǒng)設計 31 概要設計概要設計 311 概要設計階段的主要任務概要設計階段的主要任務 本人先審查軟件計劃、軟件需求分析提供的文檔，提出最佳推薦方案，用系統(tǒng)流 程圖，組成系統(tǒng)物理元素清單，成本效益分析，系統(tǒng)的進度計劃，供指導老師審定，審 定后進入設計。 確定模塊結構，劃分功能模塊，將軟件功能需求分配給所劃分的最小單元模塊。 確定模塊間的聯系，確定數據結構、文件結構、數據庫模式，確定測試方法與策略。 編寫概要設計說明書，用戶手冊，測試計劃，選用相關的軟件工具來描述軟件結 構，結構圖是經常使用的軟件描述工具。選擇分解功能與劃分模塊的設計原則，例如模 塊劃分獨立性原則，信息隱蔽原則等。 312 概要設計的過程概要設計的過程 概要設計要先進行系統(tǒng)設計，復審系統(tǒng)計劃與需求分析，確定系統(tǒng)具體的實施方案； 然后進行結構設計，確定軟件結構。 313 概要設計的原則概要設計的原則 將軟件劃分成若干獨立成分的依據。 如何表示不同的成分內的功能細節(jié)和數據結構。 如何統(tǒng)一衡量軟件設計的技術質量。 314 系統(tǒng)功能分析系統(tǒng)功能分析 根據水資源管理機構提供的水費管理信息，預測開發(fā)的管理系統(tǒng)的達到的功能如下： 第一部分：系統(tǒng)用戶管理 要求：用戶分四類：超級用戶一切功能可用、管理員不可添加系統(tǒng)用戶、修改用 戶密碼、收費員僅可查詢信息、收費功能 第二部分：水費管理 要求：實現繳納水費及查詢繳費情況。 第三部分：用戶管理 要求：實現編輯用戶和瀏覽用戶信息 第四部分 打印服務 要求：實現當日繳費情況打印 第五部分 環(huán)境設置 要求：實現繳費月份及當前水價的設置 第六部分 幫助 制作幫助文檔，介紹各部分功能即可根據以上分析，該系統(tǒng)考慮將整個系統(tǒng)分解成 如圖 3-1 模塊結構圖: 主界面主界面 系系 統(tǒng)統(tǒng) 水水 費費 管管 理理 用用 戶戶 管管 理理 環(huán)環(huán) 境境 設設 置置 打打 印印 服服 務務 登錄登錄 圖 3-1 模塊結構圖 并且在系統(tǒng)的開發(fā)過程中，我盡量注意模塊的高內聚、低耦合，使得系統(tǒng)的整體性 能提高，并且也有利于投入使用后的系統(tǒng)維護。 32 詳細設計詳細設計 321 詳細設計的任務詳細設計的任務 詳細設計就是要在概要設計的結果的基礎上，考慮“怎樣實現”這個軟件系統(tǒng)，直 到對系統(tǒng)中的每個模塊給出足夠詳細的過程性描述。主要任務如下：為每個模塊確定 采用的算法，選擇某種適當的工具表達算法的過程，寫出模塊的詳細過程性描述；確 定每一模塊使用的數據結構；確定模塊接口的細節(jié)，包括對系統(tǒng)外部的接口和用戶界 面，對系統(tǒng)內部其它模塊的接口，以及模塊輸入數據、輸出數據及局部數據的全部細節(jié)。 要為每一個模塊設計出一組測試用例，以便在編碼階段對模塊代碼（即程序）進行預 定的測試，模塊的測試用例是軟件測試計劃的重要組成部分，通常應包括輸入數據，期 望輸出等內容。 322 詳細設計的方法詳細設計的方法 程序流程圖、N-S 圖、PAD 圖、IPO 圖 本系統(tǒng)在開發(fā)過程中所采用的詳細設計方法為 IPO 圖： 1、繳納水費管理模塊模塊 IPO 圖： I IO OP P 總戶號提供相應 的界面供 操作人員 錄入 保存到表 2、繳費查詢模塊 IPO 圖： I IO OP P 查詢內容的設 定 提供相應 的界面供 操作人員 操作 顯示查詢的 結果 3、用戶管理模塊 IPO 圖： I IO OP P 增加 修改 刪除 查詢 提供相應 的界面供 操作人員 操作 保存到表 顯示查詢結 果 4、打印模塊 IPO 圖： I IO OP P 選擇打印項提供相應 的界面供 操作人員 操作 打印 5、用戶管理模塊的 IPO 圖 I IO OP P 增加、刪除、 修改用戶信息 提供相應 的界面供 操作人員 操作 保存到用戶 管理表 第四章第四章 數據庫設計數據庫設計 41 數據庫數據庫 Access 簡介簡介 Access 中文版是 Microsoft Office 2000 套裝軟件的數據庫管理系統(tǒng)軟件，是目前 比較流行的小型桌面數據庫管理系統(tǒng)，它適用于小型企業(yè)、學校、個人等用戶，可以通 過多種方式實現對數據收集、分類、篩選處理，提供用戶查詢或打印報表。 Access 具有良好的界面，采用了與 Windows 和 Microsoft Office 系列軟件完全一致 的風格，用戶可以通過菜單和對話框操作，不用編寫任何命令便能有效地實現各種功能 的操作，完成數據管理任務。Microsoft Office 的一個集成化的程序設計語言是 VBA(Visual Basic for Applications)，使用 VBA 可以創(chuàng)建非常實用的數據庫應用系統(tǒng)。 Access 可以作為個人計算機終端和大型主機系統(tǒng)之間的橋梁。通過如 SQL、ODBC 等 特定技術，方便地存儲、檢索和處理服務器平臺上的關鍵信息，提供了靈活、可靠、安 全的客戶/服務器解決方案。 Access 可以接受多種格式的數據，從而方便了用戶在不同系統(tǒng)之間進行數據轉換。 隨著 Internet 網絡應用的發(fā)展，Access 還增加了使用信息發(fā)布 Web 向導和用 HTML 格式導出對象的功能。 數據庫的概念 數據庫是一種存儲數據并對數據進行操作的工具。數據庫的作用在于組織和表達信 息，簡而言之，數據庫就是信息的集合。計算機的數據庫可以分為兩類：非關系數據庫 （flat-file）和關系數據庫（relational）。關系數據庫中包含了多個數據表的信息， 數據庫含有各個不同部分的術語，象記錄、域等。 新建一個數據庫 創(chuàng)建任何一個數據庫的第一步是仔細的規(guī)劃數據庫，設計必須是靈活的、有邏輯的。 創(chuàng)建一個數據庫結構的過程被認為是數據模型設計。 1 標識需要的數據； 2 收集被標識的字段到表中； 3 標識主關鍵字字段； 4 繪制一個簡單的數據圖表； 5 規(guī)范數據； 6 標識指定字段的信息； 7創(chuàng)建物理表。 修改已建的數據庫 數據庫的修改分為：添加、編輯和刪除記錄。這三種操作均可由 Visual Basic 創(chuàng)建 的程序來完成，下面的章節(jié)將詳細描述實現的具體方法。 實現數據庫之間的聯系 數據庫之間的關系指明兩個庫之間共享一個共同的關鍵字值。一個連接是指一種虛 擬的表，這種表是在當用戶要求從相互關聯的各個不同的表中獲取信息時建立的，關鍵 字段用于在相互連接的不同表中查找匹配的記錄。一個更高級的連接形式稱為自連接。 這種連接是指一個表被連接到它自己的一個字段，或在不同的紀錄中由重復數據的組合 字段。數據庫中有三種不同類型的關鍵字：主關鍵字、組合關鍵字和外關鍵字。在表中 使用的關鍵字類型用于描述庫表示什么以及在數據庫中如何與其它的庫建立關系。 42 數據庫需求分析數據庫需求分析 根據調查水資源管理機構的水資源用戶及水費繳納情況管理的實際情況，分析得到 如下的數據庫結構。 水費管理表： 用戶管理表： 當前水價表： 用戶表： 43 測試用例測試用例 用戶表的測試用例： 水費管理表的測試用例： 當前水價表的測試用例： 帳戶表的測試用例： 第五章第五章 系統(tǒng)的實現系統(tǒng)的實現 51 系統(tǒng)登錄模塊的實現系統(tǒng)登錄模塊的實現 1流程圖 2界面： 界面包括的控件有標簽、文本框、命令按鈕等控件。 3實現過程： Y N 開始 輸入登錄密碼 是否正確 主界面 第一步將所需的控件放到窗體的相應位置；方法：首先在“工具箱”中選中所需的 控件圖標，然后在表單的恰當位置上單擊鼠標并拖動鼠標，即可把由所選取的控件生成 的對象添加到窗體上。如下圖： 第二步，選擇窗體或控件進行屬性設置，如圖為窗體的屬性設置界面: 第三步雙擊相應的控件，在控件的相應過程中編寫代碼： 如此窗體上“進入”與“退出”按鈕的代碼如下： 并且具有改變“登錄”菜單為“注銷”菜單的功能。 Private Sub Command2_Click() Unload Me End Sub 此程序段中，“IF”語句的作用是判斷用戶輸入的用戶名與密碼和數據庫的是否相 同，如果相同，則打開菜單項并執(zhí)行 unload me，如果用戶名或密碼輸入錯誤，則提示： 使用戶重新輸入用戶名或密碼。 Unload me 語句的作用是下載窗體。 不同的用戶 權限打開不 同的菜單 改變登錄菜單為 注銷菜單 此窗體上另外還有 Data1、Text3 二個控件在程序運行時是看不到的，它們的作用是 使 VB 與 Access 數據庫相連，然后判斷用戶輸入的用戶名與密碼是否與數據庫中的一致， 如果一致，則允許用戶進入系統(tǒng)。此三個控件的創(chuàng)建方法如下： 首先，將 Data、Text 控件拖放到窗體上，其次，設置它們的屬性： （1）Data1 控件的屬性設置如下圖： 此兩個屬性的作用是保證 Data 控件與數據庫相連。 數據庫 的名稱 數據庫中 的表名 Visible 屬性是使此控件運行時在窗體上不顯示。 （2）Text3 控件的屬性設置如下： Visible 屬性的設置同 Data1 控件。 5 52 2 主界面的實現主界面的實現 主界面是用菜單形式表現的，如圖： 運行時是否 隱藏 此數據控件綁定到 何數據庫 此數據控件綁 定到何字段 菜單的制作過程如下： 首先通過“工具”菜單中的“菜單編輯器”調出菜單編輯器，然后進行菜單的設置， 如下圖： 此過程中要注意各菜單的名稱唯一，還要注意菜單的級別，另外此設計過程中我們 還可以給菜單加快捷鍵。 最后設置如下的代碼（只要單擊菜單即可設置各菜單代碼），代碼如下： 調節(jié)菜單的 級別 主要是通過 Show 方法調用相應的窗體。 53 水費管理模塊的實現水費管理模塊的實現 531 繳納水費模塊的實現：繳納水費模塊的實現： 1、流程圖： 2、運行界面： 1實現過程： 第一步將所需的控件放到窗體的相應位置；方法：首先在“工具箱”中選中所需的 控件圖標，然后在表單的恰當位置上單擊鼠標并拖動鼠標，即可把由所選取的控件生成 的對象添加到窗體上。如下圖： N Y 開始 繳納水費 是否繼續(xù) 退出 第二步，選擇窗體或控件進行屬性設置，同上一小結。 其它屬性和控件的設置方法類似。 第三步雙擊相應的控件，在控件的相應過程中編寫代碼： 窗體的 load 事件為： Private Sub Form_Load() Form21.Width = 7350 Form21.Height = 7395 Form21.Move (MDIForm1.Width - Form21.Width) / 2, (MDIForm1.Height - Form21.Height) / 4 Label5.Caption = Date End Sub 作用：使窗體居中顯示。 的代碼如下： Private Sub Command2_Click() SQL = “select * from 用戶管理 where 總戶號=“ & Trim(Text1(0).Text) & “ Data3.RecordSource = SQL Data3.Refresh If Data3.Recordset.EOF Then MsgBox “沒有此總戶號！請重新輸入總戶號！“, , “提示“ Text1(0).Text = “ Text1(0).SetFocus Else For i = 1 To 9 Label1(i).Visible = True Next i For i = 1 To 6 Text1(i).Visible = True Next i Text8.Visible = True Data1.Recordset.AddNew Text1(7) = Text6 Text1(1) = Text3 Text1(2) = Text4 Text1(4) = Text2 Text1(6).Text = Date$ Text1(3).SetFocus Text8 = Text7 End If End Sub 作用：先判斷用戶表中有沒有此總戶號，如有就收費，沒有就提示用戶。界面如下： 的代碼如下： Private Sub Command1_Click() MsgBox “已入庫！“, , “提示“ Text5.Text = Val(Text5.Text) + Val(Text1(5).Text) Data1.UpdateRecord Text1(0).SetFocus Text1(0).Text = “ For i = 1 To 9 Label1(i).Visible = False Next i For i = 1 To 6 Text1(i).Visible = False Next i Text8.Visible = False End Sub 作用：收費入庫，并提示收費員相關信息。 此窗體上用了 3 個 data 控件，data1 與水費管理表相連，data2 與用戶管理表相連， data3 與當前價格表相連，連接方法同前一節(jié)，這邊不再重復。 532 查詢繳費情況模塊的實現查詢繳費情況模塊的實現 1運行界面： 2實現過程： 界面的實現方法同上，下面主要看關鍵代碼： 單選按鈕組的代碼為： Private Sub Option1_Click(Index As Integer) For i = 0 To 2 If Option1(0).Value = True Or Option1(1).Value = True Then Text1.Visible = True DTPicker1.Visible = False Else If Option1(2).Value = True Then Text1.Visible = False DTPicker1.Visible = True Else MsgBox “請選擇查詢的項！“, , “提示“ End If End If Next i Command1.Visible = True End Sub 主要選擇查詢的項。 “查詢“的主要代碼為： Private Sub Command1_Click() If Option1(0).Value = True Then SQL = “select * from 水費管理 where 總戶號=“ & Trim(Text1.Text) & “ Else If Option1(1).Value = True Then SQL = “select * from 水費管理 where 戶名=“ & Trim(Text1.Text) & “ Else If Option1(2).Value = True Then SQL = “select * from 水費管理 where 繳費日期=“ & Format(DTPicker1.Value, “yyyy-mm-dd“) & “ End If End If End If Data1.RecordSource = SQL Data1.Refresh If Data1.Recordset.EOF Then MsgBox “沒有您要查詢的繳納水費情況！“, , “提示“ End If End Sub 主要作用：根據用戶的選擇，通過 SQL 語句查詢并顯示結果。 其中，日期采用 dtpicker 控件實現，如下： 54 用戶管理模塊的實現用戶管理模塊的實現 1流程圖： 2運行界面： 3實現過程： 8 個按紐組的代碼如下： Private Sub Command1_Click(Index As Integer) If Index = 0 Then Data1.Recordset.MoveFirst Command1(2).Enabled = False Command1(1).Enabled = True N Y 開始 增加/修改用戶信息 是否繼續(xù) 保存入表 首條 End If If Index = 1 Then Command1(2).Enabled = True Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast Command1(1).Enabled = False End If End If If Index = 2 Then Command1(1).Enabled = True Data1.Recordset.MovePrevious If Data1.Recordset.BOF Then Data1.Recordset.MoveFirst Command1(2).Enabled = False End If End If If Index = 3 Then Data1.Recordset.MoveLast Command1(1).Enabled = False Command1(2).Enabled = True End If If Index = 4 Then Data1.Recordset.AddNew Text1(0) = Data1.Recordset.RecordCount + 1 Text1(1).SetFocus Command1(4).Enabled = False Command1(5).Enabled = False Command1(6).Enabled = False 下一條 前一條 末條 增加 End If If Index = 5 Then Data1.Recordset.Delete Data1.Recordset.MoveNext If Data1.Recordset.EOF Then Data1.Recordset.MoveLast Command1(1).Enabled = False End If End If If Index = 6 Then Data1.Recordset.Edit Command1(4).Enabled = False Command1(5).Enabled = False Command1(6).Enabled = False End If If Index = 7 Then Data1.UpdateRecord Data1.Recordset.MoveLast Command1(1).Enabled = False Command1(2).Enabled = True Command1(4).Enabled = True Command1(5).Enabled = True Command1(6).Enabled = True End If End Sub 55 瀏覽用戶模塊的實現瀏覽用戶模塊的實現 1流程圖： 刪除 修改 刷新記錄 N Y 開始 設定查詢信息 是否繼續(xù) 結果 2運行界面： 3實現過程： 界面的設計方法同上，在這不再重復。 現將控件的相應代碼說明如下： “查詢”的代碼如下： Private Sub Command1_Click() If Option1.Value = True Then SQL = “select * from 用戶管理 where 總戶號=“ & Trim(Text1.Text) & “ Data1.RecordSource = SQL Data1.Refresh If Data1.Recordset.EOF Then MsgBox “沒有此總戶號！“, , “提示“ End If End If If Option2.Value = True Then SQL = “select * from 用戶管理 where 戶名=“ & Trim(Text1.Text) & “ Data1.RecordSource = SQL Data1.Refresh If Data1.Recordset.EOF Then MsgBox “沒有此戶名！“, , “提示“ End If End If If Option1.Value =