【正文】 的舊密碼是否正確，并判斷操作員兩次輸入的新密碼是否一致，這就防止操作員輸入錯誤密碼，而將其添加到數(shù)據(jù)庫。圖 所示為修改密碼工作流程圖 26 用 戶輸 入 新 密 碼修 改 成 功是是密 碼 是 否 正 確否新 密 碼 與 檢 驗 密 碼是 否 一 致否 圖 修改密碼工作流程圖 設(shè)置上機(jī)費率 設(shè)置上機(jī)費率是超級用戶特有的功能，可以根據(jù)不同的客戶類型，設(shè)定不同的上機(jī)費率 ，在這里設(shè)計為臨時用戶、普通用戶、銀卡用戶、金卡用戶，不同類型的客戶，不同上機(jī)費率也不同。 具體操作：“操作員管理”→“設(shè)置上機(jī)費率”命令，彈出“設(shè)置上機(jī)費率”窗口。在這分別對臨時用戶、普通會員、銀卡會員、金卡會員的上機(jī)費率進(jìn)行設(shè)定。完成并保存到數(shù)據(jù)庫。如圖 所示。 27 圖 設(shè)置上機(jī)費率圖 具體代碼如： Private Sub BtOK_Click(ByVal sender As , ByVal e As ) Handles Dim TempFeeRules As New ClsFeeRules = 臨時用戶 = Val() () = 普通用戶 = Val() () = 銀卡用戶 = Val() () = 金卡用戶 = Val() () End Sub 鎖定屏幕 該功能是當(dāng)操作員需要外出，系統(tǒng)不能關(guān)閉時，防止他人的非法操作系統(tǒng)。在使用該功能時，主窗體被隱藏，登錄主窗體，要求輸入用戶密碼。 具體操作：“操作員管理” →“鎖定屏幕”命令，程序的窗口將會被隱藏，彈出鎖定屏幕的窗口，在這里輸入密碼，又可重返主窗口。如圖 所示。 28 圖 鎖定屏幕圖 用戶充值 操作員在使用此功能時，先輸入用戶名，點擊“讀取”就可讀取用戶的真實姓名和 余額信息，確認(rèn)輸入的用戶是正確的，再輸入本次充值的金額，“保存”更新用戶賬號上的余額信息。如圖 所示： 圖 用戶充值圖 “讀取”功能代碼： Private Sub BtnRead_Click(ByVal sender As , ByVal e As ) Handles If Trim() = Then MsgBox(請輸入用戶名！ , , ) Exit Sub 29 End If Dim TempUser As New ClsUser = Trim() () = = End Sub “保存”功能代碼： Private Sub BtnSave_Click(ByVal sender As , ByVal e As ) Handles If Trim() = Then MsgBox(請輸入用戶名！ , , ) Exit Sub End If Dim TempUser As New ClsUser = Trim() If = False Then MsgBox(該用戶不存在！ , , ) Exit Sub End If (Val()) BtnRead_Click(sender, e) = End Sub 具體操作：“用戶信息管理”→“用戶充值”命令，將會彈出“用戶充值窗口”，在這里可以對用戶費用的讀取、查詢余額、本次充值。填寫信 息后按保存完成充值操作。 查詢費用 費用查詢能讓用戶清楚詳細(xì)知道費用使用情況，操作用在使用此功能時，必須確定用戶名不為空，查詢該用戶相關(guān)的上機(jī)費用信息，然后返回一個數(shù)據(jù)表，并顯示在界面中。 具體操作：“用戶信息管理”→“查詢用戶費用”命令，將彈出“查詢費用窗口”，輸入用戶 maomao，點確定，將會在界面的列表中顯示該用戶所有的費用記錄，包括本次使用計算機(jī)，登錄時間，下機(jī)時間信息。如圖 所示。 30 圖 查詢用戶費用圖 添加用戶信息 操作過程：“用戶信息管理”→“添加用戶信息”命令，將彈出“添加用戶信息”窗口，輸入賬號 aa110，包括密碼、用戶類型、用戶姓名、備注等信息，確認(rèn)賬號將示意當(dāng)前賬號在本系統(tǒng)的可用性。所有信息輸入結(jié)束，點“確定”保存。操作過程需要輸入用戶的詳細(xì)信息，輸入完畢后，“確定”按鈕可以將用戶信息插入到數(shù)據(jù)庫中，此功能主要是記錄用戶的詳細(xì)信息。如圖 所示。 31 圖 添加用戶信息圖 修改用戶信息、刪除用戶信息 這兩個模塊在功能、操作方法 上大致相同，操作員經(jīng)過這兩個功能模塊可以即時對用戶信息進(jìn)行修改 /刪除，從而保證用戶的各類需求或更正操作員之前的操作失誤。使系統(tǒng)更加人工智能化。修改 /刪除用戶信息功能都是按用戶類型、按用戶姓名或按用戶賬號方式修改 /刪除用戶信息。 具體操作如：“用戶信息管理”→“修改用戶信息 /刪除用戶信息”命令，將會彈出相應(yīng)窗口，超級用戶可以修改 /刪除用戶任意信息。如按用戶類型修改 /刪除用戶信息，是在窗體加載時，設(shè)置用戶類型為第一選項，然后進(jìn)入界面修改/刪除其用戶信息。如圖 、圖 所示 32 圖 修改用戶 信息圖 圖 刪除用戶信息圖 33 添加計算機(jī)信息 添加計算機(jī)信息時，操作員需要輸入計算名稱、（ MAC 地址）、機(jī)位編號、網(wǎng)吧編號、計算機(jī)配置、備注等信息，在添加輸入完畢后，點擊“確定”可向數(shù)據(jù)庫添加計算機(jī)信息。 具體操作：“計算機(jī)信息管理”→“添加計算機(jī)信息”命令，將彈出“添加計算機(jī)信息”窗口，包括計算機(jī)名稱、機(jī)位編號、網(wǎng)吧編號、計算機(jī)配置，所有信息輸入結(jié)束，點“確定”保存。如圖 所示。 圖 添加計算機(jī)信息圖 修改 /刪除計算機(jī)信息 這兩個模塊在功能、操作方法上大致相同。操作員經(jīng)過這兩個功能模塊可以即時對計算機(jī)信息進(jìn)行修改 /刪除，從而使得網(wǎng)吧的計算機(jī)管理不出現(xiàn)混亂或同一編號計算機(jī)出現(xiàn)，使系統(tǒng)人工智能化。修改 /刪除計算機(jī)信息功能都是按網(wǎng)吧編號、按配置和按機(jī)算機(jī)名稱修改 /刪除計算機(jī)信息。 具體操作如：“計算機(jī)信息管理”→“修改計算機(jī)信息 /刪除計算機(jī)信息”命令，將會彈出相應(yīng)窗口，操作員可以修改 /刪除計算機(jī)信息。如按網(wǎng)吧編號修改 /刪除計算機(jī)信息，是在窗體加載時，設(shè)置按網(wǎng)吧編號為第一選項，然后進(jìn)入界面修改 /刪除其計算機(jī)信息。如圖 、圖 所示 34 圖 修改計算機(jī)信息圖 圖 刪除計算機(jī)信息圖 35 客戶端登錄 客戶端是獲取用戶的用戶名和密碼的窗口，界面設(shè)計有：用戶名、密碼輸入，四個控件：登錄、下機(jī)、設(shè)置、退出。即時支持客戶的工作，滿足客戶使用時各種需求。啟動服務(wù)器端即可進(jìn)入客戶端，如圖 所示，登錄成功后，會顯示登錄成功信息，此時服務(wù)器端將會顯示機(jī)器的 使用情況。 圖 客戶端登錄圖 登錄 在輸入用戶名、密碼后，向服務(wù)器端發(fā)送連接請求的功能模塊。在其登錄成功后，客戶端窗口最小化，并以托盤圖標(biāo)顯示在窗口的右下角，當(dāng)用戶點擊托盤時，需要重新顯示客戶端界面?？蛻舳说卿浌ぷ髁鞒虉D如圖 所示 : 36 服 務(wù) 器 端判 斷 用 戶 余 額客 戶 端登 錄 成 功登 錄 請 求用 戶 確 認(rèn)余 額 充 足非 注 冊 用 戶 /密 碼 不 正 確余 額 不 足 圖 客戶端登錄流程圖 登錄模塊代碼如： Private Sub BtLogin_Click(ByVal sender As , ByVal e As ) Handles Dim ConnectMessage As String = ConnectMessage += LOGIN, + ConnectMessage += , + ConnectMessage += , + Trim() ConnectMessage += , + Trim() (ConnectMessage) = False = False () End Sub 下機(jī) 在用戶使用完計算機(jī)，必須點擊“下機(jī)”按鈕，以結(jié)算本次上機(jī)所用的金額，代碼如下： Private Sub BtLogoff_Click(ByVal sender As , ByVal e As ) Handles Dim ConnectMessage As String = ConnectMessage += LOGOFF, + 37 ConnectMessage += , + ConnectMessage += , + Trim() (ConnectMessage) = True = True End Sub 設(shè)置 為了滿足不同客戶的需求，專門設(shè)定的一個功能?？蛻舳藛右院?，如需要設(shè)置服務(wù)器的 IP地址，點擊“設(shè)置”設(shè)置 IP 地址。代碼如下： Private Sub BtSet_Click(ByVal sender As , ByVal e As ) Handles () End Sub 其設(shè)置窗口示意圖如圖 所示 圖 設(shè)置窗口示意圖 退出 為臨時用戶設(shè)定的退出窗口，或其他用戶不意查詢余額時可直接點擊使用。體現(xiàn)了系統(tǒng)的快捷性能。 38 第六章：總結(jié) 本文體現(xiàn)了一個系統(tǒng)的編程規(guī)范，文章內(nèi)容涵蓋了系統(tǒng)的需求、數(shù)據(jù)庫的需求分析、系統(tǒng)設(shè)計、界面設(shè)計與及系統(tǒng)的最終實現(xiàn)。 網(wǎng)吧計費系統(tǒng)的開發(fā)技術(shù)特點 整個網(wǎng)吧計費系統(tǒng)的開發(fā)有以下幾個特點 1. 屬于典型的三層系統(tǒng)代碼結(jié)構(gòu)； 2. 基于 C/S（客戶端 /服務(wù)器）的通信結(jié)構(gòu)； 3. 服務(wù)器端與客戶端進(jìn)行簡單的通信協(xié)議； 4. 網(wǎng)路通信技術(shù)與數(shù)據(jù)庫存技術(shù)綜合開發(fā) 。 系統(tǒng)的不足與前景 本系統(tǒng)雖是 C/S 型網(wǎng)絡(luò)結(jié)構(gòu)，但因為數(shù)據(jù)庫 Access 只能承受少量客戶端，系統(tǒng)的訪問量相對比較小，只能局限于網(wǎng)吧、圖書館等局域網(wǎng)中，這應(yīng)有相應(yīng)的解決方案，使其不斷得到改進(jìn)。在開發(fā)過程中，切身體會了利用 結(jié)合Socket 對象模型開發(fā)數(shù)據(jù)庫系統(tǒng)的高效和快捷，因此對將本系成功能更新更高效、通用性更強(qiáng)有了新的期待。 39 參考文獻(xiàn) [1] 周緒，管麗娜 , 白海波 編著 .SQL Server 2021 中文版 [M]. 北京：清華大學(xué)出版社， [2] 杭國英 主編 . Visual Basic 程序設(shè)計 [M]. 北京：北京機(jī)械工業(yè)出版社， [3] 豈興明 ,矯津毅 , 銀華強(qiáng)編著 .Visual 項目開發(fā)寶典 [M].北京：電子工業(yè)出版社， [4] 陳語林 編著 .Visual 程序設(shè)計教程 [M].北京 :中國水利水電出版社 , [5] 郝佳波等 主編 . Visual 實用教程 [M].陜西： 西安電子科技大學(xué)出版社 ， [6] 潘英 ， 陳君等譯 .Visual 專業(yè)項目實例開發(fā) [M].北京： 中國水利水電出版社 ， [7] 王棟 主編 . Visual Basic 課程設(shè)計 [M]. 北京 :清華大學(xué)出版社， [8] 薩師煊 王珊 編 著 . 數(shù)據(jù)庫系統(tǒng)概論 [M]. 北京：高等教育出版社， [9] 王千祥 等譯 .實用軟件體系結(jié)構(gòu)