基于VB的洗浴中心管理系统设计与实现毕业论文终稿.doc

基于VB的洗浴中心管理系统设计与实现
学士学位论文作者声明
本人声明：本人呈交的学位论文是本人在导师指导下取得的研究成果。对前人及其他人员对本文的启发和贡献已在论文中作出了明确的声明，并表示了谢意。论文中除了特别加以标注和致谢的地方外，不包含其他人和其它机构已经发表或者撰写过的研究成果。
本人同意学校根据《中华人民共和国学位条例暂行实施办法》等有关规定保留本人学位论文并向国家有关部门或资料库送交论文或者电子版，允许论文被查阅和借阅；本人授权枣庄学院可以将本人学位论文的全部或者部分内容编入有关数据库进行检索，可以采用影印、缩印或者其它复制手段和汇编学位论文（保密论文在解密后应遵守此规定）。

作者签名： 日期： 年 月 日

摘 要
本文论述了洗浴管理信息系统开发的全过程。从分析洗浴流程的基本情况入手，进行系统的可行性分析，通过分析日常业务，了解洗浴管理的特点和存在的问题，在此基础上，进行详细的系统分析，得出系统功能结构图，再通过系统设计，系统实施等环节，最终开发出能够满足洗浴业务需要的洗浴管理信息系统。
经过实际的需求分析，采用VisualBasic6.0作为开发工具而开发出来的洗浴信息管理系统。整个系统从符合操作简便、界面友好、灵活、实用、安全的要求出发，该洗浴管理信息系统的功能主要突出服务项目、包房信息、箱包管理以及收银结账管理。经过实际测试证明，本文所设计的洗浴中心信息管理系统可以用于洗浴信息管理方面的需要。
论文主要介绍了本课题的选题背景，课题来源，所要完成的功能和开发的全过程。重点的说明了系统设计的重点、设计思想、数据库的设计和系统的解决方案。

【关键词】VisualBasic6.0;SQL Server2000; 洗浴管理系统; 查询; 结算

Abstract
This paper discusses the management information system bathing the entire process. From the analysis of the basic bath, the authors conducted the feasibility analysis, analysis of day-to-day operations. Bath management to understand the characteristics and the problems on this basis, detailed systems analysis, Then the system functional structure, and through the system design, system implementation, etc., eventually developed to meet the operational requirements of the bath bathing management information systems.
After the actual demand analysis using VisualBasic6.0 as developed as bathing information management system EC. With the entire system from the simple、friendly interface、flexible、practical and safety requirements. The Bath management information systems highlight the main function of services, cabins information, luggage management and the closure of the cash register management. After test results, In this paper, the bath center management information system can be used for bathing information management needs.
This is on the topic of the washing that background, the task sources, to be accomplished by the development and function of the whole process Note the emphasis of the system design focus, design, database design and system solutions.

【Key words】VisualBasic6.0;SQL Server2000; bathroom management system; inquiries; settlement

目 录
第1章 绪论 1
1.1引言 1
1.1.1洗浴中心管理系统的研究背景 1
1.1.2国内外研究现状 1
1.1.3洗浴中心管理系统的研究目的与意义 2
1.2论文结构 2
第2章 系统开发技术介绍 4
2.1 VisualBasic6.0编程语言 4
2.1.1 VisualBasic6.0的简介 4
2.1.2 VisualBasic6.0的特点 4
2.2 ADO技术 5
2.2.1 ADO特点概述 5
2.2.2 ADO 的对象 6
2.3 SQLServer2000数据库 7
2.3.1 SQLServer2000的简介 7
2.3.2 SQL Server2000 的特性包括 7
2.4 应用平台配置 8
第3章 系统总体设计 9
3.1需求分析 9
3.1.1用户需求分析 9
3.1.2系统概述 9
3.2系统功能设计 10
3.3数据库结构设计 10
3.3.1数据库设计原则 10
3.3.2洗浴中心管理系统的实体-联系模型 11
3.3.3系统数据库设计 11
第4章 系统的实现 16
4.1数据库连接功能 16
4.2系统登录窗体和主界面 16
4.3总台服务管理 19
4.4结账收银管理 25
4.5月结算管理 26
第5章 总结 29
参考文献 30
致 谢 31

