【導(dǎo)讀】隨著學(xué)校人數(shù)的不斷增加，學(xué)校機(jī)房手工管理的難度也不斷增大。不但效率低，而且容易出錯，也不利于定期的統(tǒng)計(jì)工作。為了減輕機(jī)房管理人員。負(fù)擔(dān)以及提高工作效率，本文詳細(xì)介紹了一個(gè)機(jī)房收費(fèi)管理系統(tǒng)的開發(fā)過程。這個(gè)系統(tǒng)是單機(jī)版的基于門禁技術(shù)的管理系統(tǒng)。它具有使用方便、安全可靠。系統(tǒng)以VisualBasic和Access作為開發(fā)工具，采用Windows的圖形界面，蹤顯示帳戶余額、下機(jī)帳戶結(jié)算、支持機(jī)房收入查詢以及數(shù)據(jù)備份和還原功能，系統(tǒng)由軟件計(jì)算費(fèi)用，避免了人工計(jì)算造成。的失誤，也減少了管理人員的工作負(fù)擔(dān)。這個(gè)系統(tǒng)還帶有條形碼編制和打印功能。目前，在部分高校中，計(jì)算機(jī)機(jī)房的上機(jī)收費(fèi)仍然采用傳統(tǒng)的人工計(jì)時(shí)方式，后按實(shí)際機(jī)時(shí)進(jìn)行計(jì)算并收取相應(yīng)費(fèi)用。難度和強(qiáng)度也在不斷加大，給機(jī)房管理部門帶來了很大壓力。臺數(shù)據(jù)庫的建立和維護(hù)以及前端應(yīng)用程序的開發(fā)兩個(gè)方面。對于前者要求建立起。序功能完備，操作簡單方便等特點(diǎn)。

　　

