學生管理系統(二)---登入窗體
阿新 • • 發佈:2019-02-17
前言:
一直也沒有對遇到的問題進行總結,現在總結一下,是不是相當於又學習了一遍學生啊!
內容:
1、判斷使用者名稱是否為空
'判斷輸入使用者名稱是否為空 If Trim(txtUserName.Text = "") Then MsgBox "沒有這個使用者,請重新輸入使用者名稱!", vbOKOnly + vbExclamation, "警告" txtUserName.SetFocus txtUserName.Text = "" Else '查詢指定使用者名稱的記錄
If Trim(txtUserName.Text = "") Then MsgBox "沒有這個使用者,請重新輸入使用者名稱!", vbOKOnly + vbExclamation, "警告" txtUserName.SetFocus txtUserName.Text = "" Else '查詢指定使用者名稱的記錄txtSQL = "select * from user_Info where user_ID='" & txtUserName.Text & "'" '執行查詢語句 Set mrc = ExecuteSQL(txtSQL, MsgText)txtSQL = "select * from user_Info where user_ID='" & txtUserName.Text & "'" '執行查詢語句 Set mrc = ExecuteSQL(txtSQL, MsgText)
其中Trim()是什麼意思呢?
刪除字串首尾的空白(可以首尾一起,也可以指定首或尾,取決於控制引數),但會保留字串內部作為詞與詞之間分隔的空格。
2、判斷是否存在該使用者名稱
If mrc.EOF Then MsgBox "沒有這個使用者,請重新輸入使用者名稱!", vbOKOnly + vbExclamation, "警告" txtUserName.SetFocus txtUserName.Text = ""
3、判斷輸入密碼是否正確
If Trim(mrc.Fields(1)) = Trim(txtPassword.Text) Then
OK = True
mrc.Close
Me.Hide
UserName = Trim(txtUserName.Text)
FrmMain.Show
Else
MsgBox "輸入密碼不正確,請重新輸入!", vbOKOnly + vbExclamation, "警告"
txtPassword.SetFocus
txtPassword.Text = ""
End If
4、限制驗證次數
Dim micount as integer
micount=micount+1
If miCount = 3 Then
MsgBox "你已經超過允許驗證次數!", vbOKOnly + vbExclamation, "警告"
End
End If
總結:
這是登入窗體需要注意的事項:首先判斷使用者名稱是否為空,然後從資料庫裡查詢是否存在該使用者名稱,然後查詢其密碼是否正確,最後限制一下允許驗證的次數。
回頭看這個邏輯還挺簡單的,以後要好好看看程式碼,真正理解程式碼之後,程式碼也會很簡單的!