数据库优秀课程设计图书综合管理系统.docx

数据库大作业

信息科学和工程学院
12月

图书信息管理系统

姓 名：汤江波
班 级：电气T1501
学 号：
指导老师：韩华

目录

1.绪论 4
1.1 背景介绍 4
1.2 开发背景选择及介绍 4
2.需求分析 5
2.1 系统需求 5
2.2 功效需求 5
3.概念设计阶段 4
3.1 实体E-R图 6
4.逻辑结构设计阶段 6
4.1 E-R图转换为关系模型 6
4.2 数据字典 6
5数据库实施和维护 7
5.1 创建数据库、数据表 7
6.应用程序设计 8
6.1 图书管理员管理处理 8
6.2 图书查询 12
6.3 用户登录 17
6.4 背景设置 22
7. 心得体会 24
8.参考文件 24

1.绪论
1.1 背景介绍
伴随社会发展，大家对于知识需求也在不停地增加。书籍作为大家获取并增加知识关键路径，使得图书馆在大家生活中占有了一定位置。不过近几年来，伴随书量不停增加，造成了书库空间极度不足，图书挤压，管理不善。这些全部直接影响了读者对图书馆藏书充足利用。这时图书馆就尤其需要开发一套书刊租借管理系统，经过该系统来提升图书馆管理效率，从而降低管理方面工作流和成本。 
一个现代化图书馆在正常运行中总是面对大量读者信息，书籍信息和二者相互作用产生借书信息，还书信息。面对图书馆数以万计图书，纷繁复杂读者信息，频繁更替借还书信息，传统直接方法不仅管理出现漏洞，造成损失。所以有一个智能化、系统化、信息化图书管理系统十分关键。充足利用计算机功效实现对读者管理、书籍管理，借阅管理等自动化控制，将会使图书馆工作大大减弱。方便友好图形界面、简便操作、完善数据库管理。将会使得图书馆系统极大程度应用于现代化图书管理中。
1.2 开发背景选择及介绍
1.2.1 SQL Server R2介绍
SQL是英文（Structured  Query Language）缩写，意思为结构化查询语言。SQL语言关键功效就是同多种数据库建立联络，进行沟通。SQL被作为关系型数据库管理系统标准语言。SQL语句能够用来实施多种多样操作，比如更新数据库中数据，从数据库中提取数据等。现在，绝大多数流行关系型数据库管理系统，如Oracle, Sybase, Microsoft SQL Server, Access等全部采取了SQL语言标准。
SQL语言有以下多个优点：
1. 非过程化语言
SQL是一个非过程化语言，因为它一次处理一个统计，对数据提供自动导航。SQL允
许用户在高层数据结构上工作，而不对单个统计进行操作，可操作统计集，全部SQL 语
句接收集合作为输入，返回集合作为输出。SQL集合特征许可一条SQL语句结果作为另
一条SQL语句输入。
SQL不要求用户指定对数据存放方法， 这种特征使用户更易集中精力于要得到结果；
全部SQL语句使用查询优化器，它是RDBMS一部分，由它决定对指定数据存取最快速
度手段，查询优化器知道存在什么索引，在哪儿使用索引适宜，而用户则从不需要知道表
是否有索引、有什么类型索引。
2. 统一语言
SQL可用于全部用户DB活动模型，包含系统管理员、数据库管理员、 应用程序员、决议支持系统人员及很多其它类型终端用户。基础SQL 命令只需极少时间就能学会，最高级命令在几天内便可掌握。
3. 全部关系数据库公共语言
因为全部关键关系数据库管理系统全部支持SQL语言，用户可将使用SQL技能从一个RDBMS(关系数据库管理系统)转到另一个，全部用SQL编写程序全部是能够移植。
1.2.2 VB6.0介绍
VB 就是 Visual Basic 意思，是一个常见编程开发工具。它基础是编程语言Basic ，Visual Basic 简单点来说就是微软为了愈加好让大家学习编程，应用上 Basic 开发语言一套工具，简称就是 VB。VB 面世使原本极其复杂困难编程、软件开发工作变得简单。VB 是 Basic 语言软件开发者首选编译器，是学习 Basic 语言编程必需要接触而且是常常接触一款整合型技术编译器。

