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

1、数计学院课程设计报告册( 编程类)20102011学年度第一 学期赣南师范学院数学与计算机科学学院课程设计报告册课程设计名称：数据库开发与实例专业：网络工程班级： 08 网本学号： 080705019姓名：易达平指导老师：严老师课程设计任务一览表序号课程设计任务名称图书基本情况的录入、1修改、删除等基本操作2实现借书还书功能读者基本情况的录入、3修改、删除等基本操作设计专题任务描述（可附页）新的图书到要加载到数据库里面去，修改图书的类别名称或者类别编号， 还有从数据库中删掉图书的所有信息输入查询图书类别还有查询方式， 输出符合上面条件的图书信息， 是否被借阅， 查询已借出和未借出的书，还有还书

2、时，借阅的信息都需要更改，以便下次有人借书的时候可以查询的此书更新的信息读者的种类管理。可以添加读者的类别临时，VIP 等），类别不同借阅的天数不同。读者信息的管理。 可以添加读者的信息， 删除和修改读者的信息，还有查询读者信息的功能。45具有数据备份和数据恢复功能系统管理信息的保存，存在指定的位置， 防止数据丢失时难以修复(1) 数据的备份。通过选择指定路径来来备份数据。(2) 数据的回复。通过寻找到已经备份数据的路径来进行恢复。(3) 数据的压缩。随着输入数据的增多，数据库文件自然会相应加大。本系统具有数据压缩功能，以便于更快地搜索数据。用户在使用本功能前必须关闭窗口以外的其它所有窗口。(

3、4) 数据的清理。本功能负责清理图书信息、读者信息、图书借阅等信息，而基本信息则保留。指导用书 :1萨师煊、王珊数据库系统概论高等教育出版社2000.22俞盘祥、沈金发数据库系统原理清华大学出版社2000.63王珊、陈红数据库系统原理教程清华大学出版社1998.74施伯乐、丁宝康数据库系统教程高等教育出版社1999.12_课程设计报告设计项目名 称编号主要附属仪器电脑U盘设备设备1前台设计语言（例VB）主要2数据库管理系统（例07年4月 15日使用ACCESS）起止时间07 年6月10软件日同组人朱志鹏课程设计任务书1 根据需求分析，做出系统的逻辑模型（25%）1） 系统功能模块示意图及各个模

4、块的功能简介2） 系统所需数据库的ER模型2 构建数据库（25%）1） ER模型转换为关系模型2） 结合具体的 DBMS，设计具体数据库结构（表结构）3 应用系统的界面设计（25%）1） 主界面以 MDI窗体为框架。2） 要提供相关的安全机制及帮助信息。3） 系统要实现的功能界面4 系统代码设计（20%）1） 应用程序与数据库连接代码2） 各个功能实现的代码5 系统测试（5%）1） 测试数据2） 测试结果课程设计报告流程图：4.3数据字典D1图 书图书信息图书信息基本信息借阅信息管图书编号1.1.教师借理12阅图书管理数据流名称：用户表别名：无描述：记录所有注册用户的基本情况定义：用户表 =姓

5、名 +密码位置： database.mdb 数据库D2借归还图书1.3D3归1.图书整理4数据流名称：图书类别表别名：无描述：记录所有类别的基本情况定义：图书类别表 =类别 +类别编号位置： database.mdb 数据库数据流名称：书籍信息表别名：无描述：记录所有书籍的基本情况定义：书籍信息表 =图书编号 +类别 +作者 +出版社 +出版日期 +登记日期 +是否被借出位置： database.mdb 数据库数据流名称：借阅表别名：无描述：记录所有的图书借阅的情况定义：借阅表 =借阅编号 +读者编号 +读者姓名 +书籍编号 +书籍名称 + 位置： database.mdb 数据库数据流名称：

