计算机毕业论文论文+源代码+程序+开提报告.doc

中央广播电视大学人才培养模式改革和开放教育试点计算机专科毕业设计说明书建平图书馆管理系统分校（站、点）： 三明电大 学生姓名： 谢建平 学 号： 047020603 指导教师： 柯白杨 完稿日期： 2007-05-10 建平图书馆管理系统目 录摘要 （4）关键字 （4）正 文 （5）一、 系统概述（一）课题来源 （5）（二）选择该课题的目的 （5）（三）所使用的软件及其主要特点 （6）（四）系统的主要功能 （6）二、系统设计（一）目标设计 （6）（二）开发设计思想 （6）（三）开发和运行环境的选择 （6）（四）系统功能分析 （7）（五）系统功能模块设计 （7）三、数据库设计（一）需求分析 （7）（二）概念结构设计 （8）（三）逻辑结构设计 （10）四、数据库的实现（一）创建项目 （11）（二）创建数据库 （12）五、各个功能模块的创建(一)数据模块窗体的设置 （17）(二)启动画面的实现（17）(三)用户登录窗体的的实现（18）(四)用户密码认证窗体的的实现（21）(五)借阅者服务模块的实现1.图书查询功能的实现（23）2.借阅者登录功能的实现（29）3.借阅者个人资料维护功能的实现（35）4.借阅者借阅情况功能的实现（36）(六)工作人员图书借阅/归还模块的模块创建1.工作人员进行图书借阅功能实现（43）2.工作人员进行图书归还功能实现（45）(七)各模块调试及运行结果1.操作员登录 （49）2.图书馆管理员图书查询（50）3.图书馆管理员注册（50）4.图书馆图书登记（51）5.图书馆读者查询（51）6.图书馆读者信息修改及登记（52）7.图书借阅 （52）8.图书归还 （53）9.图书借阅一览（53）六、小结、自我评价 （54）参考书目 （55）附录：完整的源代码 （56）建平图书馆管理系统摘要本系统为图书管理系统，通过该系统，使图书馆的信息管理工作系统化、规范化、自动化，从而达到提高图书管理效率的目的。采用的开发工具是 MicroSoft Visual Basic 6.0。图书管理系统能够对读者信息、书籍信息、借书信息、还书信息进行管理。及时了解各个环节中信息的变更。管理人员必须以管理员身份登录，保证了系统的安全性。系统的总体任务是使图书管理人员可以轻松快捷地完成对图书管理的任务。有利于提高管理效率。【关键字】管理信息系统 图书管理 数据库 窗体建平图书馆管理系统谢建平一 系统概述（一）课题来源当今时代是飞速发展的信息时代。在各行各业中离不开信息处理，这正是计算机被广泛应用于信息管理系统的环境。计算机的最大好处在于利用它能够进行信息管理。使用计算机进行信息控制，不仅提高了工作效率，而且大大的提高了其安全性。尤其对于复杂的信息管理，计算机能够充分发挥它的优越性。计算机进行信息管理与信息管理系统的开发密切相关，系统的开发是系统管理的前提。本系统就是为了管理好图书馆信息而设计的。（二）选择该课题的目的图书馆作为一种信息资源的集散地，图书和用户借阅资料繁多，包含很多的信息数据的管理，现今，有很多的图书馆都是初步开始使用，甚至尚未使用计算机进行信息管理。根据调查得知，他们以前对信息管理的主要方式是基于文本、表格等纸介质的手工处理，对于图书借阅情况（如借书天数、超过限定借书时间的天数）的统计和核实等往往采用对借书卡的人工检查进行，对借阅者的借阅权限、以及借阅天数等用人工计算、手抄进行。数据信息处理工作量大，容易出错；由于数据繁多，容易丢失，且不易查找。总的来说，缺乏系统，规范的信息管理手段。尽管有的图书馆有计算机，但是尚未用于信息管理，没有发挥它的效力，资源闲置比较突出，这就是管理信息系统的开发的基本环境。数据处理手工操作，工作量大，出错率高，出错后不易更改。图书馆采取手工方式对图书借阅情况进行人工管理，由于信息比较多，图书借阅信息的管理工作混乱而又复杂；一般借阅情况是记录在借书证上，图书的数目和内容记录在文件中，图书馆的工作人员和管理员也只是当时对它比较清楚，时间一长，如再要进行查询，就得在众多的资料中翻阅、查找了，造成查询费时、费力。如要对很长时间以前的图书进行更改就更加困难了。基于这此问题，我认为有必要建立一个图书管理系统，使图书管理工作规范化，系统化，程序化，避免图书管理的随意性，提高信息处理的速度和准确性，能够及时、准确、有效的查询和修改图书情况。（三）所使用的软件及其主要特点我使用的是VisualBasic 6.0，是微软公司推出的可视化编程工具MSDN之一，是目前世界上使用最广泛的程序开发工具。（四）系统的主要功能我在设计过程中通过对开发图书管理系统的实践，分析了图书管理信息系统的发展趋势以及设计的目的及内容。并介绍了图书管理系统的开发环境、总体结构以及系统的实现。系统主要功能是读者管理和借书信息管理的实现，其中，读者管理又包括读者信息的添加、修改、删除和查询；借书信息管理包括借书信息的添加、修改、删除和查询。 对于图书馆来说，这二部分的内容是非常有用的。二、系统设计（一）目标设计该系统的研究主要采用了结构化的系统分析与设计方法。该方法主要包括以下几个特点：（1） 预先明确用户需求，根据需求来设计图书管理信息系统。（2） 根据用户需求与图书分类来设计或规划信息系统。（3） 严格按阶段进行。（4） 工作文档标准化和规范化。（5） 运用系统的分解和综合技术，使复杂的系统简单化。（二）开发设计思想本人研究的主要内容是图书管理系统的分析和设计过程，其目的在于为该系统的开发奠定坚实的理论基础。系统的成功开发将大大缓解图书管理的工作压力，这样，既能够提高图书管理工作的工作效率，又能在客观上促进图书管理的信息化发展。（三）开发和运行环境的选择由于管理系统的对象单一，仅对图书管理信息进行管理，且在对图书进行增减、修改、删除及统计操作时基本不涉及到计算过程，因此，这个管理系统比较适合采用数据库来设计。在计算机硬件和软件快速发展的今天，计算机硬件和软件已经远远满足本管理系统的要求。在数据库编程工具方面，各种可视化编程方法的出现，一改过去程序设计的概念和方法，用户用鼠标就可以快速、简捷地创建应用程序，极大地提高了编程效率。本人对VisualBasic 6.0及 SQL 2000数据库比较熟悉， VisualBasic 6.0中文版数据库开发的应用程序可以独立运行于windows平台，而且SQL 2000产生的数据库（表）适用范围广，因此决定采用VisualBasic 6.0中文版来完成图书管理系统的设计。（四）系统功能分析本系统适用于单位图书馆，校园图书馆，是图书管理员的最佳助手.方便借书、还书、查找、打印、导出、统计等操作。 可以自定义图书类别，读者类别，方便添加图书、管理图书、添加读者、管理读者。提供完善的借书和还书操作，拥有完全独立的数据库系统，使数据安全得到了保障，数据管理能提供：图书管理，读者管理。数据查询能提供：借阅情况，书库查询，读者查询。本系统具有安全的数据库备份，查询系统拥有常用的查询，和自定义查询两种方式。（五）系统功能模块设计三、数据库设计（一）需求分析图书管理系统需要满足来自三方面的需求，这三个方面分别是图书借阅者、图书馆工作人员和图书馆管理人员。图书借阅者的需求是查询图书馆所存的图书、个人借阅情况及个人信息的修改；图书馆工作人员对图书借阅者的借阅及还书要求进行操作，同时形成借书或还书报表给借阅者查看确认；图书馆管理人员的功能最为复杂，包括对工作人员、图书借阅者、图书进行管理和维护，及系统状态的查看、维护并生成催还图书报表。图书借阅者可直接查看图书馆图书情况，如果图书借阅者根据本人借书证号和密码登录系统，还可以进行本人借书情况的查询和维护部分个人信息。一般情况下，图书借阅者只应该查询和维护本人的借书情况和个人信息，若查询和维护其他借阅者的借书情况和个人信息，就要知道其他图书借阅者的借书证号和密码。这些是很难得到的，特别是密码，所以不但满足了图书借阅者的要求，还保护了图书借阅者的个人隐私。图书馆工作人员有修改图书借阅者借书和还书记录的权限，所以需对工作人员登陆本模块进行更多的考虑。在此模块中，图书馆工作人员可以为图书借阅者加入借书记录或是还书记录，并打印生成相应的报表给用户查看和确认。图书馆管理人员功能的信息量大，数据安全性和保密性要求最高。本功能实现对图书信息、借阅者信息、总体借阅情况信息的管理和统计、工作人员和管理人员信息查看及维护。图书馆管理员可以浏览、查询、添加、删除、修改、统计图书的基本信息；浏览、查询、统计、添加、删除和修改图书借阅者的基本信息，浏览、查询、统计图书馆的借阅信息，但不能添加、删除和修改借阅信息，这部分功能应该由图书馆工作人员执行，但是，删除某条图书借阅者基本信息记录时，应实现对该图书借阅者借阅记录的级联删除。（二）概念结构设计在概念设计阶段中，从用户的角度看待数据及处理要求和约束，产生一个反映用户观点的概念模式。然后再把概念模式转换成逻辑模式。将概念设计从设计过程中独立开来，使各阶段的任务相对单一化，设计复杂程度大大降低，不受特定DBMS的限制。利用ER方法进行数据库的概念设计，可分成三步进行：首先设计局部ER模式，然后把各局部ER模式综合成一个全局模式，最后对全局ER模式进行优化，得到最终的模式，即概念模式。图书借阅实体E-R图图书登记实体E-R图查询输出实体E-R图（三）逻辑结构设计Access数据信息图书信息表的结构字段名称字段类型字段大小索 引忽略空值BOOK_IDText50普通索引否BOOK_NAMEText50否BOOK_SORTText50否BOOK_PRICEText50否BOOK_WRITERText50否BOOK_CONCERNText50否BOOK_REMARKText50否BOOK_DATEDate/Time8否BOOK_CHECK_DATEDate/Time8否管理员信息表的结构字段名称字段类型字段大小索 引忽略空值MANAGER_IDText50普通索引否MANAGER_NAMEText50否MANAGER_PASSText50否MANAGER_USERText50否MANAGER_BOOKText50否MANAGER_PHOTOText50否读者信息表的结构字段名称字段类型字段大小索 引忽略空值USER_IDText50主要的、惟一的否USER_NAMEText50否USER_SEXText2否USER_IDENTIFICATTONText50否USER_TELText50否USER_ADDRESSText50否USER_PHOTOText50否USER_CHECK_DATEDate/Time8否密码表的结构字段名称字段类型字段大小索 引忽略空值密码Text20主要的、惟一的否用户名Text50否四、数据库的实现（一）创建项目在创建该系统之前，首先创建一个“图书管理数据库”，在该数据库中，创建四个数据表，即：图书信息表、管理员信息表、读者信息表、密码表。1、图书管理数据库的建立 (1)启动VB应用程序，出现VB应用系统开发主界面。(2)在菜单栏中单击“外接程序”菜单，然后选择“可视化数据管理器”菜单项，出现可视化数据管理器界面。(3)在可视化数据管理器界面中单击菜单栏中“文件”菜单，然后依次选择“新建”、“Microsoft Access”、“Version 7.0 MDB”菜单项。(4)在单击菜单后将出现文件保存对话框，在对话框中选择“D:作品建平图书馆管理系统library”文件夹，并将数据库命名为“图书管理数据库”，将出现如下数据库窗口。（二）创建数据库1、图书信息表的创建 (1)在可视化数据库管理器中打开 “图书室管理数据库”数据库。(2)在数据管理器中选择“图书管理数据库”文件。(3)右击“图书管理数据库”文件，出现一个弹出式菜单。(4)在弹出式菜单中单击“新建表”菜单项，出现数据表结构设计器对话框。(5)在数据表结构设计器对话框中，建立数据表的结构，其结构如下：图书信息表的结构字段名称字段类型字段大小索 引忽略空值BOOK_IDText50普通索引否BOOK_NAMEText50否BOOK_SORTText50否BOOK_PRICEText50否BOOK_WRITERText50否BOOK_CONCERNText50否BOOK_REMARKText50否BOOK_DATEDate/Time8否BOOK_CHECK_DATEDate/Time8否(6)图书信息数据表的设计器图如下：(7)单击“生成表”就创建了入库存数据表，在此可以打开该数据表，增加一些数据，如下：图书信息表的结构BOOK_ID2357BOOK_NAMEC语言SQL天鹅姑娘VB开发应用BOOK_SORT计算机计算机小说计算机BOOK_PRICE3015920BOOK_WRITER周海燕周海燕岑凯伦杨华BOOK_CONCERN人民邮电出版社人民邮电出版社人民出版社人民出版社BOOK_REMARK本科类书籍小说类BOOK_DATE2001年7月24日2001年1月1日1998年1月9日2006年1月29日BOOK_CHECK_DATE2004年11月27日2001年2月5日2005年4月12日2006年8月8日3、管理员信息表的创建 (1)在可视化数据库管理器中打开 “图书管理数据库”数据库。(2)在数据管理器中选择“图书管理数据库”文件。(3)右击“图书管理数据库”文件，出现一个弹出式菜单。(4)在弹出式菜单中单击“新建表”菜单项，出现数据表结构设计器对话框。(5)在数据表结构设计器对话框中，建立数据表的结构，其结构如下：管理员信息表的结构字段名称字段类型字段大小索 引忽略空值MANAGER_IDText50普通索引否MANAGER_NAMEText50否MANAGER_PASSText50否MANAGER_USERText50否MANAGER_BOOKText50否MANAGER_PHOTOText50否(6)管理员信息表的设计器图如下：(7)单击“生成表”就创建了出库存数据表，在此可以打开该数据表，增加一些数据，如下：管理员信息表MANAGER_ID001002003MANAGER_NAME刘敏高超群朱志刚MANAGER_PASS8011129696963721MANAGER_USERMANAGER_BOOKMANAGER_PHOTO4、读者信息表的创建 (1)在可视化数据库管理器中打开 “图书管理数据库”数据库。(2)在数据管理器中选择“图书管理数据库”文件。(3)右击“图书管理数据库”文件，出现一个弹出式菜单。(4)在弹出式菜单中单击“新建表”菜单项，出现数据表结构设计器对话框。(5)在数据表结构设计器对话框中，建立数据表的结构，其结构如下：读者信息表的结构字段名称字段类型字段大小索 引忽略空值USER_IDText50主要的、惟一的否USER_NAMEText50否USER_SEXText2否USER_IDENTIFICATTONText50否USER_TELText50否USER_ADDRESSText50否USER_PHOTOText50否USER_CHECK_DATEDate/Time8否(6)读者信息表的设计器图如下：(7)单击“生成表”就创建了库存主表，在此可以打开该数据表，增加一些数据，如下：读者信息表的结构USER_ID234USER_NAME陈真杨柳吴邦国USER_SEX男女男USER_IDENTIFICATTON350402810223205350402790331202350402198310012019USER_TEL8240200138594068118336654USER_ADDRESS福建三明群英社区30幢三明梅列新村25幢203室三明城关铁路新村2幢USER_PHOTOUSER_CHECK_DATE2007年1月20日2007年3月20日2007年5月2日5、密码表的创建 (1)在可视化数据库管理器中打开 “图书管理数据库”数据库。(2)在数据管理器中选择“图书管理数据库”文件。(3)右击“图书管理数据库”文件，出现一个弹出式菜单。(4)在弹出式菜单中单击“新建表”菜单项，出现数据表结构设计器对话框。(5)在数据表结构设计器对话框中，建立数据表的结构，其结构如下：密码表的结构字段名称字段类型字段大小索 引忽略空值密码Text20主要的、惟一的否用户名Text50否(6)密码表的设计器图如下：(7)单击“生成表”就创建了密码表，在此可以打开该数据表，增加一些数据，如下：密码用户名047020603谢建平五. 各个功能模块的创建(一).数据模块窗体的设置在编写数据库应用程序时，经常要遇到这样的情况，即好多组件、窗体同时访问相同的数据源，如果为每一个组件或者窗体都设置一个数据源将是十分耗时的工件，而且要保证这些数据源的确是相同的也需花一番功夫。那么，能不能将这些数据源集中管理，最好是做成一个统一的模块，需要时就将该模块引入而不必直接操作数据源本身呢？数据模块（DataModule）是解决这个问题最好的答案。简单说来，数据模块是用来集中管理数据源的一个窗体，该窗体可被需要的地方随时引入。(二).启动画面的实现启动画面是为了给用户一个良好的印像，加深软件的亲和力，没有实际的功能，在Form1窗体中加入了Image和Time组件。控件属性设定值FormNamefrmstartupCaptionForm1TimerEnabledTrueInterval1000自动生成代码如下：Private Sub Form_Click() Unload Me frmLogin.ShowEnd SubPrivate Sub Timer1_Timer()i = i + 1If i = 2 Then Unload Me frmLogin.ShowEnd IfEnd Sub完成操作后的启动画面的界面：(三).用户登录窗体的的实现本窗体是为三种不同的用户（一般用户，普通管理员，超级管理员）提供选择以进入不同的模块，满足不同用户的需求。控件属性设定值FormNamefrmLogin FormCaption登录LabelNamelbl_manageridCaption管理员ID:AutoSizeFalseLabelNamelbl_managerpassCaption密 码:AutoSizeFalseTextBoxNametxt_ManagerIDTextTextBoxNamext_ManagerPassPasswordChar*CommandButtomNamecmdOKCaption确定CommandButtomNamecmdCancelCaption退出自动生成代码如下：Private Sub txt_ManagerID_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys ENTEREnd SubPrivate Sub txt_ManagerPass_KeyPress(KeyAscii As Integer) If KeyAscii = 13 Then SendKeys ENTEREnd SubPrivate Sub cmdCancel_Click() EndEnd SubPrivate Sub cmdOK_Click()Dim str_manager As Stringstr_manager = If txt_ManagerID = Then MsgBox 请输入管理员ID txt_ManagerID.SetFocus Exit Sub Else str_manager = select * from 管理员 where MANAGER_ID= + txt_ManagerID + AND MANAGER_PASS= + txt_ManagerPass + End IfIf rds_manager.State = adStateOpen Then rds_manager.Closerds_manager.Open str_manager, Module1.myconn, adOpenKeyset, adLockOptimistic, 1 If rds_manager.Fields(0) = txt_ManagerID Then MDIMain.StatusBar1.Panels(2) = MDIMain.StatusBar1.Panels(2) & rds_manager.Fields(MANAGER_NAME) Module1.manager_id = txt_ManagerID rds_manager.Close Unload frmLogin MDIMain.Show Else MsgBox 无效的管理员ID密码，请重试!, vbCritical, 登录 txt_ManagerID.SetFocus txt_ManagerID.SelStart = 0 txt_ManagerID.SelLength = Len(txt_ManagerID) rds_manager.Close Exit Sub End IfEnd Sub完成后用户登录的画面：(四).用户密码认证窗体的实现创建一个系统主控界面的窗体程序，运行界面如下：创建过程如下：（1）添加一个新窗体为Form窗体。（2）窗体及各控件属性设置如下：属性设置对象属性设定值FormName(名称)FormCaption建平图书馆管理系统MaxButtonTrueMinButtonTrueControlBoxTrueBorderStyle2-SizableStartUpPosition2-屏幕中心WindowsState0-NormalHeight6000Width8000（3）选择菜单栏中“工具”“菜单编辑器”选项，即进入菜单编辑器菜单编制过程代码：Private Sub mnu_user_search_Click()frmuser_search.ShowEnd SubPrivate Sub mnu_book_check_Click()frmbook_check.Tag = checkfrmbook_check.Show vbModalEnd SubPrivate Sub mnu_book_search_Click()frmbook_search.ShowEnd SubPrivate Sub mnu_book_borrow_Click()frmbook_borrow.Show vbModalEnd SubPrivate Sub mnu_about_Click()Frmabout.Show vbModalEnd SubPrivate Sub mnu_exit_Click()EndEnd Sub本窗体是为了让工作人员或图书馆管理员按照用户名和密码进行登录，并且跟据用户名检查Keyer表中的“权限”字段，以分辩进入图书馆管理人员模块还是进入工作人员模块。 (五).借阅者服务模块的实现借阅者服务窗体的功能主要是图书的查询，个人借阅情况查看及个人部分信息的修改。1. 图书查询功能的实现在本系统中，任何人都有权限使用查询功能，不做任何限制。由于实现的查询功能有多种，如按图书编号、图书名称等字段进行完全体配查找和部分体配的模糊查找，还有按多个条件进行逻辑与或是逻辑或的多条件查找。控件属性设定值FormNamefrmbook_searchCaption图书查询LabelNameLabel1Caption关键字AutoSizeFalseLabelNameLabel2Caption选项AutoSizeFalseCommandButtomNameCmd_Book_clearCaption重置CommandButtomNameCmd_Book_delCaption删除CommandButtomNameCmd_Book_searchCaption查询(&S)CommandButtomNameCmd_BS_exitCaption退出(&E)自动生成代码如下：（查询）Private Sub Cmd_Book_search_Click()Dim search_item As StringCmd_Book_del.Enabled = FalseIf Text1.Visible And Text1 = 关键字 Or Text1 = Then MsgBox 请输入关键字 Text1.SetFocus Text1.SelStart = 0 Text1.SelLength = Len(Combo1) Exit SubEnd IfIf Combo1.Text = 请选择 Then MsgBox 请选择查询选项 Combo1.SetFocus Exit SubElse If Combo1.Text = 图书编号 Then search_item = BOOK_ID like If Combo1.Text = 图书名称 Then search_item = BOOK_NAME like If Combo1.Text = 图书类别 Then search_item = BOOK_SORT like If Combo1.Text = 出版日期 Then search_item = BOOK_DATE between # If Combo1.Text = 价格范围 Then search_item = BOOK_PRICE like If Combo1.Text = 作者 Then search_item = BOOK_WRITER like If Combo1.Text = 出版社 Then search_item = BOOK_CONCERN like If Combo1.Text = 登记日期 Then search_item = BOOK_CHECK_DATE between #End IfMSHFlexGrid1.ClearCall MSHGridsetIf InStr(1, Text1, *) 0 Then MsgBox 通配符请用%表示: Text1.SetFocus: Exit SubIf InStr(1, Text1, ?) 0 Then MsgBox 通配符请用%表示: Text1.SetFocus: Exit SubIf rds_book.State = adStateOpen Then rds_book.CloseIf Combo1.Text = 出版日期 Or Combo1.Text = 登记日期 Then rds_book.Open select * from 图书信息 where & search_item & DTPicker1.Value & # and # & DTPicker2.Value & #, myconn, adOpenKeyset, adLockOptimistic, 1Else rds_book.Open select * from 图书信息 where & search_item & Text1 & %, myconn, adOpenKeyset, adLockOptimistic, 1End IfSet MSHFlexGrid1.DataSource = rds_bookCall MSHGridsetMDIMain.StatusBar1.Panels(3) = 共有图书 & MSHFlexGrid1.Rows - 1 & 本满足条件End SubPrivate Sub Cmd_Book_clear_Click()Call renewIf rds_book.State = adStateOpen Then rds_book.Closerds_book.Open select * from 图书信息 , myconn, adOpenKeyset, adLockOptimistic, 1Set MSHFlexGrid1.DataSource = rds_bookCall MSHGridsetMDIMain.StatusBar1.Panels(3) = 共有图书 & MSHFlexGrid1.Rows - 1 & 本满足条件End Sub自动生成代码如下：（重置）Private Sub Cmd_Book_clear_Click()Call renewIf rds_book.State = adStateOpen Then rds_book.Closerds_book.Open select * from 图书信息 , myconn, adOpenKeyset, adLockOptimistic, 1Set MSHFlexGrid1.DataSource = rds_bookCall MSHGridsetMDIMain.StatusBar1.Panels(3) = 共有图书 & MSHFlexGrid1.Rows - 1 & 本满足条件End Sub自动生成代码如下：（删除）Private Sub Cmd_Book_del_Click()Dim bid As Stringbid = BOOK_ID= + MSHFlexGrid1.TextMatrix(MSHFlexGrid1.Row, 0) + If rds_jieyue.State = adStateOpen Then rds_jieyue.Closerds_jieyue.Open select * from 借阅信息 where + bid, myconn, adOpenKeyset, adLockOptimistic, 1If rds_jieyue.RecordCount 0 Then If MsgBox(此图书尚末归还，确认要删除吗 + vbCrLf + vbCrLf + 确认 删除 + vbCrLf + 否 取消, vbInformation + vbYesNo, 图书删除) = vbNo Then Exit SubEnd IfIf MsgBox(确认真的要删除该图书吗, vbCritical + vbYesNo, 删除) = vbYes Then myconn.Execute delete * from 图书信息 where + bid MsgBox 删除成功 Call Cmd_Book_clear_ClickEnd IfEnd Sub自动生成代码如下：（退出）Private Sub Cmd_BS_exit_Click()Call renewUnload MeMDIMain.StatusBar1.Panels(3) = End Sub完成后的图书查询的画面：2. 借阅者登录功能的实现这个功能的实现与工作人员和管理人员登录功能实现的方法大致一样，并且还要简单。是从User表中查到到借阅证号与密码，看与用户输入的是否一致。如果一致，那么用户就可查看自已的借阅情况并维护自己的部分信息。控件属性设定值FormNamefrmuser_checkCaption读者登记LabelNamelbl_CHECK_DATECaption2007-1-1AutoSizeFalseLabelNamelbl_user(0)Caption读者编号AutoSizeFalseLabelNamelbl_user(1)Caption读者姓名AutoSizeFalseLabelNamelbl_user(2)Caption读者性别AutoSizeFalseLabelNamelbl_user(3)Caption身份证号AutoSizeFalseLabelNamelbl_user(4)Caption读者电话AutoSizeFalseLabelNamelbl_user(5)Caption读者地址AutoSizeFalseOptionButtonNameOption1(0)Caption男OptionButtonNameOption1(1)Caption女TextBoxNametxt_user(0)TextTextBoxNametxt_user(1)TextTextBoxNametxt_user(3)TextTextBoxNametxt_user(4)TextTextBoxNametxt_user(5)TextCommandButtomNameCmd_User_CheckCaption确认(&O)CommandButtomNameCmd_Ucheck_exitCaption退出(&E)自动生成代码如下：Private Sub Cmd_User_Check_Click() Dim str_sex As String, str_photo As String Dim i As Integer For i = 0 To 5 If i 2 Then If txt_user(i) = Then MsgBox 请输入 + lbl_user(i): txt_user(i).SetFocus: Exit Sub End If Next i If Option1(0) = True Then str_sex = 男 Else: str_sex = 女 If Not IsNumeric(txt_user(3) Then MsgBox 请输入正确的身份证号 txt_user(3).SetFocus txt_user(3).SelStart = 0 txt_user(3).SelLength = Len(txt_user(3) Exit Sub End If If Not (Len(txt_user(3) = 15 Or Len(txt_user(3) = 18) Then MsgBox 请输入正确的身份证号 txt_user(3).SetFocus txt_user(3).SelStart = 0 txt_user(3