Question

在线等 哪位高手帮我分析一下这些VB源代码的意思，我实在是没分了，不好意思

Private Sub Command1_Click()
Dim sql As String
Dim rs_add As New ADODB.Recordset
If Trim(Text1.Text) = "" Then
MsgBox "用户名不能为空", vbOKOnly + vbExclamation, ""
Exit Sub
Text1.SetFocus
Else
sql = "select * from 系统管理"
rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic
While (rs_add.EOF = False)
If Trim(rs_add.Fields(0)) = Trim(Text1.Text) Then
MsgBox "已有这个用户", vbOKOnly + vbExclamation, ""
Text1.SetFocus
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Combo1.Text = ""
Exit Sub
Else
rs_add.MoveNext
End If
Wend
If Trim(Text2.Text) <> Trim(Text3.Text) Then
MsgBox "两次密码不一致", vbOKOnly + vbExclamation, ""
Text2.SetFocus
Text2.Text = ""
Text3.Text = ""
Exit Sub
ElseIf Trim(Combo1.Text) <> "system" And Trim(Combo1.Text) <> "guest" Then
MsgBox "请选择正确的用户权限", vbOKOnly + vbExclamation, ""
Combo1.SetFocus
Combo1.Text = ""
Exit Sub
Else
rs_add.AddNew
rs_add.Fields(0) = Text1.Text
rs_add.Fields(1) = Text2.Text
rs_add.Fields(2) = Combo1.Text
rs_add.Update
rs_add.Close
MsgBox "添加用户成功", vbOKOnly + vbExclamation, ""
Unload Me
End If
End If
End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
Combo1.AddItem "system"
Combo1.AddItem "guest"
End Sub

Answer 1

通过数据库进行用户注册的代码
Text1文本框为输入用户名
Text2文本框为输入密码
Text3文本框为再次输入密码
Combo1为权限，有system（可能是管理员），guest（可能是客人）
按钮一点击注册
按钮二点击关闭窗口

以下按顺序解释三个函数

按钮1点击后先判断Text1文本框是否为空，为空提示"用户名不能为空"并设置Text1文本框获得焦点
不为空则打开数据库判断用户名是否已存在，存在就Text1文本框获得焦点，清空输入的用户名和密码，其中，判断的方法是逐个用户名对比
如果输入的Text2文本框和Text3文本框不同则Text2文本框获得焦点，并清空输入的密码
如果Combo1不是管理员又不是客人则提示"请选择正确的用户权限"，并设置Combo1获得焦点
以上为判断输入错误的处理
如果成功的话，则在数据库中添加信息（用户名、密码、权限），并提示"添加用户成功"，关闭窗口

按钮2点击关闭窗口

最后是窗体加载时的操作
Combo1添加"system"选项
Combo1添加"guest"选项