2.需求分析
2.1 系统需求
图书管理系统关键功效是用于查询各项图书基础信息（包含图书编号、书名、作者、价格等），用户对图书借阅，归还和修改用户密码等操作。
用
户

图书信息管理系统
借阅信息
罚款
管
理
员
修改密码 用户信息
借书
还书
游
客
图书信息

图书查询

图1-1 图书信息管理系统需求分析

2.2 功效需求
1. 系统管理。系统管理功效是在该系统运行结束后，用户经过选择“系统管理”-“退出”命令能正常退出系统，回到Windows环境。
2. 管理员登录。管理员能够方便进行图书管理，用户管理。图书管理包含图书信息查询，添加，修改，删除。用户管理包含用户信息添查询，添加，修改和删除。
3. 背景设置。设置背景和背景音乐。这是一个辅助功效，目标是让操作者能在一个轻松、愉快环境下使用图书管理系统。
4. 图书查询。未注册用户读者也能够浏览全部图书信息，不过无法借阅。
5. 帮助。相关中显示相关图书管理系统信息。
6. 用户登录。用户经过卡号和密码进行登录。登录后用户可进行图书借阅，归还，超期罚款，修改密码和借阅信息查询等操作。
3. 概念设计阶段

3.1实体E-R图

3.1.1 管理员实体E-R图

账户
密码

管理员

3.1.2系统E-R图

4.逻辑结构设计阶段
4.1 E-R图转换为关系模型
图书信息（编号，书名，作者，价格，出版社，类型，库存）
读者（卡号，姓名，性别，类型，登录密码，罚款，借书数量，余额，等级，单位）
借阅（编号，卡号，借书时间，还书时间）
管理员（账户，密码）
4.2 数据字典
表4-2-1 图书信息表
表中列名
数据种类及长度
可否为空
编号
char(10)
Not null
书名
nchar(20)
Not null
作者
nchar(20)
Not null
价格
float
Null
出版社
nchar(20)
Null
类型
nchar(20)
Not null
库存
int
Not null

表4-2-2 用户表
表中列名
数据种类及长度
可否为空
卡号
char(10)
Not null
姓名
nchar(10)
null
性别
nchar(10)
null
类型
nchar(10)
Null
登录密码
varchar(10)
null
罚款
float
null
借书数量
int
null
余额
float
null
等级
nchar(20)
null
单位
nchar(10)
null

表4-2-3 借阅表
表中列名
数据种类及长度
可否为空
编号
char(10)
Not null
卡号
char(10)
Not null
借书时间
datetime
Not null
还书时间
datetime
null

表4-2-4 管理员表
表中列名
数据种类及长度
可否为空
账户
nchar(10)
Not null
密码
nchar(10)
Not null
5.数据库实施和维护
5.1 创建数据库，数据表
5.1.1 创建book数据库

5.1.2 创建图书信息表

5.1.3 创建用户表

5.1.4 创建借阅表

5.1.5 创建管理员表

6. 应用程序设计
6.1 图书管理员管理处理
6.1.1 管理员处理步骤图
开始

管理员登录

否
判定
密码

管理员界面
是

选择操作

图书管理
用户管理

退出

结束

6.1.2 管理员处理功效实现
6.1.2.1 管理员登录
输入管理员账户和密码，按登录键登录，或按 Enter 键快捷登陆，返回键返回

