图书管理系统设计说明书

1、百度文库让每个人平等地提升自我目录1 .项目开发背景22 .可行性分析32.1 技术上的可行性32.2 社会因素的可行性32.3 经济方面可行性33 .系统分析43.1 系统功能结构分析43.2 组织结构分析53.3 客户端流程图54 .数据库设计74.1 数据库的建立74.2 数据库的连接85 .系统设计115.1 登录界面115.2 图书管理模块125.2.1 图书查询界面125.2.2 图书信息管理界面155.3 读者管理模块225.3.1 新读者注册界面225.3.2 读者信息界面255.4 借书还书模块275.4.1 借书还书界面276 .设计感言327 .参考书目32大学二级学院图

2、书管理系统的设计与开发1 .项目开发背景学院于2002年开始创办图书资料室，经过几年的建设，现已有图书近7000册,期刊260种,并将继续购进图书期刊。图书资料室于2003年下半年开始向全院教师开放，允许教师同时借书10册，每册图书借期3个月，学生限借1册，借期1周，过期罚款，不可以续借，期刊部外借，但可以复印。学院不断有新书购进和新的教师和学生加入，工作人员工强度大，效率低下。因此有必要开发一套图书管理系统进行计算机管理。332 .可行性分析可行性分析的目的是说明该软件开发项目的实现在技术，经济和社会条件方面的可行性。一般的，软件领域的可行性分析主要考虑3个因素：经济，技术和社会环境。2.1

3、 技术上的可行性本产品的关键技术是基于VisualBasic编程的程序设计和Access数据库相结合，将所有数据信息都放入数据库中进行存储，而这些数据信息的调用则是完全由程序完成的，即“程序设计数据化，数据管理程序化”思想。本系统产品采mVisualBasic编程的程序设计与Access据库相结合的方法进行开发，而图书管理系统实现的理论及技术也日趋成熟，因此图书管理系统应用软件的开发手段是完全可行的。2.2 社会因素的可行性系统的社会因素方面的可行性应该从法律因素和用户使用这两个方面进行分析。本产品的所有资料都由开发单位保管，另外通过签订合同来确定开发单位和使用单位的职责和违约，因此在法律因素

4、发面，该系统是可行的。另外使用本操作系统的人员要求有一定的计算机知识，计算机管理人员要求具有计算机专业知识。因此在用户使用方面，图书管理系统也是可行的。2.3 经济方面可行性系统的经济方面的可行性应该从项目开发的投入金额、收益、收益投资比、投资回收周期和敏感性分析来考虑。会使用该系统全面节省了人力，通过计算机来实现对图书管理系统，大大提高了图书管理的工作效率，节省了时间。系统的开发需要少量设备购置费、软件开发费、管理和维护费用，且人员培训过程简单费用不多。运行费用方面，由于系统比较小，不必进行太多的运行维护，系统的开发可以较好地解决因业务繁杂而造成的处理效率低，出错率偏高的局面，并可以及时了解

5、各项业务的进展情况，从而提高效益，同时还可以减少人工劳动、提高工作效率、扩大业务量和更好的服务全院师生。3 .系统分析3.1 系统功能结构分析本图书管理系统主要是对该大学二级学院图书的借阅工作进行管理，要实现的主要功能如下：1）读者管理2）图书管理3）借书还书处理4）系统管理读者管理：读者为该院的教师和学生，本功能需要实现对在校的本院教师和学生进行注册（添加读者），离校的本院教师和学生进行注箱（删除读者），和读者的基本信息以及借还状态查询。并且进行注册和注销操作需要有操作权限的管理员才能实现，读者需要输入正确的账号密码才能对自己的信息进行查询。图书管理:本功能需要实现有管理权限的管理员对新书的

6、入库（书籍信息的添加）,旧书的处理（书籍信息的删除）进行操作，和读者对书籍基本信息，图书编号，是否可借等信息进行查询。借书还书处理:本功能需要实现在册读者的借书和还书操作。借书操作需要完成比对是否为可借书籍，并对所借书籍进行借出纪录。借书操作中系统还应自动完成读者借书次数的累加，并从当日开始计算还书日期。还书操作需要完成对所还书籍进行归还纪录，并计算是否超期，如果超期，计算罚款金额。系统管理：系统管理需要实现用户设置并对其进行权限管理。由于本系统涉及用户数量多，管理难度大。因此，按实际需求，将用户按账号类型分为一级管理员，二级管理员和用户。现系统功能分析如图1图书管理系统读者管理图书管理借书还

