评价网 > 科教论文 > 工学毕业论文 > 计算机论文 > 正文

VB高速公路票据管理系统(一)毕业论文(5)

2013-05-08 18:11 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 & "'"

（科教作文网http://zw.ΝsΕac.cOM编辑）

 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"

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 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