Public try As Integer '登录次数
Private Sub Command1_Click()
If Text1 = "" Then
MsgBox "请输入管理员账户", , "登录"
Text1.SetFocus
Exit Sub
End If
If Text2 = "" Then
MsgBox "请输入密码", , "登录"
Text2.SetFocus
Exit Sub
End If
sqlstr = "select * from 管理员 where 账户='" & Trim(Text1) & "' and 密码='" & Trim(Text2) & "'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
With Adodc1.Recordset
If Not .EOF Then
guanliyuan.Show
Unload Me
Else
MsgBox "账户或密码输入错误，请重新输入。", vbOKOnly + vbExclamation, "警告"
Text1 = ""
Text2 = ""
Text1.SetFocus
try = try + 1
If try > 2 Then
MsgBox "三次输入错误,系统将关闭", , "登录"
End
Else
Exit Sub
End If
Exit Sub
End If
End With
End Sub
Private Sub text2_keypress(keyascii As Integer)
If keyascii = 13 Then
Command1_Click
End If
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
6.1.2.2 管理员页面
管理员界面有对图书和用户添加，查询，修改，删除操作。

Private Sub books_add_Click()
addbook.Show
End Sub
Private Sub books_dq_Click()
bookmodify.Show
End Sub
Private Sub books_qur_Click()
chaxun.Show
End Sub
Private Sub Command1_Click()
Unload Me
End Sub
Private Sub users_add_Click()
adduser.Show
End Sub
Private Sub users_dq_Click()
usersmodify.Show
End Sub
Private Sub users_qur_Click()
chaxun1.Show
End Sub

6.1.2.3 添加图书/用户
对图书添加操作和对用户添加操作实质是相同，只是表现形式不一样，这里以对图书添加为例。当全部信息全部输入后，实施添加操作，则会显示添加完成。假如信息不完整，则会显示请输入完整信息，同时将鼠标键入空信息栏。注意：编号设置为主键，故不能添加相同编号信息

6.1.2.4 修改，删除图书/用户
对图书修改，删除操作和对用户操作实质是相同，只是表现形式不一样，这里以对图书修改和删除操作为例。首先，你能够经过图书编号对图书信息查询，然后改动你所需要改动信息。对图书删除只需按删除按钮即可删除

6.2 图书查询
6.2.1 图书查询步骤图
开始

图书查询

选择操作

作者查询
类型查询
编号查询
书名查询

退出

结束

6.2.2 图书查询功效实现
管理员中图书查询操作和此相同，如将二者合一，同时，对图书查询操作和对用户操作实质是相同，只是表现形式不一样，故不再反复对用户查询操作。在查询操作中，能够选择按编号，书名，作者和类型四种方法查询，能够选择自己输入也可下拉菜单查询，查询结果显示在下方

Option Explicit '在模块等级中使用，强制显式申明模块中全部变量。
Public sqlstr As String
'窗体载入时初始化4个组合框，经过ADO数据控件获取各数据统计表
Private Sub Form_Load()
initbh
initsm
initzz
initlx
End Sub
'在组合框cbobh列表中列出全部编号
Sub initbh()
Adodc1.RecordSource = "select 编号 from 图书信息"
Adodc1.Refresh
While Not Adodc1.Recordset.EOF
cbobh.AddItem Adodc1.Recordset.Fields("编号")
Adodc1.Recordset.MoveNext
Wend
End Sub
'在组合框cbosm列表中列出全部书名
Sub initsm()
dodc1.RecordSource = "select 书名 from 图书信息"
Adodc1.Refresh
While Not Adodc1.Recordset.EOF
cbosm.AddItem Adodc1.Recordset.Fields("书名")
Adodc1.Recordset.MoveNext
Wend End Sub

