[求助]VB代码解释
Private Sub xpbutton1_Click()
On Error GoTo finish '防错代码，防止意外而导致的退出
Set cg1 = cnn.Execute("select * from 用户管理 where 用户名='" & Text1.Text & "' and 密码='" & Text2.Text & "'")
'以上使用最通用的方法来查询数据库中是否有匹配的记录
If cg1.EOF = True Then '如果没有记录则说明用户或密码为错误的
If pnum < 2 Then 'pnum就是密码验证次数，当次数超过3次，系统会自动保护退出
pnum = pnum + 1
MsgBox "用户名或密码错误!", vbInformation, "错误次数：" & pnum
Text1.Text = ""
Text2.Text = ""
Text1.SetFocus
Exit Sub
Else
MsgBox "用户名或密码错误超过三次,系统会自动退出", vbInformation, "提示"
End
End If
Else
loginname = cg1.Fields(0)
Unload Me
MDIForm1.Show
End If
Exit Sub
finish: '返回错误提示
End Sub
以上的代码中:loginname=cg1.fields()
unload me 是什么意思啊。麻烦解释下啊。
