如果您无法下载资料，请参考说明：
1、部分资料下载需要金币，请确保您的账户上有足够的金币
2、已购买过的文档，再次下载不重复扣费
3、资料包下载后请先用软件解压，在使用对应软件打开
1：登录窗口代码：OptionExplicitDimXAsInteger'保存密码输入错误次数PublictempnameAsStringPrivateSubcmdOK_Click()DimcnAsADODB.ConnectionDimrsAsADODB.RecordsetDimstrconAsStringDimsqlAsStringSetcn=CreateObject("adodb.connection")Setrs=CreateObject("adodb.recordset")strcon="Provider=MSDASQL.1;PersistSecurityInfo=False;DataSource=图书销售系统"cn.Openstrcon'游客登录IfCombo1.Text="游客"Then主窗体.tsgl.Visible=False主窗体.yhgl.Visible=False主窗体.gwtd.Visible=False主窗体.kuc.Visible=False主窗体.glyzc.Visible=False主窗体.tshj.Enabled=True主窗体.Toolbar1.Buttons(1).Visible=False主窗体.Toolbar1.Buttons(2).Visible=False主窗体.Toolbar1.Buttons(3).Visible=False主窗体.Toolbar1.Buttons(4).Visible=False主窗体.Toolbar1.Buttons(5).Visible=FalseUnloadMe主窗体.ShowExitSubEndIf'非游客用户登录IfTrim(Text1.Text)=""OrTrim(Text2.Text)=""Then'判断user_ID不能为空MsgBox"用户登录信息未完整填写，请重新输入！"Text1.SetFocusElseIfCombo1.Text="请选择权限"Then'判断登录权限不能为空MsgBox"请选择权限",vbOKOnly+vbExclamation,"警告"Combo1.SetFocusExitSubElseIfCombo1.Text="管理员"Then'管理员登录userleibie="管理员"username=Text1.Textsql="select*from管理员whereuser_ID='"&Trim(Text1.Text)&"'"'由管理员表中查询是否存在rs.Opensql,cn,adOpenKeyset,adLockPessimisticIfrs.EOF=TrueThenMsgBox"没有这个用户,请重输入！",vbOKOnly+vbExclamation,"警告"Text1.Text=""Text2.Text=""Text1.SetFocusExitSubElse'主窗体管理员权限开放主窗体.tsgl.Enabled=True主窗体.yhgl.Enabled=True主窗体.tshj.Enabled=True主窗体.gwtd.Visible=False主窗体.kuc.Visible=True主窗体.exit.Enabled=True主窗体.Toolbar1.Enabled=True主窗体.Toolbar1.Buttons(4).Visible=FalseEndIfElseIfCombo1.Text="普通用户"Then'普通用户登录userleibie="普通用户"username=Text1.Textsql="select*from普通用户whereuser_ID='"&Trim(Text1.Text)&"'"rs.Opensql,cn,adOpenKeyset,adLockPessimisticIfrs.EOF=TrueThenMsgBox"没有这个用户,请重输入！",vbOKOnly+vbExclamation,"警告"Text1.Text=""Text2.Text=""Text1.SetFocusExitSubElse'主窗体普通用户权限开放主窗体.tsgl.Visible=False主窗体.glygl.Visible=False主窗体.kuc.Visible=False主窗体.glyzc.Visible=False主窗体.Toolbar1.Buttons(1).Visible=False主窗体.Toolbar1.Buttons(2).Visible=False主窗体.Toolbar1.Buttons(5).Visible=FalseEndIfEndIfE
立即下载
