图书信息管理系统实训指导书

1、VB实训指指导书 图书信信息管理理系统广西机电职职业技术术学院一、实训周周的具体体按排和和要求1、实训对对象：007级电子子商务专专业学生生2、实训时时间：11周3、实训内内容：开开发图书书信息管管理系统统4、实训目目的：(1) 进进一步熟熟悉 VVB的集集成开发发环境，掌掌握VBB设计应应用程序序的主要要步骤，从从而加深深对面向向可视化化对象编编程方法法的认识识。(2) 了了解并初初步掌握握用VBB开发应应用程序序界面、图图形图像像、数据据库、多多媒体等等实用内内容。(3) 通通过实训训巩固一一学期来来所学到到的VBB知识，熟熟练掌握握计算机机操件技技能，培培养开发发的思想想，同时时产生浓浓

2、厚的兴兴趣，为为今后进进一步学学习打下下基础。5、实训要要求说明明： 指导书书给出的的内容只只是完成成基本功功能，其其它功能能请查阅阅相关参参考书。 实训上上机期间间，每个个学生都都要认真真听从指指导老师师及实验验老师的的指挥，按按时按量量独立完完成实训训的内容容。如有有违纪者者，将取取消其实实训的上上机资格格，并且且其实训训成绩当当零分处处理。 实训期期间要严严格按照照实训报报告格式式要求认认真书写写实训报报告（电电子档与与手写稿稿（或打打印稿），实实训结束束后将实实训作品品和实训训报告一一起上交交指导老老师批改改、评分分。 eq oac(,4) 实训后后期，将将酌情安安排现场场测试与与答辩

3、，并并将此项项分数按按一定比比例打入入实训成成绩总评评。二、实训报报告（设设计说明明书）书书写的格格式要求求1、实训报报告封面面要依次次填写设设计的科科目、题题目、专专业、班班级、姓姓名、学学号、日日期、指指导老师师等项目目。2、报告内内页书写写的具体体内容应应包含以以下几个个方面：实训名称：即实训训题目。实训目的：即通过过本次实实训要得得到哪些些方面的的主要训训练，将将学会掌掌握哪些些相关专专业技能能。实训环境：既设备备（硬件件、系统统平台）、开开发工具具、方法法手段等等。实训计划：做出本本次实训训的总体体计划并并制定出出实施计计划的具具体步骤骤（可按按完成功功能模块块来划分分）及进进度安排

4、排，列出出时间表表。关键技术与与解决途途径：本本次实训训的技术术要点（可可按实训训计划里里制定的的具体步步骤一一一编写），并并要求写写出如何何解决这这些技术术要点（要要求编写写源代码码并附上上代码说说明，必必要时请请附上截截图）。自我评价：即总结结本次实实训的个个人心得得体会。包包括对这这次实训训任务完完成情况况的评价价；实训训的收获获与预期期目标是是否一致致的评价价以及对对实训组组织、安安排、管管理等方方面的评评价。这这部分不不仅要求求写出问问题，更更希望写写出你的的建议。三、实训成成绩的评评定标准准指导老师根根据学生生实训期期间的表表现、实实训内容容的完成成情况以以及所写写的实训训报告（设

5、设计说明明书）给给予该生生优、良良、中、及及格、不不及格等等综合评评定等级级，并作作为该实实训课程程的期评评成绩上上报成绩绩。四、本次实实训的具具体内容容:图书书信息管管理系统统系统功能分分析：读者基本信信息的输输入读者基本信信息的查查询（要要求能按按读者编编号进行行查询）读者基本信信息的修修改图书信息的的输入图书信息的的修改借阅信息的的查询（要要求能根根据人来来查书、根根据书来来查人）读者借书读者还书以下是附加加的功能能：（选选做）根据读者姓姓名来查查询读者者信息根据书名来来查询图图书信息息利用新窗口口来修改改读者信信息和图图书信息息显示所有图书显示所有图书查询单册增加新书删除图书根据书来查

6、人根据人来查书显示所有借阅情况借书还书查询一个读者增加一个读者删除一个读者显示所有读者读者管理图书管理借阅管理图书管理系统系统功能模模块： 一、图书信信息管理理系统功功能介绍绍1主界面面图1 程序运行后后主界面面的效果果如图11所示。可可以看到到，窗体体的上部部是菜单单栏，包包含3个个菜单项项，即：读者管管理、图图书管理理和借阅阅管理。2读者管管理选择菜单单“读者管管理”，如图图2所示示，该菜菜单项中中有4个个子菜单单项：显显示所有有读者、查查询一个个读者、增增加一个个读者和和删除一一个读者者。选择菜单单“读者管管理显示所所有读者者”，则在在主界面面的数据据表格中中列出所所有的读读者信息息，如

