毕业设计VB6.0图书馆管理系统设计

毕业设计VB6毕业论文（设计）课题名称佳木斯图书馆管理系统学院信息电子技术学院专业计算机科学与技术班级0163551指导教师学生姓名佳木斯大学教务处摘要毕业设计VB6全文共65页，当前为第1页。近几年由于信息技术快速发展，市场竞争的日趋激烈，企业的管理水平要求也必须不断地提高。在这种环境下，采用日趋成熟的数据库技术和管理信息系统理论建立管理信息系统，对于企业就显得日益迫切和必要。

本论文设计的是图书系统管理，它是图书部门管理系统的一部分，其作用是对所有图书进出问题进行有效的管理。其开发主要包括前端应用程序的开发以及后台数据库的建立和维护两个方面。对于前者要求应用程序具有功能完备,易使用等特点。而对于后者则要求建立起的数据库具有数据一致性好，数据完整性强，数据安全性高的特点。毕业设计VB6全文共65页，当前为第1页。经过分析,系统使用VB6.0开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。后台数据库采用SQLServer2000，采用其丰富的图形化管理工具，使数据管理、操作更为直观方便；动态自动管理和优化功能，使环境配置和用户访问情况动态自动配置，达到最佳性能，减轻管理员工作；丰富的编程接口工具，使开发数据库应用程序更加灵活。关键词VB6.0；面向对象；SQL；数据库管理系AbstractInrecentyearsbecausetheinformationtechnologyfastdevelopment,themarketcompetitionisdaybydayintense,enterprise'smanagementlevelrequestalsomustunceasinglyenhance.Underthiskindofenvironment,usesdaybydaythematuredatabanktechnologyandthemanagementinformationsystemtheoryestablishmentmanagementinformationsystem,appearsregardingtheenterprisedaybydayurgentandisessential.Thepresentpaperdesignisthebookssystemadministration,itisabooksdepartmentmanagementsystemmanagementsystempart,itsfunctioniscarriesontheeffectivemanagementtoallbooksturnoverquestion.Itsdevelopmentmainlyandmaintainstwoaspectsincludingthefrontendapplicationproceduredevelopmentaswellasthebackstagedatabaseestablishment.Hasthefunctionregardingformerrequestapplicationprocedurecompletely,iseasytouseandsoonthecharacteristic.Butrequeststhedatabaseregardinglatterwhichestablishestohavethedatauniformitywell,thedataintegrityisstrong,datasecurityhighcharacteristic.毕业设计VB6全文共65页，当前为第2页。Aftertheanalysis,thesystemusestheVB6.0developmentkit,useseachkindofobject-orienteddevelopmentkitwhichitprovides,thedatawindowthiscanfacilitateinparticularbutsuccinctlyoperatesthedatabasetheintellectualizedobject,firstestablishesthesystemapplicationprototypeintheshorttime,then,carriesonthedemanditerationtotheinitialprototypesystem,unceasinglyrevisesandtheimprovement,untilformsusersatisfactionthefeasiblesystem.ThebackstagedatabaseusesSQLServer2,000,usesitsrichgraphmanagementtool,direct-viewingcausesthedatamanagement,theoperationtobeconvenient;Thedynamicautomaticcontrolandtheoptimizedfunction,causetheenvironmentdispositionandtheuservisitsituationdynamicautomaticdisposition,achievedtheoptimumperformance,reducesthemanagertowork;Therichprogrammingconnectiontool,causesthedevelopmentdatabaseapplicationproceduretobemorenimble.毕业设计VB6全文共65页，当前为第2页。KeywordsVB6.0;object-oriented;SQL;databasemanagementsystem1绪论1.1课题背景在科学技术迅速提高的今天，计算机的应用起着越来越重要的作用，采用现代科学技术进行信息处理已受到人们的普遍重视，全面地，迅速的及时的获得所需要的信息，进行处理、分析，从而对面临的问题进行判断决策。无论对经济活动、社会活动、科学研究都十分重要。计算机软硬件的日益完善，计算机技术的提高，使得数据管理，数据处理成为可能，并得到很快的发展。90年代以后，微型计算机在我国得到广泛普及，许多企事业单位、学校在应用计算机进行管理方面已取得显著成效，实际上，用计算机完成各项管理工作，已成为衡量现代化水平的一个标志，数据库技术则是这一管理现代化的主要软件工具。今天数据库技术已受到普遍重视，在各行各业中得到广泛的应用，起到了越来越大的作用。自VisualBasic诞生以来，它就具有了面向对象的特性。面向对象变成是建立在类模块基础上的。VisualBasic具有引用类和创建类的能力，因此基于类而构建系统，我们选用VisualBasic做为编程实现的主选软件，并且是以工程项目为单位来创建软件的。1.2课题的目的和意义毕业设计VB6全文共65页，当前为第3页。本图书管理系统采用VisualBasic进行开发。一个应用软件能否被用户承认并乐于使用，不仅在于它是否具有相当简捷或精妙的算法，而且还在于它是否具有良好的应用界面。一个良好的应用软件界面，除了具有指导用户如何使用应用程序的功能，同时，应该美观大方，独特新颖。选择VB作为"图书馆管理模拟系统"的开发工具，VB是基于面向对象的程序设计，它以对象为中心，将数据和过程捆绑在一起，封装在对象之中，是基于消息或由事件驱动的。VisualBasic是可视化编程的先驱与典范，其所展现出来的可视性风格，已经成为了诸多可视化集成开发工具的参照标准。创造前端界面，就不需要编写大量源代码去描述界面元素的外观和位置了，而只要把预先建立好的控件对象用鼠标拖入到设计窗体上即可。毕业设计VB6全文共65页，当前为第3页。图书管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。

