数据库原理实验报告

数据库原理课程设计

题目：图书馆管理系统

学校：福建农林大学东方学院

专业：计算机科学与技术2班

学号：姓名：

学号：姓名：

指导教师：

2011 年 6 月26 号

目录

1. 引言 (2)

1.1课程设计的目的 (2)

1.2 设计的实际目的和意义 (2)

1.2.1设计的意义 (2)

1.2.2设计的实际目的 (2)

2. 设计内容和要求 (2)

2.1功能需求分析 (2)

2.2系统需要解决的主要问题 (3)

2.3系统应该具备的基本功能 (3)

3. 数据库设计 (3)

3.1系统结构设计 (3)

3.1.1总体设计图 (3)

3.2.1 系统E-R图表示 (4)

3.2.2数据库表截图分析 (4)

4．程序设计 (5)

4.1界面设计及主要功能代码 (5)

4.1登录界面 (5)

4.2 主菜单界面 (5)

4.3借书界面 (7)

4.4 借阅查询界面 (8)

4.5 还书界面 (9)

4.6 读者信息界面 (10)

4.7 图书信息查阅界面 (12)

4.8 添加读者界面 (13)

4.9 添加图书界面 (13)

5. 总结 (13)

6. 结束语 (14)

1引言

1.1、课程设计的目的

1、掌握数据库设计的基本方法，熟悉数据库设计的步骤。

2、通过设计数据库系统应用课题，进一步熟悉数据库管理系统的操作技术，提高动手能力，提高分析问题和解决问题的能力。

3、学习基本“C/S结构”数据库编程方法。

1.2 设计的实际目的和意义

1.2.1设计的意义

图书馆管理系统是图书馆管理工作中不可缺少的部分,它的内容对于图书馆的管理者和使用者来说都至关重要,所以图书管理系统应该能够为管理者或读者提供充足的信息和快捷的数据处理手段。但图书馆管理若采用完全手工操做，通过卡片记录信息，既浪费时间，又浪费人工、纸张，而且书籍和读者的信息查询比较麻烦，这对于查找、更新和维护都带来了不少的困难。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。

作为计算机应用的一部分,使用计算机对图书信息进行管理,具有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、易修改、可靠性高、存储量大、数据处理快捷、保密性好、寿命长、成本低、便于打印等。这些优点能够极大地提高图书管理的效率,也是图书馆的科学化、正规化管理,与世界接轨的重要条件。因此，开发这样一套管理软件成为很有必要的事情。

1.2.2设计的实际目的

图书馆管理系统是为实现图书管理工作系统化、规范化、自动化，运用Visual Basic 6.0数据库管理系统开发的应用软件。它将计算机操作及管理融到图书管理系统的实际运用中，使日常手工管理的复杂方法和过程被计算机简单、易行的操作所替代，一方面图书馆在正常运营中总是面对大量的读者信息、书籍信息以及两者相互作用产生的借书信息、还书信息.因此需要对读者资源、书籍资源、借书信息、还书信息进行管理、及时了解各个环节的变更,这系统能够迅速、准确地向图书馆管理者提供有效的信息；另一方面也极大地减轻了工作人员的工作强度、提高了工作效率，充分地发挥了人力资源的作用。通过开发本系统，旨在推动企业对计算机技术的普及与运用，促进图书馆管理系统的现代化、科学化和规范化。2设计内容和要求

图书管理信息系统是典型的信息管理系统,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于后台数据库的建立要求建立起数据一致性和完整性强.数据安全性好的库。而对于前端应用程序则要求应用程序功能完备,易使用等特点。

2.1功能需求分析

要实现一个软件系统，首先应该进行需求分析，这样才能令设计出的软件满足用户的各项功能。图书管理系统需要满足来自三方面的需求，这三个方面分别是图书借阅者、图书馆工作人员和图书馆管理人员。图书借阅者的需求是查询图书馆所存的图书、个人借阅情况及个人信息的修改；图书馆工作人员对图书借阅者的借阅及还书要求进行操作，同时形成借书

或还书报表给借阅者查看确认；图书馆管理人员的功能最为复杂，包括对工作人员、图书借阅者、图书进行管理和维护及系统状态的查看、维护并生成催还图书报表。

2.2系统需要解决的主要问题

图书借阅者可直接查看图书馆图书情况，如果图书借阅者根据本人借书证号和密码登录系统，还可以进行本人借书情况的查询和维护部分个人信息。一般情况下，图书借阅者只应该查询和维护本人的借书情况和个人信息，若查询和维护其他借阅者的借书情况和个人信息，就要知道其他图书借阅者的借书证号和密码。这些是很难得到的，特别是密码，所以不但满足了图书借阅者的要求，还保护了图书借阅者的个人隐私。

