【正文】 39 參考文獻(xiàn) [1] 周緒，管麗娜 , 白海波 編著 .SQL Server 2021 中文版 [M]. 北京：清華大學(xué)出版社， [2] 杭國(guó)英 主編 . Visual Basic 程序設(shè)計(jì) [M]. 北京：北京機(jī)械工業(yè)出版社， [3] 豈興明 ,矯津毅 , 銀華強(qiáng)編著 .Visual 項(xiàng)目開發(fā)寶典 [M].北京：電子工業(yè)出版社， [4] 陳語(yǔ)林 編著 .Visual 程序設(shè)計(jì)教程 [M].北京 :中國(guó)水利水電出版社 , [5] 郝佳波等 主編 . Visual 實(shí)用教程 [M].陜西： 西安電子科技大學(xué)出版社 ， [6] 潘英 ， 陳君等譯 .Visual 專業(yè)項(xiàng)目實(shí)例開發(fā) [M].北京： 中國(guó)水利水電出版社 ， [7] 王棟 主編 . Visual Basic 課程設(shè)計(jì) [M]. 北京 :清華大學(xué)出版社， [8] 薩師煊 王珊 編 著 . 數(shù)據(jù)庫(kù)系統(tǒng)概論 [M]. 北京：高等教育出版社， [9] 王千祥 等譯 .實(shí)用軟件體系結(jié)構(gòu) [M。 系統(tǒng)的不足與前景 本系統(tǒng)雖是 C/S 型網(wǎng)絡(luò)結(jié)構(gòu)，但因?yàn)閿?shù)據(jù)庫(kù) Access 只能承受少量客戶端，系統(tǒng)的訪問量相對(duì)比較小，只能局限于網(wǎng)吧、圖書館等局域網(wǎng)中，這應(yīng)有相應(yīng)的解決方案，使其不斷得到改進(jìn)。 38 第六章：總結(jié) 本文體現(xiàn)了一個(gè)系統(tǒng)的編程規(guī)范，文章內(nèi)容涵蓋了系統(tǒng)的需求、數(shù)據(jù)庫(kù)的需求分析、系統(tǒng)設(shè)計(jì)、界面設(shè)計(jì)與及系統(tǒng)的最終實(shí)現(xiàn)。代碼如下： Private Sub BtSet_Click(ByVal sender As , ByVal e As ) Handles () End Sub 其設(shè)置窗口示意圖如圖 所示 圖 設(shè)置窗口示意圖 退出 為臨時(shí)用戶設(shè)定的退出窗口，或其他用戶不意查詢余額時(shí)可直接點(diǎn)擊使用。客戶端登錄工作流程圖如圖 所示 : 36 服 務(wù) 器 端判 斷 用 戶 余 額客 戶 端登 錄 成 功登 錄 請(qǐng) 求用 戶 確 認(rèn)余 額 充 足非 注 冊(cè) 用 戶 /密 碼 不 正 確余 額 不 足 圖 客戶端登錄流程圖 登錄模塊代碼如： 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ī)，必須點(diǎn)擊“下機(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è)定的一個(gè)功能。 圖 客戶端登錄圖 登錄 在輸入用戶名、密碼后，向服務(wù)器端發(fā)送連接請(qǐng)求的功能模塊。即時(shí)支持客戶的工作，滿足客戶使用時(shí)各種需求。如按網(wǎng)吧編號(hào)修改 /刪除計(jì)算機(jī)信息，是在窗體加載時(shí)，設(shè)置按網(wǎng)吧編號(hào)為第一選項(xiàng)，然后進(jìn)入界面修改 /刪除其計(jì)算機(jī)信息。修改 /刪除計(jì)算機(jī)信息功能都是按網(wǎng)吧編號(hào)、按配置和按機(jī)算機(jī)名稱修改 /刪除計(jì)算機(jī)信息。 圖 添加計(jì)算機(jī)信息圖 修改 /刪除計(jì)算機(jī)信息 這兩個(gè)模塊在功能、操作方法上大致相同。 具體操作：“計(jì)算機(jī)信息管理”→“添加計(jì)算機(jī)信息”命令，將彈出“添加計(jì)算機(jī)信息”窗口，包括計(jì)算機(jī)名稱、機(jī)位編號(hào)、網(wǎng)吧編號(hào)、計(jì)算機(jī)配置，所有信息輸入結(jié)束，點(diǎn)“確定”保存。如按用戶類型修改 /刪除用戶信息，是在窗體加載時(shí)，設(shè)置用戶類型為第一選項(xiàng)，然后進(jìn)入界面修改/刪除其用戶信息。修改 /刪除用戶信息功能都是按用戶類型、按用戶姓名或按用戶賬號(hào)方式修改 /刪除用戶信息。 31 圖 添加用戶信息圖 修改用戶信息、刪除用戶信息 這兩個(gè)模塊在功能、操作方法 上大致相同，操作員經(jīng)過這兩個(gè)功能模塊可以即時(shí)對(duì)用戶信息進(jìn)行修改 /刪除，從而保證用戶的各類需求或更正操作員之前的操作失誤。操作過程需要輸入用戶的詳細(xì)信息，輸入完畢后，“確定”按鈕可以將用戶信息插入到數(shù)據(jù)庫(kù)中，此功能主要是記錄用戶的詳細(xì)信息。 30 圖 查詢用戶費(fèi)用圖 添加用戶信息 操作過程：“用戶信息管理”→“添加用戶信息”命令，將彈出“添加用戶信息”窗口，輸入賬號(hào) aa110，包括密碼、用戶類型、用戶姓名、備注等信息，確認(rèn)賬號(hào)將示意當(dāng)前賬號(hào)在本系統(tǒng)的可用性。 具體操作：“用戶信息管理”→“查詢用戶費(fèi)用”命令，將彈出“查詢費(fèi)用窗口”，輸入用戶 maomao，點(diǎn)確定，將會(huì)在界面的列表中顯示該用戶所有的費(fèi)用記錄，包括本次使用計(jì)算機(jī)，登錄時(shí)間，下機(jī)時(shí)間信息。填寫信 息后按保存完成充值操作。 28 圖 鎖定屏幕圖 用戶充值 操作員在使用此功能時(shí)，先輸入用戶名，點(diǎn)擊“讀取”就可讀取用戶的真實(shí)姓名和 余額信息，確認(rèn)輸入的用戶是正確的，再輸入本次充值的金額，“保存”更新用戶賬號(hào)上的余額信息。 具體操作：“操作員管理” →“鎖定屏幕”命令，程序的窗口將會(huì)被隱藏，彈出鎖定屏幕的窗口，在這里輸入密碼，又可重返主窗口。 27 圖 設(shè)置上機(jī)費(fèi)率圖 具體代碼如： Private Sub BtOK_Click(ByVal sender As , ByVal e As ) Handles Dim TempFeeRules As New ClsFeeRules = 臨時(shí)用戶 = Val() () = 普通用戶 = Val() () = 銀卡用戶 = Val() () = 金卡用戶 = Val() () End Sub 鎖定屏幕 該功能是當(dāng)操作員需要外出，系統(tǒng)不能關(guān)閉時(shí)，防止他人的非法操作系統(tǒng)。完成并保存到數(shù)據(jù)庫(kù)。 具體操作：“操作員管理”→“設(shè)置上機(jī)費(fèi)率”命令，彈出“設(shè)置上機(jī)費(fèi)率”窗口。 圖 修改密碼界面圖 修改密碼時(shí)，需要判斷操作員的舊密碼是否正確，并判斷操作員兩次輸入的新密碼是否一致，這就防止操作員輸入錯(cuò)誤密碼，而將其添加到數(shù)據(jù)庫(kù)。如圖 所示 圖 刪除操作員信息圖 修改密碼 修改用戶密碼是所用操作 員都具有的功能，操作員在輸入舊密碼，以及重復(fù)輸入新密碼，就可能修改操作員密碼。工作流程如圖 所示。 雙擊“保存”按鈕的 Click 事件，編寫代碼如下： Private Sub BtOK_Click(ByVal sender As , ByVal e As ) Handles If Trim() = Then MsgBox(輸入的用戶真實(shí)姓名不能為空！ , , 信息框 ) Exit Sub End If If Trim() = Then 24 MsgBox(輸入的密碼不能為空！ , , 信息框 ) Exit Sub End If () Dim TempUser As New ClsSuperUser(, ) = Trim() = Trim() = Trim() = Trim() (TempUser) End Sub 刪除操作員 只有超級(jí)用戶才具有的刪除功能。 用戶信息，然后再添加該用戶的信息。 圖 修改操作員信息圖 這里需要判斷用戶的真實(shí)姓名和密碼不能為空，對(duì)用戶輸入的信息合法性驗(yàn)證通過以后，需要對(duì)信息進(jìn)行處理。所編輯操作員對(duì)用戶 /計(jì)算機(jī)信息模塊的權(quán)限分為 3種：無(wú)權(quán)限、可讀和可讀寫。 圖 添加操作員圖 添加操作員功能只能由超級(jí)用戶添加，這個(gè)設(shè)計(jì)就能使系統(tǒng)管理不混亂，保障系統(tǒng)安全性，判斷“ 添加操作員”操作權(quán)限工作流程如圖 所示。所添加操作員對(duì)用戶 /計(jì)算機(jī)信息模塊的權(quán)限分為 3種：無(wú)權(quán)限、可讀和可讀寫。工作流程圖 所示 20 登 錄 界 面輸 入 用 戶 名 、 密 碼 和 附 加驗(yàn) 證 碼登 錄 成 功是是驗(yàn) 證 碼 是 否 正 確否用 戶 名 和 密 碼 是 否 正 確否 圖 登錄流程圖 根據(jù)以上流程，雙擊窗體上的“確定”按鈕，打開代碼編輯器，在按鈕的Click 事件中添加如下代碼： Private Sub OK_Click(ByVal sender As , ByVal e As ) Handles If = Then NewSuperUser = New ClsSuperUser(Trim(), ) If Then Dim Frmobj As New FrmMain() () 39。 圖 服務(wù)端登錄圖 設(shè)計(jì)過程，系統(tǒng)首先需要判斷輸入附加驗(yàn)證碼是否正確。 服務(wù)器端登錄 進(jìn)入系統(tǒng)，首先是登錄界 面，而登錄功能是任何一個(gè)數(shù)據(jù)庫(kù)信息管理系統(tǒng)不可少的模塊，設(shè)計(jì)如圖 所示，用戶需要輸入用戶名，密碼和附加碼。 公共模塊 首先在服務(wù)器端程序的公共模塊中添加以下代碼，運(yùn)行系統(tǒng)登錄窗口： Sub Main ( ) ( ) ( ) ( New FrmLogin) End Sub 服務(wù)器端的實(shí)現(xiàn) 服務(wù)器端主界面分為 4 部分：主菜單、工具欄、廣播消息面板和客戶端顯示板。 StreamReader 類常用方法、屬性及其說明 ，如表 所示： 方法 說明 Close 關(guān)閉 StreamReader并釋放與閱讀器關(guān)聯(lián)的所有系統(tǒng)資源 DiscardBufferedData 允許 StreamReader丟棄其當(dāng)前數(shù)據(jù) Peek 返回下一個(gè)可用的字符，但不使用它 Read 讀取輸入流中的下一個(gè)字符或下一組字 符 ReadBlock 從當(dāng)前流中讀取最大數(shù)量的字符并從索引開始將該數(shù)據(jù)寫入緩沖區(qū) ReadLine 從當(dāng)前流中讀取一行字符并將數(shù)據(jù)作為字符串返回 ReadToEnd 從流的當(dāng)前位置到末尾讀取流 表 StreamReader 類中常用的方法及其說明 表 18 StreamWriter 類 StreamWriter 類能夠?qū)崿F(xiàn)對(duì)基礎(chǔ)數(shù)據(jù)流的寫操作，從而實(shí)現(xiàn)提供基礎(chǔ)數(shù)據(jù)流來傳送數(shù)據(jù)。 ） 屬性 說明 CanRead 獲取當(dāng)前流是否支持讀取 CanSeek 獲取流是否支持查找。 在 程序設(shè)設(shè)計(jì)過程中，經(jīng)常 利用 NetworkStream 作為傳送 （ StreamWriter 類） 和接收 （ StreamRea