《图书管理系统》.docx
- 文档编号:23649282
- 上传时间:2023-05-19
- 格式:DOCX
- 页数:22
- 大小:510.63KB
《图书管理系统》.docx
《《图书管理系统》.docx》由会员分享,可在线阅读,更多相关《《图书管理系统》.docx(22页珍藏版)》请在冰豆网上搜索。
《图书管理系统》
图书管理系统
专业:
计算机学号:
3053027067姓名:
钟伟坚
一、应用背景
随着图书馆数以万计的图书,越来越复杂的图书信息,频繁更替的借还书服务,建立一个智能化.系统化.信息化的图书馆管理系统是非常必要的,充分利用计算机的功能实现图书馆管理系统的自动化控制,将是非常必要的,利用Vb简单方便的图形用户界面,简便的操作,完善的数据库管理,能够适应现代化的图书管理.
二、项目目标
本系统的总体目标是实现图书馆系统的基本管理,实现图书馆管理的基本功能,.
1.用户登录模块
授予图书馆用户的登录账号和密码,进入管理系统进行一些图书管理和用户信息管理.
2.图书管理模块
实现图书的添加、删除、修改、更新及取消操作.
3.查询图书模块
实现图书的查询,包括可以从作者.编号.图书.类别.出版社等功能的查询.
4.借书管理模块
实现借书功能
5.查询借书信息模块
实现从已借图书等查询功能.
6.还书管理模块
实现还书功能
7.退出系统模块
实现安全退出系统功能
三解决方案设计
1.利用VB作为开发语言,将数据存在Access数据库中,适应ADO连接数据库.功能结构图如下:
2.表的设计:
1)读者类别表:
ID
种类名称
借书数量
借书期限
有限日期
2)读者信息表
ID
读者名字
读者编号
性别
读者类别
工作单位
家庭住址
电话号码
登记日期
借书数量
3)借阅信息表
借阅编号
读者编号
读者姓名
书籍编号
书籍名称
出借日期
还书日期
4)书籍信息表
书籍编号
书名
类别
作者
出版社
出版日期
登记日期
是否被借出
5)图书类别表
类别名称
类别编号
6)系统信息表
用户名
密码
四系统功能模块分析
1登录窗口
验证用户名和密码源码:
DimsqlAsString
Dimrs_loginAsNewADODB.Recordset
DimconnAsNewADODB.Connection
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\database1.mdb"
IfTrim(Text1.Text)=""Then
MsgBox"用户名不能为空,请重新输入!
"
Text1.SetFocus
Else
sql="select*from系统信息表where用户名='"&Trim(Text1.Text)&"'"
rs_login.Opensql,conn,adOpenKeyset,adLockPessimistic
Ifrs_login.EOF=TrueThen
MsgBox"没有这个用户,请重输入!
",vbOKOnly+vbExclamation,""
Text1.Text=""
Text1.SetFocus
Else
userID=Text1.Text
IfTrim(rs_login.Fields
(1))=Trim(Text2.Text)Then
UnloadMe
Form1.Show
Else
MsgBox"密码不正确,请重输入!
",vbOKOnly+vbExclamation,""
Text2.SetFocus
Text2.Text=""
EndIf
EndIf
EndIf
cnt=cnt+1
Ifcnt=3Then
UnloadMe
所用Access表是系统信息表
输入系统信息表中得用户名和密码都可以进入
2主窗口界面
任意点击一个功能模块都能进入
3图书信息模块
所用数据库表是书籍信息表
在这里你可以按添加图书,修改信息和删除图书,按更新后可以更新数据库
按添加后
书籍信息表如下:
结果为:
其它功能类似.
3查询图书模块
所用表是书籍信息表
Dimrs_findbookAsNewADODB.Recordset
DimconnAsNewADODB.Connection
DimsqlAsString
IfCheck1.Value=vbCheckedThen
sql="书名='"&Trim(Text1.Text&"")&"'"
EndIf
IfCheck2.Value=vbCheckedThen
IfTrim(sql)=""Then
sql="类别='"&Trim(Combo1.Text&"")&"'"
Else
sql=sql&"and类别='"&Trim(Combo1.Text&"")&"'"
EndIf
EndIf
IfCheck3.Value=vbCheckedThen
IfTrim(sql)=""Then
sql="作者='"&Trim(Text2.Text&"")&"'"
Else
sql=sql&"and作者='"&Trim(Text2.Text&"")&"'"
EndIf
EndIf
IfCheck4.Value=vbCheckedThen
IfTrim(sql)=""Then
sql="图书编号='"&Trim(Text3.Text&"")&"'"
Else
sql=sql&"and图书编号='"&Trim(Text3.Text&"")&"'"
EndIf
EndIf
IfCheck5.Value=vbCheckedThen
IfTrim(sql)=""Then
sql="出版社='"&Trim(Text4.Text&"")&"'"
Else
sql=sql&"and出版社='"&Trim(Text4.Text&"")&"'"
EndIf
EndIf
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\database1.mdb"
IfTrim(sql)=""Then
MsgBox"请选择查询方式!
",vbOKOnly+vbExclamation
ExitSub
EndIf
sql="select*from书籍信息表where"&sql
rs_findbook.CursorLocation=adUseClient
rs_findbook.Opensql,conn,adOpenKeyset,adLockPessimistic
DataGrid1.AllowAddNew=False
DataGrid1.AllowDelete=False
DataGrid1.AllowUpdate=False
Ifrs_findbook.RecordCount=0Then
MsgBox"查询不到该图书信息!
",vbOKOnly+vbExclamation
主界面如下:
选择图书类别按计算机查询,点击确定后,查询结果如下:
其它功能查询同此查法.
4读者信息管理模块
主界面如下:
所用表是读者信息表
查询主界面:
点击添加读者后:
添加结果,表的内容如下:
其它功能同此.
5借书管理模块
主界面如下:
选择读者编号或类别进行查询:
结果如下:
结果:
6查询借书信息:
主界面如下:
所用表是书籍信息表.
点击”查询已借图书”
结果如下:
其它功能类同.
7还书模块
主界面如下:
所用表是借阅信息表.
选择读者信息和书籍信息后.
结果如下:
点击还书后;
点击确定后完成还书.
表从下到
更新为:
8退出系统模块
点击后成功退出图书管理系统.
五数据库设计.
1)图书类别表.
2)读者信息表
3)借阅信息表
4)书籍信息表
5)图书类别表
6)系统信息表
六技术细节
本系统利用ADOData控件适应microsoftActiveX数据对象(ADO)来快速建立数据绑定的控件和数据建立连接.
图中的ADObc1控件.
另外也利用了直接连接.
如下所示:
PrivateSubForm_Load()
Dimrs_readerAsNewADODB.Recordset
DimconnAsNewADODB.Connection
Dimrs_bookAsNewADODB.Recordset
DimsqlAsString
sql="select*from读者信息表"
conn.Open"provider=Microsoft.Jet.OLEDB.4.0;datasource="&App.Path&"\database1.mdb"
rs_reader.CursorLocation=adUseClient
rs_reader.Opensql,conn,adOpenKeyset,adLockPessimistic
IfNotrs_reader.EOFThen
DoWhileNotrs_reader.EOF
Combo1.AddItemrs_reader.Fields
(1)
Combo2.AddItemrs_reader.Fields(0)
rs_reader.MoveNext
Loop
EndIf
rs_reader.Close
- 配套讲稿:
如PPT文件的首页显示word图标,表示该PPT已包含配套word讲稿。双击word图标可打开word文档。
- 特殊限制:
部分文档作品中含有的国旗、国徽等图片,仅作为作品整体效果示例展示,禁止商用。设计者仅对作品中独创性部分享有著作权。
- 关 键 词:
- 图书管理系统 图书 管理 系统