家政服务信息管理系统

家政服务信息管理系统基于VB的家政服务信息管理系统摘要家政服务管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面.对于前者要求建立数据一致性和完整性强,数据安全性好的数据库.而对于后者则要求应用程序功能完备,易使用等特点。随着计算机技术的高速发展，人们对计算机的依赖性越来越强，特别是用计算机开发的数据库以及数据管理系统在生活应用中表现得更为突出，为此开发此系统。通过使用家政服务管理系统，使家政服务店的管理工作系统化、规范化、自动化、简易化、智能化，从而达到提高家政服务管理效率的目的。系统开发采用Microsoft公司的VisualFoxpro6.0，利用其强大的可视化界面功能及对数据库的支持，先构造一个原型，逐步增加功能，最终满足需求。关键词：家政服务VB管理系统家政服务信息管理系统全文共家政服务信息管理系统全文共34页，当前为第1页。目录1绪论………………52系统分析…………72.1开发背景…………72.2MIS概述…………72.21MIS的概念及解释…………72.22MIS的结构特征……………82.23MIS的开发…………………92.3系统功能设计…………………112.4数据库设计……………………122.41SQL2000数据库简介……………………122.42创建数据库………………122.5开发平台……………………172.51系统的实现平台…………172.52开发工具的选择…………172.53VB概述……………………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参考文献………………………38家政服务信息管理系统全文共家政服务信息管理系统全文共34页，当前为第2页。1绪论

