Question

VB连接SQL数据库做用户登录窗口

我要做一个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

Answer 1

我的密码登陆窗源码：你自己改改就可以了。源码绝对可用

Private Sub cmdOK_Click()
Dim sql As String
Dim rs_login As New ADODB.Recordset
Dim conn As New ADODB.Connection
conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\database.mdb"

If Trim(text1.Text) = "" Then
MsgBox "用户名不能为空，请重新输入！"
text1.SetFocus
Else
sql = "select * from 用户表 where user_ID='" & Trim(text1.Text) & "'"
rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then
MsgBox "没有这个用户,请重输入！", vbOKOnly + vbExclamation, ""
text1.Text = ""
text1.SetFocus
Else
username = text1.Text
If Trim(rs_login.Fields(1)) = Trim(text2.Text) Then

Unload Me
图书馆理系统.Show
Else
MsgBox "密码不正确,请重输入！", vbOKOnly + vbExclamation, ""
text2.SetFocus
text2.Text = ""
End If
End If
End If
cnt = cnt + 1
If cnt = 3 Then
Unload Me
End If
End Sub

Private Sub Form_Load()
cnt = 0

End Sub

Answer 2

把你的登录代码贴出来让大家帮你参考参考