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