家政服务信息管理系统

《家政服务信息管理系统》由会员分享，可在线阅读，更多相关《家政服务信息管理系统（115页珍藏版）》请在装配图网上搜索。

1、Four short words sum up what has lifted most successful individuals above the crowd: a little bit more.-author-date家政服务信息管理系统。家政服务信息管理系统。基于VB的家政服务信息管理系统摘要 家政服务管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面.对于前者要求建立数据一致性和完整性强,数据安全性好的数据库.而对于后者则要求应用程序功能完备,易使用等特点。随着计算机技术的高速发展，人们对计算机的依赖性越来越强，特别是用计

2、算机开发的数据库以及数据管理系统在生活应用中表现得更为突出，为此开发此系统。通过使用家政服务管理系统，使家政服务店的管理工作系统化、规范化、自动化、简易化、智能化，从而达到提高家政服务管理效率的目的。系统开发采用Microsoft公司的Visual Foxpro 6.0，利用其强大的可视化界面功能及对数据库的支持，先构造一个原型，逐步增加功能，最终满足需求。关键词：家政服务 VB 管理系统 目 录1 绪论52 系统分析72.1 开发背景72.2 MIS概述72.21 MIS 的概念及解释72.22 MIS 的结构特征82.23 MIS的开发92.3 系统功能设计112.4 数据库设计122.4

3、1 SQL 2000 数据库简介122.42 创建数据库122.5 开发平台172.51系统的实现平台172.52 开发工具的选择17 2.53 VB 概述173 系统实现213.1 登陆界面213.2 首页页面介绍223.3 菜单功能说明233.3.1 基本信息管理233.3.2 客户信息管理233.3.3 客户信息查询273.3.4 系统设置293.3.5 数据管理334 结论36致谢37参考文献381 绪论 当今企事业单位面对电子商务大潮和日益激烈的市场竞争环境，要想获得持久的市场竞争力，就必须发展电子商务，企事业单位迫切希望通过进一步强化企事业单位信息基础建设，实现企事业单位经营管理效

4、率的有效提高。无论是电子商务还是知识经济，对企事业单位的竞争实力都提出了越来越高的要求。作为提高企事业单位机构办公管理效率的基础平台，近年来，家政服务信息系统得到广大企事业单位机构的高度重视，纷纷构建起适合于自身应用特色的家政服务信息系统（OA），通过家政服务信息系统的成功推广，逐步提高中小企事业单位的工作效率，提升管理质量，更好地向国际接轨。据此我们定制了本套智能化信息管理系统上家政服务信息系统。 管理信息系统（Management Information Systems 简称MIS）在现代社会已深入到各行各业，由于计算机技术的迅速发展和普及，MIS 事实上已成为计算机MIS。目前，由于开发

5、高质量 MIS 的能力大大落后计算机硬件日新月异的进展，加上社会对MIS 发展和完善需求的增加以及对MIS开发过程中出现的错误认识和行为而导致MIS开发的失败,这些情况已严重妨碍了计算机技术的进步。因此对MIS 有关的内容进行深入研究，提高工作效率，提高MIS开发成功率已变得十分重要。我国企业MIS建设随着国民经济信息化的进展，进入了一个新的阶段。一些中大型企业搞MIS已有五到十年的经验，不少新建企业正打算高起点地建立高水平的MIS。实际上，企业的信息系统集成化建设，也是国民经济信息化的有机组成部分。国际上，信息设备不断降价，信息技术更加成熟，一大批企业在搞信息系统集成或重建；研究开发机构适应

6、这种需要投入了很大力量，致力于解决信息系统集成的策略、方法和工具等问题；一些大的信息服务公司纷纷成立或加快发展，正在由设备供应商变为信息技术和企业信息系统建设整体方案的咨询服务者。这些都是我们可以借鉴、引进和运用的。实现两个根本转变为企业MIS建设带来了新的压力、新的动力和真正的机会。站在新一轮起飞点上的企业，要想用好新的机遇和新的环境条件搞好MIS建设，就要求业务领导和信息负责人、管理人员和开发人员进一步提高信息化的认识，转变传统的信息系统建设的思维，总结经验与学习先进理论相结合，发挥自身主动性与运用技术市场相结合，明确提出企业信息化的概念和任务，搞好高层的构思和总体规划，并把它作为九五企业

