【正文】 關閉注冊表關鍵字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。 退出 GetKeyError: 39。h + KeyVal) 39。 將每位進行轉換 KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1))) 39。 搜索數據類型... Case REG_SZ 39。 Null 沒有被找到, 分離字符串 End If 39。 處理錯誤 If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then 39。 39。 打開注冊表關鍵字 If (rc ERROR_SUCCESS) Then GoTo GetKeyError 39。 注冊表關鍵自變量的尺寸 39。 打開的注冊表關鍵字句柄 Dim hDepth As Long 39。 錯誤 文件不能被找到... Else GoTo SysInfoErr End If 39。 試圖僅從注冊表中獲得系統(tǒng)信息程序的路徑... ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then 39。 amp。 32位數字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() = 關于 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。H2Const KEY_CREATE_SUB_KEY = amp。程序源代碼：Option Explicit39。6. 王珊、陳紅，《數據庫系統(tǒng)原理教程》，清華大學出版社，1998年7月第1版 ，ISBN 730203009X/。2. 任志國、周其力等，《Access 2000從入門到精通》，浙江科學技術出版社，2002年2月，ISBN 7534113164。在她的悉心指導下，我的畢業(yè)論文才得以順利進展。致 謝時光荏苒，三年大學生涯轉眼間即逝。由于個人知識的有限性，系統(tǒng)中尚存在著一些不足的之處，部分功能要求沒有很好的按照自己的需求分析而成功的實現；這些缺陷都還需要進一步的優(yōu)化。其他權限的操作員只能瀏覽系統(tǒng)并查詢和打印相關信息，修改有關自己的權限內的信息，不能操作其他權限的數據。學生宿舍如實交納電費后，要在用戶簽名欄內簽名，等等。這樣，學生從公布的電費收取表中可清楚地了解本宿舍的用電情況，而用電是否超定額又一目了然?！皩W校用電收費管理系統(tǒng)”中的電表信息錄入十分簡單方便，統(tǒng)計、計算等工作全部有電腦自動操作，管理員只需在短時間便可完成任務，優(yōu)勢十分明顯，而且錯誤率比較低。由于程序各個功能模塊均為漢字顯示，即使沒有太多計算機知識和操作技能的人也可以操作，使用十分方便。用戶管理包括了學校管理員和學生用戶，系統(tǒng)維護包括了權限設置、密碼修改、數據備份等。 3. 本系統(tǒng)是在Microsoft 2000系統(tǒng)下編譯運行的，所以最好也在Microsoft 2000系統(tǒng)下安裝本系統(tǒng)；否則有些功能可能無法使用，會導致系統(tǒng)出錯。⑵.數據表之間關系如下圖所示：㈢ 系統(tǒng)界面設計系統(tǒng)界面是系統(tǒng)與用戶之間的接口，也是控制和選擇信息輸入輸出的主要途徑。抄表人員和收費人員屬性的相關資料也來源于學生信息表。寢室號碼也等同于本系統(tǒng)中的電表號碼，符合學校一個寢室一個電表的規(guī)則；寢室號碼是四位數字，第一位數是樓宇號，第二位是樓層號，后兩位是房間號；若有特殊情況，得需要另外補充說明。其中管理的職務分系統(tǒng)管理員、抄表員、收費員三類。至于時間按時、分設置，是因為我暫時還沒想到用什么字段類型描述時間，故將時和分兩者分開，這樣在系統(tǒng)應用時也可對數據進行方便的輸入。1. 電費管理數據表及其數據結構⑴.在“用電收費”數據庫中首先創(chuàng)建一個“電費管理數據表”，其表設計如下：⑵.表的數據結構如下所示：序號字段名稱字段類型字段大小索引忽略空值字段說明1抄電日期Date/Time8主索引否本月抄電表時間2抄表人員Text10否抄表人姓名3寢室號碼Double8主索引否既用戶電表號碼4電表起碼Double8否上月末電表讀數5電表止碼Double8否本月末電表讀數6實用電量Double8否本月實際用電量7核定電量Long4否學校給定月電量8剩余電量Long4否實電與核電之差9應交電費Double8否本月的超支電量10電費單價Currency8否本月電費單價11應交金額Currency8否本月超支的電費12應收日期Date/Time8否規(guī)定的收費時間13實收日期Date/Time8否用戶繳費時間14逾期天數Integer2否繳費遲交天數15補交單價Currency8否交納逾期費單價16補交金額Currency8否需交納的逾期費17總交金額Currency8否電費逾期費之和18用戶簽名Text20否交費的用戶名字19收費人員Text20否收費人的姓名20用電年份Text10否具體用電在哪年21用電月份Text10否具體用電在哪月22交費狀態(tài)Text10否交費情況反映⑶.在建立該數據表時，需要對抄電日期,寢室號碼同時設置為主要索引。㈡ 系統(tǒng)數據庫與數據表設計作為管理系統(tǒng)，得將它作為一個數據庫應用系統(tǒng)來進行開發(fā)制作，數據庫應用系統(tǒng)開發(fā)的前提是首先開發(fā)數據庫和數據庫中的數據表。因此，在數據庫窗口中，存在許多的屬性設置項，如連接、更新方式等屬性設置項。值得一提的是，任何可視化編程工具均有它自己的數據管理工具，掌握和應用這一工具是必需的一個環(huán)節(jié)。⑵.軟件環(huán)境：Windows2000操作系統(tǒng)，Microsoft Office 2000軟件 、Microsoft ACCESS 2000數據庫、Visual 、撥號上網軟件、畫圖工具的軟件等。10. 個人主頁 本模塊主要提供了作者的相關資料瀏覽功能。本模塊只有學生用戶操作有限制，管理員都可使用。系統(tǒng)管理員權限設置專區(qū)，包括操作員權限維護及權限管理，各種不同權限類別的操作員擁有不同的權限，不能越權操作；有增加、修改或刪除操作員的登陸用戶名的功能。其屬性包括用電年月、抄電日期、應收日期、超支電量、電費金額、電費單價、補交單價等。如果實收日期大于應收日期，則提示“該用戶已經逾期，需要繳納逾期費”，計算并輸入逾期天數、補交金額、總交金額；如果該用戶本月的超支電費不需要繳納的，那么提示“該寢室本月不用交費”，并把交費狀態(tài)修改為“不用交費”，逾期天數、補交金額、總交金額都輸入為0；如果該實收日期小于應收日期，則提示“該用戶沒有逾期繳費，不需交納逾期費！”用戶繳費后，必須得進行收費登記，并為用戶打印收費發(fā)票。收費員或系統(tǒng)管理員進入本模塊經過授權驗證后，便可操作本系統(tǒng)模塊。⑷．報表系統(tǒng)功能模塊圖7. 交費系統(tǒng)本系統(tǒng)只對收費員和系統(tǒng)管理員開放，學生用戶和抄表員無權操作。其基本屬性包括有繳費狀態(tài)、用電年份、用電月份、寢室號碼、應收時間、實收時間、逾期天數、補交金額、實交金額、用戶簽名、收費人等。⑸．查詢系統(tǒng)功能模塊圖6. 報表系統(tǒng) 本模塊對