当今企事业单位面对电子商务大潮和日益激烈的市场竞争环境，要想获得持久的市场竞争力，就必须发展电子商务，企事业单位迫切希望通过进一步强化企事业单位信息基础建设，实现企事业单位经营管理效率的有效提高。无论是电子商务还是知识经济，对企事业单位的竞争实力都提出了越来越高的要求。作为提高企事业单位机构办公管理效率的基础平台，近年来，家政服务信息系统得到广大企事业单位机构的高度重视，纷纷构建起适合于自身应用特色的家政服务信息系统（OA），通过家政服务信息系统的成功推广，逐步提高中小企事业单位的工作效率，提升管理质量，更好地向国际接轨。据此我们定制了本套智能化信息管理系统上家政服务信息系统。管理信息系统（ManagementInformationSystems简称MIS）在现代社会已深入到各行各业，由于计算机技术的迅速发展和普及，MIS事实上已成为计算机MIS。目前，由于开发高质量MIS的能力大大落后计算机硬件日新月异的进展，加上社会对MIS发展和完善需求的增加以及对MIS开发过程中出现的错误认识和行为而导致MIS开发的失败,这些情况已严重妨碍了计算机技术的进步。因此对MIS有关的内容进行深入研究，提高工作效率，提高MIS开发成功率已变得十分重要。我国企业MIS建设随着国民经济信息化的进展，进入了一个新的阶段。一些中大型企业搞MIS已有五到十年的经验，不少新建企业正打算高起点地建立高水平的MIS。实际上，企业的信息系统集成化建设，也是国民经济信息化的有机组成部分。国际上，信息设备不断降价，信息技术更加成熟，一大批企业在搞信息系统集成或重建；研究开发机构适应这种需要投入了很大力量，致力于解决信息系统集成的策略、方法和工具等问题；一些大的信息服务公司纷纷成立或加快发展，正在由设备供应商变为信息技术和企业信息系统建设整体方案的咨询服务者。这些都是我们可以借鉴、引进和运用的。家政服务信息管理系统全文共34页，当前为第3页。实现"两个根本转变"为企业MIS建设带来了新的压力、新的动力和真正的机会。站在新一轮起飞点上的企业，要想用好新的机遇和新的环境条件搞好M家政服务信息管理系统全文共34页，当前为第3页。系统分析2.1开发背景随着我国市场经济的快速发展和信息化水平的不断提高，如何利用先进的管理手段，提高企业员工信息管理的水平，是当今社会所面临的一个课题。提高企业管理水平，必须全方位地提高企业管理意识。只有高标准、高质量的管理才能满足企业的发展需求。面对信息时代的挑战，利用高科技手段来提高企业员工信息管理无疑是一条行之有效的途径。在某种意义上，信息与科技在企业管理与现代化建设中显现出越来越重要的地位。员工管理方面的信息化与科学化，已成为现代化生活水平步入高台阶的重要标志。2.2MIS概述2.21MIS的概念及解释MIS是一个不断发展的新型学科，MIS的定义随着计算机技术和通讯技术的进步也在不断更新，在现阶段普遍认为MIS是由人和计算机设备或其他信息处理手段组成并用于管理信息的系统。MIS的对象就是信息。信息是经过加工的数据，信息是对决策者有价值的数据。信息的主要特征是来源分散，数量庞大。信息来源于生产第一线，来源于社会环境，来源于市场，来源于行政管理等部门。信息具有时间性。信息的加工方式有多种形式。管理过程是信息流的过程，且具有信息反馈的特征。家政服务信息管理系统全文共34页，当前为第4页。系统的组成：系统是由相互联系、相互作用的若干要素按一定的法则组成并具有一定功能的整体。系统有两个以上要素，各要素和整体之间，整体和环境之间存在一定的有机联系。系统由输入、处理、输出、反馈、控制五个基本要素组成。信息系统是输入的数据，经家政服务信息管理系统全文共34页，当前为第4页。图1MIS系统平台管理信息的要素：管理信息由信息的采集、信息的传递、信息的储存、信息的加工、信息的维护和信息的使用五个方面组成。任何地方只要有管理就必然有信息，如果形成系统就形成MIS。计算机设备使MIS更有效，尤其是现代社会，MIS已和计算机设备不可分离，因此一般来说MIS就是计算机MIS。MIS包括计算机、网络通讯设备等硬件成份，包括操作系统、应用软件包等软件成份。并随着计算机技术和通讯技术的迅速发展还会出现更多的内容。计算机设备并不是MIS的必要条件。2.22MIS的结构特征MIS的结构：MIS由信源、信宿、信息处理、信息用户和信息管理者五个组成部分。MIS的特性：完善的MIS具有以下四个标准：确定的信息需求、信息的可采集与可加工、可以通过程序为管理人员提供信息、可以对信息进行管理。具有统一规划的数据库是MIS成熟的重要标志，它象征着MIS是软件工程的产物。通过MIS实现信息增值，用数学模型统计分析数据，实现辅助决策。MIS是发展变化的，MIS有生命周期。MIS的开发必须具有一定的科学管理工作基础。只有在合理的管理体制、完善的规章制度、稳定的生产秩序、科学的管理方法和准确的原始数据的基础上，才能进行MIS的开发。家政服务信息管理系统全文共34页，当前为第5页。家政服务信息管理系统全文共34页，当前为第5页。管理工作的程序化，各部门都有相应的作业流程。管理业务的标准化，各部门都有相应的作业规范。报表文件的统一化，固定的内容、周期、格式。数据资料的完善化和代码化。MIS是一个交叉性综合性学科，组成部分有：计算机学科（网络通讯、数据库、计算机语言等）、数学（统计学、运筹学、线性规划等）、管理学、仿真等多学科。随着科学技术的高速发展，MIS涉及的范围还要扩大。MIS按组织职能可以划分为办公系统、决策系统、生产系统和信息系统。MIS基于信息处理层次进行划分为面向数量的执行系统、面向价值的核算系统、报告监控系统，分析信息系统、规划决策系统，自底向上形成信息金字塔。第一代MIS是由手工操作，使用工具是文件柜、笔记本等。第二代MIS增加了机械辅助办公设备，如打字机、收款机、自动记账机等。第三代MIS使用计算机、电传、电话、打印机等电子设备。随着电信技术和计算机技术的飞速发展，现代MIS从地域上划分已逐渐由局域范围走向广域范围。MIS可以划分为横向综合结构和纵向综合结构，横向综合结构指同一管理层次各种职能部门的综合，如劳资、人事部门。纵向综合结构指具有某种职能的各管理层的业务组织在一起，如上下级的对口部门。2.23MIS的开发创新原则，体现先进性。计算机技术的发展十分迅速，要及时了解新技术，使用新技术，使目标系统较原系统有质的飞跃。整体原则，体现完整性。企业管理可以理解为一个合理的‘闭环’系统。目标系统应当是这个‘闭环’系统的完善。企业完整的实现计算机管理不一定必须在企业的各个方面同时实现，但必须完整的设计系统的各个方面。不断发展原则，体现超前性。为了提高使用率，有效的发挥MIS的作用，应当注意技术的发展和环境的变化。MIS在开发过程中应注重不断发展和超前意识。家政服务信息管理系统全文共34页，当前为第6页。家政服务信息管理系统全文共34页，当前为第6页。MIS的开发方式有自行开发、委托开发、联合开发、购买现成软件包进行二次开发几种形式。一般来说根据企业的技术力量、资源及外部环境而定。MIS的开发策略不可行的开发方法：组织结构法，机械的按照现有组织机构划分系统，不考虑MIS的开发原则。数据库法，开发人员从数据库设计开始对现有系统进行开发。想象系统发，开发人员基于对现有系统进行想象为基础进行开发。可行的开发方法：自上而下（Top—Down）,从企业管理的整体进行设计,逐渐从抽象到具体,从概要设计到详细设计,体现结构化的设计思想。自下而上（Bottom—Up）,设计系统的构件,采用搭积木的方式组成整个系统,缺点在于忽视系统部件的有机联系。两者结合是实际开发过程中常用的方法。通过对系统进行分析得到系统的逻辑模型,进而从逻辑模型求得最优的物理模型。逻辑模型和物理模型的这种螺旋式循环优化的设计模式体现了自上而下、自下而上结合的设计思想。MIS的开发方法：完整实用的文档资料是成功MIS的标致。科学的开发过程从可行性研究开始，经过系统分析、系统设计、系统实施等主要阶段。每一个阶段都应有文档资料，并且在开发过程中不断完善和充实。目前使用的开发方法有以下两种：瀑布模型（生命周期方法学）结构分析、结构设计，结构程序设计（简称SA—SD—SP方法）用瀑布模型来模拟。各阶段的工作自顶向下从抽象到具体顺序进行。瀑布模型意味着在生命周期各阶段间存在着严格的顺序且相互依存。瀑布模型是早期MIS设计的主要手段。快速原型法（面向对象方法）家政服务信息管理系统全文共34页，当前为第7页。快速原型法也称为面向对象方法是近年来针对（SA—SD—SP）的缺陷提出的设计新途径，是适应当前计算机技术的进步及对软件需求的极大增长而出现的。是一种快速、灵活、交互式的软件开发方法学。其核心是用交互的、快速建立起来的原型取代了形式的、僵硬的（不易修改的）大快的规格说明，用户通过在计算机上实际运行和试用原型而向开发者提供真实的反馈意见。快速原型法的实现基础之一是可视化的第四代语言的出现。两种家政服务信息管理系统全文共34页，当前为第7页。2.3系统功能设计系统流程信息录入信息修改信息删除公司内部办公信息管理系统主界面客户信息管理基本信息管理系统登陆界面系统设置信息录入信息修改信息删除公司内部办公信息管理系统主界面客户信息管理基本信息管理系统登陆界面系统设置信息查询系统编号查询名称查询信息查询系统编号查询名称查询地址查询操作员设置操作员设置口令设置权限设置数据备份数据恢复数据备份数据恢复注销退出数据管理家政服务信息管理系统全文共34页，当前为第8页。图2家政服务信息管理系统全文共34页，当前为第8页。2.4数据库设计2.41SQL2000数据库简介数据库管理系统（DBMS）是指数据库系统中管理数据的软件系统。DBMS是数据库系统的核心组成部分。对数据库的一切操作，包括定义、更新及各种控制,都是通过DBMS进行的。DBMS总是基于某种数据模型，可以把DBMS看成是某种数据模型在计算机系统上的具体实现。根据数据模型的不同，DBMS可以分成层次型、网状型、关系型、面向对象型等。MSSQLServer2000就是一种关系型数据库管理系统。关系模型。关系模型主要是用二维表格结构表达实体集，用外键表示实体间联系。关系模型是由若干个关系模式组成的集合。关系模式相当于前面提到的记录类型，它的实例称为关系，每个关系实际上是一张二维表格。关系模型和层次、网状模型的最大判别是用关键码而不是用指针导航数据，表格简单用户易懂，编程时并不涉及存储结构，访问技术等细节。关系模型是数学化模型。SQL语言是关系数据库的标准化语言，已得到了广泛的应用。DBMS的特点和功能可以分为三个子系统：设计工具子系统、运行子系统和DBMS引擎。设计子系统有一个方便数据库及其应用创建的工具集。它典型地包含产生表、窗体、查询和的工具。DBMS产品还提供编程语言和对编程语言的接口。运行子系统处理用设计子系统开发的应用组件。它所包含的运行处理器用来处理窗体和数据库的数据交互，以及回答查询和打印等。DBMS引擎从其他两个组件接受请求，并把它们翻译成对操作系统的命令，以便读写物理介质上的数据。DBMS引擎还涉及事务管理、锁、备份和恢复。2.42创建数据库数据库模式定义了数据库的结构、表、关系、域和问题规则。数据库模式是一种设计，数据库和应用正是建立在此基础上的。域是一列可能拥有的值的集合。必须为每一个表的每一列确定域。除了数据的物理格式外，还需要确定是否有些域对表来说是唯一的。家政服务信息管理系统全文共34页，当前为第9页。数据库模式的最后一个要素是问题规则，它是对需要反家政服务信息管理系统全文共34页，当前为第9页。遗憾的是，不同的DBMS产品用不同的方法实施问题规则。在某些情况下，DBMS产品不具备实施必要问题规则的能力，必须以代码形式把它们编入应用程序。1．数据精确度由于采用数据库技术并且用户的应用领域对数据精确度的要求不是太高，所以这点在系统中表现得比较少，但是用户数据的安全性与正确性是完全保证的，所以对用户的使用没有多大的障碍。2．时间特性本产品用SQLServer2000网络数据库技术作为程序开发的底层数据库，采用C/S数据库结构，对数据进行合理有效的处理，所以程序在响应时间，数据更新处理时间上性能是比较突出的3．适应性该软件是使用SQLserver和VB在windowsxp系统下完成的所以只要是兼容windows的软件或是操作系统，该软件都可以正确地运行，有较好的适应能力与兼容性。而且应用户的特殊需求软件在完成后的维护阶段可以保持一个与其他类软件接口，随时满足用户的使用要求。4．数据库设计介绍如何设计本系统的数据库，以及如何在计算机中实现。根据需求说明书，分析数据的特征，综合考虑系统各个方面的功能需求，确定数据库的概念结构，逻辑结构和物理结构。数据流程图如下：家政服务管理人员家政服务管理系统家政服务管理人员家政服务管理系统家政服务管理人员基本信息家政服务管理人员客户信息信息报表服务信息家政服务信息管理系统全文共34页，当前为第10页。图3家政服务信息管理系统全文共34页，当前为第10页。（2）数据库概念结构设计在数据库设计中，先要对系统分析所得的数据字典中的数据存储进行分析，然后得出系统的关系模式，可以采用实体——联系图（简称E——R图）的方法进行数据结构的描述。E——R图由实体、属性、联系三部分组成。E——R图的有关符号说明如下：实体属性根据数据字典的内容，得到本系统的实体——联系图如下：客户客户合同编号合同编号编号编号住宅电话住宅电话服务项目姓名服务项目姓名付款方式地址付款方式地址图4实体联系图用户用户用户名密码用户名密码图5用户信息实体家政服务信息管理系统全文共家政服务信息管理系统全文共34页，当前为第11页。客户客户服务日期服务日期开始时间开始时间服务记录

