资源目录
压缩包内文档预览:
编号:507499
类型:共享资源
大小:9.49MB
格式:ZIP
上传时间:2015-11-11
上传人:QQ28****1120
认证信息
个人认证
孙**(实名认证)
辽宁
IP属地:辽宁
12
积分
- 关 键 词:
-
毕业设计论文
- 资源描述:
-
JSJ06-369@计算机图书管理系统,毕业设计论文
- 内容简介:
-
Option ExplicitPublic constr As String 数据库连接信息Public privilege As Integer 用户权限Public rst As ADODB.Recordset 数据库内的记录Public rst1 As ADODB.RecordsetPublic con As ADODB.ConnectionPublic tablename As StringType userdata 用户信息,包括用户名,密码和对应的权限user_id As Stringpwd As Stringright As IntegerEnd TypePublic Sub connect_db()constr = Provider=Microsoft.Jet.OLEDB.4.0; + Data Source= + App.Path + dataComputerBookmanage.mdb + ;Persist Security Info=False 数据库引擎+路径Set con = New ADODB.Connection 新建一个数据库连接con.CursorLocation = adUseClient 用于客户端(ADOR)Recordset对象,游标库属性必须为adUseClientcon.ConnectionString = constr 连接信息con.OpenEnd SubFunction open_connection(table_name As String)Dim sqlstr As StringDim str As StringSet con = New ADODB.ConnectionSet rst = New ADODB.Recordsetcon.CursorLocation = adUseClientsqlstr = Provider=Microsoft.Jet.OLEDB.4.0; + Data Source= + App.Path + dataComputerBookmanage.mdb + ;Persist Security Info=Falsecon.Open sqlstrstr = select * from & table_name & 执行SQL查询rst.Open str, con, adOpenDynamic, adLockOptimisticrst.RequeryEnd FunctionPublic Sub check_privage(rightlevel As Integer)Dim right As Integerright = rightlevelSelect Case rightCase 1: 普通用户,只能查询图书信息和借阅信息Form1.xpcmdbutton1.Enabled = FalseForm1.xpcmdbutton2.Enabled = FalseForm1.xpcmdbutton3.Enabled = FalseForm1.xpcmdbutton4.Enabled = FalseForm1.xpcmdbutton5.Enabled = TrueForm1.xpcmdbutton6.Enabled = TrueForm1.xpcmdbutton7.Enabled = FalseForm1.xpcmdbutton8.Enabled = FalseForm1.ShowUnload frmLoginCase 2: 借书管理员,还可以借书和打印凭证nts Form1.xpcmdbutton1.Enabled = TrueForm1.xpcmdbutton2.Enabled = FalseForm1.xpcmdbutton3.Enabled = FalseForm1.xpcmdbutton4.Enabled = FalseForm1.xpcmdbutton5.Enabled = TrueForm1.xpcmdbutton6.Enabled = TrueForm1.xpcmdbutton7.Enabled = TrueForm1.xpcmdbutton8.Enabled = FalseForm1.ShowUnload frmLoginCase 3: 还书管理员,可以还书Form1.xpcmdbutton1.Enabled = FalseForm1.xpcmdbutton2.Enabled = TrueForm1.xpcmdbutton3.Enabled = FalseForm1.xpcmdbutton4.Enabled = FalseForm1.xpcmdbutton5.Enabled = TrueForm1.xpcmdbutton6.Enabled = TrueForm1.xpcmdbutton7.Enabled = TrueForm1.xpcmdbutton8.Enabled = FalseForm1.ShowUnload frmLoginCase 4: 超级用户Form1.xpcmdbutton1.Enabled = TrueForm1.xpcmdbutton2.Enabled = TrueForm1.xpcmdbutton3.Enabled = TrueForm1.xpcmdbutton4.Enabled = TrueForm1.xpcmdbutton5.Enabled = TrueForm1.xpcmdbutton6.Enab
- 温馨提示:
1: 本站所有资源如无特殊说明,都需要本地电脑安装OFFICE2007和PDF阅读器。图纸软件为CAD,CAXA,PROE,UG,SolidWorks等.压缩文件请下载最新的WinRAR软件解压。
2: 本站的文档不包含任何第三方提供的附件图纸等,如果需要附件,请联系上传者。文件的所有权益归上传用户所有。
3.本站RAR压缩包中若带图纸,网页内容里面会有图纸预览,若没有图纸预览就没有图纸。
4. 未经权益所有人同意不得将文件中的内容挪作商业或盈利用途。
5. 人人文库网仅提供信息存储空间,仅对用户上传内容的表现方式做保护处理,对用户上传分享的文档内容本身不做任何修改或编辑,并不能对任何下载内容负责。
6. 下载文件中如有侵权或不适当内容,请与我们联系,我们立即纠正。
7. 本站不保证下载资源的准确性、安全性和完整性, 同时也不承担用户因使用这些下载资源对自己和他人造成任何形式的伤害或损失。

人人文库网所有资源均是用户自行上传分享,仅供网友学习交流,未经上传用户书面授权,请勿作他用。