【正文】 表讀數(shù)，再使用自動(dòng)計(jì)算電量電費(fèi)功能按鈕就行。當(dāng)需要添加當(dāng)月電表數(shù)據(jù)時(shí)，必須要設(shè)置系統(tǒng)參數(shù)；設(shè)置完畢后，便可對(duì)每個(gè)寢室的當(dāng)月用電數(shù)據(jù)進(jìn)行輸入。使用“參數(shù)設(shè)置完畢”按鈕后，電腦便暫時(shí)保存好剛剛所設(shè)置的信息，以便接著添加資料時(shí)可自動(dòng)讀入數(shù)據(jù)。⑶．電量電費(fèi)計(jì)算對(duì)各個(gè)學(xué)生寢室當(dāng)月的實(shí)際用電量、剩余電量、超支電量、應(yīng)繳費(fèi)金額等進(jìn)行電腦自動(dòng)統(tǒng)計(jì)。它包括按用戶性別查詢、按所在年級(jí)查詢、按寢室長(zhǎng)查詢等三個(gè)條件。操作方法比方式一稍微麻煩些，但也比較簡(jiǎn)單，先選擇一個(gè)查詢范圍，再輸入具體數(shù)據(jù)，接著按回車鍵或“開始查詢”功能按鈕便可。本模塊提供了按照用電年、月、寢室號(hào)碼的單一查詢以及用電年、月和寢室號(hào)碼三者組合而成的綜合查詢電表檔案信息的功能。⑸．查詢系統(tǒng)功能模塊圖6. 報(bào)表系統(tǒng) 本模塊對(duì)所有操作員開放，它主要包括了電費(fèi)公布表、實(shí)際收費(fèi)明細(xì)統(tǒng)計(jì)表、欠費(fèi)統(tǒng)計(jì)表等三個(gè)模塊：⑴．電費(fèi)公布表既平時(shí)所說(shuō)的電費(fèi)清單，是公布出來(lái)給學(xué)生用戶看的當(dāng)月電費(fèi)表。其基本屬性包括有繳費(fèi)狀態(tài)、用電年份、用電月份、寢室號(hào)碼、應(yīng)收時(shí)間、實(shí)收時(shí)間、逾期天數(shù)、補(bǔ)交金額、實(shí)交金額、用戶簽名、收費(fèi)人等。⑷．報(bào)表系統(tǒng)功能模塊圖7. 交費(fèi)系統(tǒng)本系統(tǒng)只對(duì)收費(fèi)員和系統(tǒng)管理員開放，學(xué)生用戶和抄表員無(wú)權(quán)操作。收費(fèi)員或系統(tǒng)管理員進(jìn)入本模塊經(jīng)過(guò)授權(quán)驗(yàn)證后，便可操作本系統(tǒng)模塊。如果實(shí)收日期大于應(yīng)收日期，則提示“該用戶已經(jīng)逾期，需要繳納逾期費(fèi)”，計(jì)算并輸入逾期天數(shù)、補(bǔ)交金額、總交金額；如果該用戶本月的超支電費(fèi)不需要繳納的，那么提示“該寢室本月不用交費(fèi)”，并把交費(fèi)狀態(tài)修改為“不用交費(fèi)”，逾期天數(shù)、補(bǔ)交金額、總交金額都輸入為0；如果該實(shí)收日期小于應(yīng)收日期，則提示“該用戶沒(méi)有逾期繳費(fèi)，不需交納逾期費(fèi)！”用戶繳費(fèi)后，必須得進(jìn)行收費(fèi)登記，并為用戶打印收費(fèi)發(fā)票。其屬性包括用電年月、抄電日期、應(yīng)收日期、超支電量、電費(fèi)金額、電費(fèi)單價(jià)、補(bǔ)交單價(jià)等。系統(tǒng)管理員權(quán)限設(shè)置專區(qū)，包括操作員權(quán)限維護(hù)及權(quán)限管理，各種不同權(quán)限類別的操作員擁有不同的權(quán)限，不能越權(quán)操作；有增加、修改或刪除操作員的登陸用戶名的功能。本模塊只有學(xué)生用戶操作有限制，管理員都可使用。10. 個(gè)人主頁(yè) 本模塊主要提供了作者的相關(guān)資料瀏覽功能。⑵.軟件環(huán)境：Windows2000操作系統(tǒng)，Microsoft Office 2000軟件 、Microsoft ACCESS 2000數(shù)據(jù)庫(kù)、Visual 、撥號(hào)上網(wǎng)軟件、畫圖工具的軟件等。值得一提的是，任何可視化編程工具均有它自己的數(shù)據(jù)管理工具，掌握和應(yīng)用這一工具是必需的一個(gè)環(huán)節(jié)。因此，在數(shù)據(jù)庫(kù)窗口中，存在許多的屬性設(shè)置項(xiàng)，如連接、更新方式等屬性設(shè)置項(xiàng)。㈡ 系統(tǒng)數(shù)據(jù)庫(kù)與數(shù)據(jù)表設(shè)計(jì)作為管理系統(tǒng)，得將它作為一個(gè)數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)來(lái)進(jìn)行開發(fā)制作，數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)開發(fā)的前提是首先開發(fā)數(shù)據(jù)庫(kù)和數(shù)據(jù)庫(kù)中的數(shù)據(jù)表。1. 電費(fèi)管理數(shù)據(jù)表及其數(shù)據(jù)結(jié)構(gòu)⑴.在“用電收費(fèi)”數(shù)據(jù)庫(kù)中首先創(chuàng)建一個(gè)“電費(fèi)管理數(shù)據(jù)表”，其表設(shè)計(jì)如下：⑵.表的數(shù)據(jù)結(jié)構(gòu)如下所示：序號(hào)字段名稱字段類型字段大小索引忽略空值字段說(shuō)明1抄電日期Date/Time8主索引否本月抄電表時(shí)間2抄表人員Text10否抄表人姓名3寢室號(hào)碼Double8主索引否既用戶電表號(hào)碼4電表起碼Double8否上月末電表讀數(shù)5電表止碼Double8否本月末電表讀數(shù)6實(shí)用電量Double8否本月實(shí)際用電量7核定電量Long4否學(xué)校給定月電量8剩余電量Long4否實(shí)電與核電之差9應(yīng)交電費(fèi)Double8否本月的超支電量10電費(fèi)單價(jià)Currency8否本月電費(fèi)單價(jià)11應(yīng)交金額Currency8否本月超支的電費(fèi)12應(yīng)收日期Date/Time8否規(guī)定的收費(fèi)時(shí)間13實(shí)收日期Date/Time8否用戶繳費(fèi)時(shí)間14逾期天數(shù)Integer2否繳費(fèi)遲交天數(shù)15補(bǔ)交單價(jià)Currency8否交納逾期費(fèi)單價(jià)16補(bǔ)交金額Currency8否需交納的逾期費(fèi)17總交金額Currency8否電費(fèi)逾期費(fèi)之和18用戶簽名Text20否交費(fèi)的用戶名字19收費(fèi)人員Text20否收費(fèi)人的姓名20用電年份Text10否具體用電在哪年21用電月份Text10否具體用電在哪月22交費(fèi)狀態(tài)Text10否交費(fèi)情況反映⑶.在建立該數(shù)據(jù)表時(shí)，需要對(duì)抄電日期,寢室號(hào)碼同時(shí)設(shè)置為主要索引。至于時(shí)間按時(shí)、分設(shè)置，是因?yàn)槲視簳r(shí)還沒(méi)想到用什么字段類型描述時(shí)間，故將時(shí)和分兩者分開，這樣在系統(tǒng)應(yīng)用時(shí)也可對(duì)數(shù)據(jù)進(jìn)行方便的輸入。其中管理的職務(wù)分系統(tǒng)管理員、抄表員、收費(fèi)員三類。寢室號(hào)碼也等同于本系統(tǒng)中的電表號(hào)碼，符合學(xué)校一個(gè)寢室一個(gè)電表的規(guī)則；寢室號(hào)碼是四位數(shù)字，第一位數(shù)是樓宇號(hào)，第二位是樓層號(hào)，后兩位是房間號(hào)；若有特殊情況，得需要另外補(bǔ)充說(shuō)明。抄表人員和收費(fèi)人員屬性的相關(guān)資料也來(lái)源于學(xué)生信息表。⑵.數(shù)據(jù)表之間關(guān)系如下圖所示：㈢ 系統(tǒng)界面設(shè)計(jì)系統(tǒng)界面是系統(tǒng)與用戶之間的接口，也是控制和選擇信息輸入輸出的主要途徑。 3. 本系統(tǒng)是在Microsoft 2000系統(tǒng)下編譯運(yùn)行的，所以最好也在Microsoft 2000系統(tǒng)下安裝本系統(tǒng)；否則有些功能可能無(wú)法使用，會(huì)導(dǎo)致系統(tǒng)出錯(cuò)。用戶管理包括了學(xué)校管理員和學(xué)生用戶，系統(tǒng)維護(hù)包括了權(quán)限設(shè)置、密碼修改、數(shù)據(jù)備份等。由于程序各個(gè)功能模塊均為漢字顯示，即使沒(méi)有太多計(jì)算機(jī)知識(shí)和操作技能的人也可以操作，使用十分方便?！皩W(xué)校用電收費(fèi)管理系統(tǒng)”中的電表信息錄入十分簡(jiǎn)單方便，統(tǒng)計(jì)、計(jì)算等工作全部有電腦自動(dòng)操作，管理員只需在短時(shí)間便可完成任務(wù)，優(yōu)勢(shì)十分明顯，而且錯(cuò)誤率比較低。這樣，學(xué)生從公布的電費(fèi)收取表中可清楚地了解本宿舍的用電情況，而用電是否超定額又一目了然。學(xué)生宿舍如實(shí)交納電費(fèi)后，要在用戶簽名欄內(nèi)簽名，等等。其他權(quán)限的操作員只能瀏覽系統(tǒng)并查詢和打印相關(guān)信息，修改有關(guān)自己的權(quán)限內(nèi)的信息，不能操作其他權(quán)限的數(shù)據(jù)。由于個(gè)人知識(shí)的有限性，系統(tǒng)中尚存在著一些不足的之處，部分功能要求沒(méi)有很好的按照自己的需求分析而成功的實(shí)現(xiàn)；這些缺陷都還需要進(jìn)一步的優(yōu)化。致 謝時(shí)光荏苒，三年大學(xué)生涯轉(zhuǎn)眼間即逝。在她的悉心指導(dǎo)下，我的畢業(yè)論文才得以順利進(jìn)展。2. 任志國(guó)、周其力等，《Access 2000從入門到精通》，浙江科學(xué)技術(shù)出版社，2002年2月，ISBN 7534113164。6. 王珊、陳紅，《數(shù)據(jù)庫(kù)系統(tǒng)原理教程》，清華大學(xué)出版社，1998年7月第1版 ，ISBN 730203009X/。程序源代碼：Option Explicit39。H2Const KEY_CREATE_SUB_KEY = amp。H20Const KEY_ALL_ACCESS = KEY_QUERY_VALUE + KEY_SET_VALUE + _ KEY_CREATE_SUB_KEY + KEY_ENUMERATE_SUB_KEYS + _ KEY_NOTIFY + KEY_CREATE_LINK + READ_CONTROL 39。 32位數(shù)字Const gREGKEYSYSINFOLOC = SOFTWARE\Microsoft\Shared Tools LocationConst gREGVALSYSINFOLOC = MSINFOConst gREGKEYSYSINFO = SOFTWARE\Microsoft\Shared Tools\MSINFOConst gREGVALSYSINFO = PATHPrivate Declare Function RegOpenKeyEx Lib advapi32 Alias RegOpenKeyExA (ByVal hKey As Long, ByVal lpSubKey As String, ByVal ulOptions As Long, ByVal samDesired As Long, ByRef phkResult As Long) As LongPrivate Declare Function RegQueryValueEx Lib advapi32 Alias RegQueryValueExA (ByVal hKey As Long, ByVal lpValueName As String, ByVal lpReserved As Long, ByRef lpType As Long, ByVal lpData As String, ByRef lpcbData As Long) As LongPrivate Declare Function RegCloseKey Lib advapi32 (ByVal hKey As Long) As LongPrivate Sub cmdSysInfo_Click() Call StartSysInfoEnd SubPrivate Sub cmdOK_Click() Unload MeEnd SubPrivate Sub Form_Load() = 關(guān)于 amp。 amp。 試圖僅從注冊(cè)表中獲得系統(tǒng)信息程序的路徑... ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then 39。 錯(cuò)誤 文件不能被找到... Else GoTo SysInfoErr End If 39。 打開的注冊(cè)表關(guān)鍵字句柄 Dim hDepth As Long 39。 注冊(cè)表關(guān)鍵自變量的尺寸 39。 打開注冊(cè)表關(guān)鍵字 If (rc ERROR_SUCCESS) Then GoTo GetKeyError 39。 39。 處理錯(cuò)誤 If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then 39。 Null 沒(méi)有被找到, 分離字符串 End If 39。 搜索數(shù)據(jù)類型... Case REG_SZ 39。 將每位進(jìn)行轉(zhuǎn)換 KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1))) 39。h + KeyVal) 39。 退出 GetKeyError: 39。 關(guān)閉注冊(cè)表關(guān)鍵字End FunctionOption ExplicitPublic StartingAddress As StringDim mbDontNavigateNow As BooleanPrivate Sub Form_Load() On Error Resume Next Form_Resize 50, + + 15 If Len(StartingAddress) 0 Then = StartingAddress 39。 amp。 39。 aMsgBox (你好，你是按性別查詢，輸入的條件是： amp。 amp。 amp。 39。 aMsgBox (你好，你是按用電年份查詢，輸入的條件是： amp。 amp。 年的相關(guān)信息！) End IfEnd SubPrivate Sub Combo12_Click() Dim a As String = amp。 39。 amp。 。If Then MsgBox (不好意思，系統(tǒng)中不存在 amp。 amp。 39。 aMsgBox (你好，你是按年級(jí)查詢，輸入的條件是： amp。 amp。 amp。 39。 aMsgBox (你好，你是查詢寢室長(zhǎng)，輸入的條件是： amp。 amp。 amp。 39。 aMsgBox (你好，你是按職務(wù)查詢，輸入的條件是： amp。 amp。 amp。 39。 aMsgBox (你好，你是按用電年份查詢，輸入的條件是： amp。 amp。 年的相關(guān)信息！) End IfEnd SubPrivate Sub Combo5_KeyPress(KeyAscii As Integer) KeyAscii = 0End SubPrivate Sub Combo6_Click() Dim a As String = amp。 39。 amp。 。If Then MsgBox (不好意思，系統(tǒng)中不存在 amp。 amp。 amp。 。 \ = select * from 學(xué)生信息表