服务安排服务记录

服务安排结束时间结束时间员工员工图6系统内主要实体间联系根据系统需求分析和系统功能模块结构图来看，该系统应具备如下基本功能：客户信息添加、修改和删除功能服务反馈信息添加、修改和删除功能客户信息的查询功能系统设置功能本系统涉及到的信息主要有5类：客户信息、服务信息、系统使用信息。按以上分析，将系统的数据库设计为三个：表1客户信息：家政服务信息管理系统全文共家政服务信息管理系统全文共34页，当前为第12页。表1客户信息表结构:编号字段名字段类型字段宽度是否为空1客户编号Character12No2客户姓名Character8No3证件名称Character12No4证件编号Character18No5客户地址Character30No6邮政编码Character6No7客户电话Character12No8传真Character15No9业务联系人Character8No10联系人电话Character12No表2服务信息表2服务信息表结构编号字段名字段类型字段宽度是否为空1服务项目Character30No2合同编号Character15No3生效日期Date8No4终止日期Date8No5服务地点Character30No6服务次数Character4No7记录日期Character8No家政服务信息管理系统全文共家政服务信息管理系统全文共34页，当前为第13页。表3用户使用信息表3用户表结构：字段编号字段名字段类型字段宽度是否为空1操作员Character12No2密码Character8No3基本信息管理Character12No4客户信息管理Character18No5系统设置Character30No6数据维护Character6No7客户信息查询Character12No2.5开发平台2.51系统的实现平台计算机的硬件建议最低配置如下：CPU300MHZ内存32M硬盘8G操作系统win9x操作系统或更高2.52开发工具的选择MicrosoftVisualBasic6.0作为前台的开发工具，用SQL2000作为后台支持数据库，通过VB6.0的数据库控件来连接SQL2000中并对其编程来实现各种功能。，因为SQL与VisualBasic用的同为MicrosoftJet数据库引擎，有着最好的兼容性。2.53VB概述家政服务信息管理系统全文共34页，当前为第14页。VisualBasic（以下简称VB）的前身是QBASIC，语言基础是BASIC。自从微软推出VB后，便成为了程序开发人员的首选工具。据统计，仅在数据库系统开发领域，VB就占了90％的份额。VB是基于对象的可视化程序开发工具，它的优点在于能够快捷、简易地建立Windows应用程序。1998年8月，微软推出了VB6.0家政服务信息管理系统全文共34页，当前为第14页。1.标准版针对一般程序设计人员,适合普通应用系统的开发。2.专业版针对专业程序开发人员，它在标准版的基础上提供了对数据库和Internet的支持。3.开发者版适用于专为开发者设计应用软件的程序开发人员。VisualBasic系统除了一般高级语言所具有的一些名词术语外，还有几个系统常用的名词。其基本含义如下：视窗（Form）：视窗是进行人机交互的界面或接口，也叫窗体。VB系统的人机交互界面或接口，无论是在设计时或是在运行时，都是Windows系统的标准视窗。对象(Object)：对象是VB系统内部提供给设计者可以直接使用的处理输出的控制工具。本程序所应用到的对象类型有标签框(LabelBox)，文本框(TextBox)，命令按扭(CommandButton)，网格(DataGrid)，ADO控件(Adodc1)等。当把这些工具放置到用户界面对应的窗体上时，被称为对象或控件。用户可以通过设置对象的“属性”和“方法”，便于对象适应自己所设计应用程序的输入输出内容，对象的生成过程及结构都被封装起来。正确使用对象可以减少程序和开发时间，提高程序设计者的工作效率。属性(Properties)：属性是VB系统提供的有关对象的参数或数据接口。用户通过适当地设置或改变对象的属性来确定对象的外观及性能特征，从而有效地使用系统提供的对象。比如，对象的名称、在屏幕上显示的位置、大小、颜色、接收或容纳的数据内容及数据的表现格式等。事件(Events)：事件是指用户或操作者对计算机进行的某一操作（如击键、单击或移动鼠标等）的行为或系统状态发生的变化。VB系统常用事件来引导计算机执行一段程序。程序所用的键盘事件有KeyPress（按键）事件，KeyDown事件和KeyUp事件；鼠标事件有Click（单击鼠标）事件，DbDlicd（双击鼠标）。方法(Method)：方法主要是指对一个对象使用某种作用的过程。它是在程序执行的过程中要计算机执行的某种操作。其程序的方法有Show（显示）方法，Hide（隐藏）方法，Refresh（刷新）方法。家政服务信息管理系统全文共34页，当前为第15页。过程(Procedure)：过程是指经过定义或说明的，或基于某一对家政服务信息管理系统全文共34页，当前为第15页。模块(Module)：模块是指一些运算量或过程进行声明或定义的一个集合。系统程序大体可分成四个模块：数据输入、根据查询、数据打印和通讯。使用VB不需要追求完美的算法和精密的逻辑，而只要充分发挥你的想象力和创造力，就能利用VB开发出各种实用的软件了，不论是小游戏还是大型的游戏端/服务器端应用程序，都变得非常简单。可视化编程的一个突出特点就是其开发环境就像一个百宝箱，很多功能都集成在其之中，这就是IDE（IntegratedDevelopmentEnvironment），即集成开发环境。IDE是指在相应的开发平台中集成了编辑器、编译连接工具、控件器箱辅助工具。例如在VB的集成开发环境中就包括了以下一些主要元素：工具栏、工具箱、工程管理器窗口、属性窗口、窗体设计器、代码编辑器窗口等；和VB类似，Delphi的IDE中具有主控制窗体、对象查看窗口和窗体设计器。同时IDE的设置是很灵活的，开发人员可以按照自己的编程习惯来配置IDE。从简单的文本文件到各种复杂的关系型数据库，数据库应用程序需要面对各种各样的数据源。Visualbasic6.0提供ADO(ActiveDataObjects)作为应用程序和OLE-DB连接的桥梁ADO,即Active数据对象（ActiveDataObjects）：实际是一种提供访问各种数据类型的连接机制。ADO设计为一种极简单的格式，通过ODBC的方法同数据库接口相连。用户可以使用任何一种ODBC数据源，即不仅适合于SQLServer、Oracle、SQL等数据库应用程序，也适合于Excel表格、文本文件、图形文件和无格式的数据文件。ADO是基于OLE-DB之上的技术，因此ADO通过其内部的属性和方法提供统一的数据访问接口方法。家政服务信息管理系统全文共34页，当前为第16页。Microsoft在VisualBasic6.0以后的版本都集成了ADO。它与以前VisualBasic的DAO、RDO相比有了很大的提高。DAO(DataSQLObjects)即数据访问对象，是一种面向对象的界面接口。通过DAO/Jet功能可以访问ISAM数据库，使用DAO/ODBCDirect功能可以实现远程RDO功能。RDO(RemoteDataObjects)即远程数据对象，为使用代码来创建和操作一个远程ODBC数据库系统的各个部件提供了一个框架。RDO是ODBCAPI的一个浅层界面接口，是专为访问远程ODBC家政服务信息管理系统全文共34页，当前为第16页。ADO集中了DAO和RDO的优点，可以通过简单的编程实现和各种数据结构进行连接。使用ADO的目的是进入数据源，使得修改、更新数据成为可能。ADO提供一系列的类和对象来完成各种操作。系统实现3.1登陆界面登陆本系统的方法是打开client应用程序文件，系统便会自动打开登录页面。在页面中间部分的区域是供用户进入系统的窗口，当用户在输入框击活的状态下输入用户名及密码，点击"确定"按扭后，您便可以进入信息管理系统上家政服务信息系统了，我们使用的是初始的管理员帐号、密码。图7系统登陆界面确定按钮代码如下：PrivateSubcmd1_Click()DimMESSAGEAsStringAdodc1.RecordSource="select*frommawhere(ma.操作员like"+Chr(34)+Combo1.Text+Chr(34)+")"Adodc1.RefreshAdodc1.RecordSource="select*frommawhere操作员='"+Combo1.Text+"'"Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0Then家政服务信息管理系统全文共34页，当前为第17页。家政服务信息管理系统全文共34页，当前为第17页。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("系统设置")Loadfrm_mainfrm_main.ShowUnloadMeElseMsgBox"没有此操作员的信息或者输入的密码错误,请您确认后重新输入"Text2.Text=""Text2.SetFocusEndIfElseMsgBox"没有此操作员的信息或者输入的密码错误,请您确认后重新输入"Combo1.Text=""Text2.Text="'"Combo1.SetFocusEndIfEndSub家政服务信息管理系统全文共34页，当前为第18页。3.2家政服务信息管理系统全文共34页，当前为第18页。用户在进入首页后会看到整个页面分成了五个区域，分别是：基本信息管理、客户信息管理、信息查询、系统设置、数据管理。图8家政服务信息系统主界面基本信息管理——省份、城市信息的录入、存储。客户信息管理——客户信息的录入、修改、删除。客户基本信息分为：客户名称、地址、证件名称、编号、电话、邮编、传真、业务员、业务员电话；客户服务信息为：服务项目、合同编号、付款方式、生效日期、终止日期、服务地址、服务次数。信息查询——分为地址、编号、名称查询。系统设置——分为操作员设置、口令设置、权限设置。数据管理——数据恢复、数据备份、注销、退出。3.3菜单功能说明3.3.1基本信息管理（1）省份信息设置：对省份信息的录入，将信息加入到数据库中。家政服务信息管理系统全文共34页，当前为第19页。家政服务信息管理系统全文共34页，当前为第19页。3.3.2客户信息管理（1）客户数据录入该菜单主要为用户提供单位和个人常用的电话号码，用户可以随时增加新号码或撤除原有号码，可以分类查询各所属单位人员电话号码，还可以编辑自己的号码簿加快工作效率。该项菜单可以实现常用电话号码的添加，还可以实现显示已成功添加的电话号码。（如下图所示）图9客户信息录入增加按钮代码如下：PrivateSubComAdd_Click()Fori=0To16kh(i).Enabled=Truekh(i).Text=""Adodc1.RecordSource="select*fromkhorderby客户编号"Adodc1.RefreshIfAdodc1.Recordset.RecordCount=0Thenkh(0).Text="00001"Else家政服务信息管理系统全文共34页，当前为第20页。家政服务信息管理系统全文共34页，当前为第20页。Adodc1.Recordset.MoveLastkh(0).Text=Format(Adodc1.Recordset.Fields("客户编号")+1,"00000")ElseEndIfEndIfNextiComSave.Visible=TrueComCancel.Enabled=TrueComAdd.Enabled=FalseComSave.Enabled=TrueSSTab1.Tab=0kh(1).SetFocusEndSub保存按钮代码如下：PrivateSubComSave_Click()OnErrorResumeNextkh(4).Text=Combo1.Text&Combo2.TextIfkh(0).Text<>""Andkh(1).Text<>""ThenCallMainDimDWMC,YZBMAsStringAdodc4.RecordSource="select*frombdwxx"Adodc4.RefreshIfAdodc4.Recordset.RecordCount>0ThenDWMC=Adodc4.Recordset.Fields("单位名称")YZBM=Adodc4.Recordset.Fields("邮政编码")Else家政服务信息管理系统全文共34页，当前为第21页。家政服务信息管理系统全文共34页，当前为第21页。SetadoRs=adoCon.Execute("insertintokhvalues("&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.CloseMsgBox"数据保存成功!",,"保存信息提示"ComSave.Enabled=FalseComCancel.Enabled=FalseComAdd.Enabled=TrueElseMsgBox("必须输入客户全称")SSTab1.Tab=0kh(1).SetFocusEndIfEndSub（2）客户数据修改该菜单主要为个人提供用户经常使用的信息管理系统址，便于用户及时修改使用。用户可以随时增加新号码或撤除原有信息管理系统址，还可以编辑自己的信息管理系统址簿加快工作效率。该项菜单可以实现常用信息管理系统址的添加，还可以实现显示已成功添加的信息管理系统址。（3）客户数据删除该菜单主要是对客户信息的查找、删除，加快了工作效率。家政服务信息管理系统全文共34页，当前为第22页。功能是：输入编号家政服务信息管理系统全文共34页，当前为第22页。图10数据删除删除按钮代码如下：PrivateSubCommand2_Click()DimmyvalAsStringIfAdodc1.Recordset.RecordCount<>0Thenmyval=MsgBox("确实要删除该客户吗？",vbYesNo)Ifmyval=vbYesThenAdodc1.Recordset.DeleteCombo1.Text=""Text1.Text=""Text2.Text=""EndIfElseMsgBox"查无此数据！"EndIfEndSub3.3.3客户信息查询（1）地址查询：直接输入客户地址，可以查询到客户的信息数据。（2）编号查询：直接输入客户编号，可以查询到客户的信息数据。（3）全称查询：直接输入客户编号，可以查询到客户的信息数据。家政服务信息管理系统全文共34页，当前为第23页。功能是：输入客户地址、编号、全称，可以直接对该家政服务信息管理系统全文共34页，当前为第23页。图11编号查询查询按钮代码如下：PrivateSubCommand1_Click()DimiAsIntegerIfText1.Text<>""Thenmain_khcxjg.Adodc1.RecordSource="select*fromkhwhere(kh.客户全称LIKE'%"+Text1.Text+"%')"main_khcxjg.Adodc1.RefreshIfmain_khcxjg.Adodc1.Recordset.RecordCount>0ThenFori=0To16Ifmain_khcxjg.Adodc1.Recordset.Fields(i)<>""Thenmain_khcxjg.kh(i).Text=main_khcxjg.Adodc1.Recordset.Fields(i)NextiUnloadMeLoadmain_khcxjgmain_khcxjg.Show1ElseMsgBox"无记录！"家政服务信息管理系统全文共34页，当前为第24页。家政服务信息管理系统全文共34页，当前为第24页。ElseMsgBox"请输入相应信息！"EndIfEndSub3.3.4系统设置（1）操作员设置：添加、删除操作此系统的操作员，更快的浏览到客户信息。图12操作员设置保存按钮代码：PrivateSubComSave_Click()OnErrorResumeNextData1.RecordSource="select*frommawhere操作员='"+Combo1.Text+"'"Data1.RefreshIfData1.Recordset.RecordCount>0ThenMsgBox"用户名已经存在,注册不成功!",,"信息提示"Combo1.Text=""Combo1.SetFocusElseSetmydb=Workspaces(0).OpenDatabase(App.Path&"\khgl.mdb")Setmyrs1=mydb.OpenRecordset("ma",dbOpenTable)myrs1.AddNewIfCombo1.Text<>""Thenmyrs1.Fields(0)=Combo1.TextIfText1(1).Text<>""Then家政服务信息管理系统全文共34页，当前为第25页。家政服务信息管理系统全文共34页，当前为第25页。myrs1.Fields(2)="0"myrs1.Fields(3)="0"myrs1.Fields(4)="0"myrs1.Fields(5)="0"myrs1.Fields(6)="0"ElseEndIfmyrs1.Updatemyrs1.Closemydb.CloseData1.RefreshComSave.Enabled=FalseComAdd.Enabled=TrueEndIfEndSub（2）口令设置：对操作人员的密码的修改，提高系统的安全性、保密性。图13密码设置确定按钮代码：PrivateSubCommand1_Click()CallMain家政服务信息管理系统全文共家政服务信息管理系统全文共34页，当前为第26页。Data1.RecordSource="select*frommawhere(ma.操作员='"+Text1.Text+"'andma.密码='"+Text2.Text+"')"Data1.RefreshIfData1.Recordset.RecordCount>0ThenSetadoRs=adoCon.Execute("updatemaset密码='"+Text3.Text+"'where操作员='"+Text1.Text+"'")MsgBox"密码修改成功!",,"信息提示"ElseMsgBox"没有要修改的相关信息!",,"信息提示"EndIfadoCon.CloseEndSub（3）权限设置：对操作人员的权限的管理，各个操作人员设置系统的各自权限，权限由系统管理员来设定。图14操作员设置代码如下：PrivateSubForm_Load()OnErrorResumeNextfrm_main.StatusBar1.Panels(1)=Me.CaptionMe.Left=(Screen.Width-Me.Width)/2家政服务信息管理系统全文共34页，当前为第27页。家政服务信息管理系统全文共34页，当前为第27页。rs.Open"select*fromma",cnn,adOpenStatic,adLockOptimisticAdodc1.RecordSource="select*fromma"Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenListView1.Enabled=TrueListView1.ListItems.ClearAdodc1.Recordset.MoveFirstDoWhileAdodc1.Recordset.EOF=Falsekey=Text1.TextSetitmX=ListView1.ListItems.Add(,,key,1)Adodc1.Recordset.MoveNextLooprs.Open"select*frommawhere操作员='"+ListView1.SelectedItem+"'",cnn,adOpenStatic,adLockOptimisticAdodc1.RecordSource="select*frommawhere操作员='"+ListView1.SelectedItem+"'"Adodc1.RefreshIfAdodc1.Recordset.RecordCount>0ThenCheck1.Value=Adodc1.Recordset.Fields("基本信息管理")Check2.Value=Adodc1.Recordset.Fields("客户信息管理")Check3.Value=Adodc1.Recordset.Fields("系统设置")Check5.Value=Adodc1.Recordset.Fields("客户信息查询")ElseEndIfElse家政服务信息管理系统全文共34页，当前为第28页。家政服务信息管理系统全文共34页，当前为第28页。EndIfEndSub3.3.5数据管理（1）数据备份 数据备份这一功能是将系统的数据进行一个必要的备份，防止计算机因其他原因产生数据丢失。该项菜单为用户提供在该系统的数据备份，包括服务器名，管理员，密码，数据库名，备份至（备份名）。代码如下：PrivateSubCommand1_Click()'确认数据备份YesNo=MsgBox("准备好了吗？",vbNo+vbQuestion)IfYesNo=vbNoThenExitSubEndIfOnErrorGoToerrpromptMe.MousePointer=11MkDir(Text1.Text&":\客户管理系统数据备份")FileCopyApp.Path&"\khgl.mdb",Text1.Text&":\客户管理系统数据备份\khgl_back.mdb"Me.MousePointer=0MsgBox"数据已备份完毕。"errprompt:Me.MousePointer=0家政服务信息管理系统全文共34页，当前为第29页。家政服务信息管理系统全文共34页，当前为第29页。Case57MsgBox"磁盘已满！",vbCriticalCase70MsgBox"磁盘写保护！",vbCriticalEndSelectEndSub（2）数据恢复当发生数据丢失或数据错误时，我们使用此功能对数据进行恢复。该项菜单为用户提供该系统的数据恢复，包括服务器名，管理员，密码，数据库名，备份至（服务器路径）。代码如下：PrivateSubCommand1_Click()'确认数据恢复YesNo=MsgBox("准备好了吗？",vbNo+vbQuestion)IfYesNo=vbNoThenExitSubEndIfOnErrorGoToerrpromptMe.MousePointer=11FileCopyText1.Text&":\客户管理系统数据备份\khgl_back.mdb",App.Path&"\khgl.mdb"Me.MousePointer=0MsgBox"数据已恢复完毕。"errprompt:Me.MousePointer=0SelectCaseE