|
#2
ZHRXJR2020-07-13 20:24
应该比较简单，下面是程序代码：
 程序代码：Dim db As New ADODB.Connection, RS As New ADODB.Recordset Private Sub Command1_Click() If Text1.Text <> "" Then MsgBox "你没有填写编号，请填写！", 16, "错误！" Exit Sub End If If Text2.Text <> "" Then MsgBox "你没有填写用户名，请填写！", 16, "错误！" Exit Sub End If If Text3.Text <> "" Then MsgBox "你没有填写密码，请填写！", 16, "错误！" Exit Sub End If If Text4.Text <> "" Then MsgBox "你没有填写权限，请填写！", 16, "错误！" Exit Sub End If Call SJK(db) '添加记录 strSQL = "select * from 用户表 Where 用户名 ='" & Text2.Text & "'" RS.Open strSQL, db, 2, 2 'Call SJK(db)，因此必须使用 db 对象，而不能使用 cnn 对象，下面所有 cnn 均修改为 db If Not RS.EOF Then '判断记录存在与否，如果存在，退出过程，不能存储 RS.Close Set RS = Nothing db.Close Set db = Nothing MsgBox "对不起！这个用户名已经存在，请使用不同的用户名！", 16, "错误！" Exit Sub End If '不存在执行下面的语句 RS.Close Set RS = Nothing strSQL = "select * from 用户表" RS.Open strSQL, db, 3, 2 RS.AddNew RS!编号 = Text1.Text RS!用户名 = Text2.Text RS!密码 = Text3.Text RS!权限 = Text4.Text RS.Update RS.Close Set RS = Nothing db.Close Set db = Nothing MsgBox "新用户已经添加成功！", 64, "成功添加！" Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End Sub |
Private Sub Command1_Click()
On Error Resume Next
Call SJK(db)
If Text1 <> "" Then
Set RS = New ADODB.Recordset
'添加记录
strSQL = "select * from 用户表"
RS.Open strSQL, cnn, adOpenKeyset, adLockOptimistic
RS.AddNew
RS!编号 = Text1.Text
RS!用户名 = Text2.Text
RS!密码 = Text3.Text
RS!权限 = Text4.Text
'RS!数量 = Text5.Text
'RS!单价 = Text6.Text
'Text7.Text = Text5.Text * Text6.Text
'RS!金额 = Text7.Text
Text1.Text = ""
Text2.Text = ""
Text3.Text = ""
Text4.Text = ""
'Text5.Text = ""
'Text6.Text = ""
MsgBox "添加成功"
RS.Update
RS.Close
cnn.Close
Set RS = Nothing
End If
End Sub
