VB图书管理系统

1、概述

为适应教育现代化的迫切要求，提高高校图书馆的现代化管理水平，提高图书馆使用效率，更好的配置图书资源，降低工作人员劳动强度；结合本人实际兴趣及知识，开发了此软件。 2、详细设计

2．1.系统功能模块图 2．2. 数据流图：

3.数据库设计

3.1 数据库概念结构设计：

3.2数据库逻辑结构的设计

包括有系统用户表yonghu、读者表duzhe、图书表tushu、借阅表jieshu、设置表shez。 图书表tushu

字段名称 图书编号 书名 作者 出版社 单价 本数 已借出数 借出次数 读者表duzhe 字段名称 读者编号 姓名 班级 电话号码 借阅次数 已借本数 已交罚款 借阅表jieshu 字段名称 读者编号 图书编号 借书日期 还书日期 应还日期 续借 设置表shez 字段名称 还书期限 续借期限 类型 文本 文本 文本 文本 文本 文本 文本 文本 说明 类型 文本 文本 文本 文本 文本 文本 文本 说明 类型 文本 文本 日期/时间 日期/时间 日期/时间 文本 说明 类型 整型 整型

说明

最大借书数 4、主要功能模块设计 4.1.系统登陆界面设计

整型

功能介绍：

用户选择用户名并输入密码，系统按用户名查看yonghu表，若密码正确，则按权限进入图书管理系统的主界面；若用户密码输入不正确，则系统提示出错,要求重新输入密码否则不得进入本系统。（注：还定义了一个模块名为

module1.bas ,pubyh和quanxian都是全局变量，一个保存用户名，一个保存权限、还有hsqx 、xjqx 、zdjss用于保存还书期限、续借期限、最大借书数。） 代码实现：

Private Sub Command1_Click()

Adodc1.RecordSource = \用户名='\DataCombo1.Text & \密码='\

Adodc1.Refresh

If Adodc1.Recordset.EOF = False Then

pubyh = DataCombo1.Text

quanxian = Adodc1.Recordset.Fields(\权限\

Me.Hide

MDIForm1.Show

Else

MsgBox \密码错误，请重新输入！\vbOKOnly + vbExclamation, \图书馆\

Text1.Text = \

Call Form_Load

End If

End Sub

Private Sub Form_Load()

Adodc1.ConnectionString = \

\Info=False\'数据库的连接，使用相对路径

Adodc1.RecordSource = \

Adodc1.Refresh

Label5.Caption = \日期:\

End Sub