Question

高分悬赏！！！请帮我注释这段VB程序~~~要逐条解释~谢谢啦！急用！在线等。。。

不好意思~在这里~我急等。。。谢谢您啦

Private Function Check_PassWord() As Byte
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset
Dim connstr
connstr = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & App.Path & "\db1.mdb;"
conn.Open connstr
username = Trim(username.Text)
password = Trim(password.Text)
strSQL = "SELECT * FROM 系统用户 WHERE username='" & username & "'"
Set objRs = conn.Execute(strSQL)
If objRs.EOF Then
Check_PassWord = 0
Else
If password <> Trim(objRs("password")) Then
Check_PassWord = 1
Else
Check_PassWord = 2
CurrentUserName = objRs("username")
CurrentUserPassWord = objRs("password")
' CurrentUserStatus = objRs.Fields("身份").Value
End If
End If
conn.Close
Set objRs = Nothing
Set conn = Nothing
Exit Function
Check_PassWord = 255
End Function

Answer 1

这是个根据用名检查登录密码的函数。
Private Function Check_PassWord() As Byte
Dim conn As New ADODB.Connection ：定义一个数据库连接对象。
Dim rs As New ADODB.Recordset ：定义一个记录集对象
Dim connstr ：定义一个字符串数据对象
connstr = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & App.Path & "\db1.mdb;" ：给connstr赋值，connstr是conn用来连接数据库的一个参数，指定打开一个access数据库，数据库文件db1.mdb和这个VB程序的处在同一个文件夹中，App.Path是此程序存放的路径。
conn.Open connstr ：conn根据connstr提供的信息和数据库建立连接，也就是打开数据库文件。
username = Trim(username.Text) ：把从username文本框内取得的文本前后去空以后赋给变量username。
password = Trim(password.Text) ：同上。
strSQL = "SELECT * FROM 系统用户 WHERE username='" & username & "'" ：strSQL是提供给记录集对象的一个参数，告诉记录集对象准备取得数据库内什么样的数据。此例的意思是取得系统用户表内所有名字和从username文本框内取的名字相同的记录。
Set objRs = conn.Execute(strSQL) ：记录集对象执行操作获取数据。objRs是一个记录集对象。
If objRs.EOF Then :判断记录集是否为空，因为记录集对象的EOF属性为Ture的话，记录集就是空的。
Check_PassWord = 0 ：如果记录集对象为空的话，此函数的值为0.
Else
If password <> Trim(objRs("password")) Then ：如果password文本框内的数据和记录集内的密码数据不一样的话。
Check_PassWord = 1 ：此函数值为1.
Else 其余情况下：
Check_PassWord = 2 ：此函数值为2，下面2句把用户名和密码赋给相应的变量。
CurrentUserName = objRs("username")
CurrentUserPassWord = objRs("password")
' CurrentUserStatus = objRs.Fields("身份").Value
End If
End If
conn.Close ：关闭数据库连接
Set objRs = Nothing ：释放记录集对象
Set conn = Nothing ：释放数据库连接对象
Exit Function ：退出此函数
Check_PassWord = 255 ：函数值为255.
End Function

代码意思就是根据用户名取得密码，如果不存在这个用户，函数返回255.

Answer 2

Private Function Check_PassWord() As Byte'定义一个名为Check_PassWord的函数，返回值为byte类型
Dim conn As New ADODB.Connection'定义一个连接对象
Dim rs As New ADODB.Recordset'定义数据集对象
Dim connstr '定义连接字符窜变量
connstr = "PROVIDER=MICROSOFT.JET.OLEDB.4.0;DATA SOURCE=" & App.Path & "\db1.mdb;"'对连接字符串变量进行赋值，前面部分是固定的连接access数据的写法app.path属性返回应用程序所在的路径，连接上“db1.mdb”,也就是告诉程序数据库文件位置之所在。
conn.Open connstr'使用连接对象进行连接
username = Trim(username.Text)'从窗体的名为username的文本框中读出 内容
password = Trim(password.Text)'从窗体的名为password的文本框中读出 内容
strSQL = "SELECT * FROM 系统用户 WHERE username='" & username & "'" '定义查询语句变量
Set objRs = conn.Execute(strSQL) '执行查询语句 将查询结果 放入 objRs中
If objRs.EOF Then'判断 查询结果是否为空
Check_PassWord = 0
Else
If password <> Trim(objRs("password")) Then'判断用户输入的密码跟库中读出的用户的密码是否一致
Check_PassWord = 1'设置 验证标志变量（失败）
Else
Check_PassWord = 2'设置 验证标志变量（失败）
CurrentUserName = objRs("username")'设置当前用户的用户名
CurrentUserPassWord = objRs("password")'设置当前用户的用户密码
' CurrentUserStatus = objRs.Fields("身份").Value'设置当前用户的用户身份
End If
End If
conn.Close'关闭连接
Set objRs = Nothing'释放数据集对象
Set conn = Nothing'释放连接对象
Exit Function
Check_PassWord = 255'函数的返回值
End Function

Answer 3

简单来说....如果返回值为0 则用户名错误
返回1则表示密码错误
返回2则表示登录成功,并记录用户的登录信息给全局变量
至于后面的255好象没有什么用...在退出函数之后,一点效果也没有

Answer 4

代码呢?