7、书系统管理图1.图书管理系统功能图3.2组织结构分析该二级学院图书资料室的组织结构分析图如图2管务委员采编部图书借阅部期刊阅览部网路信息部信息咨询部业务部办公室图2.组织结构图3.3客户端流程图开始发送登陆信息4.数据库设计4.1数据库的建立系统的数据库主要是应用Access编辑软件进行编辑的，本系统数据库由读者信息表，图书信息表，借还状态表，用户管理表组成。各表建立的示意图如下：3读者信息：表字的名称I和捉类型I教文文文数字本本本字图书信息：表I粒据类型I段名称额字本本字字字字 数文文数数数数口信还状态：表一与段名称翱据类型数字图书编w第字借还状态借书日期日期/时间应还日期日期/时间超期天数

8、欠款数目二1用户管理：表密西_权限_读者管理_图书管理_借书还书_系统管理4.2数据库的连接在VisualBasic中，使程序与数据库的连接有两种方式，一种使通过设置ADO控件的属性将程序与数据库进行连接，另一种是通过代码形式将ADO控件连接数据库，通过代码的形式虽然加大了开发难度，但是有很多的优点，所以，在程序开发是选择了以代码的形式来连接数据库。1)首先是添加新的部件：MicrosoftADODATAControl6.0和MicrosoftDataGridGridContol6.0。方法是点击工程部件在需要的这两个部件上面划勾。这样新的布局就添加成功了。控件I设计器I可插入对象MediaL

9、ist ActiveX Control module Mi crosoft Access BarCode Control 9. 0L Mi crosoft ADO Data Control 6.0 (OLEDB)Mi crosoft Agent Control 2. 0Mi crosoft C：alendar Control 12. 0Mi crosoft Chart Control 6. 0 (OLEBB)Microsoft Comm Control 6.0Mi crosoft Comm on Dialog Control 6. 0Hi crosoft Data. Bound Li st C