7、图图3所示示。选择菜单单“读者管管理查询一一个读者者”，弹出出对话框框如图44所示，要要求输入入要查询询的读者者编号信信息。输输入读者者编号后后单击“查询”按钮，则则在主界界面的数数据表格格中列出出该读者者的信息息；否则则，系统统提示用用户“查无此此人”。选择菜单单“读者管管理增加一一个读者者”，弹出出对话框框如图55所示，要要求输入入读者编编号和读读者姓名名，输入入完整的的信息后后单击保保存按钮钮，系统统判断是是否可以以向数据据库中添添加该读读者信息息，如果果添加成成功，则则在主界界面的数数据表格格中列出出数据库库中所有有的读者者信息。选择菜单单“读者管管理删除一一个读者者”，弹出出对话框框

8、如图66所示，要要求输入入读者编编号，输输入完整整的信息息后单击击“删除”按钮，若若该删除除操作成成功，则则在主界界面的数数据表格格中显示示剩余的的所有读读者信息息。 图2 图3 图4图5 图图63图书管管理选择菜单单“图书管管理”，如图图7所示示，该菜菜单项中中有4个个子菜单单项：显显示所有有图书、查查询单册册、增加加新书和和删除图图书。该该菜单项项功能与与读者管管理部分分类似，在在此不再再重复。4借阅管管理选择菜单单“借阅管管理”，如图图8所示示。该菜菜单项中中有5个个子菜单单项：显显示所有有借阅情情况、借借书、还还书、根根据书来来查人和和根据人人来查书书。图7 图图8选择菜单单“借阅管管

9、理显示所所有借阅阅情况”，则在在主界面面的数据据表格中中显示所所有的借借阅记录录。选择菜单单“借阅管管理借书”，弹出出对话框框如图99所示，要要求用户户输入所所借图书书编号和和读者编编号。输输入完整整的信息息后单击击“借书”按钮，如如果借书书成功，则则在主界界面的数数据表格格中列出出当前读读者的借借阅情况况。选择菜单单“借阅管管理还书”，弹出出对话框框如图110所示示，要求求输入所所借图书书编号，输输入完整整的信息息后单击击“还书”按钮，如如果还书书成功，则则在主界界面的数数据表格格中列出出当前读读者还书书后的借借阅情况况。 图99 图图10选择菜单单“借阅管管理根据人人来查书书”，弹出出对话

10、框框如图111所示示，要求求输入读读者编号号，输入入完整的的信息后后单击“查询”按钮，如如果查询询操作成成功，则则在主界界面的数数据表格格中列出出当前读读者所有有的借阅阅情况。选择菜单单“借阅管管理根据书书来查人人”，弹出出对话框框如图112所示示，系统统显示相相应的信信息提示示，如果果查询操操作成功功，则在在主界面面的数据据表格中中列出当当前图书书的借阅阅情况。 图11 图图12二、创建数数据库打开Acccesss，建建立一个个名为bbookkdb的的数据库库，数据据库中有有两张数数据表：boook、bborrrow和和reaaderr 。三三张表的的字段信信息如下下:表1 bbookk表项

11、内内容字段名称数据类型字段大小bookiid文本15booknnamee文本100booksstatte文本4（将boookidd字段设设为主键键）表2 borrroww表项内内容字段名称数据类型字段大小bookiid文本15readeeridd文本15（将boookidd字段设设为主键键）表3 rreadder表表项内容容字段名称数据类型字段大小readeeridd文本15readeernaame文本20booknnum文本4（将reaaderrid字字段设为为主键）三、创建数数据源(ODBBC)基于SQQL的OODBCC（Oppen DattaBaase Connnecctivvityy，

12、开放放式数据据库连接接）是MMicrrosooft公公司在119899年退出出的连接接外部数数据库的的标准，若若采用这这套标准准，一个个应用程程序就可可以通过过一组通通用的代代码访问问不同的的数据库库管理系系统。在Winndowws XXP操作作系统环环境下，本本实例的的ODBBC设置置步骤如如下：进入“控制制面板管理工工具”，双击击“数据源源（ODDBC）”，出现“ODBC数据源管理器”，如图13所示。 图13 图144单击“添加加”按钮，出出现创建建数据源源对话框框，如图图14所所示。选择“Drriveer DDo MMicrrosooft Acccesss (*.mddb)”，单击击完成

13、按按钮，出出现ODDBC Miccrossoftt Acccesss安装装对话框框，如图图15所所示，在在数据源源一项中中输入“boook”。单击“选择择”按按钮，出出现选择择数据库库对话框框，如图图16所所示，首首先选择择数据库库所在的的驱动器器，然后后在目录录中选择择数据库库的路径径，这样样在“数据库库名”一栏中中就会列列出相应应的Acccesss数据据库，然然后单击击选定数数据库“boookdbb”。 图115 图116单击确定按按钮，系系统自动动返回OODBCC数据源源管理器器，数据据源“boook”创建成成功。四、图书管管理系统统实现该图书管管理系统统的工程程名称为为BoookMaa