6、读者表别名：无描述：记录所有类别的基本情况定义：读者表 =读者编号 +读者姓名 +性别 +读者类别 +工作单位 +家庭住址 +电话号码 + 登记日期 +已借书的数量位置： database.mdb 数据库数据流名称：读者类别别名：无描述：记录所有读者类别的基本情况定义：读者类别表 =种类名称 +借书的数量 +性别 +借书期限 +有限期限位置： database.mdb 数据库5. 系统设计与实现 （主要说明自己所负责的模块的情况）5.1模块功能描述实现登陆以及新用户的注册, 修改和注销 。(1)用户口令管理。登陆以及注册新用户, 输入用户名和密码。(2) 注册新用户(3) 注销用户。可以注销本

7、次登录的用户。点击注销子菜单时会弹出一个小型对话框提示“是否注销用户” ! ，点击确定后再次提示“注销成功!”(4) 修改密码。可以修改本次登录用户的密码。1）登陆成功的主界面，如图 1-1 。1.1图书管理系统实现图书信息 的 管理。可进行图书登记, 图书查询,图书信息修改和删除, 以及图书类别的增加，修改和删除操作。1) 图书登记。对新入库图书基本信息进行登记 , 包括图书编号、图书名、作者、出版社、图书类别、登记日期等信息，如图 1-2 。图 1-2主要代码： Private Sub Command1_Click()Dim rs_addbook As New ADODB.Recordse

8、tDim conn As New ADODB.ConnectionDim sql As StringIf Trim(Text1.Text) = ThenMsgBox 图书编号不能为空 , vbOKOnly + vbExclamation, Text1.SetFocusExit SubEnd IfIf Trim(Text2.Text) = ThenMsgBox 书名不能为空 , vbOKOnly + vbExclamation, Text2.SetFocusExit SubEnd IfIf Trim(Combo1.Text) = ThenMsgBox 请选择图书种类 , vbOKOnly + v

9、bExclamation, Combo1.SetFocusExit SubEnd IfIf Not IsDate(Text5.Text) ThenMsgBox 请按照 yyyy-mm-dd 格式输入日期 , vbOKOnly + vbExclamation, Text5.SetFocusExit SubEnd IfIf Not IsDate(Text6.Text) ThenMsgBox 请按照 yyyy-mm-dd 格式输入日期 , vbOKOnly + vbExclamation, Text6.SetFocusExit SubEnd Ifconn.Opendatasource=databas

10、e.mdbsql = select * from书籍信息 where图书编号 = & Text1.Text & &App.Path&rs_addbook.Open sql, conn, adOpenKeyset, adLockPessimisticIf rs_addbook.EOF Thenrs_addbook.AddNewrs_addbook.Fields(0) = Trim(Text1.Text)rs_addbook.Fields(1) = Trim(Text2.Text)rs_addbook.Fields(2) = Trim(Combo1.Text)rs_addbook.Fields(3

11、) = 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.UpdateMsgBox 添加书籍信息成功 !, vbOKOnly, rs_addbook.CloseElseMsgBox 图书编号重复 !, vbOKOnly + vbExclamation, Text1.SetFocusrs_addbook.Clos

12、eExit SubEnd IfEnd Sub2)图书详细信息浏览。可通过选择条件来查询图书的详细信息，如图1-3 。主要代码： Private Sub Command1_Click()图 1-3Dim sql As StringDim rs_find As New ADODB.RecordsetDim conn As New ADODB.Connectionconn.Open provider=Microsoft.Jet.OLEDB.4.0;data source= & App.Path &database.mdbIf Option1.Value = True Thensql = select

13、 * from书籍信息 where是否被借出 = 是End IfIf Option2.Value = True Thensql = select * from书籍信息 where是否被借出 = 否 End IfIf Option3.Value = True And Text1.Text Thensql = select * from借阅信息 where读者姓名 = & Text1.Text & ElseIf Option3.Value = True And Text1.Text = ThenMsgBox 请输入读者姓名！ , vbOKOnly + vbExclamation Text1.Set

14、FocusExit SubEnd Ifrs_find.CursorLocation = adUseClientrs_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主要代

15、码： Private Sub cmdmodify_Click()Dim answer As StringOn Error GoTo cmdmodifycmddel.Enabled = Falsecmdmodify.Enabled = Falsecmdupdate.Enabled = Truecmdcancel.Enabled = TrueDataGrid1.AllowUpdate = TrueExit Subcmdmodify:If Err.Number 0 ThenMsgBox Err.DescriptionEnd IfEnd SubPrivate Sub cmdupdate_Click()

