数据库实验报告.docx

1、数据库实验报告通达学院课程设计报告课程名称: 数据库课程设计 专 业: 姓 名: 班 级: 学 号: 指导教师: 2012年 1月1日 图书管理系统一、引言 图书馆作为一种信息资源的集散地，图书和用户借阅资料繁多，包含很多的信息数据的管理，现今，有很多的图书馆都是初步开始使用，甚至尚未使用计算机进行信息管理。根据调查得知，以前对图书信息管理的主要方式是基于文本、表格等纸介质的手工处理，对于图书借阅情况（如借书天数、超过限定借书时间的天数）的统计和核实等往往采用对借书卡的人工检查进行，对借阅者的借阅权限、以及借阅天数等用人工计算、手抄进行。数据信息处理工作量大，容易出错；由于数据繁多，容易丢失，

2、且不易查找。总的来说，缺乏系统，规范的信息管理手段。尽管有的图书馆有计算机，但是尚未用于信息管理，没有发挥效力，资源闲置比较突出，这就是管理信息系统的开发的基本环境。 基于VB图书管理系统的研究现状及发展前景 目前大多数图书馆的借阅工作部分还是手工管理，工作效率很低，并且不能及时了解图书的种类和读者们比较需求的图书等，不能更好的适应当前读者的借阅要求。手工管理还存在许多弊端,由于不可避免的人为因素,造成数据的遗漏、误报等。计算机信息化管理有着储存量大，速度快等许多优点，提供给我们的处理信息及时快捷，因此我们利用计算机提供给我们的信息对读者们的借阅过程形成一整套动态的管理。二、需求分析当今时代是

3、飞速发展的的信息时代。在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的原因。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。计算机进行信息管理与信息管理系统的开发密切相关，系统的开发是系统管理的前提。本系统就是为了管理好图书馆信息而设计的。针对各大中专院校的图书管理现状，设计出适合一般学校的计算机辅助图书管理系统。实现对图书基本信息、读者基本信息进行计算机辅助管理，完成借书和还书有关信息的记录、修改、查询、删除等一系列任务的计算机管理与实现。图书管理系统能方

4、便、快捷地管理图书，将传统的图书管理方式彻底的解脱出来，提高效率，减轻工人人员以往繁忙的工作，减小出错的概率，使读者可以花更多的时间在选择书和看书上。从而使人们有更多时间来获取信息、了解信息、掌握信息。各功能模块描述如下：1.系统管理系统管理中，能实现新的管理员的添加和现存管理员的密码修改功能。2.图书管理在图书管理模块中，主要实现对图书类别的添加和管理，并且可以添加新的图书。3.读者管理实现对读者类别的添加和管理，读者类别可包含老师学生等等，并且各读者类别所借阅的图书书目和借阅时间都存在差别。对已借阅图书的读者的信息进行添加和管理，并且日后可根据登记的读者编号进行查阅。4.借阅管理借阅管理包

5、含对应读者所借图书的相关信息，可根据借阅编号查询相关借阅情况，并查看时候超期借阅，并进行一定金额处罚。图书管理系统借阅管理读者管理图书管理系统管理图 1-1 图书管理系统功能模块三、概念结构设计图 2-1 概念结构E-R图四、实验设备硬件：兼容机一台软件：SQLServer、Oracle9i数据库;VB、VC、Java、Delphi等高级语言开发环境：前台开发环境：Microsoft Visual Basic 6.0后台数据库环境：Microsoft SQL Server 2000五、逻辑结构设计管理员 （用户名，密码）读者类别（类别名称，最大借阅数，最长借阅时间）读者信息（读者编号，姓名，性

6、别，单位，地址，电话，类别名称，登记日期，已借阅数量）图书类别（类别号，类别名）图书信息（图书编号，图书名称，类别名，作者，出版日期，登记日期）借阅信息（借阅编号，读者编号，读者姓名，图书编号，图书名称，借出日期，归还日期，是否超期）六、数据库的创建及连接数据库设计(Database Design)是指根据用户的需求，在某一具体的数据库管理系统上，设计数据库的结构和建立数据库的过程。数据库需求分析用户的需求具体体现在各种信息的提供、保存、更新和查询方面，这就要求数据库结构能满足各种信息的输入和输出。收集基本数据、数据结构及数据处理的流程，组成一份详尽的数据字典，为后面的具体设计打下基础。通过高