14、nSyys.vvbp，该该工程包包含所有有文件如如图177所示。 图1171新建工工程新建工程，并并在工程程资源管管理器中中将工程程名称属属性改为为：BoookMManSSys.vbpp。选择菜单“工程部件”，从控控件列表表中选中中如下选选项：Miccrossoftt ADDO DDataa Coontrrol 6.00 (OOLEDDB)Miccrossoftt DaataGGridd Coontrrol 6.00 (OOLEDDB)在“工程资资源管理理器”窗口中中单击鼠鼠标右键键，选择择“添加添加模模块”。单击击打开按按钮，然然后在该该模块的的“代码编编辑窗口口”中添加加代码如如下：Pub

15、liic AActFFlagg Ass Boooleean2FrmmMaiin窗体体FrmMaain窗窗体的设设计步骤骤如下：选中“Foorm11”窗体，将将该窗体体的“名称”属性改改为“frmmMaiin”，“Capptioon”属性改改为“图书管管理系统统”。在窗窗体上设设计一个个菜单，该该菜单结结构见表表4。在窗体上添添加一个个框架控控件（FFramme），将将其“Capptioon”属性删删除，“BorrderrStyyle”属性选选择“0NNonee”。在FFramm1中添添加一个个数据表表格（DDataaGriid），将将其“名称”属性设设置为“DattaGrrid”，“Vissi

16、blle”属性设设置为FFalsse。向窗体中添添加两个个ADOO数据控控件（AAdoddc），将将“Adoodc11”的“名称”属性设设置为“Adoodc”，将“Adoodc22”的“名称”属性设设置为“AdoodcTTempp”，“Vissiblle”属性均均设置为为Fallse。这这两个控控件属性性列表中中的“ConnnecctioonSttrinng”属性值值均按如如下方法法设置。单击，弹出出属性页页对话框框，如图图18所所示。单击“生成成”按钮，进进入“数据链链接属性性”对话框框，如图图19所所示。图18 图199选择“Miicroosofft OOLE DB Proovidder

17、forr ODDBC Driiverrs”，单击击“下一步步”按钮，由由“提供者者”选项卡卡跳到“连接”选项卡卡，如图图20所所示。选选中“使用数数据源名名称”，在该该项下拉拉列表中中选择“boook”，然后后单击“确定”按钮，系系统自动动回到属属性页对对话框，单单击确定定按钮即即可。 图20进入frmmMaiin窗体体的代码码视图，添添加如下下代码：Publiic SSub DissplaayGrrid(CapptioonSttr AAs SStriing)将临时AADO数数据控件件中的RRecoordSSourrce属属性赋值值给和数数据表格格相连的的ADOO数据控控件 AAdoddc.R

18、RecoordSSourrce = AAdoddcTeemp.ReccorddSouurcee AAdoddc.RRefrreshh 将数据据表格绑绑定到AADO数数据控件件 SSet DattaGrrid.DattaSoourcce = Addodcc DDataaGriid.RRefrreshh 修改数数据表格格的标题题 DDataaGriid.CCapttionn = CapptioonSttr 将数据据表格设设置为用用户可见见 DDataaGriid.VVisiiblee = TruueEnd SSub表4 菜单单结构设设置菜单项名称读者管理ReadeerMaan.显示所所有读者者Di

19、spAAllRReadder.查询一一个读者者FindOOneRReadder.增加一一个读者者AddReeadeer.删除一一个读者者DelReeadeer图书管理BookMMan.显示所所有图书书DispAAllBBookk.查询单单册FindOOneBBookk.增加新新书AddBoook.删除图图书DelBoook借阅管理BorroowMaan.显示所所有借阅阅情况DispAAllBBor.借书Borroow.还书Returrn.根据人人来查书书ReadeerTooBoook.根据书书来查人人BookTToReeadeer3显示所所有读者者选择菜单“读者管管理显示所所有读者者”，在代代

20、码编辑辑窗口中中添加以以下代码码：Privaate Subb DiispAAllRReadder_Cliick() DDim ReccCouunt As Inttegeer 从数据据库表reaaderr中查查找所有有的读者者记录 AAdoddcTeemp.ReccorddSouurcee = seelecct rreadderiid aas & 读读者编号号 & _, reeadeernaame as & 读者姓姓名 & ,bbookknumm ass & 借阅图图书册数数 _& ffromm reeadeer AAdoddcTeemp.Reffressh RRecCCounnt = Addo