7、发展规划的重要组成部分，组织有计划、有步骤的开发实现。2 系统分析2.1 开发背景随着我国市场经济的快速发展和信息化水平的不断提高，如何利用先进的管理手段，提高企业员工信息管理的水平，是当今社会所面临的一个课题。提高企业管理水平，必须全方位地提高企业管理意识。只有高标准、高质量的管理才能满足企业的发展需求。面对信息时代的挑战，利用高科技手段来提高企业员工信息管理无疑是一条行之有效的途径。在某种意义上，信息与科技在企业管理与现代化建设中显现出越来越重要的地位。员工管理方面的信息化与科学化，已成为现代化生活水平步入高台阶的重要标志。2.2 MIS概述2.21 MIS 的概念及解释 MIS 是一个不

8、断发展的新型学科，MIS的定义随着计算机技术和通讯技术的进步也在不断更新，在现阶段普遍认为MIS 是由人和计算机设备或其他信息处理手段组成并用于管理信息的系统。 MIS的对象就是信息。信息是经过加工的数据，信息是对决策者有价值的数据。信息的主要特征是来源分散，数量庞大。信息来源于生产第一线，来源于社会环境，来源于市场，来源于行政管理等部门。信息具有时间性。信息的加工方式有多种形式。管理过程是信息流的过程，且具有信息反馈的特征。 系统的组成：系统是由相互联系、相互作用的若干要素按一定的法则组成并具有一定功能的整体。系统有两个以上要素，各要素和整体之间，整体和环境之间存在一定的有机联系。系统由输入

9、、处理、输出、反馈、控制五个基本要素组成。信息系统是输入的数据，经过处理，输出的是信息的系统。图1 MIS系统平台管理信息的要素：管理信息由信息的采集、信息的传递、信息的储存、信息的加工、信息的维护和信息的使用五个方面组成。任何地方只要有管理就必然有信息，如果形成系统就形成MIS。计算机设备使MIS更有效，尤其是现代社会，MIS已和计算机设备不可分离，因此一般来说MIS就是计算机MIS。MIS包括计算机、网络通讯设备等硬件成份，包括操作系统、应用软件包等软件成份。并随着计算机技术和通讯技术的迅速发展还会出现更多的内容。计算机设备并不是MIS的必要条件。2.22 MIS 的结构特征 MIS的结构

10、： MIS由信源、信宿、信息处理、信息用户和信息管理者五个组成部分。 MIS的特性：完善的MIS具有以下四个标准：确定的信息需求、信息的可采集与可加工、可以通过程序为管理人员提供信息、可以对信息进行管理。具有统一规划的数据库是MIS成熟的重要标志，它象征着MIS是软件工程的产物。通过MIS实现信息增值，用数学模型统计分析数据，实现辅助决策。MIS是发展变化的，MIS有生命周期。MIS的开发必须具有一定的科学管理工作基础。只有在合理的管理体制、完善的规章制度、稳定的生产秩序、科学的管理方法和准确的原始数据的基础上，才能进行MIS的开发。因此，为适应MIS的开发需求，企业管理工作必须逐步完善以下工

11、作： 1) 管理工作的程序化，各部门都有相应的作业流程。 2) 管理业务的标准化，各部门都有相应的作业规范。 3) 报表文件的统一化，固定的内容、周期、格式。 4) 数据资料的完善化和代码化。 MIS是一个交叉性综合性学科，组成部分有：计算机学科（网络通讯、数据库、计算机语言等）、数学（统计学、运筹学、线性规划等）、管理学、仿真等多学科。随着科学技术的高速发展，MIS涉及的范围还要扩大。 MIS 按组织职能可以划分为办公系统、决策系统、生产系统和信息系统。 MIS基于信息处理层次进行划分为面向数量的执行系统、面向价值的核算系统、报告监控系统，分析信息系统、规划决策系统，自底向上形成信息金字塔。

