《数据库课程设计-物资管理系统.docx》由会员分享，可在线阅读，更多相关《数据库课程设计-物资管理系统.docx（33页珍藏版）》请在三一办公上搜索。
1、-1错误!未定义书签-1-1-11概述1.1项目背景:1 .2编写目的:1.3 项目名称:1.4 开发环境:2 需求分析.2.3 问题的提出：-2-2.4 需完成的功能：-2-3数据库设计的过程-3-3.1概念模型设计-3-3.2逻辑数据库设计-6-3.3规范化理论的应用-7-3.4物理数据库设计-8-4软件功能设计-12-4.1系统功月匕分析12-13-5设计心得4.2系统功能模块设计错误!未定义书签。参考文献-19-错误!未定义书签。第一章概述1.1、 项目背景物资管理系统是企业管理的一个重要内容，随着时代的进步，企业也逐渐变的庞大起来。如何管理好企业内部物质的信息，成为企业管理中的一个大
2、问题。在这种情况下，一个可以规范化，自动化的物资管理信息系统就显得非常必要。最初的物资管理，都是靠人力来完成的。当企业规模比较小的时候，人力可以完成，随着企业的规模越来越大，企业的进出物资数量也越来越多，依然维持着人力进行物资管理，必然会造成工作效率低，工作错误增高的问题。物资管理系统就是把分散的企事业单位的职工信息实行统一，集中，规范的收集管理，建立分类编号管理，电脑存储查询以及防火，防潮，防蛀，防盗等现代化，专业化的管理系统，为企事业单位和职工解除后顾之忧。1.2、 编写目的：物资管理系统是为了配合相关部门对自身本部门物资的管理，充分运用现代化信息技术手段高效、快捷的工作而开发的软件系统。
3、物资管理信息系统为企事业单位提供信息咨询，信息检索，信息存取等服务。1.3、 项目名称：物资管理系统.1.45、 发环境：本系统使用MicrosoftVisualBasic6.0中文版作为前台设计和MicrosoftSQ1.Server2000管理数据库VisualBasic6.0作为Microsoft公司开发的BasicStudio6.0套件的一部分，是一个功能丰富、方便实用的程序开发环境，它的一个很大的特色就是功能强大、编程简单的数据库操作能力。可视化的开发环境、丰富的数据库访问空间的支持使得VisualBasic成为数据库应用程序项目中重要的开发工具。MicrosoftSQ1.Serve
4、r2000中文版是基于客户机/服务器模式的新一代大型数据库管理系统，它在电子商务、数据仓库和数据库解决方案等应用中起着重要的核心作用，可为企业的数据管理提供强大的支持，并采取有效的措施来实现数据的安全性、完整性、备份和恢复。是目前广泛使用的关系型数据库。第二章需求分析2.1、 问题的提出：物资管理是一般工业、商业企业生产管理环节中主要的一环，需要对物资基本信息管理,对物质调配信息等进行完整的监控,这样才能跟有效地利用物资。物资入库的时候首先需要登记物质的基本信息，包括物资的种类、名称、型号、单位、单价等；然后登记入、出库信息，包括物资的基本信息，入、出库人，经办人，物质数量，材料说明的等；对于
5、仓库中的物资，即对剩余物资进行查询和统计。长期以来,物资管理工作中的信息管理是采用人工的方式,要付出大量人力，填写各种表格、凭证、账册、卡片和文件。由于信息是随着时间不断变化的，各业务部门对信息的使用要求也各不相同，所以要按照不同的分类经常不断地汇总、统计，往往要做许多重复登记和转抄。这种手工操作的管理方式，不仅浪费人力，而且存在许多缺点：（1）处理速度慢，影响信息及时性。（2）易出现错误,影响信息精确性。（3）不便于查询。（4）缺乏综合性，不能起控制作用。由于这些缺点，大大降低了信息的利用价值，显然越来越不适应现代物资管理工作的需要。因此，发展以电子计算机为基础的物资管理系统已是十分迫切和必
6、要的了。2.2、 需完成的功能：针对一般物资管理信息系统的需求，通过对上面物资调配工作过程的内容和数据流程分析，设计如下面所示的数据项和数据结构： 有关物资基本信息的输入、包括物资编号、物资名称、规格型号、种类和计量单位等； 物资基本信息的查询、修改； 入库信息的输入、查询、修改； 出库信息的输入、查询、修改； 物质剩余物资的查询、预览，统计查询。第三章数据库设计的过程3.1、 数据库需求分析用户的需求具体体现在各种的信息的提供、保存、更新和查询等方面。这就要求数据库能够充分满足各种输入信息和输出信息。开发者要收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字典。为下一步的数据库具
7、体设计做好充分的准备。再仔细分析物资管理信息系统需求的基础上，将得到以下如图3.1所示的本系统所处理的数据流程。图3.1物资管理信息系统数据流程图针对一般物资管理信息系统的需求，通过对物资调配工作过程的内容和数据流程分析，设计如下面所示的数据项和数据结构： 物资基本信息，包括的数据项有：物资编号、物资名称、规格型号、类别、计量单位等。 入库物资信息，包括的数据项有：物资编号、物资名称、规格型号、类别、计量单位、数量、单价、金额、领用时间、领用人、经办人、保管人、仓库、备注等。 出库物资信息，包括的数据项有：物资编号、物资名称、规格型号、类别、计量单位、数量、单价、金额、领用时间、领用人、经办人
8、、保管人、仓库、备注等。 物资余额信息，包括的数据项有：物资编号、物资名称、规格型号、类别、计量单位、数量、金额、仓库等。3.2、 概念模型设计得到上面的数据项和数据结构以后，就可以设计出能够满足用户需求的各种试题以及它们之间的关系，为后面的逻辑结构设计打下基础。这些试题包含各种具体信息，通过相互间的作用形成数据的流动。本系统根据上面的设计规划出的实体有：物资基本信息实体、物资入库信息实体、物资出库信息实体、物资余额信息实体。物资出库信息实体图3.24物资余额信息实体E-R图在找出所有实体的基础上，需要进一步的分析各个实体之间的关系，经过分析可以的得到所有实体的E-R图；如图3.25是通过E-
9、R图来说明这些实体之间的关系：通过对数据库概念模型的设计，确定以下是该系统需建立的几个表格。表3.21物资表物资表material字段名类型NU1.1.其他备注wzidchar(8)NPK物资编号wznamechar(20)N物资名称wzspecchar(20)N物资型号wzkindzChar(IO)类型wzunitchar(10)计量单位表3.22物资入库表物资入库表msave字段名类型NU1.1.其他备注rknochar(14)NPK入库号rkidchar(8)N物资编号rknamechar(20)zN物资名称rkspecchar(20),规格型号rkkindchar(10),N类别rku
10、nitchar(10),N计量单位rkaccountnumeric(5,0)N数量rkoricenumeric(8z2)N单价rkvaluenumeric(10z2)N金额rkdatedatetimeN入库时间rkdealDersonchar(10)NPK经办人rksaveDersonchar(10)N保管人rkbasechar(10),IndexzFK仓库rkmemotext备注表3.23物资入库表物资入库表msurplus字段名类型NU1.1.其他备注yeidchar(8)NPk物资编号yenamechar(20)zN物资名称yespecchar(20)z物资型号yekindChar(IO
11、),N类别veunitChar(IO),N计量单位Veaccountnumeric(5,0)N数量veoricenumeric(8,2)N单价vebaseChar(IO)zIndexzFK仓库yememotext备注表3.24物资领用表物资领用表muse字段名类型NU1.1.其他备注Iynochar(14)NPK领用号Iyidchar(8)N物资编号Iynamechar(20)zN物资名称Iyspecchar(20)z规格型号IykindChar(IO),N类别IyunitChar(IO),N计量单位Ivaccountnumeric(5,0)N数量Ivoricenumeric(8z2)N单价I
12、waluenumeric(10z2)N金额IvdatedatetimeN领用时间IvdealDersonchar(10)NPK领用人Ivsavepersonchar(10)N保管人IvbaseChar(IO)zPK仓库Iymemotext备注33、规范化理论的应用在以上的逻辑分析中，我们不难得出这些关系转化都在第三范式中。在完成了数据库的逻辑设计之后，即可开始数据库的物理设计。基于以上数据库逻辑设计，考虑到程序设计的简易性及通用性，本物资管理信息系统采用的MicrosoftSQ1.Server2000数据库，并在其下创建了一个数据库和4个数据表。3.4.1建立概念数据库模型根据前面的概念和逻辑
13、模型设计，我们在PowerDesignerl2中建立ConceptualDataModel-I,如图3.4.1所示：0BlBtio三skip-Z*CluuractersCharactersCharactersCkarackrS(20)(20)(10)(10)GlarXterii114)ar;Kteru(8)rkna11rIspecrUciadrnlcuitrlcoutxIcpricerIcvaluerndaterlcdealpersorIcsavevpersoaxkgerlonerVarinbIecharactersKx7(100)VariablecharactersIbto&TimeChar
14、acters(20)VariablecharzbctexsVariablecreeraTt(ooo)-(2基ncurplusIdeatifir.lmidTenamTeSKVTelcxsdyen&itaccountrevalueebaseyemamoCaractuc(8)VariablecKaracterBVariablecKzuractersVariablecharactersVariabIecKaractersCUracters(500)Bner(10)VariableUharaCteXSedIdentifier.lRelaQiOThiP.6RelatiBshipoS(20)(10)(20)
15、(10)(30)Relationship.4图34.1概念数据可模型3.4.2将概念模型转换成物理模型概念模型建好后，在PowerDesigner12的Tools选项中选择GeneratenewPhysicalDataModel,将概念模型转换成物理模型，如图所示：r11sIirpltisKidcar7nzuneVaXUhar(20)KSPeUvaxchar(10)yekindVarVkar(20)TemdtVaXVlIar(10)TeaccoutCIUIr(500)KVaIuenumric(10)KlXISeVarUhar(30)VZidvaxch&r(l)KErDo11ur三DSJmllO
16、TSJMm1.iterialFUDSEJtt1.XTIaBSJbDKPIJSwid%aaamew三pecwzkxndv:1.rUkar(10)Ur(20)：1Iar(10)E1.TIOBSJftTERIA1.11saveXlaXoChar(I4)ridrla11*!ChaX(8)char(20)rIspecChar(20)rIchindchar(10)rulnuxitChar(10)rIciccoutVarVhaX(100)rkpricenumeric(100)rIcvalueVarCka1.r(100)rudatetiVarUkar(20)rhba三eVarUiar(3。)reidchar(
17、8)flrelsevarcar(30)wzidVarUhar(10)rkmemoIoarvarchar4(1，)ri,bidIyaameuarcImr(20)1F三PecCluu-(ZO)MNckar(10)IjmaitcharVarCIIAr(20)ITPrXSawmric(100)ITvaIUan11ric(1000)lrdatti11staHITnSe_PerwVKar(20)I7deaI-PeriolIViar(20)cur(IO)Ciar(20)7idchar(8)7eta三ev三rcha(30)wzidvach*r(10)rlmochar(1J)rlddUIIarVarckAr(3
18、0)l7men0textIOnrWUharFIJDSt_RE1.ATIOBS_EAVE图3.4.2物理数据库模型3.4.3生成数据库代码建好物理模型后，在Database选择GenerateDatabase,生成数据库代码，以下是建立数据库及其表格的代码(1)建数据库usemastergoifexists(select*fromdbo.Sysdatabaseswherename-MMS)dropdatabaseMMSGOcreatedatabaseMMSgouseMMSGo(2)建表ifexists(select*fromdbo.sysobjectswhereid-objected(N,dbo
19、.material)andOBJECTPROPERTY(id,N,IsUserTable,)=1)droptabledbo.materialGOifexists(select*fromdbo.sysobjectswhereid-ObjCCtJd(Ndb。.DnSaVCT)andOBJECTPROPERTY(id,N,IsUserTable,)=1)droptabledbo.msaveGOifexists(select*fromdbo.sysobjectswhereid=object-id(N,dbo1.msurplus,)andOBJECTPROPERTY(id,N,IsUserTable,)
20、二1)droptabledbo.msurplusGOifexists(select*fromdbo.sysobjectswhereid-objected(N,dbo.musel,)andOBJECTPROPERTY(id,N,IsUserTable,)=1)droptabledbo.museGOCREATETAB1.Edbo1.material(wzidchar(8)CO1.1.ATEChinese_PRC_CI_ASNOTNU1.1.,wznamechar(20)CO1.1.ATEChinesePRCCIASNOTNU1.1.,wzspecchar(20)CO1.1.ATEChinesePR
21、CCIASNOTNU1.1.,wzkindchar(10)CO1.1.ATEChinesePRCCIASNU1.1.,wzunitchar(10)CO1.1.ATEChinesePRCCIASNU1.1.)ONPRIMARYGOCREATETAB1.Edbo.msave(rknochar(14)CO1.1.ATEChinese_PRC_CI_ASNOTNU1.1.,rkidchar(8)CO1.1.ATEChinese_PRC_CI_ASNOTNU1.1.,rknamechar(20)CO1.1.ATEChinese_PRC_CI_ASNU1.1.,rkspecchar(20)CO1.1.AT
22、EChinese_PRC_CI_ASNU1.1.,rkkindchar(10)CO1.1.ATEChineSJPRCI1.ASNU1.1.,rkunitchar(10)CO1.1.ATEChinesePRCCI_ASNU1.1.,Erkaccountnumeric(5,0)NOTNU1.1.,rkpricenumeric(8,2)NOTNU1.1.,rkvaluenumeric(10,2)NOTNU1.1.,rkdatedatetimeNOTNU1.1.,rkdeal_personrksave_personrkbasecharrkmemotextchar(10)CO1.1.ATEChinese
23、_PRC_CI_ASNOTNU1.1.,char(10)CO1.1.ATEChinese_PRC_CI_ASNOTNU1.1.,(10)CO1.1.ATEChinese_PRC_CI_ASNU1.1.,CO1.1.ATEChinesePRCCIASNU1.1.)ONPRIMARYTEXTIMAGE_ONPRIMARYGOCREATETAB1.Edbo.msurplus(yeidchar(8)CO1.1.ATEChineSe_PRCe1.ASNOTNU1.1.,yenamechar(20)CO1.1.ATEChinese_PRC_CI_ASNOTNU1.1.,yespecchar(20)CO1.
24、1.ATEChinese_PRC_CI_ASNU1.1.,yekindchar(10)CO1.1.ATEChinese_PRC_CI.ASNU1.1.,yeunitchar(2)CO1.1.ATEChinese_PRC_CI_ASNU1.1.,Eyeaccountnumeric(5,0)NOTNU1.1.,yevaluenumeric(10,2)NOTNU1.1.,yebasechar(10)CO1.1.ATEChinese_PRC_CI_ASNOTNU1.1.,yememotextCO1.1.ATEChinese_PRC_CI_ASNU1.1.)ONPRIMARYTEXTIMGE-ONPRI
25、MARYGOCREATETAB1.Edbo1.muse(lynochar(14)CO1.1.ATEChinese_PRC_CI_ASNOTNU1.1.,lyidchar(8)CO1.1.ATEChinese_PRC_CI_ASNOTNU1.1.,IynameJlyspeclykindlyunitcharcharcharchar(20)(20)(10)CO1.1.ATECO1.1.ATECO1.1.ATEChinesePRCCIASChinesePRCCIASChinesePRCCIASNU1.1.,NU1.1.,NU1.1.,(2)CO1.1.ATEChinesePRCCI_ASNU1.1.,
26、Iyaccountnumeric(5,0)NOTNU1.1.,lypricenumeric(8,2)NU1.1.,lyvaluenumeric(10,2)NU1.1.,lydatedatetimeNOTNU1.1.,lyuse_personchar(10)CO1.1.ATEChinese_PRC_CI_ASNOTNU1.1.,lydeal_personchar(10)CO1.1.ATEChinese_PRC_CI_ASNOTNU1.1.,lybasechar(10)CO1.1.ATEChinesePRC.CI_ASNU1.1.,IymemotextCO1.1.ATEChinese_PRC_CI
27、_ASNU1.1.)ONPRIMARYTEXTIMAGE_ONPRIMARYGO3.4.4生成数据库打开MicrosoftSQ1.Server的查询分析器，输入以上代码，于是得到了我们需要的数据库MMS(物资管理系统)。第四章软件功能设计4.1、 系统功能分析系统开发的总体设计任务就是实现物质信息的系统化，规范化和自动化。系统功能分析是在系统开发总体任务的基础上进行的，本系统中需要的的主要功能有： 添加用户； 删除用户； 修改用户密码； 浏览物质信息； 添加物质信息； 删除物质信息 物质剩余信息查询；对上述各项功能进行集中、分块，按照结构化程序设计的要求，得到如图4.1所示的系统功能模块图。1
28、.A登陆模块物质基本信息管理浏览物质表添加物资基本信或删除物资基本信息-A修改物资基本信息浏览物资入库表物质管理系统物质入库信息管理添加物资入库信息删除物资基本信息修改物资基本信息I浏览物资余额表一,物质余额信息管理添加物资余额信息删除物资约信息修改物资余额信息浏览物资领用表物质领用信息管理-A添加物资领用信息制除物资领用信息帮助修改物资基本信息图4.1系统功能模块图4.2系统功能模块设计本系统的运行环境为MicrosoftVisualBasic6.04.2.1登录程序执行后点击进入系统按钮将弹出系统的登录界面，如下图所示:用数据库中存储的用户信息登录系统，如图421所示3tU)退出(X)图4
29、.2.1登录界面若用户输入的用户信息错误，会弹出警告，登录3次失败后系统自动退出4.2.2主界面登录成功后进入系统的主界面，如图4.2.2：通过菜单栏，用户可以参与数据的相关操作，如插入、修改、删除和统计等。图4.2.2主菜单4.2.3浏览物质信息通过各模块中的浏览物质信息，可以对物质的各种信息进行浏览，其中包括按表和按行浏览两种方式。如图4.2.32和4.2.33所示时对物质基本信息进行的两种浏览方式。物资肯理系统物资基本信息管理物资入库信息管理物资余额信息管理物资浏览物资基本僖息“按袅格浏览添加物资基本信息按行浏览删除物资基本信息修改物资基本信息图4.2.31主菜单上的浏览选项-02足粉记
30、_事板性03本04黑刷-0506笔蒸育甄:学习用品;学习用品;教室用品浮WS1学习用品.按表格浏览物资表IwzidwznmeWZSDecIwzkindwzunit图4.2.32按表格浏览物资表按行浏宽物资表图4.2.33按行浏览物资表其余的浏览操作与上述的操作类似，这里不再赘述。4.2.4添加物质信息每个关于物质信息是我模块都可以进行添加信息的操作，如图4.2.4是添加物质基本信息Si物费营理系统物资基本信息管理物资入库信息管理物资余额信息管里浏览物资基本信息添加物资基本信息删除物资基本信息修改物资基本信息4.2.41主菜单上的添加选项图4.2.42添加界面3图4.2.43添加信息物资基本信息
31、一添加帝甑计量单位f确定）图4.2.44添加成功提示其余的添加操作与上述的操作类似，这里不再赘述。4.2.5删除物质信息点击系统中的删除按钮，可对物质的各种信息进行删除，如对物质基本信息进行删除操作：（1）按物质编号删除点击删除菜单的子菜单，选择按物质编号删除，弹出删除删除信息的界面如图4.2.52,在其中输入或选择物质的编号,选择确定,将弹出警告提示,如图4.2.54所示。选择确定，系统给出删除成功的提示，如图4.2.55所示，如果选择取消,则弹出操作被撤销的提示，如图4.2.56所示就物资营理系统物资基本信息管理物资入库信息管理物资余领信息管理除物语余稷信息浏览物资基本僖息添加物资基本信息
32、删除物资基本信息I修改物资基本信息“按指定物资编号WH除口按指定物资名称跚除确定)退出Ia)14.2.51主界面的删除选项物资用号退出图4.2.53删除物资话选择3图4.2.55删除成功(2)按物质名称删除!除物咨金腹信且物资名称：13确定(Q)I应出(三)图4.2.57删除界面图图4.2.52删除界面图4.2.54删除警告图4.2.56删除被撤销4.2.58删除物质剧本第极孚球性钢黑记套水按物质名称删除与按物质编号删除类似，这里不再赘述。其余的物质的各种信息删除也与上面说讲的类似，这里就不再多说了4.2.6修改物质信息如果想要修改物质的各种信息，点击各个模块中的修改选项，将弹出当前的各种物质
33、信息，如图4.2.61是物资基本信息的修改选项，图4262所示是对物质基本信息所进行的修改操作:修改表.zid-02-03一M-05-一16.物资管理系统物资基本信息省理物资入库信息管理物资余额信息管理浏览物资基本信息添加物资基本信息删除物资基本信息修改物资基本信息图4.2.61主界面的修改选项记事本黑板刷铜至H；学习用品-娈拥品教室用品一学测晶寺窈品确定电)取消(C)图4.2.62修改物质信息修改完后，点击“确定”，于是修改就成功了。点击“取消”，则操作被撤销，点击退出，则返回主界面。其余的物质信息的修改操作也与上面说讲的类似，这里就不再多说了4. 2.7余额统计通过主界面的余额统计选项，可
34、对各种物质的余额进行统计探讨物资余嵌信8谙选择或输入物资：图4.2.71主界面的余额统计选项图4.2.72统计物质余额图4.2.73统计余额4. 2.8系统帮助用户点击菜单栏上的“关于“，可以查询到系统的简介和使用说明；息管理余额统计about图4.2.8关于系统第五章设计心得回顾该系统从选题，到调研、需求分析、设计、编码实现、测试等，这系列连贯的过程，感想颇多，收获也很多。大致的总结几点，如下：1 .设计开发一个软件，首先要了解所涉及到行业的现状，一定要想办法进行行业调研，从不同途径获取该行业的专业知识。合理安排系统设计开发时间，进行实际开发会发现需求分析与系统设计占主要的时间，如果前面的工
35、作做好了，编码实现占用的时间很短。所以我们要借助软件工程的思想一一对软件开发过程进行控制。2 .在开发一个系统时，前期的分析准备工作非常的重要。对于系统的需求要明确，这样才能做到有的放矢。特别是对于系统中数据的存储和重要算法的设计，设计的不好会出现大量的冗余，不仅浪费存储空间，还影响查询效率。3 .在设计的初期，对一个功能模块的设计，要想出两种或两种以上方案，这样可以进行比较，从而获得更佳的设计方案，设计开发过程中一定要吸取经验教训，避免返工。尤其是一些重要算法或功能。在对具体实现功能模块进行编程时.，要养成良好的加注释的习惯，这样的话不仅能理清思路，而且可以为以后的调试程序带来很大的方便。由
36、于本人即本人所在的小组是初次开发系统，在知识、经验方面都存在着不足。另外，在整个开发的过程中，时间也比较仓促。因此，该系统还有许多不尽如人意的地方，比如联机文档比较少，用户界面不够美观，出错处理不够，系统维护功能不全，对于数据的一致性的问题也没有完全解决等多方面问题，这些都有待工作中进一步改善。谨请老师提出宝贵的意见。参考文献11王珊，萨师母.数据库系统概论M.第四版.北京：高等教育出版社，20062 易钢，刘少华，刘艳松.新编ViSUaIBaSiC程序设计教程M.长沙国防科技大学出版社，20093 陈文军，陈晓铭.VisualBasic.NET数据库编程M.北京：清华大学出版社，20054袁
37、福庆.VisualBasic程序设计标准教程M.上海：上海科学普及出版社，2007附录工程模块设计代码Mycon用于数据库连接MyRS用于保存记录集MyRSl用于保存记录集MyRS2用于保存记录集PublicMyconAsNewADODB.ConnectionPublicMyRsAsNewADODB.RecordsetPublicMyRslAsNewADODB.RecordsetPublicMyRs2AsNewADODB.Recordset登录界面设计代码DimiAsInteger变量i用于累计连接的错误次数PrivateSubCommand1_C1ick()确定IfTrim(Text1.Te
38、xt)=Then如果用户名为空，则给出提示MsgBox请输入用户名，VbExclamation,注意Textl.SetFocus将焦点定位在用户名文本框中ElseOnErrorGoToErrorHandler出错则转向ErrorHandler处执行Mycon.ConnectionString=Driver=SQ1.Server;Server=PC-201006022034;DatabaSe=MMS”Mycon.Open按ConnectionString的设置打开指定的连接UnloadMe关闭当前窗口Form3.Show显示系统的主菜单窗口Form3ExitSubErrorHandler:i=i
39、+1Ifi=2ThenEndIf错误处理程序入口连接错误，变量i累加1如果连接错误次数不超过2两次MsgBox连接失败，请重试用户名或密码，VbEXCIamatiOr1,注意Textl.SetFocusElse如果连接错误次数超过2两次MsgBox连接失败次数过多，你不能使用本系统，VbEXCIamatiOn,注End结束系统的运行EndIfEndSub退出按钮回到主封面PrivateSubCommand2_Click()UnloadMeEndSubPrivateSubImagel_Click()EndSubPrivateSubForm_1.oad()EndSubPrivateSubTextl
40、_GotFocus()用户名框获得焦点时,选中Textl中拓文本Textl.SelStart=OTextl.Sel1.ength=1.en(Textl.Text)EndSubPrivateSubTextl_KeyUp(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13Then如果在用户名框中输入了回车键,则Text2.SetFocus将焦点切换到密码框EndIfEndSubPrivateSubText2_GotFocus()密码框获得焦点时选中Text2中M文本Text2.SelStart=0Text2.Sel1.ength=1.en(Text2.Text
41、)EndSubPrivateSubText2_KeyUp(KeyCodeAsInteger,ShiftAsInteger)IfKeyCode=13Then在密码框输入完密码并按下了回车键IfTrim(Textl.Text)=Then如果用户名为空，则给出提示MsgBox请输入用户名，VbEXCIalnation,注意Text1.SetFocus将焦点定位在用户名文本框中ElseOnErrorGoToErrorHandler出错则转向ErrorHandler处执行Mycon.ConnectionString=,Driver=SQ1.Server;Server=PC-201006022034;DatabaSe=MMS”Mycon.OpenUnloadMeForm3.Show显示系统的主菜单窗口Form3EndIfExitSubErrorHandler:,错误处理程序入口i=i1,连接错误，变量i累加1Ifi=2ThenMSgBoX连接失败，请重试用户名或密码，VbEXCIamation,注意Textl.SetFocusElseMsgBox连接失败次数过多，你不能使用本系统，VbExclamation,注意EndEndIfEndIfEndSub主界面设计部分代码PrivateSub