21、dccTemmp.RRecoordsset.ReccorddCouunt 如果查查到的记记录数 0，则则显示所所有读者者信息，否否则提示示未查查到任何何读者记记录，然然后显示示一个空空 的数据据表格。 IIf RRecCCounnt 0 Theen DiispllayGGridd (显示所所有读者者) EElsee MssgBoox 未查到到任何读读者记录录！, , 提示示 DiispllayGGridd (显示所所有读者者) Exxit Subb EEnd IfEnd SSub4查询一一个读者者选择菜单“读者管管理查询一一个读者者”，在代代码编辑辑窗口中中添加以以下代码码：Privaate

22、Subb FiindOOneRReadder_Cliick() Dimm ReecCoountt Ass Inntegger 将标标志变量量置为假假 ActtFlaag = Faalsee 显示示查询一一个读者者窗体 frmmFinndOnneReeadeer.SShoww vbbModdal 若是是在查询询一个读读者窗体体中已经经将AcctFllag修修改为TTruee时，则则查看所所查到的的记录条条数，如如果查到到的 记录录条数 0时时，刷新新数据表表格，显显示查询询结果 If ActtFlaag TThenn RRecCCounnt = AddodccTemmp.RRecoordsset

23、.ReccorddCouunt IIf RRecCCounnt 0 Theen DiispllayGGridd (查询一一个读者者) EEnd If Endd Iff ActtFlaag = FaalseeEnd SSub为工程添加加一个新新的窗体体，将新新窗体的的“名称”属性改改为“frmmFinndOnneReeadeer”，“Capptioon”属性改改为“查询一一个读者者”。在窗体上添添加一个个框架控控件（FFramme）和和一个AADO数数据控件件（Addodcc），在在Fraame11中添加加一个命命令按钮钮（CoommaandBButtton）、一一个标签签（Laabell）和一

24、一个文本本框（TTexttBoxx）。修改frmmFinndOnneReeadeer窗体体控件的的属性，见见表5。表5 ffrmFFinddOneeReaaderr窗体控控件属性性控件名称属性名称属性设置值值Framee1 Capptioon输入查询条条件Labell1 Capptioon读者编号Text11名称TxtReeadeeriddTextCommaand11名称CmdFiindCaptiion查询Adodcc1名称AdodccVisibbleFalsee根据frmmMaiin主界界面中设设置Addodcc控件的的方法来来设置本本窗体的的Adoodc的的属性，完完成以上上操作后后frm

25、mFinndOnneReeadeer窗体体的效果果如图221所示示。 图21双击“查询询”按钮，在在代码编编辑窗口口中添加加以下代代码：Privaate Subb CmmdFiind_Cliick() Dimm ReecCoountt Ass Inntegger 判断断用户是是否输入入了读者者编号信信息，如如果没有有输入信信息，则则发出提提示退出出子程序序 If Triim(TTxtRReadderiid.TTextt) = Thhen MsggBoxx 查查询条件件不能为为空，请请填写！, , 提示 Exiit SSub Endd Iff 根据据读者编编号查询询读者信信息 Adoodc.Re

26、ccorddSouurcee = seelecct rreadderiid aas & 读读者编号号 _ & , rreaddernnamee ass & 读者者姓名 & ,bbookknumm ass _ & 借阅图图书册数数 & froom rreadder wheere reaaderrid= & _ & TTrimm(TxxtReeadeeridd.Teext) & Adoodc.Reffressh 如果果查到该该读者信信息则释释放当前前窗体，回回到主界界面在数数据表格格上显示示查到的的读者信信息 ReccCouunt = AAdoddc.RRecoordsset.ReccorddCo

27、uunt If ReccCouunt 00 Thhen ffrmMMainn.AddodccTemmp.RRecoordSSourrce = sellectt reeadeeridd ass _ & 读者编编号 & , rreaddernnamee ass & 读者者姓名 _ & ,boooknuum aas & 借阅阅图书册册数 _ & froom rreadder wheere reaaderrid= _ & & Trrim(TxttReaaderrid.Texxt) & ffrmMMainn.AddodccTemmp.RRefrreshh 将标志志变量置置为真 AActFFlagg =

28、Truue UUnlooad Me Elsse 如果果没有查查到该读读者的信信息则发发出提示示，退出出子程序序 MMsgBBox 查无无此人！, , 提示 EExitt Suub Endd IffEnd SSub5增加一一个读者者选择菜单“读者管管理增加一一个读者者”，在代代码编辑辑窗口中中添加以以下代码码：Privaate Subb AdddReeadeer_CClicck() 将标标志变量量置为假假 ActtFlaag = Faalsee 显示示增加一一个读者者窗体 frmmAdddReaaderr.Shhow vbMModaal If ActtFlaag TThenn 如果需需要刷新新数

