1、網吧計費系統目 錄摘 要I第一章 緒論11.1 選題的背景和意義11.2 研究內容11.2.1 效勞端11.2.2 客戶端11.3 系統開發技術221.3.2 Access 2003數據庫2第二章 系統設計32.1 系統需求分析32.1.1 系統需求分析32.1.2 傳統網吧管理32.1.3 系統優點32.1.4 功能需求32.2 系統的設計原那么32.3 系統設計的思想42.4 系統功能描述42.4.1 操作員管理功能模塊52.4.2 用戶管理功能模塊62.4.3 計算機管理功能模塊72.5 系統設計的類結構8第三章 數據庫設計103.1 數據庫的需求分析10第四章 通信過程與中的通信類14

2、4.1 通信過程144.2 VB.NET 中的通信類154.2.1 TcpListener類164.2.2 TcpClient類164.2.3 NetworkStream類174.2.4 StreamReader類174.2.5 StreamWriter類18第五章 系統的實現195.1 公共模塊195.2 效勞器端的實現195.2.1 效勞器端登錄195.2.2 添加操作員215.2.3 編輯操作員235.2.4 刪除操作員245.2.5 修改密碼255.2.6 設置上機費率265.2.7 鎖定屏幕275.2.8 用戶充值285.2.9 查詢費用295.2.10 添加用戶信息305.2.11

3、 修改用戶信息、刪除用戶信息315.2.12 添加計算機信息335.2.13 修改/刪除計算機信息335.3 客戶端登錄355.3.1 登錄355.3.2 下機365.3.3 設置375.3.4 退出37第六章：總結386.1 網吧計費系統的開發技術特點386.2 系統的缺乏與前景38參考文獻39致 謝40機 房 計 費 系 統 軟 件摘 要本課題研究的網吧計費系統是一款基于C/S結構，采用Access 2003 數據庫，利用Visual B設計開發的網吧計費系統。文中主要介紹了系統的根本功能和系統結構組成情況，內容包括系統需求分析、系統設計原那么、系統設計思想、系統功能模塊描述、數據庫設計、

4、系統通信過程、通信協議等，同時還對開發環境Visual B、Access 2003數據庫、Visual B技術的使用進行簡單介紹，并列出了一些程序代碼以說明該系統應用程序設計的實現過程。關鍵字 C/S 結構 Access 2003 Visual B 通信協議 ACCOUNTING SYSTEM SOFTWARE ON COMPUTER LABAbstract This thesis focus the study on computer lab accounting system which is based on C/S structure, designed and developed b

5、y Access 2003 databases and Visual B. In the article, author mainly analyzes some basic functions and composition of this system, which including system demanding analysis, system design principle, system design idea, description of functional module, Database design, processes of system communicati

6、on and agreements of communication. In addition, this thesis introduces briefly on use of Visual B, Access 2003 database, and , meanwhile, lists some programming codes to explain the realization process of this system applying the programs.Key words C/S structure, Access 2003, communication agreemen

7、t第一章 緒論1.1 選題的背景和意義隨著計算機技術的日月更新，越來越多的人們注重加強對計算機知識的學習，為了滿足學校學生或者社會學員的需求，許多網吧都紛紛對外開放，實行計時收費。但隨著上機人數的增多，網吧的管理成了一個非常困難的問題。首先，人工計時收費是非常繁瑣的一項工作，消耗人力物力，而且極容易出錯；最后的統計工作更是一項費時費力的苦差事，甚至不能統計。其次，上機過程中，每個網吧都需要值班人員值班，消耗了管理人員的很多時間。隨著計算機各種外圍設備技術的開展，以上工作通過計算機就可以很方便地實現。為了適應當前網吧管理無人化的需求，本人試圖利用自己大學所學專業知識并結合教學管理中的實際情況和其

