VB图书管理系统.doc

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

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

3、1.bas ,pubyh 和 quanxian 都是全局变量，一个保存用户名，一个保存权限、还有 hsqx 、xjqx 、zdjss 用于保存还书期限、续借期限、最大借书数。）代码实现：Private Sub Command1_Click()Adodc1.RecordSource = “select * from yonghu where 用户名=“ Data Source=“ Persist Security Info=False“ 数据库的连接，使用相对路径Adodc1.RecordSource = “select * from yonghu“Adodc1.RefreshLabel5.Ca

4、ption = “日期:“ Data Source=“ Persist Security Info=False“Adodc1.RecordSource = “select * from shez“Adodc1.Refreshhsqx = Adodc1.Recordset.Fields(“还书期限“)xjqx = Adodc1.Recordset.Fields(“续借期限“)zdjss = Adodc1.Recordset.Fields(“最大借书数“)string1 = “ 当前还书期限:“ Data Source=“ Persist Security Info=False“Adodc1.Re

5、cordSource = “select * from duzhe“Adodc1.RefreshDTPicker1.Value = DateDTPicker2.Value = DateAdd(“m“, hsqx, DTPicker1) hsqx 是还书期限End SubPrivate Sub Text1_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 ThenAdodc1.RefreshAdodc1.Recordset.Find “读者编号 =“ & Text1.Text & “If Adodc1.Recordset.E

6、OF = True ThenMsgBox “无此读者编号“, 借书Text2.Text = “Adodc1.RefreshExit SubEnd IfText2.Text = Adodc1.Recordset.Fields(“姓名“)End IfEnd SubPrivate Sub Text16_KeyDown(KeyCode As Integer, Shift As Integer)If KeyCode = 13 ThenAdodc2.RefreshAdodc2.Recordset.Find “图书编号 =“ & Text16.Text & “If Adodc2.Recordset.EOF

7、= True ThenMsgBox “无此图书编号“, 借书Text15.Text = “Adodc2.RefreshExit SubEnd IfText15.Text = Adodc2.Recordset.Fields(“书名“)End IfEnd Sub4.5 图书查询(a)界面设计：(b)功能介绍：对图书可根据不同的条件进行查询（图书编号、书名、作者、出版社）。(c)代码实现：Private Sub Command1_Click()Select Case combo1.ListIndexCase 0Adodc1.Recordset.Find “图书编号 =“ & Text8.Text &

8、 “If Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveFirstAdodc1.Recordset.Find “图书编号 =“ & Text8.Text & “End IfCase 1 书名采用模糊查询Adodc1.Recordset.Find “书名 like *“ & Text8.Text & “*“If Adodc1.Recordset.EOF ThenAdodc1.Recordset.MoveFirstAdodc1.Recordset.Find “书名 like *“ & Text8.Text & “*“End IfEnd SelectEnd Sub5结束语本程序严格按照软件工程的设计流程，使用编程简洁、面向对象的可视化编程语言 Visual Basic 6.0,并结合 MS ACCESS 实现数据库的操作。整个系统实现了一般图书馆系统中的功能。