第1章 绪论
1.1引言
1.1.1洗浴中心管理系统的研究背景
随着人民生活水平的不断提高，餐饮、酒吧、洗浴等消费产业也得到迅猛发展，但由于洗浴行业具有服务多样、价格多变、折扣灵活以及报表复杂等特点，并且随着消费业务量的不断增大，内部人员的增加，靠以往手工的管理手段进行管理，已不能适应企业的发展。这就迫切需要一个能紧密配合企业进行数据管理、决策分析的现金管理方式，把科学的管理思想、营销技术全面融入其中，为企业规范业务流程，实现模块化发展奠定良好的基础。信息化管理无疑是最有效的管理手段之一。利用先进的信息技术，可以帮助洗浴企业抛弃传统的管理模式，突破制约企业发展的瓶颈，使企业的运营目标具有更强的可操作性，最大限度地实现企业资源的合理利用，以期达到企业效率最高化，企业利润最大化。
通过对多家洗浴企业进行深入细致的调查和分析，做出的一套标准化的洗浴管理系统。它适用于中、小型洗浴行业，可以帮助洗浴企业处理日常工作业务，规模管理和操作流程，有效的实现了企业的现代化管理，全面提升了企业的市场竞争力和整体形象。
1.1.2国内外研究现状
随着人们休闲娱乐需求的提高，洗浴中心的功能的也越来越完善，正朝着同其他公共建筑结合组成建筑群落的方向发展。如建于公元3世纪的古罗马卡瑞卡拉浴场就在附近设有演讲厅和图书馆以及其他文化休闲场所。就像古罗马的浴场一样，随着时代的发展，人们需求的变化，洗浴中心也相应的随着变化而变化。
我国百姓的消费有所提高，国门大开，人们接受外来的新事物，闲暇时间的增加使人们开始考虑休闲生活的意义和质量。同时在我国市场需求多样化、个性化和时尚化的推动下，作为休闲娱乐建筑的一种——洗浴建筑，应时代要求诞生了。一个小小的澡堂子变成了集多功能于一体的康体娱乐建筑。这就需要一个功能完善的洗浴管理系统作支撑。
如今，在国外洗浴管理系统已经在世界各个发达国家广泛应用了，而且应用范围越来越广，功能越来越完善，操作越来越简单。但在国内应用的还比较少，传统洗浴企业的日常运作还是靠人工管理，从服务项目入库到客人点单，再到结账基本上由人工完成记录，这样做不仅耗费人力资源而且容易导致记录丢失或重复等错误，客人结账由手工记录，人力耗费大，客人等待时间长，管理效率低下，这就迫切需要标准的、高效率的计算机管理方式引导其发展,通过计算机管理该企业的日常运作，给管理者以决策参考的模型，来不断完善管理水平，提高工作效率。
1.1.3洗浴中心管理系统的研究目的与意义
系统开发的总体任务是实现各种信息的系统化、规范化和自动化。具体能实现对包房信息和员工信息的添加、修改、查询，箱号生成、修改以及自动搜索引擎，在总台实现顾客领牌、顾客服务、查看包房信息、统计顾客消费、包房维修禁用和恢复使用、大厅和包房的随时调换，以及当日结算查询、月营业分析等功能。这不仅帮助洗浴企业抛弃传统的管理模式，也突破制约企业发展的瓶颈，使企业的运营目标具有更强的可操作性，最大限度地实现企业资源的合理利用，以期达到企业效率最高化，企业利润最大化。
随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。越来越多的管理人员意识到信息管理的重要性。作为计算机应用的一部分,使用计算机对洗浴企业信息进行管理,具有手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低等。这些优点能够极大地提高信息管理的效率,也是企业的科学化、正规化管理与世界接轨的重要条件 。
课题以城市洗浴中心为背景，通过研究当前洗浴中心的管理现状、存在问题以及现实需求，设计一个针对洗浴管理工作的管理信息系统。该系统能够提供较为完备的功能，对于提高工作效率、加快洗浴管理的自动化具有较为重要的意义。
1.2论文结构
本文介绍了洗浴中心管理系统的开发前景、需求分析、各功能模块的设计和主要功能实现。具体来讲，主要包括以下几个方面：
第一章：需求调研与分析。通过对当前洗浴中心调查研究，全面了解了洗浴中心日常业务流程，为构建洗浴中心管理系统提出科学的需求分析。
第二章：系统开发技术介绍。是对VisualBasic6.0、SQL Server2000和ADO技术的特点进行了简单的描述。
第三章：功能模块框架设计。应用VisualBasic6.0作为开发平台，对系统整体主要功能做了描述。在系统功能分析的基础上，系统共分为基本信息管理、前台信息管理、后台信息管理、总经理查询、系统维护、系统帮助和系统退出七功能大模块。
第四章：系统的实现。论述了数据库安装、权限设置，完成了系统调试，并进行了简要总结。