8、它類似計費軟件的優點，開發了一套網吧收費系統軟件。本系統可以解決網吧管理中存在的幾個實際問題：(1). 減少值班人員、維護人員，降低管理人員費用，甚至可以做到網吧無需人員值 守管理。(2). 增加網吧的開放時間，提高設備的利用率。(3). 解決目前網吧管理中的人情免費上機、脫逃費問題。1.2 研究內容利用VB.NET、Access2003 等開發工具開發一套基于c/s框架結構的網吧計費系統軟件, 該系統要求由效勞端、客戶端2個模塊組成。各模塊主要實現以下功能： 效勞端(1). 操作員管理主要包括：操作用戶管理、操作員登錄、修改密碼、設置上機費用 。這其中大局部是標準數據的維護，包括新增、修改、

9、刪除、查詢等；(2). 用戶信息管理主要包括：用戶充值、查詢用戶費用、刪除用戶信息、添加用戶信息、修改用戶信息。這里區分不同的用戶類型，按照不同用戶類型設置上機費用等；(3). 計算機信息管理主要包括團體添加計算機信息、修改計算機信息、刪除計算機信息3個模塊。這里要記錄計算機本身的配置信息以及使用情況。(4). 上機計費主要負責接收客戶端程序發送來的上、下機信息，進行上、下機的處理，在處理上機登錄時要進行用戶的合法性檢測。檢測通過后產生一條用戶上機記錄，記錄下計算機代碼、卡號、登錄開始時間等信息。處理下機信息時，要記錄下此用戶下機的詳細時間。計費時要將當前使用費用記錄在上機記錄中，并在用戶的檔

10、案記錄的余額字段中扣減，還要判斷用戶的余額情況，如果余額缺乏，要及時發送一個網絡消息給用戶。 客戶端首先要求將客戶端的桌面、任務管理器、系統狀態欄等系統功能鎖定，桌面上只有客戶登錄程序界面，要求用戶輸入用戶代碼和密碼進行登錄。登錄信息要求以網絡數據包的形式發送到“效勞器端，由“效勞器端來判斷其合法性，并反應一個信息給客戶端，如果一切合法的話，再將桌面、任務管理器等功能解鎖，讓用戶正常使用。客戶端程序要求正常停靠在系統托盤中，用戶下機時要求點擊此圖標進行下機，客戶端將下機信息發送到“效勞器端，然后重新彈出登錄界面，等待下一個用戶登錄。1.3 系統開發技術 VB.net是微軟最新平臺技術，是.ne

11、t   framework   SDK的一種語言。編譯以后生成的可執行文件被稱為Assembly，即程序集。  VB.net的版本號是Visual  Basic  7.0，它的運行是建立在CLR(Common   Language   Runtime)和MSIL(Microsoft   Intermediate   Language)虛擬器上的。其實，它的機制和Java差不多。   VB.net的語言特點有下：(1). 代碼托

12、管。被托管的代碼享受.net   framework提供的平安保障和垃圾回收機制，但是這也同時說明，程序被框在Framework里面了。API變得不太方便。(2). 強大的面向對象特性。現在VB7已經是一個完全的面向對象程序。它已經支持類的各種特性：繼承，函數的覆蓋，重載，虛擬，隱藏 (3). 功能強大，程序界面更標準。(4). 程序代碼結構化更強，開發環境舒適體貼。1.3.2 Access 2003數據庫Access是Microsoft 公司推出的一款優秀的數據庫管理軟件，最適合用來作為中、小規模數據量應用軟件的底層數據庫。因為其功能強大、可靠、高效的管理方式，

13、支持網絡和多媒體技術，簡單易學，便于開發等主要特點，目前已經獲得相當廣泛的應用。Access本身就是一個采用面向對象技術開發的數據庫系統軟件，它能很好地支持面向對象技術。Access的數據庫對象都具有屬性和方法等面向對象技術的根本特征。在Access 2003版本中，Access使用了表格來實現數據的采集、維護、分析和傳播等功能，此外，它還提供了關系型數據庫所要求的相當豐富的數據運算和數據匯總能力。其主要特點如下：(1). 完善地管理各種數據庫對象，具有強大的數據組織、用戶管理、平安檢查等功能。 (2). 強大的數據處理功能，在一個工作組級別的網絡環境中，使用Access開發的多用戶數據庫管理

