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