【正文】 客戶端的 Socket 對(duì)象進(jìn)行通信。 TcpListener 主要用以偵聽端口號(hào)，并接收遠(yuǎn)程主機(jī)的 TCP連接申請(qǐng) ； TcpClient 主要用以提出 TCP 連接申請(qǐng) ； 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ù)。 主菜單可以對(duì)系統(tǒng)的操作員信息，用戶信息和計(jì)算機(jī)信息進(jìn)行管理；工具欄為用戶提供了一些操作的快捷方式；廣播消息可以向用戶發(fā)送文本消息和關(guān)機(jī)等命令；客戶端的連接情況則經(jīng)顯示面板顯示。根據(jù)用戶選中的用戶名，構(gòu)造用戶信息表中查詢相應(yīng)用戶的信息，將這些信 息顯示在界面上。如圖 所示。如圖 、圖 所示 32 圖 修改用戶 信息圖 圖 刪除用戶信息圖 33 添加計(jì)算機(jī)信息 添加計(jì)算機(jī)信息時(shí)，操作員需要輸入計(jì)算名稱、（ MAC 地址）、機(jī)位編號(hào)、網(wǎng)吧編號(hào)、計(jì)算機(jī)配置、備注等信息，在添加輸入完畢后，點(diǎn)擊“確定”可向數(shù)據(jù)庫添加計(jì)算機(jī)信息。體現(xiàn)了系統(tǒng)的快捷性能。在其登錄成功后，客戶端窗口最小化，并以托盤圖標(biāo)顯示在窗口的右下角，當(dāng)用戶點(diǎn)擊托盤時(shí)，需要重新顯示客戶端界面。使系統(tǒng)更加人工智能化。如圖 所示。編輯操作員設(shè)計(jì)圖如圖 所示。該屬性總是返回 false CanWrite 獲取當(dāng)前流是否支持寫入 DataAvailable 獲取是否可以在流上讀取數(shù)據(jù) Length 流上可用數(shù)據(jù)的長度 Position 獲取或設(shè)置流中的當(dāng)前位置 表 NetworkStream 類中屬性及其說明 表 StreamReader 類 StreamReader 類能夠?qū)崿F(xiàn)對(duì)基礎(chǔ)數(shù)據(jù)流的讀操作，從而實(shí)現(xiàn)對(duì)經(jīng)過基礎(chǔ)數(shù)據(jù)流傳送來的數(shù)據(jù)。網(wǎng)絡(luò)中 TCP 應(yīng)用，如同日常生活中的打電話，在通話之前，首先要撥號(hào)、震鈴（猶如發(fā)送方向接收方提出 TCP 連接申請(qǐng)，并等待 TCP 連接申請(qǐng)通過）。如表 所示 字段名 意義 字段類型 字段大小 關(guān)鍵字 ComputerName 計(jì)算機(jī)名稱 文本 17 是 UserName 用戶名 文本 10 Connected 是否連接 文本 1 IPAddress IP地址 文本 15 RoomNo 網(wǎng)吧編號(hào) 文本 2 PositionNo 機(jī)位編號(hào) 文本 3 12 Config 配置 文本 50 Memo 備注 備注 表 計(jì)算機(jī)信息表 設(shè)計(jì)完成后 ,保存信息為“ tbCompter”，為了檢驗(yàn)數(shù)據(jù)庫設(shè)計(jì)的合理性及測(cè)試程序的效果，應(yīng)先在數(shù)據(jù)庫中輸入一些數(shù)據(jù)，如圖 所示 圖 計(jì)算機(jī)信息表圖 4. 用戶費(fèi)用信息表： 包括的數(shù)據(jù)字段有：用戶名、登錄時(shí)間，下機(jī)時(shí)間、本次上機(jī)時(shí)間、本次上機(jī)費(fèi)用、計(jì)算機(jī)的房間編號(hào) +機(jī)位編號(hào)。 前端界面包括服務(wù)器端的前界端面和客戶端的前端界面，服務(wù)器端的前端界面面向操作員，客戶端的前端界面面向計(jì)算機(jī)用戶。而并不是簡單的在 Visual Basic 上在添加一些新特性而已，微軟重新設(shè)計(jì)了產(chǎn)品以便使開發(fā)者能夠更加容易的開發(fā)分布式應(yīng)用，例如基于 WEB 的程序以及多層系統(tǒng)。這類情況一再發(fā)生，就會(huì)在管理人員精神上帶來越來越大的壓力。 Access 的數(shù)據(jù)庫對(duì)象都具有屬性和方法等面向?qū)ο蠹夹g(shù)的基本特征。登錄信息要求以網(wǎng)絡(luò)數(shù)據(jù)包的形式發(fā)送到“服務(wù)器端”，由“服務(wù)器端”來判斷其合法性，并反饋一個(gè)信息給客戶端，如果一切合法的話，再將桌面、任務(wù)管理器等功能解鎖，讓用戶正常使用。其次，上機(jī)過程中，每個(gè)網(wǎng)吧都需要值班人員值班，耗費(fèi)了管理人員的很多時(shí)間。 (3). 解決目前網(wǎng)吧管理中的人情免費(fèi)上機(jī)、脫逃費(fèi)問題。其實(shí)，它的機(jī)制和 Java差不多。 (4). 作為 Office 套件的一部分，可以與 Office 集成，實(shí)現(xiàn)無縫連接。計(jì)算機(jī) 一點(diǎn)一丁的入侵人類的生活，計(jì)算機(jī)管理代替人工管理是不可避免的，像網(wǎng)吧管理這類不要求在管理上創(chuàng)新，機(jī)械般管理更加完美的前提下，我選擇設(shè)計(jì)開發(fā)網(wǎng)吧計(jì)費(fèi)系統(tǒng)，希望能改善網(wǎng)吧管理上的混亂情況，也避免了管理人員的工作麻煩。在系統(tǒng)中應(yīng)設(shè)計(jì)管理模塊，根據(jù)不同的客戶設(shè)定不同的權(quán)限，體現(xiàn)了追求系統(tǒng)人工智能化，保證了只有管理員才能對(duì)整個(gè)系統(tǒng)的完全控制。設(shè)計(jì)數(shù)據(jù)庫系統(tǒng)時(shí)應(yīng)先了解用戶的各方面需求，包括現(xiàn)有系統(tǒng)的需求及將有可能增加的需求。如果程序沒有退出，進(jìn)入下一個(gè)偵聽循環(huán)，則后臺(tái)程序就實(shí)現(xiàn)了一點(diǎn)對(duì)多點(diǎn)的通信模式。 TcpListener 類 在本系統(tǒng)設(shè)計(jì)中， TcpListener 類 設(shè)計(jì)在服務(wù)器端， 主要作用是從 TCP 網(wǎng)絡(luò)客戶端偵聽連接， TcpListener 類基于 Socket 類 ， 提供更高理念級(jí)別的 TCP 服務(wù)。 服務(wù)器端登錄 進(jìn)入系統(tǒng)，首先是登錄界 面，而登錄功能是任何一個(gè)數(shù)據(jù)庫信息管理系統(tǒng)不可少的模塊，設(shè)計(jì)如圖 所示，用戶需要輸入用戶名，密碼和附加碼。 雙擊“保存”按鈕的 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í)用戶才具有的刪除功能。 28 圖 鎖定屏幕圖 用戶充值 操作員在使用此功能時(shí)，先輸入用戶名，點(diǎn)擊“讀取”就可讀取用戶的真實(shí)姓名和 余額信息，確認(rèn)輸入的用戶是正確的，再輸入本次充值的金額，“保存”更新用戶賬號(hào)上的余額信息。 具體操作：“計(jì)算機(jī)信息管理”→“添加計(jì)算機(jī)信息”命令，將彈出“添加計(jì)算機(jī)信息”窗口，包括計(jì)算機(jī)名稱、機(jī)位編號(hào)、網(wǎng)吧編號(hào)、計(jì)算機(jī)配置，所有信息輸入結(jié)束，點(diǎn)“確定”保存。 38 第六章：總結(jié) 本文體現(xiàn)了一個(gè)系統(tǒng)的編程規(guī)范，文章內(nèi)容涵蓋了系統(tǒng)的需求、數(shù)據(jù)庫的需求分析、系統(tǒng)設(shè)計(jì)、界面設(shè)計(jì)與及系統(tǒng)的最終實(shí)現(xiàn)。 圖 客戶端登錄圖 登錄 在輸入用戶名、密碼后，向服務(wù)器端發(fā)送連接請(qǐng)求的功能模塊。 31 圖 添加用戶信息圖 修改用戶信息、刪除用戶信息 這兩個(gè)模塊在功能、操作方法 上大致相同，操作員經(jīng)過這兩個(gè)功能模塊可以即時(shí)對(duì)用戶信息進(jìn)行修改 /刪除，從而保證用戶的各類需求或更正操作員之前的操作失誤。完成并保存到數(shù)據(jù)庫。所編輯操作員對(duì)用戶 /計(jì)算機(jī)信息模塊的權(quán)限分為 3種：無權(quán)限、可讀和可讀寫。 ） 屬性 說明 CanRead 獲取當(dāng)前流是否支持讀取 CanSeek 獲取流是否支持查找。在網(wǎng)絡(luò)中通過 TCP 協(xié)議傳送數(shù)據(jù)之前，發(fā)送方和接收方之間必須建立連接，這種連接就是所謂的 握手 。其中計(jì)算機(jī)名稱是關(guān)鍵字段。（如圖 所示） 8 計(jì) 算 機(jī) 信 息 管 理添 加 計(jì) 算 機(jī) 信 息修 改 計(jì) 算 機(jī) 信 息刪 除 計(jì) 算 機(jī) 信 息按 機(jī) 房 編 號(hào)按 配 置按 計(jì) 算 機(jī) 名 稱按 機(jī) 房 編 號(hào)按 配 置按 計(jì) 算 機(jī) 名 稱 圖 計(jì)算機(jī)信息管理模塊圖 系統(tǒng)設(shè)計(jì)的類結(jié)構(gòu) 本系統(tǒng)代碼結(jié)構(gòu)分為前端界面和底層的類代碼。 系統(tǒng)設(shè)計(jì)的思想 (1). 系統(tǒng)設(shè)計(jì)結(jié)構(gòu) 基于網(wǎng)吧計(jì)費(fèi)系統(tǒng)的綜合性，而且為了滿足多方使 用的需求，本系統(tǒng)以 c/s 的框架結(jié)構(gòu)為基本結(jié)構(gòu)模式：（如圖 所示） 服 務(wù) 器機(jī) 房 計(jì) 費(fèi) 系 統(tǒng)數(shù) 據(jù) 庫數(shù)據(jù)查詢返回結(jié)果 圖 系統(tǒng)結(jié)構(gòu)圖 (2). 系統(tǒng)實(shí)現(xiàn)技術(shù) 系統(tǒng)實(shí)現(xiàn)所需開發(fā)環(huán)境 Visual ，它 是下一代的 Visual Basic。也可以說是網(wǎng)吧現(xiàn)象中的一部分，這類情況給管理人員帶來很大的麻煩，逃費(fèi)和計(jì)費(fèi)錯(cuò)誤會(huì)給網(wǎng)吧管人員在財(cái)力帶來損失或誤會(huì)，人情上機(jī)會(huì)給管理人員帶來生活中尷尬的煩惱。Access 本身就是一個(gè)采用面向?qū)ο蠹夹g(shù)開發(fā)的數(shù)據(jù)庫系統(tǒng)軟件，它能很好地支持面向?qū)ο蠹夹g(shù)。 客戶端 首先要求將客戶端的桌面、任務(wù)管理器、系統(tǒng)狀態(tài)欄等系統(tǒng)功能鎖定，桌面上只有客戶登錄 程序界面，要求用戶輸入用戶代碼和密碼進(jìn)行登錄。首先，人工計(jì)時(shí)收費(fèi)是非常繁瑣的一項(xiàng)工作，耗費(fèi)人力物力 ， 而且極容易出錯(cuò)；最后的統(tǒng)計(jì)工作更是 一項(xiàng) 費(fèi)時(shí)費(fèi)力的苦差事 ，甚至不能統(tǒng)計(jì)。 研究內(nèi)容 利用 、 Access2021 等開發(fā)工具開發(fā)一套基于 c/s 框架結(jié)構(gòu)的網(wǎng)吧計(jì)費(fèi)系統(tǒng)軟件 , 該系 統(tǒng)要求由服務(wù)端、客戶端 2個(gè)模塊組成。 的語言特點(diǎn)有下： (1). 代碼托管。 (5). 能夠利用 Web 檢索和發(fā)布數(shù)據(jù)，實(shí)現(xiàn)與 Inter 的連接。使用網(wǎng)吧計(jì)費(fèi)系統(tǒng)優(yōu)于人工管理在于： (1).管理人員的工作量。 系統(tǒng)功能描述 5 對(duì)系統(tǒng)的功能進(jìn)行分析 ,綜合本系統(tǒng)設(shè) 計(jì)的服務(wù)器端與客戶端 ,總結(jié)整個(gè)系統(tǒng)功能模塊 ,如圖 所示 機(jī) 房 計(jì) 費(fèi) 系 統(tǒng)服 務(wù) 器 端 客 戶 端操作員登錄計(jì) 算 機(jī) 信 息 管 理用 戶 信 息 管 理操 作 員 管 理添加計(jì)算機(jī)信息修改計(jì)算機(jī)信息添加用戶信息查詢用戶費(fèi)用用戶充值刪除用戶信息設(shè)置上機(jī)費(fèi)用操作員管理修改密碼刪除計(jì)算機(jī)信息修改計(jì)算機(jī)信息上 機(jī) 計(jì) 費(fèi) 圖 系統(tǒng)功能模塊圖 本系統(tǒng)要求對(duì)用戶使用網(wǎng)吧計(jì)算機(jī)資源的整個(gè)過程進(jìn)行有效的管理。 數(shù)據(jù)庫的需求分析 用戶的需求具體體現(xiàn)在各種信息的提供、保存、更新、和查詢，這就要求數(shù)據(jù)庫存結(jié)構(gòu)能充分滿足各種信息的輸入和輸出。 偵 聽 客 戶 端 傳 入 的 連 接 請(qǐng) 求接 受 客 戶 端 傳 入 的 連 接 請(qǐng) 求實(shí) 例 化 S o c k e t 對(duì) 象 用 于 與 客 戶 端 通 信退 出 偵 聽是否程 序 是 否 退 出 圖 后臺(tái)程序工作流程圖 服務(wù)器端與客戶端的具體通信過程如圖 所示。可以使用TcpListener 從 TCP 客戶端偵聽連接。如果該界面判斷用戶名、密碼和附加碼都正確有效，系統(tǒng)將會(huì)進(jìn)入到主界面。首先要判斷用戶類型是否為超級(jí)用戶，然后再判斷所選中刪除的是否是超級(jí)用戶（超級(jí)用戶是不能被刪除的），最后更新界面的用戶信息列表。如圖 所示： 圖 用戶充值圖 “讀取”功能代碼： Private Sub BtnRead_Click(ByVal sender As , ByVal e As ) Handles If Trim() = Then MsgBox(請(qǐng)輸入用戶名！ , , ) 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(請(qǐng)輸入用戶名！ , , ) Exit Sub End If Dim TempU