图书管理系统调查研究毕业论文.doc

图书管理系统调查研究毕业论文 目 录摘 要IAbstractII第一章 绪 论11.1图书管理系统的意义11.2 系统语言简介11.2.1 SQL语言简介21.2.2 Visual Basic语言2第二章 图书管理系统分析42.1图书管理系统的背景分析42.2图书管理系统的需求分析42.2.1 开发图书管理系统的必要性42.2.2 图书管理系统的系统需求42.2.3 图书管理系统的功能需求分析52.3 系统模块结构分析52.3.1 系统管理模块62.3.2 图书管理模块62.3.3 借书证管理模块72.3.4 操作模块72.3.5 报表打印模块8第三章 数据库设计93.1 图书信息表93.2 借出图书信息表103.3 管理员信息表103.4 读者信息表113.5 图书类型信息表11第四章 详细设计124.1 登录系统界面设计124.2 主窗体菜单设计124.3 图书管理界面设计134.4 借书证管理界面设计154.5 操作界面设计16结论18致谢19参考文献20附录 部分程序清单2148第一章 绪 论1.1图书管理系统的意义一直以来人们使用传统的人工方式管理图书馆的日常工作，对于图书馆的借书和还书过程主要依靠手工。一个最典型的手工处理还书过程就是：读者将要借的书和借阅证交给工作人员，工作人员将每本书贴的借阅条上填写借阅信息，这样借书过程就完成了。还书时读者将要还的书交给工作人员，工作人员根据图书信息找到相应的书卡和借阅证，并填好相应的还书信息，这样还书过程就完成了。 以上所描述的手工过程的不足之处显而易见，首先处理借书、还书业务流程的效率很低，其次是处理能力比较低，一段时间后，所能服务的读者人数是有限的。利用计算机来处理这些流程无疑会极大程度地提高效率和处理能力。 为了方便对图书馆书籍、读者资料、借还书等进行高效的管理，特开发该系统以提高图书馆的管理效率。本次设计可以查询某位读者、某种图书的借阅情况，还可以对当前图书借阅情况进行一些统计，给出统计表格，以便全面掌握图书的流通过程。1.2 系统语言简介 本系统的设计是在Windows 2000/XP等操作系统环境下，使用Visual Basic+Access数据库+SQL语言开发成功的。本系统选用的数据库语言介绍如下：1.2.1 SQL语言简介SQL全称是“结构化查询语言(Structured Query Language)”，SQL包含4个部分：（1） 数据查询语言DQL-Data Query Language SELECT（2） 据操纵语言DQL-Data Manipulation Language INSERT, UPDATE, DELETE （3） 数据定义语言DQL-Data Definition Language CREATE, ALTER, DROP（4） 数据控制语言DQL-Data Control Language COMMIT WORK, ROLLBACK WORK SQL的优点：（1） 非过程化语言（2） 统一的语言（3） 是所有关系数据库的公共语言 1.2.2 Visual Basic语言Visual Basic是一种可视化的、面对对象和用事件驱动方式的结构化高级程序设计，可用于开发Windows环境下的种类应用程序。它简单易学、效率高，且功能强大，在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的应用程序接口(API)函数，以及动态链接库(DLL)、动态数据交换(DDE)、对象的链接与嵌入(OLE)、开放式数据访问(ODBC)等技术，可以高效、快速地开发出Windows环境下功能强大、图形界面丰富的应用软件系统。Visual Basic具有以下特点：（1） 可视化编程（2） 面向对象的程序设计（3） 结构化程序设计语言（4） 事件驱动编程机制（5） 访问数据库（6） 对象的链接与嵌入(OLE) 第二章 图书管理系统分析2.1图书管理系统的背景分析 当今时代是飞速发展的信息时代，在各行各业中离不开信息处理。这正是计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够发挥它的优越性。 管理信息系统是进行信息的采集、存储、加工、维护和使用的系统，它是随着管理科学和技术科学的发展而形成的。2.2图书管理系统的需求分析2.2.1 开发图书管理系统的必要性当前，对于图书的管理有的还停留在全用纸介质的基础上，这种管理方式已不能适应时代的发展、社会的需求，因为它浪费了大量的人力物力，也存在着许多不足的因素。在今天的信息时代这种传统的管理方式必然会被计算机为基础的信息管理系统所取代。2.2.2 图书管理系统的系统需求为了适应现代社会人们高度强烈的时间观念，实现用户只需要进行输入一些简单的汉字、数字，或用鼠标点击即可达到自己想要的目标的要求，该图书管理系统以Visual Basic+Access数据库+SQL语言编写。2.2.3 图书管理系统的功能需求分析 图书管理系统主要用于辅助完成学校、事业单位的图书管理相关的功能，该系统主要对图书信息、读者信息、图书借阅信息进行管理，可以查询、添加、修改图书和读者信息以及对相关信息实现报表打印的功能。本系统要求运行稳定，图形用户界面符合用户的日常使用习惯，数据处理正确无误，包括：（1） 系统管理。主要对系统管理员信息进行维护。功能包括修改密码、添加用户。（2） 图书管理。主要对图书分类信息进行设置。添加和修改图书。（3） 借书证管理。主要对借书证进行添加和修改，并且可以设置每个借书证的借书上限和逾期一天不还书的罚金。（4） 操作。可以完成借书和还书操作。（5） 报表打印。可以打印图书信息、读者信息、借出书籍信息等。2.3 系统模块结构分析 依据需求分析结果，图书管理系统的主要模块包括：系统管理、图书管理、借书证管理、借书和还书操作、报表打印等模块，系统结构如图2-1所示。 系统管理图书管理借书证管理操作报表打印图书管理系统图2-1 系统模块结构图2.3.1 系统管理模块 在这个模块中，可以进行修改密码、添加用户等操作。系统管理模块的功能树如图2-2所示。退出系统管理管理员图2-2 系统管理模块功能树2.3.2 图书管理模块该模块主要功能包括设置图书分类信息、添加新书、编辑图书。图书管理模块的功能树如图2-3所示。图书管理图书分类编辑图书添加新书图2-3 图书管理模块功能树2.3.3 借书证管理模块 在该模块中，可以对借书证进行添加、修改和查询，并且可以设置每个借书证的借书上限和逾期一天不还书的罚金。借书证管理模块的功能树如图2-4所示。借书证管理借书设置编辑借书证图2-4 借书证管理模块功能树2.3.4 操作模块 在该模块中，可以实现登录学生新信息、借书、还书和查找所需图书信息等功能。操作模块的功能树如图2-5所示。操作登录查找还书图2-5 操作模块功能树2.3.5 报表打印模块 在该模块中，可以实现打印图书信息、读者信息、借出书籍信息等功能。打印报表模块的功能树如图2-6所示。报表打印图书信息打印读者信息打印借出书籍信息打印图2-6 报表打印模块功能树第三章 数据库设计后台数据库采用了Microsoft推出的Access数据库，这是微软集成到Office中的一个桌面数据库，能够快速方便的和Office的其他配件综合使用。由于Access具有显著的简易性和有效性，大量的桌面数据库系统都采用Access作为后台数据库。使用Access的好处还在于，如果你的系统扩展到Client/Server模式的时候，可以使用microsoft的数据库服务器软件SQL Server,此时，程序只需要简单的修改一下链接（ADO的数据源）就可以了，这样为程序的平滑扩展提供了非常有力的条件。 根据系统功能设计的要求以及功能模块的划分，数据库表结构设计如下：3.1 图书信息表 名称：图书信息表（见表3-1）。 表名标识符：Book 数据来源：图书管理模块进行录入。表3-1 图书信息表字段名类型大小空值ID数字4图书标号文本10Yes书名文本30Yes价格数字4Yes类别文本10Yes出版社文本30Yes借出日期日期/时间4Yes是否借出是/否1Yes3.2 借出图书信息表 名称：借出图书信息表（见表3-2）。 表名称标识符：BookFf表3-2 借出图书信息表 字段名类型大小空值ID数字4借书证号文本10Yes姓名文本10Yes图书编号文本10Yes书名文本30Yes价格数字4Yes类别文本10Yes出版社文本30Yes借出日期日期/时间4Yes3.3 管理员信息表 名称：管理员信息表（见表3-3）。 表名称标识符：Pass 数据来源：系统管理模块进行录入。表3-3 管理员信息表字段名类型大小空值ID数字4名称文本15Yes密码文本15Yes3.4 读者信息表 名称:读者信息表（见表3-4）。 表名称标识符：Personal 数据来源：借书证管理模块进行录入。表3-4 读者信息表字段名类型大小空值ID数字4借书证号文本10Yes姓名文本10Yes班级文本15Yes部门文本15Yes职称文本10Yes罚款数字8Yes3.5 图书类型信息表 名称：图书类型信息表（见表3-5）。 表名称标识符：Type 数据来源：图书管理模块进行录入。表3-5 图书类型信息表 字段名类型大小空值ID数字4类别文本20Yes借出天数文本10Yes第四章 详细设计 基于系统需求分析与系统设计的结论，本系统采用Visual Basic 6.0实现各模块的功能，下面按照功能模块的划分分别阐述系统的界面设计、详细设计及实现过程。界面设计遵循简洁大方、方便的基本原则，具体设计如下。4.1 登录系统界面设计 当该系统运行时，首先弹出的是如图4-1所示的登录界面，输入用户名和密码(初始用户名为zhjiaming,密码为vb),单击【登录】按钮，进入主程序界面，如图4-2所示。图4-1 系统用户登录对话框4.2 主窗体菜单设计 充分考虑界面易于操作的系统要求，主窗体使用方便和直观的菜单设计，提供系统管理、图书管理、借书证管理和报表的菜单操作方式，主窗体的设计效果图如图4-2所示。图4-2 主菜单设计效果图4.3 图书管理界面设计（1） 图书分类界面设计提供了图书分类和规定借出时间相关信息，使用Listview和picturebox添加、修改和删除相关信息。具体设计效果图如图4-3所示。图4-3 图书分类界面设计效果图（2）添加新书界面设计添加新书界面提供文本框输入添加新书的相关信息。设计界面如图4-4所示。图4-4 添加新书界面积设计效果图（3）编辑图书界面设计编辑图书界面提供工具栏（Toolboxar）用于图书的编辑，提供了几个功能按钮，用于移动数据记录的位置，改变当前显示的图书信息，单击修改按钮，使用修改后的图书信息修改数据中的信息，单击删除按钮删除数据库中图书信息，单击查找按钮弹出查找图书对话框，查找对应所输入图书编号的图书信息。具体设计效果图如图4-5所示。图4-5 编辑图书界面设计效果图4.4 借书证管理界面设计 (1) 编辑借书证界面设计提供了工具栏按钮和listview用于读者信息的编辑和显示。单击相关按钮可以对读者信息进行添加、修改、删除以及查找所输入借书证号的读者信息。具体设计界面如图4-6所示。图4-6 编辑借书证界面设计效果图（2）借书设置界面设计 借书设计界面中可以对罚款金额和借书数量的设置。具体设计效果图如图4-7所示。图4-7 借书设置界面设计效果图4.5 操作界面设计（1）登录界面设计在登录界面中输入借书证号单击【确定】按钮，在主窗体中显示和借书证号相对应的读者相关信息，然后可以进行借书和还书操作。具体设计效果图如图4-8所示。图4-8 登录界面设计效果图（2）查找界面设计 在查找界面中，输入图书编号后单击【开始查找】按钮，在listview中显示借出图书的信息、借出日期和借书者的相关信息。具体设计效果图如图4-9所示。图4-9 查找界面设计效果图 （3）还书界面 输入要换图书的编号，按Enter键后，在Frame控件中显示相应的图书信信及借出的日期、天数和相应的罚款金额等情况。具体设计效果如图4-10所示。图4-10 还书界面设计效果图结论 在本系统的开发过程中，由于本人是初次开发软件，在知识、经验等方面都存在着不足。另外，由于时间比较仓促，因此，该系统必然会存在一些缺陷和不足。 尽管本管理系统存在着一些不足，但在功能上、在日后程序更新方面都会相当容易，而且数据库管理比较容易、操作方便等优点也是该系统所特有的。相信图书管理系统是一套学校图书馆在日常管理中必不可少的管理软件，通过开发这个系统，不仅使我熟悉了图书管理内部的基本流程，而且在开发该系统过程中巩固了基本知识，提高了我对Visual Basic 6.0和Access数据库的学习和应用。但在这次的毕业设计中使我收获最大并不是掌握这几门语言的应用，而是学会了设计系统的思维方式，以及和同学们之间互相帮助共同进步的精神。 致谢 在论文即将完成之际，回顾紧张而又充实的学习和开发过程，我在此向关心及帮助我的老师和同学致以最诚挚的谢意。 在本次的毕业设计中，我从指导老师邵堃老师身上学到了很多东西。他认真负责的工作态度，严谨治学的精神和深厚的理论水平都使我受益匪浅，他无论在理论上还是在实践中，都给予我很大的帮助，使我得到了很大的提高，这对于我以后的工作和学习都有一种巨大的帮助，在此感谢他耐心的辅导。 另外，我还要感谢在这几年来所有教导我的老师们，他们孜孜不倦的教诲不但让我学到了很多知识，而且让我掌握了有效的学习方法，更教会了我很多做人的道理，在此向他们表示感谢。同时，在撰写论文的过程中李同学吴同学也给了我很大的帮助，在此一并表示感谢。参考文献1 亓莱滨. Visual Basic 程序设计 M. 北京：清华大学出版社.2 李雁翎. Visual Basic 程序设计 M. 北京：清华大学出版社.3 Craig Eddy, Timothy Buchanan. 中文Access 2000 24 学时教程M. 北京：机械工业出版社.4 白晓勇，余健.Visual Basic 程序设计案例精编M. 北京：清华大学出版社.5 蔡敏，刘海英，汪杰.Visual Basic 数据库开发工程案例M. 北京：人民邮电出版社.6 安剑，孙秀梅.Visual Basic 数据库系统开发自学手册M. 北京：人民邮电出版社.7 刘韬，骆娟.Visual Basic 数据库通用模块及典型系统开发实例导航M.北京：人民邮电出版社.8 王颖，李敬业.Visual Basic+SQL 数据库应用实例完全解析M. 北京：人民邮电出版社.附录 部分程序清单主界面代码： Option ExplicitDim db1 As DatabaseDim db2 As DatabaseDim db3 As DatabaseDim rst As RecordsetDim rst1 As Recordset 打开表PersonalDim rst2 As Recordset 打开表BookFlagDim rst3 As Recordset 打开表BookDim ws1 As WorkspaceDim ws2 As WorkspaceDim qry2 As QueryDefDim RecNumBookFf As Integer 表BookFf的记录个数Dim SFlag As StringPrivate Type MSet BookNum As Integer BookCost As SingleEnd TypeDim SetFlag As MSetPrivate Sub AboutMnu_Click() Aboutfrm.Show (1) 显示模式窗体 End SubPrivate Sub AddMnu_Click() Sb.Panels(1).Text = 添加新书 AddNewBook.Show (1) 显示模式窗体 Sb.Panels(1).Text = SFlagEnd SubPrivate Sub BackMnu_Click() cmdBackBook_ClickEnd SubPrivate Sub cmdBackBook_Click() 打开还书对话框 cmdKong_Click Lentfrm.Show (1) 显示模式窗体 cmdKong_ClickEnd SubPrivate Sub cmdKong_Click() 清空所有文本 txtBookId.Text = txtName.Text = txtClass.Text = txtDepart.Text = txtBookHao.Text = txtBookName = txtZhiCheng = txtFa.Text = txtBookBian.Text = Frame4.Visible = False 借书文本框不可见 Frame7.Visible = True LV2.ListItems.Clear CmdLogin.SetFocusEnd SubPrivate Sub cmdOkCancel_Click(Index As Integer) Select Case Index Case 1 If rst3.Fields(是否借出) = True Then MsgBox 此书已经借出！, 0 + 48, 提示 txtBookBian.Text = txtBookBian.SetFocus Frame4.Visible = False Frame7.Visible = True Exit Sub End If rst2.AddNew rst2.Fields(图书编号) = rst3.Fields(图书编号) rst2.Fields(书名) = rst3.Fields(书名) rst2.Fields(价格) = rst3.Fields(价格) rst2.Fields(出版社) = rst3.Fields(出版社) Rem rst2.Fields(借出日期) = rst3.Fields(借出日期) rst2.Fields(借出日期) = Date rst2.Fields(借书证号) = BookId rst2.Fields(姓名) = txtName.Text rst2.Fields(类别) = rst3.Fields(类别) rst2.Update rst3.Edit rst3.Fields(是否借出) = True rst3.Fields(借出日期) = Date rst3.Update DataRef txtBookBian.Text = txtBookBian.SetFocus CmdLogin.SetFocus Frame4.Visible = False Frame7.Visible = True End SelectEnd SubPrivate Sub CmdLogin_Click()loop1: 如果没有此证，返回 LentLogin.Show (1) If LoginFlag Then LV2.ListItems.Clear rst1.Seek =, BookId 查找借书证号码 If rst1.NoMatch Then MsgBox 没有此借书证号码！, 0 + 48, 错误 LoginFlag = False GoTo loop1 返回loop1 End If txtBookId.Text = BookId txtName.Text = rst1.Fields(姓名) & vbNullString txtClass.Text = rst1.Fields(班级) & vbNullString txtDepart.Text = rst1.Fields(部门) & vbNullString txtZhiCheng = rst1.Fields(职称) & vbNullString txtFa.Text = rst1.Fields(罚款) & Empty txtBookBian.Text = Frame4.Visible = False Frame7.Visible = True txtBookBian.SetFocus DataRef 输出所借图书 LoginFlag = False If rst1.Fields(罚款) 0 Then If MsgBox(txtBookId & & txtName & 共计欠费 _ & rst1.Fields(罚款) & 元 是否从数据库中删除？, 4 + 48, 欠费) _ = vbYes Then 从数据库中删除欠费记录 rst1.Edit rst1.Fields(罚款) = 0 rst1.Update txtFa.Text = rst1.Fields(罚款) & Empty End If Else 把罚款复制为0 rst1.Edit rst1.Fields(罚款) = 0 rst1.Update End If End IfEnd SubPrivate Sub dc_Click() DataReport2.Show DataReport2.WindowState = 2End SubPrivate Sub dzbb_Click() DataReport3.Show DataReport3.WindowState = 2End SubPrivate Sub EditIdMnu_Click() Sb.Panels(1).Text = 编辑借书证 EditBookId.Show (1) Sb.Panels(1).Text = 编辑借书证End SubPrivate Sub EditMnu_Click() Sb.Panels(1).Text = 编辑图书 EditBook.Show (1) Sb.Panels(1).Text = 编辑图书End SubPrivate Sub ExitMnu_Click() EndEnd SubPrivate Sub FenMnu_Click() SetType.Show (1)End SubPrivate Sub Form_Load() Set db1 = Workspaces(0).OpenDatabase(App.Path & DataBaseBookMIS.mdb, False) Set rst1 = db1.OpenRecordset(Personal, dbOpenTable) 打开读者信息表 rst1.Index = 借书证号 Set db2 = Workspaces(0).OpenDatabase(App.Path & DataBaseBookMIS.mdb, False) Set rst2 = db2.OpenRecordset(BookFf, dbOpenTable) 打开借出图书信息表 Set qry2 = db2.CreateQueryDef() rst2.Index = 图书编号 Set db3 = Workspaces(0).OpenDatabase(App.Path & DataBaseBookMIS.mdb, False) Set rst3 = db3.OpenRecordset(Book, dbOpenTable) 打开图书信息表 rst3.Index = 图书编号 Open App.Path & DataBaseSet.Dat For Random As #1 Len = Len(SetFlag) Get #1, 1, SetFlag BookNum = SetFlag.BookNum FaCost = SetFlag.BookCost LV2.View = lvwReport LV2.ColumnHeaders.Add , , 借书证号 LV2.ColumnHeaders.Add , , 借书人姓名 LV2.ColumnHeaders.Add , , 图书编号 LV2.ColumnHeaders.Add , , 书名 LV2.ColumnHeaders.Add , , 价格 LV2.ColumnHeaders.Add , , 类别 LV2.ColumnHeaders.Add , , 出版社 LV2.ColumnHeaders.Add , , 借出日期 txtBookId.Text = txtName.Text = txtClass.Text = txtDepart.Text = txtBookHao.Text = txtBookName = txtZhiCheng = txtFa.Text = txtCost = txtChuBan = txtLentDate = Sb.Panels(1).Text = 当前图书馆的操作人员为： & LibadminEnd SubPrivate Sub Form_Unload(Cancel As Integer) rst1.Close rst2.Close rst3.Close db1.Close db2.Close db3.Close Close #1End SubPrivate Sub LoginMnu_Click() 登录 CmdLogin_ClickEnd SubPrivate Sub mnuSysAdmin_Click() 管理员菜单SetPer.Show 管理员设置End SubPrivate Sub SearchMnu_Click() 查找菜单显示查找图书窗体 Findfrm.ShowEnd SubPrivate Sub SetMnu_Click() 借书设置 setfrm.ShowEnd SubPrivate Sub Toolbar1_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 3 Sb.Panels(1).Text = 编辑借书证 EditBookId.Show (1) Sb.Panels(1).Text = 编辑借书证 Case 5 SetPer.Show (1) 管理员设置 Case 7 SetType.Show 设置类别和借出时间 Case 9 setfrm.Show 设置 Case 12 End End SelectEnd SubPrivate Sub Toolbar1_ButtonMenuClick(ByVal buttonmenu As MSComctlLib.buttonmenu) Select Case buttonmenu.Key Case 添加 Sb.Panels(1).Text = 添加新书 AddNewBook.Show (1) Sb.Panels(1).Text = SFlag Case 编辑 Sb.Panels(1).Text = 编辑图书 EditBook.Show (1) Sb.Panels(1).Text = 编辑图书 Case 新借 MsgBox Add BookCard Case 编借 MsgBox Edit BookCard End SelectEnd SubPrivate Sub Toolbar2_ButtonClick(ByVal Button As MSComctlLib.Button) Select Case Button.Index Case 1 CmdLogin_Click Case 3 cmdKong_Click Case 7 cmdBackBook_Click Case 5 Findfrm.Show End SelectEnd SubPrivate Sub tsbb_Click() DataReport1.Show DataReport1.WindowState = 2End SubPrivate Sub txtBookBian_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then If txtBookId.Text = Then MsgBox 请先登录！, 0 + 48, 提示 CmdLogin.SetFocus txtBookBian.Text = Exit Sub End If rst3.Seek =, txtBookBian.Text If rst3.NoMatch Then MsgBox 没有此图书编号，请重新填写, 0 + 48, 填写错误 txtBookBian.SetFocus Frame4.Visible = False Frame7.Visible = True Exit Sub End If Frame4.Visible = True Frame7.Visible = False txtBookHao.Text = txtBookBian.Text txtBookName.Text = rst3.Fields(书名) & vbNullString txtChuBan.Text = rst3.Fields(出版社) & vbNullString txtCost.Text = rst3.Fields(价格) & Empty Rem txtLentDate = rst3.Fields(借出日期) & vbNullString txtLentDate = Date txtType.Text = rst3.Fields(类别) & vbNullString End IfEnd SubPrivate Sub DataRef() Dim i As Integer Dim SeaStr As String SeaStr = select * from Bookff where 借书证号= SeaStr = SeaStr & & BookId & qry2.SQL = SeaStr Set rst = qry2.OpenRecordset() If rst.RecordCount = 0 Then Label1.Caption = 可以借 & BookNum & 本书 Exit Sub End If rst.MoveLast RecNumBookFf = rst.RecordCount rst.MoveFirst LV2.ListItems.Clear For i = 1 To RecNumBookFf LV2.ListItems.Add i, , rst.Fields(借书证号) & vbNullString With LV2.ListItems(i) .SubItems(1) = rst.Fields(姓名) & vbNullString .SubItems(2) = rst.Fields(图书编号) & vbNullString .SubItems(3) = rst.Fields(书名) & vbNullString .SubItems(4) = rst.Fields(价格) & Empty .SubItems(5) = rst.Fields(类别) & vbNullString .SubItems(6) = rst.Fields(出版社) & vbNullString .SubItems(7) = rst.Fields(借出日期) & vbNullString End With rst.MoveNext If rst.EOF Then Exit For Next i If RecNumBookFf = BookNum Then MsgBox 已经借了 & BookNum & 本书,不能再借了,请登录其它借书证号, 0 + 48, 提示 txtBookId.Text = txtName.Text = txtClass.Text = txtDepart.Text = txtZhiCheng = txtFa.Text = CmdLogin.SetFocus LV2.ListItems.Clear Label1.Caption = 已经借的书 Exit Sub End If Label1.Caption = 已经借出 & RecNumBookFf & 本，还可以再借 _ & BookNum - RecNumBookFf & 本End SubPrivate Sub txtBookId_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then LV2.ListItems.Clear BookId = txtBookId rst1.Seek =, BookId 查找借书证号码 If rst1.NoMatch Then MsgBox 没有此借书证号码！, 0 + 48, 错误 txtBookId.SetFocus txtName.Text = txtClass.Text = txtDepart.Text = Exit Sub End If txtBookHao.Text = txtBookName.Text = txtCost.Text = txtChuBan.Text = txtLentDate.Text = txtBookBian.Text = txtBookId.Text = BookId txtName.Text = rst1.Fields(姓名) & vbNullString txtClass.Text = rst1.Fields(班