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