图书管理系统 源程序代码

《图书管理系统 源程序代码》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、1：登录窗口代码：OptionExplicitDimXAsInteger'保存密码输入错误次数PublictempnameAsStringPrivateSubcmdOK_Click()DimcnAsADODB.ConnectionDimrsAsADODB.RecordsetDimstrconAsStringDimsqlAsStringSetcn=CreateObject("adodb.connection")Setrs=CreateObject("adodb.recordset")strcon="Provider=MSDASQL.1;PersistSecurityInfo=False;Dat

2、aSource=图书销售系统"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主窗

3、体.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.Set

4、FocusExitSubElseIfCombo1.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.SetFocusEx

5、itSubElse'主窗体管理员权限开放主窗体.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*fro

6、m普通用户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=Fa

7、lse主窗体.Toolbar1.Buttons(1).Visible=False主窗体.Toolbar1.Buttons(2).Visible=False主窗体.Toolbar1.Buttons(5).Visible=FalseEndIfEndIfEndIf'为非游客登录提供密码认证IfTrim(rs.Fields("mima"))=Trim(Text2.Text)Then'tempname=Trim$(rs