计算机专业毕业设计（论文）：图书馆全开架借阅管理系统

计算机专业毕业设计（论文）摘 要全开架借阅是当今高校图书馆发展的必然趋势。实行全开价借阅，不仅方便读者，大大促进图书馆资源的开发和利用，而且也能全方面体现图书馆的综合服务功能。但目前绝大多数高校的图书馆系统不尽人如意，不能适应全开架借阅的管理需求。因此笔者设计了这套图书馆全开架借阅管理系统软件，希望为读者和管理者提供较为科学的，全面的服务。关键字：Visual FoxPro6.0 数据库 高校图书馆 借阅 管理系统 目 录引 言41 开发图书馆借阅管理系统的思考511全开架借阅图书方式的优势5111全开架借阅是当今图书馆开放管理的必然趋势5112全开架借阅是优势明显的，使读者，管理者双赢的管理方式512全架借阅图书管理系统的优势5121体现“以人为本”的先进管理概念5122满足读者自我服务意愿，促进管藏资源的开发和利用613方便管理者，促进管理者为读者的综合性服务6131提供全面，科学，有效的信息服务6132具有完善的管理功能7133管理安全可靠性714 为图书馆自动化管理奠定了基础72系统分析与设计821需求分析8211管理系统的总体框架822模块分析8221功能模块图8222模块分析923编程环境的选择924界面的风格103 具体功能说明及主要程序1131登陆系统1132进入系统欢迎界面1233“学生资料”模块13331 学生资料的查询13332 学生资料的增加14333 学生资料的修改15334 学生资料的删除16335 学生资料的保存18336取消19337 学生资料的打印19338借还书20339 退出2334“书籍资料”模块24341 .添加“书籍信息”24342增加书籍25343修改书籍26344删除书籍26345查询书籍27346书籍的保存28347取消304 结论31致谢32参考文献33ABSTRACT34引 言随着计算机及技术的飞速发展，电脑在全球范围内日益普及，当今社会正快速向信息化社会前进，信息自动化的作用也越来越大。从而使我们从繁杂的事务中解放出来，提高了我们的工作效率。高校图书馆在学校的教育教学和科研活动中，起着至关重要的服务作用。服务是图书馆的本质属性。高校图书馆的基本职能是满足师生的借阅要求。随着信息技术的应用，师生对图书馆服务的期望值越来越高，他们希望科学，全面，快捷，准确地获取信息，使用信息。作为信息传递桥梁的高校图书馆所沿用的传统的“闭架式”，“书库式”借阅管理方式，已不能满足师生的信息要求，更阻碍图书馆的可持续发展。而对于图书管管理员来说，面对日益增加的读者数量，手工运作的工作量太大，而且容易出错，因此，运用电脑管理是趋势，也是必然。我是一名计算机学科的应届本科毕业生，有志于在图书管理方面做贡献。并运用自己四年来在老师们的辛勤教育和帮助下所学的知识和技能，设计了一套高校图书馆借阅管理系统。希望能帮助高校图书馆改革管理，同时也愿意在实践中检验自己的能力，诚恳听取老师们的意见，不断改进和完善设计。1 开发图书馆借阅管理系统的思考11全开架借阅图书方式的优势111全开架借阅是当今图书馆开放管理的必然趋势十七世纪被誉为“图书学开山鼻祖”的法国学者加布里埃诺迪指出：“图书馆应当对公众开放”。在图书馆开发的一些理论的指引下，历经几代中外图书馆学者大力提倡和实践，图书馆的全开架服务，成为当今图书馆开放管理的重要基础。西方发达国家图书馆凭借雄厚的经济实力和技术实力早已实现了开架借阅。我国部分先进图书馆和和级少数有条件的高校图书馆也纷纷采用了这种方式。这种方式为图书馆的现代化搭建了基础平台，为图书馆的可持续发展提供了保证。与之相反，“闭架式”，“书库式”的管理方式已制约了高校图书馆的发展。因此，高校图书馆实行全开架借阅方式势在必行。112全开架借阅是优势明显的，使读者，管理者双赢的管理方式全开架借阅不仅简化手续，方便读者，保证了信息的完整性和准确性，而且大大提高了图书及信息的利用率，节省了大量的时间。将“以藏为主”的服务方式转变为“以用为主”的服务方式，充分体现管理员主动服务的能力。这是读者和管理员都满意的服务方式。综上所述，全开架借阅方式是一种先进的借阅方式，所以，我所设计的管理系统以全开架式理论为依据。12全架借阅图书管理系统的优势全开架借阅管理系统与“闭架式”，“书库式”管理系统相比，显示其独特的优势，为读者和管理者提供了满意的操作平台，充分发挥了各自的主题作用。121体现“以人为本”的先进管理概念“以人为本”的管理是以人为中心的管理。其特点是：在管理过程中尊重人的价值，适应和满足人性需要，注重情感和文化因素。起作用在于激励人的积极性，主动性，创造性。“以人为本”的图书馆服务的理论主要表现在读者和图书馆管理员两方面。管理系统的设计以“以人为核心”的管理思想为指导，增强读者和管理者的自我服务意思，重复体现二者的人本价值。122满足读者自我服务意愿，促进管藏资源的开发和利用随着高校图书馆读者群信息需求的变化，“中介式”信息淡化，用户自我服务意愿增强，能力不断提高。用户更愿意，也有可能自己检索所需的信息，更加注重检索结果，信息的完整性和准确性。针对以上变化，管理系统的设计体现了以下优势： 读者拥有主动权，自主权和信息知情权 全开架借阅管理系统最明显的优势是让读者拥有“三权”。管理员的“中介式”检索服务淡化，让读者从操作的旁观者变为操作者，自己走上操作平台，自由使用查询功能，轻松，自如的查询，快速达到目的。并且在查询中可以根据有关信息资料而自由取舍，根据情况更换借阅对象。如当资料显示自己欲借的书已借出时，可以立即转换其他借书目标。再则，读者可以根据具体情况确定借阅的方式。例如，工具书是一种特殊图书，一般来讲，它主要提供查询而不是阅读，还有开本大，厚重，价格昂贵，一些成套书籍，一旦查到有关资料显示不便借阅时，可以用就地查阅方式。 信息资源集中使用，增加读者的信息量 读者可全面了解所提供的信息，徜徉其中，可以真正体会到遨游知识海洋的乐趣。 查阅功能的方便快捷读者能在完善的查询功能中直接找到自己所需的书籍，节约了时间，提高了借阅实效。13方便管理者，促进管理者为读者的综合性服务131提供全面，科学，有效的信息服务利用高校图书馆对大学生进行信息素质教育，是课堂教育的重要补充形式，具有其他教育无法替代的优势。随着经济时代的到来，高校的科研课题也需要大量信息资源。全开架信息管理系统能存储大量的各类图书资料和信息，并能随时添加和修改，以便提供全面，科学，有效的全面信息服务。132 具有完善的管理功能 使管理员操作快捷，准确。同时，由于“中介式”信息服务淡化，可节省管理人力和时间。133 管理安全可靠性 由于设置了登陆密码程序，尽管全开架管理，也绝对安全可靠。14 为图书馆自动化管理奠定了基础全开架借阅管理系统的开发，既是图书馆现代化管理的开端，又为其自动化管理奠基。如果以此管理系统为基础，与网络连接，继续开辟和完善，一旦连线国家图书馆网络，便能使其成为未来信息高速公路事业的重要组成部分。2 系统分析与设计21需求分析一个图书馆或者图书室中的图书的数目必定是有一定的规模的，而且来图书馆或者图书室借书的读者也不只是某几个特定的读者，要管理这些图书和学生的资料以及学生的借阅情况，如果仅仅凭手工操作其工作量是很大的，而且很难对其实现优化管理。所以，我开发的这个图书借阅管理系统主要侧重于管理员的管理。211管理系统的总体框架 设计一个高校图书馆借阅管理软件，管理学校图书和用户。能实现通过不同条件来查询图书及用户，处理用户借还书，图书证件等功能。管理员在“系统登陆”表单中输入正确的帐号和密码后即可登陆系统，弹出Logo表单，在此界面单击“进入”按钮，进入系统表单。系统主表单由“学生资料”和“书籍资料”两个页框组成。在这两个页框中可以分别完成学生资料和书籍资料的添加，修改，删除，查询和打印等功能。同时，在“学生资料”页框中设置“借还书”按钮，通过它来实现学生的借书和还书。22模块分析221功能模块图功能模块图如下：图书借阅管理系统图书资料管理学生资料管理借还书操作资料添加资料删除资料查询资料打印借书操作还书操作书籍排行逾期图书资料修改图2.2.1.1系统功能模块图222模块分析“图书资料管理”模块 “图书资料管理”模块包括图书资料的分条浏览，添加，修改，删除，查询和打印功能。在表单的“书籍资料”页框中可以通过“移动记录工具栏”分条查看系统内所有的图书的详细资料，包括图书的名称，类别，作者，出版社，购买日期等。单击“命令按钮工具栏”中的按钮可以对“书籍资料”页框中的记录进行相应的操作。“学生资料管理”模块 “学生资料管理”模块包括学生资料的分条浏览，添加，修改，删除，查询和打印功能。在表单的“学生资料”页框中可以通过“移动记录工具栏”分条查看系统内所有的学生的详细资料，包括学生姓名，性别，系别，班级等。单击“命令按钮工具栏”中的按钮可以对“学生资料”页框中的记录进行相应的操作。“借还书操作”模块 “借还书操作”模块包括读者借书记录的查看，借还书操作，图书借阅排行榜，查看逾期未归还的图书和打印等功能。读者借书记录查看功能可以查看所有的借书记录，也可以只查看目前尚未归还的借书记录。在“读者借书记录”表单中单击“借书”按钮，在打开的“输入”表单中，输入要借出的图书的图书编号，如果该图书是在馆中而且该读者还能借书，则借书成功。在“读者借书记录”表单中单击“还书”按钮，在打开的“输入”表单中输入要还书的图书的图书编号，如果该图书是被当前读者借出，则还书成功。当表单中显示的是读者未归还的图书列表时，在列出借书记录的表格中双击要归还的图书的“图书编号”栏即可将此书还入。在“读者借书记录”表单中单击“过期”按钮，可以查看系统内到了归还日期而未归还的图书的借阅记录。在“读者借书记录”表单中单击“排行”按钮，可以查看系统内借阅次数在所有图书内排行前10位的图书的列表。23编程环境的选择微软公司的Visual FoxPro 6.0是Windows下的数据库开发软件，是目前较为广泛的，易学易用的面向对象的开发工具。Visual FOXPRO 6.0提供了大量的控件，这些控件可用于设计界面和实现各种功能，减少了编程人员的工作量，也简化了界面设计过程，从而有效的提高了应用程序的运行效率和可靠性。同时，它集数据库和程序设计为一体，可以设计许多小型数据库系统。在客户机/服务器应用技术，远程数据共享，数据安全管理及文档管理等方面，具有很强的优势，非常适合于制作各种数据库应用程序。故而，实现本系统Visual FoxPro 6.0是 一个相对较好的选择。24界面的风格根据功能，把界面分为2页面，这样避免了让页面出现过多的功能键，而显得十分复杂。在这2部分：学生资料，书籍资料，让使用者一目了然，轻松找到需要执行的操作在那个页面。 图2.4.1“书籍资料”页框 图2.4.2“学生资料”页框3 具体功能说明及主要程序31登陆系统用户登陆需要输入个人的帐号和密码，正确则进入。错误则提示。 图3.1.1登陆界面主要程序代码如下：。SET EXACT ON &改为精确比较 THISFORM.i=THISFORM.i+1 &次数自动加 SELECT ACCOUNTS LOCATE FOR ALLTRIM(帐号)=ALLTRIM(THISFORM.txt帐号.VALUE) &查找帐号 IF FOUND() .AND. ALLTRIM(密码)=ALLTRIM(THISFORM.txt密码.VALUE)&如果帐号存在并且密码正确 THISFORM.RELEASE() DO FORM LOGO ELSE IF THISFORM.i3 &如果次数小于3 MESSAGEBOX(帐号或密码错误,请重新输入,48,系统警告) THISFORM.txt帐号.VALUE= THISFORM.txt密码.VALUE= THISFORM.txt帐号.SETFOCUS()ELSE &如果已登录三次 MESSAGEBOX( 密码错误三次,系统无法启动,48,系统警告) THISFORM.RELEASE() &退出表单、退出系统 CLEAR QUIT ENDIF ENDIF SET EXACT OFF &改为模糊比较。YN=MESSAGEBOX(确定退出,4+32,系统信息)IF YN=6 THISFORM.RELEASE() &退出表单、退出系统 CLEAR QUITENDIF。32进入系统欢迎界面33“学生资料”模块“学生资料管理”模块包括学生资料的分条浏览，添加，修改，删除，查询和打印功能。在表单的“学生资料”页框中可以通过“移动记录工具栏”分条查看系统内所有的学生的详细资料，包括学生姓名，性别，系别，班级等。单击“命令按钮工具栏”中的按钮可以对“学生资料”页框中的记录进行相应的操作。331 学生资料的查询 这个菜单里的选项有学号，姓名，邮件，地址。通过所输入的查询条件来查询学生的资料。 图3.3.1学生资料的查询主要程序代码如下：。StuTJ=.T.IF NOT EMPTY(ALLTRIM(THISFORM.txt学号.VALUE) &如果学号栏非空 StuTJ=+ALLTRIM(Thisform.txt学号.Value)+$学号ENDIFIF NOT EMPTY(ALLTRIM(THISFORM.txt姓名.VALUE) &如果姓名栏非空 StuTJ=StuTJ+AND+ALLTRIM(THISFORM.txt姓名.VALUE)+$姓名ENDIFIF NOT EMPTY(ALLTRIM(THISFORM.txt邮件.VALUE) &如果邮件栏非空 StuTJ=StuTJ+AND+ALLTRIM(THISFORM.txt邮件.VALUE)+$邮件ENDIFIF NOT EMPTY(ALLTRIM(THISFORM.txt地址.VALUE) &如果地址栏非空 StuTJ=StuTJ+AND+ALLTRIM(THISFORM.txt地址.VALUE)+$地址ENDIFTHISFORM.RELEASE()DO FORM StuSerout。THISFORM.RELEASE()。332 学生资料的增加 在该页面可以对学生资料进行增加，按固定的项目填入就可以了，极其方便，需要指出的是：学生的系别是通过下拉菜单选择的，用户可以不用填写，只要选择就可以了。然后保存就可以了，同时，可以通过快捷键选择“上一个”，“下一个”，“末记录”。图3.3.2.1增加学生资料“命令按钮工具栏”中“增加”按钮的作用是先保存页中当前记录的记录号，标记表单的状态为新状态，然后在表单的数据缓冲区新建一条记录，并且使当前页面进入非浏览状态。“增加”按钮的 click事件代码如下：SELECT StudentTHSFORM.StuOR=RECNO()GO BOTTOMAPPEND BLANKTHISFORM.StuModeMody()THISFORM.StuFM=“cadd”THISFORM.PF.StuPage.txt学号。READONLY=.F.THISFORM.REFRESH()333 学生资料的修改“命令按钮工具栏”中“修改”按钮的作用是先保存页中当前记录的记录号，标记表单的状态为修改状态，然后使当前页面进入非浏览状态。图3.3.3.1修改学生资料“修改”按钮的 click事件代码如下：THSFORM.Stufm=“cmod”THSFORM.StuOR=RECNO()THISFORM.StuModeMody()THISFORM.REFRESH()334 学生资料的删除“命令按钮工具栏”中“删除”按钮的作用是首先弹出确认对话框，如果确认则进行删除操作。由于本系统中学生的信息也会在别的数据表中出现，如果在该数据表中删除了学生的数据，而在其他数据表中保存会造成信息的多余与不便，所以本系统采取的方式是如果在“学生信息”数据表中删除了某一个学生的数据，则在其他的数据表中（主要是指“读者借书记录”数据表）输出与该学生有关的一切记录，但是如果该学生在删除时仍有未还的图书，系统将不允许删除。图3.3.4.1删除学生资料 “删除”按钮的 click事件代码如下：YN=MESSAGEBOX(“确定删除”，4+32，“图书管理系统”) &确认对话框IF YN=6 &如果确认 THISFORM.StuOR=RECNO() &保存记录指针位置 SET EXACT ON &严格比较 SELECT JyRec LOCATE FOR 学号=ALLTRIM（THISFORM.PF.StuPage.txt学号.VALUE）AND EMPTY(归还日期) &查找是否有未还图书 IF FOUND（） &如果有 MESSAGEBOX（“该学生有未还书，不能删除”，48，“图书借阅管理系统”） &弹出对话框 SELECT Student &回到原记录SET FILTER TOGO THISFORM.StuOR ELSE &如果没有未还书 SELECT JyRec &如果没有未还书GO TOP &选择“读者借书记录”工作区DO WHILE NOT EOTO &到数据表顶部 IF 学号= ALLTRIM（THISFORM.PF.StuPage.txt学号.VALUE） DELETE PACK ENDIF SKIPENDDOSELECT Student &在“学生信息”数据表中删除记录GO THISFORM.StuORDELETEPACKMESSAGEBOX（“删除成功”，64，“图书借阅管理系统”） &“删除成功”对话框SELECT StudentGO TOP ENDIF THISFORM.REFRESH（） SET EXACT OFFENDIF335 学生资料的保存 “命令按钮工具栏”中“保存”按钮的作用是检查表单中个数据栏中的数据输入完整情况，如果无误，则保存记录。“保存”按钮的 click事件代码如下：LOCAL OK &声明一个本地变量OK=.T. &假设个数据栏中无数据无误DO ASE CASE EMPTY(ALLTRIM(THISFORM.PF.StuPage.txt学号.VALUE)MESSAGEBOX（“学号不能为空”，48，“图书借阅管理系统”）THISFORM.StuPage.txt学号.SETFOCUS()OK=.F.CASE EMPTY(ALLTRIM(THISFORM.PF.StuPage.txt 姓名.VALUE)MESSAGEBOX（“姓名不能为空”，48，“图书借阅管理系统”）THISFORM.StuPage.txt姓名.SETFOCUS()OK=.F.CASE EMPTY(THISFORM.PF.StuPage.Cmb系别.VALUE)MESSAGEBOX（“系别不能为空”，48，“图书借阅管理系统”）THISFORM.StuPage. Cmb学号.SETFOCUS()OK=.F.CASE EMPTY(ALLTRIM(THISFORM.PF.StuPage.txt地址.VALUE)MESSAGEBOX（“地址不能为空”，48，“图书借阅管理系统”）THISFORM.StuPage.txt地址.SETFOCUS()OK=.F.CASE EMPTY(ALLTRIM(THISFORM.PF.StuPage.txt电话.VALUE)MESSAGEBOX（“电话不能为空”，48，“图书借阅管理系统”）THISFORM.StuPage.txt电话.SETFOCUS()OK=.F.ENDCASEIF OK=.T. &如果各数据栏无误为空 YN=MESSAGEBOX(“确定保存”，4+32，“图书借阅管理系统”) &弹出确认对话框 IF YN=6 &如果确认CanSave=.F. &试图保存MESSAGEBOX(“学号错误”，48，“图书借阅管理系统”) &如果保存失败THISFORM.PF.StuPage.txt学号. SETFOCUS() ELSEMESSAGEBOX(“保存成功”，64，“图书借阅管理系统”) &如果保存成功THISFORM.StuModeBrse()IF THISFORM.StuFM=“cmod” GO THISFORM.StuORELSE THISFORM.PF.StuPage.txt学号.READONLY=.T.ENDIF ENDIF THISFORM.REFRESH() ENDIFENDIF336取消“命令按钮工具栏”中“取消”按钮的作用是删除表单的数据缓冲区的数据，并且使当前页面回到浏览状态。“取消”按钮的 click事件代码如下：YN=MESSAGEBOX（“确定取消”，4+32，“系统消息”）TF YN=6 TABLEREVERT（.F.） TF THISFORM.StuFM=“cadd” GO THISFORM.StuOR ENDIF THISFORM.StuModeBrse() THISFORM.PF.StuPage.txt学号。READONLY=.T. THISFORM.REFRESH()ENDIF337 学生资料的打印“命令按钮工具栏”中“打印”按钮的作用是将“DbfName”全局变量赋值，表明要进行打印的是“学生信息表”并调用“选择打印类型”表单。“取消”按钮的 click事件代码如下：DbfName=“StuDbf”DO FORM PrintL.X图3.3.7.1学生资料的打印338借还书读者可以通过“借还书”按扭来实现借书和还书。并可以在此查看过期未还的图书和图书的排行榜。SELECT StudentThisform.OldRecord= RECNO() &将记录编号储存DO FORM Input WITH 输入书号,AA9999 TO BookNO &调用输入表单SET EXACT ON &改为精确比较IF BookNO &表示有输入图书编号 SELECT Book LOCATE FOR 图书编号=BookNO IF NOT FOUND() &表示找不到时 MESSAGEBOX(无此书号,48,信息窗口) SELECT Student GO Thisform.OldRecord &回到原记录 ELSE IF 是否借出=.T. MESSAGEBOX(书已借出,48,信息窗口) SELECT Student GO Thisform.OldRecord &回到原记录 ELSE SELECT JyRec COUNT FOR 学号=ALLTRIM(THISFORM.txt学号.VALUE) AND EMPTY(归还日期) TO YjNO IF YjNO=7 MESSAGEBOX(可借书数据目己满,48,信息窗口) SELECT Student GO Thisform.OldRecor &回到原记录 ELSE SELECT BOOK REPLACE 是否借出 WITH .T.,借阅次数 WITH 借阅次数+1 FOR 图书编号=BookNO INSERT INTO JyRec (学号,图书编号,借阅日期) VALUES (ALLTRIM(THISFORM.txt学号.VALUE),BookNO,DATE() MESSAGEBOX(借出成功,64,信息窗口) SELECT Student GO Thisform.OldRecord &回到原记录 ENDIF ENDIF ENDIFENDIFThisform.Refresh() &重新显示表单上各对象的数据SET EXACT OFF &改回模糊比较图3.3.8.1读者借还书表单中“过期”按扭的作用是调用“过期图书”表单，其Click事件代码如下：DO FORM Outdate图3.3.8.2过期图书列表表单中“排行”按扭的作用是调用“图书借阅排行榜”表单，其Click事件代码如下：DO FORM Topten图3.3.8.3书籍借阅排行榜339 退出“退出”（Cmdexti）按扭的Click事件代码如下：YN=MESSAGEBOX(“确定退出”，4+32，“图书借阅管理系统”)IF YN=6 THISFORM.RELEASE() CLEAR EVENTS QUITENDIF“学生信息”页面中“借还书”（Cmdjh）按扭的作用是将页面中当前记录的“学号”值赋给全局变量“StudentNO”，并调用“读者借书记录”表单。“借还书”（Cmdjh）按扭的Click事件代码如下：StudentNO=ALLTRIM（THISFORM.PF.StuPage.txt学号.VALUE）DO FORM JyRec34“书籍资料”模块341 .添加“书籍信息”在“书籍信息”（BookPage）页面被激活时，表单中的当前数据工作期应该变为“图书信息”数据表所在的工作期，将可能由其他表单对该数据表设置的过滤条件去掉，同时要使该页面进入浏览状态。 添加该页面的“Activate”事件代码如下： SELECT BOOK SET FILTER TO GO TOP THISFORM.SjFM=“cbrowse” THISFORM.SjModeBrse（） THISFORM.REFRESH（）由于该页面要在刷新表单时，显示表单中当前记录的书籍是否借出，故添加该页面的Refresh事件代码如下：SELECT BOOKIF 是否借出=.F. THISFORM.PE.BOOKPage.LblStatus.CAPTION=“在馆中”ELSE THISFORM.PE.BOOKPage.LblStatus.CAPTION=“借出中”ENDIF在“书籍信息”（BookPage）页面在可通过添加的MonthView控件（SjOleRq）来输入图书的购买日期，在该页面处于非浏览状态时单击“。”按扭即可调用该软件。添加“。”（Cmdrp）按扭的Click事件代码如下：THISFORM.PE.BOOKPage.Sjoleq.VISIBLE=.T.如果要从“SjOleRq”控件中获得日期值还需要添加“SjOleRq”的“DateClick”事件代码如下：* ActiveX 控件事件 *LPARAMETERS dateclickedTHISFORM.PF.BookPage.txt购买日期.VALUE=dateclickedTHISFORM.PF.BookPage.txt购买日期.REFRESH()THIS.VISIBLE=.F.添加“SjOleRq”的“MouseDown事件代码如下：* ActiveX 控件事件 *LPARAMETERS button, shift, x, yIF button=2 THIS.VISIBLE=.F.ENDIF342增加书籍“增加”（Cmdadd）按扭的Click事件代码如下：SELECT BookTHISFORM.SjOR=RECNO()GO BOTTOMAPPEND BLANKTHISFORM.SjFM=caddTHISFORM.SjModeMody()THISFORM.PF.BookPage.txt图书编号.READONLY=.F.THISFORM.REFRESH()图3.4.1.1增加书籍资料343修改书籍“修改”（Cmdmod）按扭的Click事件代码如下：THISFORM.SjOR=RECNO()THISFORM.SjFM=cmodTHISFORM.SjModeMody()THISFORM.REFRESH()344删除书籍“删除”（Cmddel）事件代码如下：YN=MESSAGEBOX(确定删除,4+32,图书借阅管理系统) &确认对话框IF YN=6 &如果确认 THISFORM.SjOR=RECNO() &保存记录号 IF THISFORM.PF.BookPage.LblStatus.CAPTION=借出中&如果该图书不在库中 MESSAGEBOX(该图书尚未归还,48,图书借阅管理系统)&不能删除 ELSE &如果在库中 SELECT JyRec &对图书借阅记录表进行修改 SET EXACT ON &精确比较 GO TOP &到数据表的顶部 DO WHILE NOT EOF() &删除所有与要删除的图书有关的记录 IF 图书编号=ALLTRIM(THISFORM.PF.BookPage.txt图书编号.VALUE) DELETE PACK ENDIF SKIP ENDDO SELECT Book &删除图书记录 GO THISFORM.SjOR DELETE PACK MESSAGEBOX(删除成功,64,图书借阅管理系统)&“删除成功”对话框 SET EXACT OFF THISFORM.REFRESH() ENDIFENDIF图3.4.4.1删除图书资料345查询书籍“查询”按扭（Cmdser）的Click事件代码如下：DO FORM BookSer图3.4.5.1查询图书图3.4.5.2查询结果346书籍的保存“保存”（Cmdsave）按扭的Click事件代码如下：LOCAL OKOK=.T.DO CASE CASE EMPTY(ALLTRIM(THISFORM.PF.BookPage.txt图书编号.VALUE) &如果图书编号为空 MESSAGEBOX(图书编号不能为空,48,图书借阅管理系统) THISFORM.PF.BookPage.txt图书编号.SETFOCUS() OK=.F. CASE EMPTY(ALLTRIM(THISFORM.PF.BookPage.txt图书名称.VALUE) &如果图书名称为空 MESSAGEBOX(图书名称不能为空,48,图书借阅管理系统) THISFORM.PF.BookPage.txt图书名称.SETFOCUS() OK=.F. CASE EMPTY(ALLTRIM(THISFORM.PF.BookPage.txt图书类别.VALUE) &如果图书类别为空 MESSAGEBOX(图书类别不能为空,48,图书借阅管理系统) THISFORM.PF.BookPage.txt图书类别.SETFOCUS() OK=.F. CASE EMPTY(ALLTRIM(THISFORM.PF.BookPage.txt图书作者.VALUE) &如果图书作者为空 MESSAGEBOX(图书作者不能为空,48,图书借阅管理系统) THISFORM.PF.BookPage.txt图书作者.SETFOCUS() OK=.F. CASE EMPTY(THISFORM.PF.BookPage.txt购买日期.VALUE) &如果购买日期为空 MESSAGEBOX(购买日期不能为空,48,图书借阅管理系统) THISFORM.PF.BookPage.txt购买日期.SETFOCUS() OK=.F. CASE EMPTY(ALLTRIM(THISFORM.PF.BookPage.txt出版社.VALUE) &如果出版社为空 MESSAGEBOX(出版社不能为空,48,图书借阅管理系统) THISFORM.PF.BookPage.txt出版社.SETFOCUS() OK=.F. CASE THISFORM.PF.BookPage.txt购买价格.VALUE=0 &如果购买价格小于或者为0 MESSAGEBOX(购买价格错误,48,图书借阅管理系统) THISFORM.PF.BookPage.txt购买价格.SETFOCUS() OK=.F.ENDCASEIF OK=.T. &如果各数据项无误 YN=MESSAGEBOX(确定保存,4+32,图书借阅管理系统) &确认对话框 IF YN=6 &如果确认 SaveOk=TABLEUPDATE(.F.) &试图保存 IF SaveOk=.T. &如果保存成功 MESSAGEBOX(保存成功,64,图书借阅管理系统) THISFORM.SjModeBrse() THISFORM.PF.BookPage.txt图书编号.READONLY=.T. ELSE &如果保存失败 MESSAGEBOX(图书编号错误,48,图书借阅管理系统) THISFORM.PF.BookPage.txt图书编号.SETFOCUS() ENDIF ENDIFENDIF347取消“取消”（CmdCancel）按扭的Click事件代码如下：YN=MESSAGEBOX(确定取消,4+32,系统消息)IF YN=6 TABLEREVERT(.F.) IF THISFORM.SjFM=cadd GO THISFORM.SjOR ENDIF THISFORM.S