数据库实验报告图书管理系统.doc

(完整word版)数据库实验报告图书管理系统
图书馆管理系统的设计
一、实验背景：
在数据库应用系统的编程中，管理人员需要经常从数据库中查询数据。复杂组合查询，特别是多种数据类型的复杂条件动态组合查询是一个设计难度大，但很能方便用户的功能模块，在系统开发时要尽量满足用户的需要，就必须考虑多类型-多条件综合模糊查询功能，提高应用系统的智能性。消费者在选择市场产品时往往面临数据量大、删选难、数据不全面等问题，多类型-多条件综合模糊查询正式基于此设计的。
二、实验内容：
以SQL SERVER2008为后台数据库，以Visual Basic为前台开发工具，完成一个以人事管理系统为实例或结合相关专业方向的查询界面友好的多类型-多条件综合模糊查询应用模块的设计与开发，以满足用户复杂查询的需求，具体内容包括：
1）数据库概念结构和逻辑结构的设计；
2）通过SQL语句创建数据库；
3）设计通用模块；
4）设计窗体，达到界面简洁，友好的要求；
5）编写代码，使程序能正确执行；
6）调试美化，提高查询效率。

三、需求分析
图书馆是这样的部门，馆中收藏大量图书供读者借阅，其中图书可分成不同的类别，如自然科学类、社会科学类等；借阅者可分为老师和学生。不同的借阅者最多可借书的数量和期限不同，如教师最多可借10本，期限为3个月，学生最多可借2本，期限为1个月，无论是老师还是学生，借阅超期都要进行罚款处理。以上就是图书管理系统所要完成的主要功能。

四、概念结构设计
经分析，本系统涉及到的实体只有读者和图书，二者之间存在借阅和罚款的联系，据此可画出此系统的E-R图。
罚款金额

读者
借出日期

p
m
超期天数
罚款
借阅

处罚日期
图书
归还日期
q
N

图书馆管理系统的E-R图

其中读者与其属性关系，图书与其属性关系如下图

读者类别
读者姓名

性别

是否有超期
借书证号

读者

读者实体与其属性

书名
条形码号

作者

图书编号

出版社

图书

借阅次数
借阅状态
类别
出版日期

图书实体与其属性

五、数据库表格
（1） 图书表的结构

（2） 读者表的结构

（3） 借阅表的结构

（4） 罚款表的结构

（5） 密码表的结构

六、用VB开发应用程序
1配置数据源
利用ODBC数据源管理器配置一个连接到“图书馆”数据库的数据源，名为“图书管理”。
2设计各个窗体
1） 设计MDI主窗体
从主窗体中可以打开各个功能的窗口，其中图书馆管理系统的主窗体如下图

2） 设计登陆窗体
（1） 设计界面如下图

（2） 编写程序
Private Sub Command1_Click()
Dim str As String
Dim micount As Integer
str = "select 密码 from 密码表的结构 where 用户名='" & Text1.Text & " ' "
Adodc1.RecordSource = str
Adodc1.Refresh
If Adodc1.Recordset.EOF = True Then
MsgBox "用户名错误，请重新输入", vbExclamation, "警告"
Text1.Text = ""
Text1.SetFocus
Else
If Adodc1.Recordset.Fields("密码") = Text2.Text Then
MDIForm1.Show
Unload Me
Else
MsgBox "密码错误，请重新输入", vbExclamation, "警告"
Text2.Text = ""
Text2.SetFocus
End If
End If
micount = micount + 1
If micount >= 3 Then Unload Me
End Sub

Private Sub cmdcancel_Click()
Unload Me
End Sub
3） 设计读者管理窗体
（1） 设计界面

（2） 编写程序
Private Sub cmdadd_Click()
Adodc1.Recordset.AddNew
cmdadd.Enabled = False
cmddel.Enabled = False
cmdok.Enabled = False
cmdcnacel.Enabled = True

End Sub

Private Sub cmdcancel_Click()
Adodc1.Refresh
cmdadd.Enabled = True
cmddel.Enabled = True
cmdok.Enabled = False
cmdcancel.Enabled = False
End Sub

Private Sub cmddel_Click()
X = MsgBox("确实要删除当前记录吗?", vbYesNo + vbQuestion)
If X = vbYes Then
Adodc1.Recordset.Delete
Adodc1.Recordset.MoveNext
If Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.MoveLast
End If
Else
Adodc1.Refresh
End If
End Sub

Private Sub cmdfirst_Click()
Adodc1.Recordset.MoveFirst
cmdfirst.Enabled = False
cmdpre.Enabled = False
cmdnext.Enabled = True
cmdlast.Enabled = True
End Sub

