【正文】 id(passwd, i, 1) ww = Asc(qq) sum = sum + ww kdm = Asc(qq) kbm = kdm amp。關(guān)閉后以后用起來方便，不需要切換輸入法了。圖556登陸窗口操作步驟：① 新建窗體。二、模塊的創(chuàng)建（1）打開對象/模塊，在模塊欄中新建一模塊“functin”。然后保存該宏為“主菜單”。然后保存該宏為“菜單四”。然后保存該宏為“菜單二”。具體的設(shè)置過程及結(jié)果如圖548（A、B、C、D、E、F、G）所示。圖547 已運(yùn)行的水電管理系統(tǒng)菜單在數(shù)據(jù)庫窗口中，選擇“宏”為操作對象，單擊數(shù)據(jù)庫窗口中的“新建”按鈕，打開創(chuàng)建宏的操作窗口。如圖546所示。圖545 按宿舍交費(fèi)窗體該窗體的創(chuàng)建和上面的也有基本雷同，不同的是它是以宿舍為單位交費(fèi)。圖544 使用“l(fā)sk 未交費(fèi)班級”查詢表創(chuàng)建窗體③利用“l(fā)sk 未交費(fèi)查詢”查詢表為數(shù)據(jù)源在剛才創(chuàng)建的窗體上創(chuàng)建子窗體。只要給交否字段打上鉤就代表已交，下次再打開此窗體時就不在顯示已交明細(xì)。SQL語句如下：SELECT , , , , , , , lsk.[電小計(元)], , , , , lsk.[水小計(元)], lsk.[總計(元)], , lsk.[應(yīng)收水電費(fèi)(元/人)], lsk.[應(yīng)收水電費(fèi)(元/宿舍)], , , , , , , , FROM lskWHERE (()=False)ORDER BY DESC。SQL語句如下：（lsk 查詢）SELECT , , FROM lskGROUP BY , , HAVING ((()=[請輸入年月:]) AND (()=False))。打開窗體后，可以看到有很多該班級學(xué)生的具體水電費(fèi)數(shù)據(jù)，而且只顯示未交費(fèi)數(shù)據(jù)。圖537 個人交水電費(fèi)制作步驟：① 先創(chuàng)建一個需要輸入學(xué)號參數(shù)的并且只顯示未交費(fèi)的記錄的查詢表。一、按個人交費(fèi)該窗體非常方便以個人身份交費(fèi)。調(diào)整過的水電費(fèi)匯總統(tǒng)計設(shè)計視圖如圖336所示。選擇“姓名”、“班級”、“年月”、“應(yīng)收水電費(fèi)（元/人）”和“交否”字段。④ 用向?qū)?chuàng)建報表完成后，打開該“未交費(fèi)記錄”報表并修改其布局，如圖531所示：圖531 班級未交費(fèi)記錄報表的設(shè)計視圖⑤ 在設(shè)計視圖中的班級右邊和報表頁腳各添加一個文本框，分別在文本框中輸入“=Round(Sum([應(yīng)收水電費(fèi)(元/人)])*100)/100”注意：round 是四舍五入函數(shù)，sum 是求和函數(shù)。其查詢表的SQL語句如下：SELECT , , , , , , , lsk.[電小計(元)], , , , , lsk.[水小計(元)], lsk.[總計(元)], , lsk.[應(yīng)收水電費(fèi)(元/人)], lsk.[應(yīng)收水電費(fèi)(元/宿舍)], , , , , , , , FROM lskWHERE ((()=False))ORDER BY DESC。圖529 月份明細(xì)表的設(shè)計視圖⑦ 在設(shè)計視圖中的班級右邊和報表頁腳各添加一個文本框，如圖5333所示，分別在文本框中輸入“=Round(Sum([應(yīng)收水電費(fèi)(元/人)])*100)/100”注意：round 是四舍五入函數(shù)，sum 是求和函數(shù)。圖527選擇分組④ 再下一向?qū)е羞x擇“學(xué)號”字段為升序。其查詢表的SQL內(nèi)容如下：SELECT , , , , , , , , , lsk.[電小計(元)], , , , , lsk.[水小計(元)], lsk.[總計(元)], , lsk.[應(yīng)收水電費(fèi)(元/人)], FROM lskWHERE (()=[請輸入年月:])ORDER BY , 。⑧ 屬性中的“其他”設(shè)置報表的“工具欄”選擇“打印”選項。SQL代碼如下：SELECT , , , , , , , lsk.[電小計(元)], , , , , lsk.[水小計(元)], lsk.[總計(元)], , lsk.[應(yīng)收水電費(fèi)(元/人)], lsk.[應(yīng)收水電費(fèi)(元/宿舍)], , , , , , , , FROM lskWHERE (()=False)ORDER BY DESC。② 使用“l(fā)sk年月全部查詢”查詢表為數(shù)據(jù)源在向?qū)е袆?chuàng)建，向?qū)?chuàng)建過程中選擇“宿舍號”字段為分組級別。 圖521 自定義菜單欄② 然后單擊“新建”按鈕，在彈出的新建工具欄處輸入“打印”，再單擊“確定”。 歷史報表輸出的創(chuàng)建這里雖然只是輸出打印，不是系統(tǒng)的主體部分，但是它卻是每個單位上報數(shù)據(jù)的主打部分。如圖517所示圖517 水電單價與補(bǔ)助的修改界面六、宿舍水電錄入與修改該窗體創(chuàng)建得就稍微有些復(fù)雜，其中使用了子窗體“學(xué)生表”窗體（以“學(xué)生表”為數(shù)據(jù)源）、“單價與補(bǔ)助”數(shù)據(jù)表和“xingcheng”查詢表，如圖518所示。圖515 班級添加與刪除窗體四、新添加宿舍記錄窗體該數(shù)據(jù)是以“l(fā)sk”表為數(shù)據(jù)源。 ChrW(21152) amp?！比鐖D514 班級文本框的屬性。圖510 宿舍水電錄入1．窗體創(chuàng)建該窗體是用向?qū)А白詣觿?chuàng)建窗體：表格式”創(chuàng)建的如圖511所示，然后修改窗體添加標(biāo)題問題、說明和查找與刪除按鈕，如圖512所示。例如圖59切換面板所示。運(yùn)行了“生成lsk查詢表”后把“上月”表刪除）SELECT , , , , , , , 月份水電統(tǒng)計表.[電小計(元)], , , , , 月份水電統(tǒng)計表.[水小計(元)], 月份水電統(tǒng)計表.[總計(元)], , 月份水電統(tǒng)計表.[應(yīng)收水電費(fèi)(元/人)], 月份水電統(tǒng)計表.[應(yīng)收水電費(fèi)(元/宿舍)], , , , , , , , INTO lskFROM 月份水電統(tǒng)計表。SELECT , Count() AS 人數(shù)FROM 學(xué)生表GROUP BY , HAVING((Count()0)。圖57 班級字段參數(shù)設(shè)置二、創(chuàng)建索引其索引圖如圖“圖53二維表索引拓?fù)鋱D”所示。圖54主體結(jié)構(gòu)圖圖55 副體結(jié)構(gòu)圖 水電管理系統(tǒng)底層表設(shè)計方案設(shè)定后就開始制作水電管理系統(tǒng)。文電管理系統(tǒng)的設(shè)計與開發(fā)方案一、設(shè)計方案結(jié)構(gòu)分析1．?dāng)?shù)據(jù)表結(jié)構(gòu)圖2．二維表索引拓?fù)鋱D創(chuàng)建該索引關(guān)系時要注意其級聯(lián)關(guān)系，其級聯(lián)關(guān)系是否級聯(lián)添加和級聯(lián)刪除等，將影響到系統(tǒng)后期的制作過程和效果等，如圖53所示。如圖555所示。如下圖57所示。SELECT , , , xingcheng!本月電表xingcheng!上月電表 AS 本月用電量, , , IIf((([本月用電量][宿舍電補(bǔ)助])*[電單價])0,(([本月用電量][宿舍電補(bǔ)助])*[電單價]),0) AS 實(shí)際收電費(fèi), , , [本月水表][上月水表] AS 本月用水量, , , IIf((([本月用水量][宿舍水補(bǔ)助])*[水單價])0,(([本月用水量][宿舍水補(bǔ)助])*[水單價]),0) AS 實(shí)際收水費(fèi), , CCur([實(shí)際收電費(fèi)]/宿舍補(bǔ)助!人數(shù)) AS 人均電費(fèi), CCur([實(shí)際收水費(fèi)]/宿舍補(bǔ)助!人數(shù)) AS 人均水費(fèi), FROM xingcheng INNER JOIN 宿舍補(bǔ)助 ON = 。：（該表是為了生成前面和后面都要用到的lsk表，只運(yùn)行一次即可，但是運(yùn)行前先制作一個“上月”查詢表，字段為“宿舍號、上月電表、上月水表、年月”，然后添入實(shí)數(shù)。 錄入窗體的創(chuàng)建窗體是用戶處理數(shù)據(jù)的中介所，它能給人于視覺美感、統(tǒng)一規(guī)劃和處理直觀并且無須專業(yè)化人員也可以操作的界面。界面如圖“圖510 宿舍水電錄入”所示?！?、“SELECT , FROM 性別。圖513 學(xué)生表錄入與修改窗體圖514 班級文本框的屬性2．代碼實(shí)現(xiàn)（以下代碼也可以用向?qū)瓿桑㎡ption Compare DatabasePrivate Sub Command13_Click()On Error GoTo Err_Command13_Click , , acNewRecExit_Command13_Click: Exit SubErr_Command13_Click: MsgBox Resume Exit_Command13_ClickEnd SubPrivate Sub Command15_Click()On Error GoTo Err_Command15_Click Dim stDocName As String Dim stLinkCriteria As String stDocName = ChrW(28155) amp。 ChrW(32423) stDocName, , , stLinkCriteriaExit_Command15_Click: Exit SubErr_Command15_Click: MsgBox Resume Exit_Command15_Click End SubPrivate Sub Command18_Click()On Error GoTo Err_Co