7、校图书管理系统功能的分析，针对一般图书管理系统，总结出系统数据流模型如图3-1所示：图3-1 顶层数据流图1、编写高级语言访问数据库的程序实验内容及要求:了解SQLserver的安装及使用；学会对企业管理器、查询分析器的使用；建立一个学生表、课程表及学生选课关联表，并用SQL语句进行相关插入、查询、删除等操作；主要程序如下：if exists (select * from dbo.sysobjects where id = object_id(Ndbo.WorkTime) and OBJECTPROPERTY(id, NIsUserTable) = 1)drop table dbo.WorkT

8、imeGOCREATE TABLE dbo.WorkTime ( EmployeeID varchar (50) COLLATE Chinese_PRC_CI_AS NOT NULL , EmployeeName varchar (50) COLLATE Chinese_PRC_CI_AS NULL , OnWorkTime varchar (50) COLLATE Chinese_PRC_CI_AS NULL , OffWorkTime varchar (50) COLLATE Chinese_PRC_CI_AS NULL , LeaveWorkTime varchar (50) COLLA

9、TE Chinese_PRC_CI_AS NULL , Describe varchar (50) COLLATE Chinese_PRC_CI_AS NULL ) ON PRIMARYGO2、编写高级语言访问数据库的程序实验内容及要求:内容：通过odbc桥访问数据库。通过各数据库的驱动程序访问数据库。高级语言可以是Java,c+,basace等。用高级语言实现简单的对数据库表的插入、修改、删除以及查询操作。写出高级语言访问数据库的操作步骤。用高级语言实现简单的数据库表的插入，修改，删除和查询的操作界面。主要程序如下：package manpowersystem;* Title: * Desc

10、ription: * Copyright: Copyright (c) 2003 * Company: * author not attributable * version 1.0 */import java.sql.*;import java.util.*;public class Database Connection conn = null; ResultSet rs = null; Statement stmt = null; public RecordItem AccessData() throws Exception Class.forName( com.microsoft.jd

11、bc.sqlserver.SQLServerDriver ); String url = jdbc:microsoft:sqlserver:/localhost:1433; + studentName=Manpower; conn = DriverManager.getConnection( url, sa, ); stmt = conn.createStatement( ResultSet.TYPE_SCROLL_SENSITIVE, ResultSet.CONCUR_UPDATABLE ); String SQL = select * from studentID ; rs = stmt.

