【正文】 34 圖 修改計(jì)算機(jī)信息圖 圖 刪除計(jì)算機(jī)信息圖 35 客戶端登錄 客戶端是獲取用戶的用戶名和密碼的窗口，界面設(shè)計(jì)有：用戶名、密碼輸入，四個(gè)控件：登錄、下機(jī)、設(shè)置、退出。如圖 、圖 所示 32 圖 修改用戶 信息圖 圖 刪除用戶信息圖 33 添加計(jì)算機(jī)信息 添加計(jì)算機(jī)信息時(shí)，操作員需要輸入計(jì)算名稱、（ MAC 地址）、機(jī)位編號、網(wǎng)吧編號、計(jì)算機(jī)配置、備注等信息，在添加輸入完畢后，點(diǎn)擊“確定”可向數(shù)據(jù)庫添加計(jì)算機(jī)信息。所有信息輸入結(jié)束，點(diǎn)“確定”保存。如圖 所示。圖 所示為修改密碼工作流程圖 26 用 戶輸 入 新 密 碼修 改 成 功是是密 碼 是 否 正 確否新 密 碼 與 檢 驗(yàn) 密 碼是 否 一 致否 圖 修改密碼工作流程圖 設(shè)置上機(jī)費(fèi)率 設(shè)置上機(jī)費(fèi)率是超級用戶特有的功能，可以根據(jù)不同的客戶類型，設(shè)定不同的上機(jī)費(fèi)率 ，在這里設(shè)計(jì)為臨時(shí)用戶、普通用戶、銀卡用戶、金卡用戶，不同類型的客戶，不同上機(jī)費(fèi)率也不同。根據(jù)用戶選中的用戶名，構(gòu)造用戶信息表中查詢相應(yīng)用戶的信息，將這些信 息顯示在界面上。添加操作員設(shè)計(jì)圖如圖 所示。 主菜單可以對系統(tǒng)的操作員信息，用戶信息和計(jì)算機(jī)信息進(jìn)行管理；工具欄為用戶提供了一些操作的快捷方式；廣播消息可以向用戶發(fā)送文本消息和關(guān)機(jī)等命令；客戶端的連接情況則經(jīng)顯示面板顯示。它主要是網(wǎng)絡(luò)數(shù)據(jù)傳輸?shù)妮d體，并提供同步、異步方式來訪問網(wǎng)絡(luò)數(shù)據(jù)流。 TcpListener 主要用以偵聽端口號，并接收遠(yuǎn)程主機(jī)的 TCP連接申請 ； TcpClient 主要用以提出 TCP 連接申請 ； NetworkStream類是實(shí)現(xiàn) TCP數(shù)據(jù)傳輸?shù)幕A(chǔ)數(shù)據(jù)流 ； StreamReader類 的 作用是通過操作 NetworkStream，實(shí)現(xiàn)從網(wǎng)絡(luò)接收數(shù)據(jù) ； StreamWriter 類 的 作用是通過操作 NetworkStream，實(shí)現(xiàn)向網(wǎng)絡(luò)16 傳輸數(shù)據(jù)。 服 務(wù) 器 端客 戶 端請求連接信息接受請求再次連接信息確認(rèn)再次連接信息登錄/注銷/連接確認(rèn)同步信息 圖 服務(wù)器端與客戶端的 完整通信過程圖 中的通信類 TCP 協(xié)議是 TCP/IP 協(xié)議簇中的傳輸層中的一個(gè)協(xié)議，也是 TCP/IP 協(xié)議簇最為重要的協(xié)議之一。當(dāng)客戶端傳入一個(gè)連接請求時(shí)，后臺(tái)程序?qū)⒔邮茉撜埱?，同時(shí)實(shí)例化一個(gè) Socket 對象負(fù)責(zé)與該客戶端的 Socket 對象進(jìn)行通信。如圖 所示： 圖 操作員信息表圖 2. 用戶信息表： 包括的數(shù)據(jù)字段有：用戶名、密碼、用戶真實(shí)姓名、用戶類型、賬號余額、出生日期、聯(lián)系電話、有效日期、證件類型、證件號碼、住址、郵編、備注。數(shù)據(jù)庫的設(shè)計(jì)目的在于提供高的數(shù)據(jù)庫存儲(chǔ)效率，保證數(shù)據(jù)庫的完整性和一致性。這里要區(qū)分不同的用戶類型，按不同的用戶類型設(shè)置上機(jī)費(fèi)用。 (3). 系統(tǒng)的安全性 為了使系統(tǒng)能夠在使用的過程中，用戶利益得到保障。 (2). 系統(tǒng)應(yīng)具有良好的穩(wěn)定性，實(shí)用性，安全性。 系統(tǒng)優(yōu)點(diǎn) 綜上 所述，人工管理網(wǎng)吧實(shí)在存在很大的問題，而且浪費(fèi)太多的人力，物力。因而對于任何一款軟件來說，做好它的根本在于它的需求分析。 (3). 可以方便地生成各種數(shù)據(jù)對象，利用存儲(chǔ)的數(shù)據(jù)建立窗體和報(bào)表，可視性好。 (4). 程序代碼結(jié)構(gòu)化更強(qiáng)，開發(fā)環(huán)境舒適體貼。 的版本號是 Visual Basic ， 它 的 運(yùn) 行 是 建 立 在CLR(Common Language Runtime) 和MSIL(Microsoft Intermediate Language)虛擬器上的。檢測通過后產(chǎn)生一條用戶上機(jī)記錄，記錄下計(jì)算機(jī)代碼、卡號、登錄開始時(shí)間等信息。 (2). 增加網(wǎng)吧的開放時(shí)間，提高設(shè)備的利用率 。文中主要介紹了系統(tǒng)的基本功能和系統(tǒng)結(jié)構(gòu)組成情況，內(nèi)容包括系統(tǒng)需求分析、系統(tǒng)設(shè)計(jì)原則、系統(tǒng)設(shè)計(jì)思想、系統(tǒng)功能模塊描述、數(shù)據(jù)庫設(shè)計(jì)、系統(tǒng)通信 過程、通信協(xié)議等，同時(shí)還對開發(fā)環(huán)境 Visual 、Access 2021 數(shù)據(jù)庫、 Visual 技術(shù)的使用進(jìn)行簡單介紹，并列出了一些程序代碼以說明該系統(tǒng)應(yīng)用程序設(shè)計(jì)的實(shí)現(xiàn)過程。隨著計(jì)算機(jī)各種外圍設(shè)備技術(shù)的發(fā)展，以上工作 通過 計(jì)算機(jī)就可以很方便地實(shí)現(xiàn)。這里區(qū)分不同的用戶類型，按照不同用戶類型設(shè)置上機(jī)費(fèi)用等； (3). 計(jì)算機(jī)信息管理 主要包括團(tuán)體添加計(jì)算機(jī)信息、修改計(jì)算機(jī)信息、刪除計(jì)算機(jī)信息 3 個(gè)模塊?？蛻舳顺绦蛞笳Ｍ？吭谙到y(tǒng)托盤中，用戶下機(jī)時(shí)要求點(diǎn)擊此圖標(biāo)進(jìn)行下機(jī)，客戶端將下機(jī)信息發(fā)送到“服務(wù)器端”，然后重新彈出登錄界面，等待下一個(gè)用戶登錄。 (2). 強(qiáng)大的面向?qū)ο筇匦浴? 在 Access 2021 版本中， Access 使用了表格來實(shí)現(xiàn)數(shù)據(jù)的采集、維護(hù)、分析和傳播等功能，此外，它還提供了關(guān)系型數(shù)據(jù)庫所要求的相當(dāng)豐富的數(shù)據(jù)運(yùn)算和數(shù)據(jù)匯總能力。 (2). 需求分析的任務(wù)： 開發(fā)軟件系統(tǒng)最為困難的部分是準(zhǔn)確說明開發(fā)什么，最為困難的概念性工作便是編寫出詳細(xì)的技術(shù)需求，這包括所有面向用戶，面向機(jī)器和其 他軟件系統(tǒng)的接口，同時(shí)這也是一旦出錯(cuò)，將最終會(huì)給系統(tǒng)帶來極大損害的部分，并且以后再對 它 修改也極為困難的 。上機(jī)用戶有時(shí)也會(huì)因管理人員的失誤帶來不必要的麻煩。 (4).工作迅速快捷。Visual 中有兩種窗體包， Windows 窗體以及 Web 窗體；一個(gè)新版的 ADO 用于接受離線數(shù)據(jù)源；新的語言，移走了原來的關(guān)鍵字，提高 Type 數(shù)據(jù)的安全性以及提供低級別結(jié)構(gòu)以滿足高級別開發(fā)者的需求。服務(wù)器端的功能需求具體表述有： 操作員管理功能模塊 該模塊主要提供操作員登錄、操作員管理、修改密碼和設(shè)置上機(jī)費(fèi)用的功 能。底層代碼包括 ClsSuperUser 類、 ClsUser類、 ClsComputer 類、 ClsFeeRules 類、 ClsDBOperation 類、 ClsServer 類和 ClsClient類。 1. 操作員信息表 包括的數(shù)據(jù)字段有：操作員賬號、密碼、操作員真實(shí)姓名、用戶模塊、計(jì)算機(jī)模塊、備注。如表 所示 字段名 意義 字段類型 字段大小 關(guān)鍵字 UserName 用戶名 文本 10 LoginTime 登錄時(shí)間 日期 10 LogoffTime 下機(jī)時(shí)間 日期 日期 TotalHour 本次上機(jī)時(shí)間 數(shù)字 單精度 Fee 本次上機(jī)費(fèi)用 數(shù)字 單精度 Computer 計(jì)算機(jī)的房間編號 +機(jī)位編號 文本 10 表 用戶費(fèi)用信息表 5. 費(fèi)率 信息表： 包括的數(shù)據(jù)字段有：用戶類型和費(fèi)率。這樣就表現(xiàn)服務(wù)端與客戶端已成功連接。直到對方拿起電話時(shí)（發(fā)送 方和接收方的 TCP 連接已經(jīng)建立），就可以通話了（傳送數(shù)據(jù)）。 TcpClient 是類基于 Socket 類構(gòu)建，它以更高的抽象程度提供 TCP 服務(wù)。 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)對基礎(chǔ)數(shù)據(jù)流的寫操作，從而實(shí)現(xiàn)提供基礎(chǔ)數(shù)據(jù)流來傳送數(shù)據(jù)。工作流程圖 所示 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。 圖 修改操作員信息圖 這里需要判斷用戶的真實(shí)姓名和密碼不能為空，對用戶輸入的信息合法性驗(yàn)證通過以后，需要對信息進(jìn)行處理。如圖 所示 圖 刪除操作員信息圖 修改密碼 修改用戶密碼是所用操作 員都具有的功能，操作員在輸入舊密碼，以及重復(fù)輸入新密碼，就可能修改操作員密碼。 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)。 具體操作：“用戶信息管理”→“查詢用戶費(fèi)用”命令，將彈出“查詢費(fèi)用窗口”，輸入用戶 maomao，點(diǎn)確定，將會(huì)在界面的列表中顯示該用戶所有的費(fèi)用記錄，包括本次使用計(jì)算機(jī)，登錄時(shí)間，下機(jī)時(shí)間信息。修改 /刪除用戶信息功能都是按用戶類型、按用戶姓名或按用戶賬號方式修改 /刪除用戶信息。修改 /刪除計(jì)算機(jī)信息功能都是按網(wǎng)吧編號、按配置和按機(jī)算機(jī)名稱修改 /刪除計(jì)算機(jī)信息?？蛻舳说卿浌ぷ髁鞒虉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ī)，必須點(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 S