12、第一代MIS 是由手工操作，使用工具是文件柜、笔记本等。第二代MIS 增加了机械辅助办公设备，如打字机、收款机、自动记账机等。第三代MIS 使用计算机、电传、电话、打印机等电子设备。 随着电信技术和计算机技术的飞速发展，现代MIS 从地域上划分已逐渐由局域范围走向广域范围。 MIS可以划分为横向综合结构和纵向综合结构，横向综合结构指同一管理层次各种职能部门的综合，如劳资、人事部门。纵向综合结构指具有某种职能的各管理层的业务组织在一起，如上下级的对口部门。2.23 MIS的开发 创新原则，体现先进性。计算机技术的发展十分迅速，要及时了解新技术，使用新技术，使目标系统较原系统有质的飞跃。整体原则，

13、体现完整性。企业管理可以理解为一个合理的闭环系统。目标系统应当是这个闭环系统的完善。企业完整的实现计算机管理不一定必须在企业的各个方面同时实现，但必须完整的设计系统的各个方面。不断发展原则，体现超前性。为了提高使用率，有效的发挥MIS的作用，应当注意技术的发展和环境的变化。MIS在开发过程中应注重不断发展和超前意识。经济原则，体现实用性。大而全和高精尖并不是成功MIS的衡量标准。事实上许多失败的MIS正是由于盲目追求高新技术而忽视了其实用性。盲目追求完善的MIS而忽视了本单位的技术水平、管理水平和人员素质。 MIS的开发方式有自行开发、委托开发、联合开发、购买现成软件包进行二次开发几种形式。一

14、般来说根据企业的技术力量、资源及外部环境而定。 MIS的开发策略不可行的开发方法：组织结构法，机械的按照现有组织机构划分系统，不考虑MIS的开发原则。数据库法，开发人员从数据库设计开始对现有系统进行开发。想象系统发，开发人员基于对现有系统进行想象为基础进行开发。可行的开发方法：自上而下（TopDown）,从企业管理的整体进行设计,逐渐从抽象到具体,从概要设计到详细设计,体现结构化的设计思想。自下而上（BottomUp）,设计系统的构件,采用搭积木的方式组成整个系统,缺点在于忽视系统部件的有机联系。两者结合是实际开发过程中常用的方法。通过对系统进行分析得到系统的逻辑模型, 进而从逻辑模型求得最优

15、的物理模型。逻辑模型和物理模型的这种螺旋式循环优化的设计模式体现了自上而下、自下而上结合的设计思想。 MIS的开发方法 ：完整实用的文档资料是成功MIS的标致。科学的开发过程从可行性研究开始，经过系统分析、系统设计、系统实施等主要阶段。每一个阶段都应有文档资料，并且在开发过程中不断完善和充实。目前使用的开发方法有以下两种： 1) 瀑布模型（生命周期方法学） 结构分析、结构设计，结构程序设计（简称SASDSP方法）用瀑布模型来模拟。各阶段的工作自顶向下从抽象到具体顺序进行。瀑布模型意味着在生命周期各阶段间存在着严格的顺序且相互依存。瀑布模型是早期MIS设计的主要手段。2) 快速原型法（面向对象方

16、法） 快速原型法也称为面向对象方法是近年来针对（SASDSP）的缺陷提出的设计新途径，是适应当前计算机技术的进步及对软件需求的极大增长而出现的。是一种快速、灵活、交互式的软件开发方法学。其核心是用交互的、快速建立起来的原型取代了形式的、僵硬的（不易修改的）大快的规格说明，用户通过在计算机上实际运行和试用原型而向开发者提供真实的反馈意见。快速原型法的实现基础之一是可视化的第四代语言的出现。两种方法的结合。使用面向对象方法开发MIS时，工作重点在生命周期中的分析阶段。分析阶段得到的各种对象模型也适用于设计阶段和实现阶段。实践证明两种方法的结合是一种切实可行的有效方法。2.3 系统功能设计系统流程信

