学生信息管理系统之 添加用户流程

 

添加用户的一个界面。

自己用画图软件画的确认按钮的代码流程图。如下：

 

附代码如下

 

Private Sub cmdOK_Click()                                   '
    Dim txtSQL As String
    Dim mrc As ADODB.Recordset
    Dim MsgText As String
    
    If Trim(Text1(0).Text) = "" Then                            '首先先判断用户名是否为空
        MsgBox "请输入用户名称！", vbOKOnly + vbExclamation, "警告"
        Exit Sub
        Text1(0).SetFocus
    Else                                                        '其次判断用户名是否已存在
        txtSQL = "select * from user_Info "                     ‘查询数据库
        Set mrc = ExecuteSQL(txtSQL, MsgText)
        While (mrc.EOF = False)                                 '如果该记录不为空

            If Trim(mrc.Fields(0)) = Trim(Text1(0)) Then
                MsgBox "用户已经存在，请重新输入用户名！", vbOKOnly + vbExclamation, "警告"
                Text1(0).SetFocus            
                Text1(0).Text = ""
                Text1(1).Text = ""
                Text1(2).Text = ""
                
                Exit Sub
            Else
                mrc.MoveNext
            End If
        Wend
    End If
    
    If Trim(Text1(1).Text) <> Trim(Text1(2).Text) Then      '判断两次密码是否一致
        MsgBox "两次输入密码不一样，请确认！", vbOKOnly + vbExclamation, "警告"
        Text1(1).SetFocus
        Text1(1).Text = ""
        Text1(2).Text = ""
        Exit Sub
        
    Else                                                    '判断输入的密码是否为空
        If Text1(1).Text = "" Then
            MsgBox "密码不能为空！", vbOKOnly + vbExclamation, "警告"
            Text1(1).SetFocus
            Text1(1).Text = ""
            Text1(2).Text = ""
        Else                                                '添加新用户
            mrc.AddNew '
            mrc.Fields(0) = Trim(Text1(0).Text)
            mrc.Fields(1) = Trim(Text1(1).Text)
            mrc.Update                               '更新数据库
            mrc.Close
            Me.Hide
            MsgBox "添加用户成功！", vbOKOnly + vbExclamation, "添加用户"
        End If
    End If
        
End Sub