数计学院课程设计报告册(编程类).doc

2010 2011 学年度第 一 学期赣南师范学院数学与计算机科学学院课程设计报告册课程设计名称：数据库开发与实例专 业： 网络工程班 级： 08网本学 号： 080705019姓 名： 易达平指 导 老 师： 严老师课程设计任务一览表序号课程设计任务名称设计专题任务描述（可附页）1图书基本情况的录入、修改、删除等基本操作新的图书到要加载到数据库里面去，修改图书的类别名称或者类别编号，还有从数据库中删掉图书的所有信息2实现借书还书功能输入查询图书类别还有查询方式，输出符合上面条件的图书信息，是否被借阅，查询已借出和未借出的书，还有还书时，借阅的信息都需要更改，以便下次有人借书的时候可以查询的此书更新的信息3读者基本情况的录入、修改、删除等基本操作读者的种类管理。可以添加读者的类别临时，VIP等），类别不同借阅的天数不同。读者信息的管理。可以添加读者的信息，删除和修改读者的信息，还有查询读者信息的功能。4具有数据备份和数据恢复功能信息的保存，存在指定的位置，防止数据丢失时难以修复5系统管理(1)数据的备份。通过选择指定路径来来备份数据。(2)数据的回复。通过寻找到已经备份数据的路径来进行恢复。(3)数据的压缩。随着输入数据的增多，数据库文件自然会相应加大。本系统具有数据压缩功能，以便于更快地搜索数据。用户在使用本功能前必须关闭窗口以外的其它所有窗口。(4)数据的清理。本功能负责清理图书信息、读者信息、图书借阅等信息，而基本信息则保留。指导用书:1萨师煊、王珊数据库系统概论 高等教育出版社2000.22俞盘祥、沈金发数据库系统原理清华大学出版社2000.63王珊、陈红数据库系统原理教程清华大学出版社1998.74施伯乐、丁宝康数据库系统教程高等教育出版社1999.12 _课程设计报告设计项目编 号名 称主要仪器设备电脑附属设备U盘主要使用软件1 前台设计语言（例VB）2 数据库管理系统（例ACCESS）起止时间07年 4 月 15 日 07 年6月 10日 同组人朱志鹏课程设计任务书1 根据需求分析，做出系统的逻辑模型（25%）1） 系统功能模块示意图及各个模块的功能简介2） 系统所需数据库的ER模型2 构建数据库 （25%）1） ER模型转换为关系模型2） 结合具体的DBMS，设计具体数据库结构（表结构）3 应用系统的界面设计（25%）1） 主界面以MDI窗体为框架。2） 要提供相关的安全机制及帮助信息。3） 系统要实现的功能界面4 系统代码设计（20%）1） 应用程序与数据库连接代码2） 各个功能实现的代码5 系统测试（5%）1） 测试数据2） 测试结果 课 程 设 计 报 告图书整理1.2分类建 档D1 图书信息登记1.3借阅登 记管理员1.4图书上 架1.1编号管理员D2 借阅登记D3 归还登记图书编号图书信息图书信息基本信息借阅信息教师借阅图书归还图书流程图：4.3 数据字典数据流名称：用户表 别名：无描述：记录所有注册用户的基本情况定义：用户表=姓名+密码位置：database.mdb数据库数据流名称：图书类别表 别名：无描述：记录所有类别的基本情况定义：图书类别表=类别+类别编号位置：database.mdb数据库数据流名称：书籍信息表 别名：无描述：记录所有书籍的基本情况定义：书籍信息表=图书编号+类别+作者+出版社+出版日期+登记日期+是否被借出位置：database.mdb数据库数据流名称：借阅表 别名：无描述：记录所有的图书借阅的情况定义：借阅表=借阅编号+读者编号+读者姓名+书籍编号+书籍名称+位置：database.mdb数据库数据流名称：读者表 别名：无描述：记录所有类别的基本情况定义：读者表=读者编号+读者姓名+性别+读者类别+工作单位+家庭住址+电话号码+登记日期+已借书的数量位置：database.mdb数据库数据流名称：读者类别 别名：无描述：记录所有读者类别的基本情况定义：读者类别表=种类名称+借书的数量+性别+借书期限+有限期限位置：database.mdb数据库5.系统设计与实现（主要说明自己所负责的模块的情况）5.1 模块功能描述5.1.0实现登陆以及新用户的注册,修改和注销。(1) 用户口令管理。登陆以及注册新用户 ,输入用户名和密码。(2)注册新用户(3)注销用户。可以注销本次登录的用户。点击注销子菜单时会弹出一个小型对话框提示“是否注销用户”!，点击确定后再次提示“注销成功!”(4)修改密码。可以修改本次登录用户的密码。1）登陆成功的主界面，如图1-1。图1.1 5.1.1图书管理系统实现图书信息的管理。可进行图书登记,图书查询,图书信息修改和删除 ,以及图书类别的增加，修改和删除操作。1) 图书登记。对新入库图书基本信息进行登记,包括图书编号、图书名、作者、出版社、图书类别、登记日期等信息，如图1-2。 图1-2主要代码：Private Sub Command1_Click()Dim rs_addbook As New ADODB.RecordsetDim conn As New ADODB.ConnectionDim sql As StringIf Trim(Text1.Text) = Then MsgBox 图书编号不能为空, vbOKOnly + vbExclamation, Text1.SetFocus Exit SubEnd IfIf Trim(Text2.Text) = Then MsgBox 书名不能为空, vbOKOnly + vbExclamation, Text2.SetFocus Exit SubEnd IfIf Trim(Combo1.Text) = Then MsgBox 请选择图书种类, vbOKOnly + vbExclamation, Combo1.SetFocus Exit SubEnd IfIf Not IsDate(Text5.Text) Then MsgBox 请按照yyyy-mm-dd格式输入日期, vbOKOnly + vbExclamation, Text5.SetFocus Exit SubEnd IfIf Not IsDate(Text6.Text) Then MsgBox 请按照yyyy-mm-dd格式输入日期, vbOKOnly + vbExclamation, Text6.SetFocus Exit SubEnd Ifconn.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & database.mdbsql = select * from 书籍信息 where 图书编号= & Text1.Text & rs_addbook.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_addbook.EOF Then rs_addbook.AddNew rs_addbook.Fields(0) = Trim(Text1.Text) rs_addbook.Fields(1) = Trim(Text2.Text) rs_addbook.Fields(2) = Trim(Combo1.Text) rs_addbook.Fields(3) = Trim(Text3.Text) rs_addbook.Fields(4) = Trim(Text4.Text) rs_addbook.Fields(5) = Trim(Text5.Text) rs_addbook.Fields(6) = Trim(Text6.Text) rs_addbook.Fields(7) = 否 rs_addbook.Update MsgBox 添加书籍信息成功!, vbOKOnly, rs_addbook.CloseElse MsgBox 图书编号重复!, vbOKOnly + vbExclamation, Text1.SetFocus rs_addbook.Close Exit SubEnd IfEnd Sub2) 图书详细信息浏览。可通过选择条件来查询图书的详细信息，如图1-3。图 图1-3主要代码：Private Sub Command1_Click() Dim sql As String Dim rs_find As New ADODB.Recordset Dim conn As New ADODB.Connection conn.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & database.mdb If Option1.Value = True Then sql = select * from 书籍信息 where 是否被借出=是 End If If Option2.Value = True Then sql = select * from 书籍信息 where 是否被借出=否 End If If Option3.Value = True And Text1.Text Then sql = select * from 借阅信息 where 读者姓名= & Text1.Text & ElseIf Option3.Value = True And Text1.Text = Then MsgBox 请输入读者姓名！, vbOKOnly + vbExclamation Text1.SetFocus Exit Sub End If rs_find.CursorLocation = adUseClient rs_find.Open sql, conn, adOpenKeyset, adLockPessimistic DataGrid1.AllowAddNew = False DataGrid1.AllowDelete = False DataGrid1.AllowUpdate = False Set DataGrid1.DataSource = rs_findEnd Sub3) 图书信息的修改和删除。对图书信息可进行修改和删除操作,图书的编号不可以修改，如图1-4。图1-4主要代码：Private Sub cmdmodify_Click() Dim answer As String On Error GoTo cmdmodify cmddel.Enabled = False cmdmodify.Enabled = False cmdupdate.Enabled = True cmdcancel.Enabled = True DataGrid1.AllowUpdate = True Exit Subcmdmodify: If Err.Number 0 Then MsgBox Err.Description End IfEnd SubPrivate Sub cmdupdate_Click() If Not IsNull(DataGrid1.Bookmark) Then rs_book.Update End If cmddel.Enabled = True cmdmodify.Enabled = True cmdupdate.Enabled = False cmdcancel.Enabled = False MsgBox 修改成功!, vbOKOnly + vbExclamation, End SubPrivate Sub cmddel_Click() Dim answer As String On Error GoTo cmddel answer = MsgBox(确定要删除吗？, vbYesNo, ) If answer = vbYes Then DataGrid1.AllowDelete = True rs_book.Delete rs_book.Update DataGrid1.Refresh Else Exit Sub End If4）添加图书类别，如图1-5。图 图1-5主要代码：Private Sub Command1_Click() Dim sql As String Dim conn As New ADODB.Connection Dim rs_bookstyle As New ADODB.Recordset If Trim(Text1.Text) = Then MsgBox 图书种类不能为空 , vbOK0nly + vbExclamation, Text1.SetFocus Exit Sub End If If Trim(Text2.Text) = Then MsgBox 种类编号不能为空, vbOK0nly + vbExclamation, Text2.SetFocus Exit Sub End IfProvider = Microsoft.Jet.OLEDB.3.5.1 ;Persist Security Info=false;data source=D:图书管理系统database.mdb conn.Open provider=Microsoft.Jet.OLEDB.4.0; data source= & App.Path & database.mdb sql = select * from 图书类别 where 类别名称= & Text1.Text & rs_bookstyle.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_bookstyle.EOF Then rs_bookstyle.AddNew rs_bookstyle.Fields(0) = Trim(Text1.Text) rs_bookstyle.Fields(1) = Trim(Text2.Text) rs_bookstyle.Update MsgBox 添加图书类别成功!, vbOKOnly, rs_bookstyle.Close Else MsgBox 图书类别重复！, vbOKOnly + vbExclamation, Text1.SetFocus Text1.Text = rs_bookstyle.Close Exit SubEnd IfEnd Sub5）修改图书类别，如图1-6。图1-6主要代码Private Sub cmdmodify_Click() Dim answer As StringOn Error GoTo cmdmodifycmddel.Enabled = False cmdmodify.Enabled = False cmdupdate.Enabled = Truecmdcancel.Enabled = True DataGrid1.AllowUpdate = True Exit Subcmdmodify: If Err.Number 0 Then MsgBox Err.Description End IfEnd SubPrivate Sub cmdupdate_Click()If Not IsNull(DataGrid1.Bookmark) Thenrs_reader.Update End Ifcmddel.Enabled = Truecmdmodify.Enabled = True cmdupdate.Enabled = Falsecmdcancel.Enabled = FalseMsgBox 修改成功!, vbOKOnly + vbExclamation, End Sub5.1.2读者管理可以添加读者的类别，修改和删除读者的类别。读者的信息管理可以添加，删除和修改读者的信息。还具有查询读者信息的功能。(1) 读者的种类管理。可以添加读者的类别临时，VIP等），类别不同借阅的天数不同。(2) 读者信息的管理。可以添加读者的信息，删除和修改读者的信息，还有查询读者信息的功能。5.1.3图书借阅的管理通过用户提供的图书编号、图书名、作者、出版社、图书类别等基本信息,在数据库中检索出符合条件的所有图书,将图书的信息显示出来,并且可以通过点击书名,查看图书的详细信息。(1) 输入信息:图书类别,查询方式(按书号、书名、作者、出版社查询) ,查询内容。注:图书类别、查询方式都为选择项,查询内容为输入项,各项目在逻辑上是与的关系,若输入项为空,则列出用户选中类别的所有图书,若用户未选择类别且输入为空,则