16、If Not IsNull(DataGrid1.Bookmark) Thenrs_book.UpdateEnd Ifcmddel.Enabled = Truecmdmodify.Enabled = Truecmdupdate.Enabled = Falsecmdcancel.Enabled = FalseMsgBox 修改成功 !, vbOKOnly + vbExclamation, End SubPrivate Sub cmddel_Click()Dim answer As StringOn Error GoTo cmddelanswer = MsgBox(确定要删除吗？ , vbYesNo

17、, )If answer = vbYes ThenDataGrid1.AllowDelete = Truers_book.Deleters_book.UpdateDataGrid1.RefreshElseExit SubEnd If4）添加图书类别，如图1-5 。图 1-5主要代码： Private Sub Command1_Click()Dim sql As StringDim conn As New ADODB.ConnectionDim rs_bookstyle As New ADODB.RecordsetIf Trim(Text1.Text) = ThenMsgBox 图书种类不能为空

18、, vbOK0nly + vbExclamation, Text1.SetFocusExit SubEnd IfIf Trim(Text2.Text) = ThenMsgBox 种类编号不能为空 , vbOK0nly + vbExclamation, Text2.SetFocusExit SubEnd IfProvider;PersistSecurityInfo=false;data图书管理系统database.mdbconn.Opendatasource=database.mdbsql = select * from图书类别 where类别名称 = & Text1.Text & &App.P

19、ath&rs_bookstyle.Open sql, conn, adOpenKeyset, adLockPessimistic If rs_bookstyle.EOF Thenrs_bookstyle.AddNewrs_bookstyle.Fields(0) = Trim(Text1.Text)rs_bookstyle.Fields(1) = Trim(Text2.Text)rs_bookstyle.UpdateMsgBox 添加图书类别成功 !, vbOKOnly, rs_bookstyle.CloseElseMsgBox 图书类别重复！ , vbOKOnly + vbExclamatio

20、n, Text1.SetFocusText1.Text = rs_bookstyle.CloseExit SubEnd IfEnd Sub5）修改图书类别，如图1-6 。图 1-6主要代码 Private Sub cmdmodify_Click()Dim answer As StringOn Error GoTo cmdmodifycmddel.Enabled = Falsecmdmodify.Enabled = Falsecmdupdate.Enabled = Truecmdcancel.Enabled = TrueDataGrid1.AllowUpdate = TrueExit Subcm

21、dmodify:If Err.Number 0 ThenMsgBox Err.DescriptionEnd IfEnd SubPrivate Sub cmdupdate_Click()If Not IsNull(DataGrid1.Bookmark) Thenrs_reader.UpdateEnd Ifcmddel.Enabled = Truecmdmodify.Enabled = Truecmdupdate.Enabled = Falsecmdcancel.Enabled = FalseMsgBox 修改成功 !, vbOKOnly + vbExclamation, End Sub读者管理可

22、以添加读者的类别，修改和删除读者的类别。读者的信息管理可以添加，删除和修改读者的信息。还具有查询读者信息的功能。(1) 读者的种类管理。可以添加读者的类别临时， VIP 等），类别不同借阅的天数不同。(2) 读者信息的管理。可以添加读者的信息，删除和修改读者的信息，还有查询读者信息的功能。图书借阅的管理通过用户提供的图书编号、图书名、作者、出版社、图书类别等基本信息, 在数据库中检索出符合条件的所有图书, 将图书的信息显示出来, 并且可以通过点击书名, 查看图书的详细信息。(1) 输入信息 : 图书类别 , 查询方式 ( 按书号、书名、作者、出版社查询 ) , 查询内容。注 :图书类别、查询方式都为选择项 , 查询内容为输入项 , 各项目在逻辑上是与的关系 , 若输入项为空 , 则列出用户选中类别的所有图书 , 若用户未选择类别且输入为空 , 则列出全部图书图书的信息