VB图书管理系统
- 格式:doc
- 大小:117.50 KB
- 文档页数:16
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 借书管理模块
(a) 界面设计
b)功能介绍
该部分完成对读者的借书管理并将借书信息写入jieshu表中,并修改duzhe表中借阅次数、已借本数两字段和tushu表中借出次数、已借本数两字段,读者借书数超过系统参数设定的最多本数的不能再借。
(c)代码实现