本論文從可行性研究報(bào)告

知識水壩（豆丁網(wǎng) pologoogle）傾心為您整理（雙擊刪除） 摘 要 本論文從可行性研究報(bào)告、需求說明書、設(shè)計(jì)文檔、程序、測試報(bào)告、用戶手冊等六個(gè)部分對水費(fèi)管理系統(tǒng)進(jìn)行了從頭到尾的設(shè)計(jì)，通過這些步驟，該系統(tǒng)逐步實(shí)現(xiàn)了從文檔到程序的可能性，從設(shè)計(jì)方法而言，本系統(tǒng)采用了快速原型法。首先，可性行研究報(bào)告對該系統(tǒng)進(jìn)行調(diào)研、分析后得到它的系統(tǒng)流程圖、總數(shù)據(jù)流圖、模塊和計(jì)劃表；其次，需求說明書畫出了該系統(tǒng)的詳細(xì)數(shù)據(jù)流圖和數(shù)據(jù)詞典；第三，設(shè)計(jì)文檔導(dǎo)出了詳細(xì)的結(jié)構(gòu)圖以及各模塊功能；第四，程序給出了該系統(tǒng)的程序清單；第五，測試報(bào)告從黑盒法給出了該系統(tǒng)的測試數(shù)據(jù)；第六，用戶手冊給出 了該程序的說明書。從這六個(gè)方面，本系統(tǒng)的設(shè)計(jì)及功能實(shí)現(xiàn)得到了詳盡的闡述。 一、 可行性研究報(bào)告 對于銀川市自來水公司水費(fèi)管理系統(tǒng)，經(jīng)過仔細(xì)調(diào)研后，形成報(bào)告如下： 復(fù)查系統(tǒng)目標(biāo)和規(guī)模 將該系統(tǒng)的各種原始資料收集完整后，發(fā)現(xiàn)該系統(tǒng)是一個(gè)中型的軟件系統(tǒng)。它由四個(gè)模塊組成：系統(tǒng)管理、表單操作、統(tǒng)計(jì)報(bào)表和手持機(jī)操作。其中，系統(tǒng)管理主要是系統(tǒng)的一些資料設(shè)定及相關(guān)的建庫工作；表單操作包括對輸入數(shù)據(jù)的一些處理以及輸出等；統(tǒng)計(jì)報(bào)表包括對報(bào)表的相關(guān)處理；手持機(jī)操作則是對磁卡水表的數(shù)據(jù)初始化及編輯。 研究目前正在使用的系統(tǒng) 對該系統(tǒng)的 四個(gè)模塊進(jìn)行研究后發(fā)現(xiàn)模塊的劃分不清楚，有些功能沒有實(shí)現(xiàn)等一些問題，故可以將其改進(jìn)，如可以加入查詢功能，系統(tǒng)管理、表單操作、統(tǒng)計(jì)報(bào)表不變，但需重新劃分，手持機(jī)操作則可以刪去。本系統(tǒng)的整體思路是：當(dāng)軟件初次使用時(shí)，先進(jìn)行系統(tǒng)初始化，建立權(quán)限表、用戶檔案、水費(fèi)標(biāo)準(zhǔn)庫三個(gè)數(shù)據(jù)庫，系統(tǒng)初始化調(diào)用公共模塊的公共過程實(shí)現(xiàn)，以后使用時(shí)，登錄后進(jìn)入程序主界面。首先，從系統(tǒng)管理入手，先進(jìn)行操作員管理（只有系統(tǒng)管理員才能使用），設(shè)定人員權(quán)限，再進(jìn)行密碼修改，然后設(shè)定水費(fèi)價(jià)格、進(jìn)行用戶編輯、用戶注銷、新建工作期，新建工作期新建主 數(shù)據(jù)庫并更新（還可以更新系統(tǒng)庫），其實(shí)現(xiàn)方法采用對象變量實(shí)現(xiàn)，另外，數(shù)據(jù)備份和數(shù)據(jù)恢復(fù)可以從軟盤和硬盤兩個(gè)方面進(jìn)行備份和恢復(fù)；其次，表單操作、統(tǒng)計(jì)報(bào)表、查詢?nèi)齻€(gè)模塊都使用了 DAO 模型，采用數(shù)據(jù)控件和數(shù)據(jù)綁定控件實(shí)現(xiàn)，其中，打印發(fā)票加入了打印功能，發(fā)票移交、用戶分布表不使用數(shù)據(jù)控件，只使用了網(wǎng)格控件，程序中使用了對象變量?，F(xiàn)給出現(xiàn)有系統(tǒng)的高層系統(tǒng)流程圖： 知識水壩（豆丁網(wǎng) pologoogle）傾心為您整理（雙擊刪除） 抄 表 員 抄表 表單處 理 打印發(fā) 票 用 戶 交費(fèi) 收 費(fèi) 站 統(tǒng)計(jì)報(bào) 表 查 詢 系統(tǒng)管 理 圖 1-1 系統(tǒng)流程圖 導(dǎo)出新系統(tǒng)的高層邏輯模型 通過上一步的實(shí)現(xiàn)，可以導(dǎo) 出新系統(tǒng)的高層邏輯模型，下面用數(shù)據(jù)流圖來表示： 系統(tǒng)主文件 卡 片 抄表數(shù)據(jù) 發(fā)票 主庫文件 圖 1-2 數(shù)據(jù)流圖 抄表卡片 初始數(shù)據(jù) 表單處理程序 主庫 文 件 查詢程序 打印發(fā)票程序 發(fā) 票 系統(tǒng)管理程序 系統(tǒng) 主文件 統(tǒng)計(jì)報(bào)表程序 操 作 員 知識水壩（豆丁網(wǎng) pologoogle）傾心為您整理（雙擊刪除） 其中，虛線框表示的是可用計(jì)算機(jī)實(shí)現(xiàn)的部分，而虛線框之外的則是用人工處理的部分。 導(dǎo)出和評價(jià)供選擇的方案 由前步可以對該系統(tǒng)修改如下： 系 統(tǒng) 管 理 表 單 操 作 統(tǒng) 計(jì) 報(bào) 表 查 詢 新 建 工 作 期 表 單 處 理 打 印 發(fā) 票 發(fā) 票 移 交 報(bào) 表 日 報(bào) 匯 總 標(biāo) 簽 歷 史 查 詢 當(dāng) 月 查 詢 用 戶 編 輯 用 戶 注 銷 用 戶 校 驗(yàn) 表 單 銷 號 用 戶 查 詢 未 抄 表 用 戶 用 戶 分 布 表 公 司 資 料 設(shè) 定 水 費(fèi) 價(jià) 格 設(shè) 定 分 區(qū) 維 護(hù) 水 費(fèi) 匯 總 污 水 處 理 費(fèi) 匯 總 銷 號 清 單 數(shù) 據(jù) 備 份 數(shù) 據(jù) 恢 復(fù) 操 作 員 管 理 修 改 密 碼 草擬開發(fā)計(jì)劃 經(jīng)過以上步驟，經(jīng)分析草擬開發(fā)計(jì)劃如下： 可行性研究與計(jì)劃一周、需求分析一周、概要設(shè)計(jì)一周、編程兩周、測試一周，共需周，即一個(gè)半月。 由于本系統(tǒng)用 VB 實(shí)現(xiàn)，它屬于面向?qū)ο?編程，故詳細(xì)設(shè)計(jì)可以省略。 以下為開發(fā)計(jì)劃表： 計(jì) 劃 任 務(wù) 時(shí) 間 （ 周 次 ） 可行性研究與計(jì)劃 需求分析 概要設(shè)計(jì) 編 程 測 試 1 2 3 4 5 6 知識水壩（豆丁網(wǎng) pologoogle）傾心為您整理（雙擊刪除） 二、 需求說明書 數(shù)據(jù)流圖 由上一節(jié)的可行性研究報(bào)告可知，根據(jù) SA 方法可以畫出該系統(tǒng)的數(shù)據(jù)流圖。 頂層 匯 總 表 抄表數(shù)據(jù) 報(bào)表 發(fā)票 日報(bào)表 月 查詢單 報(bào) 查 報(bào) 表 詢 表 單 圖 系統(tǒng)主文件 抄表數(shù)據(jù) 發(fā) 票 主庫文件 各種報(bào)表 查詢單 水費(fèi)管理系統(tǒng) 抄表員 操作員 用戶 財(cái)務(wù)室 領(lǐng)導(dǎo) 1 系統(tǒng)管理 2 表單處理 操作員 用戶 3 統(tǒng)計(jì)報(bào)表 4 查詢 知識水壩（豆丁網(wǎng) pologoogle）傾心為您整理（雙擊刪除） 圖 1 用戶檔案 系統(tǒng)管理員 備份文件 一般用戶 權(quán)限表 主庫文件 圖 1.1 編號 戶名 地址 備注 其它 主庫文件 圖 1.2 用戶檔案 1.1 建立用戶檔案 1.2 管理用戶檔案 1.3 操作人員權(quán)限 1.4 數(shù)據(jù)備份與恢復(fù) 1.1.1 新建工作期 1.2.1 用戶編輯 1.2.3 用戶校驗(yàn) 1.2.2 用戶注銷 1.2.4 用戶類型設(shè)定 1.2.5 分區(qū)維護(hù) 知識水壩（豆丁網(wǎng) pologoogle）傾心為您整理（雙擊刪除） 1.3.3 修改密碼 圖 1.3 系統(tǒng) 管理員 一般用戶 用戶檔案 系統(tǒng)管理員 一般用戶 密 權(quán)限表 碼 圖 1.4 主庫文件 用戶檔案 備份文件 水費(fèi)標(biāo)準(zhǔn)庫 圖 2 收費(fèi)標(biāo)準(zhǔn) 抄表數(shù)據(jù) 發(fā)票 用 水記錄 用戶檔案 主庫文件 圖 3 月報(bào)表 日報(bào)表 主庫 文件 1.3.1 設(shè)定人員 1.3.2 設(shè)定密碼 1.4.1 備份數(shù)據(jù) 1.4.2 恢復(fù)數(shù)據(jù) 2.1 輸入當(dāng)月讀數(shù) 2.2 計(jì)算 2.3 打印發(fā)票 3.1 產(chǎn)生月報(bào)表 3.2 產(chǎn)生日報(bào)表 3.3 產(chǎn)生匯總表 3.4 未打發(fā)票用戶 財(cái)務(wù)室 操作員 抄表員 領(lǐng)導(dǎo) 抄表員 知識水壩（豆丁網(wǎng) pologoogle）傾心為您整理（雙擊刪除） 圖 3.3 匯總數(shù)據(jù) 圖 3.4 未打發(fā)票用戶數(shù)據(jù) 圖 4 查詢單 查詢單 主 查詢單 庫 文 件 查詢單 其中，圖、圖及其子圖是變換型結(jié)構(gòu)，圖、圖及其子圖是事務(wù)型結(jié)構(gòu)。 3.3.1 每個(gè)小區(qū)明細(xì)表 3.3.2 片區(qū)匯總表 3.3.3 根據(jù)歷史記錄用水情況表 抄表員 領(lǐng) 導(dǎo) 3.4.1讀數(shù) 3.4.2未抄 3.4.3 表損壞 3.4.4 漏水 (送修 ) 抄表員 3.4.5 還未錄入 操作員 4.1 歷史查詢 4.2 當(dāng)月查詢 4.4 用戶查詢 4.3 用水異常 查詢者 領(lǐng)導(dǎo) 用戶 知識水壩（豆丁網(wǎng) pologoogle）傾心為您整理（雙擊刪除） 數(shù)據(jù)詞典 根據(jù)數(shù)據(jù)流圖可寫出數(shù)據(jù)詞典如下： 文件名：系統(tǒng)主文件 別 名：用戶檔案 組 成：編號 +戶名 +地址 +備注 +其它 組 織：按編號英文字母數(shù)字順序排列 文件名：主庫文件 組 成：編號 +戶名 +地址 +備注 +上月讀數(shù) +當(dāng)月讀數(shù) +水費(fèi) +其它 組 織：按編號英文字母數(shù)字順序排列 文件名：水費(fèi)標(biāo)準(zhǔn)庫 組 成：用戶類型 +收費(fèi)標(biāo)準(zhǔn) 組 織：按用戶類型英文字母數(shù)字順序排列 文件名：備份文件 組 成：同主庫文件 組 織：同主庫文件 注 釋：文件名按年月名生成，每月一個(gè)文件，文件可壓縮 文件名：權(quán)限表 組 成：編號 +人員代號 +人員名 +姓名 +密碼 組 織：按編號英文字母數(shù)字順序排列 數(shù)據(jù)流名：抄表數(shù)據(jù) 組 成：編號 +戶名 +地址 +每月讀數(shù) +其它 數(shù)據(jù)流名：發(fā)票 組 成：編號 +戶名 +地址 +每月讀數(shù) +水量 +金額 +其它 數(shù)據(jù)流名：報(bào)表 組 成：同主庫文件 注 釋：包括月報(bào)表、日報(bào)表、匯總表、未打發(fā)票用戶 數(shù)據(jù)流名：查詢單 組 成：同主庫文件 注 釋：包括歷史查詢單、當(dāng)月查詢單、用戶查詢單 數(shù)據(jù)項(xiàng)名：編號 值：數(shù)字 0-9 數(shù)據(jù)項(xiàng)名：戶名 值：字符串 數(shù)據(jù)項(xiàng)名：地址 值：字符串 數(shù)據(jù)項(xiàng)名：備注 值：字符串 數(shù)據(jù)項(xiàng)名：其它 值：根據(jù)具體名字取值 注 釋：該數(shù)據(jù)項(xiàng)為一些無關(guān)緊要的數(shù)據(jù)項(xiàng) 數(shù)據(jù)項(xiàng)名：人員代號 值：數(shù)字 0-9 數(shù)據(jù)項(xiàng)名：人員名 組 成：系 統(tǒng)管理員一般用戶 值：字符串 數(shù)據(jù)項(xiàng)名：姓名 值：字符串 數(shù)據(jù)項(xiàng)名：系統(tǒng)管理員 值：字符串 知識水壩（豆丁網(wǎng) pologoogle）傾心為您整理（雙擊刪除） 數(shù)據(jù)項(xiàng)名：一般用戶 值：字符串 數(shù)據(jù)項(xiàng)名：密碼 值：字符串 數(shù)據(jù)項(xiàng)名：上月讀數(shù) 值：數(shù)字 -9，整型數(shù)， 0-20,000 數(shù)據(jù)項(xiàng)名：當(dāng)月讀數(shù) 值：數(shù)字 0-9，整型數(shù)， 0-20,000 數(shù)據(jù)項(xiàng)名：水費(fèi) 值：數(shù)字 -9，小數(shù)點(diǎn)“” 數(shù)據(jù)項(xiàng)名：金額 值：數(shù)字 -9，小數(shù)點(diǎn) “ ” 數(shù)據(jù)項(xiàng)名：用戶類型 值：字符串 數(shù)據(jù)項(xiàng)名：收費(fèi)標(biāo)準(zhǔn) 值：數(shù)字 0-9，小數(shù)點(diǎn)“” 三、設(shè)計(jì)文檔 知識水壩（豆丁網(wǎng) pologoogle）傾心為您整理（雙擊刪除） 查詢 設(shè)定人員 設(shè)定密碼 修改密碼 1結(jié)構(gòu)圖 根據(jù) SD 方法，由上一節(jié)數(shù)據(jù)流圖可以推導(dǎo)出結(jié)構(gòu)圖如下： 頂層 匯總表 報(bào)表 月 查 查詢單 報(bào) 詢 報(bào) 發(fā) 抄表數(shù)據(jù) 日報(bào)表 表 單 表 票 圖 0 發(fā)票 各種 查詢 抄表數(shù)據(jù) 報(bào)表 單 圖 1 編號 主 戶名 備注 庫 地址 其它 文 件 備份 文件 備份 文件 圖 2 水費(fèi)管理系統(tǒng) 抄表員 操作員 領(lǐng)導(dǎo) 用戶 財(cái)務(wù)室 水費(fèi)管理系統(tǒng) 系統(tǒng)管理 表單處理 統(tǒng)計(jì)報(bào)表 操作員 用戶 輸出 輸出 系統(tǒng)管理 建立用戶檔案 管理用戶檔案 操作人員權(quán)限 數(shù)據(jù)備份與恢復(fù) 輸入 輸出 用戶編輯 用戶注銷 用戶校驗(yàn) 用戶類型設(shè)定 備份數(shù)據(jù) 恢復(fù)數(shù)據(jù) 輸出 輸入 表單處理 知識水壩（豆丁網(wǎng) pologoogle）傾心為您整理（雙擊刪除） 抄表數(shù)據(jù) 發(fā) 用水記錄 收費(fèi)標(biāo)準(zhǔn) 票 圖 3 月報(bào)表 日報(bào)表 圖 4 查 查詢單 詢 查詢單 單 查詢單 2模塊功能 各種模塊的功能如下： 輸入當(dāng)月讀數(shù) 計(jì)算 打印發(fā)票 輸入 輸入 輸出 統(tǒng)計(jì)報(bào)表 產(chǎn)生月報(bào)表 財(cái)務(wù)室 產(chǎn)生日報(bào)表 操作員 產(chǎn)生匯總表 未打發(fā)票用戶 每個(gè)小區(qū) 明細(xì)表 片區(qū)匯總表 根據(jù)歷史記錄用水情況表 抄表員 領(lǐng)導(dǎo) 還未錄入 操作員 讀數(shù) 未抄 表損壞 漏水(送修 ) 抄表員 查詢 歷史查詢 當(dāng)月查詢 用戶查詢 查詢者 用水異常 領(lǐng) 導(dǎo) 用戶 知識水壩（豆丁網(wǎng) pologoogle）傾心為您整理（雙擊刪除） 模 塊：水費(fèi)管理系統(tǒng) 功 能：處理日常用水情況的一套綜合管理工具 模 塊：系統(tǒng)管理 功 能：對于系統(tǒng)的特殊功能進(jìn)行管理的模塊 模 塊：表單處理 功 能：處理輸入數(shù)據(jù)、計(jì)算、及打印發(fā)票的模塊 模 塊：統(tǒng)計(jì)報(bào)表 功 能：統(tǒng)計(jì)并產(chǎn)生各種報(bào)表的模塊 模 塊：查詢 功 能：產(chǎn)生各種查詢的模塊 模 塊：建立用戶檔案 功 能：新建每個(gè)用戶的最初檔案 模 塊：管理用戶檔案 功 能：分為用戶編輯、用戶注銷、用戶 校驗(yàn)、用戶類型設(shè)定幾個(gè)子模塊 模 塊：操作人員權(quán)限 功 能：設(shè)定人員及密碼的模塊，其中人員分為系統(tǒng)管理員和一般人員包括錄單員、 檔案錄入人員、查詢?nèi)藛T、操作員），系統(tǒng)管理員可以設(shè)定其它人員的權(quán)限。 模 塊：數(shù)據(jù)備份與恢復(fù) 功 能：備份數(shù)據(jù)和恢復(fù)數(shù)據(jù) 模 塊：輸入當(dāng)月讀數(shù) 功 能：輸入每月的水表讀數(shù) 模 塊：計(jì)算 功 能：計(jì)算水費(fèi) 模 塊：打印發(fā)票 功 能：將發(fā)票打印輸出 模 塊：產(chǎn)生月報(bào)表 功 能：產(chǎn)生每月的月報(bào)表 模 塊：產(chǎn)生日報(bào)表 功 能：產(chǎn)生每天的日報(bào)表 模 塊：產(chǎn)生匯總表 功 能：分為每個(gè)小區(qū)明細(xì)表、片區(qū)匯總表、根據(jù)歷史記錄用水情況表幾個(gè)子模塊 模 塊：未打發(fā)票用戶 功 能：分為未抄、表損壞、漏水（送修）、還未錄入 幾個(gè)子模塊 模 塊：歷史查詢 功 能：查詢歷史記錄 模 塊：當(dāng)月查詢 功 能：查詢當(dāng)月用水情況，包括用水異常 模 塊：用戶查詢 功 能：根據(jù)用戶提出的情況進(jìn)行查詢 四、 程序清單 知識水壩（豆丁網(wǎng) pologoogle）傾心為您整理（雙擊刪除） FrmSplash (快速啟動窗體 ) Option Explicit Private Sub Form_KeyPress(KeyAscii As Integer) Unload Me End Sub Private Sub Form_Load() lblVersion.Caption = 版本 & App.Major & . & App.Minor & . & App.Revision lblProductName.Caption = App.Title End Sub Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single) End Sub Private Sub Timer1_Timer() Unload Me End Sub FrmLogin（登陸窗體） Option Explicit Public LoginSucceeded As Boolean Dim ws As Workspace, db As Database, rs As Recordset Dim ReadNum() As Integer, ReadNameNum() As Integer Dim ReadName1() As String, ReadName2() As String Dim ReadPassword() As String Private Sub cmdCancel_Click() 設(shè)置全局變量為 false 不提示失敗的登錄 LoginSucceeded = False Me.Hide End Sub Private Sub cmdOK_Click() 檢查正確的密碼 Dim ReadIndex As Integer ReadIndex = txtCombo.ListIndex + 1 If txtPassword = ReadPassword(ReadIndex) Then 將代碼放在這里傳遞 知識水壩（豆丁網(wǎng) pologoogle）傾心為您整理（雙擊刪除） 成功到 calling 函數(shù) 設(shè)置全局變量時(shí)最容易的 OperatorNum = ReadNum(ReadIndex) OperatorNameNum = ReadNameNum(ReadIndex) OperatorName1 = ReadName1(ReadIndex) OperatorName2 = ReadName2(ReadIndex) LoginSucceeded = True Me.Hide Else MsgBox 無效的密碼，請重試 !, , 登錄 txtPassword.SetFocus SendKeys Home+End End If End Sub Private Sub Form_Load() 打開權(quán)限表 Dim strAppName As String strAppName = App.Path + 權(quán)限表 .mdb Set ws = DBEngine.Workspaces(0) Set db = ws.OpenDatabase(strAppName, False, True) Set rs = db.OpenRecordset(權(quán)限表 ) 向組合框中添加人員名 Dim i, ReadCount As Integer ReadCount = rs.RecordCount ReDim Preserve ReadNum(ReadCount), ReadNameNum(ReadCount) ReDim Preserve ReadName1(ReadCount), ReadName2(ReadCount) ReDim Preserve ReadPassword(ReadCount) rs.MoveFirst For i = 1 To ReadCount ReadNum(i) = rs.Fields(編號 ) ReadNameNum(i) = rs.Fields(人員代號 ) ReadName1(i) = rs.Fields(人員名 ) ReadName2(i) = rs.Fields(姓名 ) If rs.Fields(密碼 ) Then rs2.Fields(上月讀數(shù) ) = rs.Fields(上月讀數(shù) ) Else rs2.Fields(上月讀數(shù) ) = 0 End If If rs.Fields(本月讀數(shù) ) strPasswordConfirm Then MsgBox 確認(rèn)密碼不對 !, vbExclamation + vbOKOnly, 修改密碼 txtConfirm.SetFocus SendKeys Home+End Exit Sub End If 向數(shù)據(jù)庫中寫入密碼 Set ws = DBEngine.Workspaces(0) Set db = ws.OpenDatabase(App.Path + 權(quán)限表 .mdb, False, False) Set rs = db.OpenRecordset(權(quán)限表 ) rs.MoveFirst rs.Move OperatorNum - 1 rs.Edit rs.Fields(密碼 ) = Trim(strPassword) rs.Update 關(guān)閉數(shù)據(jù)庫 rs.Close db.Close ws.Close Set rs = Nothing Set db = Nothing Set ws = Nothing MsgBox 修改密碼成功 !, vbInformation + vbOKOnly, 修改密碼 Unload Me End Sub Private Sub Form_Load() txtName.Text = OperatorName2 FrmFormProcess(表單處理窗體 ) Option Explicit Dim db As Database, rs As Recordset Dim fso As New FileSystemObject Dim curWaterPrice(5) As Currency, curWaterDirty(5) As Currency Dim WaterMeter(9) As Long, WaterLimit(9) As Long Dim InputIndex As Integer, RegionIndex As Integer Private Sub cmdExit_Click(Index As Integer) Unload Me 知識水壩（豆丁網(wǎng) pologoogle）傾心為您整理（雙擊刪除） End Sub Private Sub cmdRefresh_Click() 只有多用戶應(yīng)用程序需要 On Error GoTo RefreshErr Data1.Refresh Exit Sub RefreshErr: MsgBox Err.Description End Sub Private Sub cmdUpdate_Click(Index As Integer) On Error GoTo UpdateErr Data1.UpdateRecord Exit Sub UpdateErr: MsgBox Err.Description End Sub Private Sub comRegion_Click(Index As Integer) 根據(jù)分區(qū)號選擇分區(qū) Dim RegionNumber As Integer, strSQL As String RegionNumber = comRegion(Index).ListIndex + 1 RegionIndex = RegionNumber Select Case Index Case 0 表單錄入 strSQL = select * from 主庫文件 where 分區(qū) = & RegionNumber Case 1 表單編輯 Select Case InputIndex Case 0 分區(qū)及已錄單 strSQL = select * from 主庫文件 where 分區(qū) = & RegionNumber _ & and 錄單 =True Case 1 分區(qū)及未錄單 strSQL = select * from 主庫文件 where 分區(qū) = & RegionNumber _ & and 錄單 =False End Select End Select Data1.RecordSource = strSQL Data1.Refresh End Sub Private Sub Data1_Reposition() Data1.Caption = 記錄 : & Data1.Recordset.AbsolutePosition + 1 End Sub 知識水壩（豆丁網(wǎng) pologoogle）傾心為您整理（雙擊刪除） Private Sub Form_Load() 水表直徑與起收底數(shù) WaterMeter(1) = 20: WaterMeter(2) = 25: WaterMeter(3) = 32 WaterMeter(4) = 40: WaterMeter(5) = 50: WaterMeter(6) = 80 WaterMeter(7) = 100: WaterMeter(8) = 150: WaterMeter(9) = 200 WaterLimit(1) = 4: WaterLimit(2) = 8: WaterLimit(3) = 15 WaterLimit(4) = 25: WaterLimit(5) = 40: WaterLimit(6) = 60 WaterLimit(7) = 80: WaterLimit(8) = 200: WaterLimit(9) = 300 Dim strOpenName As String strOpenName = App.Path & Main & Year(Now) & Month(Now) & .mdb 設(shè)定數(shù)據(jù)控件屬性 Data1.DatabaseName = strOpenName Data1.RecordSource = 主庫文件 將表單錄入字段加入 txtFields1(0).DataField = 編號 : txtFields1(1).DataField = 戶型 txtFields1(2).DataField = 戶名 : txtFields1(3).DataField = 地址 txtFields1(4).DataField = 本月讀數(shù) : txtFields1(5).DataField = 上月讀數(shù) txtFields1(6).DataField = 發(fā)票號 : txtFields1(7).DataField = 新表止碼 txtFields1(8).DataField = 新表起碼 : txtFields1(9).DataField = 實(shí)用水量 txtFields1(10).DataField = 排污費(fèi)金額 : txtFields1(11).DataField = 水費(fèi) txtFields1(12).DataField = 水費(fèi)金額 txtFields1(13).DataField = 合計(jì)金額 : txtFields1(14).DataField = 污水處理費(fèi) txtFields1(15).DataField = 金額大寫 : txtFields1(16).DataField = 污水處理費(fèi)折扣 txtFields1(18).DataField = 分區(qū) 將表單編輯字段加入 txtFields2(0).DataField = 上月讀數(shù) : txtFields2(1).DataField = 本月讀數(shù) txtFields2(2).DataField = 新表起碼 : txtFields2(3).DataField = 新表止碼 txtFields2(4).DataField = 發(fā)票號 : txtFields2(5).DataField = 實(shí)用水量 txtFields2(6).DataField = 排污費(fèi)金額 : txtFields2(7).DataField = 水費(fèi)金額 txtFields2(8).DataField = 合計(jì)金額 Dim i As Integer For i = 0 To 1 comStyle(i).DataField = 表單類型 comStyle(i).AddItem 正常表單 : comStyle(i).AddItem 本月調(diào)表 comStyle(i).AddItem 臨時(shí)錄單 : comStyle(i).AddItem 表黑暫開 comStyle(i).AddItem 表停暫開 : comStyle(i).AddItem 表壞暫開 Next For i = 0 To 1 chkInput(i).DataField = 錄單 Next 加入分區(qū)數(shù) For i = 1 To RegionNumber comRegion(0).AddItem i comRegion(1).AddItem i Next 知識水壩（豆丁網(wǎng) pologoogle）傾心為您整理（雙擊刪除） 刷 新數(shù)據(jù)控件 Data1.Refresh 讀取水費(fèi)價(jià)格 Set db = Workspaces(0).OpenDatabase(App.Path & 水費(fèi)標(biāo)準(zhǔn)庫 .mdb, False, True) Set rs = db.OpenRecordset(水費(fèi)標(biāo)準(zhǔn) ) rs.MoveFirst For i = 1 To 5 curWaterPrice(i) = rs.Fields(收費(fèi)標(biāo)準(zhǔn) ) curWaterDirty(i) = rs.Fields(污水處理費(fèi) ) rs.MoveNext If rs.EOF Then rs.MoveLast Next rs.Close db.Close Set rs = Nothing Set db = Nothing End Sub Private Sub optInput_Click(Index As Integer) Dim strSQL As String Select Case Index Case 0 已錄單用戶 InputIndex = 0 strSQL = select * from 主庫文件 where 分區(qū) = & RegionIndex _ & and 錄單 =True Case 1 未錄單用戶 InputIndex = 1 strSQL = select * from 主庫文 件 where 分區(qū) = & RegionIndex _ & and 錄單 =False End Select Data1.RecordSource = strSQL Data1.Refresh End Sub Private Sub txtFields1_LostFocus(Index As Integer) Select Case Index Case 4 本月讀數(shù) Dim WI As Long, i As Integer, WJ As Integer WI = Data1.Recordset.Fields(水表直徑 ) For i = 1 To 9 If WaterMeter(i) = WI Then WJ = i Next If Val(txtFields1(Index) 0 Then strNumber = strNumber & ShiftPrice(PerNum) If i 1 Then strNumber = strNumber & ShiftPrice(lngI) End If End If WaterTotalCopy = WaterTotalCopy - PerNum * lngI If PerNum = 0 And WaterTotalCopy 0 Then strNumber = strNumber & ShiftPrice(PerNum) strNumber = strNumber & 角 End If WaterTotalCopy = WaterTotalCopy - PerNum / 10 PerNum = WaterTotalCopy * 100 If PerNum 0 Then 知識水壩（豆丁網(wǎng) pologoogle）傾心為您整理（雙擊刪除） strNumber = strNumber & ShiftPrice(PerNum) If i 1 Then strNumber = strNumber & ShiftPrice(lngI) End If End If WaterTotalCopy = WaterTotalCopy - PerNum * lngI If PerNum = 0 And WaterTotalCopy 0 Then strNumber = strNumber & ShiftPrice(PerNum) strNumber = strNumber & 角 End If WaterTotalCopy = WaterTotalCopy - PerNum / 10 PerNum = WaterTotalCopy * 100 If PerNum Then RowsNum = RowsNum + 1 Data1.Recordset.MoveNext Wend ReDim prnTable(RowsNum, 11) Dim i As Long, j As Integer For i = 1 To RowsNum DBGrid1.Row = i - 1 For j = 1 To 11 知識水壩（豆丁網(wǎng) pologoogle）傾心為您整理（雙擊刪除） DBGrid1.Col = j - 1 prnTable(i, j) = DBGrid1.Text Next j Next i End If End Sub Private Sub Form_Load() 給組合框添加列表項(xiàng) Dim i As Integer For i = 1 To RegionNumber comRegion.AddItem i Next strAppName = App.Path & Main & Year(Now) & Month(Now) & .mdb Data1.DatabaseName = strAppName strSQL = select 編號 ,發(fā)票號 ,戶名 ,地址 ,本月讀數(shù) ,上月讀數(shù) ,實(shí)用水量 ,水費(fèi) , _ & 污水處理費(fèi) ,合計(jì)金額 ,金額大寫 from 主庫文件 Data1.RecordSource = strSQL Data1.Refresh End Sub Private Sub txtEndInv_LostFocus() If (Not IsNumeric(txtBeginInv) Or (Not IsNumeric(txtEndInv) Then MsgBox 輸入錯誤 !, vbExclamation + vbOKOnly, 匯總標(biāo)簽 txtBeginInv.SetFocus SendKeys Home+End Exit Sub End If If intRegionNum = 0 Then MsgBox 必須選擇分區(qū)號！ , vbExclamation + vbOKOnly, 打印發(fā)票 comRegion.SetFocus Exit Sub End If Dim lngBegin As Long, lngEnd As Long lngBegin = Val(txtBeginInv): lngEnd = Val(txtEndInv) strSQL = select 編號 ,發(fā)票號 ,戶名 ,地址 ,本月讀數(shù) ,上月讀數(shù) ,實(shí)用水量 ,水費(fèi) , _ & 污水處理費(fèi) ,合計(jì)金額 ,金額大寫 from 主庫文件 _ & where 分區(qū) = & intRegionNum & and 發(fā)票號 = & lngBegin & and 發(fā)票號 = & lngBegin & and 發(fā)票號 = & lngEnd Data.RecordSource = strSQL Data.Refresh End Sub UnwriteUser(未抄表用戶窗體 ) Option Explicit Private Sub cmdExit_Click() Unload Me 知識水壩（豆丁網(wǎng) pologoogle）傾心為您整理（雙擊刪除） End Sub Private Sub cmdPrint_Click() Me.PrintForm Printer.EndDoc End Sub Private Sub comRegion_Click() 根據(jù)分區(qū)號選擇分區(qū) Dim RegionNumber As Integer, strSQL As String RegionNumber = comRegion.ListIndex + 1 strSQL = select 編號 ,戶名 ,地址 ,電話 ,戶型 from 用戶檔案 where 終止讀數(shù) =0 _ & and 分區(qū) = & RegionNumber Data1.RecordSource = strSQL Data1.Refresh End Sub Private Sub Data1_Reposition() Data1.Caption = 記錄 : & Data1.Recordset.AbsolutePosition + 1 End Sub Private Sub Form_Load() 給組合框添加列表項(xiàng) Dim i As Integer For i = 1 To RegionNumber comRegion.AddItem i Next Dim strSQL As String Data1.DatabaseName = App.Path & 用戶檔案 .mdb strSQL = select 編號 ,戶名 ,地址 ,電話 ,戶型 from 用戶檔案 where 終止讀數(shù) =0 Data1.RecordSource = strSQL Data1.Refresh End Sub FrmUserDistributeForm(用戶分布表窗體 ) Option Explicit Dim UserCount(RegionNumber, 6) As Long Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdPrint_Click() 知識水壩（豆丁網(wǎng) pologoogle）傾心為您整理（雙擊刪除） Me.PrintForm Printer.EndDoc End Sub Private Sub Form_Load() 給數(shù)組賦零值 Dim i As Integer, j As Integer For i = 1 To RegionNumber For j = 1 To 6 UserCount(i, j) = 0 Next j Next i 讀數(shù)據(jù)庫并給數(shù)值賦值 Dim strStyle As String, intStyle As Integer Dim db As Database, rs As Recordset Set db = Workspaces(0).OpenDatabase(App.Path & 用戶檔案 .mdb, False, True) Set rs = db.OpenRecordset(用戶檔案 ) rs.MoveFirst Do While Not rs.EOF i = rs.Fields(分區(qū) ) strStyle = rs.Fields(戶型 ) intStyle = Val(Right(strStyle, 2) j = intStyle UserCount(i, j) = UserCount(i, j) + 1 rs.MoveNext Loop rs.Close db.Close Set rs = Nothing Set db = Nothing For i = 1 To RegionNumber For j = 1 To 5 UserCount(i, 6) = UserCount(i, 6) + UserCount(i, j) Next j Next i MSFlexGrid1.Rows = RegionNumber + 1 網(wǎng)格行數(shù) 定義網(wǎng) 格各列列寬 MSFlexGrid1.ColWidth(0) = 800: MSFlexGrid1.ColWidth(1) = 1000 MSFlexGrid1.ColWidth(2) = 1000: MSFlexGrid1.ColWidth(3) = 1000 MSFlexGrid1.ColWidth(4) = 1000: MSFlexGrid1.ColWidth(5) = 1000 MSFlexGrid1.ColWidth(6) = 1000 在網(wǎng)格第一行上定義標(biāo) 題 MSFlexGrid1.Row = 0 MSFlexGrid1.Col = 0: MSFlexGrid1.Text = 分區(qū)號 MSFlexGrid1.Col = 1: MSFlexGrid1.Text = 居民總數(shù) 知識水壩（豆丁網(wǎng) pologoogle）傾心為您整理（雙擊刪除） MSFlexGrid1.Col = 2: MSFlexGrid1.Text = 事業(yè)總數(shù) MSFlexGrid1.Col = 3: MSFlexGrid1.Text = 工業(yè)總數(shù) MSFlexGrid1.Col = 4: MSFlexGrid1.Text = 商業(yè)總數(shù) MSFlexGrid1.Col = 5: MSFlexGrid1.Text = 特種總數(shù) MSFlexGrid1.Col = 6: MSFlexGrid1.Text = 總戶數(shù) For i = 1 To RegionNumber MSFlexGrid1.Row = i: MSFlexGrid1.Col = 0 MSFlexGrid1.RowHeight(i) = 250 MSFlexGrid1.Text = i For j = 1 To 6 MSFlexGrid1.Col = j MSFlexGrid1.Text = UserCount(i, j) Next j Next i End Sub FrmHistoryQuery(歷史查詢 ) Option Explicit Dim strAppName As String, strSQL As String Dim strPageName() As String Dim intPageDate() As Date Dim fso As New FileSystemObject Private Sub cmdExit_Click() Unload Me End Sub Private Sub cmdPrint_Click() Me.PrintForm Printer.EndDoc End Sub Private Sub comStyle_Click() strSQL = select * from 主庫文件 o