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" AndTrim(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 Command1_Click()按钮1点击事件
Dim sql As String定义
一个SQL的字符串
Dim rs_add As New ADODB.Recordset
定义一个新的ADO记录
If Trim(Text1.Text) = "" Then
如果text1文本框内去除左右空格后还是空的
  MsgBox "用户名不能为空", vbOKOnly + vbExclamation, ""
那么弹出MSBOX，内容是“用户名不能为空”，有确认按钮vbOKOnly和取消按钮vbExclamation
  Exit Sub
退出按钮事件
  Text1.SetFocus 
焦点回到text1文本框去
Else
如果text1文本框不等于空
  sql = "select * from 系统管理"
那么将定义的字符串SQL等值于"select * from 系统管理"该内容SQL语句是查询所有表 一个叫“系统管理”的表
  rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic
打开一个新的记录SQL，并且（conn）读取，(adOpenKeyset)对象以只读方式启动，(adLockPessimistic)允许数据增加、删除、修改的操作
注：可以这么简单的表达出来如：rs_add.Open sql, conn,1,3（我一般都这么写简单）
  While (rs_add.EOF = False)执行循环判断语句While如果数据为真
       If Trim(rs_add.Fields(0)) =Trim(Text1.Text) Then
那么字段0去除左右空白等于text1文本框去除左右空白的话
          MsgBox "已有这个用户", vbOKOnly + vbExclamation, ""
那么弹出MSGBOX消息框，内容为"已有这个用户"，该框带有确认按钮vbOKOnly 和取消按钮vbExclamation
          Text1.SetFocus
这个还要说么？累死人
          Text1.Text = ""
Text1文本框清空
          Text2.Text = ""
Text2文本框清空
          Text3.Text = ""
Text3文本框清空
          Combo1.Text = ""
Combo1选择框清空
          Exit Sub
退出按钮事件
        Else
如果不是真的那么...
          rs_add.MoveNext
移动到下一个数据
        End If
结束判断
   Wend
结束循环
   If Trim(Text2.Text) <> Trim(Text3.Text) Then
如果text2左右去除空格后不等于text3左右去除空格的话
      MsgBox "两次密码不一致", vbOKOnly + vbExclamation, ""
........你自己往上翻吧 累
      Text2.SetFocus
      Text2.Text = ""
      Text3.Text = ""
      Exit Sub
   ElseIf Trim(Combo1.Text) <> "system" AndTrim(Combo1.Text) <> "guest" Then
这个也不说了类似.....
      MsgBox "请选择正确的用户权限", vbOKOnly + vbExclamation, ""
      Combo1.SetFocus
      Combo1.Text = ""
      Exit Sub
   Else
      rs_add.AddNew
添加一个新的数据
      rs_add.Fields(0) = Text1.Text
字段0的值等于text1文本框输入的内容
      rs_add.Fields(1) = Text2.Text
字段1的值等于text2文本框输入的内容
      rs_add.Fields(2) = Combo1.Text
字段2的值等于text3文本框输入的内容
      rs_add.Update
开始上传更新数据
      rs_add.Close
关闭数据集
      MsgBox "添加用户成功", vbOKOnly + vbExclamation, ""
      Unload Me
   End If
End If
End Sub
 
.........在不懂 你就是神了！

上一个：用VB 把文本文件转换成HTML文件
下一个：怎样用VB修改快捷方式的路径？