17、息录入信息修改信息删除公司内部办公信息管理系统主界面客户信息管理基本信息管理 系统登陆界面系 统 设 置信息查询系统编号查询名称查询地址查询 操作员设置口令设置权限设置数据备份数据恢复注销退出数 据 管 理图2 系统流程图2.4 数据库设计2.41 SQL 2000 数据库简介数据库管理系统（DBMS）是指数据库系统中管理数据的软件系统。DBMS是数据库系统的核心组成部分。对数据库的一切操作，包括定义、更新及各种控制,都是通过DBMS进行的。DBMS总是基于某种数据模型，可以把DBMS看成是某种数据模型在计算机系统上的具体实现。根据数据模型的不同，DBMS可以分成层次型、网状型、关系型、面向对

18、象型等。MS SQL Server2000就是一种关系型数据库管理系统。关系模型。关系模型主要是用二维表格结构表达实体集，用外键表示实体间联系。关系模型是由若干个关系模式组成的集合。关系模式相当于前面提到的记录类型，它的实例称为关系，每个关系实际上是一张二维表格。关系模型和层次、网状模型的最大判别是用关键码而不是用指针导航数据，表格简单用户易懂，编程时并不涉及存储结构，访问技术等细节。关系模型是数学化模型。SQL语言是关系数据库的标准化语言，已得到了广泛的应用。DBMS的特点和功能可以分为三个子系统：设计工具子系统、运行子系统和DBMS引擎。设计子系统有一个方便数据库及其应用创建的工具集。它典

19、型地包含产生表、窗体、查询和的工具。DBMS产品还提供编程语言和对编程语言的接口。运行子系统处理用设计子系统开发的应用组件。它所包含的运行处理器用来处理窗体和数据库的数据交互，以及回答查询和打印等。DBMS引擎从其他两个组件接受请求，并把它们翻译成对操作系统的命令，以便读写物理介质上的数据。DBMS引擎还涉及事务管理、锁、备份和恢复。2.42 创建数据库数据库模式定义了数据库的结构、表、关系、域和问题规则。数据库模式是一种设计，数据库和应用正是建立在此基础上的。域是一列可能拥有的值的集合。必须为每一个表的每一列确定域。除了数据的物理格式外，还需要确定是否有些域对表来说是唯一的。数据库模式的最后

20、一个要素是问题规则，它是对需要反映在数据库和数据库应用程序中的问题活动的约束。问题规则是模式的一个重要部分，因为他们指定了无论什么数据变化到达DBMS引擎，允许的数据值必须满足的约束。不管无效的数据变化请求是来自窗体的用户、查询/修改请求还是应用程序，DBMS都应该拒绝。遗憾的是，不同的DBMS产品用不同的方法实施问题规则。在某些情况下，DBMS产品不具备实施必要问题规则的能力，必须以代码形式把它们编入应用程序。1数据精确度由于采用数据库技术并且用户的应用领域对数据精确度的要求不是太高，所以这点在系统中表现得比较少，但是用户数据的安全性与正确性是完全保证的，所以对用户的使用没有多大的障碍。2

21、时间特性本产品用SQL Server 2000网络数据库技术作为程序开发的底层数据库，采用C/S数据库结构，对数据进行合理有效的处理，所以程序在响应时间，数据更新处理时间上性能是比较突出的3 适应性 该软件是使用SQL server和VB在windows xp系统下完成的所以只要是兼容windows的软件或是操作系统，该软件都可以正确地运行，有较好的适应能力与兼容性。而且应用户的特殊需求软件在完成后的维护阶段可以保持一个与其他类软件接口，随时满足用户的使用要求。4 数据库设计介绍如何设计本系统的数据库，以及如何在计算机中实现。根据需求说明书，分析数据的特征，综合考虑系统各个方面的功能需求，确定

