谁告诉我这些代码什么意思啊~~、谢谢了.每段都要解释下、、

Question

本帖最后由 bcrun 于 2011-04-12 10:48:23 编辑

Answer 1

总共就一段吧连接数据库根据用户输入的用户名和密码到数据库中查询如果不存在记录就提示“"用户名或密码不正确，请重新登录"”如果存在记录就载入主窗体Frmmain.Show，卸载当前窗体Unload Frmlogin关闭数据库连接

Answer 2

Dim cn As New ADODB.Connection   ‘新建一个CN数据库链接对象
Dim rs As New ADODB.Recordset     ‘新建一个rs数据记录集对象
Dim cmd As New ADODB.Command
Dim connstring As String
Dim sqlstr As String
connstring = "driver={SQL SERVER};server=127.0.0.1;database=student;uid=sa;pwd="
sqlstr = "select * from users where username='" & Trim(Txtuserid.Text) & "' and password='" & Trim(Txtpwd.Text) & "'"
cn.Open connstring
'rs.Open sqlstr, cn, 1, 1   '使用recordset对象的open方法，返回记录集
'Set rs = cn.Execute(sqlstr)  '使用连接对象的Execute方法，返回记录集
cmd.ActiveConnection = cn    '使用Command对象的Execute方法，返回记录集
cmd.CommandText = sqlstr 
Set rs = cmd.Execute
If rs.EOF Then
MsgBox "用户名或密码不正确，请重新登录"
Txtuserid.Text = ""
Txtpwd.Text = ""
Txtuserid.SetFocus  ’获得焦点
Exit Sub
Else
Frmlogin.Hide   ‘隐藏
Frmmain.Show
Unload Frmlogin  '关闭窗口
End If
rs.Close           '关闭记录集 
cn.Close
Set rs = Nothing  ‘释放记录集所内占存空间
Set cn = Nothing