图书馆工作人员有修改图书借阅者借书和还书记录的权限，所以需对工作人员登陆本模块进行更多的考虑。在此模块中，图书馆工作人员可以为图书借阅者加入借书记录或是还书记录，并打印生成相应的报表给用户查看和确认。

图书馆管理人员功能的信息量大，数据安全性和保密性要求最高。本功能实现对图书信息、借阅者信息、总体借阅情况信息的管理和统计、工作人员和管理人员信息查看及维护。图书馆管理员可以浏览、查询、添加、删除、修改、统计图书的基本信息；浏览、查询、统计、添加、删除和修改图书借阅者的基本信息，浏览、查询、统计图书馆的借阅信息。

2.3系统应该具备的基本功能

系统功能分析是在系统开发的总体任务的基础上完成。图书管理系统需要完成功能主要有：①．关于图书资料管理的

图书信息：图书类别、书籍编号、书籍名称、作者姓名、出版社名称等。

②．关于读者管理的

读者信息：读者类别、登记日期、读者姓名、性别、读者编号、家庭住址、电话号码、工作单位等。

③．关于借还书管理的：

借书信息：读者姓名、书籍编号、书名、类别、作者、出版社等。

还书信息：图书编号、读者编号、读者姓名、书籍编号、书籍名称等。

这三个方面形成了图书借阅的一个工作整体，利用计算机的自动化处理，可方便快捷地共享信息、交流信息，高效地协同工作。

在软硬件方面对系统的需求，软件要求易学，界面友好，容易掌握，可以很简单方便的进行图书借阅信息管理。硬件的配置要求不能太高，这样可以很好的适应当前的学校图书馆的借阅。

3数据库设计

3.1系统结构设计

系统结构采用当前流行的C/S结构，也就是客户端/服务器模式，它开发时间短，成本低，而且数据量的传输快等优点。

本设计是以学校图书馆借阅系统为例。编程语言采用delphi6.0，它可视化的开发环境，可以快速完成系统的开发，内部集成的数据库访问通道，可以轻松方便的对数据库管理。

3.1.1总体设计图

3.2.1 系统E-R图表示

3.2.2数据库表截图分析

根据系统ER图,应用SQLSever 2000,设计数据库,共分化成七个表:读者类别表、读者信息表、罚款处理、借阅信息表、书籍信息、图书类别、系统管理表分别截图如下.

表3.1

表3.2

表3.3

表3.4

表3.5

表3.6

表3.7

4．界面设计和主要功能代码

4.1登录界面

思想：设计登录界面,创建一个新的”Windows窗体”,名为登录,作为本系统的登录界面.在登录窗体上添加两个Label控件,两个Button控件和两个TextBox控件,添加控件后的窗体如图4.1.1所示。欢迎界面是整个系统首页，用户可通过该界面登录系统。使用者根据自己的身份选择登录方式。在此，分别有管理员（用户名：admin,密码：admin）,和用户（用户名：guest，密码：guest）均可登入。

Private Sub Command1_Click()

Dim sql As String

Dim rs_login As New ADODB.Recordset

If Trim(txtuser.Text) = "" Then '判断输入的用户名是否为空 MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""

txtuser.SetFocus

Else

sql = "select * from 系统管理 where 用户名='" & txtuser.Text & "'" rs_login.Open sql, conn, adOpenKeyset, adLockPessimistic

If rs_login.EOF = True Then

MsgBox "没有这个用户", vbOKOnly + vbExclamation, ""

txtuser.SetFocus

Else '检验密码是否正确

If Trim(rs_login.Fields(1)) = Trim(txtpwd.Text) Then

userID = txtuser.Text

userpow = rs_login.Fields(2)

rs_login.Close

Unload Me

Main.Show

Else

MsgBox "密码不正确", vbOKOnly + vbExclamation, ""

txtpwd.SetFocus

End If

End If

End If

cnt = cnt + 1

If cnt = 3 Then

Unload Me

End If

Exit Sub

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

4.2主菜单界面：

思想：管理员和用户均可登入此页面，并且在工具栏设置一个个功能图标，用户可点击相应图标的功能进行操作，即会弹出相应的界面。

图4.1.2系统主菜单界面

当不同身份登录进行特定操作，验证仅当身份选择，用户名，及其对应密码都正确方可成功登录到相应界面。

4.3借书页面

思想：进入借书页面后，用户可输入所要借阅图书的相关信息，点击“借这本书”的按钮，即可完成借阅。

