vb學生信息管理系統及源代碼-資料下載頁

【導讀】{ "error_code": 17, "error_msg": "Open api daily request limit reached" }

　　

【正文】 Dim strSQL As String Select Case mnUserType Case 0: 39。若身份為管理員 strSQL = select * from 系統人員表 where name=39。 amp。 user amp。 39。 and pwd=39。 amp。 pwd amp。 39。 Case 1: 39。若身份為學生 strSQL = select * from 學生信息表 where name=39。 amp。 user amp。 39。 and serial=39。 amp。 pwd amp。 39。 End Select On Error Resume Next 39。查詢 ，如果已經打開，則先關閉 If = adStateOpen Then strSQL 39。根據 strSQL的內容刷新 39。用戶密碼錯誤的次數，如果錯誤次數超過 3次，則退出系統 Static nTryCount As Integer If Then 39。登錄失敗 MsgBox 對不起，無此用戶或者密碼不正確！請重新輸入！！ , vbCritical, 錯誤 = 0 = Len(txtUser) nTryCount = nTryCount + 1 If nTryCount = 3 Then MsgBox 您無權操作本系統！ , vbCritical, 錯誤 Unload Me End If Else 39。登陸成功 39。顯示 MDI窗體 , 并將用戶類型和用戶名傳到 MDI窗體中的 mnUserType, msUserName中 With frmMain .mnUserType = mnUserType .msUserName = user End With Load frmMain Unload Me End If End Sub Private Sub Form_Load() optUserType(0).Value = True End Sub Private Sub optUserType_Click(Index As Integer) mnUserType = Index End Sub Option Explicit Private Sub Command1_Click() Dim strCon1 As String Dim strCon2 As String On Error GoTo myerr If Trim() = Or Trim() = Then If MsgBox(請輸入查詢條件！ , vbInformation, 提示 ) Then GoTo myerr End If Select Case Trim() Case 學號 strCon1 = Serial Case 姓名 strCon1 = Name Case 班級 strCon1 = Class Case 生日 strCon1 = Birthday Case 性別 strCon1 = Sex Case 家庭地址 strCon1 = Address Case 電話 strCon1 = Tel End Select Select Case Trim() Case 學號 strCon2 = Serial Case 姓名 strCon2 = Name Case 班級 strCon2 = Class Case 生日 strCon2 = Birthday Case 性別 strCon2 = Sex Case 家庭地址 strCon1 = Address Case 電話 strCon2 = Tel End Select select * from 學生信息表 where amp。 _ strCon1 amp。 Trim() amp。 39。 amp。 Trim() _ amp。 39。 amp。 amp。 Trim() amp。 amp。 strCon2 amp。 _ Trim() amp。 39。 amp。 Trim() amp。 39。 = = Student myerr: End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub dgdCX_Click() End Sub Private Sub Form_Load() 39。添加 Combo1的子項作為查詢標準 (學號 ) (姓名 ) (班級 ) (生日 ) (性別 ) (家庭地址 ) (電話 ) = 0 39。添加 Combo2的子項作為關系符 (=) () (=) () (=) () = 0 39。添加 Combo3的子項作為邏輯連接符 (And) (Or) = 0 39。添加 Combo4的子項作為第二種查詢標準 (學號 ) (姓名 ) (班級 ) (生日 ) (性別 ) (家庭地址 ) (電話 ) = 0 39。添加 Combo5的子項作為第二種關系符 (=) () (=) () (=) () = 0 End Sub Private Sub Form_Unload(Cancel As Integer) = True End Sub