第2章 系统开发技术介绍
2.1 VisualBasic6.0编程语言
2.1.1 VisualBasic6.0的简介
Visual Basic是由美国微软公司1991年开发的一种可视化的、面向对象和采用事件驱动方式的结构化高级程序设计语言，可用于开发 Windows 环境下的各类应用程序[1]。它简单易学、效率高，且功能强大可以与 Windows 专业开发工具SDK相媲美。在Visual Basic环境下，利用事件驱动的编程机制、新颖易用的可视化设计工具，使用Windows内部的广泛应用程序接口（API）函数，动态链接库（DLL）、对象的链接与嵌入（OLE）、开放式数据连接（ODBC）等技术，可以高效、快速地开发Windows环境下功能强大、图形界面丰富的应用软件系统[2]。
2.1.2 VisualBasic6.0的特点
1、面向对象
　　VisualBasic6.0采用了面向对象设计思想，它基本思路是把复杂的设计问题分解为多个能够完成独立功能且相对简单的对象集合。所谓“对象”就是个可操作实体如窗体、窗体中命令按钮、标签、文本框等，面向对象编程就是指程序员可根据界面设计要求直接在界面上设计出窗口、菜单、按钮等类型对象并为每个对象设置属性。
2、事件驱动　
　　在Windows环境下是以事件驱动方式运行每个对象的，都能响应多个区别事件。每个事件都能驱动段代码事件过程，该代码决定了对象功能。通常称这种机制为事件驱动的编程机制。可由用户操作触发也可以由系统或应用触发，例如单击个命令按钮就触发了按钮Click(单击)事件该事件中代码就会被执行，若用户未进行任何操作(未触发事件)则就处于等待状态整个应用就是由彼此独立事件过程构成。
3、软件Software集成式开发
　　VisualBasic6.0为编程提供了个集成开发环境在这个环境中编程者可设计界面、编写代码、调试直至把应用编译成可在Windows中运行可执行文件并为它生成安装VisualBasic6.0集成开发环境为编程者提供了很大方便[3]。
4、强大数据库访问功能
　　VisualBasic6.0利用数据Control控件可以访问多种数据VisualBasic6.0提供ADOControl控件不但可以用最少代码实现数据库操作和控制，也可以取代DataControl控件和RDOControl控件[4]。
5、支持对象链接和嵌入技术
　　VisualBasic6.0核心是对对象链接和嵌入(OLE)技术支持它是访问所有对象种思路方法利用OLE技术能够开发集声音、图像、动画、字处理、Web等对象于一体的功能强大的软件[5]。
6、网络功能
　　VisualBasic6.0提供了DltTML(Dynamic}tTML)设计工具利用这种技术可以动态创建和编辑Web页面使用户在VisualBasic6.0中开发多功能网络应用软件Software[6] 。
7、多个应用向导
　　VisualBasic6.0提供了多种向导如应用向导、安装向导、数据对象向导和数据窗体向导，通过它们可以快速地创建区别类型、区别功能应用。
8、联机帮助功能
　　在VisualBasic6.0中利用帮助菜单和F1功能键用户可随时方便地得到所需要帮助信息VisualBasic6.0帮助窗口中显示了有关举例代码通过复制、粘贴操作可获取大量举例代码为用户学习和使用提供方便[7]。
2.2 ADO技术
2.2.1 ADO特点概述
1、易于使用，可以说这是ADO最重要的特点之一。
ADO 是高层数据库访问技术，相对与ODBC来说，具有面性对象的特点[8]。同时，在 ADO 对象结构中，对象与对象之间的层次结构不适非常明显，这会给编写数据库程序带来更多的便利。比如，在应用程序中如果要使用记录集对象，不一定要先建立连接、会话对象，如果需要就可以直接构造记录集对象。总之，已经没有必要去关心对象的构造层次和构造顺序了[9]。
2、可以访问多种数据源。和 OLE DB 一样，使应用程序具有很好的通用性和灵活性[10]。
3、访问数据源效率高。
4、方便的Web应用。ADO 可以以 ActiveX 控件的形式出现，这就大大方便了Web应用程序的编制[11]。
5、技术编程接口丰富。 ADO 支持 Visual C++、Visual Basic、VBS、JS等[12]。
2.2.2 ADO 的对象
1、Connection
用于表示和数据源的连接，以及处理一些命令和事务。
2、Command
用于执行某些命令来进行诸如查询、修改数据库结构的操作。
3、Recordset
用于处理数据源的表格集，它是在表中修改、检索数据的最主要的方法[13]。
4、Field
描述数据集中的列信息。
5、Parameter
用于对传递给数据源的命令赋参数值。
6、Error
用于承载所产生所无的详细信息。
7、Property
通过属性，每个ADO对象借此来让用户描述和控制自身的行为。
8、Set
集合是一种可以方便的包含其他特殊类型对象的对象类型。 ADO 提供4种类型的集合：
●Connection 对象具有Error集合。
●Command 对象具有Parameter集合。
●Recordset 对象具有Fields集合。
●Connection、Command、Recordset、Field 对象都具有Property集合。
9、Event
事件模型是异步操作的基础，这是 ADO 2.0 引进的新特性。
2.3 SQLServer2000数据库
2.3.1 SQLServer2000的简介
SQL Server2000 是一个关系数据库管理系统，它最初是由Microsoft Sybase 和Ashton-Tate三家公司共同开发的，于1988 年推出了第一个OS/2 版本[14]。在Windows NT 推出后，Microsoft与Sybase 在SQL Server 的开发上就分道扬镳了。Microsoft 将SQL Server 移植到Windows NT系统上，专注于开发推广SQL Server 的Windows NT 版本；Sybase 则较专注于SQL Server在UNIX 操作系统上的应用。在本书中介绍的是Microsoft SQL Server 以后简称为SQL Server或MS SQL Server[15]。
2.3.2 SQL Server2000 的特性包括
1、Internet 集成。SQL Server 2000 数据库引擎提供完整的XML 支持。它还具有构成最大的Web 站点的数据存储组件所需的可伸缩性、可用性和安全功能。SQL Server 2000 程序设计模型与 Windows DNA 构架集成，用以开发 Web 应用程序，并且SQL Server 2000 支持 English Query 和 Microsoft 搜索服务等功能，在Web 应用程序中包含了用户友好的查询和强大的搜索功能[16]。
2、可伸缩性和可用性。同一个数据库引擎可以在不同的平台上使用，从运行 Microsoft Windows® 98 的便携式电脑，到运行 Microsoft Windows 2000 数据中心版的大型多处理器服务器。SQL Server 2000 企业版支持联合服务器、索引视图和大型内存支持等功能，使其得以升级到最大 Web 站点所需的性能级别[17]。
3、企业级数据库功能。SQL Server 2000 关系数据库引擎支持当今苛刻的数据处理环境所需的功能。数据库引擎充分保护数据完整性，同时将管理上千个并发修改数据库的用户的开销减到最小[18]。SQL Server 2000 分布式查询使您得以引用来自不同数据源的数据，就好象这些数据是 SQL Server 2000 数据库的一部分，同时分布式事务支持充分保护任何分布式数据更新的完整性。复制同样使您得以维护多个数据复本，同时确保单独的数据复本保持同步。可将一组数据复制到多个移动的脱接用户，使这些用户自主地工作，然后将他们所做的修改合并回发布服务器[19]。
4、易于安装、部署和使用。 SQL Server 2000 中包括一系列管理和开发工具，这些工具可改进在多个站点上安装、部署、管理和使用 SQL Server2000 的过程。SQL Server 2000 还支持基于标准的、与 Windows DNA 集成的程序设计模型，使 SQL Server 数据库和数据仓库的使用成为生成强大的可伸缩系统的无缝部分[20]。这些功能使您得以快速交付 SQL Server 应用程序，使客户只需最少的安装和管理开销即可实现这些应用程序。
2.4 应用平台配置
1、硬件配置
服务器：PC Server系列及其他品牌服务器。
工作站：586以上、32MB以上内存、1.2GB以上硬件空间。
2、软件配置
操作系统：Windowes2000，WindowesNT。
数据库系统：SQL Server2000。
开发工具：Microsoft Visual Basic6.0。

