毕业设计(论文)图书管理系统

1、图书管理系统毕业设计报告包括一下几个部分的内容：1. 毕业设计目的2. 毕业设计要求3. 图书管理系统功能分析4. 数据库逻辑结构设计5. 参考模块和参考程序(一)毕业设计目的通过毕业设计使本学期学习的知识掌握的更加的牢固， 并且能熟练的应用自己学习过的 VISUAL BASIC 6.0 和 SQL SERVER 200数据0库管理与开发的知识进行实际当中的项目的开发，进一步的掌握可视化数据库编程的基本思想和方法。在实践当中更加的灵活的运用所学知识。锻炼自己的分析问题，解决问题的能力，为将来自己能够开发大型的软件奠定基础。毕业设计的主要目的在于总结自己在校期间的学习成果，培养自己综合地、创造性

2、地运用所学知识和技能解决实际问题的能力，并使自己得到科研工作各个环节的实际锻炼，具有从事科研工作或设计工作的初步能力。(二)毕业设计要求1：上机前做好充分准备，包括程序模块图，程序界面方式，源程序清单，调试步骤，测试方法，运行结果的分析等。2：毕业设计具体要求如下：(1) 设计说明：用来说明程序模块功能、结构、主要包括程序名、功能、原理计算说明，主要用于符号说明。(2) 调试说明：便于学生总结经验，提高编程及调试能力，包括调试情况，如对数据库操作时遇到的问题及解决方法，对程序设计技巧的总结及分析等。对运行结果的分析、毕业设计心得体会等。(3) 使用说明：程序提供给用户时必须做出的说明，使用方法

3、、操作步骤等。(三)图书管理系统功能分析为了提高对图书信息的管理，设计合理有效的图书管理系统，可以做到信息的规范管理、科学统计和快速的查询，从而减少不必要的时间和人力等方面的工作量。系统开发的总体任务是使图书信息当中的各个表更加的规范，更加的系统，更加的条理清楚。本次毕业设计所要求达到的功能分析具体如下：图书管理系统需要实现的主要的功能有：1 . 图书馆图书采购信息的输入，包括图书的基本的信息，如书名；书号；出版社；库存量；图书的所属类别；图书的采购人；供货商和图书采购日期。2 . 图书馆图书信息的查询，包括图书的如下的信息，某一中图书的剩余数量；某一作者的图书是否存在，或者是某一出版社的图书

4、数量，并且能实现采购人；供货商和采购日期的查询。3 . 图书馆图书信息的修改。4 .借书的基本信息的输入，如借书的学生的借书证号，书号，借书日期，所 属类别等基本信息。5 .借书的基本信息的查询，如按借书日期查询，借书证号查询，借书的书号 查询等。6 .借书的基本信息的修改。7 .还书的基本信息的输入，如还书的书号，借书证号，还书日期，并且根据 图书的借书和还书的日期计算出借书的时间天数，对于查处借书时间的学 生进行罚款，在还书时，根据图书的损坏的程度，对损坏图书的同学进行 罚款。8 .还书基本信息的查询，如按还书的还书时间，书号，借书证号等。9 .还书信息的修改。10 .学生的基本信息的输入

5、，如学生的学号，姓名，性别，所属的班级和借书 证号，并且在学生信息表中，学生的学号和学生的借书证号必须是唯一的, 不能存在重复的学生学号，或者两个学生的借书证号是相同的。11 .学生基本信息的查询，如按学号，姓名，性别，和班级进行查询。12 .学生基本信息的修改。13 .用户的添加，查询，修改，并且设置具有系统管理员权限的用户。（四）数据库的逻辑结构设计用户表：列名数据类型可否为空用户名（主键约束）Varchar(20)Not null密码Varchar(100)Null级别Varchar(5)Not null信息表:列名数据类型可否为空借书证号（主键约束）Varchar(50)Not nul

6、l学号Varchar(20)Not null姓名Varchar(20)Null性别Varchar(2)Null班级Varchar(20)Null罚款金额IntNull米购表:列名数据类型可否为空书名Varchar(20)Not null数量IntNot null单价IntNull所属类别Varchar(20)Null出版社名称Varchar(50)Null采购人Varchar(20)Null供货商Varchar(20)Null采购日期DatetimeNull借书表:列名数据类型可否为空借书证号Varchar(50)Not null书号Varchar(20)Null借书日期DatetimeNul