2开发工具简介2.1VisualBasic简介Microsoft公司推出Windows以后，立即以其新颖的图形用户界面、卓越的多任务操作系统性能、高层次的软件开发平台而风靡全球。尤其Windows环境下Office实用软件的方便使用，使不少熟悉DOS软件开发的用户想到自己动手设计Windows用户界面，以满足各种应用程序的需要。然后即使对有经验的程序员来说，其工作难度也想但大。为了编写Windows环境下运行的程序，必须建立相应的窗口、菜单、对话框等各种“控件”，程序的编制也变得越来越复杂。有人甚至认为，Windows的出现预示着业余程序员的末日。1991年Microsoft公司推出的Windows应用程序开发工具——VisualBasic，使这种情况有了根本的改变。Visual意为“可视化的”，指的是一种开发图形用户界面（GUI）的方法，所以VB是基于Basic的可视化的程序设计语言。在VB中，既继承了其先辈Basic所具有的程序设计语言简单易用的特点，其编程系统又采用了面向对象、事件驱动的编程机制，用一种巧妙的方法把Windows的编程复杂性封装起来，提供了一种所见即所得的可视界面设计方法，给广大非计算机专业人员学习、使用、研究和开发Windows环境下的应用程序带来了福音。毕业设计VB6全文共65页，当前为第4页。VisualBasic最早是由Microsoft公司在1991年推出的，刚推出的VB也有缺陷，功能也相对少一些。经过Microsoft公司的不断努力，1993年推出的VB3.0已初具规模，进入实用阶段，利用VB可快速地创建多媒体、图形界面等的应用程序。1995年、1997年和1998年相继推出的VB4.0和VB6.0在开发环境、功能上进一步完善和扩充，尤其在数据库管理、网络应用方面更胜一筹，使得VB成为许多程序员首选的变成工具。本书主要介绍VB6.0中文版。毕业设计VB6全文共65页，当前为第4页。VB6.0包括三个版本，分别为学习版（Learning)、专业版（Professional)和企业版（Enterprise）。（1）学习版是VB6.0的基础版本，是针对初学者学习和使用的。包括所有的内部控件，以及网格、数据绑定等控件。（2）专业版针对计算机专家，除了具有学习版的全部功能外，还包括ActiveX、Internet控件开发工具、动态HTML页面设计等高等级特性。（3）企业版VB6.0的最高版本，除具有专业版的全部功能外，还包括一个BackOffice特殊工具。本书使用的是VB6.0企业版（中文），但介绍的内容尽可能与版本无关，如果频幕显示的有些内容与你的系统不同，就是版本不同的缘故。 1.VB功能特点VB主要功能特点如下：1.具有面向对象的可视化设计工具在VB中，应用面向对象的程序设计方法（OOP），把程序和数据封装起来视为一个对象，每个对象都是可视的。程序员在设计时是需用现有工具根据界面设计的要求，直接在频幕上“画”出窗口、菜单、按钮、滚动条等不同类型的对象，并为每个对象设置属性。程序员的编程工作仅编写针对对象要完成哪些功能的程序，因而程序设计的效率可提高许多。2.事件驱动的编程机制毕业设计VB6全文共65页，当前为第5页。事件驱动是非常适合图形用户界面的编程方式。传统的编程方式是一种面向过程，按程序事先设计的流程运行。但在图形用户界面的应用程序中，用户的动作即事件掌握着程序的运行流向，每个事件都能驱动一段程序的运行。程序员只要编写响应用户动作的代码，各个动作之间不一定有联系。这样的应用程序代码较短，是的程序既易于编写又易于维护。毕业设计VB6全文共65页，当前为第5页。3.提供了易学易用的应用程序集成开发环境在VB集成开发环境中，用户可设计界面、编写代码、调试程序，直至把应用程序编译成可执行文件，在Windows中运行，使用户在友好的开发环境中工作。4.机构化的程序设计语言VB具有丰富的数据类型、众多的内部函数和结构化程序结构，而且简单易学。5.利用数据控件或ODBC能够访问的数据库系统有，MicrosoftAccess、Btrieve、dBASE、MicrosoftFoxpro和Paradox等，也可访问MicrosoftExcel、Lotus1-2-3等多种电子表格。6.OLE技术VB的核心就是其对对象的链接与嵌入（OLE），VB能够开发集声音、图象、动画、字处理、Web等对象于一体的应用程序。7.Active技术Active技术发展了原有的OLE技术，它使开发人员摆脱了特定语言的束缚。可方便地使用标准的Active部件，调用标准的接口，实现特定的功能。8.完备的Help联机帮助功能与Windows环境下的软件一样，在VB中，利用帮助菜单和F1功能键，用户可随时方便地得到所需的帮助信息；VB帮助窗口中显示了有关的示例代码，通过复制、粘贴操作可获取大量的示例代码，为用户的学习和使用提供了捷径。2.VB6.0的新功能特点与以前的版本相比，VB6.0除了新增了一些控件、函数外，主要的改进是提供了功能强大的数据库和Web开发工具。1.新增控件新增了许多控件，如工具条控件CoolBar、数据库控件ADOData、日历界面时间控件DataTimePicker和MonthView、图形组合框控件ImageCombo等。2.语言新功能（1）新增了较多的字符串函数，如筛选函数Filter、连接函数Join、反向查找函数InstrRev、分隔函数Split、替换函数Replace等，还有日期等其他函数。（2）函数可以返回数组，动态数组可以赋值。（3）增加了文件系统对象，能全面地实现驱动器、子目录和文件的管理。毕业设计VB6全文共65页，当前为第6页。3.数据库功能的增强毕业设计VB6全文共65页，当前为第6页。新增了功能强大、使用方便的ADO(ActiveDatabaseObject)技术，ADO是微软制订的应用程序级数据库访问接口，支持所有OLDDB数据库厂商。ADO包括了现有的ODBC，而且占用内存少，访问速度更快。同时提供的ADO控件，不但可以用最少的代码创建数据库应用程序，也可以取代Data和RDO控件。4.增强网络功能VB6.0最重要的新特性之一，是提供了DHTML(DynamicHTML）设计工具。这种技术可以使Web页面设计者动态地创建和编辑页面，使用户在VB中开发多功能的网络应用软件。5.新增了多个应用程序向导VB性增的应用程序向导可以自动创建不同类型、不同功能的应用程序。有数据向导、数据窗体向导、IIS应用程序和DHTML等；同时对已有的向导增强了功能。2.2VisualBasic开发环境概述VB可以开发各类应用软件，从开发个人或小组使用的小工具，到大型企业应用系统，甚至通过Internet的遍及全球的分布应用程序，都可在VB提供的工具中各取所需。VB有如下特性：（1）数据访问特性允许对包括MicrosoftSQLServrt和其他企业数据库的在内的大部分数据库格式建立数据库和前端应用程序，以及可调整的服务器端部件。（2）有了ActiveX技术就可以使用其他应用程序提供的功能，例如MicrosoftWord字处理器、MicrosoftExcel电子数据表及其他Windows应用程序。甚至可直接使用VBP或VBE创建的应用程序和对象。（3）Internet功能很大，使得用户很容易在应用程序内通过Internet或Internet访问文档和应用程序，或者创建Internet服务器应用程序。（4）已完成的应用程序是使用VB虚拟机的真正exe文件，可以自用发布。1.VisualBasic版本简介VB有3种版本，可以满足不同的开发需要。毕业设计VB6全文共65页，当前为第7页。（1）VB学习版使变成人员可轻松开发Windows和WindowsNT的应用程序。该版本包括所有的内部控件以及网格、选项卡和数据绑定控件。学习版提供的文档有LearnVBNowCD和包含全部联机文档的MicrosoftCeveloperNetworkCD。毕业设计VB6全文共65页，当前为第7页。（2）专业版为专业编程人员提供了一整套功能完备的开发工具。该版本包括嘘唏版的全部功能以及ActiveX控件、InternetInformationServerApplicationDesigner、集成的VisualDatabaseTools和Environment、ActiveDataObjects、DynamicHTMLPageDesigner。专业版提供的文档有VisualStudioProfessionalFeatures手册和半喊全部联机文档的MicrosoftDeveloperNetworkCD。（3）企业版使得专业编程人员能够开发功能强大的组内分布式应用程序。该版本包括专业版的全部功能以及BackOffice工具，例如SQLServer、MicrosoftTransactionServer、InternetInformationServer、VisualSourceSafe、SNAServer，以及其他。企业版本包括的因说文档包括VisualStudioEnterpriseFeatures手册以及包含全部的联机文档的MicrosoftDeveloperNetworkCD。2.系统需求为运行VB，必须在计算机上安装相应的硬件和软件系统。这些系统要求包括：（1）MicrosoftWindows95、Windows98或更高版本，MicrosoftWindowsNTWorkstation4.0(推荐ServicePack3）或更高版本。（2）486DX/66MHz或更高的处理器（推荐Pentium或更高的处理器），或任何运行于MicrosoftWindowsNTWorkstation的Alpha处理器。（3）一个CD-ROM驱动器。（4）MicrosoftWindows支持的VGA或分辨率更高的监视器。（5）16MB以上内存。（6）鼠标或其他定点设备。2.3VisualBasic安装要从CD盘上安装，请按照以下步骤执行：（1）在CD-ROM驱动器中插入CD盘。（2）安装程序在Disk1的跟目录下，可用操作系统中的适当命令来运行。如果用户的计算机能够在系统中运行AutoPlay，则在插入CD盘时，安装程序将被自动加载。毕业设计VB6全文共65页，当前为第8页。（3）选取“安装VisualBasic6.0”。毕业设计VB6全文共65页，当前为第8页。（4）依照频幕上的安装指令行事即可。1.启动VisualBasic在Windows98下要启动VisualBasic,请按照以下步骤执行：（1）单击任务栏上的“开始”按钮。（2）选择“程序”，接着选取“MicrosoftVisual6.0”。（3）或者在桌面上双击VB6.0图标。下面一起来看看VB的编程环境。虽然看起来复杂，但可以把它分成几个部分，每个部分都有自己的特定的功能：（1）“菜单栏”和“工具栏”。“菜单栏”中包含了VB提供的所有功能选项，而其中一些常用的功能或操作选项则被提取出来放在了“工具栏”中，通过点击这些快捷按钮可以加快程序开发的速度。（2）“VisualBasic的组件面板”和“窗体设计区域”。VB提供了方便的窗体设计区域，他位于整个编程窗口的中间。使用者可以在这个区域中搭建出美观使用的程序界面。“VisualBasic的组件面板”就是最左边的那一条包含许多设计工具的区域，他是VB提供的标准的变成组件（控件），包括程序设计中经常用到的诸如按钮、图片框、列表框等，使用时只需添加到窗体中即可。（3）“VisualBasic工程管理器”。用来管理开发VB程序所需要的各种类型的窗体和模块，如图1-1所示的右上图是一个工程所包含的内容。窗体是一个程序表现在外面的界面，模块是程序内部使用的代码。当点击“添加窗体”快捷工具按钮后，右上图“VisualBasic工程管理器”中就会显示出新添加的窗体，这也就是“VisualBasic工程管理器”的功能，它使使用者从总体上把握程序开发的各个部分。（4）“组件属性窗口”。用来显示组件的属性，它允许用户修改、设定这些属性的值。在“窗体设计区域”的窗体上选中一个组件，以按钮为例，则在“组件属性窗口”中会列出他的属性，用户可以看到常用的“Name”、“Caption”、“Font”等属性，试者把“Caption”属性改为“这是一个按钮”，然后看看“窗体设计区域”的按钮上显示的文字是不是改变了。（5）“窗体布局窗口”。调整程序运行时程序窗体在频幕中的初始位置。把鼠标移到右下图频幕中的窗体上，这时鼠标会变成移动形状，拖动窗体，就设置好了运行时此窗体的位置。毕业设计VB6全文共65页，当前为第9页。（6）“代码编辑区域”。在“窗体设计区域”双击鼠标，就能弹出“代码编辑区域”。在“代码编辑区域”中，可以看到一行行的VB代码显示在其中，用户可以修改、写入程序代码，来让程序实现一定的功能，它是整个程序设计的关键。毕业设计VB6全文共65页，当前为第9页。2.VisualBasic工程简介在开发应用程序时，要使用工程来管理应用的所有不同的文件。一个工程包括：（1）跟踪所有部件的工程文件（.vbp），就是与该工程有关的全部文件和对象的清单，也是所设置的环境选项方面的信息。每次保存工程时，这些信息都要被更新。所有这些文件和对象也可供其他工程共享。当完成工程的全部文件之后，即可将此工程转换成可执行文件（.exe)。（2）每个窗体的文件（.frm)。（3）每个窗体的二进制数据文件（.frx)，它含有窗体上控件的属性数据。对含有二进制属性（例如图片或图标）的任何.frm文件都是不可编辑的，这些文件都是自动产生的。（4）每个类模块的一个文件（.cls)，该文件是可选项。（5）每个标准模块的一个文件(.bas），该文件是可选项。（6）一个或多个包含ActiveX控件的文件（.ocx），该文件是可选项。（7）单个资源文件(.res），该文件是可选项。3.VisualBasic工程的结构（1）窗体模块。窗体模块（具有.frm文件扩展名）包含窗体及其控件的正文描述，包含它们的属性设置。它们也含有窗体级的常数、变量和外部过程的声明、事件过程和一般过程。（2）类模块。类模块（具有.cls文件扩展名）与窗体模块类似，只是没有可见的用户界面。可以使用类模块创建含有方法和属性代码的自己的对象。（3）标准模块。标准模块（具有.bas文件扩展名）可以包含类型、常数、变量、外部过程和公共过程的公共的或模块级的声明。（4）资源文件。资源文件（具有.res文件扩展名）包含着无需重新编辑代码便可以改变的位图、字符串和其他数据。例如，如果计划用一种外语将应用程序本地化，可以将用户界面的全部正文串和位图存放在资源文件里，然后将资源文件本地化，而不是将整个应用程序本地化。一个工程最多包含一个资源文件。毕业设计VB6全文共65页，当前为第10页。（5）ActiveX文档。ActiveX文档（.dob）类似于窗体，但是在互联网资源管理器之类的互联网浏览器中是可以显示的。VB的专业版和企业版能够创建ActiveX文档。毕业设计VB6全文共65页，当前为第10页。（6）用户控件和属性页模块。用户控件（.ctl）和属性页(.pag）模块也类似于窗体，但它们被用于创建ActiveX控件及与其关联的用来显示设计时属性的属性页。VB的专业版和企业版能够创建ActiveX控件。（7）标准控件。标准控件是由VB提供的。标准控件，例如命令按钮或框架控件，总是包含在工具箱里，与可从工具箱里删除添加的ActiveX控件和可插入对象不同。3系统总体设计3.1系统的设计与实现系统设计的任务是针对软件分析阶段确定的软件规格，给出具体的实现方案、步骤和手段。软件往往涉及到以下方面的问题：软件结构，数据库结构和程序算法。这种思路与建造高层框架建筑有一些相似之处。毕业设计VB6全文共65页，当前为第11页。在基于结构化的软件设计方法中，软件结构被理解为构成软件的模块，以及模块之间的调用关系。在分析阶段对功能的定义成为了这时用于确定模块构成及其关系的基本依据。也就是说，我们可以按功能来划分模块，按功能之间的关系来确定调用关系。一般来说模块的功能越明确，就越容易实现，也越便于维护。我们称之为模块独立。一个具有好的设计结构的软件系统，起模块应该具有较强的独立性。毕业设计VB6全文共65页，当前为第11页。现今的软件开发都已朝着面向对象方向发展，新型的程序设计工具大都是面向对象的设计工具。而面向对象方法中的基本模块单位是“类”。因此，确定“类”的组成，设计的接口，和基于“类”的引用关系而进行的软件构架设计，是面向对象的软件体系结构设计中，需要完成的基本任务。现在的软件，往往都离不开后台数据库系统的数据支持，因此还需要考虑到数据库的结构，并对数据库进行专门的设计。在关系数据库中，数据库由关系数据表组成，而数据表的结构则又体现为表内部的字段。因此，数据库结构设计也就具有以下工作内容：确定数据库中数据表的组成。确定数据表中字段的构成。定义主键字段，使数据表获得实体完整性约束。依靠数据表中主键字段，建立数据表之间的关系，并由此建立数据表之间的参照完整性约束。设置有关字段的约束条件。3.1.1设计思想尽量利用图书馆现有软硬件环境，采用先进的管理系统开发方案，从而达到充分利用图书馆的现有资源，提高系统开发水平和应用效果的目的；系统应符合图书馆管理的规定，满足图书馆相关人员常使用的需要，并达到操作过程中的直观、方便、实用、安全等要求；系统采用模块化程序设计方法，既便于系统功能的各种组合和修改，又便于未参与开发的技术维护人员进行补充、维护。系统应具备数据库维护功能，及时根据用户需求进行数据的添加、删除、修改、备份等操作。对MSSQLServer2000数据库管理系统、SQL语言原理进行了较深入的学习和应用，主要完成对图书管理系统的需求分析、功能模块划分、数据库模式分析，并由此设计了数据库结构和应用程序。3.1.2开发和运行环境选择开发工具：VisualBasic6.0

VB全称为VisualBasic，是微软公司推出的可视化编程工具MSDN之一，是目前世界上使用最广泛的程序开发工具。如果你是一个对编程一无所知，而又迫切希望掌握一种快捷实用的编程语言的初学者，那选择VB6.0没错的。即使考虑到VB程序本身编译和运行效率较低的不足，单是它的快捷的开发速度，简单易学的语法，体贴便利的开发环境，它仍不失一款优秀的编程工具，是初学者的首选。毕业设计VB6全文共65页，当前为第12页。MSSQLServer2000数据库管理系统毕业设计VB6全文共65页，当前为第12页。运行环境：Win98/WinXP/Win2000/Win2003测试环境：Win2000+WinXp3.2总体功能需求图书管理系统需要满足来自三方面的需求，这三个方面分别是图书借阅者、图书馆工作人员和图书馆管理人员。图书借阅者的需求是查询图书馆所存的图书、个人借阅情况及个人信息的修改；图书馆工作人员对图书借阅者的借阅及还书要求进行操作，同时形成借书或还书报表给借阅者查看确认。图书馆管理员可以浏览、查询、添加、删除、修改、统计图书的基本信息；浏览、查询、统计、添加、删除和修改图书借阅者的基本信息，浏览、查询、统计图书馆的借阅信息，但不能添加、删除和修改借阅信息，这部分功能应该由图书馆工作人员执行，但是，删除某条图书借阅者基本信息记录时，应实现对该图书借阅者借阅记录的级联删除。要求能够对图书资料进行管理，如登记新书，删除不存在的书目，对已经变更的图书信息进行修改，还可以根据多种条件从数据库中查询书目的详细信息。要求能对新读者信息进行登记，对已经变更的读者信息进行修改，对不再借阅的读者信息进行删除。还可以查询读者的详细信息，以及读者借阅过的书目和正在借阅的书目。提供借阅登记表和返还登记表来管理借阅。3.3功能划分毕业设计VB6全文共65页，当前为第14页。毕业设计VB6全文共65页，当前为第13页。功能图如下毕业设计VB6全文共65页，当前为第14页。毕业设计VB6全文共65页，当前为第13页。图书管理系统系统管理管理员登陆重新登陆退出图书管理图书资源登记图书查询读书管理读书信息登记读书查询借阅管理管理借阅登记返还登记关于关于3.4数据结构说明3.4.1数据表汇总在概念设计阶段中，设计人员从用户的角度看待数据及处理要求和约束，产生一个反映用户观点的概念模式。然后再把概念模式转换成逻辑模式。将概念设计从设计过程中独立开来，使各阶段的任务相对单一化，设计复杂程度大大降低。大多数主流数据库管理系统把用户数据表示为关系。现在把关系看作数据表。表的列包含域或属性，表的行包含对应业务环境中的实体的记录。并非所有的关系都同样符合要求，有些关系比其它关系更结构化一些。确定数据库中数据表的组成和构成，定义主键字段，建立数据表之间的关系，获得参照完整性约束，在数据库设计中，往往根据软件的现实工作模型中的数据要素，进行数据库模型推断，设计原则基于软件工作模型建立数据库，软件工作模型中的实体对象确定数据表，实体对象所具有的属性确定字段，相互依赖确定数据表之间的关系。为了对比结构差的关系和结构好的关系之间的差别，以本文所设计的图书管理系统中的图书和图书借阅者关系为例来说明。

基本表如下：表名类型说明BookMessage基本表集中存放书目信息BorrowMessage基本表存放借书、还书资料ReaderMessage基本表存放用户信息3.4.2各表设计详解毕业设计VB6全文共65页，当前为第15页。Library.mdb数据库的结构设计涉及到了因素的综合，下表列出了Library.mdb数据库中各数据表的设计结构与说明。毕业设计VB6全文共65页，当前为第15页。数据视图名SQL语句 说明藏书情况查询SELECT图书编码．类别代码，图书编码周书编码，图书编码．书名，图书编码．作者，图书编码．定价，图书编码．出版单位，图书编码愿片，图书编码屑介，图书清单周书①，图书清单．状态，图书清单．藏库日期FROM图书编码INNERJOIN图书清单ON图书编码周书编码：图书清单．图书编码；用于从“图书编码”、“图书清单”两个表获取藏书信息藏书量统计SELECT图书编码．类别代码AS类别，Count(图书清单周书m)AS藏书量FROM图书编码INNERJOIN图书清单ON图书编码周书编码：图书清单．图书编码WHERE(((图书清单．状态降2))GROUPBY图书编码．类别代码；用于从“图书编码”、“图书清单”两个表获取藏书量统计信息借阅量统计SELECTfust(图书编码．类别代码)AS类别，count(图书清单．图书m)AS借阅量FROM图书编码INNERJOIN图书清单ON图书编码．图书编码：图书清单周书编码WHERE(((图书清单．状态)：1))GROUPBY图书编码．类别代码；用于从“图书编码”、“图书清单”两个表获取借阅量统计信息藏书借阅比较SELECT藏书量统计．类别，借阅量统计．借阅量，藏书量统计．藏书量，([借阅量统计)．I借阅量]／L藏书量统㈩．[藏书量1)*100AS借阅率FROM藏书量统计LEFrJOIN借阅量统计ON藏书量统计．类别：借阅量统计．类别；用于从“藏书量统计”、“借阅量统计”两个视图对藏书借阅情况进行比较图书借阅情况SELECT图书编码．类别代码，图书编码周书编码，图书借阅．查询图书1D，图书编码．书名，图书编码．作者，图书编码．定价，图书编码．出版单位FROM(图书编码INNERJOIN图书清单ON图书编码周书编码二图书清单周书编码)INNERJOIN图书借阅ON图书清单．图书m二图书借阅．图书ID；用于从“图书编码”、“图书清单，、“图书借阅”图书借阅信息三个表获取毕业设计VB6全文共65页，当前为第16页。待借图书有效验证查询毕业设计VB6全文共65页，当前为第16页。SELECT图书借阅履者m，图书清单周书编码用于从“图书清单”、FROM图书清单INNERJOIN图书借阅ON图书清单．图书D：图书借阅．图书ID；用于从“图书清单”、“图书借阅”两个表检验图书是否可惜1BookMessagn表序号字段名称字段说明类型位数属性1BookIndex图书编号文本10必填，非空2BookName图书名称文本50必填，非空3Auther作者文本50必填，非空4Publish出版社文本50必填，非空5JoinTime入库时间日期/时间50必填，非空6Type类型文本10必填，非空7State状态文本10必填，非空3.2.2BorrowMessage表序号字段名称字段说明类型位数属性1Index记录编号自动编号10必填，非空2BookIndex图书编号文本10必填，非空3ReaderIndex读者编号文本10必填，非空4BorrowTime借阅时间日期/时间10必填，非空5ReturnTime返还时间日期/时间10必填，非空2ReaderMessage表序号字段名称字段说明类型位数属性1ReaderIndex读者编号文本10必填，非空2eaderName读者名称文本50必填，非空3Age年龄数字10必填，非空4Sex性别文本10必填，非空5Duty职务文本10必填，非空3数据框架结构在涉及数据库的应用系统结构设计时，往往需要考虑到两个方面的设计：用于实现界面操作的前端程序设计；用于实现数据库连接的接口程序设计。图书借阅系统就是按照这一思路来设计其结构的。毕业设计VB6全文共65页，当前为第17页。数据库所要存储的数据来源于现实；因此，软件有待解决的实际问题中将使用到的数据也就成为了确定数据表、字段、约束条件和建立数据表之间关系的最基本依据。依靠对显示问题的描述而获得的数据库结构模型，往往还需要进行必要的精细加工。所设计的数据库中可能会出现过多的重复数据，它会使得数据库的性能降低，数据维护量加大，而且不便于操作。为了使数据库结构更加科学合理，数据库设计需要遵循范式理论规则，目前应用较多的是3NF。相似进行数据库设计时，关系联系图是一个非常实用的分析设计工具，可以用它来描述数据实体之间的关系，并获得从现实数据结构到逻辑数据结构的无痕过渡相结合。毕业设计VB6全文共65页，当前为第17页。软件功能是通过模块实现的，在对软件模块进行定义时，软件的功能划分成为了首先需要考虑的因素。图书借阅系统涉及到了连接数据库和用户对数据的操作两个方面的问题，因此可以将它划分为LibnlyData．d11和Libraryexe这两个功能部件.LibraryData．dll是数据库连接部件，它通过数据环境模块DataEnvCkwlgl实现对数据库的连接与操作，并通过公共类模块clData提供的向外数据接口，而获得对外数据服务。Library．exe是提供给用户的操作界面，它通过数据连接部件所提供的clDam公共类接口获取所需要的数据，并承担了面向用户的交互式数据服务任务。一般来说，软件中的每一个模块都有自己特定的功能目标。使每一个模块都具有明确的功能特征，是定义软件模块时一种非常有效的设计策略。例如，LibraryData．dll是用来连接数据的，而Library．exe则是用来显示和操作数据的。以功能为特征的模块划分，可以继续有效深入下去，从部件工程深入到部件工程中的模块单元，再继续深入到模块单元内的过程和函数。也就是说，可以通过软件的功能构成，逐步使软件结构框架确定下来。4数据库连接为方便对数据库的连接，VisualBasic6．0提供了建立在ADO基础上的数据环境设计器，采用了该数据环境设计器。用于创建数据库连接程序的LibraryData工程资源如图是对该工程中模块的说明。毕业设计VB6全文共65页，当前为第18页。毕业设计VB6全文共65页，当前为第18页。模块名类别属性作用DataEnvLibraryclData数据环境类模块Public=FalseInstancing=5-MultiUse连接数据库、进行SQL操作向外提供数据库操作接口前端用户程序的作用是为用户提供便利的交互式数据操作环境，主要成分是窗体模块。用于创建前端程序的Library工程资源，工程中的各模块的说明。模块名类别功能frmAboutfrmAdminRegisterfrmBookInformationfrmBookRegisterfrmBookSortfrmBorrowRestorefrmDelDataFnnEditPasswordFrmLoginFxmMainFrmPhotoFrmSetPageFrmStafisficFrmTransactCardModMainDrpBookCardDrpReaderCard窗体窗体窗体窗体窗体窗体窗体窗体窗体MDI窗体窗体窗体窗体窗体标准模块报表报表关于软件的说明对话框管理员登记对话框图书信息查询窗图书编码与藏库入册窗图书分类编目对话框图书借阅事务处理窗删除冗余数据对话框修改密码对话框登录“图书借阅系统”对话框主窗体，用于提供集中工作环境照片放大窗打印设置对话框图书借阅情况统计分析窗读者办理借书证宙系统启动模块打印图书检索卡打印借书证5数据环境毕业设计VB6全文共65页，当前为第19页。数据连接部件LibraryData.DLL对数据库的SQL操作是通过建立数据环境DataEnvLibrary而实现的，DataEnvLibrary的组成。在DataEnvCkwlgl下创建的contLibrary连接用于实现对数据库Library．MDB的连接操作，而在contLibrary下创建的诸多SQL命令则用于对Library．MDB中的数据表进行操作。列出了数据环境DataEnvLibrary中的各SQL命令的内容及其说明。毕业设计VB6全文共65页，当前为第19页。5程序详细设计毕业设计VB6全文共65页，当前为第20页。从本章开始，逐个地给出各个层次中的每个模块的设计考虑。当用户对应程序进行评估时，应用程序的操作界面会备受关注。也许应用程序在技术上非常出色，但如果用户发现它很难操作，那么也很难接受。在微软所取得的巨大成功之中，其软件基于人本的友好性是一个很重要的因素。以下给出的提纲是针对一般情况的。对于一个具体的模块，尤其是层次比较低的模块或子程序，其很多条目的内容往往与它所隶属的上一层模块的对应条目的内容相同，在这种情况下，只要简单地说明这一点即可。毕业设计VB6全文共65页，当前为第20页。5.1系统主界面设计前端程序中的主界面是用户与数据交互的控制中心，它通过建立在该窗体上的菜单或工具栏而实现对各功能窗体的调用控制。在设计应用程序用户界面的时候，需要时时想到用户。如何才能使用户在没有专门指导的情况下，自己就能发现到应用程序的各种各样功能。当有错误发生时，应用程序能够提供那些响应，并能帮助用户从错误陷阱中跳出来，界面设计是否能通过一种艺术美感来使用户感觉舒适，当用户需要帮助时，它能够通过哪些方式获得帮助。主界面是MDI窗体，在其中可以打开多个子窗体。工具栏上的图片由图像集控件提供。由于公共对话框控件可能要被多个子窗体引用，因此也被放置在主窗体上。界面设计往往需要进行多次反复。在为应用程序设计界面时，一次就设计出非常完美的界面的情况非常少见。可以考虑邀请用户参与界面设计，而且，用户参与界面设计过程越早，则在该问题上所花的气力会越少，创建的界面会越具有可用性。虽然在VisualBasic环境中，能够非常方便地创建用户界面，但在设计之前仍然需要做一些规划，可以先在纸上面画出窗体中的控件布局图，以便确定需要哪些控件元素，不同元素的相对重要性以及各元素之间的关系等。另外，一些将被诸多窗体调用的公共过程：File_Open(打开文件)；RsNumber(显示子窗体信息)；SavePhoto(存储图片到数据库)；SetPrint(打印设置)，也被创建与主窗体模块内部。5.1.1系统主界面样式本软件使用多文档界面，用户主界面设计也存在动作感。用在命令按钮上的三维立体效果，使得这些按钮看上去像是可以被按下去的东西。相比之下，设计平面边框的命令按钮的话，就会失去这种动作感，因而不能清楚地告诉用户它是一个命令按钮。文本框也有动作感，用户可能习惯性地认为，可编辑的文本框是带有边框和白色背景的框；界面设计中控件的动作感是非常有效的额外提示信息，可以使界面更容易被用户理解本软件使用多文档界面，设计界面如图所示：（MDI窗体）毕业设计VB6全文共65页，当前为第21页。毕业设计VB6全文共65页，当前为第21页。图5-15.1.2功能及源代码为了使界面更为有好，使用了工具栏，并添加图片imageslist。系统主界面的功能是引导用户进入不同的功能模块。实现其功能代码如下。PrivateSubMDIForm_Load()mnubook.Enabled=Falsemnureader.Enabled=Falsemnuborrow.Enabled=Falsemnuabout.Enabled=FalseToolbar1.Enabled=Falsemnulogin.Enabled=FalseEndSubPrivateSubmnuabout_Click()FrmAbout.Show毕业设计VB6全文共65页，当前为第22页。EndSub毕业设计VB6全文共65页，当前为第22页。PrivateSubmnuadmin_Click()Frm_login.ShowFrm_login.Text2=""mnubook.Enabled=Falsemnureader.Enabled=Falsemnuborrow.Enabled=Falsemnuabout.Enabled=FalseToolbar1.Enabled=Falsemnulogin.Enabled=FalseEndSubPrivateSubmnubackcheck_Click()Frm_book_back.ShowEndSubPrivateSubmnubookcheck_Click()Frm_book_add.ShowEndSubPrivateSubmnubookstate_Click()Frm_book_search.ShowEndSubPrivateSubmnuborrowcheck_Click()Frm_reader_borrow.ShowEndSub毕业设计VB6全文共65页，当前为第23页。毕业设计VB6全文共65页，当前为第23页。PrivateSubmnucancel_Click()IfMsgBox("确实要退出吗？",vbOKCancel,"退出")=vbOKThenEndEndSubPrivateSubmnudata_Click()IfConnectToServer=TrueThenMsgBox"连接成功……",vbInformation+vbOKOnly,"连接数据库"mnubook.Enabled=Truemnureader.Enabled=Truemnuborrow.Enabled=Truemnuabout.Enabled=TrueToolbar1.Enabled=Truemnudata.Enabled=FalseElseMsgBox"连接失败",vbInformation+vbOKOnly,"连接数据库"mnubook.Enabled=Falsemnureader.Enabled=Falsemnuborrow.Enabled=Falsemnuabout.Enabled=FalseToolbar1.Enabled=FalseEndIfEndSubPrivateSubmnuinf_Click()Frm_borrow.ShowEndSub毕业设计VB6全文共65页，当前为第24页。PrivateSubmnulogin_Click()毕业设计VB6全文共65页，当前为第24页。Frm_login.ShowFrm_login.Text2=""mnubook.Enabled=Falsemnureader.Enabled=Falsemnuborrow.Enabled=Falsemnuabout.Enabled=FalseToolbar1.Enabled=FalseEndSubPrivateSubmnureadcheck_Click()Frm_reader_add.ShowEndSubPrivateSubmnureaderborrow_Click()Frm_reader_search.ShowEndSubPrivateSubToolbar1_ButtonClick(ByValButtonAsMSComctlLib.Button)SelectCaseButton.KeyCase"admin"Callmnuadmin_ClickCase"book"Callmnubookcheck_ClickCase"reader"Callmnureadcheck_ClickCase"back"Callmnubackcheck_ClickCase"about"毕业设计VB6全文共65页，当前为第25页。Callmnuabout_Click毕业设计VB6全文共65页，当前为第25页。EndSelectEndSub5.2公用模块的设计在VB中可以用公用模块来存放整个工程项目公用的函数、过程和全局变量等。这样可以极大的提高代码的效率。在项目管理器中为软件添加一个Module，保存为Module1.bas。下面开始添加代码。由于系统中各个功能模块都将频繁使用数据库中的各种数据，因此需要一个公共的数据操作函数用以执行各种SQL语句。代码如下：GlobalconAsNewADODB.ConnectionGlobalrsAsNewADODB.RecordsetGlobalstrsqlAsStringPublicFunctionConnectToServer()AsBoolean'连接函数，如果连接成功则返回真，否则返回假OnErrorGoToconnectErrcon.ConnectionString="Provider=SQLOLEDB.1;IntegratedSecurity=SSPI;PersistSecurityInfo=False;InitialCatalog=librarybase;server=."con.Open'打开连接ConnectToServer=TrueExitFunctionconnectErr:'错误处理ConnectToServer=FalseMsgBox"错误代码："&Err.Number&vbCrLf&"错误描述："&_毕业设计VB6全文共65页，当前为第26页。Err.Description,vbInformation+vbOKOnly,"连接错误"毕业设计VB6全文共65页，当前为第26页。EndFunctionPublicFunctionConnectclose()Ifcon.State=adStateOpenThencon.CloseEndIfEndFunctionSubmain()CallConnectToServerFrmMDI.ShowEndSub5.3图书管理5.3.1图书资料登记1.界面样式本功能界面为普通窗体，采用菜单方式打开。如图：图5-22．功能本模块主要为管理员登记新书，来方便顾客查询新出版的图书和资料，各个项目必须完全填充。毕业设计VB6全文共65页，当前为第27页。3.源代码毕业设计VB6全文共65页，当前为第27页。PrivateSubCmdcheck_Click()Callrs.Open("select*fromBookMessage",con,adOpenDynamic,adLockOptimistic,-1)rs.AddNewrs.Fields("bookname").Value=Txtbookname.Textrs.Fields("auther").Value=Txtautherrs.Fields("publish").Value=Txtpublishrs.Fields("type").Value=Cmbtypers.Fields("state").Value="在库"rs.Fields("jointime").Value=Txtjointimers.Fields("BookIndex").Value=TxtBookIndex.Textrs.Updaters.CloseTxtBookIndex.Text=""Txtbookname.Text=""Txtauther.Text=""Txtpublish=""Txtjointime.Text=Now()Cmbtype.Text=""EndSubPrivateSubCmdclose_Click()UnloadMeEndSubPrivateSubForm_Load()Cmbtype.AddItem"科技"Cmbtype.AddItem"课本"毕业设计VB6全文共65页，当前为第28页。Cmbtype.AddItem"文学"毕业设计VB6全文共65页，当前为第28页。Cmbtype.AddItem"教程"Cmbtype.AddItem"诗集"Cmbtype.AddItem"其他"Txtjointime.Text=Now()EndSubPrivateSubFrame1_DragDrop(SourceAsControl,XAsSingle,YAsSingle)EndSub5.3.2图书查询1．界面样式本功能界面为普通窗体，如图：图5-32．功能本模块可以通过“图书编号”、“图书名称”、“图书类型”四种方式对图书进行查询，可以选填或不填其中的任意选项。当查询出结果时，来显示图书状态“在库”或“借出”。可以对更换的书籍进行删除管理。3．源代码毕业设计VB6全文共65页，当前为第29页。DimstrsqlAsString毕业设计VB6全文共65页，当前为第29页。PrivateSubCmdcancel_Click()UnloadMeEndSubPrivateSubCmdcheck_Click()cmdDel.Enabled=TrueIfTrim(Text1.Text)<>EmptyThen'判断是否为空strsql="(BookIndexlike'%"&Trim(Text1.Text)&"%')"EndIfIfTrim(Text2.Text)<>EmptyThenIfstrsql<>EmptyThenstrsql=strsql&"and(booknamelike'%"&Trim(Text2.Text)&"%')"Elsestrsql="(booknamelike'%"&Trim(Text2.Text)&"%')"EndIfEndIfIfTrim(Cmbtype.Text)<>EmptyThenstrsql="(typelike'%"&Trim(Cmbtype.Text)&"%')"EndIfIfstrsql<>EmptyThenstrsql="select*frombookmessagewhere"&strsqlElsestrsql="select*frombookmessage"EndIfAdodc1.RecordSource=strsqlAdodc1.ConnectionString=con.ConnectionStringSetDataGrid1.DataSource=Adodc1strsql=""'清除当前查询毕业设计VB6全文共65页，当前为第30页。EndSub毕业设计VB6全文共65页，当前为第30页。PrivateSubcmdDel_Click()If(MsgBox("确定要删除吗?",vbQuestion+vbYesNo,"提示")=vbYes)ThenAdodc1.Recordset.DeleteEndIfEndSubPrivateSubDataGrid1_Click()EndSubPrivateSubForm_Load()Cmbtype.AddItem"科技"Cmbtype.AddItem"文学"Cmbtype.AddItem"教程"Cmbtype.AddItem"诗集"Cmbtype.AddItem"其他"EndSub5.4读者管理5.4.1借阅登记1.界面样式毕业设计VB6全文共65页，当前为第31页。毕业设计VB6全文共65页，当前为第31页。图5-42.功能本模块功能基本等读者登记模块，可不完整填充项目。3.源代码PrivateSubCmdcheck_Click()Callrs.Open("select*fromReaderMessage",con,adOpenDynamic,adLockOptimistic,-1)rs.AddNewrs.Fields("readindex").Value=Txtreaderindex.Textrs.Fields("readername").Value=Txtreadername.Textrs.Fields("sex").Value=Cmbsexrs.Fields("age").Value=Txtage.Textrs.Fields("duty").Value=Txtduty.Textrs.Updaters.CloseTxtreaderindex.Text=""Txtreadername.Text=""Txtage.Text=""Txtduty.Text=""EndSubPrivateSubCmdclose_Click()UnloadMeEndSubPrivateSubForm_Load()Cmbsex.AddItem"男"Cmbsex.AddItem"女"毕业设计VB6全文共65页，当前为第32页。毕业设计VB6全文共65页，当前为第32页。EndSub5.4.2返还登记1.界面样式图5-52.功能本模块主要功能为图书返还功能，改变图书在库中的状态。3.源代码PrivateSubCmdback_Click()Callrs.Open("select*fromBorrowMessage",con,adOpenDynamic,adLockOptimistic,-1)DoWhilers.EOF=FalseIf(Txtbookno.Text=Trim(rs.Fields("BookIndex").Value))Thenrs.Fields("ReturnTime").Value=Now()rs.Updaters.MoveNext毕业设计VB6全文共65页，当前为第33页。Else毕业设计VB6全文共65页，当前为第33页。rs.MoveNextEndIfLooprs.CloseCallrs.Open("select*fromBookMessage",con,adOpenDynamic,adLockOptimistic,-1)DoWhilers.EOF=FalseIf(Txtbookno.Text=Trim(rs.Fields("BookIndex").Value))Thenrs.Fields("state").Value="在库"rs.Updaters.MoveNextElsers.MoveNextEndIfLooprs.CloseTxtbookno.Text=""EndSubPrivateSubCmdclose_Click()UnloadMe毕业设计VB6全文共65页，当前为第34页。EndSub毕业设计VB6全文共65页，当前为第34页。4.4.3借阅信息查询界面样式功能本窗体功能是为了实现图书借阅的模块。源代码PrivateSubCmdclose_Click()UnloadMeEndSubPrivateSubCmdOk_Click()Callrs.Open("select*fromBorrowMessage",con,adOpenDynamic,adLockOptimistic,-1)rs.AddNewrs.Fields("BookIndex").Value=Txtbookno.Text毕业设计VB6全文共65页，当前为第35页。rs.Fields("ReaderIndex").Value=Txtborrowname.Text毕业设计VB6全文共65页，当前为第35页。rs.Fields("BorrowTime").Value=Now()rs.Updaters.CloseCallrs.Open("select*fromBookMessage",con,adOpenDynamic,adLockOptimistic,-1)DoWhilers.EOF=FalseIf(Txtborrowname.Text=Trim(rs.Fields("BookIndex").Value))Thenrs.Fields("state").Value="借出"rs.UpdateElsers.MoveNextEndIfLooprs.CloseTxtbookno.Text=""EndSub5.5系统管理5.5.1管理员登录1．登录界面样式毕业设计VB6全文共65页，当前为第36页。毕业设计VB6全文共65页，当前为第36页。图5-62．功能此模块实现用户登录功能，密码填写正确与否，会弹出系统的对话框，提示用户名、密码是否正确。如果连续3次帐号和密码不正确连接界面将自动退出。3．源代码PrivateSubCmdcancel_Click()UnloadMeFrmMDI.mnubook.Enabled=FalseFrmMDI.mnureader.Enabled=FalseFrmMDI.mnuborrow.Enabled=FalseFrmMDI.mnuabout.Enabled=FalseEndSubPrivateSubCmdOk_Click()StaticiAsIntegerIfText1.Text="yuechong"ThenFrm_login.HideFrmMDI.mnubook.Enabled=TrueFrmMDI.mnureader.Enabled=True毕业设计VB6全文共65页，当前为第37页。FrmMDI.mnuborrow.Enabled=True毕业设计VB6全文共65页，当前为第37页。FrmMDI.mnuabout.Enabled=TrueFrmMDI.Toolbar1.Enabled=TrueFrmMDI.mnulogin.Enabled=True'FrmMDI.mnudata.Enabled=TrueElse:MsgBox"帐号、密码错误，请重新输入！",vbCritical+vbOKOnly,"提示信息"Text2.Text=""i=i+1Ifi=3ThenEndEndIfIfText2.Text="123"ThenFrm_login.HideFrmMDI.mnubook.Enabled=TrueFrmMDI.mnureader.Enabled=TrueFrmMDI.mnuborrow.Enabled=TrueFrmMDI.mnuabout.Enabled=Tr