22、数据库的概念结构，逻辑结构和物理结构。（1） 数据流程图如下： 家政服务管理人员家政服务管理系统家政服务管理人员 基本信息 客户信息 信息报表 服务信息图3 数据流程图 （2）数据库概念结构设计在数据库设计中，先要对系统分析所得的数据字典中的数据存储进行分析，然后得出系统的关系模式，可以采用实体联系图（简称ER图）的方法进行数据结构的描述。ER图由实体、属性、联系三部分组成。ER图的有关符号说明如下： 实体 属性根据数据字典的内容，得到本系统的实体联系图如下：客户合同编号编号住宅电话服务项目姓名付款方式地址 图4 实体联系图用 户用户名密码图5 用户信息实体客户服务日期开始时间服务记录服务安排

23、结束时间员工 图6 系统内主要实体间联系根据系统需求分析和系统功能模块结构图来看，该系统应具备如下基本功能：l 客户信息添加、修改和删除功能l 服务反馈信息添加、修改和删除功能l 客户信息的查询功能l 系统设置功能本系统涉及到的信息主要有5类：客户信息、服务信息、系统使用信息。按以上分析，将系统的数据库设计为三个：表1 客户信息：表1 客户信息表结构:编号字段名字段类型字段宽度是否为空1客户编号Character12No2客户姓名Character8No3证件名称Character12No4证件编号Character18No5客户地址Character30No6邮政编码Character6No

24、7客户电话Character12No8传真Character15No9业务联系人Character8No10联系人电话Character12No表2 服务信息表2 服务信息表结构编号字段名字段类型字段宽度是否为空1服务项目Character30No2合同编号Character15No3生效日期Date8No4终止日期Date8No5服务地点Character30No6服务次数Character4No7记录日期Character8No表3 用户使用信息表3 用户表结构：字段编号字段名字段类型字段宽度是否为空1操作员Character12No2密码Character8No3基本信息管理Charac

25、ter12No4客户信息管理Character18No5系统设置Character30No6数据维护Character6No7客户信息查询Character12No2.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数据库引擎

26、，有着最好的兼容性。2.53 VB 概述 Visual Basic （以下简称VB）的前身是QBASIC，语言基础是BASIC。自从微软推出VB后，便成为了程序开发人员的首选工具。据统计，仅在数据库系统开发领域，VB就占了90的份额。VB是基于对象的可视化程序开发工具，它的优点在于能够快捷、简易地建立Windows应用程序。1998年8月，微软推出了VB 6.0的版本，进一步加强了部件开发的功能。以适用人员来分，可有以下三个版本：1. 标准版 针对一般程序设计人员,适合普通应用系统的开发。2. 专业版 针对专业程序开发人员，它在标准版的基础上提供了对数据库和Internet的支持。3. 开发者

27、版 适用于专为开发者设计应用软件的程序开发人员。Visual Basic 系统除了一般高级语言所具有的一些名词术语外，还有几个系统常用的名词。其基本含义如下：视窗（Form）：视窗是进行人机交互的界面或接口，也叫窗体。VB系统的人机交互界面或接口，无论是在设计时或是在运行时，都是Windows 系统的标准视窗。对象 (Object)：对象是VB系统内部提供给设计者可以直接使用的处理输出的控制工具。本程序所应用到的对象类型有标签框 (Label Box)，文本框 (Text Box)，命令按扭 (Command Button)，网格 (Data Grid)，ADO控件 (Adodc1)等。当把这

