我要做一個VB+SQL的圖書管理系統,但是在用戶登錄窗口處被卡住了,求各位大蝦們幫幫忙!界面上只用輸入用戶名和密碼,數據庫是tsglxt_Data,表名為user,表中用戶名是userName,密碼是passwo...

我要做一個VB+SQL的圖書管理系統,但是在用戶登錄窗口處被卡住了,求各位大蝦們幫幫忙!

界面上只用輸入用戶名和密碼,數據庫是tsglxt_Data,表名為user,表中用戶名是userName,密碼是password,窗口中輸入用戶名和密碼的是兩個文本框,分別命名為txtname和txtpsd.運行時要求是輸入用戶名和密碼,然后檢查數據庫中是否有此用戶名,再驗證密碼是否正確,正確則frmMain顯示,只有三次登錄機會!

幫我寫寫這一部分的代碼,最好要有注釋!

請大俠們幫幫忙,急用啊,采用后追加分!感激不盡!

Dim conn As New ADODB.Connection

Dim RS As ADODB.Recordset

Dim SQlstr As String

conn.Open "Provider=SQLOLEDB.1;Data Source=" & App.Path & "\data\tsjyxt_Data.mdf;Persist Security Info=False"

SQlstr = "select * from user where userName='" & txtname.Text & "'"

RS.Open SQlstr, conn, adOpenKeyset, adLockPessimistic

If RS.EOF = True Then

MsgBox "沒有這個用戶", vbOKOnly + vbExclamation, ""

txtname.SetFocus

Else '檢驗密碼是否正確

If Trim(RS.Fields("password")) = Trim(txtpsd.Text) Then

Unload Me

frmMain.Show

Else

MsgBox "密碼不正確", vbOKOnly + vbExclamation, ""

txtpsd.SetFocus

End If

End If

展開

總結

以上是生活随笔為你收集整理的vb与mysql实现登录界面_VB连接SQL数据库做用户登录窗口的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。