家政服务信息管理系统.doc

基于VB的家政服务信息管理系统
摘要
家政服务管理系统是典型的信息管理系统(MIS)，其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立数据一致性和完整性强，数据安全性好的数据库.而对于后者则要求应用程序功能完备，易使用等特点。
随着计算机技术的高速发展,人们对计算机的依赖性越来越强，特别是用计算机开发的数据库以及数据管理系统在生活应用中表现得更为突出,为此开发此系统。通过使用家政服务管理系统，使家政服务店的管理工作系统化、规范化、自动化、简易化、智能化，从而达到提高家政服务管理效率的目的。
系统开发采用Microsoft公司的Visual Foxpro 6。0,利用其强大的可视化界面功能及对数据库的支持，先构造一个原型，逐步增加功能，最终满足需求。
关键词：家政服务 VB 管理系统
目 录
1 绪论………………………………………………………………………………5
2 系统分析…………………………………………………………………………7
2.1 开发背景…………………………………………………………………………7
2。2 MIS概述…………………………………………………………………………7
2.21 MIS 的概念及解释…………………………………………………………7
2。22 MIS 的结构特征……………………………………………………………8
2。23 MIS的开发…………………………………………………………………9
2。3 系统功能设计…………………………………………………………………11
2。4 数据库设计……………………………………………………………………12
2.41 SQL 2000 数据库简介……………………………………………………12
2。42 创建数据库………………………………………………………………12
2。5 开发平台……………………………………………………………………17
2。51系统的实现平台…………………………………………………………17
2。52 开发工具的选择…………………………………………………………17
2.53 VB 概述……………………………………………………………………17
3 系统实现…………………………………………………………………………21
3。1 登陆界面………………………………………………………………………21
3。2 首页页面介绍…………………………………………………………………22
3。3 菜单功能说明…………………………………………………………………23
3。3。1 基本信息管理……………………………………………………………23
3.3。2 客户信息管理……………………………………………………………23
3.3。3 客户信息查询……………………………………………………………27
3。3.4 系统设置…………………………………………………………………29
3.3.5 数据管理…………………………………………………………………33
4 结论……………………………………………………………………………36
致谢……………………………………………………………………………37
参考文献………………………………………………………………………38
1 绪论
当今企事业单位面对电子商务大潮和日益激烈的市场竞争环境，要想获得持久的市场竞争力，就必须发展电子商务，企事业单位迫切希望通过进一步强化企事业单位信息基础建设，实现企事业单位经营管理效率的有效提高.无论是电子商务还是知识经济,对企事业单位的竞争实力都提出了越来越高的要求。作为提高企事业单位机构办公管理效率的基础平台,近年来，家政服务信息系统得到广大企事业单位机构的高度重视，纷纷构建起适合于自身应用特色的家政服务信息系统(OA），通过家政服务信息系统的成功推广，逐步提高中小企事业单位的工作效率，提升管理质量,更好地向国际接轨。据此我们定制了本套智能化信息管理系统上家政服务信息系统。
管理信息系统（Management Information Systems 简称MIS）在现代社会已深入到各行各业，由于计算机技术的迅速发展和普及,MIS 事实上已成为计算机MIS。
目前，由于开发高质量 MIS 的能力大大落后计算机硬件日新月异的进展，加上社会对MIS 发展和完善需求的增加以及对MIS开发过程中出现的错误认识和行为而导致MIS开发的失败，这些情况已严重妨碍了计算机技术的进步。因此对MIS 有关的内容进行深入研究,提高工作效率,提高MIS开发成功率已变得十分重要。
我国企业MIS建设随着国民经济信息化的进展，进入了一个新的阶段。一些中大型企业搞MIS已有五到十年的经验，不少新建企业正打算高起点地建立高水平的MIS。实际上,企业的信息系统集成化建设,也是国民经济信息化的有机组成部分.
国际上，信息设备不断降价，信息技术更加成熟，一大批企业在搞信息系统集成或重建；研究开发机构适应这种需要投入了很大力量，致力于解决信息系统集成的策略、方法和工具等问题；一些大的信息服务公司纷纷成立或加快发展，正在由设备供应商变为信息技术和企业信息系统建设整体方案的咨询服务者。这些都是我们可以借鉴、引进和运用的。
实现”两个根本转变”为企业MIS建设带来了新的压力、新的动力和真正的机会。站在新一轮起飞点上的企业，要想用好新的机遇和新的环境条件搞好MIS建设，就要求业务领导和信息负责人、管理人员和开发人员进一步提高信息化的认识，转变传统的信息系统建设的思维，总结经验与学习先进理论相结合,发挥自身主动性与运用技术市场相结合,明确提出企业信息化的概念和任务,搞好高层的构思和总体规划，并把它作为"九五"企业发展规划的重要组成部分，组织有计划、有步骤的开发实现.
2 系统分析
2。1 开发背景
随着我国市场经济的快速发展和信息化水平的不断提高,如何利用先进的管理手段，提高企业员工信息管理的水平,是当今社会所面临的一个课题。提高企业管理水平，必须全方位地提高企业管理意识。只有高标准、高质量的管理才能满足企业的发展需求。面对信息时代的挑战,利用高科技手段来提高企业员工信息管理无疑是一条行之有效的途径。在某种意义上，信息与科技在企业管理与现代化建设中显现出越来越重要的地位。员工管理方面的信息化与科学化，已成为现代化生活水平步入高台阶的重要标志。
2.2 MIS概述
2.21 MIS 的概念及解释
MIS 是一个不断发展的新型学科，MIS的定义随着计算机技术和通讯技术的进步也在不断更新，在现阶段普遍认为MIS 是由人和计算机设备或其他信息处理手段组成并用于管理信息的系统。
MIS的对象就是信息.信息是经过加工的数据，信息是对决策者有价值的数据。信息的主要特征是来源分散，数量庞大。信息来源于生产第一线，来源于社会环境，来源于市场，来源于行政管理等部门.信息具有时间性.信息的加工方式有多种形式。管理过程是信息流的过程，且具有信息反馈的特征。
系统的组成：系统是由相互联系、相互作用的若干要素按一定的法则组成并具有一定功能的整体.系统有两个以上要素，各要素和整体之间，整体和环境之间存在一定的有机联系。系统由输入、处理、输出、反馈、控制五个基本要素组成。信息系统是输入的数据,经过处理,输出的是信息的系统。
图1 MIS系统平台
管理信息的要素：管理信息由信息的采集、信息的传递、信息的储存、信息的加工、信息的维护和信息的使用五个方面组成。
任何地方只要有管理就必然有信息，如果形成系统就形成MIS。计算机设备使MIS更有效，尤其是现代社会，MIS已和计算机设备不可分离，因此一般来说MIS就是计算机MIS。MIS包括计算机、网络通讯设备等硬件成份，包括操作系统、应用软件包等软件成份。并随着计算机技术和通讯技术的迅速发展还会出现更多的内容.计算机设备并不是MIS的必要条件.
2.22 MIS 的结构特征
MIS的结构： MIS由信源、信宿、信息处理、信息用户和信息管理者五个组成部分。
MIS的特性：完善的MIS具有以下四个标准：确定的信息需求、信息的可采集与可加工、可以通过程序为管理人员提供信息、可以对信息进行管理。
具有统一规划的数据库是MIS成熟的重要标志，它象征着MIS是软件工程的产物.通过MIS实现信息增值，用数学模型统计分析数据，实现辅助决策.MIS是发展变化的，MIS有生命周期。
MIS的开发必须具有一定的科学管理工作基础。只有在合理的管理体制、完善的规章制度、稳定的生产秩序、科学的管理方法和准确的原始数据的基础上，才能进行MIS的开发.
因此，为适应MIS的开发需求，企业管理工作必须逐步完善以下工作:
1) 管理工作的程序化,各部门都有相应的作业流程.
2) 管理业务的标准化，各部门都有相应的作业规范。
3) 报表文件的统一化,固定的内容、周期、格式。
4) 数据资料的完善化和代码化.
　　MIS是一个交叉性综合性学科,组成部分有：计算机学科（网络通讯、数据库、计算机语言等)、数学（统计学、运筹学、线性规划等）、管理学、仿真等多学科。随着科学技术的高速发展，MIS涉及的范围还要扩大。
MIS 按组织职能可以划分为办公系统、决策系统、生产系统和信息系统。
　　MIS基于信息处理层次进行划分为面向数量的执行系统、面向价值的核算系统、报告监控系统，分析信息系统、规划决策系统，自底向上形成信息金字塔。
第一代MIS 是由手工操作,使用工具是文件柜、笔记本等.第二代MIS 增加了机械辅助办公设备，如打字机、收款机、自动记账机等。第三代MIS 使用计算机、电传、电话、打印机等电子设备。
随着电信技术和计算机技术的飞速发展,现代MIS 从地域上划分已逐渐由局域范围走向广域范围。
MIS可以划分为横向综合结构和纵向综合结构,横向综合结构指同一管理层次各种职能部门的综合,如劳资、人事部门.纵向综合结构指具有某种职能的各管理层的业务组织在一起，如上下级的对口部门。
2。23 MIS的开发
创新原则，体现先进性。计算机技术的发展十分迅速，要及时了解新技术，使用新技术,使目标系统较原系统有质的飞跃。
整体原则，体现完整性。企业管理可以理解为一个合理的‘闭环’系统。目标系统应当是这个‘闭环’系统的完善.企业完整的实现计算机管理不一定必须在企业的各个方面同时实现,但必须完整的设计系统的各个方面。
不断发展原则，体现超前性。为了提高使用率，有效的发挥MIS的作用，应当注意技术的发展和环境的变化。MIS在开发过程中应注重不断发展和超前意识。
经济原则，体现实用性。大而全和高精尖并不是成功MIS的衡量标准。事实上许多失败的MIS正是由于盲目追求高新技术而忽视了其实用性。盲目追求完善的MIS而忽视了本单位的技术水平、管理水平和人员素质。
MIS的开发方式有自行开发、委托开发、联合开发、购买现成软件包进行二次开发几种形式。一般来说根据企业的技术力量、资源及外部环境而定。
MIS的开发策略
不可行的开发方法：组织结构法，机械的按照现有组织机构划分系统，不考虑MIS的开发原则。数据库法，开发人员从数据库设计开始对现有系统进行开发。想象系统发,开发人员基于对现有系统进行想象为基础进行开发。可行的开发方法：自上而下(Top—Down),从企业管理的整体进行设计,逐渐从抽象到具体,从概要设计到详细设计，体现结构化的设计思想.自下而上（Bottom-Up），设计系统的构件，采用搭积木的方式组成整个系统，缺点在于忽视系统部件的有机联系。
两者结合是实际开发过程中常用的方法.通过对系统进行分析得到系统的逻辑模型， 进而从逻辑模型求得最优的物理模型.逻辑模型和物理模型的这种螺旋式循环优化的设计模式体现了自上而下、自下而上结合的设计思想。
MIS的开发方法 ：完整实用的文档资料是成功MIS的标致。科学的开发过程从可行性研究开始，经过系统分析、系统设计、系统实施等主要阶段.每一个阶段都应有文档资料，并且在开发过程中不断完善和充实。目前使用的开发方法有以下两种：
1) 瀑布模型（生命周期方法学）
结构分析、结构设计,结构程序设计（简称SA-SD-SP方法）用瀑布模型来模拟。各阶段的工作自顶向下从抽象到具体顺序进行.瀑布模型意味着在生命周期各阶段间存在着严格的顺序且相互依存。瀑布模型是早期MIS设计的主要手段.
2) 快速原型法（面向对象方法）
快速原型法也称为面向对象方法是近年来针对（SA—SD-SP）的缺陷提出的设计新途径，是适应当前计算机技术的进步及对软件需求的极大增长而出现的.是一种快速、灵活、交互式的软件开发方法学.其核心是用交互的、快速建立起来的原型取代了形式的、僵硬的（不易修改的）大快的规格说明，用户通过在计算机上实际运行和试用原型而向开发者提供真实的反馈意见。快速原型法的实现基础之一是可视化的第四代语言的出现.两种方法的结合。使用面向对象方法开发MIS时，工作重点在生命周期中的分析阶段。分析阶段得到的各种对象模型也适用于设计阶段和实现阶段。实践证明两种方法的结合是一种切实可行的有效方法。
2。3 系统功能设计
系统流程