7、l还书表:列名数据类型可否为空借书证号Varchar(50)P Null书号Varchar(20)Null还书日期Datetime:Null损坏状况Varchar(500)Null罚款金额IntP Null库存表:列名数据类型可否为空书名Varchar(20)r Null书号（主键约束）Varchar(20)Null作者Varchar(20)Null数量IntNull所属类别Varchar(20)Null（五）参考模块和参考程序（1）存储过程存储过程可以使得对数据库的管理、以及显示关于数据库及其用户信息的工作容易多存储过程是 SQL语句和可选控制流语句的预编译集合，以一个名称 存储并作为一个单

8、元处理。存储过程存储在数据库内，可由应用程序通过一个 调用执行，而且允许用户声明变量、有条件执行以及其它强大的编程功能。存储过程可包含程序流、逻辑以及对数据库的查询。它们可以接受参数、输出 参数、返回单个或多个结果集以及返回值。可以出于任何使用 SQL语句的目的来使用存储过程，它具有以下优点：可以在单个存储过程中执行一系列SQL语句。可以从自己的存储过程内引用其它存储过程，这可以简化一系列复杂语句。存储过程在创建时即在服务器上进行编译，所以执行起来比单个SQL语句快。存储过程的功能取决于数据库所提供的功能。有关存储过程可完成工作的更多详细信息，请参见存储过程。创建存储过程使用Transact-

9、SQL 语句CREATE PROCEDURE建存储过程。创建存储过程前， 请考虑下列事项： 不能将CREATE PROCEDURE句与其它SQL语句组合到单个批处理中。创建存储过程的权限默认属于数据库所有者，该所有者可将此权限授予其他用户。 存储过程是数据库对象，其名称必须遵守标识符规则。 只能在当前数据库中创建存储过程。创建存储过程时，应指定： 所有输入参数和向调用过程或批处理返回的输出参数。 执行数据库操作（包括调用其它过程）的编程语句。 返回至调用过程或批处理以表明成功或失败（以及失败原因）的状态值。执行存储过程当需要执行存储过程时，请使用 Transact-SQL EXECUTE语句。

10、如果 存储过程是批处理中的第一条语句，那么不使用EXECUT改键字也可以执行该存储过程。如果存储过程编写为可以接受参数值，那么可以 提供参数值。如果在存储过程中定义了参数的默认值，那么下列情况下将使用默认 化 执行存储过程时未指定该参数的值。 将DEFAULT关键字指定为该参数的值。若要执行与其它同名存储过程处于同一分组中的存储过程，请指定此 存储过程在组内的标识号。例如，要执行my_proc组中的第二个存储过程，请执行：EXECUTE my_proc;2如图书查询的存储过程：use图书管理系统if exists(select namefrom sysobjects where name=&#

11、39;BookInquire and type='p') drop procedure BookInquirego create procedure BookInquire BookName as varchar(20),BookNum as varchar(20),Author as varchar(20),Sort as varchar(20)asif exists(select namefrom sysobjects where name=' 查询 _1'and type='U')drop table 查询 _1select * into

12、查询 _1 from 库存表 where BookName in ( 书 名 ,'') and BookNum in( 书号 ,'')and Author in( 作者 ,'')and Sort in( 所属类别 ,'')go(2)Visual Basic 程序设计在图书管理系统的 Visual Basic 实现中定义几个函数，用来实现经常用到的数据库操作，例如数据库的访问，数据的修改函数，数据的备份和数据的还原。在程序设计的代码如下：如数据库连接函数：Public Function ConnectionString() As S

13、tringConnectionString = "PROVIDER=MSDASQL;driver=SQLServer;server=(local);uid=;pwd=;database= 图书管理系统 ;"End Function数据库数据的修改函数：Public Function ExecuteSQL(ByVal SQL As String, MsgString As String) As ADODB.RecordsetDim cnn As ADODB.ConnectionDim rst As ADODB.RecordsetDim sTokens() As StringO