29、据表表格，则则显示所所有读者者信息 DDisppAlllReaaderr_Cllickk Endd Iff ActtFlaag = FaalseeEnd SSub为工程添加加一个新新的窗体体，讲窗窗体的名名称属性性改为“frmmAdddReaaderr”，Caaptiion属属性改为为“增加一一个读者者”。在窗体上添添加一个个框架控控件（FFramme），然然后在FFramme1中中添加一一个命令令按钮，两两个标签签，两个个文本框框和一个个ADOO数据控控件（AAdoddc）。修改frmmAdddReaaderr窗体控控件的属属性，见见表6。表6 ffrmAAddRReadder窗窗体控件件属

30、性控件名称属性名称属性设置值值 FFramme1 Capptioon 输入数数据 LLabeel1Captiion 读者编编号 LLabeel2Captiion 读者姓姓名Text11Text 名称 TxttReaaderridText22Text名称 TxttReaaderrNammeCommaand11名称 CmddSavve Captiion 保存Adodcc1名称 AdoodcVisibble Fallse运用frmmMaiin主界界面中设设置Addodcc的方法法来设置置本窗体体的Addodcc，完成成后的ffrmAAddRReadder窗窗体效果果如图222所示示。 图222双击“

31、保存存”按钮，在在代码编编辑窗口口中添加加以下代代码：Privaate Subb CmmdSaave_Cliick() Dimm ReecCoountt Ass Inntegger 判断断是否输输入了读读者编号号和读者者姓名，如如果没有有输入信信息，则则发出提提示并退退出子程程序 If Triim(TTxtRReadderiid.TTextt) = Orr Trrim(TxttReaaderrNamme.TTextt) = Thhen MMsgBBox 请将将内容填填写完整整！, , 提示示 EExitt Suub Endd Iff 根据据读者编编号信息息查找该该读者是是否已经经存在 Adoo

32、dc.ReccorddSouurcee = seelecct * frrom reaaderr whheree reeadeeridd= _ & & TTrimm(TxxtReeadeeridd.Teext) & Adoodc.Reffressh 如果果该读者者已经存存在，则则发出提提示，并并退出子子程序 ReccCouunt = AAdoddc.RRecoordsset.ReccorddCouunt If ReccCouunt 00 Thhen MMsgBBox 已经经存在此此读者编编号，请请重新设设置！, , 提提示 EExitt Suub Endd Iff 向数数据库表表boook中添加

33、加新的读读者记录录 Adoodc.ReccorddSouurcee = seelecct * frrom reaaderr Adoodc.Reffressh Adoodc.Reccorddsett.AdddNeew Adoodc.Reccorddsett.Fiieldds(reaaderrid) = Trrim(TxttReaaderrid.Texxt) Adoodc.Reccorddsett.Fiieldds(reaaderrnamme) = Triim(TTxtRReadderNNamee.Teext) Adoodc.Reccorddsett.Fiieldds(boooknuum) = 0

34、 Adoodc.Reccorddsett.Uppdatte Adoodc.Reffressh 将标标志变量量置为真真 ActtFlaag = Trrue Unlloadd MeeEnd SSub6删除一一个读者者选择菜单“读者管管理删除一一个读者者”，在代代码编辑辑窗口中中添加以以下代码码：Privaate Subb DeelReeadeer_CClicck() 将标标志变量量置为假假 ActtFlaag = Faalsee 显示示删除一一个读者者窗体 frmmDellReaaderr.Shhow vbMModaal 判断断是否需需要刷新新数据表表格，如如果需要要则在主主界面的的数据表表格中显

35、显示所有有的读者者信息 If ActtFlaag TThenn DDisppAlllReaaderr_Cllickk Endd Iff ActtFlaag = FaalseeEnd SSub为工程添加加一个新新的窗体体，将新新窗体的的“名称”属性改改为“frmmDellReaaderr”，“Capptioon”属性改改为“删除一一个读者者”。在窗体 上上添加一一个框架架控件（FFramme），在在Fraame11中添加加一个命命令按钮钮、一个个标签、一一个文本本框和一一个ADDO数据据控件。修改frmmDellReaaderr窗体控控件的属属性，见见表7。表7 FFrmDDelRReadder

36、窗窗体控件件属性控件名称属性名称属性设置值值Framee1Captiion 输入编号Labell1Captiion 读者编号号Text11名称TxtReeadeeriddTextCommaand11名称CmdDeelCaptiion删除Adodcc1名称AdodccVisibbelFalsee运用frmmMaiin主界界面中设设置Addodcc的方法法来设置置本窗体体的Addodcc，完成成后的ffrmDDelRReadder窗窗体效果果如图222所示示。 图图22双击“删除除”按钮，在在代码编编辑窗口口中添加加以下代代码：Privaate Subb CmmdDeel_CClicck() Di

