:大数据实习报告

　　If i > pcount Then MsgBox "恭喜你，该用户名可用！": Text2.SetFocus End Sub

　　Private Sub CmdRegister_Click() Dim str As String

　　str = "select* from 管-理-员用户表"

　　Adodc1.RecordSource = str Adodc1.Refresh

　　If Adodc1.Recordset.BOF = False Then

　　pcount = Adodc1.Recordset.RecordCount End If If

　　i<Adodc1.Recordset.PageCount Then MsgBox "对不起，你还没有检查你的用户名是否可用！" End If If i > Adodc1.Recordset.PageCount And Trim(Text2.Text) = Trim(Text3.Text) Then

　　Adodc1.Recordset.AddNew Adodc1.Recordset.Fields("用户名") = Trim(Text1.Text) Adodc1.Recordset.Fields("管-理-员类别") = Combo1.Text Adodc1.Recordset.Fields("密码") = Trim(Text2.Text) Adodc1.Recordset.Updat MsgBox "恭喜，成功注册新用户！"

　　Else MsgBox "对不起，两次输入密码不一致!" Text2.Text = "" Text3.Text = "" Text2.SetFocus End If End Sub

　　Private Sub Form_Load()