28、些工具放置到用户界面对应的窗体上时，被称为对象或控件。用户可以通过设置对象的“属性”和“方法”，便于对象适应自己所设计应用程序的输入输出内容，对象的生成过程及结构都被封装起来。正确使用对象可以减少程序和开发时间，提高程序设计者的工作效率。属性 (Properties)：属性是VB系统提供的有关对象的参数或数据接口。用户通过适当地设置或改变对象的属性来确定对象的外观及性能特征，从而有效地使用系统提供的对象。比如，对象的名称、在屏幕上显示的位置、大小、颜色、接收或容纳的数据内容及数据的表现格式等。事件 (Events)：事件是指用户或操作者对计算机进行的某一操作（如击键、单击或移动鼠标等）的行为或

29、系统状态发生的变化。VB系统常用事件来引导计算机执行一段程序。程序所用的键盘事件有KeyPress（按键）事件，KeyDown事件和KeyUp事件；鼠标事件有Click（单击鼠标）事件，DbDlicd（双击鼠标）。方法 (Method)：方法主要是指对一个对象使用某种作用的过程。它是在程序执行的过程中要计算机执行的某种操作。其程序的方法有Show（显示）方法，Hide（隐藏）方法，Refresh（刷新）方法。过程 (Procedure)：过程是指经过定义或说明的，或基于某一对象对应的事件所引发的程序段。模块 (Module)：模块是指一些运算量或过程进行声明或定义的一个集合。系统程序大体可分成

30、四个模块：数据输入、根据查询、数据打印和通讯。 使用VB不需要追求完美的算法和精密的逻辑，而只要充分发挥你的想象力和创造力，就能利用VB开发出各种实用的软件了，不论是小游戏还是大型的游戏端/服务器端应用程序，都变得非常简单。可视化编程的一个突出特点就是其开发环境就像一个百宝箱，很多功能都集成在其之中，这就是IDE（Integrated Development Environment），即集成开发环境。IDE是指在相应的开发平台中集成了编辑器、编译连接工具、控件器箱辅助工具。例如在VB的集成开发环境中就包括了以下一些主要元素：工具栏、工具箱、工程管理器窗口、属性窗口、窗体设计器、代码编辑器窗口等

31、；和VB类似，Delphi的IDE中具有主控制窗体、对象查看窗口和窗体设计器。同时IDE的设置是很灵活的，开发人员可以按照自己的编程习惯来配置IDE。从简单的文本文件到各种复杂的关系型数据库，数据库应用程序需要面对各种各样的数据源。Visual basic 6.0提供ADO(Active Data Objects)作为应用程序和OLE-DB连接的桥梁ADO,即Active数据对象（Active Data Objects）：实际是一种提供访问各种数据类型的连接机制。ADO设计为一种极简单的格式，通过ODBC的方法同数据库接口相连。用户可以使用任何一种ODBC数据源，即不仅适合于SQL Serve

32、r、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)即远程数据对象

33、，为使用代码来创建和操作一个远程ODBC数据库系统的各个部件提供了一个框架。RDO是ODBC API的一个浅层界面接口，是专为访问远程ODBC关系数据源而设计的。ADO集中了DAO和RDO的优点，可以通过简单的编程实现和各种数据结构进行连接。使用ADO的目的是进入数据源，使得修改、更新数据成为可能。ADO提供一系列的类和对象来完成各种操作。3 系统实现3.1 登陆界面登陆本系统的方法是打开client应用程序文件，系统便会自动打开登录页面。在页面中间部分的区域是供用户进入系统的窗口，当用户在输入框击活的状态下输入用户名及密码，点击确定按扭后，您便可以进入信息管理系统上家政服务信息系统了，我们使

34、用的是初始的管理员帐号、密码。图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.RecordCo

35、unt 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 = Ad

36、odc1.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 IfEnd Sub3.2 首

