图书查询管理系统

图书馆管理信息系统图书查询管理系统.2.6实体之间相互关系的E-R图书籍类别信息书籍类别信息读者类别信息书籍信息登记读者信息登记书籍信息管理读者信息管理借阅书籍借阅信息管理5.3逻辑结构设计图书馆管理信息系统数据库中各个表格的设计是在Access中建立的，各个表的建立如下所示。5.4数据库逻辑设计该图书馆管理信息系统的数据库主要是采用ACCESS数据库建表。数据库所涉及的表包括：读者类别表、读者信息表、图书类别表、图书信息表、借阅信息表、系统管理表。5.4.1读者类别数据库表。读者类别信息表包括读者的种类名称、借书数量、借书期限和有限期限四个字段。打开Access数据库中的“文件/新建”菜单，选择空数据库项后点击打开，在空数据库表中选择“通过输入数据创建表”，根据调查和掌握的资料输入数据创建读者类别信息表。表设计结果如图所示：读者类别种类名称借书数量借书期限有效期限001187700211012003745004744005110105.4.2创建读者信息数据库表。读者姓名读者编号书籍编号书籍名称书籍类别书籍页码出版社借书日期张宇001G-120VisualC++计算机243计算机出版社2003-王明002E-172世界足球体育53陕西出版社2004-5-5黄毅003D-055世界军事军事123美术出版社2005-读者信息数据库表包括的字段名有：读者姓名、读者编号、书籍编号、书籍编号、书籍名称、书籍类别、书籍页码、出版社以及借书日期。具体创建信息表的过程同读者类别表，根据资料输入数据。读者信息表的设计结果如图所示：5.4.3创建图书类别数据库表。读者类别数据库表包括类别名称和类别名称两个字段，创建信息表的过程同上。根据资料输入数据，设计的图书类别信息表如图所示：图书类别类别名称类别编号体育A历史B文学C军事D体育E外语F计算机G人物传H5.4.4创建图书信息数据库表图书信息数据库表包括的字段有图书编号、书名、类别、作者、出版社、登记日期以及是否被借出。具体创建信息表的过程同上。根据资料输入数据完成图书信息数据库表。信息表的设计结果如图所示：图书信息图书编号书名类别作者出版社出版日期登记日期是否被借出G-312计算机模拟物理计算机黄文大学出版社2002-2003-否G-313VisualBasic计算机黄文大学出版社2002-2003-是G-314VisualC++计算机刘登富计算机出版社2003-2003-是C-414世界文学文学高明大学出版社2002-2003-否F-21计算机基础英语英语杨通大学出版社2001-2002-否5.4.5创建借阅信息表。借阅信息数据库表包括借阅编号、读者编号、读者姓名、图书编号、书名、出借日期和还书日期等几个字段。具体创建表的过程相同，根据资料输入数据完成借阅信息表的创建。信息表的设计结果如图：借阅信息借阅编号读者编号读者姓名书籍编号书籍名称出借日期还书日期7002王明E-172世界足球2004-5-52004-6-76001张宇G-120VisualC++2003-2003-12-208003黄毅D-055世界军事2005-2005.4.6创建系统设置。系统设置包括基本设置和图书类别两部分。基本设置的设计结果如图：图书类别设计结果如图：第六章主窗体的创建6.1创建工程项目—1-MIS打开VisualBasic后，单击FileNewProject菜单，在工程模板中选择StandardEXE，VisualBasic将自动产生一个form窗体，属性都是缺省设置。这里我们删除这个窗体，单击FileSaveProject菜单，将这个项目命名为1—MIS。6.1.1创建主窗体这个项目我们使用多文档界面，单击工具栏中的ADDMDIForm按钮，生成一个窗体。在这个窗体上添加所需的控件，通过设置属性，就可以建好主窗体，建好的主窗体如下图。6.1.2创建主窗体的菜单在主窗体中，单击鼠标右键，选择弹出式菜单中的“菜单编辑器”，创建如下的菜单结构。书库管理……..添加图书信息……..修改图书信息……..删除图书信息……..查询图书信息系统查询……..书库查询……..借阅查询图书类别……..添加新类别……..修改旧类别……..删除旧类别图书借阅管理….借书管理……..添加借书信息……..查询借书信息….续借图书……..添加续借信息….还书信息……..添加还书信息6.2主要界面的设计我们主要介绍图书管理和读者管理中主要界面的设计，其具体设计的界面如下所示。6.2.1修改图书类别界面在设计该界面时，我们添加了datagrid空间和四个command控件，command控件的caption分别为“添加新类别”“修改旧类别”、“删旧除类别”、“保存”和“取消”，点击“修改旧类别”可以对datagrid中的记录进行修改，点击“保存”，显示“修改成功”对话框，表示修改图书类别成功（添加及删除同修改）。如下图所示：6.2.2添加图书信息界面在该界面上，用户可以在文本框中输入图书的信息，如：书籍编号、书籍名称、书籍类别、出版社、作者姓名、登记日期等基本信息，单击“确定”按钮，出现“添加图书信息成功”窗口，表示添加成功，单击“关闭”取消该窗口（此交易只可用于新增书籍信息）。书库管理中可新增、修改、删除图书信息，如下图所示：6.2.3查询图书信息界面在设计该界面时，我们用到了复选框（checkbox），它表示选中该项，用户就可在该项后面的文本框中输入所要查询的图书的信息，如：书名、编号、出版社等。点击“确定”，所要查询的图书信息就会在数据表格中显示。6.2.4正常借书界面在该界面上，我们使用了分组框（frame）控件，使界面直观、简单。用户点击“正常”，就可以对数据表格中的读者信息进行修改，输入读者编号，书籍编号，点击“借出当前图书”，即表示该读者借阅此书，若要取消，点击其它窗口。6.2.5续借图书界面在该界面上，也是使用了最基本的控件，使界面很直观，也操作非常方便。（用于该读者借阅到期后续借图书）6.2.6还书界面在该界面上，也是使用了最基本的控件，使界面很直观，也操作非常方便。（用于读者借阅到期后还书）6.2.7查询读者信息界面在界面设计时，在文本框中输入读者编号、读者姓名、书籍编号等任何一项信息，点击“开始查询”即可查询所需信息。6.3连接界面装置在主窗体form1的代码窗口中编写以下代码，就可以将各个窗体连接起来，实现界面的连接。PrivateSubadd_admin_Click()frmadduser.ShowEndSubPrivateSubadd_back_book_Click()frmbackbookinfo.ShowEndSubPrivateSubadd_book_info_Click()frmaddbookinfo.ShowEndSubPrivateSubadd_book_style_Click()frmaddbookstyle.ShowEndSubPrivateSubadd_lend_book_Click()frmborrowbook.ShowEndSubPrivateSubadd_reader_info_Click()frmaddreaderinfo.ShowEndSubPrivateSubadd_reader_style_Click()frmaddreaderstyle.ShowEndSubPrivateSubchange_pwd_Click()frmchangepwd.ShowEndSubPrivateSubdel_book_info_Click()frmmodifybookinfo.ShowEndSubPrivateSubdel_book_style_Click()frmmodifybookstyle.ShowEndSubPrivateSubdel_reader_info_Click()frmreaderinfo.ShowEndSubPrivateSubdel_reader_style_Click()frmmodifyreaderstyle.ShowEndSubPrivateSubexit_sys_Click()EndEndSubPrivateSubfind_book_info_Click()frmfindbook.ShowEndSubPrivateSubfind_lend_book_Click()frmfindborrowinfo.ShowEndSubPrivateSubfind_reader_info_Click()frmfindreader.ShowEndSubPrivateSubForm_Load()EndSubPrivateSubmodify_book_info_Click()frmmodifybookinfo.ShowEndSubPrivateSubmodify_book_style_Click()frmmodifybookstyle.ShowEndSubPrivateSubmodify_reader_info_Click()frmreaderinfo.ShowEndSubPrivateSubmodify_reader_style_Click()frmmodifyreaderstyle.ShowEndSub第七章系统开发环境图书馆管理信息系统是在WINDOWS95、98、环境下开发的，使用VisualBasic6.0软件工具，以Acess做为后台开发的一个小型系统。该系统软件针对图书馆的工作范围及特点，建立了图书管理、读者管理、借阅管理和系统管理几个系统，这几个系统实现了图书馆的主要业务工做，该系统需在VisualBasic的支持下，以Access做后台的情况下才能运行和使用。SummaryThisthesishasintroducedhowtouseVisualBasictodevelopthecommonlyuseddatabasesystem-themanagementinformationsystemofthelibrarymainly.ThissystemadoptsprogramminglanguageVisualBasicincommonuse,itiswithhighefficiencytonotmerelyprogramme,andthedatabasethatcanoperatemanykindssuchasAccess.MicrosoftAccessisthedatabaseapplicationprogram,setupnecessarydatabaseformwithit,passtheoperationofAccesscorrectly,Thissystemhasrealizedthedailymanagementforsmall-sizedlibrary.thebasicskillofitsrealizationcanbe:booksinformationmanagementandreaderinformationmanagement,borrowreadinformationmanagementand4systematicmanagementbigmodulars.everymodularalsohavethefunctionofindependence,forexample:includeinbooksinformationmanagementforbooksinformationadd,mayrealizereaderinformationadd,modify,delete,aswellasinquire.therefore,thispaperdetailedhaveintroducedthissystematicdevelopmentprocessaswellastherealizationoffunction,isacopyofsystematic,completesystem.keyword:VisualBasic,MicrosoftAccessandlibrarymanagementinformationsystem结束语通过本次毕业设计不仅是我对VisualBasic有了更深刻的了解，而且学会了怎样用VisualBasic来操作数据库Access。VisualBasic强大的数据库操作功能，以及所提供的数据控件，使我们非常方便地对数据库数据的录入、修改、查询等常规的数据库操作。我们所开发的图书馆管理信息系统主要功能是：对书籍管理的要求；对读者管理的要求；对借阅信息的管理。我在本次设计中主要完成对书籍管理的要求和对读者管理的要求两大部分。在做设计的过程中，我们所用的的数据库是Access，在它中建立所需的数据库表，既方便又简单。在建立界面时只需在VisualBasic中使用工具栏中的基本控件就可以，但还需要添加一个重要的的控件—数据表格（DataGrid）。在编写代码时，我们会经常出现很多错误，比如：未定义类型、语法错误等，使整个程序无法运行，这也是做设计中遇到的最大困难，通过查阅资料，老师和同学的指正，才使整个系统可以顺利的运行。因此，在编写源代码过程中，我不仅掌握了vb的基本编程语句，而且也使我熟悉了怎样使用结构化查询语言SQL来操作数据表，以及如何正确的使用Select语句。以上都是在开发系统时的总结和收获，而在编写论文时，我也有所收获，不仅使我更加熟悉了软件开发的一般过程以及各阶段的工作概况，还使我学会了怎样去画软件开发过程中所需的数据流图和E-R图。图书馆管理信息系统是一个小型的开发系统，它适用于现代化的图书管理，不仅方便学生的借阅，而且有利于管理员的管理。因此，我们所开发的系统是一个很有价值，很有意义的管理系统。当然，由于我们水平有限，开发过程中及写论文中，难免出现不足和错误，望老师和同学批评指正。致谢我在电大学习了将近三年时间，通过学习，使我对专业知道从无到有，更重要的是我学到了学习知识的方法，增强了掌握知识的能力，这将使我受益终生。在本次设计中我从指导老师身上学到了很多东西，老师认真负责的工作态度，严谨的治学精神和深厚的理论水平都使我受益匪浅。他无论是理论上还是实践中，都给我很大帮助，帮助我解决不少难题，使得系统能够及时开发完成；我通过开发这个管理信息系统，巩固了以前所学的知识，提高了应用能力；借此机会，深深地感谢我的指导老师—史永哲老师及支持、帮助过我的老师们、同学们。最后，让我再次向学校，向老师表达深深的谢意！谢谢！附录1、添加新图书代码：PrivateSubcmdClose_Click()FrmBookManage.Adodc1.RefreshUnloadMeEndSubPrivateSubcmdSave_Click()Setg_rs=g_db.OpenRecordset("SELECT*FROMbookInfo",dbOpenDynaset)'添加记录g_rs.AddNew'设置记录的字段值g_rs!书籍编号=txtBookID.Textg_rs!书籍名称=txtBookName.Textg_rs!类别代码=Mid(cboType.Text,1,1)g_rs!出版社=txtBookConcern.Textg_rs!作者姓名=txtWriter.Textg_rs!书籍价格=txtBookPrice.Textg_rs!书籍页码=txtPage.Textg_rs!登记日期=dtpRigDate.Valueg_rs!是否借出=False'保存修改！！！g_rs.UpdateSetg_rs=NothingMsgBox"新书添加完毕",vbOKOnly,"提示"EndSubPrivateSubForm_Load()dtpRigDate.Value=DateSetg_rs=g_db.OpenRecordset("bookType",dbOpenTable)cboType.ClearIfg_rs.RecordCount>0Theng_rs.MoveFirstDoWhileNotg_rs.EOFcboType.AddItemg_rs!类别代码+"-"+g_rs!书籍类别g_rs.MoveNextLoopEndIfSetg_rs=NothingEndSub2、书库管理（添加、修改、删除图书）代码PrivateSubcmdAdd_Click()FrmAddnew.ShowEndSubPrivateSubcmdClose_Click()UnloadMeEndSubPrivateSubcmdDel_Click()DimstrBookIDAsStringDimintResponseAsIntegerDataGrid1.Col=0strBookID=DataGrid1.TextintResponse=MsgBox("是否真的要删除编号为"+strBookID+"的书籍信息?",vbOKCancel,"提示")IfintResponse=vbOKTheng_strSql="select*frombookInfowhere书籍编号='"&strBookID&"'"Setg_rs=g_db.OpenRecordset(g_strSql)g_rs.DeleteSetg_rs=NothingAdodc1.RefreshCallForm_LoadMsgBox"删除完毕!",vbOKOnly,"提示"EndIfEndSubPrivateSubcmdModify_Click()FrmUpdateBook.ShowEndSubPrivateSubForm_Load()strDataSource="selectbookInfo.书籍编号,bookInfo.书籍名称,bookType.书籍类别,bookInfo.出版社,"_&"bookInfo.作者姓名,bookInfo.书籍价格,bookInfo.书籍页码,bookInfo.登记日期,bookInfo.是否借出"_&"frombookInfo,bookTypewherebookType.类别代码=bookInfo.类别代码"Adodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\图书馆查询管理系统.mdb;PersistSecurityInfo=False"Adodc1.CursorLocation=adUseClientAdodc1.CommandType=adCmdTextAdodc1.RecordSource=strDataSourceAdodc1.RefreshEndSub3、书库查询代码PrivateSubCheck1_Click()EndSubPrivateSubchkRigDate_Click()IfchkRigDate.Value=1ThendtpRigDate.Enabled=TrueElsedtpRigDate.Enabled=FalseEndIfEndSubPrivateSubcmdClear_Click()txtBookID.Text=""txtBookName.Text=""cboType.Text=""txtBookConcern.Text=""txtBookPrice.Text=""EndSubPrivateSubcmdClose_Click()UnloadMeEndSubPrivateSubcmdFind_Click()DimstrSQLAsStringDimstrCon(6)AsStringDimintCountAsIntegerDimiAsIntegerintCount=0'获得所有得查询条件IftxtBookID.Text<>""ThenIfchkMoHu.Value=1ThenstrCon(1)="书籍编号like'%"&txtBookID.Text&"%'"ElsestrCon(1)="书籍编号='"&txtBookID.Text&"'"EndIfElsestrCon(1)=""EndIfIftxtBookName.Text<>""ThenIfchkMoHu.Value=1ThenstrCon(2)="书籍名称like'%"&txtBookName.Text&"%'"ElsestrCon(2)="书籍名称='"&txtBookName.Text&"'"EndIfElsestrCon(2)=""EndIfIfcboType.Text<>""ThenIfchkMoHu.Value=1ThenstrCon(3)="类别代码like'%"&Mid(cboType.Text,1,1)&"%'"ElsestrCon(3)="类别代码='"&Mid(cboType.Text,1,1)&"'"EndIfElsestrCon(3)=""EndIfIftxtBookConcern.Text<>""ThenIfchkMoHu.Value=1ThenstrCon(4)="出版社like'%"&txtBookConcern.Text&"%'"ElsestrCon(4)="出版社='"&txtBookConcern.Text&"'"EndIfElsestrCon(4)=""EndIfIftxtBookPrice.Text<>""ThenIfchkMoHu.Value=1ThenstrCon(5)="书籍价格like%"&CInt(txtBookPrice.Text)&"%"ElsestrCon(5)="书籍价格="&CInt(txtBookPrice.Text)&""EndIfElsestrCon(5)=""EndIfIfchkRigDate.Value=1ThenIfchkMoHu.Value=1ThenstrCon(6)="登记日期like#"&dtpRigDate.Value&"#"ElsestrCon(6)="登记日期=#"&dtpRigDate.Value&"#"EndIfElsestrCon(6)=""EndIfIfstrCon(1)=""AndstrCon(2)=""AndstrCon(3)=""AndstrCon(4)=""AndstrCon(5)=""AndstrCon(6)=""ThenstrSQL="select*frombookInfo"ElsestrSQL="select*frombookInfowhere"Fori=1To6IfstrCon(i)<>""ThenintCount=intCount+1IfintCount=1ThenstrSQL=strSQL+strCon(i)ElsestrSQL=strSQL+"and"+strCon(i)EndIfEndIfNextEndIfAdodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\图书馆查询管理系统.mdb;PersistSecurityInfo=False"Adodc1.CursorLocation=adUseClientAdodc1.CommandType=adCmdTextAdodc1.RecordSource=strSQLAdodc1.RefreshEndSubPrivateSubForm_Load()dtpRigDate.Value=DateSetg_rs=g_db.OpenRecordset("bookType",dbOpenTable)cboType.ClearIfg_rs.RecordCount>0Theng_rs.MoveFirstDoWhileNotg_rs.EOFcboType.AddItemg_rs!类别代码+"-"+g_rs!书籍类别g_rs.MoveNextLoopEndIfSetg_rs=NothingEndSub4、借阅信息查询代码PrivateSubcmdClear_Click()txtBookID.Text=""txtBookName.Text=""txtReaderID.Text=""txtReaderName.Text=""EndSubPrivateSubcmdClose_Click()UnloadMeEndSubPrivateSubcmdFind_Click()DimstrSQLAsStringDimstrCon(5)AsStringDimiAsInteger'获得所有得查询条件IftxtBookID.Text<>""ThenIfchkMoHu.Value=1ThenstrCon(1)="lentInfo.书籍编号like'%"&txtBookID.Text&"%'"ElsestrCon(1)="lentInfo.书籍编号='"&txtBookID.Text&"'"EndIfElsestrCon(1)=""EndIfIftxtBookName.Text<>""ThenIfchkMoHu.Value=1ThenstrCon(2)="bookInfo.书籍名称like'%"&txtBookName.Text&"%'"ElsestrCon(2)="bookInfo.书籍名称='"&txtBookName.Text&"'"EndIfElsestrCon(2)=""EndIfIftxtReaderID.Text<>""ThenIfchkMoHu.Value=1ThenstrCon(3)="lentInfo.读者编号like'%"&txtReaderID.Text&"%'"ElsestrCon(3)="lentInfo.读者编号='"&txtReaderID.Text&"'"EndIfElsestrCon(3)=""EndIfIftxtReaderName.Text<>""ThenIfchkMoHu.Value=1ThenstrCon(4)="readerInfo.读者姓名like'%"&txtReaderName.Text&"%'"ElsestrCon(4)="readerInfo.读者姓名='"&txtReaderName.Text&"'"EndIfElsestrCon(4)=""EndIfIfdtpLendDate.Value=1ThenIfchkMoHu.Value=1ThenstrCon(5)="lentInfo.借书日期like#"&dtpLendDate.Value&"#"ElsestrCon(5)="lentInfo.借书日期=#"&dtpLendDate.Value&"#"EndIfElsestrCon(5)=""EndIfstrSQL="selectlentInfo.读者编号,readerInfo.读者姓名,lentInfo.书籍编号,"_&"bookInfo.书籍名称,bookType.书籍类别,bookInfo.出版社,bookInfo.书籍页码,lentInfo.借书日期,"_&"lentInfo.还书日期,lentInfo.超出天数,lentInfo.罚款金额fromreaderInfo,bookInfo,lentInfo,bookType"_&"wherereaderInfo.读者编号=lentInfo.读者编号andbookInfo.书籍编号=lentInfo.书籍编号"_&"andbookType.类别代码=bookInfo.类别代码"Fori=1To5IfstrCon(i)<>""ThenstrSQL=strSQL+"and"+strCon(i)EndIfNextAdodc1.ConnectionString="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&App.Path&"\图书馆查询管理系统.mdb;PersistSecurityInfo=False"Adodc1.CursorLocation=adUseClientAdodc1.CommandType=adCmdTextAdodc1.RecordSource=strSQLAdodc1.RefreshEndSub5、还书代码PrivateSubchkQuery_Click()IfchkQuery.Value=1ThentxtQueryBookID.Enabled=TrueElsetxtQueryBookID.Enabled=FalseEndIfEndSubPrivateSubcmdLendBook_Click()IftxtReaderID.Text<>""ThenIflblRemain.Caption<>"0"Then'判断是否已经借满Setg_rs=g_db.OpenRecordset("lentInfo",dbOpenTable)Withg_rs.AddNew.Fields("读者编号")=txtReaderID.Text.Fields("书籍编号")=txtBookID.Text.Fields("借书日期")=dtpLendDate.Value.UpdateEndWithSetg_rs=Nothing'更新bookInfo表,设置该书是否借出属性为"借出"g_strSql="select*frombookInfowhere书籍编号='"&txtBookID.Text&"'"Setg_rs=g_db.OpenRecordset(g_strSql)g_rs.Editg_rs.Fields("是否借出").Value=Trueg_rs.UpdateSetg_rs=NothingMsgBox"借出完毕!",vbOKOnly,"提示"txtBookID.Text=""txtBookName.Text=""txtBookPrice.Text=""txtBookLeibie.Text=""txtBookConcern.Text=""txtBookPage.Text=""InitDataGrid(False)ElseMsgBox"您的书已经借满,不能再借!",vbOKOnly,"提示"EndIfElseMsgBox"请先输入读者编号!",vbOKOnly,"提示"EndIfEndSubPrivateSubcmdOK_Click()g_strSql="select*fromlentInfowhere书籍编号='"&txtBookIDRenew.Text&"'and读者编号='"&txtReaderIDRenew.Text&"'and借书日期=#"&txtLendDate.Text&"#"Setg_rs=g_db.OpenRecordset(g_strSql)g_rs.Editg_rs.Fields("借书日期").Value=dtpLendDateChange.Valueg_rs.UpdateSetg_rs=NothingAdodc1.Recordset.UpdateMsgBox"续借完毕!",vbOKOnly,"提示"EndSubPrivateSubcmdReturn_Click()g_strSql="select*fromlentInfowhere书籍编号='"&txtBookIDReturn.Text&"'and读者编号='"&txtReadIDReturn.Text&"'and借书日期=#"&txtLendDateReturn.Text&"#"Setg_rs=g_db.OpenRecordset(g_strSql)g_rs.Editg_rs.Fields("还书日期").Value=txtReturnDate.Textg_rs.Fields("超出天数").Value=txtDayCount.Textg_rs.Fields("罚款金额").Value=txtFakuan.Textg_rs.UpdateSetg_rs=Nothingg_strSql="select*frombookInfowhere书籍编号='"&txtBookIDReturn.Text&"'"Setg_rs=g_db.OpenRecordset(g_strSql)g_rs.Editg_rs.Fields("是否借出").Value=Falseg_rs.UpdateSetg_rs=NothingtxtBookIDReturn.Text=""txtBookNameReturn.Text=""txtBookPriceReturn.Text=""txtBookLeibieReturn.Text=""txtBookPageReturn.Text=""txtReadIDReturn.Text=""txtReaderNameReturn.Text=""txtLendDateReturn.Text=""txtDay.Text=""txtReturnDate.Text=""txtFactDay.Text=""txtDayCount.Text=""cmdReturn.Enabled=FalseMsgBox"归还完毕!",vbOKOnly,"提示"EndSubPrivateSubForm_Load()dtpLendDate.Value=DatedtpLendDateChange.Value=DateSetg_ws=DBEngine.Workspaces(0)Setg_db=g_ws.OpenDatabase(App.Path+"\图书馆查询管理系统.mdb")EndSubPrivateSubForm_Unload(CancelAsInteger)g_db.CloseSetg_db=Nothingg_ws.CloseSetg_ws=NothingEndEndSubPrivateSubmnuBookManage_Click()FrmBookManage.ShowEndSubPrivateSubmnuBookQuery_Click()FrmBookQuery.ShowEndSubPrivateSubmnuLendQuery_Click()FrmLendQuery.ShowEndSubPrivateSubmnuSetBasic_Click()FrmSetBasic.ShowEndSubPrivateSubmnuSetBook_Click()FrmSetBook.ShowEndSubPrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)'根据点击工具栏按钮的caption属性值进行不同的操作SelectCaseButton.CaptionCase"书库管理"FrmBookManage.ShowCase"新书"FrmAddnew.ShowCase"借阅列表"FrmLendList.ShowCase"书库查询"FrmBookQuery.ShowCase"图书类别"FrmSetBook.ShowCase"退出"CallForm_Unload(0)EndSelectEndSubPrivateSubtxtBookID_KeyPress(KeyAsciiAsInteger)'判断用户按下回车键并且是否输入读者编号和书籍编号IfKeyAscii="13"AndtxtReaderID.Text<>""AndtxtBookID.Text<>""Theng_strSql="selectbookInfo.书籍名称,bookInfo.书籍价格,bookInfo.出版社,bookInfo.书籍页码,"_&"bookInfo.是否借出,bookType.书籍类别frombookInfo,bookTypewhere书籍编号='"&txtBookID.Text&"'"_&"andbookInfo.类别代码=bookType.类别代码"Setg_rs=g_db.OpenRecordset(g_strSql)IfNotg_rs.EOFThentxtBookName.Text=g_rs!书籍名称txtBookPrice.Text=g_rs!书籍价格txtBookLeibie.Text=g_rs!书籍类别txtBookConcern.Text=g_rs!出版社txtBookPage.Text=g_rs!书籍页码Ifg_rs!是否借出=TrueThenMsgBox"该书已经借出,请选择其它图书!",vbOKOnly,"提示"cmdLendBook.Enabled=FalseElsecmdLendBook.Enabled=TrueEndIfElseMsgBox"没有该书信息!",vbOKOnly,"提示"txtBookName.Text=""txtBookPrice.Text=""txtBookLeibie.Text=""txtBookConcern.Text=""txtBookPage.Text=""EndIfSetg_rs=NothingElseIfKeyAscii="13"AndtxtReaderID.Text=""ThenMsgBox"请先输入读者编号",vbOKOnly,"提示"ElseIfKeyAscii="13"AndtxtReaderID.Text<>""AndtxtBookID.Text=""ThenMsgBox"请先输入书籍编号",vbOKOnly,"提示"EndIfEndSubPrivateSubtxtBookIDReturn_KeyPress(KeyAsciiAsInteger)DimstrSQLAsString'判断用户按下回车键并且是否输入读者编号和书籍编号IfKeyAscii="13"AndtxtBookIDReturn.Text<>""ThenstrSQL="selectlentInfo.读者编号,readerInfo.读者姓名,lentInfo.书籍编号,bookInfo.书籍价格,"_&"bookInfo.书籍名称,bookInfo.书籍页码,lentInfo.借书日期,bookType.书籍类别,bookType.借出天数"_&"fromreaderInfo,bookInfo,lentInfo,bookTypewherereaderInfo.读者编号=lentInfo.读者编号"_&"andbookInfo.书籍编号=lentInfo.书籍编号andbookInfo.书籍编号='"&txtBookIDReturn.Text&"'"_&"andbookInfo.类别代码=bookType.类别代码"g_strSql=strSQLSetg_rs=g_db.OpenRecordset(g_strSql)IfNotg_rs.EOFThencmdLendBook.Enabled=TruetxtBookNameReturn.Text=g_rs!书籍名称txtBookPriceReturn.Text=g_rs!书籍价格txtBookLeibieReturn.Text=g_rs!书籍类别txtBookPageReturn.Text=g_rs!书籍页码txtReadIDReturn.Text=g_rs!读者编号txtReaderNameReturn.Text=g_rs!读者姓名txtLendDateReturn.Text=g_rs!借书日期txtDay.Text=g_rs!借出天数txtReturnDate.Text=DatetxtFactDay.Text=CStr(Date-g_rs!借书日期)IfCInt(txtFactDay.Text)-CInt(txtDay.Text)>0ThentxtDayCount.Text=CStr(CInt(txtFactDay.Text)-CInt(txtReturnDate.Text))ElsetxtDayCount.Text="0"EndIfSetg_rs=Nothingg_strSql=strSQLSetg_rs=g_db.OpenRecordset("select*frombasicSet")txtFakuan.Text=g_rs!罚款*CInt(txtDayCount.Text)Setg_rs=NothingcmdReturn.Enabled=TrueElseSetg_rs=NothingMsgBox"没有该书信息!",vbOKOnly,"提示"txtBookNameReturn.Text=""txtBookPriceReturn.Text=""txtBookLeibieReturn.Text=""txtBookPageReturn.Text=""txtReadIDReturn.Text=""txtReaderNameReturn.Text=""txtLendDateReturn.Text=""txtDay.Text=""txtReturnDate.Text=""txtFactDay.Text=""txtDayCount.Text=""cmdReturn.Enabled=FalseEndIfElseIfKeyAscii="13"AndtxtBookIDReturn.Text=""ThenMsgBox"请先输入书籍编号",vbOKOnly,"提示"EndIfEndSubPrivateSubtxtReaderID_KeyPress(KeyAsciiAsInteger)'判断用户按下回车键并且是否输入读者编号IfKeyAscii="13"AndtxtReaderID.Text<>""Then'根据输入的读者编号,查找读者姓名g_strSql="select*fromreaderInfowhere读者编号='"&txtReaderID.Text&"'"Setg_rs=g_db.OpenRecordset(g_strSql)'进行数据库的查询'判断是否找到IfNotg_rs.EOFThentxtReaderName.Text=g_rs!读者姓名InitDataGrid(False)'初始化DataGrid控件信息ElseMsgBox"没有该读者信息!",vbOKOnly,"提示"txtReaderName.Text=""EndIfSetg_rs=NothingElseIfKeyAscii="13"AndtxtReaderID.Text=""ThenMsgBox"请先输入读者编号",vbOKOnly,"提示"EndIfEndSubPublicFunctionInitDataGrid(blnRenewAsBoolean)'初始化DataGrid控件信息,其中得参数用来区分是正常借书页面还是续借页面DimstrDataSourceAsStringDimintCountAsIntegerDimstrReaderIDAsStringIfblnRenew=FalseThenstrReaderID=txtReaderID.TextElsestrReaderID=txtReaderIDRenew.TextEndIfstrDataSource="selectlentInfo.读者编号,readerInfo.读者姓名,lentInfo.书籍编号,"_&"bookInfo.书籍名称,bookType.书籍类别,bookInfo.出版社,bookInfo.书籍页码,lentInfo.借书日期,"_&"lentInfo.还书日期,lentInfo.超出天数,lentInfo.罚款金额fromreaderInfo,bookInfo,lentInfo,bookType"_&"wherereaderInfo.读者编号=lentInfo.读者编号andbookInfo.书籍编号=lentInfo.书籍编号and"_&