图书管理系统毕业论文(优秀毕业论文)

图书管理系统论文 (VB+SQL) 目 录 内容摘要 2 引言 .2 第一章 课题简介 .3 第二章 需求分析 .4 2.1图书管理现状 .4 2.2数据流程图 . 5 第 三 章 系统逻辑和物理设计 .8 3.1数据库的设计 .8 3.2功能模块的实现 .9 第 四 章 调试与分析 .50 4.1存在问题及解决方案 .50 4.2进一步改进设想 .50 第 五 章 用户操作说明 50 5.1软硬件环境 .50 5.2应用系统安装 .50 5.3操作手册 .50 小结 .51 参考文献 .52 2 内容摘要 图 书管理系统是采用 Visual Basic6.0开发的一个数据库管理系统。开发本系统的基本步骤：需求分析、系统概念设计、系统逻辑和物理设计、系统实现和维护。在系统分析中先后用数据字典、数据流程、系统的功能结构图、 ER图分析了系统所需的各种数据。在系统的设计过程中 ,我们采用了模块独立设计法 ,比较详细的展现了各个模块的功能。在库和表的设计当中 , 我们力求层次清晰，设计简单实用。在系统具体实行阶段中，我们精心细致的画出了各个窗体并给出了相应的事件和代码，以实现各个窗体的作用。 本系统虽然设计简单，但有一定的实用性 。系统的功能较为全面，使用简单，基本上可以作为一般大中小学的图书管理系统。 关键字：数据库 SQL 语言 Visual Basic6.0 图书 图书管理 窗体 引言 当今时代是飞速发展的的信息时代。在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的原因。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。计算机进行信息管理与信息管理系统的开发密切相关， 系统的开发是系统管理的前提。本系统就是为了管理好图书馆信息而设计的。 图书馆作为一种信息资源的集散地，图书和用户借阅资料繁多，包含很多的信息数据的管理，现今，有很多的图书馆都是初步开始使用，甚至尚未使用计算机进行信息管理。根据调查得知，他们以前对信息管理的主要方式是基于文本，表格等纸介质的手工处理，对于图书借阅情况（如借书天数，超过限定借书时间的天数）的统计和核实等往往采用 3 对借书卡的人工检查进行，对借阅者的借阅权限，以及借阅天数等用人工计算，手抄进行。数据处理工作量大，容易出错。由于数据繁多，容易丢失，且不 易查找。总的来说，缺乏系统规范的信息管理手段。尽管有的图书馆有计算机，但是尚未用于信息管理，没有发挥它的效力，资源闲置比较突出，这就是管理信息系统的开发的基于环境。 基于这个问题，我认为有必要建立一个图书管理系统，使图书管理工作规范化，系统化，程序化，避免图书管理的随意性，提高信息处理的速度和准确性，能够及时，准确，有效的查询和修改图书情况。 第一章 课题简介 课题：图书管理系统。 任务： 针对各大中专院校的图书管理现状，设计出适合一般学校的计算机辅助图书管理系统 。实现对图书基本信息、读者基本信息进行计算机辅助管理，完成借书和还书有关信息的记录、修改、查询、删除等一系列任务的计算机管理与实现 .。 开发环境： 本图书管理开发系统是在 Pentyum 4 以上机型的计算机上进行开发并获得通过的，同时方便系统开发，减少开发过程的难度，我们是基于以下的软件环境。 以 Windows 98 为操作系统 以 Visual Basic6.0 为开发工具 以 Microsoft SQL Server 作为后台数据库 功能概述：该系统界面 完 好，操作简便，能完成添加图书信息，修改图书信息，查询图 书信息，添加读者类别，修改读者类别，查询读者信息，修改读者信息 ，添加删除管理员 等一系列图书管理功能，开发本系统的总体任务是实现图书管理的系统化和自动化，帮助管理人员更好 4 更高效地完成图书管理工作。本着实用性和介绍性的原则，整个系统由五大模块组成，每个大的模块又包括三至四个小的模块。 一、 图书管理部分：包括图书信息管理和类别管理，其功能是实现对各部分数据内容进行添加、修改、查询等操作。 二、 借阅管理部分：包括借书管理和还书管理，其功能是实现对各部分数据内容的添加和查询等操作。 三、 读者管理部分：包括 读者信息管理和读者类别管理，其功能是实现对各部分数据内容的添加和修改等操作。 四、 系统管理部分：包括修改系统用户密码和增加新用户两项功能。 五、 帮助部分： 显示关于信息 。 系统具有高效、易操作、易维护等特点，并且系统结构清晰、界面友好，功能较为齐全，能有效地协助管理人员进行图书管工作。如果想真正把它用到图书馆的图书自动化管理中，还需要读者对该系统进行一步的完善工作。 第二章 需求分析 需求分析阶段确定的系统逻辑模型是以后设计和实现目标系统的基础，因此必须准确完整地体现用户的要求。 在这一章里， 我将给出系统的数据流图，功能结构图，数据字典，为系统的设计奠定基础。 2.1 图书管理现状 随着计算机技术的飞速发展，其应用方面已渗透到社会生活的各个领域。它已经成为我们学习和工作的得力助手。在学校，尤其是在一些高校，图书是学校的一项重要资源，图书的管理也是学校的一项常规性 5 的重要工作。而长期以来，学生图书管理都是依赖人工进行的。现今，有很多的学校都已经开始使用计算机进行图书信息管理，并且起得良好的效果。近年来我校招生情况越来越好，所以图书管理工作越来越繁重，但由于种种原因，管理人员并没有增加，因此原有的人 工管理工作已不能适应现行的工作需要。同时，陈旧的人工管理也不利于推广计算机应用。为使图书管理工作科学化、规范化，就必须采用计算机辅助管理。 2.2 数据流程图 数据流程图（ Data Flow DFD）是描述实际业务管理系统工作流程的一种图形表示法。 它描绘系统的逻辑模型图，其中没有任何具体的物理元素，只是描绘信息在系统中流动和处理的情况。因为数据流 程 图是逻辑系统的图形表示，即使不是专业的计算机技术人员也容易理解，所以是极好的通信工具。此外，设计数据流 程 图只需考虑系统必须完成的基本逻辑功能，完全不需要考虑如 何具体地实现这些功能，所以它也是软件设计的很好的出发点。图书管理系统主要是为了对图书、读者基本信息等进行计算机管理。下面就是功能模块的流程分析： 2.2.1 图书 管 管理 系统 基本信息流程 流程分析： 图书基本信息的流动首先是以图书编号为流动方向的依据，来达到添加、修改、记录、删除图书记录。为了数据的一致性，进行这些操作的同时，也对数据库中的记录进行检查，检查是否有重复的记录。如有则不能进行添加。 2.2.2 读者信息管理基本信息流程图 6 流程图分析： 读者基本信息的流动首先是以读者的编号为依据，来达到添加、修改、查询、删除读者信息的记录。同时，也对数据库中的读者信息表的编号进行检查。 2.2.3 借书管理基本信息流程图 流程图分析：借书管理基本信息的流动首先是以借阅编号为流动方向的依据，来达到添加、查询借书记录。 为了数据的一致性，进行这些操作的同时，也对数据库中的记录进行检查，检查是否有重复的记录。如没有则可进行添加。 2.2.4 还书管理基本信息流程图 流程图分析：借阅管理部分是实现对各部分数据内容的添加和查询操作，在借阅信息中包括 图书 编号、读者编号 ，系统对借书日期进行自动添加 。并通过添加功能来达到借阅信息表的数据的更新，通过查 询 功能 可使管理员很快地了解借阅信息，从而避免书籍的丢失现象产生。 通过上面对各个模块流程的分析，那么我们就不难对整个系统的大致流程有一个全面的认识。设计时采用了常用的自顶向下的瀑布式结构化设计方法。这样系统做起来后就便于用户操作。综合上面各个模块的分析，其总体流程图如下： 7 启动界面 登录 连接数据库， 验证管 理员密码 进入主画面 数据管理 记录浏览 借还操作 系统设置 帮助 显示 关于信息 读者 借阅 借阅 归还 添加 删除 记录 记录 书籍 书籍 管理员 管理员 添 修 删 加 改 除 8 第 三 章 系统逻辑和物理设计 3.1 数 据库的设计 根据上面的 结构 图，现在需要将数据库结构转化为 SQL Server2000 数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。形成数据库中的表格以及各个表格之间的关系。图书管理信息系统数据库中各个表格的设计结果如下面的几个表格所示。每个表格表示在数据库中的一个表。 3.1.1 图书信息表 字段名 数据类型 说明 图书编号 文本 主键， 字段大小 4 书名 文本 字段大小 10 类别 文本 字段大小 10 价格 货币类型 无 出版社 文本 字段大小 40 入库 日期 日期 /时间 无 是否借出 文本 字段大小 4 3.1.2 事务 信息表 字段名 数据类型 说明 借阅编号 自动编号 无 读者编号 文本 字段大小 50 图书编号 文本 字段大小 50 归还日期 日期 /时间 无 出借日期 日期 /时间 无 9 3.1.3 读者信息表 字段名 数据类型 说明 读者姓名 文本 字段大小 10 读者编号 文本 主键， 字段大小 4 年龄 数字 无 家庭住址 文本 字段大小 10 3.2 功能模块的实现 按结构化的程序设计思想，在完成了系统分析、系统设计后，就可以进行系统实现阶段了，系统实现是每指把系 统的物理模型转换成实际运行系统的全过程。在打开数据表之前应该先打开数据库， 系统中创建了一个模块，该模块的作用是连接数据库以及数据库中数据的提取，因为系统需要频繁的使用数据库中的数据，建立模块可以使程序简单化，模块的代码如下 ： Public cn As ADODB.Connection 定 义连 接 以及 取 记录 的 对象 Public rst As ADODB.Recordset Public Function CnToDB() As Boolean On Erro r GoTo My_ Deb ug 设 定 错误 机 制，当 连接 错 误时 转到 M y _Debu g Set cn = New ADODB.Connection With cn 设定 访问数据库 的参 数 ，对 象 SQL s erv er， 数据 库 b ooksy s .ConnectionString = provider=sqloledb;uid=sa;pwd=;server=. .ConnectionTimeo ut = 5 .CursorLocation = adUseClient 10 .Open .DefaultDatabas e = booksys End With CnToDB = True Exit Function My_Debug:当 出错 时 ，取 消 连接 数 据库 Set con = Nothing CnToDB = False End Function Public Function QueryData(ByVal strSql As String) As Boolean On Error GoTo My_Debug If CnToDB = True Then 当连接到 数据 库 后才 能 取得 记 录 Set rst = New ADODB.Recordset With rst 定义取记录的参 数 .Source = strSql .ActiveConnection = cn .CursorLocation = adUseClient .CursorType = adOpenDynamic .LockType = adLockOptimistic .Open End With QueryData = True End If Exit Function My_Debug: 11 Set rst = Nothing QueryData = False End Function Public Function getRS(ByRef rst As ADODB.Recordset, ByVal strSql As String) As Boolean On Error GoTo rsErr Set rst = New ADODB.Recordset With rst .Source = strSql .ActiveConnection = cn .CursorLocation = adUseClient .CursorType = adOpenDynamic .LockType = adLockOptimistic .Open End With If rst.State Then getRS = True Exit Function End If rsErr: getRS = False MsgBox Err.Number & Err.Description, vbCritical +vbOKOnly, 错误信息 End Function 12 注意 :当程序不再使用数据库时 ,应该调用 Connectio n对象的Close 方法将其关闭 ,但此时它还会占用一定的系统资源 ,完全将资源释放给系统的方法是使用下面的语句 : Set con=Nothing.不过 ,这两个步骤往往会被省略 ,因为当程序关闭时 ,程序所打开的数据也会随之关闭 ,Connectio n 对象所占用的系统资源也会自动释放给系统 . 登录窗体的实现 其代码如下： Private Sub Command1_Click() Dim uid 定义 用户 名 变量 Dim pwd 定义密码的变量 Dim strFu As String 定义 查找 用 户名 的 变量 Dim strFp As String 定义 查找 密码 的变量 13 strFu = select * from yh where userid= & Text1.Text & 查找与输入的用户名一致的用户名 If QueryData(strF u) Then 如果找到 了用 户 名， 则 保存 记 录符 合 记录 的 条数 uid = rst.RecordCount End If strFp = select * from yh where pwd= & Text2.Text & If QueryData(strFp) Then pwd = rst.RecordCount End If If pwd = 1 And uid = 1 Then 用户名与 密 码数 据 表里 都 有则 显 示主 画 面 MDIForm1.Show Unload Me 关闭本窗口 Else MsgBox 您输入的用户名或密码有错误 !, vbInformation + vbOKOnly, 登录失败 End If End Sub Private Sub Command2_Click()取消 按 钮的 点 击事 件 Unload Me End Sub Private Sub Form_Load()如果没有 连 上数 据 库， 则 显示 相 应信 息 If CnToDB = False Then 14 MsgBox 网络未响应！出现此情况可能是与服务器没有物理连接或数据库不在指向的服务器上！ , vbCritic al + vbOKOnly, Connecting Error End If Text1.Text = 加载窗体时清空 t e xt 1 与 t e xt 2 的内 容 Text2.Text = End Sub 注意 :工程属性对话框中的 ”启动选项 ”用来选取择运行 VB 时显示 的第一个窗体 ,或者 Sub Main. 主窗体中的代码不多 ,基本上都是实现单击某个菜单选项即弹出相应窗体的语句 ,这些语句将分别在各个窗体中介绍。单击“ 帮助 ” “ 关于 ”菜单，系统代码如下： Private Sub mun_help_about_Click() about.Show End Sub 系统主窗体的实现 15 其代码如下： Private rs As ADODB.Recordset Private rs1 As ADODB.Recordset Private rs2 As ADODB.Recordset Private strSql As String Private Sub Command1_Click() borrow.Show End Sub Private Sub Command2_Click() reback.Show End Sub 16 Private Sub Command4_Click() Text2.Text = If CnToDB = False Then MsgBox 网络未响应！出现此情况可能是与服务器没有物理连接或数据库不在指向的服务器上！ , vbCritical + vbOKOnly, Connecting Error End If On Error GoTo fmerr If QueryData(select * from book) = True Then Set DataGrid1.DataSource = rst Else MsgBox 查询失败！ End If Exit Sub fmerr: If rst.BOF = True And rst.EOF = True Then MsgBox 没有任何记录！ End If End Sub Private Sub Command5_Click() delbook.Show End Sub 17 Private Sub Image1_Click() Dim strF As String 搜索按钮 strF = select * from book where bookname like % & Text2.Text & % If QueryData(strF ) Then Set DataGrid1.DataSource = rst End If End Sub Private Sub MDIForm_Load() Text2.Text = If CnToDB = False Then MsgBox 网络未响应！出现此情况可能是与服务器没有物理连接或数据 库不在指向的服务器上！ , vbCritical + vbOKOnly, Connecting Error End If On Error GoTo fmerr If QueryData(select * from book) = True Then Set DataGrid1.DataSource = rst Else MsgBox 查询失败！ End If Exit Sub fmerr: 18 If rst.BOF = True And rst.EOF = True Then MsgBox 没有任何记录！ End If End Sub Private Sub mun_add_data_recstu_Click() addreader.Show End Sub Private Sub mun_borr_giv_Click() reback.Show End Sub Private Sub mun_borr_ow_Clic k() borrow.Show End Sub Private Sub mun_data_add_recbook_Click() addbook.Show End Sub Private Sub mun_del_book_Click() delbook.Show End Sub Private Sub mun_del_stu_Click() delreader.Show 19 End Sub Private Sub mun_exp_borrow_Clic k() booktran.Show End Sub Private Sub mun_exp_stu_Click() reader.Show End Sub Private Sub mun_help_about_Click() about.Show End Sub Private Sub mun_rework_book_Click() reworkbook.Show End Sub Private Sub mun_rework_stu_Click() reworkreader.Show End Sub Private Sub mun_sys_admin_Click() addmange.Show End Sub Private Sub mun_sys_sys_Click() 20 delmange.S how End Sub 数据管理 的实现 当单击 数据管理添加书籍记录 菜单时， 窗体如下： 代码如下： Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() On Error GoTo nore 21 If MsgBox(确实要添加吗？ , vbYesNo + vbQuestion,提示 ) = vbYes Then Call upD rst.Update MsgBox 添加成功 End If Exit Sub nore: MsgBox 图书编号重复或者输入错误！ , vbOKOnly + vbCritical, 提示 End Sub Private Sub Form_Load() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = On Error GoTo fmerr If QueryData(select * from book) = True Then 22 Else MsgBox 查询失败！ End If Exit Sub fmerr: If rst.BOF = True And rst.EOF = True Then MsgBox 没有任何记录！ End If End Sub Private Sub upD() rst.AddNew rst.Fields(0).Value = Text1.Text rst.Fields(1).Value = Text2.Text rst.Fields(2).Value = Text3.Text rst.Fields(3).Value = Text4.Text rst.Fields(4).Value = Text7.Text rst.Fields(5).Value = Text6.Text rst.Fields(6).Value = Text5.Text rst.Update End Sub 23 当单击 数据管理添加读者记录 菜单时，弹出如下代码： 添加 读者的 窗体 代码如下： Private Sub Command1_Click() On Error GoTo error If MsgBox(确实要添加吗？ , vbYesNo + vbQuestion, 提示 ) = vbYes Then Call upD1 rst.Update MsgBox 添加成功 End If Exit Sub error: 24 MsgBox 读者编号重复或者输入错误！ , vbOKOnly + vbCritical,提示 End Sub Private Sub Command2_Click() Unload Me End Sub Private Sub Form_Load() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = On Error GoTo fmerr If QueryData(select * from reader) = True Then Else MsgBox 查询失败！ End If Exit Sub fmerr: If rst.BOF = True And rst.EOF = True Then 25 MsgBox 没有任何记录！ End If End Sub Private Sub upD1() rst.AddNew rst.Fields(0).Value = Text1.Text rst.Fields(1).Value = Text2.Text rst.Fields(2).Value = Text3.Text rst.Fields(3).Value = Text4.Text rst.Fields(4).Value = Text5.Text rst.Update End Sub 当单击 数据管理修改更改书籍 菜单时， 窗体如下： 26 代码如下： Private Sub Command2_Click() On Error GoTo no Call upD2 rst.Update rst.MoveNext If rst.EOF Or rst.BOF Then rst.Move First End If Exit Sub no: MsgBox 修改成功 End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command5_Click() Dim strF As String strF = select * from book where bookid like % & Text1.Text & % 27 If QueryData(strF) Then Text2.Text = rst.Fields(bookname).Value Text3.Text = rst.Fields(booktype).Value Text4.Text = rst.Fields(bookprice).Value Text5.Text = rst.Fields(bookstate).Value Text6.Text = rst.Fields(bookpublish).Value Text7.Text = rst.Fields(bookintime).Value End If End Sub Private Sub Form_Load() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = End Sub Private Sub upD2() 28 rst.Fields(0).Value = Text1.Text rst.Fields(1).Value = Text2.Text rst.Fields(2).Value = Text3.Text rst.Fields(3).Value = Text4.Text rst.Fields(4).Value = Text5.Text rst.Fields(5).Value = Text6.Text rst.Fields(6).Value = Text7.Text End Sub 当单击 数据管理修改更改读者 菜单时， 窗体如下代码如下： Private Sub Command1_Click() Unload Me End Sub 29 Private Sub Command4_Click() On Error GoTo no Call upD3 rst.Update rst.MoveNext If rst.EOF Or rst.BOF Then rst.Move First End If Exit Sub no: MsgBox 修改成功 End Sub Private Sub Command5_Click() Dim strF1 As String strF1 = select * from reader where readerid like % & Text1.Text & % If QueryData(strF1) Then Text2.Text = rst.Fields(readername).Value Text3.Text = rst.Fields(readerage).Value Text4.Text = rst.Fields(readercity).Value 30 Text5.Text = rst.Fields(email).Value End If End Sub Private Sub Form_Load() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = End Sub Private Sub upD3() rst.Fields(0).Value = Text1.Text rst.Fields(1).Value = Text2.Text rst.Fields(2).Value = Text3.Text rst.Fields(3).Value = Text4.Text rst.Fields(4).Value = Text5.Text End Sub 当单击 数据管理删除删除书籍 菜单时， 窗体如下 31 代码如下： Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() On Error GoTo no Call upD2 rst.Update rst.MoveNext If rst.EOF Or rst.BOF Then rst.Move First End If Exit Sub 32 no: MsgBox 修改成功 End Sub Private Sub Command4_Click() If rst.EOF = True And rst.BOF = True Then MsgBox 没有数据！ Else rst.Delete rst.MoveFirst If rst.BOF Or rst.EOF Then MsgBox 没有数据 Call txtCls End If Call showDB End If End Sub Private Sub Command5_Click() Dim strF As String strF = select * from book where bookid like %& Text1.Text & % If QueryData(strF) Then 33 Text2.Text = rst.Fields(bookname).Value Text3.Text = rst.Fields(booktype).Value Text4.Text = rst.Fields(bookprice).Value Text5.Text = rst.Fields(bookstate).Value Text6.Text = rst.Fields(bookpublish).Value Text7.Text = rst.Fields(bookintime).Value End If End Sub Private Sub Form_Load() Call txtCls End Sub Private Sub upD2() rst.Fields(0).Value = Text1.Text rst.Fields(1).Value = Text2.Text rst.Fields(2).Value = Text3.Text rst.Fields(3).Value = Text4.Text rst.Fields(4).Value = Text5.Text rst.Fields(5).Value = Text6.Text rst.Fields(6).Value = Text7.Text End Sub Private Sub txtCls() 34 Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = Text6.Text = Text7.Text = End Sub Private Sub showDB() Text1.Text = rst.Fields(0).Value Text2.Text = rst.Fields(1).Value Text3.Text = rst.Fields(2).Value Text4.Text = rst.Fields(3).Value Text5.Text = rst.Fields(4).Value Text6.Text = rst.Fields(5).Value Text7.Text = rst.Fields(6).Value End Sub 当单击 数据管理删除删除读者 菜单时， 窗体如下 35 代码如下： Private Sub Command1_Click() Unload Me End Sub Private Sub Command2_Click() If rst.EOF = True And rst.BOF = True Then MsgBox 没有数据！ Else rst.Delete rst.MoveFirst If rst.BOF Or rst.EOF Then MsgBox 没有数据 36 Call txtCls End If Call showDB End If End Sub Private Sub Command3_Click() Unload Me End Sub Private Sub Command5_Click() Dim strF1 As String strF1 = select * from reader where readerid like % & Text1.Text & % If QueryData(strF1) Then Text2.Text = rst.Fields(readername).Value Text3.Text = rst.Fields(readerage).Value Text4.Text = rst.Fields(readercity).Value Text5.Text = rst.Fields(email).Value End If End Sub Private Sub Form_Load() 37 txtCls End Sub Private Sub txtCls() Text1.Text = Text2.Text = Text3.Text = Text4.Text = Text5.Text = End Sub Private Sub showDB() Text1.Text = rst.Fields(0).Value Text2.Text = rst.Fields(1).Value Text3.Text = rst.Fields(2).Value Text4.Text = rst.Fields(3).Value Text5.Text = rst.Fields(4).Value End Sub 当单击 记录浏览读者记录 菜单时， 窗体如下 38 代码如下： Private Sub Command1_Click() Dim strF As String If Combo1.Text = 编号 Then strF = select * from reader where readerid like % & Text1.Text & % If QueryData(strF) Then Set DataGrid1.DataSource = rst End If End If If Combo1.Text = 名字 Then strF = select * from reader where readername like % & Text1.Text & % 39 If QueryData(strF) Then Set DataGrid1.DataSource = rst End If End If If Combo1.Text = 城市 Then strF = select * from reader where readercity like % & Text1.Text & % If QueryData(strF) Then Set DataGrid1.DataSource = rst End If End If End Sub Private Sub Form_Load() Text1.Text = Combo1.AddItem 编号 Combo1.AddItem 名字 Combo1.AddItem 城市 If CnToDB = False Then MsgBox 网络未响应！出现此情况可能是与服务器没有物理连接或数据库不在指向的服务器上！ , vbCritical + vbOKOnly, Connecting Error End If On Error GoTo fmerr If QueryData(select * from reader) = True Then 40 Set DataGrid1.DataSource = rst Else MsgBox 查询失败！ End If Exit Sub fmerr: If rst.BOF = True And rst.EOF = True Then MsgBox 没有任何记录！ End If End Sub 当单击 记录浏览借阅记录 菜单时， 窗体如下 41 代码如下： Private Sub Command1_Click() Dim strF As String If Combo1.Text = 读者编号 Then strF = select * from booktran where readerid like % & Text1.Text & % If QueryData(strF) Then Set DataGrid1.DataSource = rst End If End If If Combo1.Text = 图书编号 Then strF = select * from booktran where bookid like % & Text1.Text & % If QueryData(strF) Then Set DataGrid1.DataSource = rst End If End If If Combo1.Text = 借阅日期 Then strF = select *from booktran where BorrowDate LIKE% & Text1.Text & % If QueryData(strF) Then Set DataGrid1.DataSource = rst End If End If If Combo1.Text = 归还日期 Then 42 strF = select * from booktran where returndate like % & Text1.Text & % If QueryData(strF) Then Set DataGrid1.DataSource = rst End If End If End Sub Private Sub Form_Load() Text1.Text = Combo1.AddItem 读者编号 Combo1.AddItem 图书编号 Combo1.AddItem 借阅日期 Combo1.AddItem 归还日期 If CnToDB = False Then MsgBox 网络未响