文档介绍:1:登录窗口代码:OptionExplicitDimXAsInteger'保存密码输入错误次数PublictempnameAsStringPrivateSubcmdOK_Click().=CreateObject("")Setrs=CreateObject("")strcon="Provider=;PersistSecurityInfo=False;DataSource=.Openstrcon'="游客"======(1).Visible=(2).Visible=(3).Visible=(4).Visible=(5).Visible='非游客用户登录IfTrim()=""OrTrim()=""Then'判断user_ID不能为空MsgBox"用户登录信息未完整填写,请重新输入!"="请选择权限"Then'判断登录权限不能为空MsgBox"请选择权限",vbOKOnly+vbExclamation,"="管理员"Then'管理员登录userleibie="管理员"username=="select*from管理员whereuser_ID='"&Trim()&"'"'由管理员表中查询是否存在rs.,adOpenKeyset,=TrueThenMsgBox"没有这个用户,请重输入!",vbOKOnly+vbExclamation,"警告"=""=""'=======(4).Visible=="普通用户"Then'普通用户登录userleibie="普通用户"username=="select*from普通用户whereuser_ID='"&Trim()&"'"rs.,adOpenKeyset,=TrueThenMsgBox"没有这个用户,请重输入!",vbOKOnly+vbExclamation,"警告"=""=""'====(1).Visible=(2).Visible=(5).Visible=FalseEndIfEndIfEndIf'为非游客登录提供密码认证IfTrim(("mima"))=Trim()Then'tempname=Trim$(("真实姓名"))'usereal==2ThenMsgBox"密码输入超过三次,请联系管理员!",vbOKOnly+vbExclamation,"警告"UnloadMeExitSubEndIfMsgBox"密码不正确,请重输入!",