信息录入

信息修改

信息删除
公司内部办公信息管理系统主界面
客户信息管理
基本信息管理
系统登陆界面

系 统 设 置

信息查询系统
编号查询

名称查询

地址查询

操作员设置

口令设置

权限设置

数据备份
数据恢复
注销
退出
数 据 管 理

图2 系统流程图
2.4 数据库设计
2.41 SQL 2000 数据库简介
数据库管理系统（DBMS)是指数据库系统中管理数据的软件系统。DBMS是数据库系统的核心组成部分。对数据库的一切操作，包括定义、更新及各种控制，都是通过DBMS进行的。DBMS总是基于某种数据模型，可以把DBMS看成是某种数据模型在计算机系统上的具体实现。根据数据模型的不同，DBMS可以分成层次型、网状型、关系型、面向对象型等.MS SQL Server2000就是一种关系型数据库管理系统.
关系模型。关系模型主要是用二维表格结构表达实体集，用外键表示实体间联系.关系模型是由若干个关系模式组成的集合.关系模式相当于前面提到的记录类型，它的实例称为关系，每个关系实际上是一张二维表格。
关系模型和层次、网状模型的最大判别是用关键码而不是用指针导航数据,表格简单用户易懂，编程时并不涉及存储结构,访问技术等细节。关系模型是数学化模型。SQL语言是关系数据库的标准化语言，已得到了广泛的应用。DBMS的特点和功能可以分为三个子系统：设计工具子系统、运行子系统和DBMS引擎。
设计子系统有一个方便数据库及其应用创建的工具集。它典型地包含产生表、窗体、查询和的工具。DBMS产品还提供编程语言和对编程语言的接口。
运行子系统处理用设计子系统开发的应用组件.它所包含的运行处理器用来处理窗体和数据库的数据交互，以及回答查询和打印等.
DBMS引擎从其他两个组件接受请求，并把它们翻译成对操作系统的命令，以便读写物理介质上的数据。DBMS引擎还涉及事务管理、锁、备份和恢复。
2.42 创建数据库
数据库模式定义了数据库的结构、表、关系、域和问题规则。数据库模式是一种设计，数据库和应用正是建立在此基础上的.
域是一列可能拥有的值的集合。必须为每一个表的每一列确定域.除了数据的物理格式外，还需要确定是否有些域对表来说是唯一的.
数据库模式的最后一个要素是问题规则，它是对需要反映在数据库和数据库应用程序中的问题活动的约束.问题规则是模式的一个重要部分,因为他们指定了无论什么数据变化到达DBMS引擎，允许的数据值必须满足的约束.不管无效的数据变化请求是来自窗体的用户、查询/修改请求还是应用程序，DBMS都应该拒绝。
遗憾的是,不同的DBMS产品用不同的方法实施问题规则。在某些情况下，DBMS产品不具备实施必要问题规则的能力,必须以代码形式把它们编入应用程序.
1．数据精确度
由于采用数据库技术并且用户的应用领域对数据精确度的要求不是太高，所以这点在系统中表现得比较少,但是用户数据的安全性与正确性是完全保证的,所以对用户的使用没有多大的障碍。
2． 时间特性
本产品用SQL Server 2000网络数据库技术作为程序开发的底层数据库，采用C/S数据库结构，对数据进行合理有效的处理，所以程序在响应时间,数据更新处理时间上性能是比较突出的
3． 适应性
该软件是使用SQL server和VB在windows xp系统下完成的所以只要是兼容windows的软件或是操作系统，该软件都可以正确地运行，有较好的适应能力与兼容性。而且应用户的特殊需求软件在完成后的维护阶段可以保持一个与其他类软件接口，随时满足用户的使用要求。
4． 数据库设计
介绍如何设计本系统的数据库,以及如何在计算机中实现。根据需求说明书，分析数据的特征，综合考虑系统各个方面的功能需求，确定数据库的概念结构,逻辑结构和物理结构。
（1） 数据流程图如下：
家政服务管理人员
家政服务管理系统

