【文章內(nèi)容簡介】 思義，自定義 表中包含著管理員對系統(tǒng)的自定義信息，包括計算機(jī)數(shù)目以及上機(jī)的費率。 表 4－ 5 自定義表結(jié)構(gòu) 字段名稱 類型 主鍵 非空 臺數(shù) 數(shù)字 No No 單價 文本 No No 單價 new 文本 No No 單價改變 布爾 No No 4． 2 系統(tǒng)實現(xiàn) 主要界面設(shè)計 ◇ 用戶登陸界面（如圖 4－ 4 所示）： 圖 4－ 4 用戶登陸界面 當(dāng)用戶名稱和密碼與管理員表中對應(yīng)的數(shù)據(jù)項相符時，才能登入系統(tǒng)，否則將清除輸入內(nèi)容，并提醒用戶重新輸入。在此窗體運用了以下代碼： With .MoveLast .MoveFirst For I = 1 To .RecordCount .Fields(0) .MoveNext Next I End With 通過此段代碼，用戶名稱欄將根據(jù)管理員表中數(shù)據(jù)項目自動添加，因此用戶可不必鍵入用戶名，直接在下拉列表中選擇，方便了用戶使用。 ◇ 主界面（如圖 4－ 5 所示 ）： 圖 4－ 5 主界面 主界面的菜單由菜單編輯器編輯，上機(jī)情況則用 MSFlexGrid 控件來顯示，能夠?qū)崟r的反映當(dāng)前上機(jī)的具體情況。為了使用戶能夠方便快捷的使用本管理系統(tǒng)，在工具欄還設(shè)計了上機(jī)、結(jié)帳、報表以及幫助四個常用功能的快捷按鈕。在狀態(tài)欄中，能夠顯示出當(dāng)前的系統(tǒng)時間以及計費中的電腦數(shù)目。 ◇ 用戶管理界面（如圖 4－ 6 所示）： 圖 4－ 6 用戶管理界面 通過此界面可以進(jìn)行添加、刪除用戶的操作，這是系統(tǒng)管理員才能執(zhí)行的功能。為實現(xiàn)系統(tǒng)的簡單與易用，本系統(tǒng)只設(shè)置了一個系統(tǒng)管理員用戶 “ admin”，其 余都是一般用戶。系統(tǒng)管理員用戶不能被刪除。 ◇ 帳戶管理界面（如圖 4－ 7 所示）： 4－ 7 帳戶管理界面 此界面是對帳戶信息查詢和修改的主界面，界面中間顯示的是所有帳戶的詳細(xì)信息，下面的四個功能按鈕分別對應(yīng)四個與帳戶相關(guān)的操作。 功能模塊設(shè)計與實現(xiàn) ○ 系統(tǒng)管理模塊： 系統(tǒng)管理模塊主要包含以下幾個功能：修改密碼、添加刪除用戶、設(shè)置計算機(jī)數(shù)目、修改費率、數(shù)據(jù)備份與還原以及系統(tǒng)自我鎖定。它們的設(shè)計思路與實現(xiàn)方法分別如下： 修改密碼只針對當(dāng)前登陸的用戶有效，也就是只能修改登陸用戶本身的密碼。 而不能對系統(tǒng)其他用戶進(jìn)行修改。若管理員用戶需要修改其他用戶密碼，則可通過刪除相應(yīng)用戶，再用新密碼將此用戶添加實現(xiàn)。修改密碼窗體如圖 4－ 8 所示： 圖 48 修改密碼窗體 添加刪除用戶、設(shè)置計算機(jī)數(shù)目以及修改費率都是在管理員權(quán)限下的管理功能，其他用戶單擊此類菜單時，會彈出提示框（如圖 4－ 9 所示）提醒用戶。為了方便機(jī)房管理人員的管理，本系統(tǒng)為計算機(jī)數(shù)目以及費率專門建了一張表，當(dāng)管理員修改費率后，并不是直接生效，而是將其寫入表中，并設(shè)置單價改變的標(biāo)志位為真，當(dāng)窗體重新加載時，根據(jù)標(biāo)志位的值，從表中讀出用戶 設(shè)置的費率。 圖 4－ 9 權(quán)限提示框 數(shù)據(jù)備份與還原能將當(dāng)前的數(shù)據(jù)庫備份至您指定位置，也能根據(jù)您以前備份的數(shù)據(jù)進(jìn)行還原。因為正在打開的文件不能夠用 FileCopy 函數(shù)復(fù)制，這段程序代碼中應(yīng)用到了數(shù)據(jù)庫的關(guān)閉方法，在關(guān)閉數(shù)據(jù)庫后進(jìn)行數(shù)據(jù)庫的備份和還原。由于還原后當(dāng)前的數(shù)據(jù)庫內(nèi)容將被清除，因此為避免出現(xiàn)不可意料的錯誤，還原前提示用戶將當(dāng)前數(shù)據(jù)庫進(jìn)行備份。如在此項過程中遇到問題，可參照幫助系統(tǒng)中的幫助文檔解決。（如圖 4－ 10 所示）： 圖 4－ 10 數(shù)據(jù)還原提示框 系統(tǒng)自我鎖定：當(dāng)管理員有事離開時，并不方 便將系統(tǒng)關(guān)閉，為了防止此時他人對系統(tǒng)進(jìn)行操作，特設(shè)置此功能將系統(tǒng)鎖定，只有在輸入正確當(dāng)前用戶名和密碼后才能解鎖，恢復(fù)對系統(tǒng)的控制。（如圖 4－ 11 所示）： 圖 4－ 11 系統(tǒng)鎖定窗體 ○ 帳戶管理模塊 帳戶管理模塊包含創(chuàng)建帳戶、帳戶消費、帳戶充值以及帳戶查詢功能。 創(chuàng)建帳戶時，由于學(xué)號的唯一性，本系統(tǒng)采用學(xué)號作為帳戶名稱，只需填寫學(xué)生姓名并在帳戶中充值一定的金額即可完成帳戶創(chuàng)建。帳戶創(chuàng)建的窗體（如圖4－ 12 所示）： 圖 4－ 12 帳戶創(chuàng)建窗體 帳戶消費包括上機(jī)和結(jié)帳兩個過程，是收費系統(tǒng)中最基本的功 能：學(xué)生通過條形碼掃描上機(jī)時，系統(tǒng)會提示該帳戶現(xiàn)存的金額。在上機(jī)過程中，系統(tǒng)會定時對所有上機(jī)情況進(jìn)行掃描，計算上機(jī)帳戶的余額與上機(jī)所需費用的差額，當(dāng)其金額小于系統(tǒng)設(shè)置的計費費率時，系統(tǒng)會對管理人員進(jìn)行提示（如圖 4－ 13 所示）： 圖 4－ 13 帳戶追蹤提示 管理員即可據(jù)此提醒該帳戶對應(yīng)的上機(jī)者及時充值，實現(xiàn)了對帳戶的實時追蹤?？蛻艚Y(jié)帳時，使用 DateDiff 函數(shù)（這個函數(shù)的作用是對兩個指定的日期按日期形式求相差的間隔）計算出客戶上機(jī)消費的具體時間 mm，并用以下代碼計算消費的金額： Public Function JF(mm) As Single JF = (mm \ 30) * Dj / 2 If mm Mod 30 10 Then JF = JF + Dj / 2 End If If JF = 0 Then JF = Dj / 2 End Function 系統(tǒng)根據(jù)計算結(jié)果在學(xué)生表和上機(jī)情況表中對相應(yīng)記錄進(jìn)行修改，并在上機(jī)流水帳表中添加上機(jī)記錄。由于是對多張表中數(shù)據(jù)同時進(jìn)行修改，因此在這段程序代碼中，要以事務(wù)管理方式對數(shù)據(jù)庫進(jìn)行操作 ，否則當(dāng)系統(tǒng)處理過程中遇到錯誤時，極有可能造成數(shù)據(jù)庫各個表中相應(yīng)的數(shù)據(jù)不一致，最終導(dǎo)致系統(tǒng)不能正常運行。系統(tǒng)運行過程中，每個時刻的上機(jī)情況都會在狀態(tài)欄進(jìn)行顯示，當(dāng)顯示的上機(jī)數(shù)目不為零時，用戶將不能對系統(tǒng)進(jìn)行正常的關(guān)閉，這避免了由于系統(tǒng)的關(guān)閉而使客戶的上機(jī)消費時間的計算出現(xiàn)錯誤。 當(dāng)客戶帳戶金額不足時，需要對帳戶金額進(jìn)行充值。帳戶成功充值后會即時提示帳戶現(xiàn)有的金額。（如圖 4－ 14 所示）： 圖 4－ 14 帳戶成功充值提示框 本系統(tǒng)中所有的帳戶信息用一個 MSFlexGrid 控件在窗體中顯示，初始化界面時，窗 體中的帳戶按照學(xué)號的索引排列。在使用帳戶查詢功能時，如查詢到相應(yīng)的帳戶記錄，則將此項記錄放到表格的第一行顯示（如圖 4－ 15 所示），簡化了程序代碼的編寫。 圖 4－ 15 帳戶查詢結(jié)果顯示 ○ 條形碼編制和打印模塊 條形碼編制和打印模塊是本系統(tǒng)中一個比較復(fù)雜的模塊，本系統(tǒng)采用了 EAN－ 13 的編碼方式，由于左側(cè)數(shù)據(jù)符有奇排列和偶排列兩種方式，右側(cè)數(shù)據(jù)符另有一種排列方式。為了簡化編碼，本系統(tǒng)采用 0 作為前置碼，從而左側(cè)數(shù)據(jù)符統(tǒng)一采用奇排列，在程序中建立了一個一維數(shù)組用于存儲每個數(shù)字的編碼方式對應(yīng)的條與空 的模塊數(shù)。通過以下代碼計算檢驗碼： Check = Array1(1) + Array1(3) + Array1(5) + Array1(7) + Array1(9) + Array1(11) Check = Check * 3 Check1 =Array1(2)+Array1(4) + Array1(6) + Array1(8) + Array1(10) + Array1(0) Check = Check + Check1 Check = Check Mod 10 If Check = 0 Then Array1(12) = 0 Else Array1(12) = 10 Check End If 在計算好帳戶的檢驗碼后，為帳戶的每位數(shù)字調(diào)用自定義的打印子程序，從而將整個帳戶的條形碼打印出來。本模塊中是使用打印機(jī)對象打印條形碼。在代碼中用到了 printer 的 ScaleMode(打印機(jī)的度量單位 ) 、 CurrentX（打印機(jī)當(dāng)前水平坐標(biāo)） 、 CurrentY （打印機(jī)當(dāng)前垂直坐標(biāo)）三個屬性。打 印結(jié)果如圖 4－16 所示： 圖 4－ 16 打印的條形碼 ○ 信息查詢模塊 信息查詢模塊提供了對當(dāng)天以及當(dāng)月上機(jī)情況和計費情況的總計查詢，對當(dāng)天消費情況的查詢代碼如下： For I = 1 To .RecordCount If Format$(.Fields(2), ddddd) = Date Then Money = Val(.Fields(4)) + Money times = times + 1 End If .MoveNext Next I linestr = 本日上機(jī)人次 : amp。 Space(4) amp。 times linestr1 = 本日消費金額 : amp。 Space(4) amp。 Money amp。 元 對當(dāng)月消費情況的查詢與此類似。對查詢結(jié)果的打印采用的是打印機(jī)對象，直接將查詢得到的兩個結(jié)果字符串傳輸?shù)酱蛴C(jī)，設(shè)置相關(guān)位置參數(shù)后進(jìn)行打印。（ 如圖 4－ 17 所示）： 圖 4－ 17 信息查詢模塊界面 總結(jié) 經(jīng)過一個學(xué)期的認(rèn)真開發(fā)和調(diào)試，終于形成了如今比較完整的機(jī)房收費管理系統(tǒng)。本系統(tǒng)較好的實現(xiàn)了本次設(shè)計任務(wù)的最高目標(biāo)。經(jīng)過一段時間的綜合測試和維護(hù)，完善了系統(tǒng)的功能，系統(tǒng)性能也得到了很大提高。本系統(tǒng)足夠勝任現(xiàn)有條件下的學(xué)校機(jī)房管理，將為機(jī)房管理員減輕很多的任務(wù)和負(fù)擔(dān)。在本次機(jī)房收費管理系統(tǒng)的開發(fā)過程中，由于掌握知識的不足以及系統(tǒng)開發(fā)經(jīng)驗的缺乏，使得系統(tǒng)不可避免地產(chǎn)生了許多的錯誤。通過查閱相關(guān)書籍資料并在老師的指導(dǎo)下才把錯誤一一糾正。在系統(tǒng)開發(fā)與 調(diào)試過程中，不僅得到了寶貴的系統(tǒng)開發(fā)經(jīng)驗，也鍛煉了自己獨力查找文獻(xiàn)、解決問題的能力。由于時間的限制以及水平的不足，現(xiàn)有系統(tǒng)仍然存在著漏洞和不足，有待進(jìn)一步的發(fā)現(xiàn)和解決，也希望老師同學(xué)不吝批評和指正。 致 謝 本次畢業(yè)設(shè)計中，吳星老師給予了我很多的指導(dǎo)和關(guān)心，他嚴(yán)謹(jǐn)?shù)闹螌W(xué)態(tài)度以及深厚的理論知識給了我很大的幫助和啟發(fā)，讓我能順利完成本次系統(tǒng)的開發(fā)。在此我對他表示最誠摯的感謝，也同樣謝謝那些在本系統(tǒng)開發(fā)過程中給了我?guī)椭耐瑢W(xué)們。 參考文獻(xiàn) 【 1】 黃明，梁旭． Visual Basic 信 息系統(tǒng)設(shè)計與開發(fā)實例．北京：機(jī)械工業(yè)出版社，2020． 【 2】 龔沛曾，陸慰民，楊志強(qiáng)． Visual Basic 程序設(shè)計教程（ 版）．北京：高等教育出版社， 2020． 【 3】 求是科技，孫越． Visual Basic 數(shù)據(jù)庫開發(fā)自學(xué)教程．北京：人民郵電出版社， 2020． 【 4】 譚小丹 , 劉國慶 , 李光明． Visual Basic ．北京：冶金出版社， 2020． 【 5】 劉恩濤，趙耀峰． Visual Basic 編程技巧與實例分析．北京：中國水力水電出版社， 1999． 【 6】 李玉東 , 李罡 , 李雷． Visual Basic 中文版控件大全．北京：電子工業(yè)出版社， 2020． 【 7】 東方人華，王晟 , 凌宇欣． Visual Basic 中文版范例入門與提高．北京：清華大學(xué)出版社， 2020． 【 8】 盧毅． Visual Basic 6 數(shù)據(jù)庫設(shè)計實例導(dǎo)航．北京：科學(xué)出版社， 2020． 【 9】 楊昕紅．?dāng)?shù)據(jù)庫基礎(chǔ)－ Access 北京：電子工業(yè)出版社． 2020． 【 10】 鄭小玲 , 王學(xué)軍． Access 項目案例導(dǎo)航．北京：科學(xué)出版社， 2020． 【 11】 薩師煊 , 王珊．?dāng)?shù)據(jù)庫系統(tǒng)概論．北京：高等教育出版社， 2020． 【 12】 王珊，陳紅．?dāng)?shù)據(jù)庫系統(tǒng)原理．北京： 清華大學(xué)出版社， 2020． 【 13】 戴宏民．條形碼技術(shù)及應(yīng)用．重慶：重慶人民大學(xué)出版社， 1991． 【 14】 黃以群 ,董湘陵．條形碼技術(shù)．北京：國防工業(yè)出版社， 1991． 【 15】 黃志建．條形碼技術(shù)及應(yīng)用．北京：機(jī)械工業(yè)出版社， 1992． 【 16】 李金哲．條形碼自動識別技術(shù)．北京：國防工業(yè)出版社， 1991． 附件： Frmmain (主界面窗體 )： Option Explicit Public rows As Integer Public userid As String Public userID1 As String Public userfind As String Dim I As Integer Dim j As Integer Public userrmb As Single Public Dj As Single Dim mm As Integer Public pcCount As Integer