37、mm ReecCoountt Ass Inntegger 判断断是否输输入了读读者编号号信息，如如果没有有输入则则发出提提示并退退出子程程序 If Triim(TTxtRReadderiid.TTextt) = Thhen MMsgBBox 请填填入编号号信息！, , 提示 EExitt Suub Endd Iff 根据据读者编编号查找找读者信信息 Adoodc.ReccorddSouurcee = seelecct * frrom reaaderr whheree reeadeeridd= _ & & TTrimm(TxxtReeadeeridd.Teext) & Adoodc.Reffre

38、ssh 如果果没有该该读者信信息则提提示查查无此人人！信信息，退退出子程程序 ReccCouunt = AAdoddc.RRecoordsset.ReccorddCouunt If ReccCouunt 00 Thhen MMsgBBox 此人人有书未未归还，故故不能删删除！, , 提提示 EExitt Suub Endd Iff 从数数据库表表reeadeer中中找到该该读者记记录，删删除 Adoodc.ReccorddSouurcee = seelecct * frrom reaaderr whheree reeadeeridd= _ & & TTrimm(TxxtReeadeeridd.

39、Teext) & Adoodc.Reffressh Adoodc.Reccorddsett.Deelette Adoodc.Reffressh 将标标志变量量置为真真 ActtFlaag = Trrue Unlloadd MeeEnd SSub7显示所所有图书书选择菜单 “图书管管理显示所所有图书书”，在代代码编辑辑窗口中中添加以以下代码码：Privaate Subb DiispAAllBBookk_Cllickk() Dimm ReecCoountt Ass Inntegger 从数数据库表表boook中查找找所有的的图书记记录 AdoodcTTempp.ReecorrdSoourcce =

40、 sseleect boookidd ass _ & 图书书编号 & , boooknaame as & 图书名名称 _ & ,boooksstatte aas & 此书书是否已已借出 & ffromm boook AdoodcTTempp.Reefreesh 如果果查到的的记录数数 00则刷新新数据表表格显示示查到的的图书信信息，否否则提示示未查查到任何何图书记记录！信息 并刷刷新数据据表格显显示空表表 ReccCouunt = AAdoddcTeemp.Reccorddsett.ReecorrdCoountt If ReccCouunt 00 Thhen DDispplayyGriid (

41、显示示所有图图书) Elsse MMsgBBox 未查查到任何何图书记记录！, , 提提示 DDispplayyGriid (显示示所有图图书) EExitt Suub Endd IffEnd SSub8查询单单册选择菜单“图书管管理查询单单册”，在代代码编辑辑窗口中中添加以以下代码码：Privaate Subb FiindOOneBBookk_Cllickk() Dimm ReecCoountt Ass Inntegger 将标标志变量量置为假假 ActtFlaag = Faalsee 显示示查询单单册窗体体 frmmFinndOnneBoook.Shoow vvbMoodall 判断断是否

42、需需要刷新新数据表表格 If ActtFlaag TThenn RRecCCounnt = AddodccTemmp.RRecoordsset.ReccorddCouunt IIf RRecCCounnt 0 Theen DiispllayGGridd (查询单单册) EEnd If Endd Iff ActtFlaag = FaalseeEnd SSub为工程添加加一个新新的窗体体，将新新窗体”(名称称)”属性改改为”frmmFinndOnneBoook”，”capptioon”属性改改为“查询单单册”。在窗体添加加一个框框架控件件(Frramee)和一一个ADDO数据据控件(Adoodc)

43、,在” Frramee1”中添加加一个命命令按钮钮(CoommaandBButtton)、一个个标签(labbel)和一个个文本框框(teextbbox)。修改frmmFinndOnneBoook窗窗体控件件的属性性如表88所示：表8 ffrmFFinddOneeBoook窗体体控件属属性控件名称属性名称属性设置值值Framee1Captiion输入查询条条件labellCaptiion图书编号Text11名称txtboookiidtextCommaand11名称CmdfiindCaptiion查询Adodcc1名称Adodccvisibblefalsee根据“frrmMaain”主界面面中的

44、设设置“Adoodc”的方法法来设置置本窗体体的“Adoodc”的“connnecctioonsttrinng”属性。双击“查询询”按钮，在在代码编编译窗口口中添加加以下代代码：Privaate Subb CmmdFiind_Cliick() Dimm ReecCoountt Ass Inntegger 判断断是否输输入了图图书编号号，如果果没有输输入信息息，则发发出提示示，并退退出子程程序 If Triim(TTxtBBookkid.Texxt) = TThenn MsggBoxx 查查询条件件不能为为空，请请填写！, , 提示 Exiit SSub Endd Iff 根据据图书编编号查找找

