图书馆管理系统设计_毕业论文(编辑修改稿)

图书馆管理系统设计_毕业论文(编辑修改稿)内容摘要：

信息，其结构如表 所示。 表 dzjstb 表的结构 字段名称 数据类型 字段大小 读者编号 文本 50 读者姓名 文本 10 条码号 文本 30 书籍名称 文本 50 12 书籍 价格 货币 规定天数 出版社 文本 30 作者 文本 20 借书数量 数字（小数） 类别代码 文本 5 借书日期 日期 /时间 应还日期 日期 /时间 借 文本 4 （ 4） hsstb（读者还书表） 读者还书表存储了读者的还书信息，其结构如表 所示。 表 hsstb 表的结构 字段名称 数据类型 字段大小 条码号 文本 30 读者编号 文本 50 书籍名称 文本 50 书籍价格 货币 出版社 文本 30 作者 文本 20 规定天数 数字（小 数） 借出日期 日期 /时间 还书日期 日期 /时间 实际天数 数字（小数） 实还日期 日期 /时间 超出天数 数字（小数） 13 第 五 章 系统实现 公共模块设计 通过使用模块可以减少程序的代码量。 在本系统中，建数据库连接的通用代码就公共的全局变量等都集中存放在数据模块中，总而节省代码量，提高编程效率。 模块中定义的公共变量如下： Public temp, str, BS As String ‘ 定义字符串变量 Public adoCon As New ‘ 定义数据连接变量 Public adoRs As New ‘ 定义数据集对象 为了优化 ADO 数据库的连接，可以在公共模块中简历数据库连接共享函数以及共享数据库连接字符串。 这样，在以后的编程中，如果使用对象操作数据库，就可以直接调用数据库练级 n 函数。 如果使用 ADO 控件访问数据库，可以直接将数据库共享连接字符串变量的值赋给 Ado 控件的 ConnectionString 属性，从而避免使用 ADO 控件频繁地简历数据库连接，以致失去其优越性。 模 块中 连接数据库的程序代码如下： Function n() As Set n = New Provider=。 Data Source= amp。 amp。 \。 Persist Security Info=False End Function 主窗体设计 主窗体用于调用程序的所有功能。 用户输入正确的用户名和密 码就可以进入到图书管理系统的主窗体中，该主窗体主要由菜单栏、带图片的工具栏、左侧的树状导航菜单、右侧的功能列表以及底部的状态栏组成。 用户单击左侧的树状导航菜单中的节点，可以在右侧的窗格中显示出该主菜单下的子菜单。 例如，选择“借阅管理”选项，将在右侧窗格中显示该菜单下的所有子菜单，如图 所示。 14 图 主窗体运行效果 读者信息管理模块设计 读者信息管理模块的主要功能是对图书馆的读者信息进行管理，可以对该信息进行增、删、改、查等操作。 在主菜单中选择“信息设置” /“读者信息设置”命令，即可进 入到读者信息管理窗体中。 在该窗体中选择“添加读者”选项卡，单击 ” 增加 ” 按钮，开始添加读者信息。 信息添加完成后，单机“保存”按钮，即可将输入的读者信息保存到数据库中，如图 所示。 15 图 读者信息管理窗体 读书借书管 理模块设计 读者借书管理系统模块的主要功能是将读者的借书信息保存到数据库中，并可以对读者的借书信息进行删除操作。 用户在主窗体中选择“借阅管理” /“读者借书管理”命令，即可进入到读者借书管理模块中。 在该窗体中，用户输入“读者编号”，按“ Enter”键，即可显示读者的姓名，；在“条码号”文本框中输入读者要借书的条码，按“ Enter” h 键，即可显示所借图书的信息；输入借书数量，单击“借出当前图书”按钮，即可将该图书借出，如图 所示。 16 图 读者借书管理模块 图书丢书管理模块概述 图书丢失管理模块的主要功能是记录图书的丢失信息。 用户在主窗体中选择“借阅管理”/“图书丢失管理”命令，即可进入到图书丢失管理模块中。 在该模块中用户输入读者的编号和丢失图书的条码号，按 Enter 键即可显示该读者借阅该书的信息，单击“丢失”按钮显示“丢 失”单击“确定”按钮，将丢失信息写入数据库。 在该模块中还可以对丢失图书的信息进行查询，输入查询条件，例如查询读者编号是100003 的图书丢失信息，单击“查询”按钮，即可将编号是 100003 的读者的图书丢失信息显示在表格中，如图 所示。 17 图 图书丢失管理模块 图书验收报表模块设计 图书验收报表模块主要用于查询指定订购时间段的图书验收信息，并统计订购金额和订购数量信息。 用户在主窗体中选择“报表打印” /“图书验收报表”命令，即可进入到图书验收报表模块中。 输入订购的时间段，如“ 20201212至 20200111”，单击“查询”按钮，即可显示出该订购时间段的图书验收信息，如图 所示。 18 图 图书验收报表窗体 单击“打印”按钮，即可将查询出来的图书验收信息打印出来，如图 图 图书验收报表打印预览 此图书管理系统是经过认真学习、听取老师意见，充分考虑图书管理的各种需求后开发的，它是具有重要实际意义的一套系统，并且该系统具有很广阔的应用前景。 但由于本人第一次开发系统软件，掌握的知识和经验不是很多，使得有许多系统功能没能实现，希望日后还有机会开发类似的系统软件。 本文详细介绍了图书管理系统中对用户、读者管理、图书库管理、借阅管理等的管理。 这套系统可以基本实现图书管理的无纸化办公，提高了工作的效率和精确性，给图书管理提供了高效、便捷的应用平台。 在 系统开发过程中，在潘老师的指导下，从头做起，不断学习，积累了宝贵的开发经验，学到了很多书本上没有的知识。 通过这次毕业设计，使我受益匪浅，在校学习的各门功课的知识得到了综合应用，加深了对所学知识的理解，同时也培养了刻苦钻研、不怕困难的精神，这些将成为我在以后学习工作中的一笔最宝贵的财富。 通过这次毕业设计， 19 使我对目前流行的软件开发方法和手段，有了更进一步的认识，丰富了软件开发的经验，提高了编程的水平， 毕业设计已进入尾声，在毕业设计的这几个月中，我增加了不少的工作经验，增强了对软件设计的信心，同时，我也感 觉到自己在计算机专业知识方面还有很多欠缺。 今后，我一定会在工作和学习中不断的完善和充实自己，为社会尽自己的一份力量。 20 致谢 在此，我要谢谢在这次毕业设计过程中指导老师对我的悉心指导和同学们对我的热心帮助。 同时，值此毕业设计结束之际，我还要感谢数学与计算科学学院的各位老师，感谢他们 3 年来对我悉心的栽培。 还要感谢各位同学对我的照料、帮助。 最后要感谢我的父母，感谢他们在精神、经济、等方面的支持，感谢他们在我想放弃的时候对我的鼓励。 谢谢。 参考文献 [1] 张朝昆，施丽娜 Visual Basic 数据库开发 基础与应用 ， 人民邮电出版社， 20209第一版 . [2] 尼春雨，舒雄 Visual Basic 基础与案例开发详解 [M]， 清华大学出版社 20207 第一版 . [3] 李长林，张丽华，王红． Visual Basic 数据库应用系统开发从基础到实践 [M]．北京：电子工业出版社， 2020： 276280． [4] Visual Basic 程序设计教程 [M] ，电子工业出版社 20201 第二次印刷 [5] [美 ]Jeffrey P． McManus 著赵学锁，龚波，李志，曹天伟等． Visual Basic 数据库 存访问技术 [M]．北京：清华大学出版社， 2020： 156170． [6] 李英，如何理解和掌握 Access[J]．新西部下半月 ,2020(12):6668． [7] 谭浩强 ， 史济民 ， 汤观全 ． Access 应用系统开发教程 [M]．北京：清华大学出版社， 2020： 69． [8] 萨师煊，王珊，数据库系统概论（第三版） [M]．北京：高等教育出版社，2020： 1011． [9] [美 ]Charles Petzold 著，章立民译 ． Visual Basic 语言描述 [M]．北京：人民邮电 出版社， 2020： 221224． 21 [10] 龚沛曾，陆慰民，杨志强． Visual Basic 程序设计教程 [M]．北京：高等教育出版社， 2020： 57． [11] 张连银，基于 VB 的数据库应用开发研究 [J]．电脑知识与技术 ,2020(14)：6974． 22 附录（程序中的主要代码） 1. 鼠标移动的效果 Private Sub Lbl_Pic_MouseMove(Index As Integer, Button As Integer, Shift As Integer, x As Single, y As Single) Lbl_info(Index).ForeColor = RGB(255, 0, 0) End Sub Private Sub Form_MouseMove(Button As Integer, Shift As Integer, x As Single, y As Single) Dim i As Integer For i = 0 To 1 Lbl_info(i).ForeColor = RGB(0, 0, 0) Next i End Sub 2. 添加工具栏命令 Private Sub Lbl_Pic_Click(Index As Integer) Select Case Index Case 0: 1 Case 1: 1 Case 2: 1 Case 3: 1 Case 4: 1 Case 5: 1 Case 6: End End Select End Sub 3. 向 TreeView 中加载数据 Public Sub Tree_change() Dim Key, Text, BH As String Dim Nod As Node = select * from Table_zcd If 0 Then Do While = False Key = Trim((主菜单名称 )) Text = (主菜单名称 ) Set Node1 = (, tvwChild, Key, Text, 1) 39。 设置 TreeView1控件的节点 文本 和 图标（另外： 1 为 ImageList 控件图标的索引值） = select * from T。