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

 

添加用户的一个界面。

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

 

附代码如下

 

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