45、该图书书信息 Adoodc.ReccorddSouurcee = seelecct bbookkid as & 图书编编号 _ & , bbookknamme aas & 图图书名称称 & , boooksstatte aas _ & 此书书是否已已借出 & froom bbookk whheree boookiid= & _ & TTrimm(TxxtBoookiid.TTextt) & Adoodc.Reffressh 如果果查到的的记录数数 00，则返返回主界界面在数数据表格格中显示示查到的的图书信信息 ReccCouunt = AAdoddc.RRecoordsset.Reccordd

46、Couunt If ReccCouunt 00 Thhen ffrmMMainn.AddodccTemmp.RRecoordSSourrce = sellectt boookiid aas _ & 图书编编号 & , bbookknamme aas & 图图书名称称 _ & , boooksstatte aas & 此此书是否否已借出出 _ & froom bbookk whheree boookiid= & & Trrim(TxttBoookidd.Teext) _ & ffrmMMainn.AddodccTemmp.RRefrreshh AActFFlagg = Truue UUnlooa

47、d Me Elsse 若没查查到该图图书信息息，则提提示查查无此书书！信信息，退退出子程程序 MMsgBBox 查无无此书！, , 提示 EExitt Suub Endd IffEnd SSub9添加新新书选择菜单“图书管管理增加新新书”，在代代码编辑辑窗口中中添加以以下代码码：Privaate Subb AdddBoook_Cliick() 将标标志变量量置为假假 ActtFlaag = Faalsee 显示示增加新新书窗体体 frmmAdddBoook.SShoww vbbModdal 判断断如果需需要刷新新数据表表格，则则在主界界面中显显示所有有的图书书信息 If ActtFlaag T

48、Thenn DDisppAlllBoook_CClicck Endd Iff ActtFlaag = FaalseeEnd SSub为工程添加加一个新新的窗体体，将新新窗体“(名称称)”属性改改为“frmmAdddBoook”，“capptioon”属性改改为“增加新新书”。在窗体上添添加一个个框架控控件(fframme)，在在“fraame11”中添加加一个命命令按钮钮(coommaandbbuttton)、两个个标签(labbel)、两个个文本框框(teextbbox)和一个个ADOO数据控控件(AAdoddc)，如如下表所所示：控件名称属性名称属性设置值值Framee1Captiion输

49、入数据Labell1Captiion图书编号Labell2Captiion图书名称Text11名称txtboookiidtextText22名称txtboooknnameetextCommaand11名称CmdsaaveCaptiion保存Adodcc1名称Adodccvisibblefalsee根据”frrmMaain”主界面面中的设设置“Adoodc”的方法法来设置置本窗体体的“Adoodc”的“connnecctioonsttrinng”属性。双击“保存存”按钮，在在代码编编辑窗口口中添加加以下代代码：Privaate Subb CmmdSaave_Cliick() Dimm ReecC

50、oountt Ass Inntegger 判断断是否输输入了图图书编号号和图书书名称信信息，如如果没有有输入则则发出提提示并退退出子程程序 If Triim(TTxtBBookkid.Texxt) = OOr TTrimm(TxxtBoookNNamee.Teext) = Theen MMsgBBox 请将将内容填填写完整整！, , 提示示 EExitt Suub Endd Iff 根据据图书编编号查找找是否存存在该图图书记录录，如果果存在，则则提示已经存存在此图图书编号号，请重重新设置置！ 则提提示退出出子程序序 Adoodc.ReccorddSouurcee = seelecct * fr

51、rom boook wwherre bbookkid= & & Trrim(TxttBoookidd.Teext) & Adoodc.Reffressh ReccCouunt = AAdoddc.RRecoordsset.ReccorddCouunt If ReccCouunt 00 Thhen MMsgBBox 已经经存在此此图书编编号，请请重新设设置！, , 提提示 EExitt Suub Endd Iff 在数数据库表表boook中添加加该新书书记录 Adoodc.ReccorddSouurcee = seelecct * frrom boook Adoodc.Reffressh Ado

52、odc.Reccorddsett.AdddNeew Adoodc.Reccorddsett.Fiieldds(boookidd) = TTrimm(TxxtBoookiid.TTextt) Adoodc.Reccorddsett.Fiieldds(boooknaame) = Trrim(TxttBoookNaame.Texxt) Adoodc.Reccorddsett.Fiieldds(boooksttatee) = 否 Adoodc.Reccorddsett.Uppdatte Adoodc.Reffressh 将标标志变量量置为真真 ActtFlaag = Trrue Unlloadd Me

