畢業設計[論文]任務書姓名班號院系同組姓名無指導教導☆☆課題名稱網吧管理系統的設計與實現課題內容運用計算機進行網吧的自動計費與管理,是計算機成為當今社會輔助管理手段發展的必然趨勢。在查閱了大量參考文獻的基礎上,運用IC卡自動識別技術、數據庫技術和網絡的遠程通信與控制技術等,開發了計算機網吧自動計費與管理系統,將瑣碎的手工實際業務轉化到計算機操作上,極大地提高了網吧工作人員的工作效率,有效地提高了網吧現代化管理的水平。課題任務要求觀點正確，論證充分。結構合理，邏輯嚴密。滿足一定的閱讀量。同組設計者無五、主要參考文獻[1]張海藩.軟件工程導論.北京:清華大學出版社,2008年[2]王珊,薩師煊.數據庫系統概論(第四版).北京:高等教育出版社,2008年[3]龔赤兵等.visualstudio2008中的LINQ開發技術.北京：機械工業出版社，2008年[4]JuliaCaseBradley,AnutaC.Millspaugh.VisualBasic2008程序設計（第七版）.北京：清華大學出版社,2008年[5]章立民等.VisualBasic2003–2005開發秘訣與范例大全.北京：電子工業出版社，2005年[6]胡百敬姚巧玫.SQLServer2005數據庫開發詳解.北京：電子工業出版社，2006年[7]童愛紅劉凱劉雪梅.VB.NET程序設計實用教程.北京：清華大學出版社，2008年指導教師簽字教研室主任簽字年月日

目錄摘要 1前言 1TOC\o"1-3"\u第一章系統概述 11.1系統開發的背景和意義 11.2系統開發技術 11.2.1VB.NET概述 11.2.2SQLServer數據庫 2第二章可行性分析 32.1可行性概述 32.2可行性研究 3第三章系統需求分析 43.1傳統網吧管理 43.2系統優點 43.3系統功能需求 43.3.1系統邏輯模型 53.3.2服務端 53.3.3客戶端 63.4系統的設計原則 63.5系統設計的思想 63.5.1系統設計結構 63.5.2系統實現技術 7第四章系統的總體設計 84.1系統功能設計 84.2系統功能模塊簡介 94.2.1客戶端功能模塊 94.2.2服務端功能模塊 94.2.3數據庫設計 10第五章詳細設計 135.1關鍵模塊設計 135.1.1登陸模塊 135.1.2客戶端模塊 135.1.3服務端模塊 145.2系統界面設計 155.2.1登錄界面 155.2.2客戶端界面 165.2.3服務端界面 17第六章編碼實現 196.1系統功能實現 196.2登陸模塊編碼 196.3客戶端模塊編碼 206.4服務端模塊編碼 23第七章系統測試 277.1系統測試目標 277.2系統測試方案 277.3具體測試 287.3.1登錄模塊測試 287.3.2客戶端測試 287.3.3服務端測試 30結束語 31參考文獻 32致謝 33

摘要運用計算機進行網吧的自動計費與管理,是計算機成為當今社會輔助管理手段發展的必然趨勢。在查閱了大量參考文獻的基礎上,運用IC卡自動識別技術、數據庫技術和網絡的遠程通信與控制技術等,開發了計算機網吧自動計費與管理系統,將瑣碎的手工實際業務轉化到計算機操作上,極大地提高了網吧工作人員的工作效率,有效地提高了網吧現代化管理的水平。本系統在參閱其他成功的網吧管理系統的基礎上,通過對實際業務的分析,確定了系統的設計思想和運行流程,主要在以下幾個方面開展了研究工作:在對自動識別和IC卡技術進行分析的基礎上,提出了使用IC卡作為用戶上機識別的標志的思想,并給出了具體的實現方式。研究了數據庫技術及其發展情況,根據SQLServer2000數據庫的特點,選用了適合本系統的開發軟件。關鍵詞：網吧管理，自動計費，SQL,Server

