VB图书管理系统.pdf

《VB图书管理系统.pdf》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、1、概述为适应教育现代化的迫切要求，提高高校图书馆的现代化管理水平，提高图书馆使用效率，更好的配置图书资源，降低工作人员劳动强度；结合本人实际兴趣及知识，开发了此软件。2、详细设计2．1.系统功能模块图2．2.数据流图：3.数据库设计3.1数据库概念结构设计：3.2数据库逻辑结构的设计包括有系统用户表yonghu、读者表duzhe、图书表tushu、借阅表jieshu、设置表shez。图书表tushu字段名称类型说明图书编号文本书名文本作者文本出版社文本单价文本本数文本已借出数文本借出次数文本读者

2、表duzhe字段名称类型说明读者编号文本姓名文本班级文本电话号码文本借阅次数文本已借本数文本已交罚款文本借阅表jieshu字段名称类型说明读者编号文本图书编号文本借书日期日期/时间还书日期日期/时间应还日期日期/时间续借文本设置表shez字段名称类型说明还书期限整型续借期限整型最大借书数整型4、主要功能模块设计4.1.系统登陆界面设计功能介绍：用户选择用户名并输入密码，系统按用户名查看yonghu表，若密码正确，则按权限进入图书管理系统的主界面；若用户密码输入不正确，则系统提示出错,要求重新输入密

3、码否则不得进入本系统。（注：还定义了一个模块名为module1.bas,pubyh和quanxian都是全局变量，一个保存用户名，一个保存权限、还有hsqx、xjqx、zdjss用于保存还书期限、续借期限、最大借书数。）代码实现：PrivateSubCommand1_Click()Adodc1.RecordSource="select*fromyonghuwhere用户名='"&DataCombo1.Text&"'and密码='"&Text1.Text&"'"Adodc1.RefreshIfAdo

4、dc1.Recordset.EOF=FalseThenpubyh=DataCombo1.Textquanxian=Adodc1.Recordset.Fields("权限")Me.HideMDIForm1.ShowElseMsgBox"密码错误，请重新输入！",vbOKOnly+vbExclamation,"图书馆"Text1.Text=""CallForm_LoadEndIfEndSubPrivateSubForm_Load()Adodc1.ConnectionString="Provider=M

5、icrosoft.Jet."&"OLEDB.4.0;DataSource="&App.Path&"kcsj.mdb;PersistSecurityInfo=False"'数据库的连接，使用相对路径Adodc1.RecordSource="select*fromyonghu"Adodc1.RefreshLabel5.Caption="日期:"&DateEndSub4.2图书管理系统的主界面设计(a)界面设计：（b）功能介绍：主界面的功能有系统管理模块：系统设置、用户管理、注销、退出。数据管理模块：借

6、书管理、续借管理、还书管理、图书管理、读者管理。数据查询模块：借阅查询、图书查询、读者查询。统计排行模块：读者统计排行、图书统计排行。今日盘点模块：今日借出图书、今日归还图书、今日到期图书。使用了菜单、工具栏和状态栏。（c）代码实现：PrivateSubMDIForm_Activate()UnloadfrmloginAdodc1.ConnectionString="Provider=Microsoft.Jet."&"OLEDB.4.0;DataSource="&App.Path&"kcsj.mdb

7、;PersistSecurityInfo=False"Adodc1.RecordSource="select*fromshez"Adodc1.Refreshhsqx=Adodc1.Recordset.Fields("还书期限")xjqx=Adodc1.Recordset.Fields("续借期限")zdjss=Adodc1.Recordset.Fields("最大借书数")string1="当前还书期限:"&hsqx&"个月续借期限:"&xjqx&"个月最大借书数:"&zdjss&"本"Selec

8、tCasequanxian'根据权限分配功能的使用Case"1":beizu="系统管理员:"menuxtsz.Enabled=True⋯⋯Case"2":beizu="操作员:"'权限为2的是一般操作人员menuxtsz.Enabled=False⋯⋯Toolbar1.Buttons.Item(1).Enabled=True⋯⋯Case"3":beizu="读者:"'权限为3的是读者⋯⋯EndSelectStatusBar1.Panels(1).Text=beizu+pubyhS