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 = "select * from yonghu where 用户名='" & DataCombo1.Text & "' and 密码='" & Text1.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 = "Provider=Microsoft.Jet." & "OLEDB.4.0;Data Source=" & App.Path & "kcsj.mdb;Persist Security Info=False"'数据库的连接，使用相对路径

Adodc1.RecordSource = "select * from yonghu"

Adodc1.Refresh

Label5.Caption = "日期:" & Date

End Sub

4.2图书管理系统的主界面设计

(a)界面设计：

（b）功能介绍：

主界面的功能有系统管理模块：系统设置、用户管理、注销、退出。数据管理模块：借书管理、续借管理、还书管理、图书管理、读者管理。数据查询模块：借阅查询、图书查询、读者查询。统计排行模块：读者统计排行、图书统计排行。今日盘点模块：今日借出图书、今日归还图书、今日到期图书。使用了菜单、工具栏和状态栏。

（c）代码实现：

Private Sub MDIForm_Activate()

Unload frmlogin

Adodc1.ConnectionString = "Provider=Microsoft.Jet." & "OLEDB.4.0;Data Source=" & App.Path & "kcsj.mdb;Persist Security Info=False"

Adodc1.RecordSource = "select * from shez"

Adodc1.Refresh

hsqx = Adodc1.Recordset.Fields("还书期限")

xjqx = Adodc1.Recordset.Fields("续借期限")

zdjss = Adodc1.Recordset.Fields("最大借书数")

string1 = " 当前还书期限:" & hsqx & "个月续借期限:" & xjqx & "个月最大借书数:" & zdjss & "本"

Select Case quanxian'根据权限分配功能的使用

Case "1": beizu = "系统管理员:"

menuxtsz.Enabled = True

……

Case "2":beizu = "操作员:"'权限为2的是一般操作人员

menuxtsz.Enabled = False

……

Toolbar1.Buttons.Item(1).Enabled = True

……

Case "3": beizu = "读者:"'权限为3的是读者

……

End Select

StatusBar1.Panels(1).Text = beizu + pubyh

StatusBar1.Panels(2).Text = string1

End Sub

4.4 借书管理模块