14、系統具有傳統的XBASEDBASE、FoxBASE的統稱數據庫系統所無法實現的客戶效勞器 (Client/Server) 結構和相應的數據庫平安機制，Access具備了許多先進的大型數據庫管理系統所具備的特征，如事務處理/出錯回滾能力等。 (3). 可以方便地生成各種數據對象，利用存儲的數據建立窗體和報表，可視性好。 (4). 作為Office套件的一局部，可以與Office集成，實現無縫連接。 (5). 能夠利用Web檢索和發布數據，實現與Internet的連接。 Access主要適用于中小型應用系統，或作為客戶機/效勞器系統中的客戶端數據庫。第二章 系統設計2.1 系統需求分析 系統需求分

15、析(1). 需求分析的定義：需求分析是對用戶需求的真正明確，是對要解決的問題的徹底理解，是一個軟件開發的最重要階段，需要了解和澄清用戶的需求 ，嚴格的制定被開發的軟件系統的需求規格說明書。(2). 需求分析的任務：開發軟件系統最為困難的局部是準確說明開發什么，最為困難的概念性工作便是編寫出詳細的技術需求，這包括所有面向用戶，面向機器和其他軟件系統的接口，同時這也是一旦出錯，將最終會給系統帶來極大損害的局部，并且以后再對它修改也極為困難的。這些定義強調的是：產品是怎樣的，而并非產品是怎樣設計構造的。之說所說到需求分析是最重要，就因為它具有決策性、方向性、策略性的作用。因而對于任何一款軟件來說，做

16、好它的根本在于它的需求分析。 傳統網吧管理網吧是隨人們生活中對計算機越來越需要而建立的，這類網吧大多存在于學校，公司，圖書館等大型公共場所，在網吧建立之初，沒有網吧計費系統的情況下，網吧的管理完全人工化。逃費，人情上機，計費錯誤等情況不可防止地出現。也可以說是網吧現象中的一局部，這類情況給管理人員帶來很大的麻煩，逃費和計費錯誤會給網吧管人員在財力帶來損失或誤會，人情上時機給管理人員帶來生活中為難的煩惱。這類情況一再發生，就會在管理人員精神上帶來越來越大的壓力。上機用戶有時也會因管理人員的失誤帶來不必要的麻煩。漸漸大家對網吧就會有一種厭反感和恐懼感。同時,在人工長期使用,會形成大量的數據,這些數

17、也會使得數據管理上的混亂。 系統優點 綜上所述，人工管理網吧實在存在很大的問題，而且浪費太多的人力，物力。計算機一點一丁的入侵人類的生活，計算機管理代替人工管理是不可防止的，像網吧管理這類不要求在管理上創新，機械般管理更加完美的前提下，我選擇設計開發網吧計費系統，希望能改善網吧管理上的混亂情況，也防止了管理人員的工作麻煩。使用網吧計費系統優于人工管理在于：(1).管理人員的工作量。(2).計費準確無誤。(3).防止人情上機的為難。(4).工作迅速快捷。 功能需求 網吧計費系統的主要功能有：(1). 效勞端包括操作員管理，用戶信息管理，計算機信息管理(2). 客戶端用戶使用計算機的所有情況(3)

18、. 系統數據的初始化，查詢，修改，刪除。2.2 系統的設計原那么根據系統的需求分析，計費系統屬于網絡，計算機使用費用，作息管理及數據庫于一體的綜合性系統，因而，網吧計費系統在總體設計時應遵循以下原那么上：(1). 系統的功能設計完善性，滿足多方的使用需求。(2). 系統應具有良好的穩定性，實用性，平安性。設計理念應是客戶容易使用。(3). 數據庫結構設計合理，各類屬性符合要求。2.3 系統設計的思想(1). 系統設計結構 基于網吧計費系統的綜合性，而且為了滿足多方使用的需求，本系統以c/s的框架結構為根本結構模式：如圖2.1所示 圖2.1 系統結構圖(2). 系統實現技術系統實現所需開發環境，

