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