前言隨著高科技的蓬勃發展,智能化管理已經走進了人們的社會生活,一座座智能化大廈拔地而起,適應信息的時代需要,作為跨世紀使用的建筑,必須在功能上滿足當前和未來發展的需求,成為文化和經濟發展的基地

網吧管理系統開發作為一項先進的高科技技術防范和管理手段,在一些經濟發達的國家已經廣泛應用于科研工業博物館酒店商場醫療監護銀行監獄等,特別是由于系統本身具有隱蔽性,及時性等特點,在許多領域的應用越來越廣泛1系統概述1.1系統開發的背景和意義隨著計算機技術的日月更新，越來越多的人們注重加強對計算機知識的學習，為了滿足學校學生或者社會學員的需求，許多網吧都紛紛對外開放，實行計時收費。但隨著上機人數的增多，網吧的管理成了一個非常困難的問題。首先，人工計時收費是非常繁瑣的一項工作，耗費人力物力，而且極容易出錯；最后的統計工作更是一項費時費力的苦差事，甚至不能統計。其次，上機過程中，每個網吧都需要值班人員值班，耗費了管理人員的很多時間。隨著計算機各種外圍設備技術的發展，以上工作通過計算機就可以很方便地實現。為了適應當前網吧管理無人化的需求，本人試圖利用自己大學所學專業知識并結合教學管理中的實際情況和其它類似計費軟件的優點，開發了一套網吧收費系統軟件。本系統可以解決網吧管理中存在的幾個實際問題：1減少值班人員、維護人員，降低管理人員費用，甚至可以做到網吧無需人員值守管理。2增加網吧的開放時間，提高設備的利用率。3解決目前網吧管理中的人情免費上機、脫逃費問題。1.2系統開發技術1.2.1VB.NET概述VB.net是微軟最新平臺技術，是.netframeworkSDK的一種語言。編譯以后生成的可執行文件被稱為Assembly，即程序集。它的運行是建立在CLR(CommonLanguageRuntime)MSIL(MicrosoftIntermediateLanguage)虛擬器上的。其實，它的機制和Java差不多。

VB.net的語言特點有下：1代碼托管。被托管的代碼享受.netframework提供的安全保障和垃圾回收機制，但是這也同時表明，程序被框在Framework里面了。API變得不太方便。2強大的面向對象特性。現在VB7已經是一個完全的面向對象程序。它已經支持類的各種特性：繼承，函數的覆蓋，重載，虛擬，隱藏……。

3功能強大，程序界面更標準。4程序代碼結構化更強，開發環境舒適體貼。SQLServer數據庫美國Microsoft公司推出的一種關系型數據庫系統。SQLServer是一個可擴展的、高性能的、為分布式客戶機/服務器計算所設計的數據庫管理系統，實現了與WindowsNT的有機結合，提供了基于事務的企業級信息管理系統方案。其主要特點如下：1高性能設計，可充分利用WindowsNT的優勢。2系統管理先進，支持Windows圖形化管理工具，支持本地和遠程的系統管理和配置。3強壯的事務處理功能，采用各種方法保證數據的完整性。4支持對稱多處理器結構、存儲過程、ODBC，并具有自主的SQL語言。SQLServer以其內置的數據復制功能、強大的管理工具、與Internet的緊密集成和開放的系統結構為廣大的用戶、開發人員和系統集成商提供了一個出眾的數據庫平臺