19、它是下一代的Visual Basic。而并不是簡單的在Visual Basic 6.0上在添加一些新特性而已，微軟重新設計了產品以便使開發者能夠更加容易的開發分布式應用，例如基于WEB的程序以及多層系統。Visual Basic.NET中有兩種窗體包，Windows窗體以及Web窗體；一個新版的ADO用于接受離線數據源；新的語言，移走了原來的關鍵字，提高Type數據的平安性以及提供低級別結構以滿足高級別開發者的需求。這些新的特性為Visual Basic開發者提供了新的開發窗口：通過Web窗體以及ADO.NET，你可以快速開發可擴展的Web站點

20、；通過繼承，該語言實現了真正的支持面向對象編程object-oriented programming；Windows窗體本身支持可視繼承；現在展開程序就像拷貝可執行文件和控件到另一個目錄那樣簡單。 Visual Basic.NET現在完全集成在其它的Microsoft Visual Studio .NET語言中，不僅可以通過不同的語言開發組件，而且通過交叉語言繼承，可以從用一種語言編寫的類中派生用另一種語言編寫的類。 (3). 系統的平安性 為了使系統能夠在使用的過程中，用戶利益得到保障。在系統中應設計管理模塊，根據不同的客戶設定不同

21、的權限，表達了追求系統人工智能化，保證了只有管理員才能對整個系統的完全控制。2.4 系統功能描述 圖2.2 系統功能模塊圖 本系統要求對用戶使用網吧計算機資源的整個過程進行有效的管理。客戶端保證用戶在登錄系統前無法使用計算機。效勞器端實現系統的各種功能，包括系統管理、用戶、計算機信息的管理功能。效勞器端的功能需求具體表述有： 操作員管理功能模塊該模塊主要提供操作員登錄、操作員管理、修改密碼和設置上機費用的功能。操作員管理具體包括添加、編輯和刪除操作員，能夠按模塊的方式設置操作員不同的權限。如圖2.3所示 圖2.3 操作員管理模塊圖 用戶管理功能模塊該模塊主要提供用戶充值、添加、查詢、修改和刪除

22、用戶信息的功能。這里要區分不同的用戶類型，按不同的用戶類型設置上機費用。如圖2.4所示 圖2.4 用戶信息管理模塊圖 計算機管理功能模塊該模塊主要提供添加、修改和刪除計算機信息功能。這里不僅需要記錄計算機本身的配置信息，還需要記錄計算機的連接和使用情況。如圖2.5所示圖2.5 計算機信息管理模塊圖2.5 系統設計的類結構本系統代碼結構分為前端界面和底層的類代碼。 圖2.6 系統代碼結構設計圖第三章 數據庫設計數據庫設計是信息管理系統中的一個根底工作，在整個開發工作中占有相發重要的份量。數據庫的設計目的在于提供高的數據庫存儲效率，保證數據庫的完整性和一致性。設計數據庫系統時應先了解用戶的各方面需

23、求，包括現有系統的需求及將有可能增加的需求。3.1 數據庫的需求分析 用戶的需求具體表達在各種信息的提供、保存、更新、和查詢，這就要求數據庫存結構能充分滿足各種信息的輸入和輸出。收集根本數據、數據結構以及數據處理的流程，組成一份詳盡的數據字典，是系統設計的根本。 基于計費系統的需求，通過業務流程和數據流程的分析，需設計以下數據表和數據字段。1. 操作員信息表字段名意義字段類型字段大小關鍵字UserName操作員賬號文本6是Password密碼文本10RealName操作員真實姓名文本10ModUser用戶模塊文本3ModComputer計算機模塊文本3Memo備注備注表3.1 操作員信息表設計

24、完成后,保存信息為“tbSuperUser，為了在程序中檢驗數據庫存的合理性以及測試程序的效果，應在數據庫中輸入一些數據。如圖3.1所示：圖3.1 操作員信息表圖2. 用戶信息表：字段名意義字段類型字段大小關鍵字UserName用戶名文本6是Password密碼文本10RealName用戶真實姓名文本10Group用戶類型文本3Fee賬號余額數字單精度BirthDate出生日期日期Phone聯系 文本20ValidDate有效日期日期CreateCarDate創立日期日期CertificateType證件類型文本10CertificateNo證件號碼文本20Address住址文本50PostC