Private Sub cmdlast_Click()
Adodc1.Recordset.MoveLast
cmdfirst.Enabled = True
cmdpre.Enabled = True
cmdnext.Enabled = False
cmdlast.Enabled = False
End Sub

Private Sub cmdnext_Click()
Adodc1.Recordset.MoveNext
cmdfirst.Enabled = True
cmdpre.Enabled = True
If Adodc1.Recordset.EOF = True Then
Adodc1.Recordset.MoveLast
cmdlast.Enabled = False
cmdnext.Enabled = False
End If
End Sub

Private Sub cmdok_Click()
Adodc1.Recordset.Update
cmdadd.Enabled = True
cmddel.Enabled = True
cmdok.Enabled = False
cmdcancel.Enabled = False
End Sub

Private Sub cmdpre_Click()
Adodc1.Recordset.MovePrevious
cmdnext.Enabled = True
cmdlast.Enabled = True
If Adodc1.Recordset.BOF = True Then
Adodc1.Recordset.MoveFirst
cmdfirst.Enabled = False
cmdpre.Enabled = False
End If
End Sub

Private Sub Form_Load()
cmdfirst.Enabled = False
cmdpre.Enabled = False
cmdnext.Enabled = True
cmdlast.Enabled = True
cmdadd.Enabled = True
cmddel.Enabled = True
cmdok.Enabled = False
cmdcancel.Enabled = False

End Sub
4） 设计读者查询窗体

（3） 编写程序
Private Sub Command1_Click()
Dim str As String
str = "select *from 读者表 where 读者表." & combol.Text & "like '" & Text1.Text & "%'"
Adodc1.RecordSource = str
Adodc1.Refresh

End Sub

Private Sub Command2_Click()
Unload Me
End Sub

Private Sub Form_Load()
combo1.Text = " "
Text1.Text = ""
combo1.AddItem "性别"
combo1.AddItem "读者姓名"
combo1.AddItem "是否有超期"

End Sub
5） 设计图书管理窗体、图书查询窗体
6） 设计借阅管理窗体
（1） 设计界面

（2） 编写程序
Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub cmdlend_Click()
Dim st1 As String
Dim st2 As String
Dim st3 As String
Dim i As Integer
st2 = "select 读者类别,是否有超期from 读者表的结构 where 借书证号='" & Trim(Text1) & " ' "
Adodc2.RecordSource = st2
Adodc2.Refresh
'有借书证号
If Adodc2.Recordset.BOF = False Then
'读者是教师

If Adodc2.Recordset.Fields(" 读者类别 ") = " t " And Adodc2.Recordset.Fields("是否有超期") = "n" Then
'是否超过最多的十本
st1 = "select *from 借阅表 where 借书证号='" & Trim(Text) & "'"
Adodc1.RecordSource = st1
Adodc1.Refresh
If Adodc1.Recordset.RecordCount >= 10 Then MsgBox "教师借书数量达到最多，不能再借！"
Else
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("借书证号") = Text1

Adodc1.Recordset.Fields("条形码号") = Text2
Adodc1.Recordset.Fields("借出日期") = str(Date)
Adodc1.Recordset.Fields("归还日期") = Null
Adodc1.Recordset.Update
'在图书表中写入"借阅状态"和"借阅次数"信息
st3 = "select * from 图书表 where 条形码号='" & Trim(Text2) & "'"
Adodc3.RecordSource = st3
Adodc3.Refresh
Adodc3.Recordset.Fields("借阅状态") = "借出"

Adodc3.Recordset.Fields("借阅次数") = Adodc3.Recordset.Fields("借阅次数") + 1
Adodc3.Recordset.Update
End If
'读者是学生
ElseIf Adodc2.Recordset.Fields("读者类别") = "s" And Adodc2.Recordset.Fields("是否有超期") = "n" Then
'是否超过最多的三本
str1 = "select * from 借阅表 where 借书证号='" & Trim(Text1) & " ' "
Adodc1.RecordSource = st1
Adodc1.Refresh
If Adodc1.Recordset.RecordCount >= 3 Then
MsgBox "学生借书量达到最多，不能再借！"
Else

Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("借书证号") = Text1
Adodc1.Recordset.Fields("条形码号") = Text2
Adodc1.Recordset.Fields("借出日期") = str(Date)
Adodc1.Recordset.Fields("归还日期") = Null
Adodc1.Recordset.Update
'在图书表中写入“借阅状态”和“借阅次数”信息
st3 = "select * from 图书表 where 条形码号=' " & Trim(Text2) & "'"
Adodc3.RecordSource = st3
Adodc3.Refresh
Adodc3.Recordset.Fields("借阅状态") = "借出"
Adodc3.Recordset.Fields("借阅次数") = Adodc3.Recordset.Fields("借阅次数") + 1
Adodc3.Recordset.Update
End If
Else: If Adodc2.Recordset.Fields("是否有超期") = "y" Then MsgBox "该读者有超期书，不能再借书"
End If
End
End Sub

