adminAsString
OptionExplicit
PrivateSubcmdcancel_Click()
Me.Hide
EndSub
PrivateSubcmdok_Click()
DimconloginAsNewADODB.Connection
DimrstloginAsNewADODB.Recordset
IfLen(Trim(txtgonghao.Text))=0Then
MsgBox"工号为空,请重新输入!!",vbOKOnly
ExitSub
EndIf
IfLen(Trim(txtPassword.Text))=0Then
MsgBox"用户密码为空,请重新输入!!",vbOKOnly
ExitSub
EndIf
Withconlogin
If.State=adStateOpenThen
.Close
EndIf
.Provider="microsoft.jet.oledb.4.0"
.ConnectionString=App.Path&"\jinbin.mdb"
.Open
EndWith
Withrstlogin
If.State=adStateOpenThen
.Close
EndIf
.LockType=adLockReadOnly
.CursorLocation=adUseClient
.CursorType=adOpenDynamic
.ActiveConnection=conlogin
.Source="select*fromuserinfo"
.Open
IfTrim(txtPassword.Text)=flagpasswordAndLen(Trim(txtPassword.Text))=Len(flagpassword)Then
Ifflagadmin="高级用户"Then
wt.flagnumber=79802223
UnloadMe
mainfrm.Show
ElseIfflagadmin="一般用户"Then
wt.flagnumber=32220897
UnloadMe
mainfrm.Show
Else
MsgBox"非法人员及权限,请找管理员",vbOKOnly
ExitSub
EndIf
Else
MsgBox"密码错误,请重新输入"
ExitSub
EndIf
EndWith
EndSub
PrivateSubtxtgonghao_LostFocus()
DimconloginAsNewADODB.Connection
DimrstloginAsNewADODB.Recordset
IfLen(Trim(txtgonghao.Text))<>0Then
Withconlogin
If.State=adStateOpenThen
.Close
EndIf
.Provider="microsoft.jet.oledb.4.0"
.ConnectionString=App.Path&"\jinbin.mdb"
.Open
EndWith
Withrstlogin
If.State=adStateOpenThen
.Close
EndIf
.LockType=adLockReadOnly
.CursorLocation=adUseClient
.CursorType=adOpenDynamic
.ActiveConnection=conlogin
.Source="selectuserid,username,userpassword,userjibiefromuserinfowhereuserid='"&Trim(txtgonghao.Text)&"'"
.Open
If.RecordCount<>0Then
DoUntil.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
ExitSub
EndIf
EndWith
EndIf
EndSub
2:添加用户界面设计:
代码设计:
PrivateSubcmdadd_Click()
DimconuserAsNewADODB.Connection
DimcmduserAsNewADODB.Command
DimrstuserAsNewADODB.Recordset
DimstrcnnAsString
'输入数据进行验证
IfLen(Trim(txtuser.Text))=0Then
MsgBox"用户名没有输入,请输入!",vbOKOnly
ExitSub
Else
txtuser.Text=CStr(Trim(txtuser.Text))
EndIf
IfLen(Trim(txtgonghao.Text))=0Then
MsgBox"工号没有输入,请输入!",vbOKOnly
ExitSub
Else
txtgonghao.Text=CStr(Trim(txtgonghao.Text))
EndIf
IfLen(Trim(txtpassword.Text))=0Then
MsgBox"密码没有输入,请输入!",vbOKOnly
ExitSub
Else
txtpassword.Text=CStr(Trim(txtpassword.Text))
EndIf
IfLen(Trim(txtpassword2.Text))=0Then
MsgBox"请输入确认密码!",vbOKOnly
ExitSub
Else
txtpassword2.Text=CStr(Trim(txtpassword2.Text))
EndIf
Iftxtpassword.Text<>txtpassword2.TextThen
MsgBox"确认密码和第一次输入的密码不同,请重新输入!",vbOKOnly
ExitSub
EndIf
strcnn="insertintouserinfo(username,userid,userpassword,userjibie)values('"&txtuser&"','"&txtgonghao&"','"&txtpassword&"','"&Comboqx.Text&"')"
Withconuser
If.State=adStateOpenThen
.Close
EndIf
.Provider="microsoft.jet.oledb.4.0"
.ConnectionString=App.Path&"\jinbin.mdb"
.ConnectionTimeout=10
.Open
EndWith
Withcmduser
.ActiveConnection=conuser
.CommandType=adCmdText
.CommandText=strcnn
.Execute
EndWith
MsgBox"添加用户信息到数据库的操作成功",vbOKOnly,"确认框"
txtuser.Text=""
txtgonghao.Text=""
txtpassword.Text=""
txtpassword2.Text=""
strcnn="selectuseridas用户工号,usernameas用户姓名,userjibieas用户级别fromuserinfo"
Withrstuser
.CursorLocation=adUseClient
.CursorType=adOpenStatic
.LockType=adLockOptimistic
.ActiveConnection=conuser
.Openstrcnn,Options:=adCmdText
SetAdouser.Recordset=rstuser
dtguserinfo.ReBind
EndWith
EndSub
PrivateSubcmdcancel_Click()
txtuser.Text=""
txtgonghao.Text=""
txtpassword.Text=""
txtpassword2.Text=""
EndSub
PrivateSubcmddel_Click()
DimconuserAsNewADODB.Connection
DimcmduserAsNewADODB.Command
DimrstuserAsNewADODB.Recordset
DimstrcnnAsString
'输入数据进行验证
IfLen(Trim(txtuser.Text))=0Then
MsgBox"用户名没有输入,请输入!",vbOKOnly
ExitSub
Else
txtuser.Text=CStr(Trim(txtuser.Text))
EndIf
IfLen(Trim(txtgonghao.Text))=0Then
MsgBox"工号没有输入,请输入!",vbOKOnly
ExitSub
Else
txtgonghao.Text=CStr(Trim(txtgonghao.Text))
EndIf
strcnn="deletefromuserinfowhereusername='"&txtuser&"'anduserid='"&txtgonghao&"'"
Withconuser
If.State=adStateOpenThen
.Close
EndIf
.Provider="microsoft.jet.oledb.4.0"
.ConnectionString=App.Path&"\jinbin.mdb"
.ConnectionTimeout=10
.Open
EndWith
Withcmduser
.ActiveConnection=conuser
.CommandType=adCmdText
.CommandText=strcnn
.Execute
EndWith
MsgBox"删除用户成功!",vbOKOnly
txtuser.Text=""
txtgonghao.Text=""
strcnn="selectuseridas用户工号,usernameas用户姓名,userjibieas用户级别fromuserinfo"
Withrstuser
.CursorLocation=adUseClient
.CursorType=adOpenStatic
.LockType=adLockOptimistic
.ActiveConnection=conuser
.Openstrcnn,Options:=adCmdText
SetAdouser.Recordset=rstuser
dtguserinfo.ReBind
EndWith
EndSub
PrivateSubcmdexit_Click()
adduserfrm.Hide
UnloadMe
EndSub
PrivateSubForm_Load()
Comboqx.AddItem"高级用户"
Comboqx.AddItem"一般用户"
DimconuserAsNewADODB.Connection
DimcmduserAsNewADODB.Command
DimrstuserAsNewADODB.Recordset
DimstrcnnAsString
strcnn="selectuseridas用户工号,usernameas用户姓名,userjibieas用户级别fromuserinfo"
Withconuser
If.State=adStateOpenThen
.Close
EndIf
.Provider="microsoft.jet.oledb.4.0"
.ConnectionString=App.Path&"\jinbin.mdb"
.ConnectionTimeout=10
.Open
EndWith
Withrstuser
.CursorLocation=adUseClient
.CursorType=adOpenStatic
.LockType=adLockOptimistic
.ActiveConnection=conuser
.Openstrcnn,Options:=adCmdText
SetAdouser.Recordset=rstuser
dtguserinfo.ReBind
EndWith
EndSub
3:统计多次票根
代码分析:
P
上一篇:
vb高校固定资产管理系统(论文和程序)
下一篇:
试析影响公路路面平整度的因素及应采取的施工措施