2可行性分析2.1可行性概述可行性分析也稱為可行性研究，是在系統調查的基礎上，針對新系統的開發是否具備必要性和可能性，對新系統的開發從技術、經濟、社會的房買你進行分析和研究，以避免投資失誤，保證新系統的開發成功。可行性研究的目的就是用最小的代價在盡可能短的時間內確定問題是否能夠解決。2.2可行性研究數據庫是指自描述的完整記錄的集合。數據庫技術在20世紀60年代中期產生，它的出現使信息系統的研制從加工數據的程序為中心轉變為共享數據庫為中心來進行。數據庫開始時在大公司或機構中進行大規模數據處理后來隨著計算機的逐漸普及，數據庫才應用到計算機上。數據庫發展到今天，已經是相當成熟的階段，它對大量處理能力的不斷提高，發展和完善。本系統的開發利用VS2008作為開發工具。VS2008是一個具有完善開發工具的平臺。VS2008提供的工具適合各種水平層次無論是初學者還是有經驗的團隊，并適合各種不同的開發需求。降低了開發的復雜度，其提供給開發者更加簡便動態的.NetFramework基礎解決方案，其中包括了windows應用程序開發、office嵌入開發、Web應用開發、移動應用程序開發。改進了團隊交流方式，VS2008為團隊開發提供通道和完整的開發周期工具，從而增加了團隊內部的交流與協作的效率。通過學習，熟悉和掌握VB.NET的使用方法，使用VS2008作為開發工具將使整個系統的模塊化設計變得更加簡便。系統采用SQLSERVER2005作為開發數據庫。SQLSERVER2005是一種客戶機/服務器結構的關系數據庫管理系統。SQLSERVER2005提供了許多易于使用的圖形化工具和向導，其中最常用的是服務管理器、企業管理器和查詢分析器。它們為創建和管理數據庫帶來了很大的方便。

3系統需求分析3.1傳統網吧管理網吧是隨人們生活中對計算機越來越需要而建立的，這類網吧大多存在于學校，公司，圖書館等大型公共場所，在網吧建立之初，沒有網吧計費系統的情況下，網吧的管理完全人工化。逃費，人情上機，計費錯誤等情況不可避免地出現。也可以說是網吧現象中的一部分，這類情況給管理人員帶來很大的麻煩，逃費和計費錯誤會給網吧管人員在財力帶來損失或誤會，人情上機會給管理人員帶來生活中尷尬的煩惱。這類情況一再發生，就會在管理人員精神上帶來越來越大的壓力。上機用戶有時也會因管理人員的失誤帶來不必要的麻煩。漸漸大家對網吧就會有一種厭惡感和恐懼感。同時,在人工長期使用,會形成大量的數據,這些數也會使得數據管理上的混亂。3.2系統優點人工管理網吧實在存在很大的問題，而且浪費太多的人力，物力。計算機一點一丁的入侵人類的生活，計算機管理代替人工管理是不可避免的，像網吧管理這類不要求在管理上創新，機械般管理更加完美的前提下，我選擇設計開發網吧計費系統，希望能改善網吧管理上的混亂情況，也避免了管理人員的工作麻煩。使用網吧計費系統優于人工管理在于：1管理人員的工作量。2計費準確無誤。3避免人情上機的尷尬。4工作迅速快捷。3.3系統功能需求網吧計費系統的主要功能有：1服務端（包括管理員管理，用戶信息管理）2客戶端（用戶使用計算機的所有情況）3系統數據的初始化，查詢，修改，刪除。3.3.1系統邏輯模型為了實現管理信息系統的計算機化，僅僅用文字來描述信息的流動和存儲還遠遠不夠，還要進一步調查分析舍去物質流，抽象出信息流，繪制出數據流程圖，并對各種數據的屬性和各項處理功能進行詳細分析。系統分析的主要成果是系統的邏輯模型。本系統主要是以數據流程圖、E-R圖和系統功能模塊圖為主要描述工具來勾畫系統的概貌。對系統的功能進行分析,綜合本系統設計的服務器端與客戶端,總結整個系統功能模塊。圖圖3.1頂層數據流圖用戶管理員上機更新用戶消費信息下機3.3.2服務端1管理員管理主要包括：操作用戶管理、操作員登錄、修改密碼、設置上機費用。這其中大部分是標準數據的維護，包括新增、修改、刪除等；2用戶信息管理主要包括：用戶充值、查詢用戶費用、刪除用戶信息、添加用戶信息、修改用戶信息。這里區分不同的用戶類型，按照不同用戶類型設置上機費用等；3上機記錄主要負責接收客戶端程序發送來的上、下機信息，進行上、下機的處理，在處理上機登錄時要進行用戶的合法性檢測。檢測通過后產生一條用戶上機記錄，記錄下計算機代碼、賬號、登錄開始時間等信息。處理下機信息時，要記錄下此用戶下機的詳細時間。計費時要將當前使用費用記錄在上機記錄中，并在用戶的檔案記錄的余額字段中扣減。客戶端首先要求將客戶端的桌面、任務管理器、系統狀態欄等系統功能鎖定，桌面上只有客戶登錄程序界面，要求用戶輸入用戶代碼和密碼進行登錄。登錄信息要求數據庫中的信息來判斷其合法性，并反饋一個信息給客戶端，如果一切合法的話，再將桌面、任務管理器等功能解鎖，讓用戶正常使用。客戶端程序要求正常停靠在系統托盤中，用戶下機時要求點擊此圖標進行下機，客戶端將下機信息發送到數據庫，系統關機。3.4系統的設計原則根據系統的需求分析，計費系統屬于網絡，計算機使用費用，作息管理及數據庫于一體的綜合性系統，因而，網吧計費系統在總體設計時應遵循以下原則上：1系統的功能設計完善性，滿足多方的使用需求。2系統應具有良好的穩定性，實用性，安全性。設計理念應是客戶容易使用。3數據庫結構設計合理，各類屬性符合要求。3.5系統設計的思想系統設計結構基于網吧計費系統的綜合性，而且為了滿足多方使用的需求，本系統以c/s的框架結構為基本結構模式：（如圖3.2所示）客戶端客戶端服務端數據庫服務器圖3.2系統結構圖系統實現技術系統實現所需開發環境Visual

