【正文】 自動(dòng)計(jì)算出逾期天數(shù)、補(bǔ)交金額、總交金額等。 ⑶ ．交費(fèi)系統(tǒng)功能模塊圖 8. 維護(hù)系統(tǒng) 維護(hù)系統(tǒng)主要包括權(quán)限管理、數(shù)據(jù)維護(hù)二大子模塊。本專區(qū)只有系統(tǒng)管理員才有操作權(quán)限，其他操作員不能操作。 ⑶ ．維護(hù)系統(tǒng)功能模塊圖 9. 輔助功能 本模塊主要是為本系統(tǒng)軟件操作人員使用本系統(tǒng)提供的一些輔助工具，包括在線幫助信息、系統(tǒng)軟件信息和計(jì)算器、背景音樂的選擇與關(guān)閉等等。需要連接因特網(wǎng)才能瀏覽作者的個(gè)人主頁(yè)，本模塊對(duì)所有操作員都開放。 2. 數(shù)據(jù)庫(kù)開發(fā)環(huán)境 數(shù)據(jù)庫(kù)是數(shù)據(jù)表的集合，系統(tǒng)開發(fā)首先應(yīng)該開發(fā)一個(gè)數(shù)據(jù)庫(kù)，它用于存放系統(tǒng)中的數(shù)據(jù)表。 VB 默認(rèn)的數(shù)據(jù)庫(kù)類型為 Microsoft Access 數(shù)據(jù)庫(kù)類型，它與 Microsoft Office 2020 的基本數(shù)據(jù)庫(kù)類型一致，而且在 Microsoft Access 數(shù)據(jù)庫(kù)類型中，Version MDB 為最新版的數(shù)據(jù)庫(kù)類型。因?yàn)楸鞠到y(tǒng)主要設(shè)計(jì)的是單機(jī)版的應(yīng)用系統(tǒng)，所以只將數(shù)據(jù)庫(kù)作為本地?cái)?shù)據(jù)庫(kù)加以處理，故關(guān)于數(shù)據(jù)庫(kù)其他屬性，暫時(shí)沒有考慮。所以在開發(fā)“學(xué)校用電收費(fèi)管理系統(tǒng)”之前，首先得需要?jiǎng)?chuàng)建一個(gè)名為“用電收費(fèi)”數(shù)據(jù)庫(kù)，并在該數(shù)據(jù)庫(kù)中，創(chuàng)建數(shù)張相關(guān)的數(shù)據(jù)表。因?yàn)閷W(xué)校已對(duì)每個(gè)寢室都安裝了一個(gè)電度表，每個(gè)月均有定額的電量給予。 4. 登陸權(quán)限表及其數(shù)據(jù)結(jié)構(gòu) ⑴ .登陸權(quán)限表如下圖所示： ⑵ . 表的數(shù)據(jù)結(jié)構(gòu)如下所示： 序號(hào) 字段名稱 類型 大小 索引 忽略空值 字段說(shuō)明 1 登陸密碼 Text 50 否 登陸系統(tǒng)時(shí)所需密碼 2 操作權(quán)限 Text 10 主索引 否 登陸時(shí)所選擇的權(quán)限 3 操作員 Text 10 唯一、主索引 否 登陸系統(tǒng)時(shí)所需要的操作員的用戶名 ⑶ .每個(gè)操作權(quán)限中的操作員可以多個(gè)，但每個(gè)權(quán)限中的操作員只擁有他自己的登陸密碼，故得將操作權(quán)限和操作員一起設(shè)置為關(guān)鍵字。數(shù)據(jù)結(jié)構(gòu)中的編號(hào)規(guī)則從 0到 9999999999 之間任意的數(shù)字。 7. 數(shù)據(jù)表之間的關(guān)系 ⑴ .各數(shù)據(jù)表中存在以下聯(lián)系： 登陸權(quán)限表中操作權(quán)限為系統(tǒng)管理，則是系統(tǒng)管理員， 可以管理數(shù)據(jù)庫(kù)中所有數(shù)據(jù)表；登陸權(quán)限表中操作權(quán)限為抄表，則是抄表人員，能管理電費(fèi)數(shù)據(jù)表的抄電日期、寢室號(hào)碼、抄表人員、用電年份、用電月份、電表起碼、電表止碼、實(shí)用電量、核定電量、剩余電量、應(yīng)交電費(fèi)、電費(fèi)單價(jià)、應(yīng)交金額、補(bǔ)交單價(jià)等屬性；登陸權(quán)限表中操作權(quán)限為收費(fèi)，則是收費(fèi)人員，能管理電費(fèi)數(shù)據(jù)表中的繳費(fèi)狀態(tài)、實(shí)收日期、逾期天數(shù)、補(bǔ)交金額、總交金額、用戶簽名、收費(fèi)人員等；登陸權(quán)限表中操作權(quán)限為學(xué)生用戶，則是普通的操作員，只能修改登陸權(quán)限表中的各自登陸密碼屬性。但其登陸系統(tǒng)時(shí)，需要進(jìn)行權(quán)限驗(yàn)證，這時(shí)候與登陸權(quán)限表中的操作權(quán)限屬性聯(lián)系在一起。在本系統(tǒng)中界面設(shè)計(jì)堅(jiān)持友好、簡(jiǎn)便、實(shí)用、易于操作的原則，采用菜單方式、會(huì)話方式、操作提示方式、以及操作權(quán)限管理方式等多種方式進(jìn)行界面設(shè)計(jì)。 4. 為了能顯示最佳效果，請(qǐng)調(diào)整顯示器分辨率為： 800*600 像素。 通過(guò)本系統(tǒng)，可使學(xué)校用電收費(fèi)擺脫每次手工書寫統(tǒng)計(jì)的問題，實(shí)現(xiàn)管理計(jì)算機(jī)化；使用者通過(guò)鼠標(biāo)、鍵盤的簡(jiǎn)單操作就能實(shí)現(xiàn)完整的功能；提高工作效率，節(jié)省人力資源。若有特殊情況，也可參考“在線幫助信息”。 3． 能及時(shí)、準(zhǔn)確地反映學(xué)生宿舍用電情況 “學(xué)校用電收費(fèi)管理系統(tǒng)”具有精確的計(jì)量 、運(yùn)算和查詢功能，能夠及時(shí)、準(zhǔn)確反映學(xué)生宿舍各宿舍的用電量，對(duì)用電量過(guò)高，過(guò)低或無(wú)用電量的宿舍，可及時(shí)通知學(xué)生宿舍管理人員進(jìn)行調(diào)查，及時(shí)堵塞漏洞。 4． 信息收集、處理、存儲(chǔ)、打印方便 抄電表需要信息輸入時(shí)，只 需要設(shè)置一次系統(tǒng)參數(shù)，設(shè)置完后電腦會(huì)自動(dòng)進(jìn)行存儲(chǔ)，這樣添加下一條信息時(shí)便可直接讀入一些重復(fù)的基本信息；接著只需輸入電表號(hào)碼、電表讀數(shù)就可，其它都只用一鍵搞定（只需按回車鍵就行）。這樣便可以規(guī)范了收費(fèi)程序，應(yīng)用本系統(tǒng)后，收取的電費(fèi)，與手抄式的人工 管理相比，呈現(xiàn)大幅度增長(zhǎng)，可堵塞不少漏洞。 本系統(tǒng)可以安裝在學(xué)校用電收費(fèi)管理人員的電腦上，進(jìn)行集中管理和控制。 任何一個(gè)系統(tǒng)的開發(fā)成功，起關(guān)鍵作用的還是人的主觀能動(dòng)性，很多具體工作是任何工具都無(wú)法替代的。三年的大學(xué)生活是我人生中的一筆寶貴財(cái)富，在校期間，諸多良師益友在學(xué)習(xí)、工作上給予我?guī)椭c指導(dǎo)，在生活上對(duì)我關(guān) 心與照顧，在思想上對(duì)我進(jìn)行鞭策與鼓勵(lì)，所有的這一切，都將使我終生難忘。在此表達(dá)對(duì)陳老師的深深的謝意！ 畢業(yè)論文完成后，我就要將走出大學(xué)這個(gè)人生的象牙塔，溶入到社會(huì)中，邁開堅(jiān)實(shí)的腳步，開始我實(shí)現(xiàn)理想的征程，尋找能展示自己的一片天空。 3. 伍俊良，《 Visual Basic 課程設(shè)計(jì)與系統(tǒng)開發(fā)案例》，清華大學(xué)出版社， 2020年 8 月第一版， ISBN 7302056269。 7. 陳佳，《信息管理開發(fā)方法教程》，清華大學(xué)出版， 1998 年 5 月第 1 版， 730202913X。 注冊(cè)表關(guān)鍵字安全選項(xiàng) ... Const READ_CONTROL = amp。H4 Const KEY_ENUMERATE_SUB_KEYS = amp。 注冊(cè)表關(guān)鍵字 ROOT 類型 ... Const HKEY_LOCAL_MACHINE = amp。 = 版本 amp。 . amp。 已知 32 位文件版本的有效位置 If (Dir(SysInfoPath amp。 錯(cuò)誤 注冊(cè)表 相應(yīng)條目不能被找到 ... Else GoTo SysInfoErr End If Call Shell(SysInfoPath, vbNormalFocus) Exit Sub SysInfoErr: MsgBox 此時(shí)系統(tǒng)信息不可用 , vbOKOnly End Sub Public Function GetKeyValue(KeyRoot As Long, KeyName As String, SubKeyRef As String, ByRef KeyVal As String) As Boolean Dim i As Long 39。 Dim KeyValType As Long 39。 39。 處理錯(cuò)誤 ... tmpVal = String$(1024, 0) 39。 檢索注冊(cè)表關(guān)鍵字的值 ... 39。 Win95 外接程序空終結(jié)字符串 ... tmpVal = Left(tmpVal, KeyValSize 1) 39。 39。 字符串注冊(cè)關(guān)鍵字?jǐn)?shù)據(jù)類型 KeyVal = tmpVal 39。 生成值字符。 轉(zhuǎn)換四字節(jié)的字符為字符串 End Select GetKeyValue = True 39。 錯(cuò)誤發(fā)生后將其清除 ... KeyVal = 39。試圖對(duì)啟動(dòng)地址進(jìn)行瀏覽 = True StartingAddress End If End Sub Private Sub brwWebBrowser_DownloadComplete() On Error Resume Next = End Sub Private Sub brwWebBrowser_NavigateComplete(ByVal URL As String) Dim i As Integer Dim bFound As Boolean = For i = 0 To 1 If (i) = Then bFound = True Exit For End If Next i mbDontNavigateNow = True If bFound Then i End If , 0 = 0 mbDontNavigateNow = False End Sub End Sub Private Sub 重新登陸 _Click() If MsgBox(你要重新登陸系統(tǒng)嗎！ , 33 + 256) = vbOK Then Unload Me Unload DataEnvironment1 開始界面 .Show End If End Sub 下霸唱本人口滑筆快，編造杜撰出來(lái)的？ 其實(shí)我國(guó)養(yǎng)貓養(yǎng)狗的歷史長(zhǎng)而久矣，也曾遺留下來(lái)無(wú)數(shù)的養(yǎng)寵秘訣。前些時(shí)候有數(shù)股粵寇在這一帶出沒，跟官兵惡戰(zhàn)了幾場(chǎng)，才剛剛退去，戰(zhàn)場(chǎng)上積尸數(shù)千。 到了晚上，烏云遮月的時(shí)候，墳地里鬼火閃動(dòng)，偶爾有一兩只野貓從草間躥出，還有些不知道是鬼哭還是狼嚎的怪異響動(dòng)，不時(shí)從墳地深處傳來(lái)，聽得人肌膚起栗。 正值中夜，四下里靜得出奇，顯得這撞棺材蓋子的聲音格外驚心動(dòng)魄。 他三兩步轉(zhuǎn)到墳后，只見這是一座無(wú)主新墳，土丘下被人掏了個(gè)大窟窿，那嘭、嘭、嘭的怪聲，正是從那窟窿深處發(fā)出來(lái)的。 原來(lái)早年間的野狗和現(xiàn)代的野狗大不同，有些野狗的種類在解放后社會(huì)穩(wěn)定下來(lái)就逐漸絕跡了。長(zhǎng)著血 瘤的野狗常年吃死人肉，身上尸氣重，牙齒帶有尸毒，被它咬到了就別想活?？稍诋?dāng)時(shí)，就連這種三寸板的“狗碰頭”還都供不應(yīng)求。那只野狗掏了座新墳，剛剛撞開了棺板，咬得棺中死尸開膛破肚，正要往外拖拽肚腸，忽聽背后有動(dòng)靜，立刻打墳中鉆了出來(lái)。 再次出現(xiàn)了三個(gè)僵尸戰(zhàn)士，一共四個(gè)僵尸加上小骷髏，慢慢的走向杜克魔導(dǎo)師。 小骷髏靠近杜克后，從他的白骨手指上面，將空間戒指褪了下來(lái)，連帶著高級(jí)劍士埃里克身上的口袋，一起拿著遞給韓碩。將在亡 靈系發(fā)生的一切事情，包括死亡墓地的發(fā)現(xiàn)。 可是弄了一會(huì)，韓碩發(fā)現(xiàn)埃里克窮鬼一個(gè)，口袋里面沒有任何有價(jià)值地東西。除了你我以外還有誰(shuí)知道？” “沒有其他任何人知道。反正杜克與埃里 死了，那個(gè)追逐他們兩個(gè)組織派來(lái)地盜賊。 愕然愣了一會(huì)，韓碩微微一笑，猛地一把將艾米麗樓在懷里，笑嘻嘻地說(shuō)：“不愧是我的女人，我還以為你會(huì)讓我將死亡墓地的秘密，貢獻(xiàn)給 組織呢！” 沒好氣地白了韓碩一眼，艾米麗說(shuō)：“當(dāng)我不知道你地心思嗎，要是你想要將這個(gè)秘密告訴組織，恐怕早就已經(jīng)這么做了，哪兒還會(huì)等到現(xiàn)在不說(shuō)。 “對(duì)了，你說(shuō)這一次的目的，是為了調(diào)查那批武器的去向。如今這一批的時(shí)候多一些籌碼。一位報(bào)社記者在北京、上海、武漢等地的高校深入采訪后對(duì)一些大學(xué)生的消費(fèi)現(xiàn)狀做了這樣的描述： 貸款買車，消費(fèi)哈根達(dá)斯，看 700 元一張門票的《大河之舞》，在他們看來(lái)，只要是喜歡，錢不是問題，大不了可以貸款。 儉以養(yǎng)德 大學(xué)雖然相對(duì)社會(huì)而言比較清靜，但其實(shí)也是一個(gè)大染缸，再怎么忠厚老實(shí)、積極進(jìn)取的人都可能在大學(xué)里變得墮落不堪。 眉開眼笑的咯咯嬌笑了一陣，艾米麗在韓碩的驚異注意中，情意綿綿的望著韓碩說(shuō)：“壞小子，你終于懂得為我著想了，真好！” 韓碩啞然，回想起先前的事情，發(fā)現(xiàn)自己的確沒有為艾米麗考慮過(guò)，至始至終都是為了自己著想，她這么一說(shuō)后韓碩覺得有些不好意思，顯得有些尷尬的訕笑?！? 艾米麗這么一說(shuō)，韓碩真的有些感動(dòng)，暗道女人果然是種不可理喻地生物，一旦她們的身心被俘虜，以前的堅(jiān)持都會(huì)轟然崩潰。從此以后死亡墓地還是你一人享用的秘密，是你鍛煉自身慢慢掌控幽暗森林的基礎(chǔ)。猶豫了一下詢問說(shuō)：“你打算怎么做？” “既然如此。 半響。 這一番話說(shuō)來(lái)，對(duì)艾米麗造成了極其的震撼。隨意的說(shuō)道。 七根骨刺飛出以后，杜克使用風(fēng)刃噼里啪啦的抵御，但是四個(gè)僵尸戰(zhàn)士與小骷髏的靠近，卻讓他感覺到非常的麻煩?！闭f(shuō)著取出黑暗之瞳，拿在手心里亮了亮，繼續(xù)說(shuō)：“上一次在巴比倫魔武學(xué)院的后山墳?zāi)沟?，發(fā)現(xiàn)你們蹤跡的那個(gè)小雜役也是我?！庇笫氯绾?，且聽下回分解。窮人的廉價(jià)薄棺，最好的不過(guò)是“三寸柏木板”，棺板被這狗頭撞不了幾下就能撞穿。鄉(xiāng)下山野間有種專吃死人的野狗，能聞著死人的臭味在墳上刨洞，刨到棺材了，就用腦袋撞破棺材擋板，然后把棺中死尸拖出來(lái)吃肚腸子。那張臉的腦門上生了一個(gè)橢圓形的大肉瘤，吐著鮮紅的舌頭，嘴邊牙齒上還掛著血跡，雙眼兇光四射，惡狠狠地盯著張小辮。剛才他跑過(guò)了勁喘個(gè)不停，加上肚里又沒食，實(shí)在是邁不開腿了，當(dāng)下用衣袖抹了抹鼻涕，打量著四周的墳塋，心想這是哪路死鬼跟你家三爺做耍？三爺不是給你們