第3章 系统总体设计
3.1需求分析
3.1.1用户需求分析
随着人民生活水平的提高，洗浴在服务行业中占有越来越重要的地位。努力在当前服务行业日趋激烈的竞争中脱颖而出，已成为每位经营者所追求的目标。
经过多年发展，洗浴管理已经逐渐由定性管理，进入到重视定量管理的科学阶段。众所周知，在定量管理的具体实现方法和手段方面，最有效的工具就是电脑管理。传统的手工操作管理存在着许多无法避免的问题，例如：
l 人工计算帐单金额容易出现差错。
l 收银工作中跑单、漏单、偷钱现象普遍。
l 个别服务员作弊、改单情形时有发生。
l 客人消费单据难以保存和查询。
l 无法对大量营业数据进行统计分析。
l 无法准确迅速的解决折扣和优惠等问题。
l 无法准确满足客人的个性需求。
l 无论收银还是财务都需要大量的人力物力。
洗浴中心管理系统就是针对以上问题设计的，实现了日常洗浴营运的自动管理。
3.1.2系统概述
1、系统介绍
洗浴管理系统是一套功能强大而又简便实用的洗浴管理软件，包括基本信息管理、前台信息管理、后台信息管理、总经理查询、系统维护、系统帮助等六大功能模块，实现了洗浴行业日常营运的全面自动管理，是洗浴行业进行电脑信息化管理的理想选择。
2、系统目标
本管理系统参照了大量的同类软件，并进行了细致彻底的研究，旨在用计算机系统来完成基本能完成的工作，保持很高的灵活性和易操作性，并实现了各种信息的系统化、规范化和自动化。

