【導(dǎo)讀】以前繁瑣的事務(wù)中解放出來，因而提高了工作效率。

　　

【正文】 = End Sub Private Sub jsjbxxcx_Click() 1 End Sub Private Sub jsjbxxcx11_Click() 1 End Sub Private Sub jsjbxxgl_Click() 1 End Sub Private Sub jsjbxxgl1_Click() 1 End Sub Private Sub jssqsycu_Click() 1 End Sub Private Sub Menu_Abount_Click() 1 End Sub Private Sub Menu_Admin_Click() 1 End Sub Private Sub Menu_Exit_Click() End End Sub Private Sub Menu_H_Click() End Sub Private Sub Menu_Logout_Click() 1 End Sub Private Sub Menu_Num_Click() 1 End Sub Private Sub Menu_Reg_Click() 1 End Sub Private Sub Menu_SearchExes_Click() 1 End Sub Private Sub Menu_Sim_Click() 1 End Sub Private Sub Menu_TelExes_Click() 1 第 29 頁 共 31 頁 End Sub Private Sub szgycs_Click() 1 End Sub Private Sub tjcwxx_Click() 1 End Sub Private Sub tjlhxx_Click() 1 End Sub Private Sub Menu_LineC_Click() 1 End Sub Private Sub sqsycu_Click() 1 End Sub Private Sub Toolbar1_ButtonClick(ByVal Button As ) Select Case Case 退出系統(tǒng) End Case 管理員管理 1 Case 房間設(shè)置 1 Case 學(xué)生管理 1 Case 查詢房間 1 End Select End Sub Private Sub vd_Click() 1 End Sub Private Sub vccc_Click() 1 End Sub Private Sub xsxxcx_Click() 1 End Sub Private Sub xsxxwh_Click() 1 End Sub 2. 登錄窗口的程序 Private Sub Command1_Click() If = Then Call ErrorMsg(請?zhí)顚懹脩裘?, 錯誤信息 ) Exit Sub End If If = Then Call ErrorMsg(請?zhí)顚懨艽a！ , 錯誤信息 ) Exit Sub End If Dim conn As New Set conn = Nothing 第 30 頁 共 31 頁 Dim Rst As New 39。查看用戶是否存在 Select * From admin Where 用戶名 =39。 amp。 Replace(Trim(), 39。, ) amp。 39。, conn, 1, 1 If And Then Call ErrorMsg(用戶名不存在！ , 錯誤提示 ) 39。關(guān)閉數(shù)據(jù)庫 Set Rst = Nothing Call Exit Sub If Rst(密碼 ) Then Call ErrorMsg(輸入的密碼不正確！ , 錯誤提示 ) 39。關(guān)閉數(shù)據(jù)庫 Set Rst = Nothing Call Exit Sub End If Else If Rst(用戶權(quán)限 ) Then Call ErrorMsg(請選擇正確的用戶權(quán)限！ , 錯誤提示 ) 39。關(guān)閉數(shù)據(jù)庫 Set Rst = Nothing Call Else Dim qx As String qx = 39。取得用戶輸入的用戶名和密碼 Dim user As String, pwd As String user = Text1 pwd = Text2 Dim strSQL As String Select Case qx Case 0: 39。若權(quán)限為管理員 strSQL = select * from admin where 用戶名 =39。 amp。 user amp。 39。 and 密碼 =39。 amp。 pwd amp。 39。 and 用戶權(quán)限 =39。 amp。 qx amp。 39。 Case 1: 39。若 權(quán)限為教師 strSQL = select * from admin where 用戶名 =39。 amp。 user amp。 39。 and 密碼 =39。 amp。 pwd amp。 39。 and 用戶權(quán)限 =39。 amp。 qx amp。 39。 Case 2: 39。若權(quán)限為學(xué)生 strSQL = select * from admin where 用戶名 =39。 amp。 user amp。 39。 and 密碼 =39。 amp。 pwd amp。 39。and 用戶權(quán)限 =39。 amp。 qx amp。 39。 End Select On Error Resume Next 39。查詢 ，如果已經(jīng)打開，則先關(guān)閉 If = adStateOpen Then strSQL 39。根據(jù) strSQL的內(nèi)容刷新 39。用戶密碼錯誤的次數(shù)，如果錯誤次數(shù)超過 3次，則退出系統(tǒng) Static nTryCount As Integer If Then 39。登錄失敗 MsgBox 對不起，你的用戶或者密碼身份不正確！請重新輸入！！ , vbCritical, 錯誤 第 31 頁 共 31 頁 = 0 = Len(Text1) nTryCount = nTryCount + 1 If nTryCount = 3 Then MsgBox 您無權(quán)操作本系統(tǒng) !再見！ , vbCritical, 無權(quán)限 Unload Me End If Else 39。登陸成功 39。顯示主窗體 , 并將用戶類型和用戶名傳到主窗體中的 mnUserType, msUserName中 Load Form1 With Form1 .Show Unload Me If qx = 1 Then = False = False = False = False = False = False = False Exit Sub End If If qx = 2 Then = False = False = False = False = False = False = False = False Exit Sub End If End With End If End If End If End Sub Private Sub Command2_Click() Call End End Sub Private Sub Form_Load() 39。讀取數(shù)據(jù)庫配置 = Provider=。Data Source=。Persist Security Info=False End Sub