毕业设计（论文）-人事管理系统--人事查询子模块.doc

本科生毕业设计 人事管理系统 -人事查询子模块 摘 要人事管理系统是典型的信息管理系统(MIS),该系统主要包括三个模块：人事查询、系统设置、帮助。该论文主要包括需求分析部分，系统分析部分，系统开发环境部分，程序设计和程序测试等五部分。通过对人事管理系统的分析，开发工具使用Visual FoxPro 6.0数据库。人事管理系统中的人事查询模块中包含查询登记和综合查询。查询登记主要记录查询者的姓名、查询用途、查询内容、批准人姓名、查询日期等相关记录；综合查询是根据条件查询员工的相关信息。系统设置主要是实现人事档案的转递、人事档案注销、工资级别和部门设置。帮助模块实现用户对数据的备份和密码修改的需求。关键字： 人事；人事档案；人事查询；Visual Foxpro 6.0 ABSTRACTPersonnel Management System is a typical management information system (MIS), the system mainly consists of three modules: personnel for the system set up to help.The papers include needs analysis of the analysis of the environmental part of system development, design and testing procedures, such as five parts. Based on the analysis of the personnel management system, development tools using Visual FoxPro 6.0 database.Personnel management system of personnel included in the query module for registration and comprehensive enquiry. For enquiries, the main registration records for the names, for use, query, approved the name, and other relevant records for the date, comprehensive enquiry is based on the conditions for the staff of relevant information.System is set up to achieve the personnel files of transmitting, personnel files write-offs, wage levels and departments set up. Implementation of the module to help users of data backup and password to amend the demand.Keyword: Personnel, Personnel files; Personnel enquiries; Visual Foxpro 6.0目 录第1章 背景与概述11.1背景11.2目的和意义11.3系统概述1第2章 开发工具简介22.1 VisualFoxPro6.0简介22.2开发环境22.2.1开发工具22.2.2硬件要求2第3章 系统需求分析33.1系统功能需求分析33.2系统用例分析43.3数据库需求分析43.4数据流程图4第4章 系统设计与实现64.1系统总体规划64.2模块设计74.3数据库设计84.4系统菜单设计94.5数据库设计的实现10第5章 系统测试报告125.1 测试目的125.2 测试环境125.3 系统登陆的测试125.4 人事查询模块的测试13第6章 设计总结18致 谢19参考文献20附录（主要功能的源代码）2126-第1章 背景与概述1.1背景在我们一些公司会出现这样的情形：公司员工的进司时间、部门调整时间、工资结算时间等等记录混乱。这种情形对公司来说很是不利。也许公司的人事档是由人事部的工作人员记录可是公司的人员流动性也是很大的这种情形耽误了大量的宝贵时间不说，对于员工来说心理上也很难接受，一个公司人事上都做不好对于员工的工作心态不利。在信息技术飞速发展的今天，互联网已经深入到千家万户。这为基于VF技术的人事管理系统的搭建提供了一个良好的网络环境。如果能人事管理系统应用于各个企业，能进一步提高企业信息化管理水平及员工服务的信息化水平。1.2目的和意义人事管理系统的目的是在需要变动的员工和企业之间搭建一个信息平台。改善现行调动模式存在的调动过程中时间上的差错，保证员工入司时间与调动时间的连接性，企业也可以提前了解员工的全方面情况。这样也更有利于企业和员工之间的沟通，提高工作效率。使得企业可以更好的用好人才。VFP技术是面向对象的语言开发技术。在校期间，学习了Delphi、VB、VF、C/C+编程语言，软件工程理论以及SQL数据库技术等基础知识。基于VFP技术实现人事管理系统的初衷也是为了进一步锻炼和提高自己学习新知识的能力和基础知识的应用能力。1.3系统概述系统期望目标是使用Visual FoxPro 6.0技术实现人事档案管理系统， 本人事档案管理系统采用面向对象的开发方法。它是一种基于对象的自底向上的一种系统开发方法，这种方法的特点是以对象为基础，对象是分析问题和解决问题的核心。它要求按人们通常的思维方式建立问题领域的模型，设计出尽可能自然表现求解方法的软件。第2章 开发工具简介2.1 VisualFoxPro6.0简介VisualFoxPro6.0(以下简称VFP6)是Microsoft公司推出的Visual FoxPro系列软件的最新版本，它继承了以前版本功能强大、界面友好、简单易学的优点，同时又比以前版本具有了更多更先进的功能，为数据库应用程序的开发提供了更快的速度，更强的能力和更大的灵活性。VFP6与以前的VFP版本完全兼容，用户以前编写的应用程序可以直接在VFP6上运行。同时，VFP6在交互式开发环境中新增了许多功能，包括更多的智能感知功能、快捷键、书签与任务列表。对象浏览器等，从而减少了程序员需要输入的代码数量，提高了程序开发的效率。针对网络技术的发展，VFP6不仅支持原来的Web发布功能，而且增加了Web服务功能以及对XMLl的支持，从而提高了网络数据库应用程序开发的能力。VFP6还提供了对DBC(数据库容器)事件的支持，增强了数据库的安全性与可靠性。2.2开发环境2.2.1开发工具本系统在开发时选用了稳定性较强的Windows XP中文专业版和Visual Foxpro6.0作为开发语言，由于这些软件产品都是Microsoft公司的产品，因此彼此之间的兼容性较好，开发出的应用系统稳定性较高。2.2.2硬件要求（1）服务器处理器：Intel Pentium 4 2.0GHz或更高内存：512M或更高网络：100M网卡硬盘空间：80G显卡：SVGA显示适配器（2）客户端处理器：Intel Pentium 800MX 或更高内存：64M网络：10或100M网卡硬盘空间：1G显卡：SVGA显示适配器第3章 系统需求分析需求分析是软件产品生存周期中的一个重要阶段，这一阶段的根本任务是确定用户对软件系统的需求。目前使用的方法主要有结构化分析方法和面向对象分析方法这两种方法。3.1系统功能需求分析企业人事的分布比较复杂，但有着完善的人事信息，对每一员工有详细的记录信息，功能上对系统的需求是全面的。因此对用户的需求可分为几个方面：（1）人事查询模功能描述：显示系统当前日期生日的员工信息、用户指定条件查询员工的信息。（2）系统参数设置模块功能描述：对部门设置、员工档案转递设置、员工档案注销设置、工资级别设置。人事查询模块查询登记综合查询记录查询者的信息不执行显示信息是否图3-1 人事查询模块流程图员工档案转递系统设置模块员工档案注销工资级别部门设置添加、删除、修改图3-2 系统设置模块流程图3.2系统用例分析通过需求分析可得参与目标系统的主要角色有三类：员工、企业和管理员。系统的用例图如3-3 所示：员工模块企业模块管理模块员工企业管理员图3-3系统用例图3.3数据库需求分析系统处理的数据信息是数据库的基本组成部分。经过上面的分析，我们知道本系统要处理的信息包括员工、企业、系统管理员的基本信息。 3.4数据流程图数据流图是描绘系统的逻辑模型图，其中没有任何具体的物理元素，只是描绘信息在系统中流动和处理的情况。设计数据流图只需考虑系统必须完成的基本逻辑功能，完全不需要考虑如何具体地实现这些功能，所以它也是软件设计的很好的出发点。人事管理系统主要是为了对员工基本信息、奖惩、及其它相关信息等进行计算机管理。所以主要的数据源应是员工有关方面的各种信息。它们在系统中流动和处理详细见下面的数据流程图：（1）部门信息的流程图： 图3-4 部门信息流程图流程图分析：从数据流图上容易看出该系统应对录入到数据库中的公司部门信息，可以修改甚至删除数据库中相关信息资料，可以对数据库的信息按某些字段或字段组合进行检索。同时应具有对数据库的信息作出相关统计的功能。本系统的数据参数的设置涉及部门、员工档案转递设置、员工档案注销设置、工资级别设置四个方面的数据设置。因为这些参数是随着不同单位而不同的，所以系统应该具备和这些参数设置的功能。上面的部门信息流程代表了其它三个参数的特点。其它三个的数据流程图就不再给出。第4章 系统设计与实现4.1系统总体规划该人事管理系统是为了利用计算机实现一个单位的人事管理工作。因此，系统应该有一个全局管理功能，以方便实现不同的功能的选择。这里用总控模块实现，总控模块管理有三种不同的信息的处理，即基本信息处理、系统的设置管理。由于每种信息的处理涉及到对信息多方面的不同子功能，所以又涉及到对众多的子功能的管理。在此用基本信息模块、参数设置模块、系统备份模块实现。在基本信息模块下包含对员工基本信息的编辑、检索、报表等功能。对检索应具备从多方面对不同字段进行检索。部门信息模块包含部门编辑、清空、添加等功能。对员工信息的管理功能处理的是否恰当是本系统是否成功的一个标志。因此，对员工信息的管理功能应细化，管理的设置要灵活。尤其是表现在员工的信息的录入的方便性，准确性，对不同单位的不同情形的员工档案管理的适应性，以及检索、统计要具备从多个不同的角度能够对数据库中的记录进行特定条件的检索和统计的。同以上的检索一样，应能从多方面、不同字段进行。在系统管理中为了适应不同单位的部门，职务，合同等的类别名称的不同，特设置系统参数设置模块，包括部门，职务，合同，年度等系统参数的设置。最后，系统还提供了重要数据备份模块。重要数据从安全的角度考虑，应该及时对数据库中重要的数据表做好备份，防止数据丢失和破坏。这里的重要数据库是指员工的基本情况信息和员工的考核记载表。经过对系统的需求分析，明确了系统所要完成的功能。人事管理系统的总体功能模块框架设计如图4-1 所示： 编辑员工考核信息考核信息模块 检索基本信息 考核信息报表 编辑员工基本信息 基本信息选择条件检索总控模块 基本信息模块 信息检索 基本信息条件检索表报 满足各种条件的信息记录的统计 编辑部门类别子模块 系统设置模块 编辑工资级别子模块 编辑员工档案转递子模块 编辑员工档案注销子模块 数据备份模块 基本信息表和考核表的备份 图4-1 系统功能结构图4.2模块设计（1）人事查询模块查询登记：记录查询者的信息、查询用途、查询内容以及经办人姓名与批准人姓名。综合查询：根据部门、员工号、姓名、性别、籍贯5个查询类别进行员工的查询。（2）系统设置模块部门设置模块：该模块可以动态地实现按用户的意识设定适合用户的部门名称。比如工厂就设定：一车间，二车间等等。如果是公司就可以设定为：财务科，公关部等等。这样的软件适应了用户的动态需求。工资级别模块：该模块可以动态地实现按用户的意识设定适合用户的工资级别。员工档案转递模块：该模块可以动态地实现按用户的意识设定员工档案转递的编号、员工号、转档时间和原因、转档单位。员工档案注销模块：该模块可以动态实现员工离职时删除该员工在本单位的所有信息。（3）帮助模块数据备份：该模块实现现有的数据记录比如基本情况数据表，员工的考核情况记载表可以及时备份到其它磁盘等等。密码修改：该模块根据用户的需求对系统登陆的密码进行修改。4.3数据库设计根据分析阶段得出的的结论，结合本系统对有关数据的存储的需要，更加方便实现该人事档案管理系统的所有功能，现将本管理系统设计成6个数据库表，每个表的字段名、类型、宽度设计如下： 表4-1 部门类别(bmlb)字段名类型宽度部门编号字符型1部门名称字符型10部门说明备注型60表4-2 档案转递(dazd)字段名类型宽度编号字符型2姓名字符型8员工号字符型3转档单位字符型10转档日期日期型8转档原因字符型60表4-3 工资级别(gzjb)字段名类型宽度工资级别字符型1基本工资数值型8劳务补助数值型8奖惩情况数值型8表4-4 档案查询登记(dacxdj)字段名类型宽度查询类别字符型8查询人姓名字符型8查询内容备注型60查询期限字符型20查询日期日期型8查询用途字符型60档案编号字符型2归还日期日期型8经办人姓名字符型8批准人姓名字符型8所属部门字符型10现任职务字符型10政治面貌字符型8以上是本系统的库表结构的设计简要说明。4.4系统菜单设计系统中，系统菜单就是第一个人机交互的界面，系统菜单中给出的是本系统的各个子功能模块，这些子功能又分门别类的组成子菜单。在实际的菜单设计中，系统的功能模块可以以不同的菜单项出现。本着对使用者操作带来方便的原则，将本系统菜单设计如下：表4-5 系统菜单表档案管理档案统计人事查询系统设置花名册帮助基本资料按政治面貌统计查询登记部门设置党员花名册数据备份年度考核按文化程度统计综合查询工资级别设置员工花名册退出员工档案转递修改密码员工档案注销4.5数据库设计的实现由于页面的设计主要涉及界面的布局。在系统中的登陆页面的左上角会显示出当前日期和星期。给用户提供时间上的参考。这是本系统的一个小细节。下面介绍系统的页面设计。本系统的登陆页面结构设计如图4-2 所示：显示当前日期 星期 人事管理系统 -Visual Foxpro 6.0开发的系统 制作人：张亚迪 吴碧波操作内容显示区域 图4-2 系统页面结构设计系统登陆页面文件long.scx位于.form目录下。通过下面的操作内容显示区域可以进入系统中。系统的主页面设计效果如图4-3所示：图4-3 系统登陆页面登陆窗口输入管理员编号输入管理员姓名进入系统界面重新输入输入管理员密码是否图4-4 系统登陆流程图第5章 系统测试报告5.1 测试目的经过近两个月的开发，人事管理系统已经基本完成。为了验证系统是否能正常运行，实现软件需求分析阶段和设计阶段规定和设计的功能，我们对系统进行针对性的测试。在测试过程中去查找出系统中存在的问题，并及时的去解决问题。5.2 测试环境 硬件平台：CPU：Pentium 4 2.4GHZ 内存：512MB软件平台：操作系统：Windows XP 数据库：SQL Server 2000 开发工具包：VFP 显示器分辨率：最佳效果1024*768像素5.3 系统登陆的测试首先以管理员编号:001 管理员密码:000000做一调试图5-1 系统登陆窗口当击活“确定“按钮的click事件时，系统自动检测用户名和密码是否正确。判断正确时界面如下所示：图5-2 系统登陆菜单若输入密码错误显示窗口如下: 图5-3 密码错误提示窗口5.4 人事查询模块的测试1.查询登记表单图5-4 查询登记表单2.员工信息的综合查询表单 图5-5 员工综合查询信息表单控件和事件：有四个按钮控件，一个组合框控件，一个文本框控件，一个表格控件。组合框为查询指定查询字段。这里的字段包括：考核等级,部门,职员号,姓名,性别,籍贯,文化程度,婚姻状况。文本框提供查询的字段值。由用户根据需要填写。表格控件显示员工数据表组合框指定的字段满足文本框值的所有员工信息。四个按钮控件分别是查询按钮，重置按钮，打印按钮，退出按钮。重置按钮的click事件是文本框为空。由用户重新输入。同时表格控件的数据源为空。打印按钮控件的click事件是将满足当前查询条件的记录报表打印。打印的效果如下： 图5-6 员工综合查询报表在员工的基本信息表中存有员工的信息，如表所示：表5-1 员工基本信息表若在查询文本框中输入与表中所不符的记录（例如输入员工号=“0001”）结果如下图：图5-7 不符合条件的综合查询显示图3.系统参数编辑表单（1）部门设置模块 图5-8 部门运行窗口该表单的控件主要有：最首、上一个、下一个、最末、添加、编辑、保存、清空、退出九个按钮控件。还有2个文本框控件、1个编辑框。添加按钮的控件的click事件是激活将数据添加到数据库中的bmlb表的末尾这个事件。编辑的click事件是激活修改数据库当前记录用当前的表单的值替代。清空的click事件是激活数据库中当前表中的所有记录被删除这个事件。退出按钮的click事件是激活关闭当前表单这个事件。（2）工资级别模块图5-9 工资级别运行窗口该表单的控件主要有：最首、上一个、下一个、最末、添加、编辑、保存、清空、退出九个按钮控件。还有3个文本框控件。添加按钮的控件的click事件是激活将数据添加到数据库中的gzjb表的末尾这个事件。编辑的click事件是激活修改数据库当前记录用当前的表单的值替代。清空的click事件是激活数据库中当前表中的所有记录被删除这个事件。退出按钮的click事件是激活关闭当前表单这个事件。4系统数据备份模块：该表单有二个按钮控件：备份按钮和关闭按钮。一个组合框控件。提供目标驱动器名。事件：备份按钮控件的事件是根据当前的组合框中的驱动器名作为目标驱动器。将数据库中的重要数据：职员基本信息和在职考核信息二个数据表备份到目标驱动器中保存。 第6章 设计总结经过两个多月的努力，人事管理系统终于顺利完成。在系统开发过程中，本人收获了很多。首先，本人重新学习了VFP的相关知识，对VFP技术有了一个全新的了解和认识。其次，真正体会到了软件工程思想对于软件开发的重要性。最后，本人的学习和实践的能力得到了进一步的提高。有很多东西是从书本上学不来的，需要在实际的动手过程中去领悟。用VFP开发项目给本人的感受是：必须细心谨慎，考虑问题要全面。一个小小的疏忽可能会花上大量的时间而找不到原因，最痛苦的事莫过与此。不过在找到问题的根源之后，那种成功的喜悦也是令人兴奋不已的。总之，通过人事管理系统的开发，锻炼了本人的学习能力和动手能力，巩固了大学期间学习的相关知识，同时也积累了一些软件项目的开发经验。参考文献1 王虎，谢俊.高校管理信息系统建设探索M.电子科技大学学报，1994年6月专辑2 曾晓锋，胡先文，范燕忠.高校学籍管理自动化的实践与探索M.华南热带农业大学学报,2000年第02 期3 刘倩.教学管理信息化的实践M.山东省青年管理干部学院学报,2004年第02 期4 王玉琼，陈强璋.大众化时期的教学管理改革M.中国大学教学,2004年第12 期5 房可燕.Visual FoxPro6.0实战与精通M清华大学出版社,2000年4月6 李加福.Visual FoxPro6.0M.北京:清华大学出版社,1999年6月7 梁杰,效英,殷咸青.Foxpro 2.6 for windows使用详解M.西安:西安电子科技大学出版社,1995年5月8 刘云生.数据库系统概论M.武汉:华中理工大学出版社,1996年5月9 常明华.数据技术及开发教程（修订版）M.电子工业出版社,2002年6月第一版附录（主要功能的源代码）1查询登记信息桧索的源代码：go bottthisform.text1.enabled=.t.thisform.text2.enabled=.t.thisform.text3.enabled=.t.thisform.text4.enabled=.t.thisform.text5.enabled=.t.thisform.text6.enabled=.t.thisform.text8.enabled=.t.thisform.text10.enabled=.t.thisform.text7.enabled=.t.thisform.text9.enabled=.t.thisform.edit1.enabled=.t.thisform.edit2.enabled=.t.thisform.optiongroup1.enabled=.t.thisform.refreshuse datadacxdj.dbf*append blankthisform.text1.value=thisform.text2.value=thisform.text3.value=thisform.text4.value=thisform.text5.value=thisform.text6.value=date()thisform.text8.value=thisform.text10.value=thisform.text7.value=thisform.text9.value=thisform.edit1.value= thisform.edit2.value= thisform.text1.setfocusbh=alltrim(thisform.text1.value)xm2=alltrim(thisform.text2.value)zzmm=alltrim(thisform.text3.value)zw=alltrim(thisform.text4.value)bm=alltrim(thisform.text5.value)rq=ctod(thisform.text8.value)qx=alltrim(thisform.text10.value)xm3=alltrim(thisform.text7.value)xm4=alltrim(thisform.text9.value)bz1=alltrim(thisform.edit1.value)bz2=alltrim(thisform.edit2.value) replace 编号 with bhreplace 查询人姓名 with xm2replace 政治面貌 with zzmmreplace 现任职务 with zwreplace 所属部门 with bmreplace 归还日期 with rqreplace 查询期限 with qxreplace 批准人姓名 with xm3replace 经办人姓名 with xm4replace 查询用途 with bz1replace 查询内容 with mand1.enabled=.mand2.enabled=.mand3.enabled=.mand4.enabled=.mand5.enabled=.mand6.enabled=.mand7.enabled=.t.2职员综合信息检索的源代码：do casecase alltrim(bo1.value)=部门thisform.grid1.recordsource=select * from jbqk where 部门=alltrim(thisform.text1.value) into cursor tmpcase alltrim(bo1.value)=员工号thisform.grid1.recordsource=select * from jbqk where 员工号=alltrim(thisform.text1.value) into cursor tmpcase alltrim(bo1.value)=姓名thisform.grid1.recordsource=select * from jbqk where 姓名=alltrim(thisform.text1.value) into cursor tmpcase alltrim(bo1.value)=性别thisform.grid1.recordsource=select * from jbqk where 性别=alltrim(thisform.text1.value) into cursor tmpcase alltrim(bo1.value)=文化程度thisform.grid1.recordsource=select * from jbqk where 文化程度=alltrim(thisform.text1.value) into cursor tmpcase alltrim(bo1.value)=籍贯thisform.grid1.recordsource=select * from jbqk where 籍贯 like alltrim(thisform.text1.value) into cursor tmpcase alltrim(bo1.value)=婚姻状况thisform.grid1.recordsource=select * from jbqk where 婚姻状况=alltrim(thisform.text1.value) into cursor tmpendcase if _tally=0 ? chr(7) =messagebox(对不起，无相关记录！,48,信息窗口) endif3职员综合信息检索重置的源代码：bo1.value=请选择查询类别thisform.text1.value=请填写关键字thisform.grid1.recordsource=4职员综合信息打印报表的源代码：do casecase alltrim(bo1.value)=部门select * from jbqk where 部门=alltrim(thisform.text1.value) into cursor tmpcase alltrim(bo1.value)=员工号select * from jbqk where 职员号=alltrim(thisform.text1.value) into cursor tmpcase alltrim(bo1.value)=姓名select * from jbqk where 姓名=alltrim(thisform.text1.value) into cursor tmpcase alltrim(bo1.value)=性别select * from jbqk where 性别=alltrim(thisform.text1.value) into cursor tmpcase alltrim(bo1.value)=文化程度select * from jbqk where 文化程度=alltrim(thisform.text1.value) into cursor tmpcase alltrim(bo1.value)=籍贯select * from jbqk where 籍贯 like alltrim(thisform.text1.value) into cursor tmpcase alltrim(bo1.value)=婚姻状况select * from jbqk where 婚姻状况=alltrim(thisform.text1.value) into cursor tmpendcase if _tally=0 ? chr(7) =messagebox(对不起，无相关记录！,48,信息窗口) endifreport form cx.frx preview5职员部门信息添加的源代码：use databmlbgo bott append blank thisform.text1.enabled=.t. thisform.text2.enabled=.t. thisform.refresh thisform.text1.value= thisform.text2.value= thisform.text1.setfocus mand1.enabled=.f. mand2.enabled=.f. mand3.enabled=.f. mand4.enabled=.f. mand5.enabled=.f. mand6.enabled=.f. mand7.enabled=.t. mand8.enabled=.f.thisform.refresh6职员部门信息编辑的源代码：mand1.enabled=.mand2.enabled=.mand3.enabled=.mand4.enabled=.mand5.enabled=.mand6.enabled=.mand7.enabled=.mand8.enabled=.f.thisform.text1.enabled=.t.thisform.text2.enabled=.t.thisform.text1.setfocus7职员部门信息清空的源代码：use databmlbzapthisform.text1.value=mand1.enabled=.mand2.enabled=.mand3.enabled=.mand4.enabled=.mand5.enabled=.mand6.enabled=.mand7.enabled=.mand8.enabled=.f.8员工档案转递的源代码：use datadazdgo bott append blank thisform.text1.enabled=.t. thisform.text2.enabled=.t. thisform.text3.enabled=.t. thisform.text4.enabled=.t. thisform.text6.enabled=.t. thisform.refresh thisform.text1.value= thisform.text2.value= thisform.text3.value= thisform.text4.value= thisform.text6.value= thisform.text5.value=date() thisform.text1.setfocus mand1.enabled=.f. mand2.enabled=.f. mand3.enabled=.f. mand4.enabled=.f. mand5.enabled=.f. mand6.enabled=.t. mand7.enabled=.f.9员工档案注销注销的源代码：ygh=alltrim(thisform.text1.value)yn=messagebox(确实要删除吗？,4+32,信息窗口)if yn=6use datagzdab delete from gzdab where ygh=员工号 pack close alluse datajbqk delete from jbqk where ygh=员工号 pack close alluse datajcjz delete from jcjz where ygh=员工号 pack close allmessagebox(成功删除员工档案+ygh,48,信息窗口) thisform.text1.value=endif 10工资级别设置添加按钮的源代码use datagzjbgo bottif (recno()=9) mand5.enabled=.f. messagebox(工资级仅为9级,无法添加,48,信息窗口)else append blank thisform.text1.enabled=.t. thisform.text2.enabled=.t. thisform.text3.enabled=.t. thisform.refresh thisform.text3.value= thisform.text3.setfocus mand1.enabled=.f. mand2.enabled=.f. mand3.enabled=.f. mand4.enabled