Private Sub Command1_Click()

Dim rs_borrowbook As New ADODB.Recordset

Dim sql As String

sql = "select * from 读者信息where 读者编号='" & Combo1.Text & "'" rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic

leibie = rs_borrowbook.Fields(3)

shumu = rs_borrowbook.Fields(8)

rs_borrowbook.Close

sql = "select * from 读者类别where 种类名称='" & leibie & "'"

rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic qixian = rs_borrowbook.Fields(2)

maxnum = rs_borrowbook.Fields(1)

rs_borrowbook.Close

If shumu >= maxnum Then

MsgBox "该读者借书数额已满！", vbOKOnly + vbExclamation

Exit Sub

End If

sql = "select * from 借阅信息"

rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic

rs_borrowbook.AddNew

rs_borrowbook.Fields(1) = Combo1.Text

rs_borrowbook.Fields(2) = Combo2.Text

rs_borrowbook.Fields(3) = Label8.Caption

rs_borrowbook.Fields(4) = Label9.Caption

rs_borrowbook.Fields(5) = Date

rs_borrowbook.Fields(6) = DateAdd("Ww", qixian, Date)

rs_borrowbook.Update

rs_borrowbook.Close

sql = "select * from 书籍信息where 书籍编号='" & book_num & "'"

rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic

rs_borrowbook.Fields(7) = "是"

rs_borrowbook.Update

rs_borrowbook.Close

sql = "select * from 读者信息where 读者编号='" & Combo1.Text & "'" rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic

rs_borrowbook.Fields(8) = rs_borrowbook.Fields(8) + 1

rs_borrowbook.Update

rs_borrowbook.Close

MsgBox "本书借阅成功！", vbOKOnly + vbExclamation

Unload Me

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

4.4借阅查询界面

思想：可按照已借出图书，为借出图书和读者姓名三种信息进行查阅，点击任以选框即可连接借阅信息表进行查阅。

4.5还书界面

思想：分别按照读者信息和书籍信息进行查阅要还的书籍，可连接到借阅信息表来显示。点击“还书”按钮弹出“确定要还这本书吗？”的文本框，点击“是”就可完成还书，而后弹出“成功删除信息”的文本框。

Private Sub Command3_Click()

Dim book_num As String

Dim reader_num As String

Dim answer As String

Dim rs_back As New ADODB.Recordset

Dim sql As String

On Error GoTo delerror

book_num = DataGrid1.Columns(3).CellValue(DataGrid1.Bookmark)

reader_num = DataGrid1.Columns(1).CellValue(DataGrid1.Bookmark)

answer = MsgBox("确定要还这本书吗？", vbYesNo, "")

If answer = vbYes Then

sql = "select * from 借阅信息 where 书籍编号='" & book_num & "'"

rs_back.CursorLocation = adUseClient

rs_back.Open sql, conn, adOpenKeyset, adLockPessimistic

rs_back.Delete

rs_back.Update

rs_back.Close

sql = "select * from 书籍信息 where 书籍编号='" & book_num & "'"

rs_back.CursorLocation = adUseClient

rs_back.Open sql, conn, adOpenKeyset, adLockPessimistic

rs_back.Fields(7) = "否"

rs_back.Update

rs_back.Close

sql = "select * from 读者信息 where 读者编号='" & reader_num & "'"

rs_back.CursorLocation = adUseClient

rs_back.Open sql, conn, adOpenKeyset, adLockPessimistic

rs_back.Fields(8) = rs_back.Fields(8) - 1

rs_back.Update

rs_back.Close

If findform = True Then

Command1_Click

Else

Command2_Click

End If

MsgBox "成功删除！", vbOKOnly + vbExclamation, ""

DataGrid1.AllowDelete = False

Else

Exit Sub

End If

delerror:

If Err.Number <> 0 Then

MsgBox Err.Description

End If

End Sub

Private Sub Command4_Click()

Unload Me

End Sub

4.6读者信息查询界面

思想：可根据读者编号，读者姓名或读者种类中的一个信息，就可以连接到读者信息表，方便地查阅到相关的读者的具体信息。

Private Sub Command1_Click()

Dim rs_findreader As New ADODB.Recordset

Dim sql As String

If Check1.Value = vbChecked Then

sql = "读者编号='" & Trim(Text1.Text & " ") & "'"

End If

If Check2.Value = vbChecked Then

If Trim(sql) = "" Then

sql = "读者姓名='" & Trim(Text2.Text & " ") & "'"

Else

sql = sql & "and 读者姓名='" & Trim(Text2.Text & " ") & "'" End If

End If