37、页页面介绍用户在进入首页后会看到整个页面分成了五个区域，分别是：基本信息管理、客户信息管理、信息查询、系统设置、数据管理。图8 家政服务信息系统主界面基本信息管理省份、城市信息的录入、存储。客户信息管理客户信息的录入、修改、删除。客户基本信息分为：客户名称、地址、证件名称、编号、电话、邮编、传真、业务员、业务员电话；客户服务信息为：服务项目、合同编号、付款方式、生效日期、终止日期、服务地址、服务次数。信息查询分为地址、编号、名称查询。系统设置分为操作员设置、口令设置、权限设置。数据管理数据恢复、数据备份、注销、退出。3.3 菜单功能说明3.3.1 基本信息管理（1）省份信息设置：对省份信息的录

38、入，将信息加入到数据库中。（2）城市信息设置：对城市信息的录入，将信息加入到数据库中。3.3.2 客户信息管理（1）客户数据录入该菜单主要为用户提供单位和个人常用的电话号码， 用户可以随时增加新号码或撤除原有号码，可以分类查询各所属单位人员电话号码，还可以编辑自己的号码簿加快工作效率。该项菜单可以实现常用电话号码的添加，还可以实现显示已成功添加的电话号码。（如下图所示）图9 客户信息录入增加按钮代码如下：Private Sub ComAdd_Click() For i = 0 To 16 kh(i).Enabled = True kh(i).Text = Adodc1.RecordSource

39、 = 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.

40、Enabled = True ComAdd.Enabled = False ComSave.Enabled = True SSTab1.Tab = 0 kh(1).SetFocusEnd 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 b

41、dwxx 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) &

42、 , & 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(

43、1).SetFocus End IfEnd Sub（2）客户数据修改该菜单主要为个人提供用户经常使用的信息管理系统址，便于用户及时修改使用。用户可以随时增加新号码或撤除原有信息管理系统址，还可以编辑自己的信息管理系统址簿加快工作效率。该项菜单可以实现常用信息管理系统址的添加，还可以实现显示已成功添加的信息管理系统址。（3）客户数据删除该菜单主要是对客户信息的查找、删除，加快了工作效率。功能是：输入编号、全称，可以直接对该客户信息的删除。加快了工作效率（如下图所示）。图10 数据删除删除按钮代码如下：Private Sub Command2_Click() Dim myval As String

44、 If Adodc1.Recordset.RecordCount 0 Then myval = MsgBox(确实要删除该客户吗？, vbYesNo) If myval = vbYes Then Adodc1.Recordset.Delete Combo1.Text = Text1.Text = Text2.Text = End If Else MsgBox 查无此数据！ End IfEnd Sub3.3.3 客户信息查询（1）地址查询：直接输入客户地址，可以查询到客户的信息数据。（2）编号查询：直接输入客户编号，可以查询到客户的信息数据。（3）全称查询：直接输入客户编号，可以查询到客户的信息

45、数据。功能是：输入客户地址、编号、全称，可以直接对该客户信息的查询。加快了工作效率（如下图所示）。图11 编号查询查询按钮代码如下：Private Sub Command1_Click()Dim i As Integer If Text1.Text Then main_khcxjg.Adodc1.RecordSource = select * from kh where (kh.客户全称 LIKE % + Text1.Text + %) main_khcxjg.Adodc1.Refresh If main_khcxjg.Adodc1.Recordset.RecordCount 0 Then F

46、or i = 0 To 16 If main_khcxjg.Adodc1.Recordset.Fields(i) Then main_khcxjg.kh(i).Text = main_khcxjg.Adodc1.Recordset.Fields(i) Next i Unload Me Load main_khcxjg main_khcxjg.Show 1 Else MsgBox 无记录！ End If Else MsgBox 请输入相应信息！ End IfEnd Sub3.3.4 系统设置（1）操作员设置：添加、删除操作此系统的操作员，更快的浏览到客户信息。图12 操作员设置保存按钮代码：Pr

47、ivate Sub ComSave_Click() On Error Resume Next Data1.RecordSource = select * from ma where 操作员= + Combo1.Text + Data1.Refresh If Data1.Recordset.RecordCount 0 Then MsgBox 用户名已经存在,注册不成功!, , 信息提示 Combo1.Text = Combo1.SetFocus Else Set mydb = Workspaces(0).OpenDatabase(App.Path & khgl.mdb) Set myrs1 =

