图书管理系统项目报告.docx

1、图书管理系统项目报告摘 要.2一、系统分析.3(一) 需求分析.3(二) 可行性分析.3二、开发的工具. .4三、开发的环境. .5四、系统设计.6(一) 系统功能模块图.6五、 数据库设计.7(一) 表信息.7六、详细设计.9(一) 公用模块的创建.9(二) 用户管理模块的创建.10(1) 用户登录窗体的创建.10(2) 主窗体的创建. . .11(三) 数据录入修改模块的创建.13(1)图书信息管理（添加图书信息）.13(2)图书信息管理(修改、删除图书信息）.15(3)读者类别管理（添加读者类别）.17(4)读者信息管理（添加读者信息）.19(5)系统管理（设置用户权限）. .21(6)

2、系统管理（修改用户密码）. .24(四) 数据查询模块的创建. .25(1)图书信息管理(查询图书信息）.25(2)读者信息管理（查询读者信息）.27七、结束语. .30(一) 总结.30(二) 致谢.30附录一、参考文献.35图书管理系统摘要：本篇将进一步讲解Visual Basic的进阶知识，通过一个具体的系统实例引导学生如何制作完成一个完整的系统，该篇采用功能模块形式，每个项目即为一个可独立运行的功能模块。关键词：图书馆是一个专门搜集、整理、收藏图书文献资料供人阅览、参考的机构，是人们获取知识的主要途径之一。 在信息技术迅速普及的今天，越来越多的读者希望能通过+网络更方便、更快捷地进行图

3、书的查阅、借阅、获取自己所需的资料，因此图书馆的信息化建设尤为重要。一、系统分析(一) 需求分析日常处理图书的手续繁琐复杂、效率较低，给管理人员带来了诸多的不便，针对这一现象，为了方便图书管理人员对图书馆书籍、读者资料、借还书记录等进行高效的管理，有必要开发图书管理系统。建立图书管理系统，要将图书馆和图书管理、读者管理、图书借阅管理等日常工作实行计算机统一管理，以提高工作效率。(二) 可行性分析图书管理系统正是基于这一需求而产生的，系统中包*括图书类型、图书信息，读者类型、读者信息及借书、还书等信息。它实现了图书管理的电子化，既方便图书管理人员有效地处理这些信息，同时还有利于读者查阅书籍等相关

4、信息。二、开发的工具采用：Visual Basic语言程序设计Visual Basic 是一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发Windows环境下的各类应用程序。它简单易学、效率高，且功能强大，可以与Windows的专业开发工具SDK相媲美。在Visual Basic 环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口函数，以及动态链接库、动态数据交换、对象的链接与嵌入、开放式数据连接等技术，可以高效快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。三、开发的环境在日常生活中，很多地方可以看

5、到数据库的应用，如超市管理系统，我们买完商品付账的时候，收银员就会使用超市管理系统，这个系统的数据库中存储了每一件商品的信息（包括商品价格、产地、厂家等）数据库是数据库系统的核心和管理对象，它是一种用于收集和组织信息的工具，各种管理系统软件的主要工作就是处理数据库中的数据。如图书管理系统，在后台数据中存放了每本书籍的详细信息（包括书名、作者、出版社等）还有读者的各种信息等本系统数据库Access简介:数据库中的数据由数据库管理系统来处理，Access就是Office系列软件中专门用来管理数据库的应用软件，它可以运行于Windows各种环境中。由于Access继承了Windows的特性，不仅易于

6、使用，而且界面友好，因此被用户广泛使用。四、系统设计(一) 系统功能模块图五、数据库设计表1：图书类别表字段名称数据类型字段大小必填字段类别名称文本50是类别编号文本50是表2：读者类别表字段名称数据类型字段大小必填字段读者类别文本50是借书数量数字长整型否借书期限数字长整型否罚款额度数字单精度（小数2位）否表3：图书信息表字段名称数据类型字段大小必填字段书籍编号文本50是书名文本50否别名文本50否类别文本50否作者文本50否出版社文本50否出版日期日期-否登记日期日期-否是否被借出文本50否表4：读者信息表字段名称数据类型字段大小必填字段读者编号文本50是读者姓名文本50否性别文本50否读

7、者类别文本50否工作部门文本50否家庭地址文本50否电话号码文本50否登记日期日期-否已借书数量数字长整型否表5：借阅信息表字段名称数据类型字段大小必填字段借阅编号自动编号长整型（递增）否读者编号文本50否读者姓名文本50否书籍编号文本50否书籍名称文本50否出借日期日期-否还书日期日期-否续借日期日期-否逾期罚款货币货币（小数点1位）否状态文本255否表6：系统管理表字段名称数据类型字段大小必填字段用户名文本50是密码文本50是权限文本50否六、详细设计（一）公用模块的创建Public Function exerecordset(ByVal sql As String) As ADODB.R

8、ecordsetDim conn As ADODB.ConnectionDim rec As ADODB.RecordsetOn Error GoTo exesqlerrSet conn = New ADODB.Connectionconn.Open provider=microsoft.jet.oledb.4.0;data source=book.mdb Set rec = New ADODB.Recordsetrec.CursorLocation = adUseClientrec.Open Trim(sql), conn, adOpenKeyset, adLockPessimisticSe

9、t exerecordset = recmsg = 查询到 & rec.RecordCount & 条记录 exesqlexit:Set rec = NothingSet conn = NothingExit Functionexesqlerr:msg = 查询有误: & Err.DescriptionResume exesqlexitEnd FunctionPublic Sub exenonquery(ByVal sql As String, msg)Dim conn As ADODB.ConnectionOn Error GoTo exesqlerrSet conn = New ADODB

10、.Connectionconn.Open provider=microsoft.jet.oledb.4.0;data source=book.mdbconn.Execute sqlmsg = 执行SQL操作成功exesqlexit:Set conn = NothingExit Subexesqlerr:msg = SQL执行有误 & Err.DescriptionResume exesqlexitEnd Sub（二）用户管理模块的创建1. 用户登录窗体的创建新建一个工程，将当前窗体更名为“login.frm” 运行界面如图所示 代码如下：Dim cnt As IntegerPrivate Su

11、b Command1_Click()Dim sql As StringDim msg As StringDim rec As New ADODB.RecordsetIf Trim(Text1.Text) = Then MsgBox 请输入用户名, vbOKOnly + vbExclamation, Text1.SetFocusElse sql = select * from 系统管理表 where 用户名= & Text1.Text & Set rec = exerecordset(sql) If rec.EOF = True Then MsgBox 没有这个用户, vbOKOnly + vb

12、Exclamation, Else If Trim(rec.Fields(1) = Trim(Text2.Text) Then userid = Text2.Text userpow = rec.Fields(2) rec.Close Unload Me Form1.Show Else MsgBox 密码不正确, vbOKOnly + vbExclamation, Text2.SetFocus End If End IfEnd Ifcnt = cnt + 1If cnt = 3 ThenUnload MeEnd IfExit SubEnd SubPrivate Sub Form_Load()c

13、nt = 0End SubPrivate Sub Timer1_Timer()Label1.Left = Label1.Left - 100If Label1.Left + Label1.Width 0 ThenLabel1.Left = Form1.WidthEnd IfEnd Sub（2）主窗体的创建新建一个工程，更名为“图书管理系统”，添加MDI主窗体，更名为form1，运行界面如图所示代码如下：Private Sub chaxu_Click()xinxichaxu.ShowEnd SubPrivate Sub chaxu2_Click()duzhexinxiguanli.ShowEnd

14、 SubPrivate Sub chongshemima_Click()chongshemima.ShowEnd SubPrivate Sub quanxianshezhi_Click()shezhiquanxian.ShowEnd SubPrivate Sub shanchu_Click()leibeiguanli.ShowEnd SubPrivate Sub shanchu2_Click()xinxixiugai.ShowEnd SubPrivate Sub shanchu3_Click()duzheleibeiguanli.ShowEnd SubPrivate Sub shanchu4_

15、Click()duzhexinxiguanli.ShowEnd SubPrivate Sub tianjia_Click()leibietianjia.ShowEnd SubPrivate Sub tianjia1_Click()xinxitianjia.ShowEnd SubPrivate Sub tianjia3_Click()tianjiaduzheleibie.ShowEnd SubPrivate Sub tianjia4_Click()tianjiaduzhexinxi.ShowEnd SubPrivate Sub xiugai_Click()leibeiguanli.ShowEnd

16、 SubPrivate Sub xiugai2_Click()xinxixiugai.ShowEnd SubPrivate Sub xiugai3_Click()duzheleibeiguanli.ShowEnd SubPrivate Sub xiugai4_Click()duzhexinxiguanli.ShowEnd Sub（三）数据录入修改模块的创建（1）图书信息管理（添加图书信息）新建一个工程，在工程内添加一个窗体名为”frmaddbookinfo.frm”，运行界面如图所示。 在相应的文本框内添加图书信息后，单击“确定”按钮，弹出提示添加书箱信息成功信息框。代码如下：Dim conn

17、 As ADODB.ConnectionDim rec As ADODB.RecordsetDim txt As TextBoxDim sql As StringPrivate Sub Calendar1_Click()txt.Text = Calendar1.ValueCalendar1.Visible = FalseEnd SubPrivate Sub Command1_Click()Calendar1.Left = Text3.LeftCalendar1.Top = Text3.Top + Text3.HeightSet txt = Text3Calendar1.Visible = Tr

18、ueEnd SubPrivate Sub Command2_Click()Calendar1.Left = Text5.LeftCalendar1.Top = Text5.Top + Text5.HeightSet txt = Text5Calendar1.Visible = TrueEnd SubPrivate Sub Command3_Click()sql = select * from 图书信息表 where 书籍编号 = & Text1.Text & conn.Execute sqlIf rec.EOF Thensql = insert into 图书信息表(书籍编号,书名,类别,出版

19、日期,作者,登记日期,出版社) values ( & Text1.Text & , & Text2.Text & , & Combo1.Text & , & Text3.Text & , & Text4.Text & , & Text5.Text & , & Text6.Text & )conn.Execute sqlMsgBox 执行SQL操作成功！End IfEnd SubPrivate Sub Command4_Click()Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Comb

20、o1.Text = End SubPrivate Sub Command5_Click()EndEnd SubPrivate Sub Form_Load()Set conn = New ADODB.Connectionconn.Open provider=microsoft.jet.oledb.4.0;data source= book.mdbSet rec = New ADODB.Recordsetrec.CursorLocation = adUseClientrec.Open select * from 图书信息表, conn, adOpenKeyset, adLockPessimisti

21、cDo While Not rec.EOFrec.MoveNextLoopEnd Sub（2）图书信息管理(修改、删除图书信息）新建一个工程，在工程内添加一个窗体名为”frmmodifybookinfo.frm”，运行界面如图所示。 激活“打开修改删除功能”进行修改，并保存后，如图所示。代码如下：Dim conn As ADODB.ConnectionDim rec As ADODB.RecordsetPrivate Sub Command1_Click()DataGrid1.AllowUpdate = Not DataGrid1.AllowUpdateDataGrid1.AllowAddNe

22、w = Not DataGrid1.AllowAddNewDataGrid1.AllowArrows = Not DataGrid1.AllowArrowsDataGrid1.AllowDelete = Not DataGrid1.AllowDeleteCommand2.Enabled = Not Command2.EnabledCommand3.Enabled = Not Command3.EnabledIf Command1.Caption = 打开功能 Then Command1.Caption = 关闭功能 Else Command1.Caption = 打开功能End SubPriv

23、ate Sub Command2_Click()rec.UpdateMsgBox 保存成功End SubPrivate Sub Command3_Click()If MsgBox(确定删除?, vbYesNo) = vbYes Thenrec.Deleterec.UpdateDataGrid1.RefreshDataGrid1.Caption = 图书信息表(共查询到 & rec.RecordCount & 条记录)Else Exit SubEnd IfEnd SubPrivate Sub Command4_Click()EndEnd SubPrivate Sub Form_Load()Set conn = New ADODB.Connectionconn.Open provider=microsoft.jet.oledb.4.0;data source= book.mdbSet rec = New ADODB.Recordsetrec.CursorLocation = adUseClientrec.Open select * from 图书信息表, conn, adOpenKeyset, adLock