25、ode 文本6Memo備注備注表3.2 用戶信息表設計完成后,保存信息為“tbUser 圖3.2 用戶信息表圖3. 計算機信息表：字段名意義字段類型字段大小關鍵字ComputerName計算機名稱文本17是UserName用戶名文本10Connected是否連接文本1IPAddressIP地址文本15RoomNo網吧編號文本2PositionNo機位編號文本3Config配置文本50Memo備注備注表3.3 計算機信息表設計完成后,保存信息為“tbCompter圖3.3 計算機信息表圖4. 用戶費用信息表：字段名意義字段類型字段大小關鍵字UserName用戶名文本10LoginTime登錄時間

26、日期10LogoffTime下機時間日期日期TotalHour本次上機時間數字單精度Fee本次上機費用數字單精度Computer計算機的房間編號+機位編號文本10表3.4 用戶費用信息表5. 費率信息表：字段名意義字段類型字段大小關鍵字Group用戶類型文本10是Amount費率數字單精度表3.5 用戶費率信息表圖3.4 用戶費率信息表圖第四章 通信過程與4.1 通信過程網吧計費系統有異于其它信息管理系統，它的工作原理如圖4.1所示，因此效勞器端與客戶端機器通信就必然會采用異步通信的方式，在主程序啟動后，程序在后臺同時啟動別一個線程，通過Socket對象開始偵聽客戶端。當客戶端傳入一個連接請求

27、時，后臺程序將接受該請求，同時實例化一個Socket對象負責與該客戶端的Socket對象進行通信。如果程序沒有退出，進入下一個偵聽循環，那么后臺程序就實現了一點對多點的通信模式。 效勞器端與客戶端的具體通信過程如圖4.2所示。具體工作流程先是客戶端發出連接請求，正常情況，效勞器端必定接受請求。客戶端再發送一個連接信息，該信息包含客戶端機器的一些信息,效勞器端將接受該信息，并對其進行相應處理，再回發一個確認信息給客戶端。這樣就表現效勞端與客戶端已成功連接。此時，客戶端發送登錄信息，或在登錄成功后，間期性發送連接信息，或在下機時發送注銷信息，同時效勞器端對這些信息進行相應處理，并反應客戶端。這就是

28、一個完整的客戶端與效勞器端的通信過程。4.2 VB.NET 中的通信類TCP協議是TCP/IP協議簇中的傳輸層中的一個協議，也是TCP/IP協議簇最為重要的協議之一。TCP協議是一種面向連接的，并提供可靠的、完整的、平安的數據傳送的網絡協議。它提供可靠字節效勞的協議。在網絡中通過TCP協議傳送數據之前，發送方和接收方之間必須建立連接，這種連接就是所謂的"握手"。網絡中TCP應用，如同日常生活中的打 ，在通話之前，首先要撥號、震鈴猶如發送方向接收方提出TCP連接申請，并等待TCP連接申請通過。直到對方拿起 時發送方和接收方的TCP連接已經建立，就可以通話了傳送數據。本系統是基

29、于TCP/IP協議網絡數據傳送的。在.Net FrameWork SDK中提供了很多用以實現TCP協議或與之相關協議的類庫，現介紹在系統設計中用到的5個類，即：TcpListener類、TcpClient類、NetworkStream類、StreamReader類和StreamWriter類。TcpListener主要用以偵聽端口號，并接收遠程主機的TCP連接申請；TcpClient主要用以提出TCP連接申請； NetworkStream類是實現TCP數據傳輸的根底數據流；StreamReader類的作用是通過操作NetworkStream，實現從網絡接收數據；StreamWriter類的作用

30、是通過操作NetworkStream，實現向網絡傳輸數據。 TcpListener類在本系統設計中，TcpListener類設計在效勞器端，主要作用是從TCP網絡客戶端偵聽連接， TcpListener類基于Socket 類，提供更高理念級別的TCP效勞。可以使用TcpListener從TCP客戶端偵聽連接。像 FTP 和 這樣的應用層協議是在 TcpListener 類的根底上建立的。TcpListener類常用方法、屬性及其說明，如表4.1、表4.2所示：方法說明AcceptSocket接受掛起的連接請求AcceptTcpClient接受掛起的連接請求Pending確定是否有掛起的連接請求