家政服务管理人员
基本信息
客户信息
信息报表
服务信息
图3 数据流程图
（2)数据库概念结构设计
在数据库设计中，先要对系统分析所得的数据字典中的数据存储进行分析，然后得出系统的关系模式,可以采用实体—-联系图（简称E-—R图）的方法进行数据结构的描述。E--R图由实体、属性、联系三部分组成。E——R图的有关符号说明如下：

实体 属性
根据数据字典的内容，得到本系统的实体-—联系图如下：
客户

合同编号

编号

住宅电话

服务项目
姓名

付款方式
地址

图4 实体联系图
用 户

用户名
密码

图5 用户信息实体
客户

服务日期

开始时间

服务记录 
服务安排

结束时间

员工

图6 系统内主要实体间联系
根据系统需求分析和系统功能模块结构图来看，该系统应具备如下基本功能：
l 客户信息添加、修改和删除功能
l 服务反馈信息添加、修改和删除功能
l 客户信息的查询功能
l 系统设置功能
本系统涉及到的信息主要有5类:客户信息、服务信息、系统使用信息。按以上分析，将系统的数据库设计为三个：
表1 客户信息:
表1 客户信息表结构：
编号
字段名
字段类型
字段宽度
是否为空
1
客户编号
Character
12
No
2
客户姓名
Character
8
No
3
证件名称
Character
12
No
4
证件编号
Character
18
No
5
客户地址
Character
30
No
6
邮政编码
Character
6
No
7
客户电话
Character
12
No
8
传真
Character
15
No
9
业务联系人
Character
8
No
10
联系人电话
Character
12
No
表2 服务信息
表2 服务信息表结构
编号
字段名
字段类型
字段宽度
是否为空
1
服务项目
Character
30
No
2
合同编号
Character
15
No
3
生效日期
Date
8
No
4
终止日期
Date
8
No
5
服务地点
Character
30
No
6
服务次数
Character
4
No
7
记录日期
Character
8
No
表3 用户使用信息
表3 用户表结构：
字段编号
字段名
字段类型
字段宽度
是否为空
1
操作员
Character
12
No
2
密码
Character
8
No
3
基本信息管理
Character
12
No
4
客户信息管理
Character
18
No
5
系统设置
Character
30
No
6
数据维护
Character
6
No
7
客户信息查询
Character
12
No
2.5 开发平台
2.51系统的实现平台
计算机的硬件建议最低配置如下:
CPU 300MHZ
内存 32M
硬盘 8G
操作系统 win9x操作系统或更高
2。52 开发工具的选择
Microsoft Visual Basic 6.0作为前台的开发工具,用SQL 2000作为后台支持数据库,通过VB6.0的数据库控件来连接SQL 2000中并对其编程来实现各种功能。，因为SQL与Visual Basic用的同为Microsoft Jet数据库引擎，有着最好的兼容性。
2.53 VB 概述
Visual Basic （以下简称VB)的前身是QBASIC，语言基础是BASIC.自从微软推出VB后，便成为了程序开发人员的首选工具。据统计，仅在数据库系统开发领域，VB就占了90％的份额.VB是基于对象的可视化程序开发工具，它的优点在于能够快捷、简易地建立Windows应用程序。1998年8月，微软推出了VB 6.0的版本，进一步加强了部件开发的功能。以适用人员来分，可有以下三个版本:
　　1. 标准版 针对一般程序设计人员,适合普通应用系统的开发。
　　2. 专业版 针对专业程序开发人员，它在标准版的基础上提供了对数据库和Internet的支持。
3。 开发者版 适用于专为开发者设计应用软件的程序开发人员。
Visual Basic 系统除了一般高级语言所具有的一些名词术语外，还有几个系统常用的名词。其基本含义如下：
视窗(Form）：视窗是进行人机交互的界面或接口，也叫窗体.VB系统的人机交互界面或接口，无论是在设计时或是在运行时，都是Windows 系统的标准视窗。
对象 （Object）：对象是VB系统内部提供给设计者可以直接使用的处理输出的控制工具。本程序所应用到的对象类型有标签框 （Label Box），文本框 (Text Box),命令按扭 （Command Button），网格 （Data Grid），ADO控件 （Adodc1）等。当把这些工具放置到用户界面对应的窗体上时,被称为对象或控件。用户可以通过设置对象的“属性”和“方法”,便于对象适应自己所设计应用程序的输入输出内容，对象的生成过程及结构都被封装起来。正确使用对象可以减少程序和开发时间，提高程序设计者的工作效率。
属性 （Properties)：属性是VB系统提供的有关对象的参数或数据接口。用户通过适当地设置或改变对象的属性来确定对象的外观及性能特征，从而有效地使用系统提供的对象.比如，对象的名称、在屏幕上显示的位置、大小、颜色、接收或容纳的数据内容及数据的表现格式等。
事件 (Events)：事件是指用户或操作者对计算机进行的某一操作（如击键、单击或移动鼠标等)的行为或系统状态发生的变化。VB系统常用事件来引导计算机执行一段程序。程序所用的键盘事件有KeyPress（按键）事件，KeyDown事件和KeyUp事件;鼠标事件有Click（单击鼠标）事件，DbDlicd（双击鼠标）.
方法 (Method）：方法主要是指对一个对象使用某种作用的过程。它是在程序执行的过程中要计算机执行的某种操作。其程序的方法有Show（显示)方法，Hide（隐藏）方法，Refresh（刷新）方法.
过程 （Procedure）：过程是指经过定义或说明的，或基于某一对象对应的事件所引发的程序段。
模块 (Module）：模块是指一些运算量或过程进行声明或定义的一个集合。系统程序大体可分成四个模块:数据输入、根据查询、数据打印和通讯.
使用VB不需要追求完美的算法和精密的逻辑，而只要充分发挥你的想象力和创造力，就能利用VB开发出各种实用的软件了，不论是小游戏还是大型的游戏端/服务器端应用程序，都变得非常简单。
可视化编程的一个突出特点就是其开发环境就像一个百宝箱，很多功能都集成在其之中，这就是IDE（Integrated Development Environment)，即集成开发环境。IDE是指在相应的开发平台中集成了编辑器、编译连接工具、控件器箱辅助工具.例如在VB的集成开发环境中就包括了以下一些主要元素：工具栏、工具箱、工程管理器窗口、属性窗口、窗体设计器、代码编辑器窗口等；和VB类似，Delphi的IDE中具有主控制窗体、对象查看窗口和窗体设计器。同时IDE的设置是很灵活的，开发人员可以按照自己的编程习惯来配置IDE。
从简单的文本文件到各种复杂的关系型数据库，数据库应用程序需要面对各种各样的数据源。Visual basic 6.0提供ADO(Active Data Objects）作为应用程序和OLE—DB连接的桥梁
ADO，即Active数据对象(Active Data Objects）：实际是一种提供访问各种数据类型的连接机制.ADO设计为一种极简单的格式，通过ODBC的方法同数据库接口相连。用户可以使用任何一种ODBC数据源，即不仅适合于SQL Server、Oracle、SQL等数据库应用程序，也适合于Excel表格、文本文件、图形文件和无格式的数据文件。ADO是基于OLE—DB之上的技术，因此ADO通过其内部的属性和方法提供统一的数据访问接口方法。
Microsoft在Visual Basic 6。0以后的版本都集成了ADO。它与以前Visual Basic的DAO、RDO相比有了很大的提高。DAO(Data SQL Objects）即数据访问对象，是一种面向对象的界面接口。通过DAO/Jet功能可以访问ISAM数据库,使用DAO/ODBC Direct功能可以实现远程RDO功能.RDO（Remote Data Objects)即远程数据对象，为使用代码来创建和操作一个远程ODBC数据库系统的各个部件提供了一个框架。RDO是ODBC API的一个浅层界面接口，是专为访问远程ODBC关系数据源而设计的。
ADO集中了DAO和RDO的优点，可以通过简单的编程实现和各种数据结构进行连接。使用ADO的目的是进入数据源，使得修改、更新数据成为可能.ADO提供一系列的类和对象来完成各种操作。
3 系统实现
3.1 登陆界面
登陆本系统的方法是打开client应用程序文件，系统便会自动打开登录页面。在页面中间部分的区域是供用户进入系统的窗口，当用户在输入框击活的状态下输入用户名及密码,点击"确定”按扭后，您便可以进入信息管理系统上家政服务信息系统了，我们使用的是初始的管理员帐号、密码。
图7 系统登陆界面
确定按钮代码如下:
Private Sub cmd1_Click（）
Dim MESSAGE As String
Adodc1.RecordSource = ”select * from ma where （ma。操作员 like ” + Chr(34） + Combo1。Text + Chr(34） + ")”
Adodc1。Refresh
Adodc1.RecordSource = "select ＊ from ma where 操作员=’" + Combo1.Text + "’”
Adodc1.Refresh
If Adodc1.Recordset.RecordCount 〉 0 Then
If Combo1.Text 〈> "" And Trim(Text2。Text) = Trim(Text1.Text） Then
frm_main.StatusBar1。Panels（2)。Text = ”当前系统用户：” & Trim（Combo1。Text）
Name1 = Trim(Combo1.Text)
frm_main。Check1.Value = Adodc1.Recordset。Fields("基本信息管理"）
frm_main。Check2。Value = Adodc1.Recordset。Fields(”客户信息管理”）
frm_main.Check3。Value = Adodc1。Recordset。Fields（"客户信息查询")
frm_main.Check5.Value = Adodc1。Recordset.Fields（”系统设置")
Load frm_main
frm_main。Show
Unload Me
Else
MsgBox ”没有此操作员的信息或者输入的密码错误,请您确认后重新输入"
Text2.Text = ”"
Text2.SetFocus
End If
Else
MsgBox "没有此操作员的信息或者输入的密码错误，请您确认后重新输入”
Combo1。Text = ""
Text2。Text = "’”
Combo1.SetFocus
End If
End Sub
3。2 首页页面介绍
用户在进入首页后会看到整个页面分成了五个区域，分别是：基本信息管理、客户信息管理、信息查询、系统设置、数据管理。
图8 家政服务信息系统主界面
基本信息管理—-省份、城市信息的录入、存储。
客户信息管理——客户信息的录入、修改、删除.客户基本信息分为：客户名称、地址、证件名称、编号、电话、邮编、传真、业务员、业务员电话；客户服务信息为：服务项目、合同编号、付款方式、生效日期、终止日期、服务地址、服务次数.
信息查询——分为地址、编号、名称查询。
系统设置—-分为操作员设置、口令设置、权限设置.
数据管理——数据恢复、数据备份、注销、退出。
3.3 菜单功能说明
3.3.1 基本信息管理
(1）省份信息设置：对省份信息的录入，将信息加入到数据库中。
(2）城市信息设置:对城市信息的录入，将信息加入到数据库中。
3。3.2 客户信息管理
（1)客户数据录入
该菜单主要为用户提供单位和个人常用的电话号码， 用户可以随时增加新号码或撤除原有号码，可以分类查询各所属单位人员电话号码,还可以编辑自己的号码簿加快工作效率。该项菜单可以实现常用电话号码的添加，还可以实现显示已成功添加的电话号码.(如下图所示）
图9 客户信息录入
增加按钮代码如下：
Private Sub ComAdd_Click()
For i = 0 To 16
kh（i).Enabled = True
kh（i).Text = ””
Adodc1.RecordSource = ”select ＊ from kh order by 客户编号”
Adodc1.Refresh
If Adodc1。Recordset.RecordCount = 0 Then
kh（0）.Text = ”00001"
Else
If Adodc1.Recordset。RecordCount 〉 0 Then
Adodc1。Recordset.MoveLast
kh（0）.Text = Format(Adodc1。Recordset.Fields（”客户编号"） + 1， ”00000”)
Else
End If
End If
Next i
ComSave.Visible = True
ComCancel.Enabled = True
ComAdd.Enabled = False
ComSave。Enabled = True
SSTab1。Tab = 0
kh（1)。SetFocus
End Sub
保存按钮代码如下:
Private Sub ComSave_Click（)
On Error Resume Next
kh(4）.Text = Combo1。Text & Combo2。Text
If kh（0)。Text 〈〉 ”" And kh(1).Text 〈〉 ”” Then
Call Main
Dim DWMC, YZBM As String
Adodc4.RecordSource = ”select ＊ from bdwxx"
Adodc4。Refresh
If Adodc4.Recordset.RecordCount > 0 Then
DWMC = Adodc4。Recordset。Fields（"单位名称”）
YZBM = Adodc4。Recordset.Fields(”邮政编码")
Else
End If
Set adoRs = adoCon。Execute("insert into kh values（" & kh(0） ＆ "，’" & kh（1) ＆ "’,'” ＆ kh（2) & "’,’" & kh（3） & "’,'" & kh(4） ＆ ”',’" & kh（5） ＆ "'，’" ＆ kh（6） ＆ ”'，'” & kh(7) ＆ "’，’" & kh(8) & ”’,’” ＆ kh（9) & "’,’” & kh（10) & ”','” & kh（11) ＆ ”’,’" ＆ kh（12） & "','” ＆ kh（13） & ”’,'" ＆ kh（14) & ”’,'" & kh（15） ＆ ”’,'" & kh(16） & ”',’" ＆ Str(DTPicker1) ＆ ”’,’” ＆ DWMC ＆ ”’,'” & YZBM ＆ "’）"）
adoCon.Close
MsgBox "数据保存成功!"， , "保存信息提示”
ComSave。Enabled = False
ComCancel.Enabled = False
ComAdd。Enabled = True
Else
MsgBox (”必须输入客户全称")
SSTab1。Tab = 0
kh（1）。SetFocus
End If
End Sub