Basic.NET，它是下一代的Visual

Basic。而并不是簡單的在Visual

Basic

6.0上在添加一些新特性而已，微軟重新設計了產品以便使開發者能夠更加容易的開發分布式應用，例如基于WEB的程序以及多層系統。Visual

Basic.NET中有兩種窗體包，Windows窗體以及Web窗體；一個新版的ADO用于接受離線數據源；新的語言，移走了原來的關鍵字，提高Type數據的安全性以及提供低級別結構以滿足高級別開發者的需求。這些新的特性為Visual

Basic開發者提供了新的開發窗口：通過Web窗體以及ADO.NET，你可以快速開發可擴展的Web站點；通過繼承，該語言實現了真正的支持面向對象編程（object-oriented

programming）；Windows窗體本身支持可視繼承；現在展開程序就像拷貝可執行文件和控件到另一個目錄那樣簡單。VisualBasic.NET現在完全集成在其它的MicrosoftVisualStudio.NET語言中，不僅可以通過不同的語言開發組件，而且通過交叉語言繼承，可以從用一種語言編寫的類中派生用另一種語言編寫的類。

4系統的總體設計4.1系統功能設計本系統包含兩個子系統，其中網吧的客戶用的是客戶端子系統，而網管所使用的則是服務端子系統。每個子系統包換了若干子功能模塊，每個子功能模塊完成相應的處理操作功能。網吧計費系統網吧計費系統管理員表管理消費記錄管理客戶端管理端用戶信息管理用戶登錄用戶計費管理員登陸圖4.1系統總功能框圖客戶端負責用戶信息驗證和記錄用戶的上機信息。管理端是直接操作數據庫信息，實現對整個系統的管理。4.2系統功能模塊簡介4.2.1客戶端功能模塊1客戶登陸輸入用戶名與密碼登錄系統通過對比用戶名與密碼確定用戶是否合法2計費模塊獲取登陸時間并保存到數據庫獲取下機時間并保存到數據庫計算花費并保存到數據庫計算余額并保存到數據庫4.2.2服務端功能模塊1管理員的登陸輸入用戶名與密碼登陸系統通過對比用戶名與密碼確定用戶是否合法2用戶信息管理添加用戶修改用戶刪除用戶3管理員信息管理添加管理員修改管理員刪除管理員4消費記錄管理查看消費記錄4.2.3數據庫設計該系統數據庫使用的是SQLserver，美國Microsoft公司推出的一種關系型數據庫系統。SQLServer是一個可擴展的、高性能的、為分布式客戶機/服務器計算所設計的數據庫管理系統，實現了與WindowsNT的有機結合，提供了基于事務的企業級信息管理系統方案。1概念結構設計概念結構設計的任務是在需求分析階段產生的需求說明書的基礎上，按照特定的方法把它們抽象為一個不依賴于任何具體機器的數據模型，即概念模型。概念模型使設計者的注意力能夠從復雜的實現細節中解脫出來，而只集中在最重要的信息的組織結構和處理模式上。概念模型具有以下的特點：(1)概念模型是對現實世界的抽象和概括，它真實、充分地反映了現實世界中事物和事物之間的聯系，能滿足用戶對數據的處理要求。(2)由于概念模型簡潔、明晰、獨立于計算機，很容易理解，因此可以用概念模型和不熟悉計算機的用戶交換意見，使用戶能積極參與數據庫的設計工作，保證設計工作順利進行。(3)概念模型易于更新，當應用環境和應用要求改變時，容易對概念模型修改和擴充。(4)概念模型很容易向關系、網狀、層次等各種數據模型轉換。描述概念模型的有力工具是E-R圖。E-R模型是一個面向問題的概念模型，即用簡單的圖形方式(E-R圖)描述現實世界中的數據。這種描述不涉及數據在數據庫中表示和存取方法，非常接近人的思維方式。后來又提出了擴展實體聯系模型(ExtendEntity-RelationshipModel)，簡稱為“EER模型”。EER模型目前已經成為一種使用廣泛的概念模型，為面向對象的數據庫設計提供了有效的工具。圖圖4.2詳細E-R圖余額年齡用戶賬號密碼注冊日期上機費用管理員密碼性別年齡賬號年齡計算機計算機名使用管理管理11n11n2邏輯結構設計概念結構設計所得的E-R模型是對用戶需求的一種抽象的表達形式，它獨立于任何一種具體的數據模型，因而也不能為任何一個具體的DBMS所支持。為了能夠建立起最終的物理系統，還需要將概念結構進一步轉化為某一DBMS所支持的數據模型，然后根據邏輯設計的準則、數據的語義約束、規范化理論等對數據模型進行適當的調整和優化，形成合理的全局邏輯結構，并設計出用戶子模式。數據庫邏輯結構的設計分為兩個步驟：首先將概念設計所得的E-R圖轉換為關系模型；然后對關系模型進行優化。在網吧計費系統當中包括了以上幾個ER模型向關系模型的轉換：用戶表（帳號，密碼，年齡，余額，上機費用，注冊日期）管理員表（帳號，密碼，姓名，年齡，性別）消費表（登陸帳號，登陸時間，下機時間，計算機名，花費）3物理結構設計在表當中，關鍵字（即編號）都采用自動編號的數據類型；日期都采用日期型的數據類型；凡是關于數據量的都采用數據型的數據類型；其他數據均采用文本型的數據類型。當表之間有關系時通過添加外鍵來處理。當表與其他表有關系時，便給該表建立一張視圖，通過外鍵將兩張表聯系起來，通過數據篩選，把自己想要的信息提取出來，形成一張新的表。其數據庫中表的設計具體如下：表4-1用戶表列名數據類型允許空字段說明帳號Char(10)否主鍵密碼Char(10)否登錄密碼余額Money是用戶余額上機費用Money否每分鐘費用注冊日期Datetime是注冊日期表4-2管理員表列名數據類型允許空字段說明帳號Char(10)否主鍵密碼Char(10)是登陸密碼姓名Varchar(50)是管理員姓名年齡Varchar(50)是管理員年齡性別Char(10)是管理員性別表4-3消費表列名數據類型允許空字段說明登陸帳號Char(10)否主鍵登陸時間Datetime是登陸時間下機時間Datetime是下機時間計算機名Varchar(50)是計算機名花費money是花費

