If Len(Trim(txtPassword.Text)) = 0 Then
MsgBox "用户密码为空，请重新输入！！", vbOKOnly
Exit Sub
End If
 
With conlogin
If .State = adStateOpen Then
   .Close
End If
  .Provider = "microsoft.jet.oledb.4.0"
  .ConnectionString = App.Path & "\jinbin.mdb"
  .Open
End With

With rstlogin
If .State = adStateOpen Then
   .Close
End If
   .LockType = adLockReadOnly
   .CursorLocation = adUseClient
   .CursorType = adOpenDynamic
   .ActiveConnection = conlogin
   .Source = "select * from userinfo"
   .Open
 
If Trim(txtPassword.Text) = flagpassword And Len(Trim(txtPassword.Text)) = Len(flagpassword) Then
If flagadmin = "高级用户" Then
wt.flagnumber = 79802223
Unload Me
mainfrm.Show
ElseIf flagadmin = "一般用户" Then
wt.flagnumber = 32220897
Unload Me
mainfrm.Show
Else
MsgBox "非法人员及权限，请找管理员", vbOKOnly
Exit Sub
End If
Else
MsgBox "密码错误，请重新输入"
Exit Sub
End If
End With
End Sub

Private Sub txtgonghao_LostFocus()
Dim conlogin As New ADODB.Connection
Dim rstlogin As New ADODB.Recordset

If Len(Trim(txtgonghao.Text)) <> 0 Then
With conlogin
If .State = adStateOpen Then
   .Close
End If
   .Provider = "microsoft.jet.oledb.4.0"
   .ConnectionString = App.Path & "\jinbin.mdb"
   .Open
End With

With rstlogin
If .State = adStateOpen Then
   .Close
End If
   .LockType = adLockReadOnly
   .CursorLocation = adUseClient
   .CursorType = adOpenDynamic
   .ActiveConnection = conlogin
   .Source = "select userid,username,userpassword,userjibie from userinfo where userid='" & Trim(txtgonghao.Text) & "'"
   .Open
If .RecordCount <> 0 Then
Do Until .EOF
txtusername.Text = Trim(.Fields!UserName.Value)
flagpassword = Trim(.Fields!userpassword.Value)
flagadmin = Trim(.Fields!userjibie.Value)
.MoveNext
Loop
Else
MsgBox "输入的工号非法，请重新输入", vbOKOnly
txtgonghao.Text = ""
txtgonghao.SetFocus
Exit Sub
End If
End With
End If
End Sub

2:添加用户界面设计:

代码设计:
Private Sub cmdadd_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
 
If Len(Trim(txtpassword.Text)) = 0 Then
MsgBox "密码没有输入，请输入！", vbOKOnly
Exit Sub
Else
txtpassword.Text = CStr(Trim(txtpassword.Text))
End If

If Len(Trim(txtpassword2.Text)) = 0 Then
MsgBox "请输入确认密码！", vbOKOnly
Exit Sub
Else
txtpassword2.Text = CStr(Trim(txtpassword2.Text))
End If

If txtpassword.Text <> txtpassword2.Text Then
MsgBox "确认密码和第一次输入的密码不同，请重新输入！", vbOKOnly
Exit Sub
End If

strcnn = "insert into userinfo(username,userid,userpassword,userjibie)values('" & txtuser & "','" & txtgonghao & "','" & txtpassword & "','" & Comboqx.Text & "')"
 
With conuse

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

相关论文