【導(dǎo)讀】為此各學校，培訓中心等單位建立起了機房供學生上機，機房的規(guī)范化管理也。隨之提上了日程。本文主要介紹了我們的畢業(yè)設(shè)計課題——機房上機管理系統(tǒng)的各項功能。本論文以我校機房學生上機管理系統(tǒng)為背景，論述了該管理信息系統(tǒng)的結(jié)。構(gòu)，系統(tǒng)開發(fā)的基本原理，過程和方法。全文詳細闡述了系統(tǒng)的需求分析、系統(tǒng)分析、系。統(tǒng)設(shè)計、程序界面的建立及程序代碼的編寫、總結(jié)與展望、致謝、參考文獻等五章內(nèi)容。入會員卡號、密碼方可使用該計算機。戶信息進行查詢、修改、刪除、錄入等操作。信息，并由管理員對其進行相應(yīng)的操作，其它功能操作與此相同。通過開發(fā)這個機房管理系統(tǒng)，進一步明確了開發(fā)研究一個管理信息系統(tǒng)的方法和思。軟件開發(fā)的水平，為今后在工作崗位上學好用好計算機打下了堅定的基礎(chǔ)。止密碼盜用，確保用戶資金安全。

　　

【正文】 der=。Data Source=C:\Documents and Settings\user01\My Documents\ 魯玉琳\。Persist Security Info=False sql = delete from 管理員情況表 sql, db, adOpenStatic, adLockReadOnly (0).Value = (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = (6).Value = (7).Value = 第四章 建立程序界面、編寫程序代碼 四川江油工業(yè)學校畢業(yè)設(shè)計論文 28 (8).Value = (9).Value = (10).Value = (11).Value = (12).Value = (13).Value = (14).Value = MsgBox (你確定要刪除嗎 ?) amp。記錄集更新 End Sub Private Sub Command7_Click() Dim db As New Dim rs As New Dim sql, z As String z = InputBox(請確認一下修改前的管理員號 ) = Provider=。Data Source=C:\Documents and Settings\user01\My Documents\ 魯玉琳\。Persist Security Info=False sql = update 管理員情況表 set 管理員號 =39。 amp。 amp。 39。,管理員姓名 =39。 amp。 amp。 39。,密碼 =39。 amp。 amp。 39。,職務(wù) =39。 amp。 amp。 39。,性別 =39。 amp。 amp。 39。,年齡 =39。 amp。 amp。 39。,籍貫 =39。 amp。 amp。 39。,民族 =39。 amp。 amp。 39。,政治面貌 =39。 amp。 amp。 39。,學歷 =39。 amp。 amp。 39。,身份證號 =39。 amp。 amp。 39。, 生日 =39。 amp。 amp。 39。,開始工作時間 =39。 amp。 amp。 39。,家庭住址 =39。 amp。 amp。 39。,聯(lián)系電話 =39。 amp。 amp。 39。 where 管理員號 =39。 amp。 z amp。 39。 amp。更新管理員號為變量 z 的記錄 sql, db, adOpenStatic, adLockReadOnly amp。打開記錄集 MsgBox (記錄已修改 ,請查閱 ) End Sub Private Sub Command8_Click() Dim db As New amp。同上 Dim rs As New amp。同上 Dim sql As String 第四章 建立程序界面、編寫程序代碼 四川江油工業(yè)學校畢業(yè)設(shè)計論文 29 = Provider=。Data Source=C:\Documents and Settings\user01\My Documents\ 魯玉琳\。Persist Security Info=False amp。同上 sql = insert into 管理員情況表 (管理員號 ,管理員姓名 ,密碼 ,性別 ,年齡 ,籍貫 ,民族 ,政治面貌 ,學歷 ,身份證號 ,生日 ,開始工作時間 ,家庭住址 ,聯(lián)系電話 ,職務(wù) ) values(39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。,39。 amp。 amp。 39。) amp。在數(shù)據(jù)庫里面添加一條記錄，記錄對應(yīng)字段的值從文本框里面取 sql, db, adOpenStatic, adLockReadOnly amp。打開記錄集 amp。指針自動向下移動一條記錄 MsgBox (添加記錄已保存 ,請查閱 ) End Sub Private Sub Command9_Click() Dim j As String j = InputBox(請輸入要查詢的管理員號 ) Dim db As New Dim rs As New Dim sql As String Dim b As String Dim c As String = Provider=。Data Source=C:\Documents and Settings\user01\My Documents\ 魯玉琳\。Persist Security Info=False sql = select * from 管理員情況表 where 管理員號 =39。 amp。 j amp。 39。 amp。查詢管理員號為變量 j 的記錄 sql, db, adOpenStatic, adLockReadOnly = = = = = 第四章 建立程序界面、編寫程序代碼 四川江油工業(yè)學校畢業(yè)設(shè)計論文 30 = = = = = = = = = = amp。將文本框置為空值 = (0).Value = (1).Value = (2).Value = (3).Value = (4).Value = (5).Value = (6).Value = (7).Value = (8).Value = (9).Value = (10).Value = (11).Value = (12).Value = (13).Value = (14).Value amp。將查詢到的記錄對應(yīng)的值顯示在對應(yīng)的文本框里面 If = Then b = MsgBox(數(shù)據(jù)庫里不存在這條記錄 !) Else c = MsgBox(記錄已找到 ,請查看 !) End If End Sub 建立會員信息查詢界面 建立會員信息查詢界面窗 體，如圖 44 所示。 第四章 建立程序界面、編寫程序代碼 四川江油工業(yè)學校畢業(yè)設(shè)計論文 31 （ 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)”；文本框 text text2 一直到 text10 的屬性值均為“”；命令按鈕 mand1 的 caption 屬性為“結(jié)帳”；命令按鈕 mand2 的 caption 屬性為“返回”，命令按鈕 mand3 的 caption屬性為“查詢”。 圖 44 會員上機信息查詢窗體 （ 2）編寫代碼如下： Private Sub Command1_Click() Dim t As String t = InputBox(請輸入 卡號 ) Dim db As New amp。同上 第四章 建立程序界面、編寫程序代碼 四川江油工業(yè)學校畢業(yè)設(shè)計論文 32 Dim rs As New amp。同上 Dim sql, a As String If t = Then MsgBox 你沒有輸入卡號請重新輸入！ Else = Provider=。Data Source=C:\Documents and Settings\user01\My Documents\ 魯玉琳\。Persist Security Info=False amp。建立與數(shù)據(jù)庫進行連接的路徑 sql = select * from 會員上機信息表 where 卡號 =39。 amp。 t amp。 39。 amp。查詢卡號為變量 t 的記錄 sql, db, adOpenStatic, adLockReadOnly a = 剩余金額為 + (9).Value + 元 amp。剩余金額為 為字符 (9).Value 為查詢到的記錄的第 9 個字段的值， 元 同樣為字符 MsgBox (a) End If End Sub Private Sub Command2_Click() End Sub Private Sub Command3_Click() Dim db As New Dim rs As New Dim sql As String Dim j As String Dim z As String Dim a As String j = InputBox(請輸入要查詢的計算機號 ) = Provider=。Data Source=C:\Documents and Settings\user01\My Documents\ 魯玉琳\。Persist Security Info=False 第四章 建立程序界面、編寫程序代碼 四川江油工業(yè)學校畢業(yè)設(shè)計論文 33 sql = select * from 會員上機信息表 where 計算機號 =39。 amp。 j amp。 39。 amp。查詢計算機號為變量 j 的記錄 sql, db, adOpenStatic, adLockReadOnly = = = = = = = = = = amp。文本框為空 = (0).Value = (1).Value = (3).Value = (4).Value = (5).Value = (6).Value = (7).Value = (8).Value = (9).Value = (10).Value amp。將查詢到的記錄的值顯示在對應(yīng)的文本框 If = Then z = MsgBox(數(shù)據(jù)庫里不存在這條記錄 !) Else a = MsgBox(記錄已找到 ,請查看 !) End If End Sub 建立用戶虛擬界面 建立用戶虛擬界面窗體，如圖 45 所示。 （ 1） 加載窗體和控件，并設(shè)置屬性如下： 窗體 form5 的 caption屬性為“虛擬操作界面”；命 令按鈕 mand1 的 caption屬性為“關(guān)閉”，命令按鈕 mand2 的 caption 屬性為“結(jié)帳下機”。 第四章 建立程序界面、編寫程序代碼 四川江油工業(yè)學校畢業(yè)設(shè)計論文 34 圖 45 虛擬操作界面窗體 （ 2）編寫代碼如下： Private Sub Command1_Click() End Sub Private Sub Command2_Click() = = Dim db As New Dim rs As New Dim sql As String Dim j, z As String 第四章 建立程序界面、編寫程序代碼 四川江油工業(yè)學校畢業(yè)設(shè)計論文 35 Dim time As Integer Dim hh As New = Provider=。Data Source=C:\Documents and Settings\user01\My Documents\ 魯玉琳\。Persist Security Info=False sql = select * from 會員上機信息表 sql, db, adOpenStatic, adLockReadOnly j = time z = g / 60 * a = update 會員上機信息表 set 狀態(tài) =39。離線 39。,剩余金額 =39。 amp。 z amp。 39。 where 卡號 =39。 amp。 amp。 39。 amp。更新會員上機信息表中卡號為 里面的值的記錄 a, db, adOpenStatic, adLockReadOnly End Sub Private Sub Form_Load() = =