12、executeQuery( SQL ); RecordItem item = new RecordItem 100 ; for ( int j = 0; j 100; j+ ) item j = new RecordItem(); int i = 0; while ( rs.next() & ( i 100 ) ) item i .SetEmployeeID( rs.getString( studentID ) ); item i .SetEmployeeName( rs.getString( studentName ) ); item i .SetOnWorkTime( rs.getStri

13、ng( studentnumber ) ); item i .SetOffWorkTime( rs.getString( studentcourse ) ); item i .SetDescribe( rs.getString( Describe ) ); i+; RecordItem result = new RecordItem i ; for ( int j = 0; j 30 ThenMsgBox 借阅已超期，请缴罚款 & (b-30) * 0.1 & 元, vbOKOnly + vbExclamation, 警告ElseMsgBox 借阅还未超期。, vbOKOnly + vbExc

14、lamation, 提示End IfEnd Sub九、系统运行结果（部分附代码） 1、管理员登录：Private Sub cmdCancel_Click() OK = False Me.HideEnd SubPrivate Sub cmdLogin_Click() 检验数据的有效性 If Trim(txtUserName.Text = ) Then MsgBox 请输入用户名！ txtUserName.SetFocus Exit Sub ElseIf Trim(txtPassword = ) Then MsgBox 请输入密码! txtPassword.SetFocus Exit Sub El

15、se Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset Dim sql As String 建立连接 myDbOper.DB_Connect 定义查询语句 sql = SELECT * FROM Librarian WHERE Id= + txtUserName + AND Password= + txtPassword + Set rst = myDbOper.querySQL(sql) If (Not rst.EOF) Then OK = True Me.Hide FrmMain.Show 0 Else MsgBox 用户

16、名和密码错误,请重新输入. End If rst.Close 关闭连接 myDbOper.DB_DisConnect End If End SubPrivate Sub Form_Load()End SubPrivate Sub Label2_Click()End SubPrivate Sub Label3_Click()End SubPrivate Sub txtUserName_Change()End Sub图6-1 主界面图6-2 借阅信息图6-3 借书界面Private Sub cmdExit_Click() Me.HideEnd SubPrivate Sub cmdEnter_Cli

17、ck() 检验数据的有效性 If Trim(txtBorrId) = Then MsgBox 请输入借书卡号 Exit Sub End If Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset Dim sql As String 建立连接 myDbOper.DB_Connect 定义查询语句 sql = SELECT b.StudentNum,b.name,i.Institute,g.Grade,b.teleNumber,b.borrowBookNum _ + FROM Borrower b,Institute i,Grade

18、g _ + WHERE b.InstituteID=i.InstituteID AND b.GradeID=g.GradeID _ + AND BorrowerId= + txtBorrId + Set rst = myDbOper.querySQL(sql) If (Not rst.EOF) Then With rst lblStuNum.Caption = .Fields(0) lblName.Caption = .Fields(1) lblInstitute.Caption = .Fields(2) lblGrade.Caption = .Fields(3) lblPhone.Capti

19、on = .Fields(4) End With Refresh_DataList1 Else MsgBox 用户不存在,请重新操作. End If rst.Close 关闭连接 myDbOper.DB_DisConnectEnd SubPrivate Sub cmdQuery_Click() 检验数据的有效性 If Trim(txtBookId) = Then MsgBox 请输入书刊编号 Exit Sub End If Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset Dim sql As String 建立连接 myDb

20、Oper.DB_Connect 定义查询语句 sql = SELECT b.BookID as 书刊编号,b.name as 名称,b.loan as 状态, _ + t.author as 作者,t.isbsn as isbsn,t.type as 类型,b.BorrowDate as 借书日期 _ + FROM Book b , Title t WHERE b.name=t.name AND b.BookID= _ + Trim(txtBookId) + Set rst = myDbOper.querySQL(sql) If (Not rst.EOF) Then Refresh_DataL

21、ist2 (sql) Else MsgBox 该书刊不存在,请重新操作. End If rst.Close 关闭连接 myDbOper.DB_DisConnectEnd SubPrivate Sub Refresh_DataList1() Dim sql As String sql = SELECT bo.BookID as 书刊编号,bo.name as 名称,bo.BorrowDate as 借书日期 _ + From Borrower b,Book bo _ + WHERE b.BorrowerID=bo.borrowerID and b.BorrowerID= _ + Trim(txt

22、BorrId) + Adodc1.RecordSource = sql Adodc1.Refresh Set DataGrid1.DataSource = Adodc1 DataGrid1.ReBindEnd SubPrivate Sub Refresh_DataList2(sql As String) Adodc2.RecordSource = sql Adodc2.Refresh Set DataGrid2.DataSource = Adodc2 DataGrid2.ReBindEnd SubPrivate Sub cmdSubmit_Click() 检验数据的有效性 If Trim(tx

23、tBorrId) = Then MsgBox 请输入借书卡号 Exit Sub End If If Trim(txtBookId) = Then MsgBox 请输入书刊编号 Exit Sub End If Dim nowDate As New BookDate Dim myDbOper As New DbOperation Dim rst As ADODB.Recordset Dim sql As String Dim update1_sql As String Dim update2_sql As String 建立连接 myDbOper.DB_Connect 定义查询语句 sql = S

24、ELECT loan FROM Book WHERE BookId= + Trim(txtBookId) + Set rst = myDbOper.querySQL(sql) If Trim(rst.Fields(0) = 在库 Then 更新数据库表 update1_sql = UPDATE Book SET loan=借出,borrowerID= _ + Trim(txtBorrId) + ,BorrowDate= _ + nowDate.getDate + WHERE BookID= _ + Trim(txtBookId) + myDbOper.executeSQL (update1_sql) update2_sql = UPDATE Borrower SET borrowBookNum=borrowBookNum+1 WHERE BorrowerId= _ + Trim(txtBorrId) + myDbOper.executeS