用VB编写一个简单的图书管理系统复习进程.doc

用VB编写一个简单的图书管理系统Srl2011009（学号）石二辽（姓名）指导教师徐哲鑫【摘要】笔者采用Visual Basic 6.0 为开发工具，设计一款具备友好的图形用户界面、简便操作的图书管理系统。充分利用计算机功能实现读者管理、书籍管理、借还书籍管理等信息的自动化控制，将使图书管理员从繁杂、重复的劳作中解放出来。 【关键词】图书；面向对象；软件工程1概述1.1开发背景用计算机管理图书馆里一切信息是一种计算机应用技术的创新,在计算机还未普及之前图书管理都是由图书管理人员手工记帐的方式来操作的.现在一般的图书馆都是采用计算机作为工具，使用实用的图书管理程序来帮助图书馆管理员进行更有效的图书管理。1.2图书管理系统产生的背景图书管理系统是典型的信息管理系统,其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于台数据库的建立和维护要求建立起数据一致性和完整性强、数据安全性好的库。而对于前端应用程序则要求应用程序具备功能完备、友好的图形用户界面、便捷使用等特点1。 1.3 系统功能要求的分析开发本系统的总体任务是实现图书管理系统的系统化和自动化，帮助图书管理员更好更高效地完成图书管理工作，本系统要完成的功能主要有:书籍管理部分:图书类别管理和图书信息管理。其中，书籍类别管理包括添加书籍类别、修改书籍类别、删除书籍类别等；书籍信息管理包括书籍信息的添加、修改、查询、删除等。读者管理部分:读者类别管理和读者信息管理，读者类别管理包括读者类别添加、修改、删除等；读者信息包括读者添加读者信息、修改读者信息、查询读者信息、删除读者信息等。借阅管理部分:借书信息管理和还书信息管理，借书信息管理、还书信息管理均包括其信息的添加、修改、查询等。系统管理部分:添加管理员,修改密码,退出系统。2开发环境及实现技术介绍2.1开发软件介绍由于我的工作单位是一所中心小学，有大量的书籍，读者有学生、老师，于是本人想设计一款实用的图书管理系统，方便学校图书管理员工作，增强图书借阅力度，良好地管理书籍及其借阅信息。22模块设计2书籍管理部分实现对书籍类别、书籍信息的添加、修改、删除等操作。读者管理部分实现对读者类别、读者信息的添加、修改、删除等操作。借阅管理部分实现对借书信息、还书信息的添加、修改、查询等操作。系统管理部分实现超级用户对普通用户的用户名和密码对注册、修改等操作。23程序预览运行本系统程序，首先出现登录界面（图2），输入正确用户名及密码后进入主窗体（图3），主窗体上的主菜单栏有：书籍管理、读者管理、借阅管理、系统设置及帮助。图2 图32.3.1书籍管理功能“书籍管理”菜单下有两个一级菜单：“书籍信息管理”和“书籍类别管理”。具体操作如下：1“书籍类别管理”下有三个子菜单：“新增”、“修改”、“删除”。单击“新增”菜单，打开“新增书籍类别”窗体（图4）。单击“修改”或“删除”，都会打开“书籍类别信息管理”窗体（图5）。 图4 图52“书籍信息管理”下有四个子菜单：“新增图书”、“修改书籍信息”、“删除书籍信息”、“查询书籍信息”。单击“新增图书”菜单，打开“新增书籍”窗体（图6）。单击“修改”或“删除”，都会打开“书籍信息管理”窗体（图7）。单击“查询书籍信息”菜单，打开“查询图书”窗体（图8）图6图7图82.3.2读者管理功能“读者管理”菜单下有两个一级菜单：“读者类别管理”和“读者信息管理”。1“读者类别管理”下有3个子菜单：“添加读者类别”、“修改读者类别”、“删除读者类别”。单击“添加读者类别”菜单，打开“添加读者类别”窗体（图9）；单击“修改读者类别”和“删除读者类别”菜单，都会打开“读者类别管理”窗体（图10）。 图9 图102“读者信息管理”菜单下有4个子菜单：“添加读者信息”、“修改读者信息”、“删除读者信息”和“查询读者信息”。单击“添加读者信息”菜单，打开“添加读者信息”窗体（图11），单击“修改读者信息”和“删除读者信息”菜单，都会打开“读者信息管理”窗体（图12），单击“查询读者信息”菜单，打开“查询读者信息”窗体（图13）。 图11 图12 图132.3.3图书借阅管理功能“借阅管理”菜单下有2个一级菜单：“借书管理”和“还书管理”。1“借书管理”菜单下有2个子菜单：“添加借书信息”和“查询借书信息”。单击“添加借书信息”先打开的是“查询图书”窗体（图8），找到需要借阅的图书后，单击“借这本书按钮”，打开“借书”窗体（图14）；单击“查询借书信息”菜单，打开“查询借书信息”窗体（图15）。 图14 图15 2.单击“还书管理”，打开“还书”窗体（图16）。 图162.3.4系统管理功能“系统管理”菜单下有3个子菜单，分别是“添加管理员”、“修改密钥”和“退出系统”。单击“添加管理员”子菜单，打开“添加管理员”窗体（图17），单击“修改密钥”子菜单，打开“修改密码”窗体（图18），单击“退出系统”，备份数据并退出本系统。 图17 图182.3.5帮助菜单单击“帮助”菜单，打开系统信息窗体（图1），点击系统信息窗体任何一处，关闭该信息窗体，返回主窗体。图12.4数据库设计数据库名为sj.mdb,在库中设计六张表，它们分别为dzlb(读者类别表)、dzxx(读者信息表)、jyxx(借阅信息表)、sjxx(书籍信息表)、sjlb(书籍类别表)、sys(系统管理表)。2.4.1读者类别表，表名为dzlb,字段名称有读者类别名称、读者借书数量、借书期限及有限期限，设置“读者类别名称”为主键，是必填字段，不允许空值。2.4.2读者信息表: 设置“读者编号”为主键，“读者编号”、“读者姓名”为必填字段，不允许空值。2.4.3 借阅信息表:2.4.4书籍信息表: 设置“图书编号”为主键，“图书编号”、“书籍名称”为必填字段，不允许空值。2.4.5图书类别表:2.4.6系统管理表:2.4.7数据库连接方式选择Visual basic6.0连接数据库的主要方式有以下几种方式：一是用data控件进行数据库链接,二是利用adodc（ADO Data Control)进行数据库链接 。三是:利用DataEnvironment进行数据库链接，四是利用ADO(ActiveX Data Objects)进行编程。利用DAO对数据库进行操纵3:在visual basic 中提供了两种与jet数据引擎接口的方法:data控件与数据访问对象(DAO)DAO是database object的英文缩写,要访问数据库一方面数据库要提供访问接口,另一方面要在编程环境中有对数据库的支持. DAO模型是设计关系数据库系统结构的对象类的集合.他们提供了管理关系型数据库系统所需要的全部操作属性和方法,这其中包括建立数据库,定义表,字段和建立表间关系,定位和查询数据库等.关系数据库介绍4: 关系数据库是目前各类数据库中最重要、最流行的数据库，他应用数学方法来处理数据库数据，是目前使用最广泛的数据库系统。20世纪70年代以后开发的数据库管理系统产品几乎都是基于关系的。在数据库发展的历史上，最重要的成就就是关系模型。 关系数据库系统与非关系数据库系统的区别是：关系系统只有“表“这一种数据结构；而非关系数据库系统还有其他数据结构，对这些数据结构有其他的操作。结构化查询语言SQL（Structured Query Language）是一种介于关系代数与关系演算之间的语言，其功能包括查询、操纵、定义和控制四个方面，是一个通用的、功能极强的关系数据库语言。目前已成为关系数据库的标准语言。MicrosoftAccess介绍:使用MicrosoftAccess，可以在单一的数据库文件中管理所有的信息。在这个文件中，用户可以将自己的数据分别保存在各自独立的存储空间中，这些空间称作表；可以使用联机窗体来查看、添加及更新表中的数据；使用查询来查找并检索所要的数据；也可以使用报表以特定的版面布置来分析及打印数据。 如果要保存数据，请为每一种类型的信息创建一个表。如果要从查询、窗体或报表中的多个表中将数据合并在一起，就要定义各个表之间的关系。 如果要搜索并检索符合指定条件的数据，包括来自多个表中的数据，就要创建查询。查询的同时也可以更新或删除多条记录，并对数据执行内嵌或自定义的计算。 如果要简单地直接在某个表中查看、输入及更改数据，请创建一个窗体。在打开一个窗体时，MicrosoftAccess将从一个或多个表中检索数据，并使用用户在“窗体向导”选择的版面布局或所创建的版面布局，将窗体显示在屏幕上。 如果要分析数据或将数据以特定的方式打印出来，请创建一个报表。例如，可以打印一份将数据分组并计算数据总和的报表，也可以打印另一份带有各种数据格式的打印邮件标签的报表。25系统代码52.5.1主界面代码:2.5.1.1添加管理员菜单Private Sub addadmin_Click()addadminf.ShowEnd Sub2.5.1.2添加读者类别菜单Private Sub adddzlb_Click()Adddzlbf.ShowEnd Sub2.5.1.3添加读者信息菜单Private Sub adddzxxf_Click()Adddzxxf.ShowEnd Sub2.5.1.4添加还书信息菜单Private Sub addhs_Click()hsf.ShowEnd Sub2.5.1.5添加借书信息菜单Private Sub addjs_Click()Jsf.ShowEnd Sub2.5.1.6添加图书类别菜单Private Sub addlb_Click()addtslb.ShowEnd Sub2.5.1.7查询读者信息菜单Private Sub cxdzxx_Click()cxdzxxf.ShowEnd Sub2.5.1.8查询借书信息菜单Private Sub cxjs_Click()cxjsxxf.ShowEnd Sub2.5.1.9查询书籍信息菜单Private Sub cxsj_Click()cxsjf.ShowEnd Sub2.5.1.10删除读者类别菜单Private Sub Deldzlb_Click()dzlbxxf.ShowEnd Sub2.5.1.11删除读者信息菜单Private Sub Deldzxx_Click()dzxxglf.ShowEnd Sub2.5.1.12删除书籍类别菜单Private Sub dellb_Click()sjlbxxf.ShowEnd Sub2.5.1.13帮助菜单Private Sub hlep_Click()frmSplash.ShowEnd Sub2.5.1.14退出系统菜单Private Sub Unload_Click()endEnd Sub2.5.1.15修改读者类别菜单Private Sub Xgdzlb_Click()dzlbxxf.ShowEnd Sub2.5.1.16修改读者信息菜单Private Sub xgdzxx_Click()dzxxglf.ShowEnd Sub2.5.1.17修改书籍类别菜单Private Sub xglb_Click()sjlbxxf.ShowEnd Sub2.5.1.18修改用户密码菜单Private Sub xgmm_Click()xgmmf.ShowEnd Sub2.5.1.19修改书籍信息菜单Private Sub xgts_Click()sjxxf.ShowEnd Sub2.5.1.20新增图书信息菜单Private Sub xzts_Click()addtsf.ShowEnd Sub2.5.2添加图书类别添加图书类别代码:Private Sub Command1_Click()Dim Sq1 As StringDim rs_add As New ADODB.RecordsetSql = select * from sjlb where 类别名称= & Text1.Text & rs_add.Open Sql, Sjk, adOpenKeyset, adLockPessimisticIf Trim(Text1.Text) = Then MsgBox 图书类别不能为空, vbOKOnly + vbExclamation, 注意 Text1.SetFocus Exit Sub End If If Trim(Text2.Text) = Then MsgBox 图书编号不能为空, vbOKOnly + vbExclamation, 注意 Text2.SetFocus Exit SubEnd If If rs_add.EOF = True Then rs_add.AddNew rs_add.Fields(0) = Trim(Text2.Text) rs_add.Fields(1) = Trim(Text1.Text) rs_add.Update MsgBox 成功地添加 & Text1.Text & 这一图书类别, vbOKOnly, 恭喜 rs_add.Close Else MsgBox & Text1.Text & 这一图书类别已存在, vbOKOnly + vbExclamation, 图书类别不能重复 rs_add.Close End If Text1.SetFocus Text1.Text = Text2.Text = End SubPrivate Sub Command2_Click()Unload MeEnd Sub2.5.3修改图书类别:修改图书类别代码:Option ExplicitDim Myjl As New ADODB.RecordsetPrivate Sub Form_Load()Dim Sq1 As StringOn Error GoTo loaderrorSq1 = select * from sjlb Myjl.CursorLocation = adUseClientMyjl.Open Sq1, Sjk, adOpenKeyset, adLockPessimisticCmdcancel.Enabled = FalseCmdupdate.Enabled = FalseDg.AllowAddNew = FalseDg.AllowDelete = FalseDg.AllowUpdate = FalseSet Dg.DataSource = MyjlExit Subloaderror:MsgBox Err.DescriptionEnd SubPrivate Sub Cmdadd_Click()Dg.AllowAddNew = TrueDg.AllowUpdate = TrueCmdadd.Enabled = FalseCmdupdate.Enabled = TrueEnd SubPrivate Sub Cmdadd_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)Cmdadd.Caption = 点击此处也可以添加Cmdadd.Width = 3000End SubPrivate Sub Cmdcancel_Click()Myjl.CancelUpdateDg.RefreshDg.AllowAddNew = FalseDg.AllowUpdate = FalseCmdxg.Enabled = TrueCmddel.Enabled = TrueCmdcancel.Enabled = FalseCmdupdate.Enabled = FalseEnd SubPrivate Sub Cmddel_Click()Dim Srl As StringOn Error GoTo delerrorSrl = MsgBox(确定要删除吗？, vbYesNo)If Srl = vbYes ThenDg.AllowDelete = TrueMyjl.DeleteMyjl.UpdateDg.RefreshElseExit SubEnd Ifdelerror:MsgBox Err.DescriptionEnd SubPrivate Sub Cmdupdate_Click()If Not IsNull(Dg.Bookmark) ThenMyjl.UpdateCmddel.Enabled = TrueCmdxg.Enabled = TrueCmdcancel.Enabled = FalseCmdupdate.Enabled = FalseDg.AllowUpdate = FalseMsgBox 修改成功, vbOKOnly + vbExclamation, 恭喜成功End IfCmdadd.Width = 1550Cmdadd.Caption = 高级Cmdadd.Enabled = TrueEnd SubPrivate Sub Cmdxg_Click()Dim Srl As StringOn Error GoTo xgCmddel.Enabled = FalseCmdxg.Enabled = FalseCmdupdate.Enabled = TrueCmdcancel.Enabled = TrueDg.AllowUpdate = Truexg:If Err.Number 0 ThenMsgBox Err.DescriptionEnd IfEnd SubPrivate Sub Form_Unload(Cancel As Integer)Set Dg.DataSource = NothingMyjl.CloseEnd Sub2.5.4添加读者类别界面:Private Sub Command1_Click()Dim Srl As StringDim Mybook As New ADODB.RecordsetIf Trim(Text1.Text) = ThenMsgBox 读者类别名称不能为空, vbOKOnly + vbExclamation, 注意Text1.SetFocusExit SubEnd IfIf Trim(Text2.Text) = ThenMsgBox 借书数量不能为空, vbOKOnly + vbExclamation, 注意Text2.SetFocusExit SubEnd IfIf Trim(Text3.Text) = ThenMsgBox 借书期限不能为空, vbOKOnly + vbExclamation, 注意Text3.SetFocusExit SubEnd IfIf Trim(Text4.Text) = ThenMsgBox 有效期限不能为空, vbOKOnly + vbExclamation, 注意Text4.SetFocusExit SubEnd IfOn Error GoTo CwSrl = select * from dzlb where 读者类别名称= & Text1.Text & Mybook.Open Srl, Sjk, adOpenKeyset, adLockPessimisticIf Mybook.EOF ThenMybook.AddNewMybook.Fields(0) = Trim(Text1.Text)Mybook.Fields(1) = Trim(Text2.Text)Mybook.Fields(2) = Trim(Text3.Text)Mybook.Fields(3) = Trim(Text4.Text)Mybook.UpdateMsgBox 您已经成功添加 & Text1.Text & 这一读者类别 , vbOKOnly + vbExclamation, 添加成功!Mybook.CloseElseMsgBox 读者类别名称为 & Text1.Text & 重复, vbOKOnly + vbExclamation, 注意重复Text1.SetFocusText1.Text = Mybook.CloseExit SubEnd IfCw:MsgBox Err.DescriptionEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Form_Load()Dim Sq1 As String 定义一个字符串变量Dim Myjl As New ADODB.Recordset 定义一个Recordset对象变量End Sub2.5.5查询读者信息代码:Private Sub Form_Load()Dim Sq1 As String 定义一个字符串变量Dim Myjl As New ADODB.Recordset 定义一个Recordset对象变量Sq1 = select * from dzlbMyjl.Open Sq1, Sjk, adOpenKeyset, adLockPessimisticDo While Not Myjl.EOFCombo1.AddItem Myjl.Fields(0)Myjl.MoveNextLoopCombo1.ListIndex = 0Myjl.CloseEnd SubPrivate Sub Command1_Click()Dim Srl As String 定义一个字符串变量Dim Mybook As New ADODB.Recordset 定义一个Recordset对象变量If Check1.Value = vbChecked ThenSrl = 读者编号= & Trim(Text1.Text & ) & End IfIf Check2.Value = vbChecked Then If Trim(Srl) = Then Srl = 读者姓名= & Trim(Text2.Text & ) & Else Srl = Srl & and 读者编号= & Trim(Text2.Text & ) & End IfEnd IfIf Check3.Value = vbChecked Then If Trim(Srl) = Then Srl = 读者类别= & Trim(Combo1.Text & ) & Else Srl = Srl & and 读者类别= & Trim(Combo1.Text & ) & End IfEnd IfIf Srl = ThenMsgBox 请选择一种查询依据, vbOKOnly + vbExclamation, 查询方式Exit SubEnd IfSrl = select * from dzxx where & SrlMybook.CursorLocation = adUseClientMybook.Open Srl, Sjk, adOpenKeyset, adLockPessimisticDg.AllowAddNew = FalseDg.AllowDelete = FalseDg.AllowUpdate = FalseSet Dg.DataSource = MybookEnd SubPrivate Sub Command2_Click()Unload MeEnd Sub2.5.6图书借阅管理模块代码：2.5.6.1查询书籍窗体代码Private Sub Form_Load()窗体加载时就书籍类别加载到列表框中。Dim Sq1 As String 定义一个字符串变量Dim Myjl As New ADODB.Recordset 定义一个Recordset对象变量Sq1 = select * from sjlbMyjl.Open Sq1, Sjk, adOpenKeyset, adLockPessimisticDo While Not Myjl.EOFCombo1.AddItem Myjl.Fields(1)Myjl.MoveNextLoopCombo1.ListIndex = 0Myjl.CloseEnd SubPrivate Sub Command1_Click()查询命令按钮代码Dim Srl As String 定义一个字符串变量Dim Mybook As New ADODB.Recordset 定义一个Recordset对象变量If Check1.Value = vbChecked ThenSrl = 书籍名称= & Trim(Text1.Text & ) & End IfIf Check2.Value = vbChecked Then If Trim(Srl) = Then Srl = 图书编号= & Trim(Text2.Text & ) & Else Srl = Srl & and 图书编号= & Trim(Text2.Text & ) & End IfEnd IfIf Check3.Value = vbChecked Then If Trim(Srl) = Then Srl = 作者= & Trim(Text3.Text & ) & Else Srl = Srl & and 作者= & Trim(Text3.Text & ) & End IfEnd IfIf Check4.Value = vbChecked Then If Trim(Srl) = Then Srl = 出版社= & Trim(Text4.Text & ) & Else Srl = Srl & and 出版社= & Trim(Text4.Text & ) & End IfEnd IfIf Check5.Value = vbChecked Then If Trim(Srl) = Then Srl = 类别= & Trim(Combo1.Text & ) & Else Srl = Srl & and 类别= & Trim(Combo1.Text & ) & End IfEnd IfIf Srl = ThenMsgBox 请选择一种查询依据, vbOKOnly + vbExclamation, 查询方式Exit SubEnd IfSrl = select * from sjxx where & SrlMybook.CursorLocation = adUseClientMybook.Open Srl, Sjk, adOpenKeyset, adLockPessimisticDg.AllowAddNew = FalseDg.AllowDelete = FalseDg.AllowUpdate = FalseSet Dg.DataSource = MybookEnd Sub为了获取表格某一单元格值，为DataGrid控件DG添加如下代码：Private Sub Dg_RowColChange(LastRow As Variant, ByVal LastCol As Integer)On Error GoTo CwPand = Dg.Columns(7).CellValue(Dg.Bookmark)Bookunm = Dg.Columns(0).CellValue(Dg.Bookmark) Pand 和Bookunm是公共模块中定义的一个公共变量，Bookunm用来记录表格中某一书籍的图书编号，便于在借书窗体中再次调用。Exit SubCw:MsgBox Err.DescriptionEnd SubPrivate Sub Command2_Click()Unload MeEnd SubPrivate Sub Command3_Click()这是“借这本书”命令按钮，如果条件满足，就进入借书窗体了。If Trim(Bookunm) = Then MsgBox 请选择要借阅的书籍, vbOKOnly + vbExclamation, 选择书籍Exit SubEnd IfIf Trim(Pand) = 是 Then MsgBox 此书已经被借出，请选择其它书籍, vbOKOnly + vbExclamation, 选择书籍Exit SubEnd IfUnload MeJsf.ShowEnd Sub2.5.6.2借书窗体代码Option ExplicitDim Lb As String 该读者类别Dim Qx As String 该读者可借书的期限Dim Yjsl As String 该读者已借书的数量Dim Maxm As String 该读者借书量的限制由在查询书籍的窗体满足了可以借书的条件进入此借书窗体，根据此书的图书编号，在本窗体加载时就加载了书籍的信息和读者列表。Private Sub Form_Load()Dim Mybook As New ADODB.RecordsetDim Mydz As New ADODB.RecordsetDim Srl As StringDim Sql As StringSrl = select * from sjxx where 图书编号= & Bookunm & Mybook.Open Srl, Sjk, adOpenKeyset, adLockPessimisticLabel8.Caption = Mybook.Fields(0)Label9.Caption = Mybook.Fields(1)Label10.Caption = Mybook.Fields(2)Label11.Caption = Mybook.Fields(3)Label12.Caption = Mybook.Fields(4)Label13.Caption = Mybook.Fields(5)Label14.Caption = Mybook.Fields(6)Sql = select * from dzxx Mydz.Open Sql, Sjk, adOpenKeyset, adLockPessimisticIf Not Mydz.EOF Then Do While Not Mydz.EOF Combo1.AddItem Mydz.Fields(0) Combo2.AddItem Mydz.Fields(1) Mydz.MoveNext Loop Combo1.ListIndex = 0 Else MsgBox 请先登记读者, vbOKOnly + vbExclamation, 注意 Exit Sub End If Mybook.Close Mydz.Close End Sub由于读者编号与读者姓名是一一对应的，必须对用来加载这两个信息的两个列表框编写如下代码：Private Sub Combo1_Click()Combo2.ListIndex = Combo1.ListIndexEnd SubPrivate Sub Combo2_Click()Combo1.ListIndex = Combo2.ListIndexEnd SubPrivate Sub Command1_Click()这是借书的“确定”按钮Dim Myjl As New ADODB.RecordsetDim Sql As StringSql = select *