VB高速公路票据管理系统

r
If .State = adStateOpen Then
   .Close
End If
   .Provider = "microsoft.jet.oledb.4.0"
   .ConnectionString = App.Path & "\jinbin.mdb"
   .ConnectionTimeout = 10
   .Open
End With

With cmduser
   .ActiveConnection = conuser
   .CommandType = adCmdText
   .CommandText = strcnn
   .Execute
End With

MsgBox "添加用户信息到数据库的操作成功", vbOKOnly, "确认框"
txtuser.Text = ""
txtgonghao.Text = ""
txtpassword.Text = ""
txtpassword2.Text = ""

strcnn = "select userid as 用户工号, username as 用户姓名,userjibie as 用户级别 from userinfo"

With rstuser
   .CursorLocation = adUseClient
   .CursorType = adOpenStatic
   .LockType = adLockOptimistic
   .ActiveConnection = conuser
   .Open strcnn, Options:=adCmdText
   Set Adouser.Recordset = rstuser
   dtguserinfo.ReBind
End With

End Sub

Private Sub cmdcancel_Click()
txtuser.Text = ""
txtgonghao.Text = ""
txtpassword.Text = ""
txtpassword2.Text = ""
End Sub

Private Sub cmddel_Click()
Dim conuser As New ADODB.Connection
Dim cmduser As New ADODB.Command
Dim rstuser As New ADODB.Recordset
Dim strcnn As String

'输入数据进行验证
If Len(Trim(txtuser.Text)) = 0 Then
MsgBox "用户名没有输入，请输入！", vbOKOnly
Exit Sub
Else
txtuser.Text = CStr(Trim(txtuser.Text))
End If

If Len(Trim(txtgonghao.Text)) = 0 Then
MsgBox "工号没有输入，请输入！", vbOKOnly
Exit Sub
Else
txtgonghao.Text = CStr(Trim(txtgonghao.Text))
End If

strcnn = "delete from userinfo where username='" & txtuser & "' and userid='" & txtgonghao & "'"
With conuser
        If .State = adStateOpen Then
           .Close
        End If
        .Provider = "microsoft.jet.oledb.4.0"
        .ConnectionString = App.Path & "\jinbin.mdb"
        .ConnectionTimeout = 10
        .Open
End With

With cmduser
        .ActiveConnection = conuser
        .CommandType = adCmdText
        .CommandText = strcnn
        .Execute
End With

MsgBox "删除用户成功！", vbOKOnly
txtuser.Text = ""
txtgonghao.Text = ""

strcnn = "select userid as 用户工号, username as 用户姓名,userjibie as 用户级别 from userinfo"

Private Sub cmdexit_Click()
adduserfrm.Hide
Unload Me
End Sub

Private Sub Form_Load()

Comboqx.AddItem "高级用户"
Comboqx.AddItem "一般用户"

Dim conuser As New ADODB.Connection
Dim cmduser As New ADODB.Command
Dim rstuser As New ADODB.Recordset
Dim strcnn As String

首页上一页 2 3 4 5 6 7 8 下一页尾页 5/10/10

VB高速公路票据管理系统(五)