【正文】 /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í)還沒想到用什么字段類型描述時(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ǔ)充說明。抄表人員和收費(fèi)人員屬性的相關(guān)資料也來源于學(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)；否則有些功能可能無法使用，會(huì)導(dǎo)致系統(tǒng)出錯(cuò)。用戶管理包括了學(xué)校管理員和學(xué)生用戶，系統(tǒng)維護(hù)包括了權(quán)限設(shè)置、密碼修改、數(shù)據(jù)備份等。由于程序各個(gè)功能模塊均為漢字顯示，即使沒有太多計(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)中尚存在著一些不足的之處，部分功能要求沒有很好的按照自己的需求分析而成功的實(shí)現(xiàn)；這些缺陷都還需要進(jìn)一步的優(yōu)化。致 謝時(shí)光荏苒，三年大學(xué)生涯轉(zhuǎn)眼間即逝。在她的悉心指導(dǎo)下，我的畢業(yè)論文才得以順利進(jìn)展。2. 任志國、周其力等，《Access 2000從入門到精通》，浙江科學(xué)技術(shù)出版社，2002年2月，ISBN 7534113164。6. 王珊、陳紅，《數(shù)據(jù)庫系統(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 沒有被找到, 分離字符串 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 (你好，你是按年級(jí)查詢，輸入的條件是： amp。 amp。 amp。 39。 aMsgBox (你好，你是查詢寢室長，輸入的條件是： amp。 amp。 amp。 39。 aMsgBox (你好，你是按職務(wù)查詢，輸入的條件是： amp。 amp。 amp。 \n% = MsgBox(祝賀你，數(shù)據(jù)庫已經(jīng)成功備份！, 48)End If Else n% = MsgBox(很遺憾！你是學(xué)生用戶，不是管理員，不能備份數(shù)據(jù)庫) Exit Sub End If End SubPrivate Sub 電費(fèi)公布表_Click()End SubPrivate Sub 個(gè)人主頁_Click() Dim frmB As New frmBrowser = 關(guān)閉音樂_ClickEnd SubPrivate Sub 關(guān)閉音樂_Click() = stop = stop = stop = stop = stop = stop = stop = stop = Falseflag = 0End SubPrivate Sub 關(guān)于系統(tǒng)_Click()End SubPrivate Sub 管理員檔案_Click()End SubPrivate Sub 繳費(fèi)通知_Click()End SubPrivate Sub 進(jìn)入查詢系統(tǒng)_Click()End SubPrivate Sub 進(jìn)入抄表系統(tǒng)_Click()End SubPrivate Sub 欠費(fèi)統(tǒng)計(jì)表_Click()End SubPrivate Sub 權(quán)限管理_Click()End SubPrivate Sub 實(shí)際收費(fèi)明細(xì)統(tǒng)計(jì)表_Click()End SubPrivate Sub 收費(fèi)庫_Click()End SubPrivate Sub 收取電費(fèi)_Click()End SubPrivate Sub 停電通知_Click()End SubPrivate Sub 修復(fù)數(shù)據(jù)庫_Click()If = 系統(tǒng)管理 Or = 抄表 Or = 收費(fèi) ThenIf MsgBox(你要修復(fù)數(shù)據(jù)庫嗎？修復(fù)完后需重新登陸系統(tǒng)的！, 49 + 256) = vbOK ThenUnload MeUnload DataEnvironment1FileCopy amp。 \help\ End SubPrivate Sub 重新登陸_Click()If MsgBox(你要重新登陸系統(tǒng)嗎！, 33 + 256) = vbOK ThenUnload MeUnload DataEnvironment1End IfEnd Sub