31、Start開始偵聽網絡請求Stop關閉偵聽器表4.1 TcpListener類常用方法及其說明表屬性說明LocalEndpoint獲取當前TcpListener的根底EndPointActive獲取一個值，該值指示 TcpListener 是否正主動偵聽客戶端連接Server獲取根底網絡Socket表4.2 TcpListener類常用屬性及其說明表 TcpClient類在本系統設計中，TcpClient類設計在客戶端，主要為TCP網絡效勞提供客戶端連接。TcpClient是類基于Socket類構建，它以更高的抽象程度提供TCP效勞。TcpClient 提供了通過網絡連接、發送和接收數據的簡單

32、方法。TcpClient類常用方法、屬性及其說明，如表4.3、表4.4所示：方法說明Close關閉 TCP 連接Connect使用指定的主機名和端口號將客戶端連接到 TCP主機GetStream返回用于發送和接收數據的流表4.3 TcpClient類類常用方法及其說明表屬性描述LingerState有關套接字逗留時間的信息NoDelay一個值，該值在發送或接收緩沖區未滿時啟用延遲ReceiveBufferSize接收緩沖區的大小ReceiveTimeoutTcpClient在啟動后為接收數據而等待的時間長度SendBufferSize發送緩沖區的大小SendTimeout在您啟動發送操作后Tc

33、pClient將為接收確認而等待的時間長度表4.4 TcpClient類類常用屬性及其說明表 NetworkStream類NetworkStream類主要是提供用于網絡訪問的根底數據流。它主要是網絡數據傳輸的載體，并提供同步、異步方式來訪問網絡數據流。在程序設設計過程中，經常利用NetworkStream作為傳送StreamWriter類和接收StreamReader類數據的載體。NetworkStream類常用方法、屬性及其說明，如表4.5、表4.6所示：方法說明BeginRead開始異步讀者根底數據流BeginWrite開始異步寫入根底數據流Close關閉流并可選擇關閉根底套接字EndRe

34、ad結束異步讀取EndWrite結束異步寫入Flush刷新流中的數據Read從流中讀取數據Seek將流的當前位置設置為給定值SetLength設置流的長度Write將數據寫入流表4.5 NetworkStream類中常用的方法及其說明表 注:其中"BeginRead"、"EndRead"和"BeginWrite"、"EndWrite"是二對異步方法，起作用分別相當于"Read"和"Write"方法。屬性說明CanRead獲取當前流是否支持讀取CanSeek獲取流是否支持查找。

35、該屬性總是返回 falseCanWrite獲取當前流是否支持寫入DataAvailable獲取是否可以在流上讀取數據Length流上可用數據的長度Position獲取或設置流中的當前位置表4.6 NetworkStream類中屬性及其說明表 StreamReader類StreamReader類能夠實現對根底數據流的讀操作，從而實現對經過根底數據流傳送來的數據。StreamReader類常用方法、屬性及其說明，如表4.7所示：方法說明Close關閉StreamReader并釋放與閱讀器關聯的所有系統資源DiscardBufferedData允許StreamReader丟棄其當前數據Peek返回下

36、一個可用的字符，但不使用它Read讀取輸入流中的下一個字符或下一組字符ReadBlock從當前流中讀取最大數量的字符并從索引開始將該數據寫入緩沖區ReadLine從當前流中讀取一行字符并將數據作為字符串返回ReadToEnd從流的當前位置到末尾讀取流表4.7 StreamReader類中常用的方法及其說明表 StreamWriter類StreamWriter類能夠實現對根底數據流的寫操作，從而實現提供根底數據流來傳送數據。StreamWriter類常用方法及其說明，如表4.8所示：方法說明Close關閉當前的StreamWriter和根底流Flush清理當前編寫器的所有緩沖區，并使所有緩沖數據