3.2系统功能设计
在系统功能分析的基础上，系统分为6大模20个完整子模块，系统功能结构（如图3-1所示）

图3-1系统功能结构图
3.3数据库结构设计
3.3.1数据库设计原则
1、一致性原则
对信息进行统一、系统的分析与设计，协调好各数据源，做到“数出一门”、“算法统一”、“度量一致”。保证系统数据的一致性和有效性。
2、完整性原则
数据库的完整性是指数据的正确性和相容性。要防止合法用户使用数据库时向数据库中加入不合法语义的数据。DBMS提供一种机制来检查数据库中的数据来维护数据库的完整性。这些加在数据库数据之上的语义约束条件称为数据库完整性约束条件，是完整性控制机制的核心。
3、安全性原则
数据库的安全性是指保护数据，防止非法用户使用数据库，包括恶意破坏数据和越权存取数据，安全性措施的防范对象是非法用户和非法操作。
4、可伸缩性原则
数据库结构的设计应充分考虑到应用环境的改变和新需求的出现，一般不会推翻原设计，不会对现有的应用程序和数据造成大的影响，而只是在原设计基础上作一些扩充即可满足要求。
5、规范化
数据库的设计应遵循规范化理论，规范化程度过低的关系，可能会存在插入、删除异常、修改复杂、数据冗余等问题，解决的方法就是对关系模式进行分解或合并(范化)，转换成高级范式。但也应当注意到，并不是规范化程度越高的关系就越好。所以，在具体应用时，到底规范化进行到什么程度需要权衡利弊。一般而言，做到第三范式(3NF)就足够了。
3.3.2洗浴中心管理系统的实体-联系模型 （如图3-2所示）

