数据库+课程设计报告+图书管理系统+完整论文.wps

目录目录1.问题描述问题描述.21.1 背景21.2 数据需求21.3 事务需求22.解决方案解决方案.22.1 E-R 模型设计.22.2 设计数据库32.2.1 创建数据库.32.2.2 创建数据表.32.2.3 连接数据库.42.3 主窗体设计.52.3.1 设计登录界面52.3.2 添加数据组件52.3.3 生成数据集52.3.4 设计代码52.4 读者信息.52.4.1 设计显示界面52.4.2 添加数据组件62.4.3 功能实现62.5 显示报表.62.5.1 添加读者信息报表62.5.2 添加借阅情况报表72.6 综合查询的实现.72.6.1 添加数据组件72.6.2 窗体功能实现83.系统实现系统实现.83.1 开发环境83.2 系统流程图83.3 程序调试情况8分类编号3.4 功能显示.83.5 结论.114.结束语结束语11附录：源代码清附录：源代码清.111.问题描述问题描述（宋体四号字，加粗）1.1 背景背景（宋体小四号字，加粗）（宋体小四号字，加粗）本系统利用 VB.NET 处理数据库的功能，实现对图书馆信息的管理。主要功能为管理有关读者、出版社、书籍、借阅和管理者的信息等。本系统的结构分为读者信息管理模块、出版社信息管理模块、书籍信息管理模块、借阅信息管理模块、管理者管理信息模块、报表显示模块和查询处理模块。1.2 数据需求数据需求根据系统的需求，首先将要记录的信息分类，要记录的信息如下。(1)读者信息：包括证号、姓名、联系方式、已借书数目、读者类别和能否借书等。(2)出版社信息：包括名称、地址、网址、E-mail 等。(3)书籍信息：包括书号、丛书系列、作者、责任编辑、字数、定价、出版时间、主题分类、二级分类、馆内借阅分类、总册数、库存量、出版社和书名等。(4)借阅信息：包括借阅日期、应归还日期、实际归还日期、能否续借、书号和证号等。(5)管理者信息：包括管理者名称、对应密码和对应权限等。根据这些需要，本系统需要“读者信息”表，“出版社信息”表，“书籍信息”表，“借阅信息”表和“管理者信息”表。1.3 事务需求事务需求(1)在读者信息管理部分,要求如下。可以浏览读者信息。可以对读者信息进行维护,包括添加及删除等操作。(2)在出版社信息管理部分,要求如下。可以浏览出版社信息。可以对出版社信息进行维护,包括添加及删除等操作。(3)在书籍信息管理部分,要求如下。可以浏览书籍信息。可以对书籍信息进行维护,包括添加及删除等操作。(4)在借阅信息管理部分,要求如下。可以浏览借阅信息。可以对借阅信息进行维护操作。(5)在管理者信息管理部分,要求如下。显示当前数据库中管理者情况。对管理者信息维护操作。2.解决方案解决方案2.1 E-R 模型设计模型设计该系统的 E-R 模型如图 1 所示。图 1-图书管理系统 E-R 模型图 1-图书管理系统 E-R 模型2.2 设计数据库设计数据库2.2.1 创建数据库创建数据库(1)在服务器资源管理器中的任一节点右击。(2)执行快捷菜单中的“新建数据库”命令,并在打开的“创建数据库”对话框中输入数出版社读者书籍名称地址网址E-mail证号姓名联系方式已借书数目读者类别能否借书书号丛书系列作者责任编辑字数定价出版时间主题分类二级分类馆内借阅分类书名出版社总册数库存量借阅借阅日期应归还日期能否续借书号证号出版实际归还日期1mmn据库名 Library，选中“使用 WindowsNT 集成安全性”单选按钮。(3)单击“确定”按钮，则新建的数据库就会出现在服务器上。2.2.2 创建数据表创建数据表创建数据库后，为 Library 数据库添加数据表，步骤如下。(1)在服务器资源管理器中右击数据库 Library 下的“表”文件夹。在弹出的快捷菜单中执行“新建表”命令，出现表设计器。(2)添加表的字段和其他详细资料。各表数据结构如表 1 所示。表名列名数据类型长度出版社char50地址char50网址char50出版社信息E-mailchar50证号int4姓名varchar20联系方式varchar50已借书数目int4读者类别int4能否借书bit1读者信息密码varchar6书号char10证号int4借阅日期datetime8应归还日期datetime8实际归还日期datetime8借阅信息续借bit1书号char10丛书系列nchar50作者nchar50责任编辑nchar50字数int4定价money8出版时间datetime8主题分类nchar50二级分类char50馆内借阅分类int4总册数char10库存量int4出版社char50书籍信息书名char50用户名称20密码20管理者信息权限20表 1-图书管理系统各表数据结构表 1-图书管理系统各表数据结构2.2.3 连接数据库连接数据库为数据库 Library 和本系统之间建立一个数据连接。(1)在服务器资源管理器中右击“数据连接”节点。在弹出的快捷菜单中执行“添加连接”命令，打开 Data Link Properties 对话框。切换到 Provider 选项卡，选中列表框中的Microsoft OLE DB Provider for SQL Server 项。单击“下一步”切换到 Connection 选项卡。(2)在其中的第一个下拉列表框中选择数据库所在服务器名称。输入登录服务器信息后选择数据库 Library，然后单击 Test Connection 按钮。如果测试成功，单击“确定”按钮。2.3 主窗体设计主窗体设计创建一个新的“Windows 应用程序”类型的项目，名为“图书馆管理”。将默认创建的窗体命名为“主窗体”，把“主窗体”作为本系统中的主界面。在窗体中添加两个 Pannel 控件，7 个 Button 控件和 7 个 Linklabel 控件。2.3.1 设计登录界面2.3.1 设计登录界面设计登录界面创建一个新的”Windows 窗体”,名为 Login,作为本系统的登录界面.在 Login 窗体上添加两个 Label 控件,两个 Button 控件和两个 TextBox 控件,添加控件后的窗体如图所示。2.3.2 添加数据组件2.3.2 添加数据组件在工具箱中单击“数据”选项卡，添加 OleDbDataAdapter 组件。(1)在工具箱中单击 OleDbDataAdapter 组件，在窗体任意位置拖动出一个虚框矩形后释放左键弹出“数据适配器配置向导”对话框。(2)单击“下一步”，在打开的对话框中选择前面建好的数据连接，然后单击“下一步”。(3)选中“使用 SQL 语句”，然后单击“下一步”进入“生成 SQL 语句”对话框。(4)在其中的多行文本框直接输入 SQL 语句“SELECT 管理者信息.*FROM 管理者信息”。(5)单击“下一步”按钮，进入“查看向导结果”，单击“完成”按钮完成数据适配器配置。配置数据适配器后，在主窗体上就会自动添加一个 OleDbConnection 控件。2.3.3 生成数据集2.3.3 生成数据集生成数据集的步骤如下:(1)单击 OleDbDataAdapter 控件“属性”对话框中的“生成数据集”链接,打开“生成数据集”对话框。(2)在其中选中“新建”单选按钮,并在其后面的文本框中输入“Lib 管理者信息”。(3)在“选择要添加到数据集中的表”列表框中列出了前面添加的 OleDbDataAdapter 组件所连接的表,选中该表名前面的复选框。(4)选中“将此数据集添加到设计器”复选框，单击“确定”按钮这样,将生成一个名称为“Lib 管理者信息”的数据集,该数据集以文件形式存储,文件名为“Lib 管理者信息.xsd”。而在项目中,添加了一个 DataSet 组件,名为“objLib 管理者信息”。在解决方案资源管理器中右击该项目，在弹出快捷菜单中单击“属性”菜单项。在打开的“属性页”对话框中的“启动对象”下拉列表框中选择“主窗体”选项。单击“确定”按钮，这样该项目启动时，就会从主窗体开始启动。2.3.4 设计代码2.3.4 设计代码在程序运行过程中,如果想通过单击 LinkLabel 控件或 Button 控件进入系统中的各个功能模块(如显示读者信息等),就会弹出一个对话框要求输入用户名和密码.单击确认按钮,程序就会到数据库的管理者信息表中查找该用户名和密码是否存在.如果存在,允许进入功能模块.完成登录功能的主要代码集中在 UserCheck 函数中.在程序运行过程中,在 Login 窗体的用户姓名和用户密码文本框中输入用户名和密码后,单击确认按钮就会触发 UserCheck函数并执行其中的代码.如果 UserCheck 函数返回 True,那么允许用户的操作;否则拒绝用户的操作请求.在 UserCheck 函数中首先定义 Login 类型的变量 dlg_Login,然后通过 ShowDialog 方法来显示登录窗体.如果用户在登录窗体中输入用户姓名和密码,并且单击了确认按钮,那么自动调用一个自定义函数 LoadDataSet(),由此函数进行数据加载.如果出错,显示错误信息,回滚整个事务.具体设计代码见附录 1.1。2.4 读者信息读者信息在当前项目中添加一个“Windows 窗体”，将窗体命名为“读者信息”。2.4.1 设计显示界面2.4.1 设计显示界面在窗体上添加 1 个 GroupBox 控件，9 个 Button 控件，5 个 TextBox 控件，1 个 CheckBox控件和 7 个 Label 控件。各按钮控件是为了执行相应的操作。各 TextBox 控件和 CheckBox 控件用来显示数据集中的数据，这个功能通过设置 DataBindings 属性来实现。2.4.2 添加数据组件2.4.2 添加数据组件向窗体添加 OleDbConnection 组件，命名为 OleDbConnection1 后将其选中，在“属性”对话框的 ConnectionString 栏单击，选择所建数据库 Library。添加 OleDbDataAdapter 组件和生成数据集的方法步骤如 2.3.2 及 2.3.3。设置各 TextBox 控件的 DataBinding 属性来实现对数据集中数据的显示(以 Edit 证号为例)。(1)选中“Edit 证号”控件单击“属性”对话框。(2)单击 DataBinding 属性前面的+号打开该属性的详细列表。(3)设置 Text 属性：在该属性后面栏中单击并选择所对应字段。(4)设置其他 TextBox 控件的 DataBinding 属性。2.4.3 功能实现2.4.3 功能实现显示数据，添加读者，保存更改，记录定位的实现。具体实现代码见附 1.2。“管理者信息”，“出版社信息”，“书籍信息”，“借阅信息”和该模块的设计思路及方法步骤完全一致，在此从略。2.5 显示报表显示报表在当前项目中添加一个“Windows 窗体”，命名为“报表窗体”，该模块显示当前数据库中读者信息和借阅信息的报表。在窗体上添加一个 CrystalReportViewer1，它充当报表显示的窗体，然后在窗体中添加一个菜单，菜单中包括两个子菜单项“读者信息”和“借阅信息”。在程序运行中，如果单击“读者信息”菜单项，就会自动在窗体上显示“读者信息报表.rpt”：如果单击“借阅信息”命令就会自动在窗体上显示“借阅信息报表.rpt”报表。2.5.1 添加读者信息报表2.5.1 添加读者信息报表(1)在开发环境中选择菜单“项目”中的“添加新项”对话框中选择 Crystal Report 选项。(2)在“名称”文本框中输入报表名“读者信息报表.rpt”，单击“打开”按钮，就会弹出入图所示的“Crystal Report 库”对话框。(3)在其对话框中选择“使用报表专家”单选按钮，在“选择专家”列表框中选择“标准”选项，单击“确定”按钮，进入下一步。(4)在弹出的“标准报表专家”对话框中，选择“可用的数据源”列表框中的 OLB DB(ADO)选项，就会弹“OLE DB(ADO)”对话框。选择 OLB DB 提供程序为 Microsoft OLE DB Provider for SQL Server,单击“下一步”按钮，显示“连接信息”对话框。(5)在其中设置连接信息，单击“完成”按钮，返回“标准报表专家”对话框。(6)选择数据源为 OLE DB(ADO)中的 Library 数据库，并且选中其中的“读者信息”表。单击“插入表”按钮，把“读者信息”表插入到报表中，单击“下一步”按钮。(7)在“字段”选项卡中单击“全部添加”按钮，把“读者信息”表中的所有字段添加到报表中，单击“完成”按钮就完成报表的设计。设计完成的“读者信息报表”如图所示。图图 2-读者信息报表效果图-读者信息报表效果图2.5.2 添加借阅情况报表2.5.2 添加借阅情况报表添加借阅情况报表的过程与添加读者信息报表过程大致相同，不同之处在于插入到报表中的数据表为“读者信息”。2.6 综合查询的实现综合查询的实现在程序运行过程中，单击主窗体的“综合查询”按钮，就会弹出一个对话框。在其中设置查询条件，根据查询条件从记录集中筛选出所需记录。为此需要在项目中添加一个窗体“综合查询”。还需要设置“CmbBox 运算符”控件的 Items 属性。单击窗体上“CmbBox 运算符”控件，然后在“属性”对话框中单击 Items 栏，就会出现一个按钮，单击按钮，在打开的窗口中如图 3 所示设置字符串集合编辑器字符串。设置完毕，单击确定按钮。2.6.1 添加数据组件2.6.1 添加数据组件在窗体上添加一个 OleDbDataAdapter 组件，使用数据适配器配置向导对其进行配置。选择数据连接后输入 SQL 语句“SELECT出版社信息.*FROM 出版社信息”。同样再为窗体添加四个 OleDbDataAdapter 组件，图 3 字符串集合编辑器图 3 字符串集合编辑器在生成 SQL 语句对话框的多行文本框中分别输入 SQL 语句“SELECT读者信息.*FROM 读者信息”，“SELECT管理者信息.*FROM 管理者信息”，“SELECT借阅信息.*FROM 借阅信息”，“SELECT书籍信息.*FROM 书籍信息”，然后单击“完成”按 钮，Name属 性 分 别 设 置 为 OleDbDataAdapter2，OleDbDataAdapter3，OleDbDataAdapter4，OleDbDataAdapter5 完成数据适配器的配置。生成数据集的步骤如下。(1)在 OleDbDataAdapter1 组件的“属性”对话框中单击“生成数据集”超链接，打开“生成数据集”对话框，选中“新建”按钮并在后面文本框中输入“Lib 综合查询”。(2)在“选择要添加到数据集中的表”列表框中，选中 5 个表前面的复选框。(3)选中“将此数据集添加到设计器”复选框，单击“确定”按钮。这样，将生成一个名称为“Lib 综合查询”的数据集，该数据集以文件的形式存储，文件名为“Lib 综合查询.xsd”。而在项目中，添加一个 DataSet 组件，名称为“objLib 综合查询”。设计完成的数据集如图 4 所示。2.6.2 窗体功能实现2.6.2 窗体功能实现具体功能实现代码见附 1.7。-图 4 综合查询数据集图 4 综合查询数据集3.系统实现系统实现3.1 开发环境开发环境本系统使用 VisualBasic.NET 语言进行开发。需要 Microsoft.NET Framework SDK v1.1 的支持。适用内存不低于 256M 配备有 Windows2000，Windows2003，WindowsXP 系统的计算机。3.2 系统流程图系统流程图在本系统中准备通过如下窗体来实现数据维护的功能。(1)主窗体：管理着各个子窗体。(2)“读者信息”子窗体：管理读者信息。(3)“管理者信息”子窗体：管理用户信息。(4)“出版社信息”子窗体：管理出版社信息。(5)“书籍信息”子窗体：管理书籍信息。(6)“借阅信息”子窗体：管理借阅信息。(7)“报表窗体”子窗体：显示数据报表。(8)“综合查询”子窗体：执行用户自定义的查询。系统流程图如图 5 所示：图 5 系统流程图图 5 系统流程图3.3 程序调试情况程序调试情况在数据连接时一定要注意窗体和相应显示控件的绑定关系。在把系统从一台计算机移植到另一台计算机时一定要把数据文件 library.mdf 和 library_log.LDF 同时移植，并对相应的提供服务的 SQL Server 服务器进行相应的修改，否则数据正确连接并显示。3.4 功能显示功能显示运行程序后首先显示主窗体，如图 6 所示。单击“输入/查看读者信息”，就会弹出如图 7 所示登录框。图 6 主窗体页面图 7 Login 窗体图 6 主窗体页面图 7 Login 窗体在登录对话框中输入用户姓名和密码，单击“确认”按钮，就会对用户身份进行认证，如果认证通过，那么就会弹出如图 8 所示的读者信息管理窗体。在“读者信息”窗体中可以对读者信息进行维护操作，例如浏览读者信息，添加记录和删除记录等。-图 8 读者信息窗体-图 8 读者信息窗体单击“输入/查看书籍信息”，就会显示“书籍信息”窗体，在该窗体中可以对书籍信息进行维护操作。书籍信息维护窗体如图 9 所示。-图 9 书籍信息窗体-图 9 书籍信息窗体单击“输入/查看借阅信息”，就会显示“借阅信息”窗体，在该窗体中可以对出版社信息进行维护操作。出版社信息维护窗体如图所示。-图 10 借阅信息窗体-图 10 借阅信息窗体单击“输入/查看出版社信息”，就会显示“出版社信息”窗体，在该窗体中可以对借阅信息进行维护操作。借阅信息维护窗体如图所示。-图 11 出版社信息窗体-图 11 出版社信息窗体单击“输入/查看管理者信息”，结果如图所示。-图 12 管理者信息窗体-图 12 管理者信息窗体在主窗体上单击“显示报表”，那么就可以查看反映读者信息和借阅信息的报表，借阅信息的报表如图所示。-图 13 报表窗体-图 13 报表窗体如果用户在运行的主窗体上单击“综合查询”，那么就可以查看针对不同的数据表 进行查询操作。选择查询依据为“出版社信息”表查看其中的所有信息，结果如图所示。-图 14 综合查询窗体-图 14 综合查询窗体3.5 结论结论在这个系统的开发过程中，值得注意的几点有：(1)数据报表的实现.报表是数据库应用程序的重要组成部分,通过报表,可以把数据库中内容经过组织以后生动地展示给用户，VB.NET 提供的 Crystal Report 可以大大提高报表的设计效率。(2)复杂查询的实现。在程序运行过程中，单击窗体中的“综合查询”按钮，就会弹出一个对话框，在该对话框中设置查询条件，根据查询条件从记录集中筛选出所需记录，所指定的查询条件包括查询的依据，排序的依据，运算符等等。4.结束语结束语通过做课程设计，有几点感想，经过整理如下。1.扎实的基础。如果不掌握他们，很难写出高水平的程序。而这一点又是我们所缺乏的。2.不钻牛角尖。当遇到障碍的时候，暂时远离电脑，当重新开始工作的时候，也许会发现那些难题现在竟然可以迎刃而解。3.多与别人交流。三人行必有我师。4.良好的编程风格。注意养成良好的习惯，代码的缩进编排，变量的命名规则要始终保持一致。如果注释和代码不一致，那就更加糟糕。附录：源代码清单附录：源代码清单附1.1主窗体设计代码如下：附1.1主窗体设计代码如下：Public Class 主窗体 Inherits System.Windows.Forms.Form#Region Windows 窗体设计器生成的代码 此处省略主窗体设计代码#End Region Dim sender As System.Object Dim e As System.EventArgs Public Sub LoadDataSet()Dim objDataSetTemp As 图书馆管理.Lib管理者信息 objDataSetTemp=New 图书馆管理.Lib管理者信息 临时数据集objDataSetTemp保存从FillDataSet()函数调用中返回的记录 如果未出错则填充到主数据集 objLib管理者信息中 Try Me.FillDataSet(objDataSetTemp)Catch eFillDataSet As System.Exception Throw eFillDataSet End Try Try objLib管理者信息.Clear()objLib管理者信息.Merge(objDataSetTemp)Catch eLoadMerge As System.Exception Throw eLoadMerge End Try End Sub Public Sub FillDataSet(ByVal dataSet As 图书馆管理.Lib管理者信息)实现打开连接，将OleDbDataAdapter1中的数据添加到数据集，关闭连接。dataSet.EnforceConstraints=False Try Me.OleDbConnection1.Open()Me.OleDbDataAdapter1.Fill(dataSet)Catch fillException As System.Exception Throw fillException Finally dataSet.EnforceConstraints=True Me.OleDbConnection1.Close()End Try End Sub Private Sub Label1_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles Label1.Click End Sub Private Sub LinkLabel_退出_LinkClicked(ByVal sender As System.Object,ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)Handles LinkLabel_退出.LinkClicked End End Sub Private Sub LinkLabel_读者信息_LinkClicked(ByVal sender As System.Object,ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)Handles LinkLabel_读者信息.LinkClicked btn_读者信息_Click(sender,e)End Sub Private Sub LinkLabel_书籍信息_LinkClicked(ByVal sender As System.Object,ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)Handles LinkLabel_书籍信息.LinkClicked btn_书籍信息_Click(sender,e)End Sub Private Sub 主窗体_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles MyBase.Load End Sub Private Sub LinkLabel_出版社信息_LinkClicked(ByVal sender As System.Object,ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)Handles LinkLabel_出版社信息.LinkClicked btn_出版社信息_Click(sender,e)End Sub Private Sub LinkLabel_借阅信息_LinkClicked(ByVal sender As System.Object,ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)Handles LinkLabel_借阅信息.LinkClicked btn_借阅信息_Click(sender,e)End Sub Private Sub LinkLabel_查询_LinkClicked(ByVal sender As System.Object,ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)Handles LinkLabel_查询.LinkClicked btn_查询_Click(sender,e)End Sub Private Sub LinkLabel_报表_LinkClicked(ByVal sender As System.Object,ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)Handles LinkLabel_报表.LinkClicked btn_报表_Click(sender,e)End Sub Private Sub LinkLabel_管理者信息_LinkClicked(ByVal sender As System.Object,ByVal e As System.Windows.Forms.LinkLabelLinkClickedEventArgs)Handles LinkLabel_管理者信息.LinkClicked btn_管理者信息_Click(sender,e)End Sub Function UserCheck(ByVal sender As System.Object,ByVal e As System.EventArgs)As Boolean Dim dlg_Login As Login dlg_Login=New Login If(dlg_Login.ShowDialog=DialogResult.OK)Then Try Me.LoadDataSet()Catch eLoad As System.Exception System.Windows.Forms.MessageBox.Show(eLoad.Message)End Try Dim i As Integer Me.BindingContext(objLib管理者信息,管理者信息).Position=0 For i=0 To Me.BindingContext(objLib管理者信息,管理者信息).Count-1 If Not Me.BindingContext(objLib管理者信息,管理者信息).Current.GetType Is GetType(DataRowView)Then Exit For End If Dim drv As DataRowView=CType(Me.BindingContext(objLib管理者信息,管理者信息).Current,DataRowView)If Trim(drv(用户名称)=dlg_Login.Txt_用户姓名.Text Then If Trim(drv(密码)=dlg_Login.Txt_用户密码.Text Then Return True End If End If Me.BindingContext(objLib管理者信息,管理者信息).Position+=1 Next End If UserCheck=False End Function Private Sub btn_读者信息_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles btn_读者信息.Click If UserCheck(sender,e)Then Dim dlg As 读者信息 dlg=New 读者信息 dlg.ShowDialog()Else MessageBox.Show(登录失败！,登录,MessageBoxButtons.OK,_ MessageBoxIcon.Stop)End If End Sub Private Sub btn_书籍信息_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles btn_书籍信息.Click If UserCheck(sender,e)Then Dim dlg As 书籍信息 dlg=New 书籍信息 dlg.ShowDialog()Else MessageBox.Show(登录失败！,登录,MessageBoxButtons.OK,_ MessageBoxIcon.Stop)End If End Sub Private Sub btn_出版社信息_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles btn_出版社信息.Click If UserCheck(sender,e)Then Dim dlg As 出版社信息 dlg=New 出版社信息 dlg.ShowDialog()Else MessageBox.Show(登录失败！,登录,MessageBoxButtons.OK,_ MessageBoxIcon.Stop)End If End Sub Private Sub btn_借阅信息_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles btn_借阅信息.Click If UserCheck(sender,e)Then Dim dlg As 借阅信息 dlg=New 借阅信息 dlg.ShowDialog()Else MessageBox.Show(登录失败！,登录,MessageBoxButtons.OK,_ MessageBoxIcon.Stop)End IfEnd SubPrivate Sub btn_退出_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles btn_退出.Click End End Sub Private Sub btn_查询_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles btn_查询.Click If UserCheck(sender,e)Then Dim dlg As 综合查询 dlg=New 综合查询 dlg.ShowDialog()Else MessageBox.Show(登录失败！,登录,MessageBoxButtons.OK,_ MessageBoxIcon.Stop)End If End Sub Private Sub btn_报表_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles btn_报表.Click If UserCheck(sender,e)Then Dim dlg As 报表窗体 dlg=New 报表窗体 dlg.ShowDialog()Else MessageBox.Show(登录失败！,登录,MessageBoxButtons.OK,_ MessageBoxIcon.Stop)End If End Sub Private Sub btn_管理者信息_Click(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles btn_管理者信息.Click If UserCheck(sender,e)Then Dim dlg As 管理者信息 dlg=New 管理者信息 dlg.ShowDialog()Else MessageBox.Show(登录失败！,登录,MessageBoxButtons.OK,_ MessageBoxIcon.Stop)End If End Sub Private Sub Panel2_Paint(ByVal sender As System.Object,ByVal e As System.Windows.Forms.PaintEventArgs)Handles Panel2.Paint End SubEnd Class附1.2读者信息窗体设计代码如下：附1.2读者信息窗体设计代码如下：Public Class 读者信息 Inherits System.Windows.Forms.Form#Region Windows 窗体设计器生成的代码 此处省略主窗体设计代码#End Region Private Sub GroupBox_Enter(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles GroupBox.Enter End Sub Private Sub edit证号_TextChanged(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles edit证号.TextChanged End Sub Private Sub OleDbDataAdapter1_RowUpdated(ByVal sender As System.Object,ByVal e As System.Data.OleDb.OleDbRowUpdatedEventArgs)Handles OleDbDataAdapter1.RowUpdated End Sub Private Sub 读者信息_Load(ByVal sender As System.Object,ByVal e As System.EventArgs)Handles MyBase.Load Try Me.LoadDataSet()Catch eLoad As System.Exception System.Windows.Forms.MessageBox.Show(eLoad.Message)End Try Me.objLib读者信息_PositionChanged()End Sub Public Sub LoadDataSet()Dim objDataSetTemp As 图书馆管理.Lib读者信息 objDataSetTemp=New 图书馆管理.Lib读者信息 临时数据集objDataSetTemp保存从FillDataSet()函数调用中返回的记录 如果未出错则填充到主数据集 objLib读者信息中 Try Me.FillDataSet(objDataSetTemp)Catch eFillDataSet As System.Exception Throw eFillDataSet End Try Try objLib读者信息.Clear()objLib读者信息.Merge(objDataSetTemp)Catch eLoadMerge As System.Exception Throw eLoadMerge End Try End Sub Public Sub FillDataSet(ByVal dataSet As 图书馆管理.Lib读者信息)实现打开连接，将OleDbDataAdapter1中的数据添加到数据集，关闭连接。dataSet.EnforceConstra