10、ontrols 8. C7 Hicrosoft Dta.Grid Control 8.0 (OLEDE)Mi crosoft DtaList Controls 6. 0 (OLEDEMicrosoft D4tiRepeater Control 8.0 (013口 上1髭 k郎 国片，购 ；=：? E S3浏览®r只显示选定项位)AdobeAcrol>at7.0BrowserControlTypeLibrary1.0定位：C：.AcrobatActiveXA.croPDf.dllI确定|取消I应用2）具体连接的方法，在窗体上画一个AD0DC1部件，然后在上面单击右键，选择ADOD

11、C属性，点击“生成”，选择如图:3）然后下一步选择所建立的数据库测试连接4）连接测试成功之后，点击确定，选择数据源，如图:5）点击确定之后，就可以了。然后在下面所对应的DataGrid中的Datasource选择为adodcl。这样就把数据库和VB连接起来了。5.系统设计下面是该系统的部分界面以及主要代码的介绍:5.1登录界面【口 I,回欢迎使用图书管理系统.0701030234用户账号由管理员输入账号和相应密码，如果匹配则登录后直接连接到图书查询界面。如果不匹配则提示输入账号或者密码错误。(由于系统功能并未实现，账号和密码均为系统预设)其代码如下：PrivateSubCommandl_Cli

12、ck()IfTextl.Text="0701030234”AndText2.Text=ThenForml.HideForm3.ShowElselfTextl.Text="zhengyu"AndText2.Text="222222”ThenForml.HideForm3.ShowElseMsgBox“您输入的密码或用户名不符11Textl.Text='H,Text2.Text='H,EndIfEndSubPrivateSubCommand2_Click()EndEndSub5.2图书管理模块5.2.1 图书查询界而由登录界面转接到图书查询界

13、面之后就可以根据所掌握的相关信息进行查询了，这里提供的查询方式为在相应的框体输入信息，然后单击其后的查询按钮便可进行查询。如果没有相关的纪录则会提示没有相关的信息，并将框体清空。实现代码如下：PrivateSubCommandl_Click()DimtsbhAsStringtsbh=Text1.TextAdodcl.Recordset.Filter="图书编号=111+tsbh+IfAdodcl.Recordset.EOFThenMsgBox”没有您所查的相关信息”EndIfTextl.Text=',nEndSubPrivateSubCommand2_Click()Dimts

14、mcAsStringtsmc=Text2.TextAdodcl.Recordset.Filter="图书名称=,+tsmc+IfAdodcl.Recordset.EOFThenMsgBox”没有您所查的相关信息”EndIfText2.Text=',HEndSubPrivateSubCommand3_Click()DimzzAsStringzz=Text3.TextAdodcl.Recordset.Filter="作者='"+zz+IfAdodcl.Recordset.EOFThenMsgBox”没有您所查的相关信息”EndIfText3.Text=

15、',nEndSubPrivateSubCommand4_Click()DimtslxAsStringtslx=Combol.TextAdodcl.Recordset.Filter="图书类型='"+tslx+IfAdodcl.Recordset.EOFThenMsgBox”没有您所查的相关信息”EndIfEndSubPrivateSubCommand9_Click()DimcbsAsStringcbs=Text5.TextAdodcl.Recordset.Filter="出法反社+cbs+,HIfAdodcl.Recordset.EOFThenMs

16、gBox”没有您所查的相关信息”EndIfText5.Text=',HEndSub将光标移动至第一个，移动至下一个，移动至上一个，移动至最后一个由以下代码实现：PrivateSubCommand5_Click()Adodcl.Recordset.MoveFirstEndSubPrivateSubCommand6_Click()Adodcl.Recordset.MoveNextEndSubPrivateSubCommand7_Click()Adodcl.Recordset.MovePreviousEndSubPrivateSubCommand8_Click()Adodc1.Records

17、et.MoveLastEndSub菜单项中的各个功能的转换由以下代码实现：PrivateSubmnudzxx_Click()Form3.HideForm4.ShowEndSubPrivateSubmnujshs_Click()Form3.HideForm6.ShowEndSubPrivateSubmnutc_Click()EndEndSubPrivateSubmnutsxxgl_Click()Form3.HideForm5.ShowEndSubPrivateSubmnuxdzzc_Click()Form3.HideForm2.ShowEndSubPrivateSubmnudzxxcx_Clic

18、k()Form4.ShowForm3.HideEndSub522图书信息管理界面在本界而实现的功能有三个,即图书信息录入功能，图书信息修改功能，图书信息删除功能。图书信息录入时要求每个框体必须输入相应信息，否则将提示输入。其中图书编号须是数字形式，购买日期须是日期形式。如果输入图书编号已存在，则提示该编号的书已存在。录入成功之后框体将清空。录入功能实现代码如下：PrivateSubCommandl_Click（）IfText1.Text="M,ThenMsgBox"请输入图书编号”ExitSubEndIfIfText2.Text="n,ThenMsgBox&quo

19、t;请输入图书名称"ExitSubEndIfIfCombol.Text="Combol"ThenMsgBox"请选择图书类型"ExitSubEndIfIfText4.Text="H,ThenMsgBox"请输入作者"ExitSubEndIfIfText5.Text="n,ThenMsgBox"请输入出版社”ExitSubEndIfIfText6.Text="H,ThenMsgBox”请按年/月/日输入购买日期"ExitSubEndIfIfText7.Text="M,

20、ThenMsgBox"请输入新旧备注"ExitSubEndIfIfTextl.Text<>,u,ThenAdodcl.Recordset.Filter="图书编号+Text1.Text+IfAdodcl.Recordset.EOF=FalseThenMsgBox"该编号的书已经存在"ExitSubEndIfEndIfAdodcl.Recordset.AddNewAdodcl.Recordset.Fields（"图45编号"）=Textl.TextAdodcl.Recordset.Fields（"图二仔名

21、称"）=Text2.TextAdodcl.Recordset.Fields（"佟I书类型“）=Combol.TextAdodcLRecordset.Fields（"作者"）=Text4.TextAdodcLRecordset.Fields（"出版社。=Text5.TextAdodcLRecordset.Fields（"购买日期"）二Text6.TextAdodcl.Recordset.Fields（“备注"）=Text7.TextAdodcLRecordset.Fields("可借")=&quo

22、t;是"MsgBox”图书信息录入成功”Textl.Text=Text2.Text=Text4.Text=Text5.Text=TextG.Text=Text7.Text=修改和删除功能设计思路是在框体中不必输入全部信息，根据提供信息进行组合搜索,通过移动光标选择后再进行修改和删除。搜索部分的代码如下：PrivateSubCommand2_Click()DimtsbhAsStringDimtsmcAsStringDimtslxAsStringDimzzAsStringDimcbsAsStringDimgmrqAsStringDimbzAsStringtsbh=Textl.Textts

23、mc=Text2.Texttslx=Combol.Textzz=Text4.Textcbs=Text5.Textgmrq=Text6.Textbz=Text7.TextIftsmc<>,HThena="图书名称="+tsmc+”and11Elsea=,HEndIfIftsbh<>,H,Thenb二”图书编号="+tsbh+”and”Elseb=,uEndIfIfzz<>,HThenc="作者丁+zz+"andMElsec=,HEndIfIfcbs<>,H,Thend二”出版社二“、cbs+皿+&q

24、uot;andMElsed=,uEndIfIfgmrq<>11,1Thene="购买日期="+gmrq+Hand”Elsee=m,EndIfIfbz<>,HThenf="备注L+bz+皿+11andMElsef=,H,EndIfIftslx<>,uThen8二"图书类型="狙+Hand"Elseg=""EndIfsl=a+b+c+d+e+f+gIf(Len(sl)-4)<0ThenMsgBox"请输入必要搜索信息"ExitSubElseAdodcl.Re

25、cordset.Filter=Left(slzLen(sl)-4)EndIfIfAdodcl.Recordset.EOF=TrueThenMsgBox"没有要修改或删除的纪录"ExitSubEndIfMsgBox”请选择要修改或删除的纪录"EndSub修改部分：图书编号不可修改以外其他所有信息均可修改，但必须将所有信息重新填入否则将有提示输入完整信息。借出中的图书不能进行修改。修改成功后将框体清空。实现代码如下：PrivateSubCommand4_Click（）DimyIfText2.Text="H,ThenMsgBox"请输入图书名称&qu

26、ot;ExitSubEndIfIfCombol.Text="Combo”ThenMsgBox"请选择图书类型”ExitSubEndIfIfText4.Text="H,ThenMsgBox"请输入作者”ExitSubEndIfIfText5.Text=",uThenMsgBox"请输入出版社”ExitSubEndIfIfText6.Text="H,ThenMsgBox"请按年/月/日输入购买日期"ExitSubEndIfIfText7.Text="H,ThenMsgBox"请输入新旧备注

27、”ExitSubEndIfIfAdodcl.Recordset.Fields（"可借"）="否"ThenMsgBox"借出中，不能修改”ExitSubEndIfy=MsgBox（"要修改该记录吗？",vbYesNo,"修改记录"）Ify=vbNoThenTextl.Text=IH,Text2.Text=,H,Text4.Text=",HTextS.Text=",HTextG.Text="H,Text7.Text="H,ExitSubEndIf'Adodcl.

28、Recordset.Fields。'图书编号"）=Textl.TextAdodcl.Recordset.Fields（"图书名称"）=Text2.TextAdodcl.Recordset.Fields（"图书类型"）=Combol.TextAdodcl.Recordset.Fields（"作者"）=Text4.TextAdodcl.Recordset.Fields（"出版社"）=Text5.TextAdodcl.Recordset.Fields（"购买日JVjH）=Text6.TextA

29、dodcl.Recordset.Fields（"备，主"）=Text7.TextAdodcl.Recordset.Fields（"可借"）="是"MsgBox"图书信息修改成功"Textl.Text=",HText2.Text=",HText4.Text=",HTextS.Text="H,TextG.Text="H,Text7.Text=l,HEndSub删除部分：单击删除按钮后将提示是否删除，单击否后，将直接退出修改。实现代码如下：PrivateSubComman

30、d3_Click（）Dimyy=MsgBox（"要删除该记录吗？",vbYesNo,"删除记录"）Ify=vbNoThenExitSubElseIfAdodcl.Recordset.EOF=TrueThenMsgBox"没有要删除的纪录"ExitSub日seAdodcl.Recordset.DeleteMsgBox”删除成功“EndIfEndIfEndSub菜单项中各个窗体的转换由以下代码实现：PrivateSubmnudzxx_Click（）Form5.HideForm4.ShowEndSubPrivateSubmnujshs_Cl

31、ick()Form5.HideFormG.ShowEndSubPrivateSubmnutc_Click()EndEndSubPrivateSubmnutscx_Click()Form5.HideForm3.ShowEndSubPrivateSubmnuxtgl_Click()Form5.HideForm7.ShowEndSubPrivateSubmnuxdzzc_Click()Form5.HideForm2.ShowEndSub5.3读者管理模块5.3新读者注册界面本功能只提供教师和学生两种读者类型注册，读者编号须为数字，如果系统中已存在该读者编号，则提示读者编号不可用。功能实现代码如下Pr

32、ivateSubCommandl_Click()IfTextl.Text="M,ThenMsgBox"请输入读者编号"ExitSubEndIfIfText2.Text=",uThenMsgBox"请输入姓名"ExitSubEndIfIfOptionl.Value=FalseAndOption2.Value=FalseThenMsgBox"请选择读者类型”ExitSubEndIfIfCombol.Text="Combol'1ThenMsgBox"请选择性别”ExitSubEndIfIfTextl.T

33、ext<>,HThenAdodcl.Recordset.Filter="读者编号+Text1.Text+IfAdodcl.Recordset.EOF=FalseThenMsgBox"读者编号不可用，请重新输入”ExitSubEndIfEndIfAdodcl.Recordset.AddNewAdodcl.Recordset.Fields("读者编号")=Text1.TextAdodcl.Recordset.Fields("姓名")=Text2.TextAdodcl.Recordset.Fields("性另)二Com

34、bol.TextIfOptionl.Value=TrueThenAdodcl.Recordset.Fields。'“只称")=Optlonl.CaptionAdodcl.Recordset.Fields(“备注")二1ElseAdodcl.Recordset.Fields。'"只称")=Option2.CaptionAdodcl.Recordset.Fields("备注")二2EndIfMsgBox”新读者注册成功"Textl.Text=,MText2.Text=,H,EndSub以下为取消的代码。单击取消后

35、，框体清空PrivateSubCommand2_Click()Textl.Text=",HText2.Text=",HExitSubEndSub以下代码用以实现各窗体之间的转换：PrivateSubCommand2_Click()Textl.Text=IH,Text2.Text=,H,ExitSubEndSubPrivateSubmnudzxx_Click()Form2.HideForm4.ShowEndSubPrivateSubmnujshs_Click()Form2.HideForm6.ShowEndSubPrivateSubmnutc_Click()EndEndSub

36、PrivateSubmnutscx_Click()Form2.HideForm3.ShowEndSubPrivateSubmnutsxxgl_Click()Form2.HideForm5.ShowEndSubPrivateSubmnuxtgl_Click()Form2.HideForm7.ShowEndSub5.3.2读者信息界而本界面将要实现读者的信息查询与注销功能。只需输入读者编号便可进行相应操作读者信息查询功能：对已注册读者的基本信息和借书信息进行查询，如果读者未注册则进行提示。代码如卜：PrivateSubCommandl_Click()DimdzbhAsStringdzbh=Text

37、l.TextIfdzbh<>l,MThenAdodcl.Recordset.Filter="读者编号/+dzbh+IfAdodcl.Recordset.EOF=TrueThenMsgBox"该读者没有注册"Textl.Text=,H,ExitSub日seAdodc2.Recordset.Filter="读者编号f+dzbh+,HEndIfElseMsgBox”请输入读者编号”ExitSubEndIfEndSub注销功能：对已注册读者信息进行注销，且有图书未归还和超期欠款的读者不能注销。实现代码如下：PrivateSubCommand3_Cli

38、ck（）DimdzbhAsStringdzbh=Textl.TextIfdzbh<>l,HThenAdodcl.Recordset.Filter="读者编号f+dzbh+Adodc2.Recordset.Filter="读者编号f+dzbh+IfAdodc2.Recordset.EOF=TrueThenAdodcl.Recordset.DeleteTextl.Text=,H,ExitSubEndIfIfAdodcl.Recordset.EOF=TrueThenMsgBox"该读者没有注册”Textl.Text=,H,ExitSub日seIfAdodc2

39、.Recordset.Fields（"借还状态"）="借',ThenMsgBox"仍有图书未归还，不能注销”ExitSub日seIfAdodc2.Recordset.Fields（"欠款数目"）<>0ThenMsgBox"尚有超期欠款未还，不能注销"ExitSub日seAdodcl.Recordset.DeleteTextl.Text='H,EndIfEndIfEndIfElseMsgBox"请输入读者编号"ExitSubEndIf5.4借书还书模块5.4.1借书还书

40、界而在本窗体实现的功能有图书借阅功能和还书功能。借书功能：已注册的读者可以借阅书库中状态为可借的图书。学生可借1本(不可以借阅期刊)，期限为7天。教师可借10本，期限为90天。有超期欠款的读者需要还清欠款后方能继续借阅。实现代码如下：PrivateSubCommandl_Click()DimtsbhDimdzbhDimjieshuriqiAsDataDimyinghuanriqiAsDataDimqiankuanshumuAsCurrencyDimyDimay=0a=0tsbh=Text2.Textdzbh=Textl.TextIftsbh<>1,11ThenAdodcl.Reco

41、rdset.Filter="图书编号+tsbh+IfAdodcl.Recordset.EOF=TrueThenMsgBox”该编号的书不存在“Text2.Text=,H,ExitSubEndIfElseMsgBox"请输入图书编号"ExitSubEndIfIfdzbh<>l,MThenAdodc3.Recordset.Filter="读者编号b+dzbh+,uIfAdodc3.Recordset.EOF=TrueThenMsgBox"该读者没有注册"Textl.Text=,H,ExitSubEndIfElseMsgBox&

42、quot;请输入读者编号"ExitSubEndIfIfAdodc3.Recordset.Fields（"职称"）="教师"ThenAdodc2.Recordset.Filter="读者编号二川+dzbh+WhileNotAdodc2.Recordset.EOFa=a+Adodc2.Recordset.Fields（"欠款数目"）.Valuey=y+iAdodc2.Recordset.MoveNextWendIfa<>0ThenMsgBox"您有超期欠款未付，不能借书“ExitSubEndIfl

43、fy=10ThenMsgBox"您已经借满,不能再借"日seIfy>=0Andy<10OrAdodc2.Recordset.EOF=TrueThenIfAdodcl.Recordset.Fields（"可借"）=11是1,ThenAdodcl.Recordset.Fields（"可借"）="否"3ieshuriqi=Dateyinghuanriqi=jieshuriqi+90Adodc2.Recordset.AddNewAdodc2.Recordset.Fields（'图书编号"）=t

44、sbhAdodc2.Recordset.Fields（"读者编号"）二dzbhAdodc2.Recordset.Fields（"借还状态"）="借"Adodc2.Recordset.Fields（"借书日期"）二DateAdodc2.Recordset.Fields（"应还H期"）=Date+90Adodc2.Recordset.Fields（“超天数"）=0Adodc2.Recordset.Fields（"欠款数目"）=qiankuanshumuMsgBox&qu

45、ot;借书成功"日SRMsgBox"该书已被借出”EndIfEndIfEndIfElselfAdodc3.Recordset.Fields（"职称"）二"学生"ThenAdodc2.Recordset.Filter="读者编号+dzbh+WhileNotAdodc2.Recordset.EOFa=a+Adodc2,Recordset.Fields（"欠款数目"）.Valuey=y+iAdodc2.Recordset.MoveNextWendIfa<>0ThenMsgBox"您有超期欠

46、款未付，不能借书”ExitSubEndIfIfy=1ThenMsgBox"您已经借满，不能再借"日seIfAdodcl.Recordset.Fields（"图书类型"）="期刊"ThenMsgBox"该类型的书您不能借"日seIfAdodcl.Recordset.Fields（“可借"）="是"OrAdodc2.Recordset.EOF=TrueThenAdodcl.Recordset.Fields（"可借"）="否"'jieshuri

47、qi=Date（yinghuanriqi=jieshuriqi+7Adodc2.Recordset.AddNewAdodc2.Recordset.Fields（"图书编号"）=tsbhAdodc2.Recordset.Fields（“读者编号"）=dzbh庆1。九2瓜8M$沁也（“借还状态"）=“借”Adodc2.Recordset.Fields（"借书H期"）=DateAdodc2.Recordset.Fields（"应还日期"）=Date+7Adodc2.Recordset.Fields（"超期天数"）=0Adodc2RecordsetFields（"欠款数目"）=qiankuanshumuMsgBox"借书成功"日seMsgBox"该书已被借出"EndIfEndIfEndIfEndIfEndSub还书功能：读者需要输入读者编号和所还图书编号，如果超期还书则会提示有超期欠款。PrivateSubCommand2_Click（）DimtsbhDimdzbhDimjieshuriqiAsDataDimyinghuanr