學校機房管理系統(tǒng)設(shè)計

華科學院數(shù)據(jù)庫課程設(shè)計I目錄第一章系統(tǒng)概述 11.1背景 11.2設(shè)計目的 21.3設(shè)計任務(wù) 2第二章系統(tǒng)需求分析 42.1關(guān)于功能 42.1.1功能簡介 42.1.2功能流程圖 42.2關(guān)于業(yè)務(wù) 52.3關(guān)于結(jié)構(gòu) 62.4數(shù)據(jù)字典 6第三章系統(tǒng)實現(xiàn) 83.1添加新用戶 83.1.1編寫代碼： 83.1.2添加界面 93.2建立會員信息查詢界面 93.2.1編寫代碼 93.2.2查詢界面 123.3上機管理 123.3.1編寫上機代碼 123.3.2上機界面 143.4下機管理 153.4.1編寫代碼 153.4.2下機界面 17第四章系統(tǒng)開發(fā)平臺 184.1開發(fā)工具的選擇 184.2visualbasic6.0簡介 184.3visualbasic6.00的功能特點 18結(jié)束語 20參考文獻： 21第一章系統(tǒng)概述1.1背景隨著科技的發(fā)展，網(wǎng)絡(luò)已經(jīng)成為我們生活必不可少的一部分。目前，大多數(shù)高校都以建立起了自己的機房系統(tǒng)來供老師和學生上機使用。如何充分發(fā)揮校園計算機機房的效能，開放機房，最大限度的為機房管理服務(wù)，既要提高機房的科學管理水平，又要減輕機房管理員工作，使機房管理更加規(guī)范、有序。使用計算機可以高速，快捷地完成以上工作。在計算機聯(lián)網(wǎng)后，數(shù)據(jù)在網(wǎng)上傳遞，可以實現(xiàn)數(shù)據(jù)共享，避免重復(fù)勞動，從而提高了管理效率和水平。機房管理信息系統(tǒng)以計算機為工具，通過對上機管理所需的信息管理，把管理人員從繁瑣的數(shù)據(jù)計算處理中解脫出來，使其有更多的精力從事其它管理政策的研究實施，機房上機計劃的制定執(zhí)行監(jiān)督檢查，從而全面提高管理質(zhì)量。機房上機管理系統(tǒng)是一個實時人機系統(tǒng)，它要求要有較高的可靠性、可適應(yīng)性、擴充能力。建立先進的機房管理系統(tǒng)是實現(xiàn)教育現(xiàn)代化的必由之路，是推進信息化管理的重要舉措之一。本系統(tǒng)主要為教職員工上課和學生日常業(yè)余上機提供了方便。系統(tǒng)采用了先進的軟、硬件結(jié)合的方式。項目開發(fā)為學校的業(yè)務(wù)管理人員服務(wù)，已明確用戶有：在校任課老師和就讀學生、及相關(guān)的管理人員。潛在用戶有：學生、任課老師。機房上機管理信息系統(tǒng)是一套專門針對學校計算機機房管理的高科技產(chǎn)品。機房管理信息系統(tǒng)是現(xiàn)代企業(yè)和學校機房管理工作不可缺少的一部分，是適應(yīng)現(xiàn)代企業(yè)、學校機房制度要求、推動機房管理走向科學化、規(guī)范化的必要條件。機房管理分析的是機房上機具體的工作過程，分析“做什么”應(yīng)“如何做”的問題。主要調(diào)查了解用戶的需求，盡量滿足并使用戶和設(shè)計系統(tǒng)的人員意見相一致。1.2設(shè)計目的本系統(tǒng)是機房上機管理信息系統(tǒng)，是一個依靠組內(nèi)人員共同的力量完成的各項任務(wù)。要求要有較強的分析、設(shè)計、編程能力。在老師的指導下使該系統(tǒng)更加完善、可靠。開發(fā)出一個適合用戶單位需要的系統(tǒng)，并方便維護和擴充。它主要實現(xiàn)管理員如何對普通用戶進行授權(quán)，學生業(yè)余上機只能通過輸入會員卡號、密碼方可使用該計算機。如何辦理新的會員信息及查看所有會員的信息，可通過輸入查詢條件，顯示符合條件的會員記錄以及顯示這個會員的全部信息，并由管理員對其進行相應(yīng)的操作，并且能進行上下機操作。1.3設(shè)計任務(wù)設(shè)計一個管理系統(tǒng)，主要管理學校計算機機房的上機業(yè)務(wù)，它的主要功能模塊包括，系統(tǒng)管理、用戶結(jié)帳管理、日常管理、新會員辦理管理、用戶信息的查詢管理、上機考勤管理、學生付費管理、用戶權(quán)限管理以及實行跨平臺管理等。并且要求改管理系統(tǒng)是一個運行在局域網(wǎng)上的子系統(tǒng)，能夠直觀、方便、有效、可靠地管理通過局域網(wǎng)聯(lián)在一起的所有機器，該系統(tǒng)具有以下優(yōu)點：1、實現(xiàn)無人職守系統(tǒng)通過提供強大的功能，最大限度降低機房管理員的工作量，它能夠做到自判斷學生是否已經(jīng)注冊會員、會員卡上金額是否足夠、以及通過驗證學生的身份來確定是否允許學生使用機器，隨時判斷學生卡上的當前金額還能上機多久，學生下機時，系統(tǒng)自動計算并扣除學生的上機費用；同時自動將該學生所用的機器電源關(guān)掉。2、方便管理本系統(tǒng)采用友好的界面，能夠幫助機房管理員方便有效地對機房進行管理。系統(tǒng)詳細提供機房所有機器的使用狀況，如使用者名稱、登錄時間、總金額、消費金額、現(xiàn)剩余金額等信息，使機房管理人員對每臺客戶機使用狀況一目了然；同時系統(tǒng)提供強大的管理功能，機房管理員能夠方便有效地對機房內(nèi)任意機器進行管理，如發(fā)消息、禁止使用等。一次可以選中一臺機器進行管理操作，也可以同時選中多臺機器進行管理操作。系統(tǒng)還提供可追蹤的歷史記錄，如學生上機的歷史記錄，還包括學生在辦理會員卡后忘記密碼，這時就可根據(jù)學生最初的原始記錄，查找出密碼。學生上機的歷史記錄使得學校、機房管理人員對學生使用機器狀況有清晰的了解，對機器出現(xiàn)的故障能夠追究責任到個人。對學生消費金額的變動提供了有跡可尋的記錄。3、功能強大，設(shè)置靈活機房使用安排靈活方便，自由安排機時單價，具有預(yù)定座位功能，設(shè)置免費上機功能，環(huán)境要求低，適應(yīng)能力強，無須特殊的配置或者專門的服務(wù)器。本系統(tǒng)充分考慮了用戶環(huán)境各種可能出現(xiàn)的情況，提供靈活的應(yīng)變措施，充分利用學校的網(wǎng)絡(luò)資源，對學校的機房進行有效的管理。即使機房的網(wǎng)絡(luò)發(fā)生故障，不能正常工作，系統(tǒng)仍然能夠在各個單機上獨立的對機器資源進行安全控制、計算上機費用、并登記使用情況。4、全面完善的查詢功能本系統(tǒng)充分考慮到管理的需要，從機房管理員、教師授課、學生個人業(yè)余上機、三個層面提供了完善的查詢功能。從機房管理員角度，系統(tǒng)提供了有關(guān)任意機房、任意機器在任意范圍時間內(nèi)的使用情況、使用者信息方面的詳細信息。從教師授課角度，系統(tǒng)提供了教師在任意時間范圍內(nèi)對機器設(shè)備的使用，提供教師在自身的權(quán)限內(nèi)對系統(tǒng)的使用及維護。從學生個人業(yè)余上機角度，系統(tǒng)提供了個人在任意時間范圍內(nèi)的繳費情況、消費情況及剩余金額等信息，高級別的安全管理機制。5、安全機制系統(tǒng)提供了方便高效的用戶授權(quán)機制，加強了對用戶身份的識別，避免未經(jīng)授權(quán)的用戶越權(quán)使用系統(tǒng)。VB+ACCESS的使用使得系統(tǒng)的數(shù)據(jù)不會輕易被外界惡意的攻擊破壞，簡單易懂，使用方便，身份識別有效者方可上機，同一身份在同一時段不可復(fù)用，可有效防止密碼盜用，確保用戶資金安全。6、跨平臺管理系統(tǒng)能夠同時在客戶機和服務(wù)器機上進行控制和管理，實現(xiàn)跨平臺管理。并具有系統(tǒng)的可擴充性。第二章系統(tǒng)需求分析2.1關(guān)于功能2.1.1功能簡介建立一個“機房上機管理信息系統(tǒng)”，實現(xiàn)學校機房上機管理。要求可以隨時添加新用戶，而且還可以對用戶的信息進行查詢，對上機情況進行查詢。同時具有上下機功能。系統(tǒng)主要的上機信息來自管理員管理的服務(wù)器上的具體信息，本系統(tǒng)需要完成如下功能。1.添加新用戶2.對用戶的信息進行查詢3.上機管理4下機管理2.1.2功能流程圖圖1.1.1功能結(jié)構(gòu)圖2.2關(guān)于業(yè)務(wù)圖1.2業(yè)務(wù)流程圖2.3關(guān)于結(jié)構(gòu)圖1.3E-R模型2.4數(shù)據(jù)字典數(shù)據(jù)字典是各類數(shù)據(jù)描述的集合，它是進行詳細的數(shù)據(jù)收集和數(shù)據(jù)分析后所獲得的主要成果，是關(guān)于數(shù)據(jù)庫中數(shù)據(jù)的描述，即對元素的描述。數(shù)據(jù)字典是在系統(tǒng)分析階段建立，在數(shù)據(jù)庫設(shè)計過程中不段修改、充實、完善的。針對本系統(tǒng)，通過機房管理內(nèi)容和過程分析，設(shè)計的數(shù)據(jù)項和數(shù)據(jù)結(jié)構(gòu)如下。1、管理員基本情況。包括的數(shù)據(jù)項有管理員號、管理員姓名、性別、年齡、籍貫、民族、政治面貌、學歷、身份證號、生日、開始工作時間、家庭住址、聯(lián)系電話。2、會員基本情況。包括的數(shù)據(jù)項有會員號、班級、學號、姓名、性別、備注。列名數(shù)據(jù)類型及長度可否為空說明管理員號CHAR（3）NOTNULL管理員號（主鍵）管理員姓名VARCHAR（10）NOTNULL姓名密碼CHAR（16）NOTNULL密碼性別VARCHAR（2）NULL性別年齡CHAR（3）NULL年齡籍貫VARCHAR（8）NULL籍貫民族VARCHAR（10）NULL民族政治面貌CHAR（8）NULL政治面貌學歷CHAR（6）NULL學歷身份證號CHAR（26）NULL身份證號職務(wù)CHAR(8)NULL職務(wù)生日DATENULL生日開始工作時間DATENULL開始工作時間家庭住址VARCHAR（32）NULL家庭住址聯(lián)系電話CHAR（13）NULL聯(lián)系電話表1管理員基本情況表列名數(shù)據(jù)類型及長度可否為空說明會員號CHAR（9）NOTNULL會員號密碼CHAR（16）NOTNULL密碼班級CHAR（18）NULL班級學號CHAR（3）NULL學號姓名VARCHAR（10）NULL姓名性別VARCHAR（2）NULL性別備注MEMONULL備注表2會員基本情況表列名數(shù)據(jù)類型及長度可否為空說明計算機號CHAR(6)NOTNULL計算機號班級CHAR(18)NULL班級姓名VARCHAR(10)NULL姓名性別CHAR(2)NULL性別卡號CHAR(12)NULL卡號上機日期/時間CHAR(16)NULL上機日期/時間下機日期/時間CHAR(16)NULL下機日期/時間總金額(元)INTEGER(6)NULL總金額（元）實用金額(元)INTEGER(6)NULL實用金額（元）剩余金額(元)INTEGER(6)NULL剩余金額（元）狀態(tài)CHAR(6)NULL狀態(tài)表3會員上機信息表第三章系統(tǒng)實現(xiàn)3.1添加新用戶3.1.1編寫代碼：1、加載窗體和控件，并設(shè)置屬性如下：窗體form7的caption屬性為“會員添加”；標簽label1的caption屬性為“會員號”，標簽label2的caption屬性為“姓名”，label3的caption屬性為“密碼”，label4的caption屬性為“班級“，標簽label5的caption屬性為“學號”；label6的caption屬性為“性別”，標簽label7的caption屬性為“備注”；文本框text1、text2一直到text7的屬性值均為“”；命令按鈕command1的caption屬性為“添加”；命令按鈕command2的caption屬性為“保存”。2、源代碼：PrivateSubCommand1_Click()Text1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text1.SetFocusEndSubPrivateSubCommand2_Click()DimdbAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringdb.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\DocumentsandSettings\user01\MyDocuments\王小明\biaoyi.db1.mdb;PersistSecurityInfo=False"db.Opensql="insertinto會員基本情況表(會員號,姓名,密碼,班級,學號,性別,備注)values('"&Text1.Text&"','"&Text2.Text&"','"&Text3.Text&"','"&Text4.Text&"','"&Text5.Text&"','"&Text6.Text&"','"&Text7.Text&"')"&在會員基本情況表插入記錄rs.Opensql,db,adOpenStatic,adLockReadOnly'rs.Fields(0).Value=Text1.Text'rs.Fields(1).Value=Text2.Text'rs.Fields(2).Value=Text3.Text'rs.Fields(3).Value=Text4.Text'rs.Fields(4).Value=Text5.Text'rs.Fields(5).Value=Text6.Text'rs.Fields(6).Value=Text7.Text'rs.UpdateMsgBox("添加記錄已保存,請查閱")EndSub3.1.2添加界面圖3.1.2用戶添加窗體3.2建立會員信息查詢界面3.2.1編寫代碼1、加載窗體和控件，并設(shè)置屬性如下：窗體form4的caption屬性為“會員上機信息查詢”；標簽label1的caption屬性為“計算機號”，標簽label2的caption屬性為“班級”，label3的caption屬性為“性別”，label4的caption屬性為“卡號”，標簽label5的caption屬性為“上機日期/時間”，label6的caption屬性為“下機日期/時間“，label7的caption屬性為“總金額“；標簽label8的caption屬性為“實用金額”，label9的caption屬性為“剩余金額“，label10的caption屬性為“狀態(tài)”；文本框text1、text2一直到text10的屬性值均為“”；命令按鈕command1的caption屬性為“結(jié)帳”；命令按鈕command2的caption屬性為“返回”，命令按鈕command3的caption屬性為“查詢”。2、源代碼：編寫代碼如下：PrivateSubCommand1_Click()DimtAsStringt=InputBox("請輸入卡號")DimdbAsNewADODB.Connection&同上db.Open sql="select*from會員上機信息表where卡號='"&t&"'"&查詢卡號為變量t的記錄rs.Opensql,db,adOpenStatic,adLockReadOnlya="剩余金額為"+rs.Fields(9).Value+"元"&"剩余金額為"為字符rs.Fields(9).Value為查詢到的記錄的第9個字段的值，"元"同樣為字符MsgBox(a)EndIfEndSubPrivateSubCommand2_Click()Form4.HideForm2.ShowEndSubPrivateSubCommand3_Click()DimdbAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringDimjAsStringDimzAsStringDimaAsStringj=InputBox("請輸入要查詢的計算機號")db.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\DocumentsandSettings\user01\MyDocuments\王小明\biaoyi.db1.mdb;PersistSecurityInfo=False"db.Opensql="select*from會員上機信息表where計算機號='"&j&"'"&查詢計算機號為變量j的記錄rs.Opensql,db,adOpenStatic,adLockReadOnlyText1.Text=""Text2.Text=""Text3.Text=""Text4.Text=""Text5.Text=""Text6.Text=""Text7.Text=""Text8.Text=""Text9.Text="")Elsea=MsgBox("記錄已找到,請查看!")EndIfEndSub3.2.2查詢界面圖3.2.2用戶上機信息查詢窗體3.3上機管理3.3.1編寫上機代碼1、在IC卡讀寫機上刷卡。讀卡時卡機上的讀寫燈將亮起，當燈熄滅后方可取卡。如果在卡機顯示屏上出現(xiàn)卡號、姓名、卡上金額等信息表示刷卡成功。如果刷卡時出現(xiàn)錯誤請找機房管理員處理。教學上機不用刷卡。2、啟動計算機，出現(xiàn)登錄界面時，選擇“教學上機或自由上機”，然后根據(jù)提示輸入卡號和密碼，單擊登陸即可上機（注：首次登錄時，請設(shè)置密碼）。3、更改密碼，請按更改密碼按鈕，以后在本校所有機房上機時，將使用此更改后的新密碼，請牢記。4、不刷卡者將不能使用計算機。5、源代碼：PrivateSubCommand1_Click()DimdbAsNewADODB.Connection&與數(shù)據(jù)庫建立連接DimrsAsNewADODB.Recordset&從數(shù)據(jù)庫中返回的可用記錄集DimsqlAsString&聲明變量db.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\DocumentsandSettings\user01\MyDocuments\魯玉琳\biaoyi.db1.mdb;PersistSecurityInfo=False"&連接數(shù)據(jù)庫的路徑db.Open&打開數(shù)據(jù)庫表sql="select*from會員基本情況表"&查詢會員表里所有的記錄rs.Opensql,db,adOpenStatic,adLockReadOnlyWhilers.BOF<>TrueAndrs.Fields(0).Value<>Text1.Textrs.MoveNextWendIfrs.Fields(1).Value=Text2.TextThen&數(shù)據(jù)庫里的第一個字段等于文本框text2MsgBox("歡迎登錄")&提示消息框Form1.HideForm5.ShowElseMsgBox("你輸入的會員卡號或密碼不正確,請重新輸入!")&提示消息框Text1.SetFocus&設(shè)置文本框text1為焦點Form1.Show&form1顯示Form5.Hide&form5隱藏EndIfEndSubPrivateSubCommand3_Click()Frame1.Visible=False&Frame1不可見Frame2.Visible=True&Frame2可見EndSubPrivateSubCommand4_Click()DimdbAsNewADODB.Connection&與數(shù)據(jù)庫建立連接DimrsAsNewADODB.Recordset&從數(shù)據(jù)庫中返回的可用記錄集DimsqlAsStringdb.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\DocumentsandSettings\user01\MyDocuments\魯玉琳\biaoyi.db1.mdb;PersistSecurityInfo=False"&連接數(shù)據(jù)庫的路徑db.Open"&打開數(shù)據(jù)庫sql="select*from管理員情況表""&查詢管理員情況表里的所有記錄rs.Opensql,db,adOpenStatic,adLockReadOnly"&打開返回的可用記錄集Whilers.BOF=flaseAndrs.Fields(1).Value<>Combo1.Textrs.MoveNextWend"&根據(jù)庫頂函數(shù)判斷指針是否到達庫底Ifrs.Fields(2).Value=Text3.TextThenMsgBox("歡迎進入系統(tǒng)主界面")Form1.HideForm2.ShowElseMsgBox("你輸入的密碼不正確,請重新輸入!")Text3.Text=""Text3.SetFocusForm1.ShowForm2.HideEndIfEndSubPrivateSubCommand5_Click()Frame1.Visible=True&Frame1顯示為可見Frame2.Visible=False&Frame2顯示為不可見EndSubPrivateSubForm_Load()Frame1.Visible=TrueFrame2.Visible=FalseEndSub3.3.2上機界面圖3.3.2上機界面3.4下機管理3.4.1編寫代碼1、在桌面上，單擊右鍵，選擇注銷或者重啟計算機，再單擊注銷。2、下機注銷必須在所登錄的計算機上進行，注銷成功后關(guān)閉計算機。如機器出現(xiàn)故障須換機，必須在本機或請管理員注銷。3、在IC卡讀寫機上刷卡下機。未注銷者將不能刷卡下機。下機不刷卡者，系統(tǒng)認為持卡者仍在上機，將持繼計費。該卡也無法在其它機房上機。4、源代碼：PrivateSubCommand1_Click()Form5.HideForm1.ShowEndSubPrivateSubCommand2_Click()Form5.HideForm1.ShowForm1.Text1.Text=""Form1.Text2.Text=""Form1.Text1.SetFocusDimdbAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringDimj,zAsStringDimtimeAsIntegerDimhhAsNewADODB.Recordsetdb.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\DocumentsandSettings\user01\MyDocuments\王小明\biaoyi.db1.mdb;PersistSecurityInfo=False"db.Opensql="select*from會員上機信息表"rs.Opensql,db,adOpenStatic,adLockReadOnlyj=timez=g/60*0.05a="update會員上機信息表set狀態(tài)='離線',剩余金額='"&z&"'where卡號='"&Form4.Text4.Text&"'"&更新會員上機信息表中卡號為Form4.Text4.Text里面的值的記錄hh.Opena,db,adOpenStatic,adLockReadOnlyEndSubPrivateSubForm_Load()Form1.Text1.Text=""Form1.Text2.Text=""EndSubPrivateSubTimer1_Timer()time=time–1&時間變量的總值減一Iftime=60000Then&tim=60000表示當時間為1分鐘時將要執(zhí)行下面的語句MsgBox"你的金額已不足請及時充值！"ElseIftime=0ThenDimdbAsNewADODB.ConnectionDimrsAsNewADODB.RecordsetDimsqlAsStringdb.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource=C:\DocumentsandSettings\user01\MyDocuments\王小明\biaoyi.db1.mdb;PersistSecurityInfo=False"db.Opensql="update會員上機信息表set狀態(tài)='離線',剩余金額='0'where卡號='"&Form4.Text4.Text&"'"&更新卡號為Form4.Text4.Text的記錄更新的值為set狀態(tài)='離線',剩余金額='0'rs.Opensql,db,adOpenStatic,adLockReadOnlyrs.CloseTimer1.Interval=0Form5.HideForm1.ShowEndIfEndSub3.4.2下機界面圖3.4.2機房下機界面圖3.4.2用戶下機結(jié)賬第四章系統(tǒng)開發(fā)平臺4.1開發(fā)工具的選擇本系統(tǒng)的前端開發(fā)工具，選擇了visualbasic6.0，后臺數(shù)據(jù)庫采用Access2003。4.2.visualbasic6.0簡介是一種由微軟公司開發(fā)的包含協(xié)助開發(fā)環(huán)境的事件驅(qū)動編程語言。從任何標準來說，VB都是世界上使用人數(shù)最多的語言——不僅是盛贊VB的開發(fā)者還是抱怨VB的開發(fā)者的數(shù)量。它源自于BASIC編程語言。VB擁有圖形用戶界面（GUI）和快速應(yīng)用程序開發(fā)（RAD）系統(tǒng)，可以輕易的使用DAO、RDO、ADO連接數(shù)據(jù)庫，或者輕松的創(chuàng)建ActiveX控件。程序員可以輕松的使用VB提供的組件快速建立一個應(yīng)用程序。4.3visualbasic6.00的功能特點VB的中心思想就是要便于程序員使用，無論是新手或者專家。VB使用了可以簡單建立應(yīng)用程序的GUI系統(tǒng)，但是又可以開發(fā)相當復(fù)雜的程序。VB的程序是一種基于窗體的可視化組件安排的聯(lián)合，并且增加代碼來指定組件的屬性和方法。因為默認的屬性和方法已經(jīng)有一部分定義在了組件內(nèi)，所以程序員不用寫多少代碼