37、寫入根底流Write寫入根底數據流WriteLine寫入重載參數指定的某些數據，后跟行結束符表4.8 StreamReader類中常用的方法及其說明表第五章 系統的實現創立系統數據庫，效勞器端程序和客戶端程序后，就可以實現運行整個系統程序。5.1 公共模塊首先在效勞器端程序的公共模塊中添加以下代碼，運行系統登錄窗口：Sub Main ( ) Application.EnableVisualStyles ( )Application.DoEvents ( )Application.Run( New FrmLogin)End Sub 5.2 效勞器端的實現效勞器端主界面分為4局部：主菜單、工具欄、

38、播送消息面板和客戶端顯示板。主菜單可以對系統的操作員信息，用戶信息和計算機信息進行管理；工具欄為用戶提供了一些操作的快捷方式；播送消息可以向用戶發送文本消息和關機等命令；客戶端的連接情況那么經顯示面板顯示。 效勞器端登錄 進入系統，首先是登錄界面，而登錄功能是任何一個數據庫信息管理系統不可少的模塊，設計如圖5.1所示，用戶需要輸入用戶名，密碼和附加碼。如果該界面判斷用戶名、密碼和附加碼都正確有效，系統將會進入到主界面。 圖5.2登錄流程圖 根據以上流程，雙擊窗體上的“確定按鈕，翻開代碼編輯器，在按鈕的Click事件中添加如下代碼： If Label.Text = TxtAttachCode.T

39、ext Then NewSuperUser = New ClsSuperUser(Trim(UsernameTextBox.Text), PasswordTextBox.Text) If NewSuperUser.LoginConfirm Then Dim Frmobj As New FrmMain() Frmobj.Show() '顯示主窗體 Me.Finalize() Else MsgBox("輸入錯誤，請重試", MsgBoxStyle.Critical, "信息框") Exit Sub End If Else MsgBox("輸

40、入錯誤，請重試", MsgBoxStyle.Critical, "信息框")ode Exit Sub End If Me.Close()End Sub 添加操作員添加操作員信息功能是超級用戶具有的功能，通過此界面設置所添加操作員的相關信息和權限設置。所添加操作員對用戶/計算機信息模塊的權限分為3種：無權限、可讀和可讀寫。添加操作員設計圖如圖5.3所示。 添加操作員功能只能由超級用戶添加，這個設計就能使系統管理不混亂，保障系統平安性，判斷“添加操作員操作權限工作流程如圖5.4所示。 圖 5.4 判斷“添加操作員操作權限流程圖雙擊“確定按鈕，編寫代碼如下： Priva

41、te Sub BtOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles If Trim(TxtName.Text) = "" Then MsgBox("輸入的用戶名不能為空！", MsgBoxStyle.Exclamation, "信息框") Exit Sub End If If Trim(TxtRealName.Text) = "" Then MsgBox("輸入的用戶真實姓名不能為空！", M

42、sgBoxStyle.Exclamation, "信息框") Exit Sub End If If Trim(TxtPassword.Text) = "" Then MsgBox("輸入的密碼不能為空！", MsgBoxStyle.Exclamation, "信息框") Exit Sub End If Dim TempUser As New ClsSuperUser(Trim(TxtName.Text), TxtPassword.Text) TempUser.RealName = Trim(TxtRealName.

43、Text) TempUser.ModUser = Trim(ComboModUser.Text) TempUser.ModComputer = Trim(ComboModComputer.Text) TempUser.Memo = Trim(TxtMemo.Text) NewSuperUser.AddUser(TempUser) Me.Close() End Sub 編輯操作員編輯操作員信息功能是超級用戶具有的功能，通過此界面設置所要修改操作員的相關信息和權限設置。所編輯操作員對用戶/計算機信息模塊的權限分為3種：無權限、可讀和可讀寫。編輯操作員設計圖如圖5.5所示。 圖 5.5 修改操作員信