If Check3.Value = vbChecked Then

If Trim(sql) = "" Then

sql = "读者类别='" & Trim(Combo1.Text & " ") & "'"

Else

sql = sql & "and 读者类别='" & Trim(Combo1.Text & " ") & "'" End If

End If

sql = "select * from 读者信息 where " & sql

rs_findreader.CursorLocation = adUseClient

rs_findreader.Open sql, conn, adOpenKeyset, adLockPessimistic DataGrid1.AllowAddNew = False

DataGrid1.AllowDelete = False

DataGrid1.AllowUpdate = False

Set DataGrid1.DataSource = rs_findreader

'rs_findreader.Close

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

Private Sub Form_Load()

Dim rs_find As New ADODB.Recordset

Dim sql As String

sql = "select * from 读者类别"

rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic

If Not rs_find.EOF Then

Do While Not rs_find.EOF

Combo1.AddItem rs_find.Fields(0)

rs_find.MoveNext

Loop

Combo1.ListIndex = 0

End If

rs_find.Close

End Sub

4.7图书信息查阅界面

思想：和读者信息查阅相似，点击相应的按钮，连接到图书信息表，即可查阅。

4.8添加读者界面

思想：进入读者信息界面后，按照里面的提示框填入相应的信息，数据库的读者信息即可增加，点击确定按钮就可完成。

Private Sub Command1_Click()

Dim sql As String

If Trim(Combo1.Text) = "" Then

MsgBox "请选择读者种类", vbOKOnly + vbExclamation, ""

Combo1.SetFocus

Exit Sub

End If

If Trim(Text1.Text) = "" Then

MsgBox "读者姓名不能为空", vbOKOnly + vbExclamation, ""

Text1.SetFocus

Exit Sub

End If

If Trim(Text2.Text) = "" Then

MsgBox "读者编号不能为空", vbOKOnly + vbExclamation, ""

Text2.SetFocus

Exit Sub

End If

sql = "select * from 读者信息 where 读者编号='" & Text2.Text & "'"

rs_addreader.Open sql, conn, adOpenKeyset, adLockPessimistic

If rs_addreader.EOF Then

rs_addreader.AddNew

rs_addreader.Fields(0) = Trim(Text1.Text)

rs_addreader.Fields(1) = Trim(Text2.Text)

rs_addreader.Fields(2) = Trim(Combo2.Text)

rs_addreader.Fields(3) = Trim(Combo1.Text)

rs_addreader.Fields(4) = Trim(Text3.Text)

rs_addreader.Fields(5) = Trim(Text4.Text)

rs_addreader.Fields(6) = Trim(Text5.Text)

rs_addreader.Fields(7) = CDate(Text6.Text)

rs_addreader.Update

MsgBox "添加读者信息成功！", vbOKOnly, ""

rs_addreader.Close

Else

MsgBox "读者编号重复！", vbOKOnly + vbExclamation, ""

Text1.SetFocus

Text1.Text = ""

rs_addreader.Close

Exit Sub

End If

End Sub

Private Sub Command2_Click()

Unload Me

End Sub

4.9添加图书界面

思想：和添加读者信息的思想类似，按照提示的功能进行填写后即可完成，点击确定和数据库进行连接。

5总结

以上是“图书管理系统”开发的主要过程，图书管理系统实现了对图书管理的科学化，快捷化，适应了现代社会图书馆内图书和用户借阅资料繁多，并且包含很多的信息数据的管理。面对这样庞大的信息量，图书管理系统有效的提高了图书管理工作的效率。通过这样的系统，可以做到信息的规范管理，科学统计和快速查询，从而减少了管理方面的工作量。

6结束语

通过这次系统的开发设计，我对整个开发设计的过程有了一个较为系统的认识，也对SQL与Visuai https://www.360docs.net/doc/c48851234.html,这些优秀的开发工具有了更深的了解和认识，基本掌握如何利用这个开发工具进行简单的开发，也懂得了在软件开发中只有做到理论联系实际，才能开发出较好的应用软件。不钻牛角尖。当遇到障碍的时候，暂时远离电脑，当重新开始工作的时候，也许会发现那些难题现在竟然可以迎刃而解。应当多与别人交流，三人行必有我师。良好的编程风格。注意养成良好的习惯，代码的缩进编排，变量的命名规则要始终保持一致。

通过这次的设计，培养了我们综合运用各门计算机知识的能力，特别是在数据库程序设计、编程技术方面有了长足的进步，对软件系统开发过程、步骤有了比较深刻的认识。我将在今后继续坚持学习，在以后的实践中逐步加以总结和积累，使得系统更加完善。