53、eEnd SSub10删除除图书选择菜单“图书管管理删除图图书“，在代代码编辑辑窗口中中添加以以下代码码：Privaate Subb DeelBoook_Cliick() 将标标志变量量置为假假 ActtFlaag = Faalsee 显示示删除图图书窗体体 frmmdellboook.SShoww vbbModdal 判断断是否需需要刷新新数据表表格，如如果需要要的话则则在数据据表格中中显示所所有的图图书记录录 If ActtFlaag TThenn DDisppAlllBoook_CClicck Endd Iff ActtFlaag = FaalseeEnd SSub为工程添加加一个新新的

54、窗体体，将新新窗体“(名称称)”属性改改为“frmmdellboook”,“capptioon”属性改改为“删除图图书”。在窗体上添添加一个个框架控控件(FFramme),在”Fraame11”中添加加一个命命令按钮钮(coommaandbbuttton)、一个个标签(labbel)、一个个文本框框(teextbbox)和一个个ADOO数据控控件(AAdoddc),如下表表所示：控件名称属性名称属性设置值值Framee1Captiion输入编号Labell1Captiion图书编号Text11名称txtboookiidTextCommaand11名称CmddeelCaptiion删除Adodc

55、c1名称Adodccvisibblefalsee根据“frrmMaain”主界面面中的设设置“Adoodc”的方法法来设置置本窗体体的“Adoodc”的“connnecctioonsttrinng”属性，完完成以上上操作后后frmmDellBoook窗体体效果如如下图所所以：双击“删除除”按钮，在在代码编编辑窗口口中添加加以下代代码：Privaate Subb CmmdDeel_CClicck() Dimm ReecCoountt Ass Inntegger 判断断是否输输入图书书编号，如如果没有有输入数数据，则则发出提提示并退退出子程程序 If Triim(TTxtBBookkid.Texx

56、t) = TThenn MMsgBBox 请填填入编号号信息！, , 提示 EExitt Suub Endd Iff 根据据图书编编号从数数据库表表boook中查找找该图书书的记录录。 Adoodc.ReccorddSouurcee = seelecct * frrom boook wwherre bbookkid= _ & & TTrimm(TxxtBoookiid.TTextt) & Adoodc.Reffressh ReccCouunt = AAdoddc.RRecoordsset.ReccorddCouunt 如果果没有该该图书的的信息，则则提示查无此此书！信息，退退出子程程序 If

57、ReccCouunt 00 Thhen 如果查查到的记记录数 0，则则在数据据表格中中显示所所有的借借阅记录录 DDispplayyGriid (显示示所有借借阅情况况) Elsse 否则，提提示没没有任何何借阅记记录！信息并并显示一一个空表表 MMsgBBox 没有有任何借借阅记录录！, , 提示示 DDispplayyGriid (显示示所有借借阅情况况) EExitt Suub Endd IffEnd SSub12借书书选择菜单“借阅管管理借书”，在代代码编辑辑窗口中中添加以以下代码码：Privaate Subb Boorroow_CClicck() Dimm ReecCoountt A

58、ss Inntegger 将标标志变量量置为假假 ActtFlaag = Faalsee 显示示借书窗窗体 frmmborrroww.Shhow vbMModaal 判断断是否需需要刷新新数据表表格，如如果需要要则显示示刚才借借书读者者的借阅阅记录 If ActtFlaag TThenn RRecCCounnt = AddodccTemmp.RRecoordsset.ReccorddCouunt IIf RRecCCounnt 0 Theen DiispllayGGridd (此人借借阅记录录) EEnd If Endd Iff ActtFlaag = FaalseeEnd SSub为工程添加

59、加一个新新的窗体体，将新新窗体”(名称称)”属性改改为”Frmmborrroww”，”Capptioon”属性改改为“借书”。在窗体上添添加一个个框架控控件(FFramme)，在在Fraame11中添加加一个命命令按钮钮(Coommaandbbuttton)、两个个标签(Labbel)、两个个文本框框(Teextbbox)和一个个ADOO数据控控件(AAdoddc)。修改frmmborrroww窗体控控件的属属性，如如下表：控件名称属性名称属性设置值值Framee1Captiion输入数据Labell1Captiion图书编号Labell2Captiion读者编号Text11名称Txtbooo

60、kiidTextText22名称TxtReeadeeriddTextCommaand11名称CmdboorroowCaptiion借书Adodcc1名称AdodccVisibbleFalsee根据“frrmMaain”主界面面中设置置“Adoodc”的方法法来设置置来本窗窗体的“Adoodc”的“Connnecctioonsttrinng”属性。双击“借书书”按钮，在在代码编编辑窗口口中添加加以下代代码：Privaate Subb CmmdBoorroow_CClicck() Dimm ReecCoountt1 AAs IInteegerr Dimm ReecCoountt2 AAs IInt