44、息圖這里需要判斷用戶的真實姓名和密碼不能為空，對用戶輸入的信息合法性驗證通過以后，需要對信息進行處理。處理的方法有：a.直接更新。b.先刪除該用戶信息，然后再添加該用戶的信息。根據用戶選中的用戶名，構造用戶信息表中查詢相應用戶的信息，將這些信息顯示在界面上。雙擊“保存按鈕的Click事件，編寫代碼如下： Private Sub BtOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles If Trim(TxtRealName.Text) = "" Then MsgBox(&qu

45、ot;輸入的用戶真實姓名不能為空！", MsgBoxStyle.Exclamation, "信息框") Exit Sub End If If Trim(TxtPassword.Text) = "" Then MsgBox("輸入的密碼不能為空！", MsgBoxStyle.Exclamation, "信息框") Exit Sub End If NewSuperUser.DelUser(LBUserName.SelectedItem) Dim TempUser As New ClsSuperUser(LBU

46、serName.SelectedItem, TxtPassword.Text) TempUser.RealName = Trim(TxtRealName.Text) TempUser.ModUser = Trim(ComboModUser.Text) TempUser.ModComputer = Trim(ComboModComputer.Text) TempUser.Memo = Trim(TxtMemo.Text) NewSuperUser.AddUser(TempUser) End Sub 刪除操作員只有超級用戶才具有的刪除功能。首先要判斷用戶類型是否為超級用戶，然后再判斷所選中刪除的是

47、否是超級用戶超級用戶是不能被刪除的，最后更新界面的用戶信息列表。工作流程如圖5.6所示。具體工作過程：“操作員管理 “操作員管理“刪除操作員圖5.7 刪除操作員信息圖 修改密碼修改用戶密碼是所用操作員都具有的功能，操作員在輸入舊密碼，以及重復輸入新密碼，就可能修改操作員密碼。圖5.8 所示為修改密碼界面。圖5.8 修改密碼界面圖圖5.9 修改密碼工作流程圖 設置上機費率設置上機費率是超級用戶特有的功能，可以根據不同的客戶類型，設定不同的上機費率，在這里設計為臨時用戶、普通用戶、銀卡用戶、金卡用戶，不同類型的客戶，不同上機費率也不同。具體操作：“操作員管理“設置上機費率命令，彈出“設置上機費率窗

48、口。在這分別對臨時用戶、普通會員、銀卡會員、金卡會員的上機費率進行設定。完成并保存到數據庫。如圖5.10所示。圖5.10 設置上機費率圖 具體代碼如：Private Sub BtOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handl Dim TempFeeRules As New ClsFeeRules TempFeeRules.Group = "臨時用戶" TempFeeRules.Amount = Val(Me.TxtGroup0.Text) TempFeeRules.AddR

49、ule() TempFeeRules.Group = "普通用戶"oup1.Text) TempFeeRules.AddRule() TempFeeRules.Group = "銀卡用戶" TempFeeRules.Amount = Val(Me.TxtGroup2.Text) TempFeeRules.AddRule() TempFeeRules.Group = "金卡用戶" TempFeeRules.Amount = Val(Me.TxtGroup3.Text) TempFeeRules.AddRule() End Sub 鎖定屏

50、幕該功能是當操作員需要外出，系統不能關閉時，防止他人的非法操作系統。在使用該功能時，主窗體被隱藏，登錄主窗體，要求輸入用戶密碼。具體操作：“操作員管理 “鎖定屏幕命令，程序的窗口將會被隱藏，彈出鎖定屏幕的窗口，在這里輸入密碼，又可重返主窗口。如圖5.11所示。 圖5.11 鎖定屏幕圖 用戶充值操作員在使用此功能時，先輸入用戶名，點擊“讀取就可讀取用戶的真實姓名和余額信息，確認輸入的用戶是正確的，再輸入本次充值的金額，“保存更新用戶賬號上的余額信息。如圖5.12所示： 圖5.12 用戶充值圖“讀取功能代碼： Private Sub BtnRead_Click(ByVal sender As Sy

51、stem.Object, ByVal e As System.EventArgs) Handles If Trim(TxtUserName.Text) = "" Then MsgBox("請輸入用戶名！", MsgBoxStyle.Exclamation, Me.Text) Exit Sub End If Dim TempUser As New ClsUser TempUser.UserName = Trim(TxtUserName.Text) TempUser.GetInfo() TxtRealN End Sub“保存功能代碼： Private Sub BtnSave_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles If Trim(TxtUserName.Text) = "" Then MsgBox("請輸