1、1信息系统开发与管理（PB）实训实训指导书图书信息管理系统中加高等应用技术学院2一、实训具体按排和要求1、实训对象：11，12 级计算机2、实训时间：19-20 周（64 学时）3、实训内容：开发图书信息管理系统4、实训目的：(1) 进一步熟悉 VB（PB）的集成开发环境，掌握 VB(PB)设计应用程序的主要步骤，从而加深对面向可视化对象编程方法的认识。(2) 了解并初步掌握用 VB(PB)开发应用程序界面、图形图像、数据库、多媒体等实用内容。(3) 通过实训巩固一学期来所学到的 VB（PB）知识，熟练掌握计算机操件技能，培养开发的思想，同时产生浓厚的兴趣，为今后进一步学习打下基础。5、实训要
2、求说明： 指导书给出的内容只是完成基本功能，其它功能请查阅相关参考书。 实训上机期间，每个学生都要按时按量独立完成实训的内容。如有违纪者，将取消其实训的上机资格，并且其实训成绩当零分处理。 实训期间要严格按照实训报告格式要求认真书写实训报告（电子档与手写稿（或打印稿） ） ，实训结束后将实训作品和实训报告一起上交指导老师批改、评分。实训后期，将酌情安排现场测试与答辩，并将此项分数按一定比例打 4入实训成绩总评。3二、实训报告（设计说明书）书写的格式要求1、实训报告封面要依次填写设计的科目、题目、专业、班级、姓名、学号、日期、指导老师等项目。2、报告内页书写的具体内容应包含以下几个方面：1）实训
3、名称：即实训题目。2）实训目的：即通过本次实训要得到哪些方面的主要训练，将学会掌握哪些相关专业技能。3）实训环境：既设备（硬件、系统平台） 、开发工具、方法手段等。4）实训计划：做出本次实训的总体计划并制定出实施计划的具体步骤（可按完成功能模块来划分）及进度安排，列出时间表。5）关键技术与解决途径：本次实训的技术要点（可按实训计划里制定的具体步骤一一编写） ，并要求写出如何解决这些技术要点（要求编写源代码并附上代码说明，必要时请附上截图） 。6）自我评价：即总结本次实训的个人心得体会。包括对这次实训任务完成情况的评价；实训的收获与预期目标是否一致的评价以及对实训组织、安排、管理等方面的评价。这
4、部分不仅要求写出问题，更希望写出你的建议。三、实训成绩的评定标准指导老师根据学生实训期间的表现、实训内容的完成情况以及所写的实训报告（设计说明书）给予该生优、良、中、及格、不及格等综合评定等级，并作为该实训课程的期评成绩上报成绩。四、本次实训的具体内容:图书信息管理系统系统功能分析： 读者基本信息的输入 读者基本信息的查询（要求能按读者编号进行查询）4 读者基本信息的修改 图书信息的输入 图书信息的修改 借阅信息的查询（要求能根据人来查书、根据书来查人） 读者借书 读者还书以下是附加的功能：（选做） 根据读者姓名来查询读者信息 根据书名来查询图书信息 利用新窗口来修改读者信息和图书信息系统功能
5、模块：一、图书信息管理系统功能介绍1主界面显示所有图书 查询单册 增加新书 删除图书 根据书来查人根据人来查书显示所有借阅情况 借书 还书查询一个读者 增加一个读者 删除一个读者显示所有读者读者管理 图书管理 借阅管理图书管理系统5图 1程序运行后主界面的效果如图 1 所示。可以看到，窗体的上部是菜单栏，包含 3 个菜单项，即：读者管理、图书管理和借阅管理。2读者管理选择菜单“读者管理” ，如图 2 所示，该菜单项中有 4 个子菜单项：显示所有读者、查询一个读者、增加一个读者和删除一个读者。选择菜单“读者管理显示所有读者” ，则在主界面的数据表格中列出所有的读者信息，如图 3 所示。选择菜单“
6、读者管理查询一个读者” ，弹出对话框如图 4 所示，要求输入要查询的读者编号信息。输入读者编号后单击“查询”按钮，则在主界面的数据表格中列出该读者的信息；否则，系统提示用户“查无此人” 。选择菜单“读者管理增加一个读者” ，弹出对话框如图 5 所示，要求输入读者编号和读者姓名，输入完整的信息后单击保存按钮，系统判断是否可以向数据库中添加该读者信息，如果添加成功，则在主界面的数据表格中列出数据库中所有的读者信息。选择菜单“读者管理删除一个读者” ，弹出对话框如图 6 所示，要求输入读者编号，输入完整的信息后单击“删除”按钮，若该删除操作成功，则在主界面的数据表格中显示剩余的所有读者信息。图 26
7、图 3 图 4图 5 图 63图书管理选择菜单“图书管理” ，如图 7 所示，该菜单项中有 4 个子菜单项：显示所有图书、查询单册、增加新书和删除图书。该菜单项功能与读者管理部分类似，在此不再重复。4借阅管理选择菜单“借阅管理” ，如图 8 所示。该菜单项中有 5 个子菜单项：显示所有借阅情况、借书、还书、根据书来查人和根据人来查书。7图 7 图 8选择菜单“借阅管理显示所有借阅情况” ，则在主界面的数据表格中显示所有的借阅记录。选择菜单“借阅管理借书” ，弹出对话框如图 9 所示，要求用户输入所借图书编号和读者编号。输入完整的信息后单击“借书”按钮，如果借书成功，则在主界面的数据表格中列出当
8、前读者的借阅情况。选择菜单“借阅管理还书” ，弹出对话框如图 10 所示，要求输入所借图书编号，输入完整的信息后单击“还书”按钮，如果还书成功，则在主界面的数据表格中列出当前读者还书后的借阅情况。图 9 图 10选择菜单“借阅管理根据人来查书” ，弹出对话框如图 11 所示，要求输入读者编号，输入完整的信息后单击“查询”按钮，如果查询操作成功，则在主界面的数据表格中列出当前读者所有的借阅情况。选择菜单“借阅管理根据书来查人” ，弹出对话框如图 12 所示，系统显示相应的信息提示，如果查询操作成功，则在主界面的数据表格中列出当前图书的借阅情况。8图 11 图 12二、创建数据库打开 Access
9、，建立一个名为 bookdb 的数据库，数据库中有两张数据表：book、borrow 和 reader 。三张表的字段信息如下:表 1 book 表项内容字段名称 数据类型 字段大小bookid 文本 15bookname 文本 100bookstate 文本 4（将 bookid 字段设为主键）表 2 borrow 表项内容字段名称 数据类型 字段大小bookid 文本 15readerid 文本 15（将 bookid 字段设为主键）表 3 reader 表项内容字段名称 数据类型 字段大小readerid 文本 15readername 文本 20booknum 文本 4（将 reade
10、rid 字段设为主键）三、创建数据源(ODBC)基于 SQL 的 ODBC（Open DataBase Connectivity，开放式数据库连接）是Microsoft 公司在 1989 年退出的连接外部数据库的标准，若采用这套标准，一个应用程9序就可以通过一组通用的代码访问不同的数据库管理系统。在 Windows XP 操作系统环境下，本实例的 ODBC 设置步骤如下：1 进入“控制面板管理工具” ，双击“数据源（ODBC） ”，出现“ODBC 数据源管理器” ，如图 13 所示。图 13 图 142 单击“添加”按钮，出现创建数据源对话框，如图 14 所示。3 选择“Driver Do M
11、icrosoft Access (*.mdb)”，单击完成按钮，出现 ODBC Microsoft Access 安装对话框，如图 15 所示，在数据源一项中输入“book” 。4 单击“选择”按钮，出现选择数据库对话框，如图 16 所示，首先选择数据库所在的驱动器，然后在目录中选择数据库的路径，这样在“数据库名”一栏中就会列出相应的 Access 数据库，然后单击选定数据库“bookdb” 。图 15 图 165 单击确定按钮，系统自动返回 ODBC 数据源管理器，数据源“book”创建成功。四、图书管理系统实现该图书管理系统的工程名称为 BookManSys.vbp，该工程包含所有文件如图
12、 17 所示。10图 171新建工程新建工程，并在工程资源管理器中将工程名称属性改为：BookManSys.vbp。选择菜单“工程部件” ，从控件列表中选中如下选项：Microsoft ADO Data Control 6.0 (OLEDB)Microsoft DataGrid Control 6.0 (OLEDB)(1) 在“工程资源管理器”窗口中单击鼠标右键，选择“添加添加模块” 。单击打开按钮，然后在该模块的“代码编辑窗口”中添加代码如下：Public ActFlag As Boolean2FrmMain 窗体FrmMain 窗体的设计步骤如下：(2) 选中“Form1”窗体，将该窗体的
13、 “名称”属性改为“frmMain” ， “Caption”属性改为“图书管理系统” 。在窗体上设计一个菜单，该菜单结构见表 4。(3) 在窗体上添加一个框架控件（Frame） ，将其“Caption ”属性删除， “BorderStyle”属性选择“0None” 。在 Fram1 中添加一个数据表格（DataGrid） ，将其“名称”属性设置为“DataGrid” ， “Visible”属性设置为 False。(4) 向窗体中添加两个 ADO 数据控件（Adodc） ，将“Adodc1”的“名称”属性设置为“Adodc”，将“Adodc2 ”的“名称”属性设置为“AdodcTemp” ， “
14、Visible”属性均设置为 False。这两个控件属性列表中的“ConnectionString”属性值均按如下方法11设置。(5) 单击 ，弹出属性页对话框，如图 18 所示。(6) 单击“生成”按钮，进入“数据链接属性”对话框，如图 19 所示。图 18 图 19(7) 选择“Microsoft OLE DB Provider for ODBC Drivers”，单击“下一步”按钮，由“提供者”选项卡跳到“连接”选项卡，如图 20 所示。选中“使用数据源名称” ，在该项下拉列表中选择“book” ，然后单击“确定”按钮，系统自动回到属性页对话框，单击确定按钮即可。图 20(8) 进入 f
15、rmMain 窗体的代码视图，添加如下代码：12Public Sub DisplayGrid(CaptionStr As String)将临时 ADO 数据控件中的 RecordSource 属性赋值给和数据表格相连的 ADO 数据控件Adodc.RecordSource = AdodcTemp.RecordSourceAdodc.Refresh将数据表格绑定到 ADO 数据控件Set DataGrid.DataSource = AdodcDataGrid.Refresh修改数据表格的标题DataGrid.Caption = CaptionStr将数据表格设置为用户可见DataGrid.Vis
16、ible = TrueEnd Sub表 4 菜单结构设置菜单项 名称读者管理 ReaderMan.显示所有读者 DispAllReader.查询一个读者 FindOneReader.增加一个读者 AddReader.删除一个读者 DelReader图书管理 BookMan.显示所有图书 DispAllBook.查询单册 FindOneBook.增加新书 AddBook.删除图书 DelBook借阅管理 BorrowMan.显示所有借阅情况 DispAllBor.借书 Borrow.还书 Return.根据人来查书 ReaderToBook.根据书来查人 BookToReader133显示所有读
17、者(9) 选择菜单“读者管理显示所有读者” ，在代码编辑窗口中添加以下代码：Private Sub DispAllReader_Click()Dim RecCount As Integer从数据库表“reader“ 中查找所有的读者记录AdodcTemp.RecordSource = “select readerid as “ & “ 读者编号“ & _“, readername as “ & “ 读者姓名 “ & “,booknum as “ & “借阅图书册数“ _& “ from reader “AdodcTemp.RefreshRecCount = AdodcTemp.Recordse
18、t.RecordCount如果查到的记录数 0，则显示所有读者信息，否则提示“未查到任何读者记录“，然后显示一个空的数据表格。If RecCount 0 ThenDisplayGrid (“显示所有读者“)ElseMsgBox “未查到任何读者记录！“, , “提示“DisplayGrid (“显示所有读者“)Exit SubEnd IfEnd Sub4查询一个读者(10)选择菜单“读者管理查询一个读者” ，在代码编辑窗口中添加以下代码：Private Sub FindOneReader_Click()Dim RecCount As Integer将标志变量置为假ActFlag = False
19、显示查询一个读者窗体frmFindOneReader.Show vbModal14若是在查询一个读者窗体中已经将 ActFlag 修改为 True 时，则查看所查到的记录条数，如果查到的记录条数 0 时，刷新数据表格，显示查询结果If ActFlag ThenRecCount = AdodcTemp.Recordset.RecordCountIf RecCount 0 ThenDisplayGrid (“查询一个读者“)End IfEnd IfActFlag = FalseEnd Sub(11)为工程添加一个新的窗体，将新窗体的“名称”属性改为“frmFindOneReader” ，“Capt
20、ion”属性改为“查询一个读者” 。(12)在窗体上添加一个框架控件（Frame）和一个 ADO 数据控件（ Adodc） ，在 Frame1中添加一个命令按钮（CommandButton） 、一个标签（Label）和一个文本框（TextBox） 。(13)修改 frmFindOneReader 窗体控件的属性，见表 5。表 5 frmFindOneReader 窗体控件属性控件名称 属性名称 属性设置值Frame1 Caption 输入查询条件Label1 Caption 读者编号名称 TxtReaderidText1Text名称 CmdFindCommand1Caption 查询名称 Ad
21、odcAdodc1Visible False(14)根据 frmMain 主界面中设置 Adodc 控件的方法来设置本窗体的 Adodc 的属性，完成以上操作后 frmFindOneReader 窗体的效果如图 21 所示。15图 21(15)双击“查询”按钮，在代码编辑窗口中添加以下代码：Private Sub CmdFind_Click()Dim RecCount As Integer判断用户是否输入了读者编号信息，如果没有输入信息，则发出提示退出子程序If Trim(TxtReaderid.Text) = “ ThenMsgBox “查询条件不能为空，请填写！“, , “提示“Exit
22、SubEnd If根据读者编号查询读者信息Adodc.RecordSource = “select readerid as “ & “ 读者编号 “ _& “, readername as “ & “ 读者姓名“ & “,booknum as “ _& “借阅图书册数“ & “ from reader where readerid= “ & “ _& Trim(TxtReaderid.Text) & “Adodc.Refresh如果查到该读者信息则释放当前窗体，回到主界面在数据表格上显示查到的读者信息RecCount = Adodc.Recordset.RecordCountIf RecCou
23、nt 0 ThenfrmMain.AdodcTemp.RecordSource = “select readerid as “ _& “ 读者编号“ & “, readername as “ & “ 读者姓名“ _& “,booknum as “ & “借阅图书册数“ _& “ from reader where readerid= “ _& “ & Trim(TxtReaderid.Text) & “frmMain.AdodcTemp.Refresh将标志变量置为真ActFlag = TrueUnload MeElse如果没有查到该读者的信息则发出提示，退出子程序MsgBox “查无此人！“
24、, , “提示“Exit SubEnd If16End Sub5增加一个读者(16)选择菜单“读者管理增加一个读者” ，在代码编辑窗口中添加以下代码：Private Sub AddReader_Click()将标志变量置为假ActFlag = False显示增加一个读者窗体frmAddReader.Show vbModalIf ActFlag Then如果需要刷新数据表格，则显示所有读者信息DispAllReader_ClickEnd IfActFlag = FalseEnd Sub(17)为工程添加一个新的窗体，讲窗体的名称属性改为“frmAddReader” ，Caption 属性改为“增
25、加一个读者” 。(18)在窗体上添加一个框架控件（Frame） ，然后在 Frame1 中添加一个命令按钮，两个标签，两个文本框和一个 ADO 数据控件（Adodc） 。(19)修改 frmAddReader 窗体控件的属性，见表 6。表 6 frmAddReader 窗体控件属性控件名称 属性名称 属性设置值Frame1 Caption 输入数据Label1 Caption 读者编号Label2 Caption 读者姓名Text Text1名称 TxtReaderidTextText2名称 TxtReaderName名称 CmdSave Command1Caption 保存17名称 Adod
26、cAdodc1Visible False(20)运用 frmMain 主界面中设置 Adodc 的方法来设置本窗体的 Adodc，完成后的frmAddReader 窗体效果如图 22 所示。图 22(21)双击“保存”按钮，在代码编辑窗口中添加以下代码：Private Sub CmdSave_Click()Dim RecCount As Integer判断是否输入了读者编号和读者姓名，如果没有输入信息，则发出提示并退出子程序If Trim(TxtReaderid.Text) = “ Or Trim(TxtReaderName.Text) = “ ThenMsgBox “请将内容填写完整！“,
27、, “提示“Exit SubEnd If根据读者编号信息查找该读者是否已经存在Adodc.RecordSource = “select * from reader where readerid=“ _& “ & Trim(TxtReaderid.Text) & “Adodc.Refresh如果该读者已经存在，则发出提示，并退出子程序RecCount = Adodc.Recordset.RecordCountIf RecCount 0 ThenMsgBox “已经存在此读者编号，请重新设置！“, , “提示“Exit SubEnd If向数据库表“book“中添加新的读者记录Adodc.Reco
28、rdSource = “select * from reader“18Adodc.RefreshAdodc.Recordset.AddNewAdodc.Recordset.Fields(“readerid“) = Trim(TxtReaderid.Text)Adodc.Recordset.Fields(“readername“) = Trim(TxtReaderName.Text)Adodc.Recordset.Fields(“booknum“) = 0Adodc.Recordset.UpdateAdodc.Refresh将标志变量置为真ActFlag = TrueUnload MeEnd S
29、ub6删除一个读者(22)选择菜单“读者管理删除一个读者” ，在代码编辑窗口中添加以下代码：Private Sub DelReader_Click()将标志变量置为假ActFlag = False显示删除一个读者窗体frmDelReader.Show vbModal判断是否需要刷新数据表格，如果需要则在主界面的数据表格中显示所有的读者信息If ActFlag ThenDispAllReader_ClickEnd IfActFlag = FalseEnd Sub(23)为工程添加一个新的窗体，将新窗体的“名称”属性改为“frmDelReader” ，“Caption”属性改为“删除一个读者” 。
30、(24)在窗体 上添加一个框架控件（Frame） ，在 Frame1 中添加一个命令按钮、一个标签、一个文本框和一个 ADO 数据控件。(25)修改 frmDelReader 窗体控件的属性，见表 7。表 7 FrmDelReader 窗体控件属性19控件名称 属性名称 属性设置值Frame1 Caption 输入编号Label1 Caption 读者编号名称 TxtReaderidText1Text名称 CmdDelCommand1Caption 删除名称 AdodcAdodc1Visibel False(26)运用 frmMain 主界面中设置 Adodc 的方法来设置本窗体的 Adodc
31、，完成后的frmDelReader 窗体效果如图 22 所示。图 22(27)双击“删除”按钮，在代码编辑窗口中添加以下代码：Private Sub CmdDel_Click()Dim RecCount As Integer判断是否输入了读者编号信息，如果没有输入则发出提示并退出子程序If Trim(TxtReaderid.Text) = “ ThenMsgBox “请填入编号信息！“, , “提示“Exit SubEnd If根据读者编号查找读者信息Adodc.RecordSource = “select * from reader where readerid=“ _& “ & Trim(
32、TxtReaderid.Text) & “Adodc.Refresh如果没有该读者信息则提示“查无此人！“ 信息，退出子程序RecCount = Adodc.Recordset.RecordCountIf RecCount 0 ThenMsgBox “此人有书未归还，故不能删除！“, , “提示“Exit SubEnd If从数据库表“reader“ 中找到该读者记录，删除Adodc.RecordSource = “select * from reader where readerid=“ _& “ & Trim(TxtReaderid.Text) & “Adodc.RefreshAdodc.
33、Recordset.DeleteAdodc.Refresh将标志变量置为真ActFlag = TrueUnload MeEnd Sub7显示所有图书(28) 选择菜单 “图书管理显示所有图书”，在代码编辑窗口中添加以下代码：Private Sub DispAllBook_Click()Dim RecCount As Integer从数据库表“book“中查找所有的图书记录AdodcTemp.RecordSource = “select bookid as “ _21& “ 图书编号“ & “, bookname as “ & “ 图书名称 “ _& “,bookstate as “ & “此书
34、是否已借出“ & “ from book “AdodcTemp.Refresh如果查到的记录数 0 则刷新数据表格显示查到的图书信息，否则提示“未查到任何图书记录！“信息并刷新数据表格显示空表RecCount = AdodcTemp.Recordset.RecordCountIf RecCount 0 ThenDisplayGrid (“显示所有图书“)ElseMsgBox “未查到任何图书记录！“, , “提示“DisplayGrid (“显示所有图书“)Exit SubEnd IfEnd Sub8查询单册(29) 选择菜单“图书管理查询单册” ，在代码编辑窗口中添加以下代码：Private
35、 Sub FindOneBook_Click()Dim RecCount As Integer将标志变量置为假ActFlag = False显示查询单册窗体frmFindOneBook.Show vbModal判断是否需要刷新数据表格If ActFlag ThenRecCount = AdodcTemp.Recordset.RecordCountIf RecCount 0 ThenDisplayGrid (“查询单册“)End IfEnd IfActFlag = False22End Sub(30) 为工程添加一个新的窗体，将新窗体”(名称)”属性改为”frmFindOneBook”， ”ca
36、ption”属性改为“查询单册” 。(31) 在窗体添加一个框架控件(Frame)和一个 ADO 数据控件(Adodc),在” Frame1”中添加一个命令按钮(CommandButton) 、一个标签(label) 和一个文本框(textbox)。(32) 修改 frmFindOneBook 窗体控件的属性如表 8 所示：表 8 frmFindOneBook 窗体控件属性控件名称 属性名称 属性设置值Frame1 Caption 输入查询条件label Caption 图书编号名称 txtbookidText1text名称 CmdfindCommand1Caption 查询名称 AdodcA
37、dodc1visible false(33) 根据“frmMain ”主界面中的设置“Adodc”的方法来设置本窗体的 “Adodc”的“connectionstring”属性。(34) 双击“查询”按钮，在代码编译窗口中添加以下代码：Private Sub CmdFind_Click()Dim RecCount As Integer判断是否输入了图书编号，如果没有输入信息，则发出提示，并退出子程序If Trim(TxtBookid.Text) = “ ThenMsgBox “查询条件不能为空，请填写！“, , “提示“Exit SubEnd If根据图书编号查找该图书信息Adodc.Reco
38、rdSource = “select bookid as “ & “ 图书编号“ _& “, bookname as “ & “ 图书名称“ & “, bookstate as “ _& “ 此书是否已借出 “ & “ from book where bookid= “ & “ _& Trim(TxtBookid.Text) & “Adodc.Refresh如果查到的记录数 0，则返回主界面在数据表格中显示查到的图书信息RecCount = Adodc.Recordset.RecordCount23If RecCount 0 ThenfrmMain.AdodcTemp.RecordSource
39、 = “select bookid as “ _& “ 图书编号“ & “, bookname as “ & “ 图书名称“ _& “, bookstate as “ & “ 此书是否已借出 “ _& “ from book where bookid= “ & “ & Trim(TxtBookid.Text) _& “frmMain.AdodcTemp.RefreshActFlag = TrueUnload MeElse若没查到该图书信息，则提示“查无此书！“ 信息，退出子程序MsgBox “查无此书！“, , “提示“Exit SubEnd IfEnd Sub9添加新书(35) 选择菜单“图
40、书管理增加新书” ，在代码编辑窗口中添加以下代码：Private Sub AddBook_Click()将标志变量置为假ActFlag = False显示增加新书窗体frmAddBook.Show vbModal判断如果需要刷新数据表格，则在主界面中显示所有的图书信息If ActFlag ThenDispAllBook_ClickEnd IfActFlag = FalseEnd Sub(36) 为工程添加一个新的窗体，将新窗体“(名称) ”属性改为 “frmAddBook”，“caption”属性改为“增加新书” 。(37) 在窗体上添加一个框架控件(frame)，在“frame1”中添加一个
41、命令按钮24(commandbutton)、两个标签(label)、两个文本框(textbox)和一个 ADO 数据控件(Adodc)，如下表所示：控件名称 属性名称 属性设置值Frame1 Caption 输入数据Label1 Caption 图书编号Label2 Caption 图书名称名称 txtbookidText1text名称 txtbooknameText2text名称 CmdsaveCommand1Caption 保存名称 AdodcAdodc1visible false(38) 根据”frmMain” 主界面中的设置 “Adodc”的方法来设置本窗体的“Adodc”的“conn
42、ectionstring”属性。(39) 双击“保存”按钮，在代码编辑窗口中添加以下代码：Private Sub CmdSave_Click()Dim RecCount As Integer判断是否输入了图书编号和图书名称信息，如果没有输入则发出提示并退出子程序If Trim(TxtBookid.Text) = “ Or Trim(TxtBookName.Text) = “ ThenMsgBox “请将内容填写完整！“, , “提示“Exit SubEnd If根据图书编号查找是否存在该图书记录，如果存在，则提示“已经存在此图书编号，请重新设置！“则提示退出子程序Adodc.RecordSou
43、rce = “select * from book where bookid=“ & “ & Trim(TxtBookid.Text) & “Adodc.RefreshRecCount = Adodc.Recordset.RecordCountIf RecCount 0 ThenMsgBox “已经存在此图书编号，请重新设置！“, , “提示“25Exit SubEnd If在数据库表“book“中添加该新书记录Adodc.RecordSource = “select * from book“Adodc.RefreshAdodc.Recordset.AddNewAdodc.Recordset.
44、Fields(“bookid“) = Trim(TxtBookid.Text)Adodc.Recordset.Fields(“bookname“) = Trim(TxtBookName.Text)Adodc.Recordset.Fields(“bookstate“) = “否“Adodc.Recordset.UpdateAdodc.Refresh将标志变量置为真ActFlag = TrueUnload MeEnd Sub10删除图书(40) 选择菜单“图书管理删除图书“，在代码编辑窗口中添加以下代码：Private Sub DelBook_Click()将标志变量置为假ActFlag = Fa
45、lse显示删除图书窗体frmdelbook.Show vbModal判断是否需要刷新数据表格，如果需要的话则在数据表格中显示所有的图书记录If ActFlag ThenDispAllBook_ClickEnd IfActFlag = FalseEnd Sub(41) 为工程添加一个新的窗体，将新窗体“(名称) ”属性改为 “frmdelbook”,26“caption”属性改为“删除图书” 。(42) 在窗体上添加一个框架控件(Frame),在”Frame1”中添加一个命令按钮(commandbutton)、一个标签(label)、一个文本框(textbox)和一个 ADO 数据控件(Adod
46、c),如下表所示：控件名称 属性名称 属性设置值Frame1 Caption 输入编号Label1 Caption 图书编号名称 txtbookidText1Text名称 CmddelCommand1Caption 删除名称 AdodcAdodc1visible false(43) 根据“frmMain ”主界面中的设置“Adodc”的方法来设置本窗体的 “Adodc”的“connectionstring”属性，完成以上操作后 frmDelBook 窗体效果如下图所以：(44) 双击“删除”按钮，在代码编辑窗口中添加以下代码：Private Sub CmdDel_Click()Dim RecC
47、ount As Integer判断是否输入图书编号，如果没有输入数据，则发出提示并退出子程序If Trim(TxtBookid.Text) = “ ThenMsgBox “请填入编号信息！“, , “提示“Exit SubEnd If根据图书编号从数据库表“book“中查找该图书的记录。Adodc.RecordSource = “select * from book where bookid=“ _& “ & Trim(TxtBookid.Text) & “Adodc.RefreshRecCount = Adodc.Recordset.RecordCount如果没有该图书的信息，则提示“查无此
48、书！“ 信息，退出子程序If RecCount 0 Then如果查到的记录数 0，则在数据表格中显示所有的借阅记录DisplayGrid (“显示所有借阅情况“)Else否则，提示“没有任何借阅记录！ “信息并显示一个空表28MsgBox “没有任何借阅记录！“, , “提示“DisplayGrid (“显示所有借阅情况“)Exit SubEnd IfEnd Sub12借书(46) 选择菜单“借阅管理借书” ，在代码编辑窗口中添加以下代码：Private Sub Borrow_Click()Dim RecCount As Integer将标志变量置为假ActFlag = False显示借书窗体frmborrow.Show vbModal判断是否需要刷新数据表格，如果需要则显示刚才借书读者的借阅记录If ActFlag ThenRecCount = AdodcTemp.Recordset.RecordCountIf RecCount 0 ThenDisplayGrid (“此人借阅记录“)End IfEnd IfActFlag = FalseEnd Sub(47) 为工程添加一个新的窗体，将新窗体”(名称)”属性改为”Frmborrow”， ”Caption”属性改为“借书” 。(48) 在窗体上添加一个框架控件(
