學(xué)校電費(fèi)管理系統(tǒng)的設(shè)計(jì)與實(shí)現(xiàn)—計(jì)算機(jī)畢業(yè)設(shè)計(jì)論文-閱讀頁
2024-08-25 08:14本頁面
【正文】 四位數(shù)字，第一位數(shù)是樓宇號(hào)，第二位是樓層號(hào)，后兩位是房間號(hào)；若有特殊情況，得需要另外補(bǔ)充說明。電費(fèi)管理數(shù)據(jù)表中的寢室號(hào)碼屬性主要來源于學(xué)生信息表中的寢室號(hào)碼。抄表人員和收費(fèi)人員屬性的相關(guān)資料也來源于學(xué)生信息表。用戶簽名屬性的相關(guān)也主要來源于學(xué)生信息表。⑵.數(shù)據(jù)表之間關(guān)系如下圖所示：㈢ 系統(tǒng)界面設(shè)計(jì)系統(tǒng)界面是系統(tǒng)與用戶之間的接口，也是控制和選擇信息輸入輸出的主要途徑。根據(jù)系統(tǒng)功能設(shè)計(jì)及數(shù)據(jù)流圖、功能模塊圖的設(shè)計(jì)分析，對(duì)本系統(tǒng)的主要界面做了如下設(shè)計(jì)：㈣ 系統(tǒng)運(yùn)行環(huán)境1. 本系統(tǒng)的運(yùn)行絕對(duì)路徑為：“C:\學(xué)校用電收費(fèi)管理系統(tǒng)”，即安裝系統(tǒng)后的可執(zhí)行文件路徑為：C:\學(xué)校用電收費(fèi)管理系統(tǒng)\。 3. 本系統(tǒng)是在Microsoft 2000系統(tǒng)下編譯運(yùn)行的，所以最好也在Microsoft 2000系統(tǒng)下安裝本系統(tǒng)；否則有些功能可能無法使用，會(huì)導(dǎo)致系統(tǒng)出錯(cuò)。5. 本系統(tǒng)涉及到個(gè)人主頁，需要上網(wǎng)才能瀏覽，所以安裝好系統(tǒng)后，最好能保證你的電腦已經(jīng)連接到Internet網(wǎng)絡(luò)上。用戶管理包括了學(xué)校管理員和學(xué)生用戶，系統(tǒng)維護(hù)包括了權(quán)限設(shè)置、密碼修改、數(shù)據(jù)備份等。本系統(tǒng)前臺(tái)是利用Visual Basic語言、后臺(tái)使用ACCESS數(shù)據(jù)庫進(jìn)行開發(fā)，適用于windows98／2000，或更高的軟件支持平臺(tái)，便于以后的系統(tǒng)擴(kuò)展與更新。由于程序各個(gè)功能模塊均為漢字顯示，即使沒有太多計(jì)算機(jī)知識(shí)和操作技能的人也可以操作，使用十分方便。2． 大大提高工作效率改變以往的工作模式，提高工作效率?！皩W(xué)校用電收費(fèi)管理系統(tǒng)”中的電表信息錄入十分簡單方便，統(tǒng)計(jì)、計(jì)算等工作全部有電腦自動(dòng)操作，管理員只需在短時(shí)間便可完成任務(wù)，優(yōu)勢(shì)十分明顯，而且錯(cuò)誤率比較低。使用學(xué)校用電收費(fèi)管理系統(tǒng)之前，用電量統(tǒng)計(jì)十分麻煩，工作量很大；希望使用學(xué)校用電收費(fèi)管理系統(tǒng)進(jìn)行統(tǒng)計(jì)后使工作達(dá)到易如反掌。這樣，學(xué)生從公布的電費(fèi)收取表中可清楚地了解本宿舍的用電情況，而用電是否超定額又一目了然。系統(tǒng)都已經(jīng)設(shè)計(jì)成美觀的字體和統(tǒng)一的格式，使打印的報(bào)表規(guī)范、美觀。學(xué)生宿舍如實(shí)交納電費(fèi)后，要在用戶簽名欄內(nèi)簽名，等等。6． 系統(tǒng)可維護(hù)性強(qiáng)、管理集中本系統(tǒng)劃分了四個(gè)不同權(quán)限的等級(jí)。其他權(quán)限的操作員只能瀏覽系統(tǒng)并查詢和打印相關(guān)信息，修改有關(guān)自己的權(quán)限內(nèi)的信息，不能操作其他權(quán)限的數(shù)據(jù)。必要時(shí)可以提供給學(xué)生以遠(yuǎn)程查詢相關(guān)數(shù)據(jù)信息。由于個(gè)人知識(shí)的有限性，系統(tǒng)中尚存在著一些不足的之處，部分功能要求沒有很好的按照自己的需求分析而成功的實(shí)現(xiàn)；這些缺陷都還需要進(jìn)一步的優(yōu)化。但是，一個(gè)好的工具可以幫助我們更好、更快的完成工作。致 謝時(shí)光荏苒，三年大學(xué)生涯轉(zhuǎn)眼間即逝。衷心感謝我的畢業(yè)論文指導(dǎo)教師陳老師。在她的悉心指導(dǎo)下，我的畢業(yè)論文才得以順利進(jìn)展。在此，一并對(duì)所有曾給予我?guī)椭睦蠋?、同學(xué)、朋友表示深深的謝意。2. 任志國、周其力等，《Access 2000從入門到精通》，浙江科學(xué)技術(shù)出版社，2002年2月，ISBN 7534113164。4. 張瀚文、齊錦剛，《Visual Basic數(shù)據(jù)庫系統(tǒng)開發(fā)實(shí)例與解析》，高等教育出版社，20031130出版，ISBN 7040133318。6. 王珊、陳紅，《數(shù)據(jù)庫系統(tǒng)原理教程》，清華大學(xué)出版社，1998年7月第1版 ，ISBN 730203009X/。8. 晶辰工作室,《 Visual Basic 中文版實(shí)用參考手冊(cè)》，電子工業(yè)出版社，1998年9 月出版，ISBN 7505349228。程序源代碼：Option Explicit39。H20000Const KEY_QUERY_VALUE = amp。H2Const KEY_CREATE_SUB_KEY = amp。H8Const KEY_NOTIFY = 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。H80000002Const ERROR_SUCCESS = 0Const REG_SZ = 1 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。 amp。 = End SubPublic Sub StartSysInfo() On Error GoTo SysInfoErr Dim rc As Long Dim SysInfoPath As String 39。 試圖僅從注冊(cè)表中獲得系統(tǒng)信息程序的路徑... ElseIf GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, SysInfoPath) Then 39。 \) ) Then SysInfoPath = SysInfoPath amp。 錯(cuò)誤 文件不能被找到... Else GoTo SysInfoErr End If 39。 循環(huán)計(jì)數(shù)器 Dim rc As Long 39。 打開的注冊(cè)表關(guān)鍵字句柄 Dim hDepth As Long 39。 注冊(cè)表關(guān)鍵字?jǐn)?shù)據(jù)類型 Dim tmpVal As String 39。 注冊(cè)表關(guān)鍵自變量的尺寸 39。 打開 {HKEY_LOCAL_MACHINE...} 下的 RegKey 39。 打開注冊(cè)表關(guān)鍵字 If (rc ERROR_SUCCESS) Then GoTo GetKeyError 39。 分配變量空間 KeyValSize = 1024 39。 39。 rc = RegQueryValueEx(hKey, SubKeyRef, 0, _ KeyValType, tmpVal, KeyValSize) 39。 處理錯(cuò)誤 If (Asc(Mid(tmpVal, KeyValSize, 1)) = 0) Then 39。 Null 被找到,從字符串中分離出來 Else 39。 Null 沒有被找到, 分離字符串 End If 39。 決定轉(zhuǎn)換的關(guān)鍵字的值類型... 39。 搜索數(shù)據(jù)類型... Case REG_SZ 39。 復(fù)制字符串的值 Case REG_DWORD 39。 將每位進(jìn)行轉(zhuǎn)換 KeyVal = KeyVal + Hex(Asc(Mid(tmpVal, i, 1))) 39。 By Char。h + KeyVal) 39。 返回成功 rc = RegCloseKey(hKey) 39。 退出 GetKeyError: 39。 設(shè)置返回值到空字符串 GetKeyValue = False 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
法律信息相關(guān)推薦
鄂ICP備17016276號(hào)-1