14、n Error GoTo ExecuteSQL_ErrorsTokens = Split(SQL)Set cnn = New ADODB.Connectioncnn.Open ConnectionStringIf InStr("INSERT,DELETE,UPDATE", UCase$(sTokens(0) Thencnn.Execute SQLMsgString = sTokens(0) & "query successful"ElseSet rst = New ADODB.Recordsetrst.Open Trim$(SQL), cnn,

15、adOpenKeyset, adLockOptimisticSet ExecuteSQL = rstMsgString = " 查询到 " & rst.RecordCount & " 条记录 "End IfExecuteSQL_Exit:Set rst = NothingSet cnn = NothingExit FunctionExecuteSQL_Error:MsgString = " 查询错误 :" & Err.DescriptionResume ExecuteSQL_ExitEnd Function数据

16、库备份函数：Private Sub cmdBackup_Click()Dim strDSN As StringDim conn As ADODB.ConnectionSet conn = New ADODB.ConnectionDim rs As ADODB.RecordsetSet rs = New ADODB.RecordsetstrDSN = "PROVIDER=MSDASQL;driver=SQLServer;server=(local);uid=;pwd=;database= 图书管理系统 ;"conn.ConnectionString = strDSNconn.

17、CursorLocation = adUseClientconn.OpenOn Error GoTo next1If InStr(1, txtName.Text, ".bak") = 0 ThentxtName.Text = Trim(txtName.Text) & ".bak"End Ifstr1 = "backup database 图书管理系统to disk='" &Trim(txtPath.Text) & "" & Trim(txtName.Text) & &

18、quot;' with init"conn.Execute str1MsgBox " 数据备份成功！ ", vbOKOnly + vbInformationUnload MeExit Subnext1:操作失败MsgBox Err.Description, vbOKOnly + vbCritical,Set conn = NothingEnd Sub数据的查询是数据库操作的主要的内容，在图书管理系统的设计主要的数据查询为借书；还书；采购；图书库存和学生基本信息的查询。如图书馆图书库存查询窗体的 Visual Basic 代码：Dim conn As ADO

19、DB.ConnectionDim rs As ADODB.RecordsetPrivate Sub cmdExit_Click()Unload MeEnd SubPrivate Sub cmdInquire_Click()'*' 在进行参数传递时， 当是字符型的数据， 或者是日期型的数据必 须有单引号' 存储过程和Select 语句的参数在进行传递时不能加单引号'*Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.CursorLocation = adUseClientconn.Ope

20、n ConnectionStringrs.Open "BookInquire('" & txtName.Text & "','" & txtNum.Text & "','" & txtAuthor.Text & "','" & txtSort.Text & "')", conn, adOpenStatic, adLockOptimisticrs.Open "s

21、elect * from 查询 _1", conn, adOpenStatic, adLockOptimisticIf rs.RecordCount = 0 ThenMsgBox " 表中不存在满足条件的记录, 请重新输入！vbOKOnly + vbCritical, " 警告 "txtName.Text = ""txtNum.Text = ""txtAuthor.Text = ""txtSort.Text = ""End IfSet dgdBook.DataSource =

22、 rsEnd SubPrivate Sub cmdPreview_Click()Set conn = New ADODB.ConnectionSet rs = New ADODB.Recordsetconn.CursorLocation = adUseClientconn.Open ConnectionStringrs.Open "BookInquire('" & txtName.Text & "','" & txtNum.Text & "','" & t

23、xtAuthor.Text & "','" & txtSort.Text & "')", conn, adOpenStatic, adLockOptimisticrs.Open "select * from 查询 _1", conn, adOpenStatic, adLockOptimisticIf rs.RecordCount = 0 ThenMsgBox " 表中不存在满足条件的记录, 请重新输入！vbOKOnly + vbCritical, " 警告 "End IfdrpBookInquire.LeftMargin = 1000drpBookInquire.Top = 240drpBookInquire.Showrs.CloseIf DataEnvironmentBook.rsCommand1.State = 1 ThenDataEnvironmentBook.rsCommand1.CloseEnd IfEnd