48、mydb.OpenRecordset(ma, dbOpenTable) myrs1.AddNew If Combo1.Text Then myrs1.Fields(0) = Combo1.Text If Text1(1).Text Then myrs1.Fields(1) = Text1(1).Text myrs1.Fields(2) = 0 myrs1.Fields(3) = 0 myrs1.Fields(4) = 0 myrs1.Fields(5) = 0 myrs1.Fields(6) = 0 Else End If myrs1.Update myrs1.Close mydb.Close

49、 Data1.Refresh ComSave.Enabled = False ComAdd.Enabled = True End IfEnd Sub（2）口令设置：对操作人员的密码的修改，提高系统的安全性、保密性。图13 密码设置确定按钮代码：Private Sub Command1_Click()Call Main Dim MESSAGE As String Data1.RecordSource = select * from ma where (ma.操作员= + Text1.Text + and ma.密码= + Text2.Text + ) Data1.Refresh If Data1

50、.Recordset.RecordCount 0 Then Set adoRs = adoCon.Execute(update ma set 密码= + Text3.Text + where 操作员= + Text1.Text + ) MsgBox 密码修改成功!, , 信息提示 Else MsgBox 没有要修改的相关信息!, , 信息提示 End If adoCon.CloseEnd Sub（3）权限设置：对操作人员的权限的管理，各个操作人员设置系统的各自权限，权限由系统管理员来设定。图14 操作员设置代码如下：Private Sub Form_Load() On Error Resume

51、 Nextfrm_main.StatusBar1.Panels(1) = Me.CaptionMe.Left = (Screen.Width - Me.Width) / 2Me.Top = (Screen.Height - Me.Height) / 2 rs.Open select * from ma , cnn, adOpenStatic, adLockOptimisticAdodc1.RecordSource = select * from maAdodc1.RefreshIf Adodc1.Recordset.RecordCount 0 ThenListView1.Enabled = T

52、rueListView1.ListItems.ClearAdodc1.Recordset.MoveFirstDo While Adodc1.Recordset.EOF = Falsekey = Text1.TextSet itmX = ListView1.ListItems.Add(, , key, 1)Adodc1.Recordset.MoveNextLoop rs.Open select * from ma where 操作员= + ListView1.SelectedItem + , cnn, adOpenStatic, adLockOptimisticAdodc1.RecordSour

53、ce = select * from ma where 操作员= + ListView1.SelectedItem + Adodc1.RefreshIf Adodc1.Recordset.RecordCount 0 ThenCheck1.Value = Adodc1.Recordset.Fields(基本信息管理)Check2.Value = Adodc1.Recordset.Fields(客户信息管理)Check3.Value = Adodc1.Recordset.Fields(系统设置)Check5.Value = Adodc1.Recordset.Fields(客户信息查询)ElseEn

54、d IfElseListView1.Enabled = FalseEnd IfEnd Sub3.3.5 数据管理（1）数据备份数据备份这一功能是将系统的数据进行一个必要的备份，防止计算机因其他原因产生数据丢失。该项菜单为用户提供在该系统的数据备份，包括服务器名，管理员，密码，数据库名，备份至（备份名）。代码如下：Private Sub Command1_Click() 确认数据备份 YesNo = MsgBox(准备好了吗？, vbNo + vbQuestion) If YesNo = vbNo Then Exit Sub End If On Error GoTo errprompt Me.MousePointer = 11 MkDir (Text1.Text & :客户管理系统数据备份) FileCopy App.Path & khgl.mdb, Text1.Text & :客户管理系统数据备份khgl_back.mdb Me.MousePointer = 0 MsgBox 数据已备份完毕。errprompt: Me.MousePointer = 0 Select Case Err.Number Case 57 MsgBox 磁盘已满！, vbCritical Case 70 MsgBox 磁盘写保护！, vbCritic