毕业设计（论文）-某职业中学图书馆图书管理系统的开发.doc

某职业中学图书馆图书管理系统的开发某职业中学图书馆图书管理系统的开发 摘摘 要要 随着计算机的发展，越来越多的图书馆采用计算机图书管理系统来管理。 一直以来，图书馆的工作都是手工操作的，其流程繁琐复杂,且效率极为低下。 要改变这一现状就需要一个功能完善的图书管理系统来实现，这样不但可以更 好地管理，在很大程度上，还节省了人力和物力资源。本系统是利用 Visual Basic.NET 开发的。系统主要实现了用户登陆、读者管理、图书管理、图书的 征订、图书的借阅、图书归还、逾期清单、图书罚款和退出系统等功能，后台 数据库由 SQL Server 2000 创建。本系统完全满足借阅者和图书管理员对图书 管理的一般需求。 关键字关键字：管理系统；图书馆；Visual Basic.NET 591 论文网 www.591LW.com Design of Book Management System of Some Vocational School Abstract With the development of the computer, more and more libraries use the computerized library management system to manage it. Always, libraries finish the work by manual, and the process is very tedious and the efficiency is very low. To change this condition, we require a library management system with perfect functions to achieve in a great measure. It will be better management, and also save human and material resources. The system is developed by Visual Basic.NET. It realizes many functions which include user login, reader management, library management, library books and journals subscriptions, books borrow, and the books renewal late list of fine books and quit the system and so on. The background database use SQL Server 2000. The system can satisfy the borrowers and the managers normal demands for the management of the books. Key Words: management system; library; Visual Basic.NET 591 论文网 www.591LW.com 目目 录录 论文总页数：23 页 1引言.1 1.1项目背景.1 1.2项目原因阐述.1 1.3项目任务目标.1 2图书馆信息化管理.1 2.1读者管理.1 2.2文献流通管理.2 3图书馆管理系统需求分析.2 3.1基础信息维护.2 3.2读者管理.2 3.3图书管理.3 3.4图书流通管理.4 3.5统计分析管理.4 4图书馆管理系统数据库分析.4 5数据库设计.5 6系统详细设计.8 6.1系统包括的功能.8 6.2登陆窗体的设计.8 6.3主窗体的设计.9 6.4创建数据访问模块.10 6.5创建数据操作窗体的父类窗体.11 6.6读者类别设置模块.12 6.7读者档案管理功能模块.13 6.8图书类别设置的功能模块.13 6.9图书档案管理的功能模块.14 6.10图书征订的功能模块.15 6.11图书借阅的功能模块.16 6.12图书归还功能模块.18 6.13逾期清单功能模块.19 6.14图书罚款功能模块.20 结 论.20 参考文献.20 591 论文网 www.591LW.com 致 谢.22 声 明.23 第 1 页 共 23 页 1 1引言引言 随着现代科学技术的进步，人类社会正逐渐拥有丰富的文献信息资源，是 社会信息系统的重要组成部分，在信息社会中的作用愈来愈重要。我国图书馆 计算机等信息技术的应用起步于 20 世纪 70 年代末期，随着改革开放的步伐得 以迅速发展，特别是 90 年代后，我国图书馆信息网络建设取得了较大发展，图 书馆信息化建设迈上了一个新台阶。 1.11.1项目背景项目背景 几年前，大多数学校的图书馆都是封闭式管理，通过卡片登记借阅信息， 只能实现有限的流通，有的甚至不能正常对学生开放，使图书馆不能发挥应有 的作用；有的即使是实现了正常流通的，也不能提供领导管理上需要的各种信 息，如本系统的各种资料分布及借阅（流通）情况。 1.21.2项目原因阐述项目原因阐述 本系统的要求就是藏书全部开放，开架借阅，这种借阅方式是适合我国国 情、发挥图书馆应有的最佳方式，也是素质教育的最好体现。它充分发挥了图 书馆的供效，最大限度地为师生服务，这也是图书馆自动化管理的最终目标。 实现这一目标，必须有现代化的管理手段和管理体制。各教育主管部门也都逐 步提出学校要采用图书管理系统，从而实现人工管理做不到的一些功能并发挥 图书馆的最大效益。而随着越来越多的学校采用了现代化的管理软件进行管理， 进一步提升了学校管理的现代化水平，从而在竞争中处于有利位置，也对其他 学校起到示范和促进作用。 1.31.3项目任务目标项目任务目标 职业中学图书管理系统总的实现目标是：建立以馆藏目录为基础的书 目数据库。实现馆内采购、编目、流通、文献检索等信息化管理。 2 2图书馆信息化管理图书馆信息化管理 图书馆的信息化从最初的对图书馆的业务管理实行信息化发展到对图书馆 的各个业务流程进行系统和网络化管理，并建立大规模以个体文献目录联机查 询为主的资料共享系统。进入 21 世纪，充分利用计算机网络和信息技术，逐步 实现了不同载体的实体文献的信息化管理和多方位的联机查询。图书馆的计算 机信息化管理，就是将传统图书馆业务的手工操作转变成由计算机管理，文献 的采编、典藏、流通、检索及常规业务管理等工作，利用计算机技术进行高效、 准确的信息化管理。 2.12.1 读者管理读者管理 一般把图书馆读者分类管理，例如分为老师、学生、一般读者等。读者证 号的组成有代码拼音字母和阿拉伯数字组成。不同类型的读者具有的借阅权限 第 2 页 共 23 页 不一样的，例如老师一次可以借 10 本书，学生则是 5 本,一般读者则是 3 本等。 2.22.2 文献流通管理文献流通管理 图书馆计算机自动化管理给图书馆带来的最明显的效益就是分编录入和流 通速度的大大提高。快捷、方便、记录准确的流通管理，有力地促进了图书馆 流通率和为读者服务水平的提高。图书流通管理主要有图书订购、入库、借还、 注销等环节，其中有涉及图书的当前馆藏数量、位置、超期罚款管理等。 3 3图书馆管理系统需求分析图书馆管理系统需求分析 本图书管理系统包括系统管理（读者管理和图书管理） 、编目、图书流通、 查询等功能。通用图书馆管理系统所必备的功能，如图 1 所示，其中每个功能 都由若干相关联的子功能模块组成。 图 1 图书馆管理系统的基本功能模块 3.13.1 基础信息维护基础信息维护 “基础信息维护”功能模块用于对图书馆信息、书籍信息等项目进行初始 化设置，这些设置一般不轻易改动，其中包括的子功能模块如图 2 所示。 图 2 “基础信息维护”模块 “图书馆信息”用于设置本图书馆的基础信息，包括图书馆名称、馆长、 负责人、电话、说明等。 “系统参数设置”用于设置系统运行所需的参数，包括证件有效期、图书 超期罚款金额等。 “书架设置”用于设置书架的基础信息，内容包括书架编号、书架名称等。 “管理员设置”用于设置管理员的基本信息如姓名、编号、性别、密码等。 系统登陆 读者管理 图书管理 图书流通管理 统计分析管理 图书馆管理系统 基础信息维护 图书馆信息 系统参数设置 书架设置 管理员设置 第 3 页 共 23 页 3.23.2读者管理读者管理 “读者管理”功能模块用于管理读者相关的信息，其中包括的子功能模块 如图 3 所示。 图 3 “读者管理”功能模块 “读者管理设置”用于设置读者的类型及相关的信息，内容包括类型、可 借图书册数、续借次数、限制图书等。 “读者档案管理”用于设置读者相关的信息，内容包括编号、条形码、姓 名、性别、类型、出生日期、有效证件、证件号码、联系方式、登记日期、有 效日期、操作员备注、图书借阅次数、是否挂失等。 3.33.3图书管理图书管理 “图书管理”功能模块用于管理图书相关的信息，其中包括的子模块如图 4 所示。 图 4 “图书管理”功能模块 “图书类型设置”用于设置图书的类型及相关的信息，内容包括名称、可 借天数等。 “出版社设置”用于设置图书所属出版社的基础信息，内容包括出版社编 号、ISBN（国际标准书号） 、出版社名称等。 “图书档案管理”用于设置图书相关的信息，内容包括编号、条形码、书 名、类型、作者、译者、ISBN、出版社、价格、页码、书架名称、现存总量、 入库时间、操作员、简介、借出次数、是否注销等。 “图书注销”用于注销、报废图书，将图书档案的“是否注销”字段设置 为 1，被注销的图书不可以再借出。 “图书征订”用于订购新书，内容包括征订编号、书名、类型、ISBN、出 读者管理 读者类型设置 读者档案管理 图书管理 图书类型设置 出版设置 图书档案管理 图书注销 图书征购 图书验收 第 4 页 共 23 页 版社、作者、译者、订购者、订购者联系方式、订购数量、订购单价、订购日 期、是否验收、实际数量、实际金额、验收日期、操作员等。 “图书验收”用于征订的图书到货后验收，增加图书的库存。 3.43.4图书流通管理图书流通管理 “图书流通管理”功能模块用于管理图书流通环节相关的操作，其中包括 如图 5 所示的子功能模块。 图 5 “图书流通管理”功能模块 “图书借阅”用于登记读者借阅图书的记录并减少图书在库的库存，登记 内容包括借阅编号、图书编号、读者编号、押金、借阅时间、应还时间、操作 员等。 “图书归还”用于登记读者归还图书的记录并增加图书在库的库存，登记 内容包括归还编号、图书编号、读者编号、退还押金、归还日期、操作员等。 “图书续借”用于登记读者到期图书的续借记录。 “图书预约”用于登记读者的图书预约记录。 “图书丢失”用于报失图书，内容包括丢失编号、图书编号、读者编号、 赔偿金额、操作时间、操作员等。 “图书罚款”用于对图书超期的罚款管理，内容包括罚款编号、图书编号、 读者编号、罚款日期、应罚金额、实收金额、是否交款、备注等。 3.53.5统计分析管理统计分析管理 “统计分析管理”功能为图书馆管理人员的分析决策提供依据，其中包还 的子功能模块如图 6 所示。 图 6“统计分析管理”功能模块 4 4图书馆管理系统数据库分析图书馆管理系统数据库分析 根据以上需求分析， “读者信息”和“图书信息”是起关键作用的表，用于 存放图书馆读者的信息和文献的信息，图书馆管理系统实际上就是对读者和文 图书流通管理 图书借阅 图书归还 图书续借 图书预约 图书丢失 图书罚款 统计分析管理 图书借阅查询 图书归还查询 图书超期查询 图书注销查询 图书订购查询 图书档案查询 读者档案查询 其他查询 第 5 页 共 23 页 献的管理。其他涉及读者信息和文献信息的数据表，都只记录相应的编号，根 据作为外键的“编号”字段相对应。因此“读者信息” 、 “图书信息”和其他数 据表的关系是 1：N 的关系。图书管理系统数据库表的关系图如图 7 所示。 图 7 图书管理系统数据库表的关系图 5 5数据库设计数据库设计 根据前面的模块功能设计，系统所需要的数据库应包括“读者类型” ， “读 者信息” ， “图书类型” ， “图书信息” ， “书架” ， “出版社” ， “图书罚款” ， “图书 归还” ， “图书借阅” ， “图书征订” ， “管理员”等，各部分各自作为一个表存在， 此外系统管理员的信息单独使用一个表来记录。具体设计如下 “读者类型”表用于管理读者相关的信息，具体设计如表 1 所示： 表 1 读者类型 列名数据类型长度允许空 类型 Varchar20 图书册数 Smallint2 续借次数 Int4 限制图书 Int4 第 6 页 共 23 页 “读者信息”表用于设置读者相关信息，具体设计如表 2 所示： 表 2 读者信息 列名数据类型长度允许空 条形码 Varchar40 编号 Varchar20 姓名 Varchar20 性别 Varchar8 类型 Varchar20 出生日期 Smalldatetime4 有效证件 Varchar60 证件号码 Varchar60 联系方式 Varchar100 登记日期 Smalldatetime4 有效日期 Smalldatetime4 操作员 Varchar20 备注 Varchar200 图书借阅次数 Int4 是否挂失 Bit1 “图书信息”表用于设置图书的基本信息，具体设计如表 3 所示： 表 3 图书信息 列名数据类型长度允许空 条形码 Varchar40 编号 Varchar50 书名 Varchar200 类型 Varchar100 作者 Varchar50 译者 Varchar50 ISBNVarchar40 出版社 Varchar100 价格 Money8 页码 Int4 书架名称 Varchar200 现存量 Int4 库存总量 Int4 入库时间 Smalldatetime4 操作员 Varchar20 简介 Varchar100 借出次数 Int4 是否注销 Bit1 “图书类型”表用于设置图书的类型及相关的信息，具体设计如表 4 所示： 第 7 页 共 23 页 表 4 图书类型 列名数据类型长度允许空 类型编号 Varchar50 类型名称 Varchar100 可借天数 Int4 “书架”表用语设置图书的位置，具体设计如表 5 所示： 表 5 书架 列名数据类型长度允许空 编号 Varchar50 书架编号 Varchar200 “出版社”表用于设置图书所属出版社的基础信息，具体设计如表 6 所示： 表 6 出版社 列名数据类型长度允许空 出版社编号 Int4 ISBNVarchar40 出版社名称 Varchar200 “图书罚款”表用于设置图书罚款记录，具体设计如表 7 所示： 表 7 图书罚款 列名数据类型长度允许空 罚款编号 Int4 图书编号 Varchar50 读者编号 Varchar20 罚款日期 Smalldatetime4 应罚金额 Money8 实收金额 Money8 是否叫款 Bit1 备注 Varchar100 “图书归还”表用于保存图书归还记录，具体设计如表 8 所示： 表 8 图书归还 列名数据类型长度允许空 归还编号 Int4 图书编号 Varchar50 读者编号 Varchar40 退还押金 Money8 归还时间 Smalldatetime4 操作员 Varchar20 确定归还 Bit1 “图书借阅”表用于保存图书借阅记录，具体设计如表 9 所示： 第 8 页 共 23 页 表 9 图书借阅 列名数据类型长度允许空 借阅编号 Int4 图书编号 Varhar50 读者编号 Varhar40 借阅时间 Smalldatetime4 应还时间 Smalldatetime4 续借次数 Int4 操作员 Varhar20 状态 Varhar10 “管理员”表用于保持管理员的基本信息，如名称、编号、姓名、密码等， 具体设计如表 10 所示： 表 10 管理员 列名数据类型长度允许空 编号 varchar10 姓名 varchar10 密码 varchar50 性别 varchar2 6 6系统详细设计系统详细设计 6.16.1 系统包括的功能系统包括的功能 由于篇幅有限，本系统详细介绍如图 8 所示功能的开发过程，并简化其中 各功能所包含的属性，其他功能可以参照这些功能的开发方法实现。 图 8 详细介绍的系统窗体结构图 图书馆管理系统 读者类型设置 读者档案管理 图书类型设置 图书档案管理 图书征订 图书借阅 图书归还 逾期清单 图书罚款 读者管理 图书管理 图书流通管理 第 9 页 共 23 页 6.26.2 登陆窗体的设计登陆窗体的设计 6.36.3 主窗体的设计主窗体的设计 本窗体主要是由读者管理、图书管理、流通管理和退出系统等几个菜单控 件组成。选择主菜单中的各菜单项即可进入相应的功能模块。 主窗体名为 frmMain，窗体运行效果如图 10 所示。 图 10 系统主窗体 6.46.4 创建数据访问模块创建数据访问模块 因为各个窗体均需要对数据库进行访问，可以把数据库的一些操作通过一 个类实现，这样就可以使对数据库的访问更加简单。添加一个名为 “DataBase.vb”的类文件。主要代码设计： Public Class DataBase 实现接口 IDisposable Implements IDisposable 数据库连接对象 Private SqlConn As SqlConnection Public Shared sConn As String = Persist Security Info=False;Integrated Security=SSPI;database=libbook;server=本机数据 库服务器名称;Connect Timeout=30 Public Sub Open() If SqlConn Is Nothing = True Then 建立数据库连接对象 SqlConn = New SqlConnection(Me.sConn) 打开数据库连接 SqlConn.Open() End If 第 10 页 共 23 页 End Sub Public Sub Close() 如果数据库连接对象不为空则关闭数据库连接 If SqlConn Is Nothing = False Then SqlConn.Close() End If End Sub 6.56.5 创建数据操作窗体的父类窗体创建数据操作窗体的父类窗体 因为系统中所有对数据库表进行维护的窗体界面及实现的功能大体都是一 致的，可以把这些共同的部分抽取出来，生成一个父类窗体，其他数据库操作 窗体均可以通过继承父类窗体获得数据维护的功能。添加控件后窗体如图 11 所 示。 图 11 基础窗体 frmbase.vb 主要代码设计： Case 首记录 返回首记录 bmData.Position = 0 Case 删除 弹出询问对话框 Dim dlgResult As DialogResult = _ MessageBox.Show(你确认删除此数据？, _ 删除, MessageBoxButtons.OKCancel) If dlgResult = DialogResult.OK Then DeleteData() End If Case 保存 SetToolBarState(True) 第 11 页 共 23 页 SetTextBoxState(True) If bAdd = True Then 为新增数据保存 SaveForAdd() Else 为更新数据保存 SaveForUpdate() End If Me.dgdList.Enabled = True Case 取消 SetTextBoxState(True) SetToolBarState(True) Me.dgdList.Enabled = True SearchResult() Case 退出 关闭本窗体 Me.Close() End Select 6.66.6 读者类别设置模块读者类别设置模块 本窗体首先显示全部的读者类型。它实现对读者类别的管理，如添加、修 改、删除等操作。也可以对输入的类型进行搜索操作。当单击“添加”或者 “修改”按扭时，激活“保存”和“取消”按扭。可以把管理员对读者类型表 中各条信息所做的操作进行保存或者取消保存。修改和保存过后的数据直接保 存到数据库，窗体运行效果如图 12 所示。 图 12 读者类别设置功能窗体 主要代码实现如下： 第 12 页 共 23 页 Dim dr As DataRow = DataSet11.Tables(读者类型).NewRow() Try dr(类型) = txbType.Text.Trim dr(图书册书) = txbBookCount.Text.Trim dr(续借次数) = txbTimes.Text.Trim dr(限制图书) = cbbBook.Checked.ToString Catch ex As Exception 6.76.7 读者档案管理功能模块读者档案管理功能模块 本窗体功能和读者类别设置模块的功能几乎一致，只不过这里是对读者档 案的设置信息。同样具有添加，修改，删除以及保存和取消保存的功能。窗体 运行效果如图 13 所示。 图 13 读者档案管理功能窗体 主要代码的设计如下： Public Overrides Sub Prepare() Me.Text = 读者档案管理 Me.Label1.Text = 条形码 Me.Label2.Text = 编号 Me.Label3.Text = 姓名 Dim db As DataBase = New DataBase Dim dv As DataView = _ db.RunSelectSQL(select 类型 from 读者类型) 6.86.8 图书类别设置的功能模块图书类别设置的功能模块 本窗体功能和读者类别设置模块的功能一样，只不过这里是对图书的类别 的设置信息。同样具有搜索，添加，修改，删除以及保存和取消保存的功能。 窗体运行效果如图 14 所示。 第 13 页 共 23 页 图 14 图书类别设置功能窗体 主要代码实现如下： Dim dr As DataRow = DataSet11.Tables(图书类型).NewRow() Try dr(类型编号) = txbCode.Text.Trim dr(类型名称) = txbName.Text.Trim MessageBox.Show(txbDays.Text.Trim) Dim iDays As Integer = CInt(txbDays.Text.Trim) dr(可借天数) = iDays.ToString Catch ex As Exception MessageBox.Show(数据格式不正确！) Exit Sub 6.96.9 图书档案管理的功能模块图书档案管理的功能模块 本窗体功能和读者档案管理模块的功能一样，只不过这里是对图书档案的 设置信息。同样具有添加，修改，删除以及保存和取消保存的功能。窗体运行 效果如图 15 所示。 图 15 图书档案管理功能窗体 主要代码实现如下： 第 14 页 共 23 页 Public Overrides Sub Prepare() Me.Text = 图书档案管理 Me.Label1.Text = 条形码 Me.Label2.Text = 编号 Me.Label3.Text = 书名 Dim db As DataBase = New DataBase Dim dv As DataView = _ db.RunSelectSQL(select 类型名称 from 图书类型) For Each dr As DataRow In dv.Table.Rows Me.cbbType.Items.Add(dr(0).ToString.Trim) Next dv = db.RunSelectSQL(select 出版社名称 from 出版社) For Each dr As DataRow In dv.Table.Rows Me.cbbPress.Items.Add(dr(0).ToString.Trim) Next dv = db.RunSelectSQL(select 书架名称 from 书架) For Each dr As DataRow In dv.Table.Rows Me.cbbBookcase.Items.Add(dr(0).ToString.Trim) Next 6.106.10 图书征订的功能模块图书征订的功能模块 完成图书馆对图书的征订和提交征订的功能，同样具有对征订的信息进行 添加、修改、删除以及保存和取消保存的功能。这里的“提交征订（验收） ”按 扭。当单击它时系统调用“sf_图书征订”存储过程，增加图书的在库数量，并 将“是否验收”字段设置为 1，表示征订记录已经验收。征订编号为系统自动 生成，输入图书编号自动显示出图书的名称，图书名称项文本框不可以用，此 时的“搜索”图标也为可用状态，单击搜索图标显示出所有图书的信息表，双 击任意一条图书消息即可选定它为要征订的图书。窗体运行效果如图 16 所示。 第 15 页 共 23 页 图 16 图书征订功能窗体 主要代码设计如下： Public Overrides Sub LoadData() 清空 DataSet11 DataSet11.Clear() SqlConnection1.ConnectionString = DataBase.sConn Dim strSQL As String If strFilter.Trim.Length = 0 Then strFilter = where 是否验收 = 0 Else strFilter = and 是否验收 = 0 End If SqlDataAdapter1.SelectCommand.CommandText _ = select * from 图书征订 + strFilter 根据查询条件重新填充 DataSet11 SqlDataAdapter1.Fill(DataSet11) dtData = DataSet11.Tables(图书征订) If dtData.Columns.IndexOf(图书名称) = -1 Then dtData.Columns.Add(图书名称) End If 为图书名称设置数据 SetBookName() bmData = Me.BindingContext(DataSet11, 图书征订) If bmData.Count 0 Then bmData.Position = 0 End If End Sub 第 16 页 共 23 页 6.116.11 图书借阅的功能模块图书借阅的功能模块 该功能完成对图书的借阅。此功能支持条码借阅图书。读者选择和图书选 择可以支持编码和条码输入，默认是编码，在“读者信息”编辑框中输入编码， 回车后系统自动列出该读者的姓名、类型及已经借阅还未归还的图书清单，并 且光标跳到“借阅图书信息”编辑框；在“图书借阅信息”编辑框中输入图书 编号或者条码，回车该图书自动添加到下方的借阅列表中，状态是“新借” ，借 出日期和应还期限根据当前日期和图书类型中的可借天数自动生成。连续输入 借阅的图书，完成后单击“确定借书”按扭，确定图书的借出，系统调用“sf_ 图书借阅”存储过程，减少“图书信息”表中的图书的在库数量，并将“图书 借阅”表的状态属性改为“未还” 。单击“取消借书”按扭，可以取消当前输入 的借阅情况。借阅是系统会检查借阅的数量不能超过该类型读者可以借阅的数 量。窗体运行效果如图 17 所示。 图 17 图书借阅功能窗体 主要实现代码如下： /判断输入的字符是否是回车 If e.KeyCode = Keys.Enter Then /判断读者的借阅数量是否超过可借数量 If dtData.Rows.Count= CInt(Me.txbCount.Text.Trim) Then MessageBox.Show(你借阅数量已经超过可借数量) Dim strSQL As String = strSQL+= select 编号,书名,出版社,价格,b.可借天数 from strSQL+= 图书信息 as a , 图书类型 as b strSQL+= where a.类型 = b.类型名称 第 17 页 共 23 页 /判断输入的是编号,还是条形码 If rbnBookNumber.Checked = True Then strSQL += and 编号= + txbBook.Text.Trim + Else strSQL += and 条形码= + txbBook.Text.Trim + End If Dim dv As DataView = db.RunSelectSQL(strSQL) Dim strNumber, strName, strPress, strPrice, strDays As String If dv.Count 0 Then 判断该读者是否已经借过这本书 For Each tmpdr As DataRow In dtData.Rows If tmpdr(编号).ToString().Trim _ = dv(0)(编号).ToString.Trim Then MessageBox.Show(图书已经借给该读者！) Exit Sub End If Next strNumber = dv(0)(编号).ToString.Trim strName = dv(0)(书名).ToString.Trim strPress = dv(0)(出版社).ToString.Trim strPrice = dv(0)(价格).ToString.Trim strDays = dv(0)(可借天数).ToString.Trim Dim dr As DataRow = dtData.NewRow dr(状态) = 新借 dr(编号) = strNumber dr(书名) = strName dr(借阅时间) = Date.Now.ToString(yyyy-MM-dd) dr(应还时间) = _ 6.126.12 图书归还功能模块图书归还功能模块 主要功能就是对图书归还。该功能窗体在查询条件中输入读者的编号或条 码，可以检索出该读者已借出的所有未还的图书，选择其中需要归还的图书， 单击“归还选择的图书”按扭，系统增加图书在库数量，并将图书借阅记录的 第 18 页 共 23 页 状态改为已在。如果图书逾期归还，系统自动提示输入罚款金额，如果金额为 0 或者单击“取消”按扭，系统不产生罚款信息。 窗体的运行效果如图 18 所示： 图 18 图书归还功能窗体 主要实现代码如下： Dim db As DataBase = New DataBase db.RunDelOrInsSQL(exec sf_图书归还 _ + number.ToString + , + money.Trim) LoadData() dtData.DefaultView.AllowDel