图3-2 E-R图
3.3.3系统数据库设计
下面一一介绍各个数据库表的结构
1、包房信息表
使用户更清晰直接的了解包房信息，该系统在此表中设定了包房编号、类型、容纳人数、价格等。
表3-1包房信息表
序号
字段名称
数据类型
长度
1
编号
Varchar
4
2
楼层
Varchar
10
3
房间号
Varchar
30
4
包房名称
Varchar
10
5
包房说明
Varchar
50
6
所属部门
Varchar
8
7
包房类型
Varchar
8
8
容纳人数
int
4
9
状态
Varchar
25
10
现容纳人数
int
10
11
包房价格
money
8
12
消费单位
Varchar
8
13
分钟描述
int
8
2、箱号信息表
箱号信息表主要包括记录号、箱号、所在大厅、状态。
表3-2 箱号信息
序号
字段名称
数据类型
长度
1
记录号
Int
4
2
箱号
Varchar
10
3
所在大厅
Varchar
30
4
状态
Varchar
10
3、包房临时消费表
包房临时消费表记录顾客的消费情况。记录房间号、包房名称、价格、消费时间、消费金额等。
表3-3 包房临时消费信息
序号
字段名称
数据类型
长度
1
记录号
Int
4
2
房间号
Varchar
10
3
包房价格
money
8
4
包房名称
Varchar
50
5
分钟描述
Char
10
6
箱号
Varchar
10
7
所在大厅
Varchar
30
8
进入时间
datetime
8
9
结束时间
datetime
8
10
消费时间
datetime
4
11
消费金额
money
8
4、临时消费信息表
临时消费信息表主要记录项目编号、名称、单位、单价、消费状态、折扣、金额小计等。
表3-4 临时消费信息表
序号
字段名称
数据类型
长度
1
记录号
Int
4
2
箱号
Varchar
10
3
所在大厅
Varchar
30
4
项目编号
Varchar
10
5
名称
Varchar
50
6
单位
Varchar
8
7
单价
Money
8
8
数量
Int
4
9
简称
Varchar
25
10
消费状态
Varchar
10
11
隐藏状态
Varchar
8
12
登记时间
Datetime
8
13
折扣
Fload
8
14
金额小计
Money
8
5、日消费单据表
日消费单据表记录顾客一天的消费情况。主要有主客箱号、主客姓名、结账方式、打折、减免金额、减免原因、实缴金额等。
表3-5 日消费单据表
序号
字段名称
数据类型
长度
1
记录号
Int
4
2
消费单据号
Varchar
20
3
主客箱号
Varchar
10
4
主客姓名
Varchar
16
5
登记时间
Datetime
8
6
结账日期
Datetime
8
7
结账方式
Varchar
10
8
总计消费
Money
8
9
打折
Fload
8
10
实缴金额
Money
8
11
找零
Money
8
12
减免金额
Money
8
13
减免原因
Varchar
50
14
人数
Int
4
6、消费项目价格表
消费项目价格表主要记录项目的名称、单价等。这也是顾客最关心的一项。
表3-6 消费项目价格表
序号
字段名称
数据类型
长度
1
记录号
Int
4
2
项目编号
Varchar
10
3
简称
Varchar
25
4
名称
Varchar
50
5
单位
Varchar
10
6
单价
Money
8
7
说明
Varchar
100
7、月营业信息表
月营业信息表主要用于总经理查看某些月的盈利情况。
表3-7月营业信息表
序号
字段名称
数据类型
长度
1
月份
Char
8
2
月份营业额
Money
8

