欢迎来到天天文库
浏览记录
ID:56523313
大小:83.00 KB
页数:10页
时间:2020-06-27
《VB图书管理系统.doc》由会员上传分享,免费在线阅读,更多相关内容在行业资料-天天文库。
1、1、概述为适应教育现代化的迫切要求,提高高校图书馆的现代化管理水平,提高图书馆使用效率,更好的配置图书资源,降低工作人员劳动强度;结合本人实际兴趣及知识,开发了此软件。2、详细设计2.1.系统功能模块图2.2.数据流图:3.数据库设计3.1数据库概念结构设计:3.2数据库逻辑结构的设计包括有系统用户表yonghu、读者表duzhe、图书表tushu、借阅表jieshu、设置表shez。图书表tushu字段名称类型说明图书编号文本 书名文本 作者文本 文本 单价文本 本数文本 已借出数文本 借出次数文本 读者表duzhe字段名称类型说明读者编号文本 文本 班级文本 文本 借阅次数文本
2、 已借本数文本 已交罚款文本 借阅表jieshu字段名称类型说明读者编号文本 图书编号文本 借书日期日期/时间 还书日期日期/时间 应还日期日期/时间 续借文本 设置表shez字段名称类型说明还书期限整型 续借期限整型 最大借书数整型 4、主要功能模块设计4.1.系统登陆界面设计功能介绍:用户选择用户名并输入密码,系统按用户名查看yonghu表,若密码正确,则按权限进入图书管理系统的主界面;若用户密码输入不正确,则系统提示出错,要求重新输入密码否则不得进入本系统。(注:还定义了一个模块名为module1.bas,pubyh和quanxian都是全局变量,一个保存用户名,一个保存权限
3、、还有hsqx、xjqx、zdjss用于保存还书期限、续借期限、最大借书数。)代码实现:PrivateSubCommand1_Click() Adodc1.RecordSource="select*fromyonghuwhere用户名='"&DataCombo1.Text&"'and密码='"&Text1.Text&"'" Adodc1.Refresh IfAdodc1.Recordset.EOF=FalseThen pubyh=DataCombo1.Text quanxian=Adodc1.Recordset.Fields("权限") M
4、e.Hide MDIForm1.Show Else MsgBox"密码错误,请重新输入!",vbOKOnly+vbExclamation,"图书馆" Text1.Text="" CallForm_Load EndIfEndSubPrivateSubForm_Load() Adodc1.ConnectionString="Provider=Microsoft.Jet."&"OLEDB.4.0;DataSource="&App.Path&"kcsj.mdb;PersistSecurityInfo=False" '数据库的连接,使用相对
5、路径 Adodc1.RecordSource="select*fromyonghu" Adodc1.Refresh Label5.Caption="日期:"&Date EndSub4.2图书管理系统的主界面设计(a)界面设计:(b)功能介绍:主界面的功能有系统管理模块:系统设置、用户管理、注销、退出。数据管理模块:借书管理、续借管理、还书管理、图书管理、读者管理。数据查询模块:借阅查询、图书查询、读者查询。统计排行模块:读者统计排行、图书统计排行。今日盘点模块:今日借出图书、今日归还图书、今日到期图书。使用了菜单、工具栏和状态栏。(c)代码实现:PrivateSub
6、MDIForm_Activate()UnloadfrmloginAdodc1.ConnectionString="Provider=Microsoft.Jet."&"OLEDB.4.0;DataSource="&App.Path&"kcsj.mdb;PersistSecurityInfo=False" Adodc1.RecordSource="select*fromshez" Adodc1.Refresh hsqx=Adodc1.Recordset.Fields("还书期限") xjqx=Adodc1.Recordset.Fields("续借期限") zdjss
7、=Adodc1.Recordset.Fields("最大借书数")string1="当前还书期限:"&hsqx&"个月 续借期限:"&xjqx&"个月 最大借书数:"&zdjss&"本"SelectCasequanxian '根据权限分配功能的使用 Case"1":beizu="系统管理员:" menuxtsz.Enabled=True …… Case"2": beizu="操作员:"
此文档下载收益归作者所有