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

VB实训指导书——图书信息管理系统缎广西机电职猴业技术学院亭一、实训周窑的具体按排栋和要求鸟1、实训对产象：0铸7烟级电子商务螺专业学生陷2、实训时廊间：1周烦3、实训内旬容：开发图柔书信息管理风系统奥4、实训目跟的：环(1)进处一步熟悉皆VB的集成琴开发环境，缺掌握VB设极计应用程序仓的主要步骤宜，从而加深亿对面向可视很化对象编程瓜方法的认识功。侧(2)了时解并初步掌数握用VB开铅发应用程序筛界面、图形姜图像、数据娇库、多媒体夫等实用内容蝴。然(3)通牙过实训巩固取一学期来所仍学到的钳VB阿知识，熟练精掌握计算机隐操件技能，筛培养开发的传思想，同时耍产生浓厚的赢兴趣，为今金后进一步学锹习打下基础坦。傲5、实训要辅求说明：至①碍野指导书给出妄的内容只是志完成基本功叠能，其它功疤能请查阅相沿关参考书织。牲②自痛实训上机期缘间，每个学诞生都要认真腹听槽从指导乡老师及实验巩老师的指挥兆，按时按量渗独立完成实指训的内容。衰如有违纪者寇，将取消其耕实训的上机渠资格，并且美其实训成绩式当零分处理铜。梅③拾抱实训期间要巩严格按照实娘训报告格式清要求认真书印写实训报告殃（电子档与假手写稿（或钟打印稿））冲，实训结束嚷后将腔实训作品和猜实训报告臂一起上交指翁导老师批改免、评分。骂eq\o\ac(○,晶4壶)烫实训后期忘，将酌情安愁排现场测试泪与答辩，并摆将此项分数盖按一定比例论打入实训成李绩总评。夜二、实训报尺告（设计说主明书）书写亭的格式要求朋1、实训报液告封面要依雪次填写设计周的科目、题偏目、专业、狠班级、姓名轿、学号、日走期、指导老女师等项目。陕2、报告内消页书写的具雕体内容应包摘含以下几个近方面：途实训名称：塑即实训题目挥。淹实训目的：楼即通过本次准实训要得到弦哪些方面的席主要训练，债将学会掌握斜哪些相关专挖业技能。慰实训环境：梢既设备（硬戏件、系统平吨台）、开发左工具、方法跃手段等。挣实训计划：洞做出本次实妨训的总体计衔划并制定出筐实施计划的总具体步骤（要可按完成功悉能模块来划盛分）及进度注安排，列出倍时间表。提关键技术与猛解决途径：挨本次实训的逐技术要点（婶可按实训计城划里制定的的具体步骤一节一编写），摆并要求写出漠如何解决这过些技术要点杆（要求编写胳源代码并附殿上代码说明科，必要时请翅附上截图）虏。秆自我评价：分即总结本次左实训的个人安心得体会。史包括对这次衬实训任务完鸽成情况的评筛价；实训的物收获与预期蹈目标是否一辅致的评价以飘及对实训组捕织、安排、究管理等方面评的评价。这菊部分不仅要冠求写出问题胡，更希望写抹出你的建议亡。窝三、实训成帅绩的评定标慌准补指导老师根宽据学生实训溜期间的表现帅、实训内容辫的完成情况累以及所写的斤实训报告（景设计说明书键）给予该生压优、良、中赛、及格、不潜及格等综合呆评定等级，滥并作为该实寒训课程的期忌评成绩上报台成绩。尘四、本次实炮训的具体内绣容:松图书信息管羽理系统什系统功能分洁析：嘱读者基本信奋息的输入咏读者基本信洁息的查询（亲要求能按读振者编号进行明查询）端读者基本信疑息的修改杰图书信息的畏输入摄图书信息的盯修改振借阅信息的夕查询（要求晃能根据人来公查书、根据京书来查人）读者借书读者还书喜以下是附加起的功能：（头选做）与根据读者姓驾名来查询读弓者信息惯根据书名来泽查询图书信沈息纸利用新窗口育来修改读者信信息和图书会信息显示所有图书显示所有图书查询单册增加新书删除图书根据书来查人根据人来查书显示所有借阅情况借书还书查询一个读者增加一个读者删除一个读者显示所有读者读者管理图书管理借阅管理图书管理系统煮系统功能模餐块：弟一、图书信姻息管理系统蛙功能介绍1．主界面图1珍些牺侍乘毛程序运行后稻主界面的效袖果如图1所章示。可以看丢到，窗体的滔上部是菜单锈栏，包含3害个菜单项，粘即：读者管怨理、图书管搅理和借阅管加理。肚2．读者管稻理绳慨选择菜单文“览读者管理凯”血，如图2所洽示，该菜单参项中有4个设子菜单项：敬显示所有读议者、查询一这个读者、增虎加一个读者炮和删除一个取读者。斑门选择菜单瑞“唉读者管理脂→佛显示所有读模者盯”涨，则在主界存面的数据表寄格中列出所嘱有的读者信离息，如图3赢所示。涝四选择菜单秧“禾读者管理秧→馋查询一个读弟者士”支，弹出对话深框如图4所狗示，要求输予入要查询的祸读者编号信字息。输入读货者编号后单斩击歼“推查询县”埋按钮，则在泉主界面的数们据表格中列何出该读者的逮信息；否则把，系统提示炮用户稀“旗查无此人肯”痕。软距选择菜单女“健读者管理雄→缎增加一个读持者躲”匪，弹出对话土框如图5所醒示，要求输腰入读者编号衣和读者姓名栋，输入完整退的信息后单猎击保存按钮小，系统判断秘是否可以向闻数据库中添悟加该读者信姓息，如果添策加成功，则喝在主界面的读数据表格中交列出数据库魄中所有的读律者信息。另效选择菜单精“穴读者管理语→贵删除一个读卫者肤”拼，弹出对话材框如图6所洒示，要求输播入读者编号派，输入完整型的信息后单刃击示“畜删除嚼”项按钮，若该杂删除操作成尘功，则在主达界面的数据榴表格中显示鞠剩余的所有烟读者信息。弱葡面乎兼怠夹流扰阴从济柿永柔榆界贿瓦艳题馋图2丹言勿冠图3黑克于两矿债嫁蜜图4节图5厕佳剑剑枣花餐匆图6蓝3．图书管兆理榆益选择菜单者“最图书管理毛”附，如图7所秀示，该菜单么项中有4个亲子菜单项：教显示所有图永书、查询单载册、增加新叼书和删除图垂书。该菜单柱项功能与读帝者管理部分潮类似，在此航不再重复。杨4．借阅管宽理臂月选择菜单搁“僵借阅管理抗”桐，如图8所抽示。该菜单友项中有5个母子菜单项：键显示所有借桥阅情况、借越书、还书、妹根据书来查苦人和根据人息来查书。炸图7础漏蹄偶想宫犁侧图8宫初选择菜单更“辣借阅管理泻→品显示所有借斜阅情况米”崭，则在主界陆面的数据表嗽格中显示所第有的借阅记兄录。筛黎选择菜单碗“排借阅管理煤→望借书掀”但，弹出对话赛框如图9所于示，要求用宁户输入所借钳图书编号和详读者编号。公输入完整的秃信息后单击咳“氏借书尾”主按钮，如果裂借书成功，举则在主界面糊的数据表格炭中列出当前盟读者的借阅谎情况。蚂倒选择菜单恐“快借阅管理利→袖还书杏”贝，弹出对话芳框如图10矩所示，要求帆输入所借图绍书编号，输惨入完整的信欣息后单击祥“镇还书港”梅按钮，如果筑还书成功，愧则在主界面院的数据表格粘中列出当前蓬读者还书后夸的借阅情况拣。娘点厉旅勇陡速虏挡瓶图9竿骄旱涂抖先差口图10扰虑选择菜单鼓“宵借阅管理鼠→宇根据人来查成书你”伙，弹出对话央框如图11作所示，要求旱输入读者编垒号，输入完犬整的信息后柔单击启“桨查询料”冤按钮，如果困查询操作成活功，则在主猾界面的数据守表格中列出射当前读者所型有的借阅情烤况。毙芦选择菜单供“孤借阅管理蹄→纱根据书来查卫人编”冷，弹出对话摊框如图12决所示，系统膊显示相应的雀信息提示，慎如果查询操志作成功，则哥在主界面的恨数据表格中谁列出当前图员书的借阅情段况。址衣咱波尿三印寻提惹绩刻浴图11可分让干魔手租础图12脆二、创建数拦据库物串打开Acc闸ess，建刃立一个名为士bookd舰b的数据库沈，数据库中威有两张数据扯表：boo阔k、bor旷row和r奉eader黑。三张表炊的字段信息办如下:仍表1b穴ook表项朽内容瞎字段名称职数据类型撒字段大小彼booki俯d区文本农15荐bookn醉ame辣文本梢100诉books探tate酬文本汪4兆（将boo际kid字段著设为主键）职表2丘borro炎w表项内容磁字段名称窄数据类型支字段大小车booki对d长文本他15前reade昌rid谊文本唯15驳（将boo磨kid字段医设为主键）垃表3r担eader餐表项内容牵字段名称泽数据类型喉字段大小炮reade吹rid宾文本吵15宁reade士rname巾文本史20遍bookn亚um化文本贷4殃（将rea雷derid察字段设为主伍键）钳三、创建数煎据源(OD寨BC)连庭基于SQL返的ODBC北（Open圣Data武Base润Conne栏ctivi天ty，开放膝式数据库连区接）是Mi蜜croso雕ft公司在逢1989年悼退出的连接症外部数据库顾的标准，若翅采用这套标当准，一个应钥用程序就可灵以通过一组州通用的代码肤访问不同的端数据库管理合系统。尝纯在Wind腐owsX岁P操作系统允环境下，本残实例的OD僻BC设置步尖骤如下：强进入默“臣控制面板受→或管理工具事”骄，双击事“部数据源（O冬DBC）慧”模，出现雹“母ODBC数阿据源管理器训”熔，如图13亲所示。选真灶口拴图13炼绢差伟撕碎冤图1仔4辱单击福“宾添加愿”丈按钮，出现查创建数据源任对话框，如挠图14所示晨。防选择载“希Drive狗rDo甜Micro杂soft玻Acces持s(*.属mdb)友”愈，单击完成云按钮，出现管ODBC陈Micro叼soft柜Acces荷s安装对话帽框，如图1漠5所示，在蝶数据源一项锻中输入驼“卫book和”盖。毫单击把“骂选择伐……”姓按钮，出现龟选择数据库房对话框，如惹图16所示迈，首先选择拴数据库所在刺的驱动器，凳然后在目录肾中选择数据凶库的路径，静这样在淹“悄数据库名映”坏一栏中就会语列出相应的宜Acces赛s数据库，玩然后单击选运定数据库往“锦bookd衣b动”座。思狮帜揪耳戏需悠愧没更挖兰顷跳蓬巴场舞图1挪5鸣场逆梅江姨图绣16讯单击确定按阵钮，系统自觉动返回OD形BC数据源付管理器，数够据源抛“故book静”雀创建成功。刷四、图书管犬理系统实现漆余该图书管理联系统的工程陵名称为Bo坝okMan兽Sys.v织bp，该工拨程包含所有本文件如图1标7所示。庄源弯钳桶惠颠暖烈图17壮1．新建工拍程乔新建工程，掩并在工程资郊源管理器中激将工程名称殃属性改为：智BookM夺anSys姐.vbp。魄选择菜单景“相工程来→绸部件迷”栽，从控件列冶表中选中如额下选项：嫩足莫Micro现soft斑ADOD烈ataC忘ontro茫l6.0患(OLE啦DB)庭竭太Micro邮soft晚DataG敲ridC词ontro艺l6.0鸭(OLE备DB)舅在香“佳工程资源管滑理器酱”碌窗口中单击轻鼠标右键，设选择根“毯添加连→神添加模块违”轰。单击打开扎按钮，然后润在该模块的诉“俯代码编辑窗翼口焦”婶中添加代码膛如下：慧Publi娇cAct怀Flag南AsBo鹿olean街2．Frm准Main窗擦体库FrmMa施in窗体的扰设计步骤如将下：股选中恳“些Form1击”虚窗体，将该罗窗体的云“且名称五”耕属性改为讽“旺frmMa愧in面”头，型“雅Capti网on庙”午属性改为杏“宏图书管理系讯统诉”窄。在窗体上威设计一个菜腾单，该菜单趟结构见表4篇。愈在窗体上添摊加一个框架策控件（Fr作ame），贯将其双“码Capti悬on慎”挂属性删除，慧“桌Borde婚rStyl总e嗽”矮属性选择财“嘱0－Non马e份”燃。在Fra朵m1中添加错一个数据表食格（Dat斑aGrid达），将其巴“票名称海”戏属性设置为低“恒DataG杠rid河”逝，足“徐Visib洁le敏”茅属性设置为菠False前。婆向窗体中添税加两个AD延O数据控件探（Adod烤c），将务“识Adodc寻1块”致的柏“驾名称烫”贩属性设置为升“既Adodc冶”元，将菠“律Adodc虚2耀”果的撤“君名称脾”逐属性设置为桨“兼Adodc凶Temp抱”粒，状“隐Visib武le洒”祖属性均设置贡为Fals暂e。这两个属控件属性列尾表中的珠“阻Conne拌ction孟Strin脾g改”浮属性值均按老如下方法设细置。裤单击浊，弹出属性厉页对话框，懒如图18所能示。越单击刚“喷生成槐”鸡按钮，进入薯“贵数据链接属叛性界”劝对话框，如钥图19所示棍。荡图18释象忘絮立蕉适壤图腐19科选择言“洁Micro卵soft慌OLED巴BPro姐vider基for慕ODBC改Drive捞rs岁”茂，单击丰“黑下一步雄”页按钮，由都“景提供者押”伙选项卡跳到窑“错连接增”俘选项卡，如若图20所示榴。选中舱“糕使用数据源誉名称交”陆，在该项下陡拉列表中选替择项“矩book俯”帝，然后单击五“员确定穿”硬按钮，系统造自动回到属色性页对话框种，单击确定构按钮即可。老殿汁局骡蜻粉察杆徐摊补扁愤图20尊进入frm朋Main窗茧体的代码视草图，添加如志下代码：阵Publi牢cSub赢Disp跟layGr庸id(Ca闹ption绍StrA话sStr培ing)则'将临时A欣DO数据控豪件中的Re但cordS啊ource诚属性赋值给芽和数据表格香相连的AD勤O数据控件引A口dodc.无Recor驴dSour进ce=边Adodc辅Temp.钩Recor安dSour酒ce肢A钳dodc.约Refre未sh轧'辱将数据表格盛绑定到AD舅O数据控件辟S个etDa暴taGri介d.Dat撇aSour举ce=遇Adodc亚D造ataGr脂id.Re仓fresh菜'虑修改数据表萝格的标题阻D鞠ataGr枣id.Ca阵ption遗=Ca层ption属Str督'圈将数据表格失设置为用户却可见或D让ataGr吹id.Vi覆sible芹=Tr馒ue义EndS敏ub正暑思束钱旱惰夸表4菜关单结构设置遍菜单项会名称许读者管理劣Reade乔rMan只…请.显示所有书读者骨DispA呜llRea侮der或…肆.查询一个己读者衫FindO苗neRea想der骆…冤.增加一个蔬读者岂AddRe落ader止…沫.删除一个奸读者评DelRe封ader颈图书管理滋BookM床an龙…关.显示所有派图书锻DispA阳llBoo洞k侍…向.查询单册喘FindO烤neBoo前k际…择.增加新书仍AddBo露ok底…粉.删除图书时DelBo宾ok通借阅管理冰Borro读wMan第…蚂.显示所有旬借阅情况潜DispA菌llBor老…逼.借书趋Borro睁w链…誉.还书符Retur宰n担…察.根据人来忌查书舟Reade漆rToBo尘ok井…届.根据书来分查人嫂BookT茧oRead颈er虚3．显示所耽有读者插选择菜单峰“昂读者管理勒→样显示所有读鸡者咐”例，在代码编树辑窗口中添现加以下代码粮：蔽Priva棋teSu专bDis各pAllR阴eader荒_Clic捎k()性D桑imRe泻cCoun龟tAs施Integ喊er想'稼从数据库表讽"read巴er"中查巾找所有的读贺者记录忠A烟dodcT姿emp.R翠ecord逢Sourc鼓e="削selec姻trea傅derid肢as"料&"否读者编号"讲&_练",re认adern含amea罩s"&桶"读者技姓名"织&",b币ooknu肺mas耕"&"性借阅图书册泡数"_傲&"f分romr疼eader贱"竿A象dodcT饲emp.R员efres虏h鼓R冶ecCou僚nt=险Adodc俱Temp.斧Recor正dset.锻Recor浊dCoun怜t悼'颈如果查到的已记录数>倦0，则显示蹦所有读者信露息，否则提妥示"未查到丹任何读者记倦录"，然后亏显示一个空懂'纵的数据表格似。弦I模fRec若Count暴>0翅Then榆裳Disp芒layGr营id("应显示所有读手者")锡E蹲lse监博MsgB悔ox"未筑查到任何读家者记录！"坦,,"疼提示"分季Disp奏layGr毯id("订显示所有读怜者")杏猛Exit脾Sub雕E饿ndIf汇EndS苦ub杯4．查询一绞个读者条选择菜单池“袭读者管理盟→件查询一个读工者微”朽，在代码编常辑窗口中添乌加以下代码民：庙Priva仪teSu撑bFin味dOneR张eader尚_Clic丝k()韵Dim虫RecC活ount姻AsIn铜teger址'将标迫志变量置为袄假翠Act种Flag咸=Fal垦se拣'显示腰查询一个读洗者窗体毙frm罪FindO剃neRea永der.S铅howv进bModa阿l催'若是接在查询一个遣读者窗体中姓已经将Ac览tFlag貌修改为Tr匆ue时，则吵查看所查到记的记录条数决，如果查到钉的膝'记录喝条数>0千时，刷新数忽据表格，显瘦示查询结果娘If惊ActFl休agTh伟en液R丛ecCou风nt=蛛Adodc受Temp.浩Recor弹dset.舍Recor聋dCoun荡t迟I矛fRec将Count骄>0愤Then渐挪Disp某layGr料id("水查询一个读贤者")桂E寺ndIf订End锅If追Act驳Flag促=Fal眠se茫EndS吴ub直为工程添加鲜一个新的窗忌体，将新窗蛇体的勉“膜名称挥”晚属性改为迎“衬frmFi招ndOne缎Reade西r林”询，朴“银Capti较on虎”蛛属性改为姨“尘查询一个读约者葱”飘。抱在窗体上添抽加一个框架鹿控件（Fr凤ame）和掀一个ADO险数据控件（淡Adodc蹄），在Fr纷ame1中葵添加一个命筹令按钮（C良omman瑞dButt诱on）、一拜个标签（L愁abel）火和一个文本虚框（Tex捐tBox）台。块修改frm妄FindO象neRea蝶der窗体茧控件的属性棕，见表5。胃表5f助rmFin熊dOneR奉eader忆窗体控件属唤性如控件名称岸属性名称朋属性设置值留Frame仇1恩Cap度tion明输入查询条肌件轿Label及1剑Cap傲tion踢读者编号征Text1串名称煌TxtRe罩aderi释d阀Text闲Comma效nd1粗名称帅CmdFi眼nd阻Capti疮on胖查询密Adodc倾1则名称偶Adodc裙Visib彻le堤False稻根据frm尾Main主让界面中设置祖Adodc僻控件的方法慌来设置本窗咬体的Ado睬dc的属性疾，完成以上阔操作后fr室mFind烟OneRe芽ader窗型体的效果如智图21所示岛。误图21圆激醒查园韵津双击秒“毁查询家”睡按钮，在代餐码编辑窗口笑中添加以下读代码：纱Priva向teSu水bCmd陈Find_站Click叔()掩Dim障RecC狮ount日AsIn幸teger部'判断蜘用户是否输平入了读者编闭号信息，如警果没有输入秩信息，则发忌出提示退出茶子程序搁If低Trim(调TxtRe科aderi肝d.Tex罚t)=去""Th延en撒径MsgBo寇x"查询杀条件不能为谅空，请填写难！",,牺"提示"呈顶Exit钟Sub匠End术If抚'根据栽读者编号查浙询读者信息范Ado助dc.Re竟cordS喊ource悲="s臭elect匀read园erid先as"迟&"读正者编号"播_率&"窜,rea易derna笼meas洋"&滩"读者姓垂名"&毯",boo供knum酬as"点_蒜&"础借阅图书册覆数"&确"fro下mrea寨derw展here共reade昌rid=左"&"膊'"_繁&T假rim(T也xtRea饼derid访.Text买)&"津'"组Ado睛dc.Re稠fresh材'如果常查到该读者驶信息则释放蕉当前窗体，臭回到主界面胃在数据表格乏上显示查到胖的读者信息傻Rec叮Count侍=Ad披odc.R讨ecord摸set.R填ecord孕Count撤If赏RecCo魂unt>横0Th锹en懂f哄rmMai脖n.Ado筛dcTem签p.Rec摸ordSo笋urce兆="se坡lect乘reade断rida吧s"_跪&架"读者迟编号"&胜",r假eader待name罪as"扎&"读该者姓名"劲_机&驻",bo番oknum跨as"组&"借丈阅图书册数旋"_酬&妨"fr每omre哈ader归where瓦read手erid=喊"_彼&场"'"迟&Tri垄m(Txt缘Reade傲rid.T葵ext)评&"'"该f千rmMai认n.Ado槽dcTem乡p.Ref列resh秒'矿将标志变量严置为真贿A才ctFla凭g=T狗rue掌U穷nload粮Me敢Els话e仰'如果腔没有查到该腥读者的信息垮则发出提示基，退出子程卫序荐M菜sgBox寨"查无此远人！",尸,"提示悠"租E捡xitS运ub证End舱If龄EndS搬ub扣5．增加一依个读者天选择菜单钥“盲读者管理体→陆增加一个读键者们”校，在代码编黄辑窗口中添智加以下代码的：吨Priva漏teSu玻bAdd判Reade翅r_Cli细ck()杰'将标硬志变量置为导假涝Act没Flag技=Fal翻se跑'显示闭增加一个读仍者窗体币frm蜻AddRe毒ader.蚊Show糕vbMod兔al悼If罪ActFl离agTh衰en逮'宝如果需要刷冷新数据表格痒，则显示所附有读者信息倡D刃ispAl谅lRead荒er_Cl鹅ick色End宋If由Act宽Flag乏=Fal掠se朽EndS毛ub研为工程添加蜜一个新的窗宅体，讲窗体盈的名称属性畜改为题“胁frmAd务dRead匀er遇”状，Capt誓ion属性史改为缝“穿增加一个读毛者姿”似。割在窗体上添惹加一个框架姨控件（Fr初ame），抄然后在Fr胆ame1中绝添加一个命云令按钮，两澡个标签，两游个文本框和郑一个ADO医数据控件（蜻Adodc胜）。绳修改frm崭AddRe固ader窗冒体控件的属盆性，见表6下。亡表6f虾rmAdd追Reade孙r窗体控件猾属性承控件名称庸属性名称窄属性设置值肺F页rame1选Cap羽tion宋输入数固据追L垄abel1糕Capti准on景读者编硬号至L鸭abel2貌Capti献on榴读者姓进名倦Text1排Text僻召名称唤险TxtRe令aderi找d幕Text2照Text费名称震Txt汤Reade宰rName任Comma饶nd1淘名称拖Cmd狠Save赚Capti因on革保存捡Adodc典1键名称售Ado抵dc朱Visib御le蒜Fal凡se琴运用frm腥Main主对界面中设置哲Adodc阶的方法来设它置本窗体的便Adodc倒，完成后的益frmAd扇dRead脂er窗体效载果如图22郑所示。澡救换欧庭认图教22虹双击阶“众保存挖”肤按钮，在代伸码编辑窗口条中添加以下吴代码：肥Priva隆teSu诞bCmd纹Save_座Click次()蒙Dim慈RecC店ount泽AsIn经teger患'判断笋是否输入了催读者编号和佛读者姓名，恭如果没有输某入信息，则跑发出提示并致退出子程序详If界Trim(扮TxtRe县aderi纲d.Tex亚t)=喜""Or便Trim链(TxtR俯eader思Name.助Text)浮=""陷Then厌M梳sgBox位"请将内绘容填写完整算！",,刃"提示"畜E吩xitS货ub挪End圾If梦'根据晴读者编号信闯息查找该读主者是否已经移存在劲Ado倚dc.Re你cordS称ource萝="s休elect歉*fr禽omre差ader柿where尊read顺erid=瓣"_刃&"施'"&辜Trim(色TxtRe受aderi理d.Tex刚t)&兰"'"哪Ado许dc.Re亏fresh巨'如果刑该读者已经凡存在，则发屈出提示，并茅退出子程序胀Rec液Count武=Ad终odc.R镜ecord奉set.R睁ecord群Count炒If糟RecCo导unt>煎0Th飞en堤M颠sgBox宫"已经存翠在此读者编隆号，请重新输设置！",号,"提捏示"单E锻xitS苗ub能End免If包'向数扬据库表"b妻ook"中妨添加新的读警者记录厦Ado歇dc.Re凉cordS增ource碧="s棕elect亚*fr牌omre税ader"贩Ado究dc.Re沫fresh参Ado笑dc.Re浊cords格et.Ad疗dNew拍Ado屠dc.Re眯cords嘉et.Fi葱elds(捐"read佣erid"同)=T点rim(T骂xtRea换derid秩.Text讯)密Ado去dc.Re矛cords裳et.Fi旬elds(惑"read饭ernam旬e")=受Trim喇(TxtR解eader仁Name.垮Text)耗Ado以dc.Re率cords牌et.Fi拳elds(颜"book趴num")盏=0矿Ado倘dc.Re退cords毫et.Up阳date坏Ado感dc.Re谊fresh熄'将标牛志变量置为臣真岗Act膝Flag殃=Tru母e戏Unl响oadM是e画EndS咐ub精6．删除一部个读者梯选择菜单膛“丛读者管理百→钱删除一个读棉者恭”移，在代码编怖辑窗口中添柱加以下代码菊：仁Priva庆teSu码bDel忍Reade吴r_Cli弹ck()都'将标泻志变量置为侵假横Act衣Flag矮=Fal仍se块'显示哨删除一个读泛者窗体弊frm您DelRe爬ader.笔Show仿vbMod重al峰'判断申是否需要刷们新数据表格颂，如果需要巡则在主界面代的数据表格什中显示所有伶的读者信息建If燕ActFl凳agTh耀en附D朴ispAl撕lRead得er_Cl唱ick摊End份If短Act酱Flag甘=Fal疑se研EndS库ub库为工程添加罩一个新的窗壶体，将新窗炮体的远“慢名称今”潮属性改为抬“泼frmDe泼lRead薪er针”余，澡“游Capti镜on核”蚁属性改为慰“辽删除一个读绘者篮”姑。皮在窗体上好添加一个框淹架控件（F程rame）杠，在Fra垂me1中添肆加一个命令裂按钮、一个施标签、一个荡文本框和一鹊个ADO数钓据控件。挑修改frm念DelRe耐ader窗厅体控件的属香性，见表7疫。直表7F歇rmDel验Reade粘r窗体控件愚属性板控件名称浆属性名称摸属性设置值六Frame帽1王Capti票on旬输入编号滴Label训1组Capti祸on削读者编号橡Text1醒名称闷TxtRe滑aderi掌d垮Text到Comma店nd1铁名称覆CmdDe办l拘Capti杂on肥删除愈Adodc苏1侦名称凑Adodc缎Visib巷el女False木运用frm出Main主淘界面中设置弃Adodc句的方法来设编置本窗体的膏Adodc古，完成后的零frmDe隔lRead务er晕窗体效果如垫图22所示悼。芬赵贝称戴江示图22叼双击鲁“映删除马”畏按钮，在代短码编辑窗口词中添加以下技代码：匙Priva姜teSu牲bCmd鸭Del_C迈lick(睁)岩Dim姿RecC寇ount忙AsIn北teger慕'判断婆是否输入了励读者编号信也息，如果没叔有输入则发程出提示并退断出子程序穴If织Trim(竞TxtRe场aderi微d.Tex估t)=拐""Th项en京M就sgBox徒"请填入敞编号信息！吃",,恒"提示"虫E絮xitS旷ub域End踏If者'根据样读者编号查钉找读者信息冈Ado宁dc.Re象cordS起ource这="s蒙elect宜*fr辅omre陶ader乎where材read魔erid=蹈"_向&"询'"&孔Trim(蝶TxtRe义aderi答d.Tex装t)&待"'"朽Ado享dc.Re膜fresh允'如果约没有该读者躺信息则提示便"查无此人遵！"信息，萍退出子程序互Rec烫Count但=Ad直odc.R幼ecord择set.R香ecord贺Count碎If绢RecCo职unt<馆1Th懂en王M断sgBox固"查无此衔人！",意,"提示护"船E嫩xitS若ub行End尽If级'根据悬读者编号信闸息从数据库汇表"bor啊row"中丑查找该读者伟的借阅记录披Ado繁dc.Re澡cordS休ource盏="s创elect榨*fr散ombo更rrow义where投read浪erid=茫"_祸&"铅'"&劈Trim(村TxtRe危aderi双d.Tex钢t)&馅"'"幼Ado盟dc.Re翠fresh身'如果狸存在该读者院的借阅记录润，提示"此迎人有书未归稼还，故不能份删除！"信译息，退出子渣程序政Rec趣Count家=Ad进odc.R益ecord井set.R豆ecord迷Count庸If黎RecCo危unt>荡0Th赶en艰M鉴sgBox组"此人有壤书未归还，谁故不能删除奏！",,碗"提示"狭E革xitS句ub立End棒If截'从数粮据库表"r瞎eader秘"中找到该熔读者记录，决删除拜Ado米dc.Re全cordS扎ource埋="s僻elect学*fr残omre竿ader蜓where鸽read叔erid=罢"_块&"库'"&灾Trim(脚TxtRe线aderi犯d.Tex乓t)&虚"'"全Ado戏dc.Re捷fresh太Ado扁dc.Re连cords彩et.De占lete贱Ado苹dc.Re盘fresh匪'将标宣志变量置为陪真漏Act扑Flag久=Tru牺e轻Unl获oadM戏e浅EndS灵ub佛7．显示所膜有图书吸选择菜单蜡“据图书管理借→容显示所有图傻书食”由，在代码编缩辑窗口中添旦加以下代码乡：缎Priva熄teSu输bDis芽pAllB揭ook_C斜lick(勇)而Dim增RecC狮ount域AsIn菠teger仪'从数逼据库表"b帜ook"中生查找所有的误图书记录骡Ado鸭dcTem件p.Rec悬ordSo税urce否="se晶lect采booki弹das副"_矿&"荡图书编号歪"&"阅,boo填kname心as"腊&"括图书名称攻"_撕&"可,book谋state男as"圈&"此荐书是否已借烂出"&崖"fro赠mboo爷k"主Ado劣dcTem爆p.Ref郊resh岔'如果巧查到的记录末数>0则摧刷新数据表坦格显示查到虏的图书信息举，否则提示疑"未查到任酿何图书记录盐！"信息听'并刷逢新数据表格蹦显示空表对Rec债Count丰=Ad桨odcTe叼mp.Re缸cords印et.Re荡cordC勤ount燥If央RecCo膏unt>花0Th蹈en石D增ispla观yGrid抄("显示恋所有图书"尺)岗Els雨e它M组sgBox存"未查到讯任何图书记汉录！",蜻,"提示夹"昏D研ispla堡yGrid浓("显示挠所有图书"碧)枯E默xitS局ub呢End纺If炭EndS老ub敲8．查询单药册绒选择菜单爪“扒图书管理瑞→艰查询单册塌”抬，在代码编妥辑窗口中添钳加以下代码匙：俘Priva默teSu念bFin旨dOneB武ook_C峰lick(嫁)著Dim神RecC寿ount独AsIn栗teger鸭'将标健志变量置为圣假遥Act隐Flag悟=Fal敢se勤'显示横查询单册窗索体铺frm窜FindO贷neBoo孝k.Sho寿wvbM遇odal丑'判断通是否需要刷壶新数据表格姻If兵ActFl种agTh侦en肤R串ecCou醒nt=洗Adodc蒙Temp.板Recor可dset.幅Recor霞dCoun棍t犯I象fRec粉Count选>0义Then勿铅Disp栋layGr冰id("仔查询单册"援)必E锐ndIf鼠End瞒If湾Act夕Flag梢=Fal页se危EndS因ub烧为工程添加见一个新的窗阵体，将新窗熟体慎”蚂(名称)占”迅属性改为万”级frmFi循ndOne诵Book稠”房，领”娃capti据on搬”揭属性改为傲“扒查询单册蒜”异。泛在窗体添加伸一个框架控向件(Fra论me)和一猫个ADO数躬据控件(A炉dodc)榜,在拨”誓Fram恭e桨1焦”找中添加一个饥命令按钮(夹Comma帝ndBut似ton)、戏一个标签(并label嫂)和一个文遣本框(te镜xtbox须)。敲修改frm洒FindO倾neBoo慢k窗体控件锤的属性如表悼8所示：骆表8f进rmFin优dOneB赠ook窗体妄控件属性扯控件名称犬属性名称枝属性设置值咸Frame岁1鸽Capti研on找输入查询条丧件违label飞Capti企on催图书编号息Text1静名称简txtbo炮okid洲text笑Comma银nd1胜名称逝Cmdfi够nd脑Capti蓄on猜查询雄Adodc纲1闲名称痕Adodc阻visib寿le框false唇根据符“或frmMa相in妨”损主界面中的络设置瞧“则Adodc血”笑的方法来设佳置本窗体的肢“铁Adodc按”液的韵“骄conne虎ction盾strin巾g腾”割属性。辰双击酿“寿查询糠”诱按钮，在代佣码编译窗口张中添加以下处代码：碧Priva帮teSu厉bCmd卫Find_陕Click悦()视Dim诉RecC爷ount肠AsIn溪teger慧'判断径是否输入了荣图书编号，势如果没有输独入信息，则帜发出提示，理并退出子程税序局If巩Trim(抖TxtBo惊okid.填Text)郑=""候Then炼恨MsgBo谨x"查询广条件不能为仙空，请填写戏！",,缠"提示"慧脖Exit季Sub仔End党If际'根据宵图书编号查占找该图书信笨息佣Ado特dc.Re乎cordS熔ource辈="s康elect撇book塞idas裳"&件"图书编灰号"_乒&"衣,boo聋kname干as"匠&"鞋图书名称"最&",娱book锁state游as"君_墨&"碌此书是否读已借出"岸&"欲from班book准where纳book闲id="嗓&"'备"_鱼&T孝rim(T迟xtBoo夏kid.T第ext)处&"'"年Ado泳dc.Re负fresh赔'如果肚查到的记录弊数>0，活则返回主界克面在数据表床格中显示查评到的图书信酸息仇Rec超Count磨=Ad老odc.R稼ecord卡set.R莫ecord尘Count坏If报RecCo处unt>晕0Th倦en沉f就rmMai混n.Ado猫dcTem科p.Rec只ordSo仗urce族="se枕lect饲booki慧das凑"_颗&初"图书笨编号"&斯",b文ookna晃meas册"&励"图书名太称"_体&禽",b族ookst默atea嚷s"&紫"此书兄是否已借出均"_纳&污"fr曾ombo晶okwh腹ereb筹ookid到="&池"'"察&Tri灯m(Txt轧Booki确d.Tex虑t)_滑&泼"'"政f剥rmMai粒n.Ado甩dcTem屑p.Ref吵resh膀A采ctFla馋g=T栽rue蓬U怨nload快Me刺Els晌e寇'踢若没查到该有图书信息，豆则提示"查伶无此书！"些信息，退出绳子程序价M笼sgBox梁"查无此匀书！",另,"提示头"讯E辞xitS磨ub锅End秤If窃EndS听ub罩9．添加新拦书缸选择菜单陷“浙图书管理我→萄增加新书箭”历，在代码编牌辑窗口中添肉加以下代码耀：布Priva舞teSu蚂bAdd日Book_既Click闷()便'将标蜂志变量置为库假蜡Act黄Flag个=Fal捞se隙'显示泪增加新书窗彩体特frm野AddBo绣ok.Sh循owvb促Modal汉'判断视如果需要刷议新数据表格果，则在主界锣面中显示所己有的图书信引息贯If缎ActFl办agTh攀en缩D敌ispAl驶lBook估_Clic的k并End炉If分Act佳Flag逆=Fal恢se龄EndS弹ub纽为工程添加都一个新的窗偶体，将新窗珍体稠“名(名称)浮”傅属性改为扫“网frmAd活dBook却”嗓，糊“融capti绍on访”发属性改为倦“仪增加新书芦”努。旧在窗体上添寿加一个框架往控件(fr泡ame)，研在怪“碑frame嗓1哈”坡中添加一个置命令按钮(月comma久ndbut体ton)、及两个标签(歼label庆)、两个文邪本框(te座xtbox令)和一个A粱DO数据控量件(Ado良dc)，如诸下表所示：荡控件名称旋属性名称撒属性设置值授Frame柳1衡Capti禽on剥输入数据享Label勺1释Capti缘on先图书编号替Label春2咐Capti者on钢图书名称导Text1竟名称脉txtbo杏okid罚text茫Text2冒名称肉txtbo馆oknam疮e辣text蚁Comma户nd1土名称春Cmdsa概ve筹Capti经on躺保存妈Adodc术1甜名称鹿Adodc保visib慧le茎false东根据师”饭frmMa址in离”雄主界面中的湿设置遇“鸟Adodc扰”馋的方法来设喊置本窗体的艳“翻Adodc诉”手的特“钞conne尚ction矮strin知g应”紫属性。塞双击奶“阻保存赶”万按钮，在代菌码编辑窗口坡中添加以下熔代码：肝Priva筒teSu尼bCmd敏Save_四Click弟()坟Dim闹RecC寇ount脾AsIn利teger倚'判断趁是否输入了被图书编号和涨图书名称信烂息，如果没武有输入则发订出提示并退甜出子程序关If痒Trim(仁TxtBo骂okid.容Text)贺=""参OrT红rim(T烟xtBoo喉kName覆.Text率)="倘"The翁n灶M市sgBox议"请将内患容填写完整疗！",,付"提示"熟E挨xitS前ub筑End傻If哪'根据控图书编号查幅找是否存在杰该图书记录中，如果存在喊，则提示"射已经存在此丰图书编号，姓请重新设置斗！"甩'则提祝示退出子程灿序消Ado风dc.Re们cordS响ource珠="s说elect街*fr冈ombo摩okwh炸ereb钞ookid咏="&肠"'"&价Trim聋(TxtB富ookid牺.Text咸)&"暮'"婆Ado刘dc.Re瑞fresh凶Rec医Count尖=Ad爱odc.R隐ecord锅set.R羊ecord坑Count访If透RecCo毫unt>赔0Th盛en盏M荒sgBox借"已经存黑在此图书编蜂号，请重新接设置！",陪,"提唐示"索E为xitS漠ub骨End衡If狼'在数驼据库表"b致ook"中拐添加该新书搁记录芝Ado洗dc.Re寨cordS瓦ource妹="s来elect会*fr榴ombo梅ok"善Ado挎dc.Re圾fresh锹Ado具dc.Re约cords忌et.Ad华dNew此Ado葵dc.Re抛cords机et.Fi拆elds(衣"book彩id")李=Tri登m(Txt朵Booki炎d.Tex锐t)肚Ado漂dc.Re海cords足et.Fi闹elds(支"book票name"午)=T朵rim(T余xtBoo巷kName榜.Text和)嫂Ado压dc.Re搁cords灶et.Fi腾elds(节"book亚state择")=缸"否"歪Ado椒dc.Re低cords农et.Up狠date榨Ado螺dc.Re安fresh伐'将标策志变量置为译真糠Act弄Flag蛋=Tru饰e彻Unl燥oadM骆e择EndS逃ub给10．删除阁图书乞选择菜单竭“医图书管理别→文删除图书郊“渠，在代码编挨辑窗口中添极加以下代码惕：肥Priva丈teSu估bDel沫Book_音Click亿()气'将标胆志变量置为逝假葡Act割Flag聪=Fal咳se考'显示馆删除图书窗遣体返frm习delbo溜ok.Sh胆owvb列Modal敞'判断敏是否需要刷驰新数据表格历，如果需要赴的话则在数横据表格中显垃示所有的图赌书记录蜂If允ActFl读agTh竭en馆D喉ispAl两lBook受_Clic刚k哨End勇If仁Act忧Flag蠢=Fal黄se撇EndS租ub爱为工程添加稿一个新的窗傻体，将新窗储体汇“犁(名称)勤”问属性改为镜“傅frmde故lbook阵”驰,剪“蔑capti柜on渠”蔑属性改为饮“广删除图书袭”胡。转在窗体上添长加一个框架庄控件(Fr注ame),篇在悉”需Frame叉1亭”眯中添加一个叙命令按钮(损comma洁ndbut杰ton)、灶一个标签(急label坐)、一个文抬本框(te灵xtbox横)和一个A法DO数据控坦件(Ado复dc),如重下表所示：盒控件名称手属性名称贵属性设置值语Frame良1蝇Capti战on呀输入编号盏Label及1凳Capti软on帐图书编号秒Text1戴名称仪txtbo似okid然Text霉Comma章nd1模名称蝶Cmdde絮l亏Capti袋on置删除沈Adodc易1汽名称咱Adodc没visib亏le及false煌根据兄“阳frmMa朱in预”卷主界面中的汪设置对“截Adodc菊”冒的方法来设根置本窗体的见“掌Adodc勉”踏的度“纪conne蛮ction蕉strin盒g抗”汗属性，完成判以上操作后港frmDe询lBook晋窗体效果如慕下图所以：刮双击矩“燕删除药”抹按钮，在代扮码编辑窗口籍中添加以下仿代码：秩Priva示teSu披bCmd壁Del_C便lick(嗓)骄Dim池RecC尿ount深AsIn晋teger芝'判断峡是否输入图竭书编号，如佩果没有输入掘数据，则发共出提示并退脉出子程序主If四Trim(球TxtBo添okid.齐Text)脂=""材Then书M像sgBox铅"请填入樱编号信息！给",,拆"提示"承E习xitS藏ub们End乓If流'根据睁图书编号从侵数据库表"絮book"贩中查找该图牲书的记录。献Ado率dc.Re坡cordS港ource闲="s射elect映*fr煮ombo捡okwh座ereb熟ookid的="_胳&"勾'"&断Trim(芽TxtBo数okid.牌Text)灰&"'字"扫Ado泼dc.Re成fresh应Rec动Count括=Ad灿odc.R剃ecord虚set.R看ecord哲Count叛'如果巷没有该图书铲的信息，则钓提示"查无差此书！"信锻息，退出子猎程序计If拦RecCo择unt<叨1Th费en条M井sgBox求"查无此乓书！",足,"提示康"写E夹xitS顿ub平End荐If构'如果缩该图书已经古借出，则提叼示"此书尚双未归还，故窗不能删除！艘"并退出子亮程序安If辅Adodc垫.Reco头rdset揭.Fiel袖ds("b歉ookst亿ate")乏="是铜"The割n范M拨sgBox周"此书尚昆未归还，故税不能删除！局",,熟"提示"及E脉xitS鸦ub燃End絮If应'删除旬该图书记录肥Ado鉴dc.Re郑cords口et.De缘lete师Ado骂dc.Re挎fresh码'将标贴志变量置为臂真捞Act抗Flag励=Tru探e帆Unl众oadM吧e榴EndS毒ub悬11．显示搁所有借阅情咳况猜选择菜单歇“馅借阅管理鞭→幸显示所有借奏阅记录哨”寇，进入代码痕编辑窗口中茶添加代码如缺下：伯Priva尺teSu村bDis物pAllB害or_Cl另ick()丸Dim拦RecC纵ount腔AsIn累teger兵'用多漠表连接查询辽语句查询所代有的图书借虚阅记录嗓Ado据dcTem浴p.Rec话ordSo紫urce局="se业lect喷borro秀w.rea客derid票as"窝_他&"熄读者编号键"&缠",rea匠der.r胖eader等name租as"科&"读朗者姓名"晚_良&"罚,borr庄ow.bo常okid唐as"畜&"所悼借图书编号桌"&彼",boo砖k.boo害kname麦as"冰_粪&"捉所借图书炊名称"策&"f挽romb典orrow乞,read遮er,bo倚ok"池_贼&"塞wher凭ebor燥row.r赞eader获id=re微ader.刻reade曾rida粉nd"母_冤&"尽borr裳ow.bo透okid=灰book.勿booki知d"炸Ado色dcTem乏p.Ref久resh巩Rec努Count屋=Ad共odcTe换mp.Re尽cords孟et.Re她cordC齐ount傲If宪RecCo迫unt>啊0Th基en幅'铜如果查到的请记录数>玉0，则在数蒙据表格中显阳示所有的借诵阅记录饲D遇ispla栽yGrid惩("显示探所有借阅情获况")舍Els玻e轻'速否则，提示浴"没有任何叛借阅记录！饱"信息并显早示一个空表挎M骗sgBox与"没有任营何借阅记录蹄！",,脏"提示"殊D剧ispla绸yGrid榜("显示葵所有借阅情扔况")嚷E版xitS跌ub播End锋If厘EndS受ub12．借书雕选择菜单舞“加借阅管理毫→敬借书途”峰，在代码编急辑窗口中添紧加以下代码脚：歌Priva轮teSu霉bBor衔row_C归lick(社)犹Dim筑RecC引ount舟AsIn壳teger插'将标遗志变量置为廊假轿Act欢Flag煎=Fal心se受'显示刊借书窗体献frm军borro师w.Sho挣wvbM析odal坡'判断母是否需要刷劫新数据表格功，如果需要秆则显示刚才矛借书读者的零借阅记录授If俯ActFl喉agTh尖en覆R讲ecCou载nt=微Adodc凉Temp.斯Recor药dset.革Recor离dCoun聪t换I猎fRec说Count添>0跌Then歉骗Disp竞layGr宪id("勿此人借阅记成录")他E洒ndIf喝End虽If检Act曾Flag鸟=Fal搏se破EndS慧ub延为工程添加鸭一个新的窗况体，将新窗凝体递”构(名称)艇”侄属性改为节”雾Frmbo于rrow捏”贺，梢”铁Capti铁on吓”绞属性改为播“使借书帆”嚼。瘦在窗体上添挠加一个框架镰控件(Fr亡ame)，植在Fram色e1中添加烈一个命令按喂钮(Com闸mandb围utton盟)、两个标引签(Lab宫el)、两裳个文本框(浴Textb额ox)和一诱个ADO数诚据控件(A渗dodc)插。壳修改frm洁borro败w窗体控件证的属性，如播下表：刚控件名称象属性名称珍属性设置值挂Frame化1耍Capti钳on有输入数据鞭Label杏1叹Capti诊on矩图书编号削Label逢2内Capti叹on臭读者编号碧Text1戒名称衬Txtbo冠okid跪Text婚Text目2牢名称桨TxtRe民aderi读d镇Text班Comma炸nd1予名称市Cmdbo膏rrow诱Capti琴on圾借书抢Adodc浩1肠名称循Adodc摇Visib掉le宵False瓶根据朝“含frmMa战in谎”副主界面中设保置年“接Adodc霉”争的方法来设弓置来本窗体炮的徐“爬Adodc慌”翼的被“符Conne充ction骑strin互g妹”泳属性。乳双击趴“扰借书袖”溉按钮，在代霞码编辑窗口座中添加以下娇代码：朝Priva微teSu花bCmd结Borro垃w_Cli毁ck()址Dim躺RecC注ount1耻AsI乓ntege跪r男Dim钞RecC堡ount2嚷AsI岗ntege眉r此Dim密Book联State袍StrA量sStr晴ing舱'判断拉是否输入了普图书编号和猫读者编号，冠如果没有输寿入，则发出肿提示并退出益子程序素If附Trim(队TxtBo冲okid.举Text)健=""例OrT喊rim(T脚xtRea笑derid萌.Text旁)="步"The粱n衬M视sgBox到"各项数兆据请填写完疼整！",忌,"提示丛"司E第xitS域ub衫End起If英'根据损图书编号查追询该图书记莫录是否存在穷Ado甲dc.Re游cordS梦ource晓="s共elect负*fr肃ombo荐okwh颈ereb戏ookid劲="&缺"'"&纷Trim纹(TxtB杰ookid央.Text渗)&"妹'"络Ado福dc.Re誉fresh同Rec收Count扛1=A洞dodc.阁Recor坊dset.麦Recor辟dCoun虽t姐If加RecCo怀unt1跑>0T启hen盆B耀ookSt潜ateSt翅r=A毅dodc.苗Recor菠dset.森Field告s("bo摩oksta赠te")扶I侮fBoo真kStat跨eStr狮="是"辱Then庆谷'根据读感者编号查找妹该读者记录谈是否存在雹偶Adod朵c.Rec亡ordSo稠urce臭="se迁lect秧*fro下mrea汤derw北here厨reade代rid="协_梨坛&"'"漂&Tr腰im(Tx顾tRead捐erid.扶Text)勉&"'馋"笔里Adod夫c.Ref遮resh自渡RecC喊ount2延=Ad男odc.R禁ecord机set.R央ecord兼Count等镜IfR僵ecCou当nt2<借1Th爆en龟搏'如柿果该图书存盛在并且已经弱借出，铜又伟不存在此读述者，则提示恐"该书已经射借出，也无侦此人！"服熊Ms为gBox塌"该书已经货借出，也无愿此人！",连,"提迫示"夫种Ex可itSu膛b丸堪Else溉地'如蔽果该图书存脑在并且已经驾借出，而存烈在此读者，蚀则提示"该窄书已经借出日，您不能借颗阅此书！"谅乳Ms蹄gBox滩"该书已经生借出，您不堆能借阅此书国！",,白"提示"怠植Ex镜itSu乞b贞确End暮If她E绝ndIf错'剪根据读者编久号查找该读哲者记录史A发dodc.厘Recor效dSour弦ce=碍"sele污ct*凡from验reade求rwhe招rere程aderi鸭d="_脾&探"'"臂&Tri罚m(Txt搬Reade委rid.T修ext)灶&"'"凯A芦dodc.裂Refre门sh影R受ecCou誉nt2=认Adod芳c.Rec牙ordse使t.Rec暖ordCo式unt阳I僻f把填RecCo昌unt2扁<1T怎hen奋许'如果该旁图书存在盾，焰没有借出挺，押然而此读者板不存在，则株提示"查无赌此人！"井样MsgB心ox"查斗无此人！"马,,"付提示"绒输Exit册Sub策E列ndIf异End滑If亚'根据馆图书编号查绑找该图书的档记录裳Ado璃dc.Re荡cordS参ource乡="s拜elect不*fr伯ombo土okwh之ereb醋ookid赏="_择&"稠'"&糊Trim(锯TxtBo慨okid.够Text)和&"'沃"阁Ado塞dc.Re漠fresh绩Rec宿Count肥1=A潜dodc.受Recor装dset.扇Recor懒dCoun何t卖If庄萝RecCo唯unt1睁<1T崭hen见'泰根据读者编蹦号查找此读童者记录苍A炒dodc.娱Recor笑dSour驴ce=爆"sele兄ct*趁from犹reade聪rwhe池rere捞aderi乒d="_乌&讨"'"妇&Tri顿m(Txt马Reade祸rid.T始ext)微&"'"运A帆dodc.袭Refre化sh楚R绿ecCou腾nt2=邪Adod觉c.Rec窄ordse手t.Rec害ordCo框unt君I队f饱少RecC丙ount2瞎<1婆Then低循'如果既趴没有此图书驱也没有此读叫者，则提示死"查无此书东，也无此人融！"信息圣鞠MsgB柳ox"查辉无此书，也杏无此人！"拥,,"录提示"率牛Exit雷Sub礼E勒lse图疲'如果没椅有此图书，趴但是有此读煮者，则提示茎"查无此书分！"信息毕羽MsgB霜ox"查堆无此书！"显,,"师提示"熟归Exit锈Sub示E骆ndIf讨End滚If鸟'根据殿图书编号查扮到在数据库连表"boo欺k"中该图愧书的记录宴Ado阿dc.Re疲cordS吼ource橡="s常elect评*fr日ombo叹okwh狸ereb路ookid附="_巨&"松'"&望Trim(确TxtBo球okid.司Text)冤&"'忌"障Ado浙dc.Re酒fresh桐'将该愤图书的记录醒是否借出状妨态修改为"帆是"狭Ado钩dc.Re茅cords推et.Fi赶elds(姥"book乎state肠")=邻"是"兴Ado侮dc.Re菌cords烧et.Up肿date窄Ado项dc.Re怒fresh螺'在数伐据库表"b爆orrow村"中添加一续条相应的借溪阅记录允Ado辜dc.Re咱cordS劈ource涂="s挖elect暗*fr错ombo皇rrow"掉Ado刑dc.Re相fresh倒Ado们dc.Re悼cords袄et.Ad糖dNew浅Ado钟dc.Re鸦cords甩et.Fi厚elds(洒"book拳id")付=Tri券m(Txt企Booki健d.Tex枝t)贼Ado犬dc.Re度cords捧et.Fi丽elds(梢"read陵erid"原)=T间rim(T永xtRea速derid罢.Text扰)逝Ado须dc.Re彼cords杨et.Up逗date剩Ado誓dc.Re痰fresh泽'在数核据库表"r糠eader侦"中查找到煤该读者的记尖录震Ado救dc.Re捆cordS洪ource摄="s登elect侨*fr颤omre俊ader绑where避read码erid=更"_信&"量'"&贞Trim(汇TxtRe浮aderi斧d.Tex夜t)&北"'"蝶Ado则dc.Re波fresh较'将该逝读者得借阅捐册数加"1疤"命Ado粘dc.Re杆cords瓦et.Fi尸elds(扣"book帐num")些=Ad型odc.R衣ecord桶set.F动ields扯("boo晚knum"古)+1渡Ado寨dc.Re跟cords豪et.Up登date吴Ado绩dc.Re怪fresh膊'修改气主界面临时木ADO数据许控件的Re腊cordS嘉ource暂属性，以备登刷新数据表肚格用丘frm洗main.机Adodc斤Temp.疼Recor搁dSour三ce=荣"sele抹ctbo虫rrow.敬reade朝rida诞s"_纱&"衣读者编号着"&皱",rea竞der.r五eader陆name匹as"绪&"读艳者姓名"议_稿&"巷,borr秧ow.bo叼okid田as"芹&"所延借图书编号称"&邻",boo障k.boo肠kname凳as"砍_粘&"充所借图书累名称"狸&"f佳romb阵orrow全,read路er,bo虾okwh洪ere"两_待&"乎bor问row.r侄eader域id=re览ader.鸭reade堵rida识ndbo庙rrow.露booki傻d=boo掌k.boo回kid"劫_残&"堪and误borro援w.rea掌derid蛙="&皮"'"&复Trim下(TxtR草eader溜id.Te矮xt)&扎"'"剃frm绳main.祸Adodc绢Temp.智Refre突sh御'将标丝志变量置为描真雁Act接Flag芬=Tru狂e怎Unl骗oadM膏e乓EndS姻ub13．还书辽选择菜单园“庆借阅管理兵→猎还书钟”杂,在代码编案辑窗口中添椒加以下代码社：普Priva脏teSu荒bRet对urn_C露lick(肯)乘Dim算RecC辉ount雅AsIn死teger肤'将标怖志变量置为酒假斑Act陷Flag敌=Fal红se绝'显示抄还书窗体吧frm秘retur歼n.Sho纯wvbM身odal栽'判断汪是否需要刷桥新数据表格贷，如果需要播的话，则在顶数据表格中季显示"该书帽原读者未还澡书记录"期If乔ActFl循agTh趋en亩R委ecCou旅nt=祖Adodc翁Temp.票Recor孔dset.量Recor嘱dCoun户t絮排Disp箭layGr香id("户该书原读者照未还书记录潜")绪End仇If不Act烘Flag她=Fal皇se点EndS趁ub腹为工程添加挤一个新的窗卷体，将新窗姜体乘“钻(名称)甘”造属性改为牺“级frmRe越turn秀”跃，煌“标Capti采on值”谣属性改为钓“不还书驾”屡。野在窗体上添棉加一个框架休控件(Fr诞ame)，格在宽”类Frame状1疮”奸中添加一个填命令按钮(翅Comma区ndbut裹ton),泊一个标签(都Label浮),一个文办本框架(T彩extBo停x)和一个恩ADO数据健控件(Ad下odc).织修改frm岁Retur组n窗体控件旁的属性，如蔑下表所示：狸控件名称独属性名称邮属性设置羽Frame舅1幕Capti吹on仔输入数据轻Label旦1肆Capti痒on昌图书编号冶Text1曲名称具Txtbo谱okid促Text砖Comma条nd1馅名称柔Cmdre五turn晚Capti洪on恰还书懂Adodc截1菌名称漆Adodc康Visib船le丰False叼运用苦“既frmMa泼in随”秘主界面中设率置垃“尿Adodc势”喝的方法来设拥置本窗体的腾“巩Adodc绸”沫的孟“霉Conne无ction贩Strin鬼g见”烈属性。据双击模“孝还书麻”不按钮，在代牌码编辑窗口赖中添加以下侍Priva糖teSu护bCmd璃Retur评n_Cli旧ck()搅Dim漠RecC顽ount宰AsIn驾teger倾Dim你DelR提eader炊idStr蚀AsS边tring冲'判断金是否输入了峡所还图书的温图书编号座If橡Trim(伴TxtBo键okid.旋Text)陷=""历Then轧M卸sgBox寿"请将数抗据填写完整爆！",,诵"提示"治E柴xitS父ub矿End耽If卡'根据意图书编号查魄找图书记录询Ado敏dc.Re丧cordS朵ource俯="s勿elect独*fr派ombo痒okwh源ereb沿ookid姨="&乐"'"掩&Tri筝m(Txt奏Booki症d.Tex鹊t)&公"'"盐Ado边dc.Re紫fresh长Rec缓Count朵=Ad易odc.R封ecord舱set.R盏ecord验Count饥'如果筝图书记录数糖为0，则提饥示"查无此贱书！"信息贺，退出子程矩序警If宣RecCo肝unt<按1Th按en壤M艳sgBox瞒"查无此眨书！",拍,"提示索"歼E旱xitS镜ub胞End航If迫'根据鹅图书编号在本数据库表"次borro趴w"中查找稼该图书得借汁阅记录岔Ado腿dc.Re可cordS铺ource去="s泥elect氏*fr冰ombo沿rrow乖where眼book赚id="拘_盟&"恳'"&令Trim(畅TxtBo避okid.寺Text)吧&"'帆"铃Ado导dc.Re呢fresh匹Rec高Count律=Ad轨odc.R斧ecord仓set.R概ecord蛛Count先'如果福没有初查到该图书誓的孝借阅记录，沈则提示"此债书并未被借趟出，故不需本归还！"，脊退出子程序昌If轰RecCo众unt<创1Th鼻en邪M默sgBox禽"此书并秒未被借出，窜故不需归还肆！",,固"提示"够E箱xitS追ub捞End句If化'用变众量DelR耕eader免idStr袍记录借阅该机图书的读者冠编号驼Del售Reade堪ridSt跑r=A拾dodc.替Recor焰dset.浆Field欢s("re防aderi我d")基'删除胜在"bor荡row"表持中该图书的扎借阅记录火Ado筐dc.Re夕cords词et.De剃lete戴Ado匪dc.Re修fresh否'根据行图书编号从物数据库表"递book"论中查找该图傻书的记录内Ado发dc.Re涌cordS晨ource总="s植elect侄*fr冰ombo征okwh脸ereb亿ookid折="&乔"'"乓&Tri仔m(Txt芝Booki亏d.Tex岭t)&锤"'"餐Ado灰dc.Re垮fresh效Rec淡Count孝=Ad脑odc.R屠ecord螺set.R畅ecord除Count愧'将该前图书的是否逢借出字段值卡修改为"否发"叔If呢RecCo纷unt>元0Th古en枯A棚dodc.扫Recor路dset.绍Field判s("bo沈oksta奉te")测="否"闪A脚dodc.英Recor染dset.派Updat关e稀End叠If送'根据枝读者编号查毕找该读者的畜记录掏Ado窑dc.Re妻cordS堵ource柱="s凳elect粥*fr冠omre忌ader租where秆read竖erid=熔"_尼&"蜡'"&谷DelRe掏aderi禽dStr障&"'"维Ado强dc.Re逢fresh兵Rec疑Count孟=Ad殿odc.R淹ecord莲set.R穴ecord绝Count毙If腔RecCo支unt>伞0Th往en压'展将该读者的酿借阅册数减裤1堵A堂dodc.匹Recor偏dset.客Field护s("bo疗oknum街")=料Adodc棋.Reco汤rdset盾.Fiel嚼ds("b窗ooknu床m")-范1疾A垒dodc.瓦Recor皂dset.嫁Updat多e改A她dodc.亡Refre详sh脖End壮If葛'用将雅多表连接查柴询语句来查塔询该图书原辨借阅读者的纷所有现