第4章 系统的实现
4.1数据库连接功能
为了节省系统资源，在系统中新建一个Modulel模块，该模块主要用于连接数据库和表，从而避免了程序中重复性地定义数据连接和数据集对象。Modulel模块中的完整代码如下：
Public Function ESQL(ByVal sql As String) As ADODB.Recordset
Dim cnn As ADODB.Connection
Dim rs As ADODB.Recordset
Set cnn = New ADODB.Connection
cnn.Open StrCnn()
Set rs = New ADODB.Recordset
rs.Open Trim(sql), cnn, adOpenKeyset, adLockOptimistic
Set ESQL = rs
End Function
Public Function StrCnn()
StrCnn = "Provider=MSDASQL.1;Persist Security Info=False;User ID=sa;Data Source=XYGLXT"
StrCnn = "Provider=SQLOLEDB.1;Password=ecc;Persist Security " _
& "Info=True;User ID=sa;Initial Catalog=XYGLXT;Server=(local)"
End Function
4.2系统登录窗体和主界面
根据系统登录窗体，可以选择不同的登录身份，具有不同的操作权限。在单击“确认”按钮时，判断操作员及其密码，如果该操作员存在，那么允许登录系统，并为系统管理员分配权限。否则，提示用户“密码错误”，如果输入三次错误的密码，那么系统将自动退出。登录窗体（如图4-1所示）

图4-1 系统登录窗体运行结果
当输入的密码正确时，可进入主界面（如图4-2所示）

图4-2 系统主窗体
单击系统登录窗体上“确认”按钮的click事件代码：
Private Sub comyes_Click()
Dim MESSAGE As String
Adodc1.RecordSource = "select * from 权限信息表 where 操作员名称 = '" + Trim(czy.Caption) + "'"
Adodc1.Refresh
If czy.Caption <> "" And Text1.Text = Trim(Adodc1.Recordset.Fields("密码")) Then
If Adodc1.Recordset.Fields("基本信息管理") = 0 Then frm_main.jbxxgl.Enabled = True Else frm_main.jbxxgl.Enabled = False
If Adodc1.Recordset.Fields("前台信息管理") = 0 Then
frm_main.qtxxgl.Enabled = True
frm_main.Toolbar1.Buttons(1).Enabled = True
frm_main.Toolbar1.Buttons(3).Enabled = True
frm_main.Toolbar1.Buttons(5).Enabled = True
Else
frm_main.qtxxgl.Enabled = False
frm_main.Toolbar1.Buttons(1).Enabled = False
frm_main.Toolbar1.Buttons(3).Enabled = False
frm_main.Toolbar1.Buttons(5).Enabled = False
End If
If Adodc1.Recordset.Fields("后台信息管理") = 0 Then
frm_main.htxxgl.Enabled = True
frm_main.Toolbar1.Buttons(7).Enabled = True
Else
frm_main.htxxgl.Enabled = False
frm_main.Toolbar1.Buttons(7).Enabled = False
End If
If Adodc1.Recordset.Fields("经理查询系统") = 0 Then
frm_main.jlcxxt.Enabled = True
frm_main.Toolbar1.Buttons(9).Enabled = True
frm_main.Toolbar1.Buttons(11).Enabled = True
Else
frm_main.jlcxxt.Enabled = False
frm_main.Toolbar1.Buttons(9).Enabled = False
frm_main.Toolbar1.Buttons(11).Enabled = False
End If
If Adodc1.Recordset.Fields("系统维护") = 0 Then
frm_main.xtwh.Enabled = True
frm_main.Toolbar1.Buttons(13).Enabled = True
Else
frm_main.xtwh.Enabled = False
frm_main.Toolbar1.Buttons(13).Enabled = False
End If
Load frm_main
frm_main.Show
frm_main.St1.Panels(3).Text = czy.Caption
Unload Me
Else
If TIM = 3 Then
MESSAGE = MsgBox("密码输入错误,请向系统管理员查询!", 0, "系统提示")
If MESSAGE = vbOK Then End
End If
If czy.Caption = "" Then
MsgBox "请选择操作员!", , "系统提示"
ListView1.SetFocus
Else
If Text1.Text <> Adodc1.Recordset.Fields("密码") Then
MsgBox "密码错误,请重新输入密码!"