Question

求高手 帮忙解释一下VB代码 请高手帮忙逐条注释一下啊，小弟是初学者在这里谢过了。

Private Sub CmdLogIn_Click()
Dim rs As New ADODB.Recordset
rs.Open "select * from 用户 where 姓名='" & Trim(TxtID.Text) & "' and 密码='" & Trim(TxtPwd.Text) & "'", Cnn
If rs.EOF = True Then
MsgBox "密码错误或者无此用户", vbCritical
rs.Close
Set rs = Nothing
Exit Sub
End If

strXM = Trim(rs.Fields(0).Value)
strMM = Trim(rs.Fields(1).Value)
strQX = Trim(rs.Fields(2).Value)
rs.Close
Set rs = Nothing
Unload Me
FrmMain.Show
End Sub

Answer 1

Private Sub CmdLogIn_Click()
Dim rs As New ADODB.Recordset //数据库连接
rs.Open "select * from 用户 where 姓名='" & Trim(TxtID.Text) & "' and 密码='" & Trim(TxtPwd.Text) & "'", Cnn //数据查询即登录验证
If rs.EOF = True Then //如果查询结果为空
MsgBox "密码错误或者无此用户", vbCritical //提示
rs.Close //关闭数据库
Set rs = Nothing //释放数据库连接
Exit Sub
End If

strXM = Trim(rs.Fields(0).Value) //赋值(查询结果中第一列的值)
strMM = Trim(rs.Fields(1).Value)//赋值）(查询结果中第二列的值)
strQX = Trim(rs.Fields(2).Value)//赋值（查询结果中第三列的值）
rs.Close
Set rs = Nothing
Unload Me //关闭当期窗口
FrmMain.Show //显示其它窗口
End Sub