【正文】 p。 (2) amp。 元 Exit Sub jf2err: Rollback MsgBox End Sub Private Sub cdkh_Click() End Sub Private Sub cdtj1_Click() End Sub Private Sub cdtj2_Click() 39。備份數(shù)據(jù) On Error Resume Next = True = Format(Date, yyyymmdd) amp。 .bak = 備份文件 |*.bak If Err = Then Exit Sub If Dir() Then If MsgBox(當(dāng)前日期已經(jīng)備份了，確實(shí)要再次備份嗎？ , vbYesNo + vbQuestion) = vbNo Then Exit Sub End If 39。關(guān)閉數(shù)據(jù)庫 FileCopy + \, MsgBox 備份成功！ , vbInformation Form_Load Exit Sub MsgBox 發(fā)現(xiàn)錯誤備份失?。?, vbCritical, 錯誤 End Sub Private Sub cdtj3_Click() 39。數(shù)據(jù)還原 On Error Resume Next = True = = 備份文件 |*.bak If Err = Then Exit Sub If MsgBox(請您確認(rèn) “ amp。 amp。 ”是您以前備份的文件，否則可能出現(xiàn)不可想像的錯誤。如果發(fā)生了錯誤，請你參見幫助的 解決辦法，建議您先對當(dāng)前數(shù)據(jù)庫進(jìn)行備份。還原后，在您備份以后的數(shù)據(jù)都將丟失。您真的要還原這個(gè)數(shù)據(jù)庫嗎？ , _ vbYesNo + vbQuestion + vbDefaultButton2, 問題 ) = vbNo Then Exit Sub 39。關(guān)閉所有數(shù)據(jù)庫 FileCopy , + \ MsgBox 還原成功！將使用這個(gè)數(shù)據(jù)庫。如果發(fā)生了錯誤，請您參見幫助的解決辦法。, vbInformation, 注意 = False Form_Load = True Exit Sub Form_Load MsgBox 還原數(shù)據(jù)庫失敗！ , vbCritical End Sub Private Sub Form_Load() = + \ = 。pwd=841029 = 管理員 = + \ = 。pwd=841029 = 上機(jī)流水帳 = + \ = 。pwd=841029 = 上機(jī)情況 = + \ = 。pwd=841029 = 學(xué)生 = + \ = 。pwd=841029 = 自定義 = + \ = 16 = 2 39。設(shè)置各列寬度 (0) = 1500 (1) = 1800 (2) = 2200 (3) = 1800 (4) = 1800 = 5 39。初始化上機(jī)人數(shù) pcCount = 0 For I = 1 To If (4) Like 計(jì)費(fèi)中 Then pcCount = pcCount + 1 End If Next I 39。讀取用戶自定義費(fèi)率 If (3) = True Then (1) = (2) (3) = False End If Dj = Val((1)) Dim m As Integer m = (0) If m Then tiaozhen (m) End If = m + 1 39。顯示數(shù)據(jù)表格 Display 39。顯示狀態(tài)欄 ShowStatus End Sub Private Sub Form_Unload(Cancel As Integer) If pcCount 0 Then MsgBox 當(dāng)前還有電腦計(jì)費(fèi)中，請?jiān)谌拷Y(jié)帳后退出！ , vbCritical Cancel = True Exit Sub End If End End Sub Private Sub sys01_Click() 39。顯示修改用戶密碼窗體 vbModal End Sub Private Sub sys02_Click() If = admin Then Dim a As Integer Dim I As String 39。調(diào)整費(fèi)率 On Error Resume Next I = Val(Trim(InputBox$(請輸入新的計(jì)費(fèi)標(biāo)準(zhǔn)： 單位：元 /小時(shí) , 調(diào)整費(fèi)率 ))) If I = Then Exit Sub Else If I 0 Then (2) = I (3) = True MsgBox 設(shè)置成功，新標(biāo)準(zhǔn)將在下次啟動時(shí)生效！ Exit Sub End If End If Else MsgBox 您沒有此權(quán)限 Exit Sub End If End Sub Private Sub sys021_Click() If = admin Then Dim a As Integer Dim I As String 39。調(diào)整計(jì)算機(jī)數(shù)目 On Error Resume Next I = Val(Trim(InputBox$(請輸入電腦數(shù)目： , 設(shè)置電腦數(shù)目 ))) If I = Then Exit Sub Else If I 0 Then (0) = I MsgBox 設(shè)置成功，將在下次啟動時(shí)生效！ Exit Sub End If End If Else MsgBox 您沒有此權(quán)限 Exit Sub End If End Sub Private Sub sys11_Click() 39。當(dāng)前登陸用戶為管理員時(shí)，打開添加刪除用戶界面 If = admin Then Else MsgBox 您沒有此權(quán)限 End If End Sub Private Sub sys21_Click() vbModal End Sub Private Sub sys22_Click() 39。當(dāng)上機(jī)人數(shù)不為 0 時(shí)，不能關(guān)閉程序 If pcCount 0 Then MsgBox 當(dāng)前還有電腦計(jì) 費(fèi)中，請?jiān)谌拷Y(jié)帳后退出！ , vbCritical Exit Sub End If End End Sub Private Sub Timer2_Timer() 39。定時(shí)檢測上機(jī)帳戶余額 Static s As Integer Dim ff As Integer Dim RMB1 As Single s = s + 1 39。設(shè)置掃描間隔 If s = 10 Then Dim Tishi As String With .MoveLast .MoveFirst For I = 1 To .RecordCount If .Fields(4) Like 計(jì)費(fèi)中 Then ff = DateDiff(n, .Fields(2), Now) RMB1 = JF(ff) RMB1 = .Fields(3) RMB1 If RMB1 Dj Then Tishi = Tishi amp。 Space(2) amp。 .Fields(0) amp。 End If End If .MoveNext Next I s = 0 39。根據(jù)掃描結(jié)果提示帳戶充值 If Tishi Then MsgBox 第 amp。 Tishi amp。 機(jī)費(fèi)用已不多 ,請?zhí)嵝哑浼皶r(shí)充值 End With End If End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) On Error Resume Next Select Case Case 1 39。應(yīng)做 :添加 39。上機(jī) 39。 按鈕代碼。 cdjf_Click Case 2 39。應(yīng)做 :添加 39。結(jié)帳 39。 按鈕代碼。 cdjf2_Click Case 4 39。應(yīng)做 :添加 39。報(bào)表 39。 按鈕代碼。 cdtj1_Click Case 6 39。應(yīng)做 :添加 39。幫助 39。 按鈕代碼。 cdhelp1_Click End Select End Sub Frmaddadmin (添加用戶窗體 )： Private Sub Command1_Click() If = False Then 39。添加用戶 On Error GoTo adderr 39。檢查輸入數(shù)據(jù)是否正確 If Trim() = Then MsgBox 用戶名不能為空！ , vbCritical Exit Sub End If If = Then MsgBox 密碼不能為空 Exit Sub End If If Then MsgBox 前后密碼設(shè)置不一致，請重新輸入！ , vbCritical = =