1、VB超市管理系统毕业设计论文 作者: 日期:2 个人收集整理 勿做商业用途超市管理系统摘 要由于计算机信息化的快速发展,即使是很小的超市也需要实现超市的计算机系统管理,它有着广泛的市场前景,而大型的超市管理系统功能由于过于强大而造成的操作繁琐降低了小超市的工作效率。所以需要针对于中小超市的非分布式的超市管理系统。系统大致分为六个功能模块。系统的每一个功能模块都包含了多个功能.模块具体为:登录模块:登录模块主要进行用户权限的验证,只有具备一定权限的人才能登录到系统,这样才能保证系统的安全; 商品信息模块:商品信息模块主要是管理具体的商品,通过该模块能够查看每种产品的具体信息; 供应商管理模块:供
2、应商管理管理了供应商的信息; 商品销售模块:商品销售结算是系统的前台销售模块,一般收银员都是在这个界面操作以实现对顾客的购买商品信息的登记、收款等业务; 入库模块: 入库模块主要是将新采购的商品登记入库。系统用了VB语言和SQL Server 2000作为开发工具。采用C/S结构,实现对整个系统的信息化管理。这种系统优势在于系统比较简单,但功能强大,扩展性能也比较好,完全能够处理一般超市的日常任务。 关键词 数据库; 超市管理; 信息系统Supermarket Management SystemAbstractWith the development of computer informati
3、onization, even if the very small supermarket also needs the supermarket computer system management, it has the widespread market prospect, but the largescale supermarket management system management system function was too formidable causes the operation to cut the small supermarket working efficie
4、ncy tediously Therefore, the need for small and mediumsized supermarkets in the non-distributed supermarket management systemSystem is broadly divided into six functional modules System functional modules each contain a number of features. Specific modules for: Login modules: the main user login mod
5、ule to verify the permissions, only those who possess the necessary permissions to log on to the system, so as to ensure the safety of the system; Commodity information modules: merchandise management information module is specific commodities, the adoption of the module be able to view specific inf
6、ormation for each product; Supplier management modules: the management of supplier management information suppliers; goods sales modules: sales of future settlement is the sale of modules, general cashier operation in this interface in order to achieve the purchase of goods to the customer registrat
7、ion information, receivables and other business; Storage modules: the main storage module is to register the new storage of goods procurement。个人收集整理,勿做商业用途本文为互联网收集,请勿用作商业用途The system used the VB language and SQL Server 2000 as a development tool The use of C / S structure, the realization of the ent
8、ire information management system Advantage of the system such a system is relatively simple, but powerful, the expansion of better performance, fully able to handle day-today tasks of the general storeKey words Database; Supermarket management; Information system目 录摘 要ISupermarket Management System
9、IIAbstractII目 录1第1章 绪 论31.1 开发超市管理系统的背景31.2 开发超市管理系统的意义3第2章 可行性研究42。1 引言42.2 市场调查42。3 技术可行性42.3。1 VB42。3.2 数据库的选择62。4 经济可行性72.5 操作可行性8第3章 需求分析93.1 需求分析的作用93。2 需求的任务93.3 业务流程图103。4 数据流图123。5 数据字典14第4章 总体设计174.1 总体设计引言174.2 系统总体设计方案174。3 系统实现的主要功能174。3。1 系统功能介绍174。3。2 系统的功能模块图19第5章 数据库设计205.1 数据库设计引言2
10、05。2 概念设计205。3 逻辑设计22第6章 详细设计256.1 详细设计的引言256.2 系统的登录设计256.3 系统主界面的设计286.4 供应商管理模块306。5 商品信息管理模块326.6 商品分类管理346。7 商品入库管理346。8 前台销售模块356.9 权限管理模块36第7章 软件测试387.1 软件测试的概念387。2 软件测试的策略387.3 软件测试的过程387。3。1单元测试387。3。2集成测试407.3。3确认测试417。3.4系统测试41第8章 系统维护42结 论43致 谢44参考文献44第1章 绪 论1.1 开发超市管理系统的背景Internet技术的推广
11、和信息高速公路的建立,使IT产业在市场竞争中越发显示出其独特的优势,步入信息化时代,有巨大的数据信息等待加工处理和传输,这使得对数据库的进一步开发和利用显得尤为迫切。而作为国内市场的一些中小型超市,它们在信息化过程中的步伐要落后于大中型超市,而对于这些企业的资源管理,信息的存储和处理也显得迫切需要,要适应市场竞争,就需要有高效的信息处理方式和管理方法,因此加快超市的信息化进程是必可少的。1.2 开发超市管理系统的意义小超市形态本身具有种种特点,在原先状况下不能有效地管理每种商品,收款结算速度慢,容易出现营业差错,不宜进行商品调价,盘点效率低等,而且在超市日常管理中,商品的进、销、存等决策以经验
12、为主,缺乏实时分析功能,管理人员对及时传递资料的要求始终得不到满足.小超市形态的高速发展,其经营管理也变得愈加复杂,日常所需要处理的数据量也逐渐增大,商业运转的中间环节也越来越多,原始的人工管理已无法应对这复杂的市场。为此,超市管理系统便显得尤为重要了,依靠现代化的计算机信息处理技术来管理超市,从而节省了大量的人力、物力,改善了员工的工作条件,减轻了劳动强度,并且能够快速反映出商品的进、销、存等状况和各种反馈信息分析,使管理人员快速对市场的变化做出相应的决策,加快超市经营管理效率。第2章 可行性研究2.1 引言可行性研究是一次压缩简化的系统分析和设计的过程,是在较高层次上以较抽象的方式进行的系
13、统分析和设计的过程。而在系统开发前期对系统进行可行性分析是十分必要的一个环节,这对于保证资源的合理使用,避免浪费是十分必要的,也是项目一旦开始以后能顺利进行的必要保证。可行性是指在当前情况下是否从技术、管理、社会等方面进行分析和研究,以避免投资失误,保证系统的开发成功. 2.2 市场调查可行性分析的基础是对系统的市场调查.市场调查主要由两部分组成:一般调查和信息需求调查.一般调查包括找出类似的超市,对这些超市的一般情况进行了分析,并了解整个超市运作情况,以便充分发挥系统的优势。信息需求的初步调查是通过查询书籍,网上浏览相关信息所得.第二步的深入调查则是真正进去驰锐超市进行实习,以了解书本上所不
14、知道的相关的第一手资料,以开发出真正的具有实用性的系统2.3 技术可行性2.3.1 VBVB语言即Visual Basic。Visual。意即可视的、可见的,指的是开发像Windows操作系统的图形用户界面(Graphic User Interface,GUI)的方法,它不需要编写大量代码去描述界面元素的外观和位置,只要把预先建立好的对象拖放到屏幕上相应的位置即可。Basic 实际上是一个短语的缩写,这个短语就是 Beginners all_purpose symbolic instruction code ,其中文意思为“初始者通用符号指令代码语言”。Visual Basic 是一种可视化的
15、、面向对象和采用事件驱动方式的结构化高级程序设计语言,可用于开发 Windows 环境下的各类应用程序。它简单易学、效率高,且功能强大可以与 Windows 专业开发工具SDK相媲美.在Visual Basic环境下,利用事件驱动的编程机制、新颖易用的可视化设计工具,使用Windows内部的广泛应用程序接口(API)函数,动态链接库(DLL)、对象的链接与嵌入(OLE)、开放式数据连接(ODBC)等技术,可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统。随着版本的提高,Visual Basic的功能也越来越强。Visual Basic 60作为Visual Stud
16、io 60的一员发布,证明微软正在改变Visual Basic的产品定位,他想让Visual Basic成为企业级快速开发的利器。Visual Basic 60在数据访问方面有了很大的改进,新的ADO组件让对大量数据快速访问成为可能。数据环境和新的报表功能也让数据开发有了全新的体验.Visual Basic 借助COM/COM+强大的功能,可以开发具有N层结构的分布式应用程序。同时,Visual Basic还可以在IIS上开发性能超群的Web应用程序。Visual Basic 60在语言方面和IDE方面的改进都不大,但是许多新增的组件成为Visual Basic开发人员手中的利器,如File
17、System Object等。新的字符串函数Split和Replace等也给Visual Basic的程序员带来很大方便。 总之Visual Basic 60已经是非常成熟稳定的开发系统,能让企业快速建立多层的系统以及Web应用程序,成为当前 Windows 上最流行的 Visual Basic 版本。 因此选择Visual Basic 60作为开发驰锐超市管理系统的语言.2.3.2 数据库的选择人们在总结信息资源开发、管理和服务的各种手段时,认为最有效的是数据库技术.数据库的应用已越来越广泛,从小型的单项事务处理系统到大型的信息系统,在都用先进的数据库技术来保持系统数据的整体性、完整性和共享
18、性。数据库技术所研究的问题是如何科学的组织和存储数据,如何高效的获取和处理数据。通常,数据库所包含的大量信息都以表的形式存储。数据库包含多个表,有的独立的,有的表相互之间存在着一定关系。设计数据库就是将大量信息经过分析和归纳,分储互多个表中,确定表之间的相互关系,使表内的信息完整的反映主题。为了数据库的建立、使用和维护,在操作系统的基础上,配置一定的软件,对数据库进行统一的管理和控制,即数据库管理管理系统DBMS。数据库管理系统DBMS具有数据库定义功能,数据存取功能以及对数据库运行的管理和数据库的建立和维护功能。Microsoft SQL Server 2000 是一种功能强大的关系型数据库
19、管理系统。下面将对 Microsoft SQL Server 2000 的特点和性能进行介绍:Microsoft SQL Server 2000 是下一代的数据库和数据分离系统,可以帮助用户建立他们的 Internet 商务体系。Microsoft SQL Server 2000 已经在性能和可扩展性方面确立了世界领先的地位,是一套完全的数据库和数据分析解决方案,使用户可以快速创建下一代的可扩展电子商务和数据仓库解决方案。Microsoft SQL Server 2000 具有高度的扩展性和高可靠性。Microsoft SQL Server 2000使用了工业界最先进的数据结构,能够为要求最苛
20、刻的企业应用提供高度的可扩展性和高可靠性。Microsoft SQL Server 2000在许多工业基准测试中的性能都创立了新的世界纪录,包括事务处理性能委员会的 TPC-C 基准,它击败了运行于任何硬件或操作系统环境下的同类数据库产品。Microsoft SQL Server 2000 的性能还在 Windows 平台下为 SAP R/3 Sales and Distribution(SD) 标准应用程序据基准创立了新的世界纪录。虽然 Microsoft SQL Server 2000 被设计用来充分利用最近和将来的高端对称多处理器(SMP)技术,它还是可以把数据库的工作负荷分布到普通的服
21、务器集群上。这样可以实现高度的可扩展性,即只需要向数据库集群中增加新的普通服务器即可,而不用把老系统替换为更大、更昂贵的新机器。Microsoft SQL Server 2000 引入了一个新的特性,被称为分布式数据库分区视图(Distributed Partitioned Views)它可以把工作负荷划分到多个独立的SQL Server 服务器上去,从而为实施电子商务的客户提供了无限制的可扩展性。Microsoft SQL Server 2000 直接支持最新的、高速的系统区域网络(SAN)技术。Microsoft SQL Server 2000 在它的管理控制台和安装向导中紧密集成了4节点
22、故障恢复技术,从而保证了高度的系统可用性。Microsoft SQL Server 2000 还引用了索引视图技术,运用该技术可以为关系型数据库设计出功能的报表应用程序。文档为个人收集整理,来源于网络个人收集整理,勿做商业用途Microsoft SQL Server 2000 可以进行最快速的应用程序开发。微软提供了许多技术和工具,作为数据库系统的标准集成组件.而且通过巧妙的设计以及自动调整、自动管理特性, Microsoft SQL Server 2000 是客户可以更快、更容易的享受所有这些最先进的分析技术所带来的好处,能够快书提交应用,从而赢得竞争上的优势。微软在开发数据库服务器自动调整
23、和自动管理技术方面一直在工业界处于领先地位。这种技术使客户可以集中精力处理商业战略上的问题,而不是去细微调整数据库服务器的各项参数。Microsoft SQL Server 2000 可以为最新的硬件进行优化,包括大内存、超高速磁盘子系统以及 SAN 等,从而扩展了这项功能. Microsoft SQL Server 2000 与 Windows 2000 的活动目录服务的紧密集成允许集中管理功能。 Microsoft SQL Server 2000 和其他企业资源,从而极大地简化了大型组织中的体统管理任务.2.4 经济可行性超市管理系统,其前期的投入比较小,主要是系统的设计费用:其中包括软件
24、开发费用、管理和维护费等。而后续的投入相对较小,很长时间内都不会需要进一步投资,管理和维护费用也很少,而系统实际能够起到的作用会远远大于投入的开发费用,相信会有十分可观的前景。因此这个系统很有开发价值。2.5 操作可行性是指驰锐超市管理系统在以后的超市日常运行中实际所起到的作用。超市可以把日常的管理交给这个系统来完成。不但能快速的完成很多费时费力的工作,还很少的出问题,将它和原先的人力管理相结合,会取得很好的效果。利用系统和数据库,统一记录商品,记录和计算销售交易信息,产生货物进货管理,减少员工工作量和帮助管理人员规范化管理。第3章 需求分析3.1 需求分析的作用软件需求分析就是把软件计划期间
25、建立的软件可行性分析求精和细化,分析各种可能的解法,并且分配给各个软件元素。需求分析是软件定义阶段中的最后一步,是确定系统必须完成哪些工作,也就是对目标系统提出完整、准确、清晰、具体的要求。需求分析是介于系统分析和软件设计阶段之间的重要桥梁.一方面,需求分析以系统规格说明和项目规划为分析活动的基本出发点,并从软件角度对它们进行检查与调整;另一方面,需求规格说明又是软件设计、实现、测试直至维护的主要基础.良好的分析活动有助于避免或尽早剔除早期错误,从而提高软件生产率,降低开发成本,改进软件质量。3.2 需求的任务软件需求分析的任务是:深入描述软件的功能和性能,确定软件设计的约束和软件同其他系统元
26、素的接口细节,定义软件的其他有效性需求,借助于当前系统的逻辑模型导出目标系统逻辑模型,解决目标系统“做什么的问题.需求提出主要集中于描述系统目的。需求提出和分析仅仅集中在使用者对系统的观点上。用户、开发人员和用户确定一个问题领域,并定义一个描述该问题的系统。这样的定义称作系统规格说明,并且它在用户和开发人员之间充当合同。在问题分析阶段分析人员的主要任务是:对用户的需求进行鉴别、综合和建模,清除用户需求的模糊性、歧义性和不一致性,分析系统的数据要求,为原始问题及目标软件建立逻辑模型。分析人员要将对原始问题的理解与软件开发经验结合起来,以便发现哪些要求是由于用户的片面性或短期行为所导致的不合理要求
27、,哪些是用户尚未提出但具有真正价值的潜在需求。在需求评审阶段,分析人员要在用户和软件设计人员的配合下对自己生成的需求规格说明和初步的用户手册进行复核,以确保软件需求的完整、准确、清晰、具体,并使用户和软件设计人员对需求规格说明和初步的用户手册的理解达成一致。一旦发现遗漏或模糊点,必须尽快更正,再行检查。驰锐超市管理系统需要满足几个方面的需求,一是商品销售结算的需求,这是超市的第一位的;二是供应商管理的需求,记录相关的信息。三是入库和管理库存的需求。四是登录权限的需求,给予不同员工不同的权限.3.3 业务流程图系统流程图是概括地描述物理系统的传统工具。它的基本思想是用图形符号以黑盒子形式描绘组成
28、系统的每一个部件。系统流程图表达的是数据在系统各部件之间流动的情况.驰锐超市管理系统的系统流动分为两个部分,分别为:管理员系统流程图如图3。1所示前台流程图如图3.2所示。管理员登录供应商管理商品分类商品管理入库管理权限管理前台销售添加供应商编辑供应商删除供应商添加商品编辑商品删除商品添加权限入库操作编辑权限安全退出图3。1 管理员业务流程图前台收银员登录查看商品收银找零入库编辑商品更新库存退出图3.2 前台收银员业务流程图3.4 数据流图数据流图是一种图形化技术,它描绘信息流和数据从输入移动到输出的过程中所经过的变换。在数据流图中没有任何的物理部件,它只是描绘数据在软件中流动和被处理的逻辑过
29、程。因为数据流图是逻辑系统的图形表示,即使不是专业的计算机技术人员也容易理解,所以是极好的通信工具。此外设计数据流图纸需要考虑系统必须完成的基本逻辑功能,完全不需要考虑如何具体地实现这些功能。后台数据流图如图3。3所示,前台数据流图如图3.4所示。管理员图3.3 后台数据流图A-3供应商管理A-4商品信息管理A-7权限管理A-6入库管理A-5前台销售管理A-2 登录B-3.1 显示供应商信息B-4.1 显示商品信息B-5.1 显示商品销售信息B-6.1 显示库存信息B-7.1 显示用户权限信息添加修改删除收款结算修改权限添加修改删除添加退出收银员A-3供应商管理A-4商品管理A-6入库管理A-
30、5前台销售管理A-2 登录B-3.1 查看供应商信息B-4.1 显示商品信息B-5.1 显示商品销售信息B-6.1 显示库存信息查看收款结算找零添加修改添加退出图3。4 前台数据流图3.5 数据字典数据字典是关于数据信息的集合,也就是对数据流图中包含的所有元素定义的集合。任何字典最主要的用途都是供人查阅不了解的条目的解释,数据字典的作用也正是在软件分析和设计过程中给人提供关于数据的描述信息.数据流图和数据字典共同构成系统的逻辑模型,没有数据字典数据流图就不严格,然而没有数据流图数据字典也难于发挥作用。只有数据流图和对数据流图精确的定义放在一起,才能共同构成系统的规格说明. 由于元素太多我们只对
31、其中主要的元素定义说明。数据字典的主要用途是作为分子阶段的主要工具。在数据字典中建立一组严密一致的定义很有助于改进分析员和用户之间的通信,因此将消除很多可能的误解。数据字典包含的每个数据元素的控制信息是很有价值的。因为列出了使用一个给定的数据元素所有程序,很容易估计改变一个元素将产生的影响,并且能对所有受影响的程序或模块做出相应改变。由于暂时还没有自动的数据字典处理程序,我们采用卡片形式书写数据字典,每张卡片上保存描述一个数据元素的信息。这种做法较好的实现了上述要求,特别是更新修改起来很方便,能够单独处理每个数据元素的信息。每张卡片上包含的信息有:名字,别名,描述,定义,位置。以下是数据流图中
32、主要元素的数据字典卡片:名称:供应商信息别名:描述:记录供应商的具体的信息,方便管理员和仓库管理员与之联系。定义:供应商信息=供应商代码+供应商名称+供应商说明位置:系统数据库供应商信息名称:商品信息别名:描述:记录商品的具体信息,以便管理员和收银员查看。定义:商品信息=商品代码+商品名称+商品库存+商品单价+商品销售数量+商品供货商位置:系统数据库商品信息名字:商品分类信息别名:描述:主要记录商品的分类信息。定义:商品分类信息=商品类代码+商品的具体分类位置:系统数据库商品分类信息名称:管理员信息别名:描述:记录管理员的一些具体的情况,以便管理员的密码和等级修改。定义:管理员信息=管理员帐号
33、+密码+等级+生日位置:系统数据库管理员信息管理员信息名称:入库信息别名:描述:记录商品入库的具体情况,以便管理者和销售者即使了解到具体情况。定义:入库信息=入库商品名称+入库商品代码+入库商品数量+库存数量+入库价钱位置:系统数据库入库信息第4章 系统设计4.1 总体设计总体设计就是决定“怎么做”的时候.总体设计的基本目的就是回答“概括地说,系统应该如何实现?”这个问题,总体设计将划分组成系统的物理元素程序、文件、数据库、人工过程和文档等,但是每个物理元素仍然处于黑盒子级,具体的以后设计。总体设计的另一项重要任务是设计软件的结构,也就是说要确定系统中每个程序是由哪些模块组成,以及这些模块之间
34、的关系。4.2 系统总体设计方案本系统采用了C/S模型。系统前台采用VB语言来设计,访问数据库服务器;后台采用Microsoft公司的SQL Server 2000。SQL Server2000开发后台数据库,用于提供数据服务。SQL Server 2000是一种典型关系型数据库管理系统,该系统具有数据一致性好,完整性强,安全性高的优点,系统采用结构化设计方法,按超市实际工作内容来确定所需,将整个系统作为一个大模块自顶向下,以模块化结构设计技术进行模块分解,然后再自底向上,按照系统的结构将整个模块进行组合,最终实现驰锐超市管理系统的开发。4.3 系统的功能设计4.3.1 系统主要功能系统大致分
35、为六个功能模块.系统的每一个功能模块都包含了多个功能。功能权限实现了对这些功能点的权限控制:登录模块 商品信息模块 供应商管理模块 商品销售模块 入库模块 权限管理模块。登录模块:登录模块主要进行用户权限的验证,只有具备一定权限的人才能登录到系统,这样才能保证系统的安全。同时不同的用户有不同的权限.管理员在权限管理模块中可以制定其他人的权限。商品信息模块:该模块主要是管理具体的商品,通过该模块能够查看每种产品的具体信息。供应商管理模块:该模块管理了供应商的信息,以方便统计进货。商品销售模块:这模块是系统的前台销售模块,一般收银员都是在这个界面操作以实现对顾客的购买商品信息的登记 收款等业务.入
36、库模块:该模块主要是将新采购的商品登记入库,使其有存货信息。权限管理模块:该模块是任何一个系统所必须的.本系统采用了多级权限管理,可以为每一个用户指定一项或多项的功能。4.3.2 系统的功能结构图超市管理系统入库管理模块权限管理模块商品销售模块供应商管理模块商品信息模块登录管理模块入库分类管理权限管理设置商品前台销售供应商的操作修改商品信息删除商品信息新增商品信息系统主页面图4.1系统的功能结构图第5章 数据库设计5.1 数据库设计引言数据库设计是建立数据库及应用系统的技术,是信息系统开发和建设中的核心技术,具体说,数据库设计是指对于一个给定的应用环境,构造最优的数据库模式,建立数据库及应用系
37、统,使之能够有效地存储数据,满足各种用户的要求。驰锐超市管理系统的数据库设计分为下面的几个步骤:5.2 概念设计概念结构设计是整个数据库设计的关键,它能通过对需求进行综合,归纳与抽象,形成一个独立于具体DBMS的概念模型,既ER图如图5.1所示。管理员用户名用户密码用户等级图5.1 管理员实体与其属性商品信息编码名称单价分类库存销售图5。2 商品信息的ER图 供应商编码名称说明图5。3供应商实体的ER图仓库内的商品分类码分类编码名称数量图5.4仓库的ER图图5.5 各个实体之间的联系图5.3 逻辑设计逻辑结构是把概念结构转换为某个DBMS所支持的数据模型,并对其进行优化。超市管理系统的数据库建
38、立了以下的一些表:表5。1 商品分类表(Category)注释:id(分类id)、CatCode(分类编码)、CatDes(分类说明)。表5.2商品信息表(ProdStocks)注释: ProdDes(商品分类)、ProdCode(商品代码)、GenericName(商品名称)、CatCode(商品分类码)、Quan(商品库存)、Reorder(商品销售)、SellingPrice(商品售价)、UnitCost(商品进价)PDate(上货日期)、Picture(商品图片)、id(商品id).表5。3 销售信息表(StocksHistory)注释:acqProdCode(编码)、acqPrice
39、(销售价钱)、acqDate(销售日期)、id(销售id)。表5.4 供应商信息表(Suppliers)注释:SupCode(供应商编码)、SupDes(供应商商品)、SupName(供应商名称)、supno(供应商电话)。表5。5 登录权限表(UsersPassword)注释: user-name(登录名)、user-password(登录密码)、userbirthdate(用户生日)、usertype(登录类型)、user-allow- X X(用户被给予某项权利)、userpicture(用户图片)、id(用户id)。第6章 系统实现6.1 引言详细设计的根本目标是确定应该怎样具体地实现
40、所要求的系统,也就是说,经过这个阶段的设计工作,应该的出对目标系统的精确描述,从而在编码阶段可以把这个描述直接翻译成用某个设计的语言书写的程序。详细设计的任务不是具体的编写程序,而是要设计出程序的“蓝图,以后可根据这个蓝图写出实际的程序代码.详细设计的目标不仅仅是逻辑上正确地实现每个模块的功能,更重要的是设计出的处理过程应该尽可能简明易懂。本系统所包括几大模块:登录模块 商品信息模块 供应商管理模块 商品销售模块 入库模块 权限管理模块。6.2 系统登录为了提高软件操作安全性,用户进入系统前,需进行身份验证,通过此窗体输入个人信息以验证身份。登录界面如图61所示。如果用户名和密码都正确,单击登
41、录按钮,则进入系统,如果输入错误,则会提示密码错误,继续输入,如果连续3次错误,则会退出系统。图6.1登录界面如果输入错误则弹出如下对话框图62 登录错误界面实现功能的部分代码:登录代码如下: Private Sub cmdOk_Click() Dim strs As String If Get_User(txtUserName, txtPassword) Then MeHide frmMainShow Today = Now frmMainStatusMessage = 当前用户: + txtUserName + _ ” + Format(Today, ”dddd ) + ” ” + For
42、mat(Today, yyyymmdd”) frmMainMenuListSetFocus Else ctr = ctr + 1 If ctr = 4 Then End Else Call MessageBox(frmLogin, 非法用户! 请重试 你还剩 + str(4 ctr) + 机会, 0) SendKeys Home+End End If End IfEnd SubPrivate Sub cmdOk_MouseDown(Button As Integer, Shift As Integer, X As Single, Y As Single) Call MacButton(” 确定
43、”, cmdOk, 0, 0, 73, 50, Source, 74, 0, 1)End SubPrivate Sub cmdOk_MouseUp(Button As Integer, Shift As Integer, X As Single, Y As Single) Call MacButton(” 确定”, cmdOk, 0, 0, 73, 50, Source, 0, 0, 1)End SubPrivate Sub Form_Load() On Error Resume Next Dim Thwnd As Long Dim RetValue RetValue = ChangeRes(800, 600, 32) Call CreateMacOSTitleBar(titleBar, ” 系统登录 ”)