5詳細設計5.1關鍵模塊設計此次設計的網吧計費系統主要包括三大模塊：系統登錄模塊、客戶端系統模塊、服務端系統模塊。系統登錄模塊由登錄界面組成；用戶的本次登陸信息顯示及操作功能模塊組成本系統的客戶端系統；用戶信息管理、管理員信息管理、消費信息記錄組成本系統的服務端系統。客戶端系統主要是為普通用戶使用而設計的；而服務端系統是維護系統的數據、客戶端的數據內容的顯示以及用戶信息的管理等，是為后臺管理員使用設計的。登陸模塊本系統在客戶端有一個用戶的登陸界面，在服務端有一個管理員的登陸界面，客戶端的登陸是用戶開始使用此計算機并開始計費，而服務器端的登陸界面是為了獲得管理整個系統的權利。實現功能：驗證帳號和密碼的正確性。實現方法：添加數據庫連接，建立LINQtoSQL類，使用LINQ語言調用數據庫信息，完成帳號和密碼的驗證，進入系統。實現方案：建立一個窗口，在窗口中添加兩個文本框，用來存放帳號和密碼，添加一個確定按鈕，用來觸發登陸事件。添加LINQtoSQL類，建立數據對象，通過LINQ語言查詢數據庫中是否存在登陸的帳號和密碼并匹配。如果存在則進入系統，顯示主窗口，關閉登陸窗口（如圖5.1）。5.1.2實現功能：記錄用戶的登陸信息，計算用戶產生的費用，并發送給數據庫。實現方法：建立一個顯示窗口以顯示此次登陸的有效信息,獲取登陸時間和下機時間,計算此次花費和帳戶余額，并將這些信息返回數據庫。具體方案：建立一個窗口，分別添加Label控件顯示登陸時間，已上機時間，本次花費。建立LINQtoSQL類，添加數據庫服務器，調用系統時間函數獲取登陸時間和下機時間,調用數據庫中的用戶上機費用等信息,進行計算此次所花的費用。添加Timer控件持續更新當前時間，計算并顯示已上機時間（如圖5.2）。開始開始輸入帳戶、密碼N是否存在Y進入主界面圖5.1系統登陸流程圖獲取登陸時間獲取登陸時間獲取當前時間計算費用修改數據庫客戶端圖5.2客戶端窗口設計5.1.3服務實現功能：添加修改刪除用戶信息，添加修改刪除管理員信息，查看用戶的消費記錄。實現方法：建立各個功能窗口，通過主窗口調用各子功能窗口，在子功能窗口中通過中的DataGridView控件直接操作數據庫中的信息。具體方案：建立四個窗口，一個作為主窗口，另外三個作為子窗口，建立LINQtoSQL類，添加數據庫服務器，在三個子窗口分別添加DataGridView控件，配置DataGridView控件顯示不同的數據表的內容，并相應實現添加刪除的功能（如圖5.3）。用戶信息窗口用戶信息窗口管理員信息窗口消費記錄窗口修改數據庫添加修改刪除查看添加修改刪除服務端主窗口圖5.3服務端窗口設計5.2系統界面設計網吧計費系統主要涉及到三個用戶界面：這些界面基本包括了系統功能規定的所有功能。以下是關于這幾個用戶界面當中一些主要的功能界面的簡單介紹。登錄界面用戶登錄界面主要是作為系統入口進入系統使用的，使用人員啟動系統之后便會出現登錄界面，用戶登錄進入到系統的主界面（如圖5.4）。客戶端界面客戶端界面主要是用來顯示用戶有關信息的。根據網吧用戶的習慣設置了一個隱藏按鈕，可以放在系統托盤圖標中，當雙擊次圖標時，顯示客戶端的主界面（如圖5.5和圖5.6）。圖5.4用戶登陸窗口圖5.5客戶端系統托盤圖標圖5.6客戶端界面服務端界面服務端界面主要是管理員操作系統信息使用的，系統使用人員登錄之后便出現功能界面。在此界面下，用戶可以操作規定權限下的功能操作。主界面（如圖5.7）調用以下功能模塊1用戶信息管理功能調用用戶信息管理窗口，可以進行添加，修改，刪除用戶信息操作。(如圖5.8)2管理員信息管理功能調用管理員信息管理窗口，可以進行添加，修改，刪除管理員信息操作。(如圖5.9)3消費記錄管理功能察看用戶的消費記錄。(如圖5.10)圖5.7主界面圖5.8用戶信息管理界面圖5.9管理員信息管理界面圖5.10消費記錄管理界面6編碼實現6.1系統功能實現 網吧計費管理功能主要有兩個方面：客戶端和服務端。在服務端，管理員能夠增加,刪除及更新用戶信息;客戶端在普通用戶登陸后，會自動計時計費。系統功能實現主要通過客戶端對登陸用戶信息進行收集和更新。6.2登陸模塊編碼圖6.1登陸窗口DimdbAsNew網吧計費管理DataContextTryDimusername=(FromadminIndb.Table_2_Whereadmin.帳號=UsernameTextBox.Text_Selectadmin.帳號).Single()Dimuserpassword=(FromadminIndb.Table_2_Whereadmin.密碼=PasswordTextBox.Text_Selectadmin.密碼).Single()UsernameTextBox.Text=""PasswordTextBox.Text=""Form1.Show()Me.Close()CatchexAsExceptionMessageBox.Show("用戶名或密碼錯誤,請重新輸入!")UsernameTextBox.Text=""PasswordTextBox.Text=""EndTry6.3客戶端模塊編碼圖6.2客戶端窗口DimdbAsNew網吧計費管理DataContextDimmydatetimeAsDateTimePrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.Hide()LoginForm1.ShowDialog()TryDimusername=FromadminIndb.Table_3_Whereadmin.登陸賬號=Label7.Text_Selectadminmydatetime=DateTime.NowLabel4.Text=mydatetime.ToStringForEachTable_3InusernameTable_3.登陸時間=mydatetimeTable_3.計算機名Nextdb.SubmitChanges()CatchexAsExceptionDimnewTable_3AsNewTable_3With{_.登陸賬號=Label7.Text,_.登陸時間=Label4.Text,_.計算機名HostName}db.Table_3.InsertOnSubmit(newTable_3)db.SubmitChanges()EndTryEndSubPrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.TickIf(Label7.Text="")ThenElseDimnowdatetimeAsDateTime=DateTime.NowDimdsAsTimeSpands=nowdatetime.Subtract(mydatetime)Label5.Text=ds.ToStringDimhuafei=FromuserIndb.Table_3_Whereuser.登陸賬號=Label7.Text_SelectuserDimcost=(FromuserIndb.Table_1_Whereuser.帳號=Label7.Text_Selectuser.上機費用).SingleDimhua=(ds.Minutes+ds.Hours*60)*costForEachTable_3InhuafeiTable_3.花費=huaNextdb.SubmitChanges()Label6.Text=huaEndIfEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickDimclosetimeAsDateTime=DateTime.NowDimdsAsTimeSpands=closetime.Subtract(mydatetime)Dimyu=(FromuserIndb.Table_1_Whereuser.帳號=Label7.Text_Selectuser)Dimcost=(FromuserIndb.Table_1_Whereuser.帳號=Label7.Text_Selectuser.上機費用).SingleForEachTable_1InyuTable_1.余額=Table_1.余額-(ds.Minutes+ds.Hours*60)*costNextdb.SubmitChanges()Me.Close()EndSubPrivateSubForm1_Resize(ByValsenderAsObject,ByValeAsSystem.EventArgs)HandlesMyBase.ResizeIfMe.WindowState=FormWindowState.MinimizedThenMe.Hide()EndIfEndSubPrivateSub顯示詳細信息ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles顯示詳細信息ToolStripMenuItem.ClickMe.Visible=TrueMe.WindowState=FormWindowState.NormalEndSubPrivateSub下機ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles下機ToolStripMenuItem.ClickDimclosetimeAsDateTime=DateTime.NowDimdsAsTimeSpands=closetime.Subtract(mydatetime)Dimyu=(FromuserIndb.Table_1_Whereuser.帳號=Label7.Text_Selectuser)Dimcost=(FromuserIndb.Table_1_Whereuser.帳號=Label7.Text_Selectuser.上機費用).SingleForEachTable_1InyuTable_1.余額=Table_1.余額-(ds.Minutes+ds.Hours*60)*costNextdb.SubmitChanges()Me.Close()EndSubPrivateSubNotifyIcon1_MouseDoubleClick(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.MouseEventArgs)HandlesNotifyIcon1.MouseDoubleClickMe.ShowInTaskbar=TrueMe.Show()Me.WindowState=FormWindowState.NormalEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.Hide()EndSub6.4服務端模塊編碼圖6.3服務端主窗口PrivateSubForm1_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadMe.Hide()LoginForm1.ShowDialog()EndSubPrivateSub用戶管理ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles用戶管理ToolStripMenuItem.ClickForm2.MdiParent=MeForm2.Show()Form2.WindowState=FormWindowState.MaximizedForm3.Hide()Form4.Hide()EndSubPrivateSub管理員管理ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles管理員管理ToolStripMenuItem.ClickForm3.MdiParent=MeForm3.Show()Form3.WindowState=FormWindowState.MaximizedForm2.Hide()Form4.Hide()EndSubPrivateSub消費記錄ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles消費記錄ToolStripMenuItem.ClickForm4.MdiParent=MeForm4.Show()Form4.WindowState=FormWindowState.MaximizedForm2.Hide()Form3.Hide()EndSub圖6.4服務端用戶信息子窗口PrivateSubTable_1BindingNavigatorSaveItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Me.Validate()Me.Table_1BindingSource.EndEdit()Me.TableAdapterManager.UpdateAll(Me.網吧計費管理DataSet)EndSubPrivateSubTable_1BindingNavigatorSaveItem_Click_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Me.Validate()Me.Table_1BindingSource.EndEdit()Me.TableAdapterManager.UpdateAll(Me.網吧計費管理DataSet)EndSubPrivateSubTable_1BindingNavigatorSaveItem_Click_2(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Me.Validate()Me.Table_1BindingSource.EndEdit()Me.TableAdapterManager.UpdateAll(Me.網吧計費管理DataSet)EndSubPrivateSubTable_1BindingNavigatorSaveItem_Click_3(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Me.Validate()Me.Table_1BindingSource.EndEdit()Me.TableAdapterManager.UpdateAll(Me.網吧計費管理DataSet)EndSubPrivateSubTable_1BindingNavigatorSaveItem_Click_4(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTable_1BindingNavigatorSaveItem.ClickMe.Validate()Me.Table_1BindingSource.EndEdit()Me.TableAdapterManager.UpdateAll(Me.網吧計費管理DataSet)EndSubPrivateSubForm2_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load'TODO:這行代碼將數據加載到表“網吧計費管理DataSet.Table_1”中。您可以根據需要移動或移除它。Me.Table_1TableAdapter.Fill(Me.網吧計費管理DataSet.Table_1)EndSub圖6.5服務端管理員信息子窗口PrivateSubTable_2BindingNavigatorSaveItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Me.Validate()Me.Table_2BindingSource.EndEdit()Me.TableAdapterManager.UpdateAll(Me.網吧計費管理DataSet)EndSubPrivateSubTable_2BindingNavigatorSaveItem_Click_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTable_2BindingNavigatorSaveItem.ClickMe.Validate()Me.Table_2BindingSource.EndEdit()Me.TableAdapterManager.UpdateAll(Me.網吧計費管理DataSet)EndSubPrivateSubForm3_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Load'TODO:這行代碼將數據加載到表“網吧計費管理DataSet.Table_2”中。您可以根據需要移動或移除它。Me.Table_2TableAdapter.Fill(Me.網吧計費管理DataSet.Table_2)