【正文】 設(shè)置返回值到空字符串 GetKeyValue = False 39。 By Char。 決定轉(zhuǎn)換的關(guān)鍵字的值類(lèi)型... 39。 rc = RegQueryValueEx(hKey, SubKeyRef, 0, _ KeyValType, tmpVal, KeyValSize) 39。 打開(kāi) {HKEY_LOCAL_MACHINE...} 下的 RegKey 39。 循環(huán)計(jì)數(shù)器 Dim rc As Long 39。 = End SubPublic Sub StartSysInfo() On Error GoTo SysInfoErr Dim rc As Long Dim SysInfoPath As String 39。H80000002Const ERROR_SUCCESS = 0Const REG_SZ = 1 39。H20000Const KEY_QUERY_VALUE = amp。4. 張瀚文、齊錦剛，《Visual Basic數(shù)據(jù)庫(kù)系統(tǒng)開(kāi)發(fā)實(shí)例與解析》，高等教育出版社，20031130出版，ISBN 7040133318。衷心感謝我的畢業(yè)論文指導(dǎo)教師陳老師。必要時(shí)可以提供給學(xué)生以遠(yuǎn)程查詢相關(guān)數(shù)據(jù)信息。系統(tǒng)都已經(jīng)設(shè)計(jì)成美觀的字體和統(tǒng)一的格式，使打印的報(bào)表規(guī)范、美觀。2． 大大提高工作效率改變以往的工作模式，提高工作效率。5. 本系統(tǒng)涉及到個(gè)人主頁(yè)，需要上網(wǎng)才能瀏覽，所以安裝好系統(tǒng)后，最好能保證你的電腦已經(jīng)連接到Internet網(wǎng)絡(luò)上。用戶簽名屬性的相關(guān)也主要來(lái)源于學(xué)生信息表。6. 學(xué)生信息表及其數(shù)據(jù)結(jié)構(gòu)⑴. 學(xué)生信息表如下圖所示：⑵. 表的數(shù)據(jù)結(jié)構(gòu)如下所示：序號(hào)字段名稱字段類(lèi)型字段大小索引忽略空值字段說(shuō)明1學(xué)生學(xué)號(hào)Double8唯一、主索引否現(xiàn)在在本校讀書(shū)的學(xué)生學(xué)號(hào)2學(xué)生姓名Text20否在校學(xué)生的姓名3學(xué)生性別Text6否在校學(xué)生的性別4所屬院系Text50否學(xué)生所在的分院和系部名稱5所在年級(jí)Text10否學(xué)生現(xiàn)在的年級(jí)6所在班級(jí)Text10否學(xué)生所在的班級(jí)7寢室號(hào)碼Double8否學(xué)生所住的寢室8寢室電話Double8否寢室的電話號(hào)碼9是否寢室長(zhǎng)Text10否是不是寢室長(zhǎng)⑶.在學(xué)生信息表中，得將學(xué)生的學(xué)號(hào)設(shè)置為關(guān)鍵字。2. 繳費(fèi)通知表及其數(shù)據(jù)結(jié)構(gòu)⑴. 繳費(fèi)通知表如下圖所示：⑵. 表的數(shù)據(jù)結(jié)構(gòu)如下所示：序號(hào)字段名稱字段類(lèi)型字段大小索引忽略空值字段說(shuō)明1通知時(shí)間Date/Time8主索引否發(fā)繳費(fèi)通知的時(shí)間2通知內(nèi)容Text255主索引可以繳費(fèi)通知內(nèi)容3發(fā)通知單位Text50主索引否發(fā)這個(gè)繳費(fèi)通知的單位名稱⑶.發(fā)通知，必須具備發(fā)通知的時(shí)間和內(nèi)容以及是誰(shuí)發(fā)的通知等信息；且不同的單位可以在同一天的時(shí)間內(nèi)可以發(fā)不同通知內(nèi)容，所以這三者是繳費(fèi)通知的必要條件。一個(gè)應(yīng)用系統(tǒng)往往需要多次或一定的時(shí)間才能完成，因此數(shù)據(jù)庫(kù)的應(yīng)用將會(huì)多次打開(kāi)或關(guān)閉操作。本系統(tǒng)的數(shù)據(jù)庫(kù)主要是在Visual Basic集成開(kāi)發(fā)環(huán)境中制作開(kāi)發(fā)。在線幫助主要提供了使用學(xué)校用電收費(fèi)管理系統(tǒng)的操作方法和步驟；“關(guān)于系統(tǒng)”主要提供了系統(tǒng)的相關(guān)信息；使用“計(jì)算器”可調(diào)出電腦操作系統(tǒng)中的計(jì)算器，以便計(jì)算時(shí)用；使用“背景樂(lè)音”可選擇不同的音樂(lè)，如果你覺(jué)得煩，那可“關(guān)閉音樂(lè)”。⑴．權(quán)限管理本模塊中有兩部分組成，一部分是操作員的修改密碼專(zhuān)區(qū)，另一部分是系統(tǒng)管理員權(quán)限設(shè)置專(zhuān)區(qū)。這樣就可以從數(shù)據(jù)庫(kù)中調(diào)出該寢室相關(guān)用電繳費(fèi)信息。其基本屬性包括用電時(shí)間、寢室號(hào)碼、本月讀數(shù)、上月讀數(shù)、實(shí)際用電、核定電量、剩余電量、超支電量、電費(fèi)單價(jià)、超支金額、指定繳費(fèi)的日期。⑷．用戶電費(fèi)查詢用戶電費(fèi)信息主要包括用電時(shí)間年月、寢室號(hào)碼、超支電量、電費(fèi)單價(jià)、電費(fèi)金額、應(yīng)收日期、實(shí)收日期、繳費(fèi)狀態(tài)、逾期天數(shù)、補(bǔ)交單價(jià)、補(bǔ)交金額、實(shí)交金額、收費(fèi)人員、用戶簽名等。方式二是輸入式查詢，即查詢條件的范圍給定，但查詢條件具體的數(shù)據(jù)需要操作員自行輸入。這里只包括寢室號(hào)碼、本月讀數(shù)、上月讀數(shù)三項(xiàng)信息。⑴．系統(tǒng)參數(shù)設(shè)置系統(tǒng)參數(shù)設(shè)置主要是在抄表員或系統(tǒng)管理員在添加當(dāng)月電表數(shù)據(jù)時(shí)進(jìn)行設(shè)置。使用任一個(gè)功能按鈕后，在本模塊的窗口正下方將出現(xiàn)提示性的文字。它具有添加、刪除、保存、修改、刷新、以及瀏覽數(shù)據(jù)等功能；剛進(jìn)入該系統(tǒng)模塊時(shí)，這些功能按鈕都被鎖定；如果是系統(tǒng)管理員，點(diǎn)一下“激活”功能按鈕，便可使用；如果登陸的身份不是系統(tǒng)管理員，則會(huì)出現(xiàn)“不能越權(quán)”的提示。使用任一個(gè)功能按鈕后，在本模塊的窗口正下方將出現(xiàn)提示性的文字。本系統(tǒng)的檔案資料主要是系統(tǒng)管理員從管理模塊中進(jìn)行錄入；該分系統(tǒng)主要使用者是系統(tǒng)管理員，其他三個(gè)權(quán)限是不能對(duì)本模塊進(jìn)行操作。檢驗(yàn)無(wú)誤后，再發(fā)布繳費(fèi)通知和本月的電費(fèi)清單，并提供電腦查詢電量電費(fèi)等信息。本系統(tǒng)前臺(tái)利用Visual Basic語(yǔ)言、后臺(tái)使用ACCESS數(shù)據(jù)庫(kù)進(jìn)行開(kāi)發(fā)，適用于windows98／2000，或更高的軟件支持平臺(tái)，便于以后的系統(tǒng)擴(kuò)展與更新，有著較好的開(kāi)發(fā)前景。我校目前的學(xué)生公寓，是按房間安裝了電度表，對(duì)學(xué)生宿舍用電實(shí)行定額管理。學(xué)校電費(fèi)管理系統(tǒng)摘 要 :學(xué)校用電收費(fèi)管理系統(tǒng)是單機(jī)版的應(yīng)用系統(tǒng)，主要用于記錄本學(xué)校學(xué)生公寓寢室的用電情況并在此基礎(chǔ)上進(jìn)行超支電費(fèi)收取。學(xué)校按照規(guī)定給每個(gè)宿舍核撥用電定額。使用本系統(tǒng)后可提高學(xué)生們的節(jié)電意識(shí)，減少大手大腳隨意浪費(fèi)電能的現(xiàn)象，對(duì)于學(xué)校用電管理的規(guī)范化、制度化建設(shè)等工作都起到積極的作用。4. 發(fā)布繳費(fèi)通知后，便可開(kāi)始對(duì)用戶進(jìn)行收取電費(fèi)工作。檔案管理主要用于對(duì)用電用戶相關(guān)的一系列檔案資料進(jìn)行錄入與維護(hù)工作，為學(xué)校用電收費(fèi)部門(mén)進(jìn)行用電管理和用電收費(fèi)提供基本的用戶資料；其主要包括學(xué)生用戶檔案管理和管理員（系統(tǒng)管理員、抄表員和收費(fèi)員）檔案管理兩個(gè)子模塊：⑴．學(xué)生用戶檔案管理本模塊主要用于實(shí)現(xiàn)對(duì)學(xué)生用電用戶基本情況進(jìn)行錄入與維護(hù)工作。系統(tǒng)中管理員包括系統(tǒng)管理員、抄表員和收費(fèi)員。使用任一個(gè)功能按鈕后，在本模塊的窗口正下方將出現(xiàn)提示性的文字。本模塊涉及到停電日期、停電范圍、停電原因以及具體停電時(shí)間等。它主要包括抄電日期、抄表人員、電費(fèi)單價(jià)、核定電量、收費(fèi)日期、補(bǔ)交單價(jià)等基本系統(tǒng)參數(shù)。其操作過(guò)程十分簡(jiǎn)單方便，輸入每個(gè)信息后，只需按回車(chē)鍵便可進(jìn)行自動(dòng)電量電費(fèi)計(jì)算。它包括了按學(xué)生學(xué)號(hào)、按姓名查詢、按寢室號(hào)碼查詢等三個(gè)條件范圍。本模塊也提供了按照用電年、月、寢室號(hào)碼的單一查詢以及用電年、月和寢室號(hào)碼三者組合而成的綜合查詢用戶電費(fèi)信息的功能。并對(duì)寢室欠費(fèi)總次數(shù)、欠費(fèi)超支總電量、欠費(fèi)超支總金額進(jìn)行合計(jì)，可打印輸出。電腦自動(dòng)計(jì)算實(shí)際繳費(fèi)金額功能，可自動(dòng)計(jì)算逾期天數(shù)、補(bǔ)交金額、總交金額。操作員的修改密碼專(zhuān)區(qū)，是所有操作員對(duì)進(jìn)入學(xué)校用電收費(fèi)管理系統(tǒng)時(shí)的登陸密碼進(jìn)行設(shè)置，只能修改自己的登陸密碼。本模塊對(duì)所有操作員都開(kāi)放。VB可視化數(shù)據(jù)庫(kù)管理器是一個(gè)功能強(qiáng)大的數(shù)據(jù)庫(kù)和數(shù)據(jù)表開(kāi)發(fā)工具。如果需要在數(shù)據(jù)庫(kù)中進(jìn)行操作，只需要在可視化數(shù)據(jù)管理器中打開(kāi)數(shù)據(jù)庫(kù)文件即可。3. 停電信息表及其數(shù)據(jù)結(jié)構(gòu)⑴.停電信息表如下圖所示：⑵. 表的數(shù)據(jù)結(jié)構(gòu)如下所示：序號(hào)字段名稱字段類(lèi)型大小索引忽略空值字段說(shuō)明1停電日期Date/Time8主索引否實(shí)行停電的日期2停電范圍Text50主索引可以需要停電的范圍3停電原因Text255主索引可以實(shí)行停電的原因4起停時(shí)間（時(shí)）Integer2否開(kāi)始停電（時(shí)針）5起停時(shí)間（分）Integer2否開(kāi)始停電（分針）6來(lái)電時(shí)間（時(shí)）Integer2否來(lái)電時(shí)間（時(shí)針）7來(lái)電時(shí)間（分）Integer2否來(lái)電時(shí)間（分針）8總停時(shí)間（時(shí)）Integer2否總停時(shí)間（時(shí)針）9總停時(shí)間（分）Integer2否總停時(shí)間（分針）⑶.停電范圍指整個(gè)校園還是某個(gè)系或是某個(gè)寢室等；停電原因有外部原因（如電線接修等）和內(nèi)部原因（如電費(fèi)超支費(fèi)逾期達(dá)30天等）。數(shù)據(jù)結(jié)構(gòu)中的學(xué)號(hào)是該學(xué)生現(xiàn)在還在學(xué)校讀書(shū)時(shí)期的編排號(hào)碼，目前系統(tǒng)中存在學(xué)號(hào)為1010410301——1010410338，是我們班級(jí)同學(xué)的學(xué)號(hào)。一般來(lái)說(shuō)，寢室長(zhǎng)代表本寢室按時(shí)交納本月電費(fèi)，所以用戶簽名寫(xiě)寢室長(zhǎng)姓名或者直接填寢室號(hào)碼。結(jié) 論本系統(tǒng)具備了用戶管理、電費(fèi)抄表登記、電費(fèi)收繳、報(bào)表統(tǒng)計(jì)打印、用戶用電查詢、系統(tǒng)維護(hù)等功能要求。以前，我校學(xué)生宿舍用電的統(tǒng)計(jì)、報(bào)表等，都是以手工操作為主，每次都需要花費(fèi)很長(zhǎng)時(shí)間完成，而且錯(cuò)誤率高。5． 收費(fèi)程序更加規(guī)范按學(xué)校的要求，對(duì)沒(méi)有如期交納超過(guò)電費(fèi)的宿舍，要在電腦里反映出來(lái)，并發(fā)通知要求按時(shí)補(bǔ)交超用電費(fèi)，若逾期上交的則得交滯納金或做停電處理。說(shuō)時(shí)簡(jiǎn)單、做時(shí)困難。從大三下半年進(jìn)入畢業(yè)實(shí)習(xí)階段，我就開(kāi)始在陳老師的指導(dǎo)下開(kāi)始了我的畢業(yè)設(shè)計(jì)。5. 劉鋼，《Visual Basic 程序設(shè)計(jì)與應(yīng)用案例》，高等教育出版社，2003年7月28日出版，ISBN 704012305。H1Const KEY_SET_VALUE = amp。 獨(dú)立的空的終結(jié)字符串Const REG_DWORD = 4 39。 試圖從注冊(cè)表中獲得系統(tǒng)信息程序的路徑及名稱... If GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SysInfoPath) Then 39。 返回代碼 Dim hKey As Long 39。 rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) 39。 獲得/創(chuàng)建關(guān)鍵字值 If (rc ERROR_SUCCESS) Then GoTo GetKeyError 39。 Select Case KeyValType