VB图书管理系统.doc

《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="操作员:"