'在组合框cbozz列表中列出全部作者
Sub initzz()
Adodc1.RecordSource = "select 作者 from 图书信息"
Adodc1.Refresh
While Not Adodc1.Recordset.EOF
cbozz.AddItem Adodc1.Recordset.Fields("作者")
Adodc1.Recordset.MoveNext
Wend
End Sub
'在组合框cbolx列表中列出全部类型
Sub initlx()
Adodc1.RecordSource = "select distinct 类型 from 图书信息"
Adodc1.Refresh
While Not Adodc1.Recordset.EOF
cbolx.AddItem Adodc1.Recordset.Fields("类型")
Adodc1.Recordset.MoveNext
Wend
End Sub
'选择
Private Sub cbobh_click()
Option1.Value = True
End Sub
Private Sub cbosm_click()
Option2.Value = True
End Sub
Private Sub cbozz_click()
Option3.Value = True
End Sub
Private Sub cbolx_click()
Option4.Value = True
End Sub
'查询
Private Sub Command1_Click()
querybooks '调用querybooks子过程
End Sub
'依据选择条件查询图书信息
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Sub querybooks()
sqlstr = "select 编号,书名,作者,价格,出版社,类型,库存 " _
& "from 图书信息 " _
& "where "
If Option1.Value = True Then
sqlstr = sqlstr & " 编号='" & Trim(cbobh.Text) & "'"
End If
If Option2.Value = True Then
sqlstr = sqlstr & " 书名='" & Trim(cbosm.Text) & "'"
End If
If Option3.Value = True Then
sqlstr = sqlstr & " 作者='" & Trim(cbozz.Text) & "'"
End If
If Option4.Value = True Then
sqlstr = sqlstr & " 类型='" & Trim(cbolx.Text) & "'"
End If
sqlstr = sqlstr & "order by 编号"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
If Adodc1.Recordset.RecordCount = 0 Then
MsgBox "没有查找到满足条件数据！", vbExclamation, "提醒"
Else
Set DataGrid1.DataSource = Adodc1
DataGrid1.Columns(0).Width = 1000
DataGrid1.Columns(1).Width =
DataGrid1.Columns(2).Width = 1000
DataGrid1.Columns(3).Width = 1000
DataGrid1.Columns(4).Width = 1300
DataGrid1.Columns(5).Width = 1000
DataGrid1.Columns(6).Width = 1000
DataGrid1.Refresh
End If
Label2.Caption = "共查询到" & Adodc1.Recordset.RecordCount & "条统计"
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
6.3 用户登录

6.3.1 用户登录步骤图
开始

用户登录

判定密码
否

用户功效界面

功效选择

退出登录
我要借书
超期罚款
修改密码
我要还书
借阅信息

结束

6.3.2 用户登录功效实现

6.3.2.1 我要借书
用户能够经过选择书编号进行借阅，借阅以后会在借阅表中产生借阅信息。依据用户不一样，借书数量不一样，老师为10本，学生为5本，当库存不足时会显示库存不足，这时借阅会失败。

6.3.2.2我要还书
用户能够经过选择书编号进行还书，还书以后会在借阅表中产生还书信息

6.3.2.3 借阅信息
将借阅表中信息显示出来

6.3.2.4 超期罚款
当借阅时间超出要求时间（老师为90天，学生为60天），便会产生超期罚款，超期时间，天天罚款0.1元

6.3.2.5 修改密码
用户可在此进行密码修改，当新密码和确定密码不相同时，确定按钮则会变成不能够状态，且确定密码右侧会有“两次密码不一样，请确定密码”提醒，只有当新密码和确定密码相同时，确定按钮才会变成可用状态

Private Sub Command1_Click()
If Text1 = "" Then
MsgBox "请输入账户", , "登录"
Text1.SetFocus
Exit Sub
End If
If Text2 = "" Then
MsgBox "请输入密码", , "登录"
Text2.SetFocus
Exit Sub
End If
If Text3 = "" Then
MsgBox "请输入新密码", , "登录"
Text3.SetFocus
Exit Sub
End If
sqlstr = "select * from 用户 where 卡号='" & Trim(Text1) & "' and 登录密码='" & Trim(Text2) & "'"
Adodc1.RecordSource = sqlstr
Adodc1.Refresh
With Adodc1.Recordset
If Not .EOF Then
.Fields("登录密码") = Trim(Text4)
.Update
MsgBox "密码修改成功!!"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Unload Me
Else
MsgBox "账户或密码输入错误，请重新输入。", vbOKOnly + vbExclamation, "警告"
Text1 = ""
Text2 = ""
Text3 = ""
Text4 = ""
Text1.SetFocus
Exit Sub
End If
End With
End Sub
Private Sub Command2_Click()
Unload Me
End Sub
Private Sub Text4_Change()
Command1.Enabled = False
If Trim(Text4) = Trim(Text3) Then
Label5.Caption = "两次密码相同"
Command1.Enabled = True
Else
Label5.Caption = "两次密码不一样，请确定密码"
Exit Sub
End If
End Sub
Private Sub text4_keypress(keyascii As Integer)
If keyascii = 13 Then
Command1_Click
End If
End Sub
6.4 背景设置

