UC知道请好人心帮忙详解下这个VB程序~~谢谢！
来源：百度知道 编辑：UC知道 时间：2024/05/05 22:50:46
以下的程序是一个在网上下载到的管理程序，我很感兴趣。
但是因为是连接数据库，所以很多地方都不明白。
请大家帮我读懂这个程序，谢谢~~
*****************************************
这是一个登陆窗口的代码，我能够明白大概的意思。
但是一些细节问题不是很理解。
希望大家能说的详细一些，深一些也没关系。
Private Sub Command1_Click()
Dim sql As String
Dim rs_login As New ADODB.Recordset[这是连接的意思吗？]
If Trim(txtuser.Text) = "" Then
MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""
txtuser.SetFocus [这是什么意思？]
Else [以下一段我基本没看懂...]
sql = "select * from 系统管理 where 用户名='" & txtuser.Text & "'"
rs_login.Open sql, conn[为什么总是出现对话框编译错误--变量未定义，conn被选中], adOpenKeyset, adLockPessimistic
If rs_login.EOF = True Then [？？？]
MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""
txtuser.SetFocus
Else
If Trim(rs_login.Fields(1)) = Trim(txtpwd.Text) Then
Dim rs_login As New ADODB.Recordset 是ADO记录集,查询记录!
txtuser.SetFocus txtuser文件框获取焦点
sql = "select * from 系统管理 where 用户名='" & txtuser.Text & "'" //给变量SQL赋值,是条SQL语句,从数据库中查询是否有用户名为txtuser文本框输入内容的记录.
rs_login.Open sql, conn[为什么总是出现对话框编译错误--变量未定义，conn被选中], adOpenKeyset, adLockPessimistic //执行SQL语句,写成rs_login.Open sql, conn,1,1 就应该可以了
If rs_login.EOF = True Then [？？？] //如果在数据库内没有查找到记录
MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""
txtuser.SetFocus
Else
If Trim(rs_login.Fields(1)) = Trim(txtpwd.Text) Then
userID = txtuser.Text
userpow = rs_login.Fields(2) //是记录集里的第3个字段,这个应该是对应你密码的那个字段
rs_login.Close
Unload Me //关闭窗口
Form1.Show //显示form1窗口
Else
MsgBox "密码不正确", vbOKOnly + vbExclamation, ""
txtpwd.SetFocus
End If
End If
End If //以下这一段是用来记录的,当密码和用户名错误三次以上,关闭当前窗口
cnt = cnt + 1
If cnt = 3 Then
U