该楼层疑似违规已被系统折叠 隐藏此楼查看此楼
Dim ADOcn As New ADODB.Connection
Private Sub Command1_Click()
Dim Pass_res As String
Dim ADOrs1 As New Recordset '声明一个记录集对象
Dim ADOrs2 As New Recordset '声明一个记录集对象
Dim strSQL As String
Dim user As String
ADOrs1.ActiveConnection = ADOcn '与ADOcn连接对象关联
ADOrs2.ActiveConnection = ADOcn '与ADOcn连接对象关联
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "用户名或者密码不能为空,请重新输入!", vbCritical + vbOKOnly
Text1.SetFocus '定位光标
Exit Sub
End If
'首先查询表中是否存在关键字相同的记录
strSQL = "select * from 用户"
strSQL = strSQL & " Where 用户名='" + Text1.Text + "'"
ADOrs1.Open strSQL
'如果关键字重复,则退出
If Not ADOrs1.EOF Then
MsgBox "该用户名已经存在,请输入其他用户名进行注册。", vbOKOnly
Exit Sub
End If
ADOrs2.Open "select * from 用户", , , adLockOptimistic
ADOrs2.AddNew
ADOrs2("用户名") = Text1.Text
ADOrs2("密码") = Text2.Text
ADOrs2("用户类型") = "普通"
ADOrs2.Update
ADOrs1.Close '关闭记录集
ADOrs2.Close '关闭记录集
Set ADOrs1 = Nothing
Set ADOrs2 = Nothing
MsgBox "注册成功!"
Unload Me
End Sub
Private Sub Form_Initialize()
ADOcn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=user.mdb;Persist Security Info=False"
If ADOcn.State = adStateClosed Then ADOcn.Open '打开到数据库的连接
End Sub
Private Sub Form_Load()
Text1.Text = ""
Text2.Text = ""
End Sub