Private Sub cmdreturn_Click()
Dim sst As String
Dim sstt As String
Dim sst3 As String
sst = "select * from 借阅表 where 条形码号='" & Text2 & "'"
Adodc1.RecordSource = sst
Adodc1.Refresh
sstt = "select*from读书表where借书证号='" & Adodc1.Recordset.Fields("借书证号") & "'"
Adodc2.RecordSource = sstt
Adodc2.Refresh
'先还书，再罚款
Adodc1.Recordset.Fields("归还日期") = Date
Adodc1.Recordset.Update
MsgBox "还书成功"
'在图书表中写入该书的“在库”信息
sst3 = "select * from 图书馆where 条形码号='" & Text2 & "'"
Adodc3.RecordSource = sst3
Adodc3.Refresh
Adodc3.Recordset.Fields("借阅状态") = "在库"
Adodc3.Recordset.Update
If Adodc2.Recordset.Fields("读者类别") = "t" Then
If Date - Adodcl.Recordset.Fields("借出日期") > 90 Then
MsgBox "有超期罚款"
fm_punish.Show
End If
ElseIf Adodc2.Recordset.Fields("读者类别") = "s" Then
If Date - Adodcl.Recordset.Fields("借出日期") > 30 Then
MsgBox "有超期罚款"
fm_punish.Show
End If
End If
End Sub
End Sub
7） 设计罚款管理窗口
（1）设计窗体

（3） 编写程序
Private Sub cmdexit_Click()
Unload Me
End Sub

Private Sub cmdpunish_Click()
Dim pcount As Integer
Dim i As Integer
Dim sum As Single
sum = 0
If Adodc3.Recordset.BOF = False Then
pcount = Adodc3.Recordset.RecordCount
End If
For i = 1 To pcount
sum = sum + Adodc3.Recordset.Fields("超期天数") * 0.1
'向罚款表中添加记录
Adodc1.Recordset.AddNew
Adodc1.Recordset.Fields("借书证号") = Adodc3.Recordset.Fields("借书证号")
Adodc1.Recordset.Fields("条形码号") = Adodc3.Recordset.Fields("条形码号")
Adodc1.Recordset.Fields("处罚日期") = Date
Adodc1.Recordset.Fields("超期天数") = Adodc3.Recordset.Fields("超期天数")
Adodc1.Recordset.Fields("罚款金额") = Adodc3.Recordset.Fields("超期天数") * 0.1
Adodc1.Recordset.Update
Adodc3.Recordset.MoveNext
Next i
Text2 = sum & "元"
End Sub

Private Sub cmdquery_Click()
Dim str3 As String
str3 = "select 读者表.借书证号，条形码号，读者姓名，借出日期，(month(getdate())-month(借出日期)-3)*30+day(getdate()-day(借出日期)) as 超期天数"
str3 = str3 & " from 读者表 inner join 借阅表 on 读者表.借书证号=借阅表.借书证号 "
str3 = str3 + " where 借阅表.借书证号='" & Text1 & " 'and 读者表.读者类别='t'and month (归还日期) - month(借出日期)>3"
str3 = str3 + "or 读者类别 = 's'and month (归还日期)-month(借出日期) > 1"
Adodc3.RecordSource = str3
Adodc3.Refresh
Text2.Text = " "
End Sub

七、实验心得与体会
通过此次数据库的课程设计，真正达到了学与用的结合，增强了对数据库方面应用的理解，对自己今后参与开发数据库系统积累了不少经验，在实验过程中，从建立数据开始，对数据库设计理念及思想上有更高的认识，从需求分析，到概念设计和逻辑设计的过度，懂得了不少有关数据库开发过程中的知识，在实验中建表，及其关系模式，关系代数的建立及理解，增强了自己在数据库中应用SQL语言的灵活性。
在学习过程中，我也上网查了不少资料，也看了一些别人设计的图书馆管理系统的设计报告，学以致用，自我创新，独立完成了这份自己的报告，从中从学到用，从用又到学，不断修改，系统更新。虽然不能达到完善系统，但也做到了尽善尽美，加强理论学习对完善系统会有很多帮助，知识是无限的，我以后还会在这个领域不断的进行探索，掌握更多的知识。

参考资料：
基于 VB和SQL的数据库编程技术 刘志妩、马秀丽 清华大学出版社