Private Sub Form_Load()
'窗体居中显示
Me.Light(0).Enabled = True
Me.Light(1).Enabled = False
Me.Music(0).Enabled = True
Me.Music(1).Enabled = False

'准备播放音乐
IsMusicOn = False
WindowsMediaPlayer1.URL = App.Path & "/bg.mp3" '歌曲位置
WindowsMediaPlayer1.uiMode = "mini" '播放器界面模式
WindowsMediaPlayer1.settings.volume = 100 '音量，0-100
WindowsMediaPlayer1.settings.playCount = 100 '播放次数
WindowsMediaPlayer1.Controls.stop
MsgBox "欢迎使用中南大学图书馆管理系统"
End Sub
Private Sub Form_Unload(Cancel As Integer)
'退出时检验并关闭音乐
If IsMusicOn = True Then
WindowsMediaPlayer1.Controls.stop
End If
End Sub
Private Sub Frame1_DragDrop(Source As Control, X As Single, Y As Single)
End Sub
'背景图片控制
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Light_Click(Index As Integer)
Light(Index).Enabled = False
If Index = 0 Then
'打开背景图片
Image1.Visible = True
Light(1).Enabled = True
End If
If Index = 1 Then
'关闭背景图片
Image1.Visible = False
Light(0).Enabled = True
End If
End Sub
'背景音乐控制
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Private Sub Music_Click(Index As Integer)
Music(Index).Enabled = False
If Index = 0 Then
'打开背景音乐
IsMusicOn = True
WindowsMediaPlayer1.Controls.play '播放
Music(1).Enabled = True
End If
If Index = 1 Then
'关闭背景音乐
IsMusicOn = False
WindowsMediaPlayer1.Controls.stop '关闭
Music(0).Enabled = True
End If
End Sub

7.心得体会
1. 这次课程设计使我熟悉了系统设计整体步骤。系统设计大致可分为需求分析、概念设计、逻辑设计、物理设计、功效实现及调试测试六大步骤。其中，让我感慨最深是需求分析阶段，在这两个阶段，必需对所要设计系统有总体构思和了解，知道自己要做什么，要实现什么，而且要实际进行相关调查，不能凭想象或自己了解，这么会在后续工作中碰到很多问题。还有功效实现阶段，在此阶段，我们经过所学知识，和利用书本和网上资料，将理论付诸实践，将设计出来虚构东西变成实实在在一个程序，必需知道怎样高效利用身边资源。
2. 这次课程设计加深了我对数据库系统概论相关知识和SQL Server R2和VB6.0相关功效了解。比如对建立基础表，对控件使用还有对SQL语言和VB语言利用等，全部比以前愈加熟练。并在处理碰到多种问题过程中，学到了很多新知识。
3. 当然，在实习过程中也存在部分问题。因为需求分析阶段工作完成不是很充足，在后面设计过程中，前后时常会出现矛盾，不一致现象，所以要反复修改前面结果，造成整个工作进行不是很顺利。
4. 我们做任何事，不管是课程设计还是其它部分事，全部会碰到部分困难，在这时候，千万不能有退却想法，一定要迎难而上，只要你坚持做下去，困难终会被克服，这是此次课程设计给我最大致会。

8.参考文件
[1] 王小玲 安剑奇，数据库技术和应用（SQL Server ）；中国水利水电出版社
[2] 王小玲 安剑奇，数据库技术和应用（SQL Server ）实践教程；中国水利水电出版社