《用VF编写人事管理系统.docx》由会员分享,可在线阅读,更多相关《用VF编写人事管理系统.docx(43页珍藏版)》请在三一办公上搜索。
1、人事管理系统摘 要企业职工的人事管理是企业管理的一项重要内容。时代的进步,使得企业愈加庞大,而企业内部的人员也愈加复杂。如何管理好企业的员工问题已经成为各个企业必须要处理好的首要问题。随着信息技术的迅速发展,企业人事的传统管理模式逐渐被信息化及数字化的管理模式所取代,越来越多的企业、单位对人事都实行了信息化管理。传统的手工管理方式不仅工作量大、效率低下,而且容易出错。使用计算机系统代替繁琐冗余的手工方式来管理人事可以克服手工管理的缺点,将人们从繁杂的劳动中解放出来,并且仅使用一些简单的操作便可及时、准确地获得所需要的信息,使企业的人事管理工作系统化、规范化、自动化,从而达到提高企业人事管理效率
2、的目的。本系统从设计上采用模块化功能设计模式,将系统的功能划分为多个模块,在各模块中又包含功能子模块,各个模块之间既相互独立又存在着一定的联系,并且通过VFP的强大功能实现各个模块的功能。企业人事管理系统主要涉及的管理任务有九个方面:职工档案信息管理、职工查询、培训管理、职称评定管理、奖惩情况管理、人员调动管理、工资管理、系统维护和密码管理。本系统具有功能齐全、通用性强、操作简便、界面友好的特点,并且可使企业人事管理工作的系统化、规范化、自动化,达到了设计的目的。关键词:人事管理系统 模块化功能设计 信息化管理 VFP 自动化IPersonnel Management SystemAbstra
3、ctThe personnel management to the staff is an important job in every enterprise management. In modern times, the enterprises are getting more and more larger, workers are becoming larger and more complicated too. How to manage the staff problem well in an enterprise has become the chief problem of e
4、very enterprise. With the rapid development of information technology, the traditional enterprises personnel management have been gradually replaced by a mode of digitized and information management. A growing number of enterprises and units implement the information management on personnel. The tra
5、ditional manual management methods are not only heavy workload and low efficiency, but also prone to error. The use of computer systems to replace the cumbersome manual approaching to managing personnel are able to overcome the shortcomings of the management manual, and will liberate people from the
6、 complex labor. And using only some simple operations can be timely and accurate access to the information they need, so that make the personnel management of enterprises institutionalized and standardized, automation, and to achieve the purposes of improving efficiency of enterprises personnel mana
7、gement. This system is modular in design from the functional design patterns, and the function of the system is divided into a number of modules. Each module also contains features in the sub-module. Among the modules is independent but there is a certain degree of contact. And it achieve the functi
8、ons of each module through VFP. Enterprises personnel management system is mainly involved in nine major tasks of management: workers file and information management, workers search, training management, title evaluation management, incentive management, mobilization of personnel management, wage ma
9、nagement, system maintenance and administration management, password management. This system has features of fully functional, high universality, simple operation, user-friendly features, and the personnel management of enterprises will be the systematic, standardized, automation and achieve the obj
10、ective of the design.Key words::Personnel management system; Modular design features; Information management; VFP; Automation.II第一章 绪论1.1 系统开发背景1.2 系统开发工具的选择1.3 系统设计原则1.4 本设计应解决的主要问题第二章 系统分析2.1 需求分析2.1.1 总体需求2.1.2 功能需求:2.1.3 性能需求:2.1.4 可靠性需求2.2 可行性分析2.2.1 技术可行性2.2.2 经济可行性2.2.3 社会可行性2.2.4 管理可行性2.3 应用
11、环境第三章 人事管理系统总体设计3.1 系统的总体功能流程图3.2 系统数据表结构3.2.1 职工表结构3.2.2 工资表3.2.3 部门表3.2.4 培训表3.2.5 受训表3.2.6 职称评定表3.2.7 奖惩表3.2.8 员工调动表3.2.9 操作员表第四章 系统的详细设计4.1 系统主表单的实现4.1.1 系统主表单4.1.2 系统菜单4.2 档案管理模块4.2.1 “职工信息”子模块4.2.2 “职工查询”子模块4.2.3 “职工情况”子模块4.2.4 “打印职工信息”子模块4.3 培训管理模块4.4 职称评定模块4.5 奖惩管理模块4.6 调动管理模块4.6.1 “部门调动”子模块
12、4.6.2 “职务调动”子模块4.7 工资管理模块4.7.1 “计算工资”子模块4.7.2 “打印工资单”子模块4.8 系统维护模块4.8.1 “密码修改”子模块4.8.2 “添加操作员”子模块第五章 系统设计中的难点和解决技巧5.1 数据表的打开与关闭5.2 字体颜色设置5.3 SET命令简介5.3.1 SET命令用于系统环境设置5.3.2 SET命令用于系统优化第六章 结束语致 谢参考文献 (References)IV第一章 绪论1.1 系统开发背景在全球信息化时代的今天,我国的企事业单位正在不断的加速发展,因此企业管理的信息化也已越来越被人们所重视,特别是在人、财、物三个方面的管理中起着
13、十分重要的作用。其中人事管理信息系统,已在各级企事业单位中成为了规划和决策不可缺少的有力辅助系统。作为管理信息系统的一个子系统,它扮演者重要的角色詹武著. VisualFoxPro6.0 中文版编程实例详解M.北京:电子工业出版社,1992.12。如果没有科学的人事管理体制以及正确的人事政策,任何先进的科学技术都不能很好的发挥作用。而且在现代,人才是最企业重要的因素之一,对人事的管理自然显得尤为重要。在计算机技术的大范围普及以后,人事管理系统已经逐步摆脱传统的落后方式,尽可能采用现代化的管理手段,集合处理信息量大、快速和准确等优点,及时准确的给企业决策者提供准确的人事资料和各种数据,使其能对部
14、门的人员编制、人员调整、人才开发、人才使用和规划等,及时作出正确的决策傅翠娇编著. VisualFoxPro 典型系统实战与解析M.北京:电子工业出版社,2007.1。人事管理是每个企业必不可少的。人事管理系统一般包括对人事档案的统计、查询、更新、报表输出等功能。如果人工直接统计的话,工作量将十分庞大,特别是,如果企业的员工有几万或几十万人时,人工统计将变得不可想象。用计算机可使人们从繁重而又单调的统计运算中解脱出来,仅用一些简单的操作便可及时准确地获得需要的信息司红伟主编. VisualFoxPro6.0/7.0 基础 技巧与实例M.上海:上海科学普及出版社,2003.1。人事管理系统的主要
15、任务是对人事档案进行整理,使其能方便快捷地对人事档案进行查询、统计,更新、并且能按一定要求输出报表。通过该系统、使企业的人事管理工作系统化、规范化、自动化,从而提高企业人事管理明日科技编著. VisualFoxPro 数据库系统开发案例精选M.北京:人民邮电出版社,2006.8。随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。作为计算机应用的一部分,使用计算机对人事信息进行管理,有着手工管理所无法比拟的优点.例如:检索迅速、查找方便、可靠性高、存储量大、保密性好、寿命长、成本低、维护容易等。这些优点能够极大地提高人事
16、劳资管理的效率,也是企业管理的科学化、正规化管理,与世界接轨的重要条件侯丽梅,赵洪光主编.VisualFoxPro 程序设计基础与实训教程M.北京:清华大学出版社,2006.66 郭盈发,张红娟,赵伟华编著.VisualFoxPro6.0 及其程序设计M.西安:西安电子科技大学出版社,2001.107 李吉梅等编著. VisualFoxPro6.0 程序设计基础M.北京:清华大学出版社,20028 张钢. 企业管理系统分析M.成都:电子科技大学出版社,20019 张洪举. Visual FoxPro 权威指南M. 北京: 电子工业出版社,200710刘静.人事管理系统.中国建材科技J.2009
17、,(1)11 Ronald J.Norman,Object-Oriented System Analysis and DesignM.北京:2001清华大学出版社12 Francesco BalenaProgramming Microsoft Visual Fox Pro6.0M.Microsoft Press2002 一三 Gary CornellVisual Fox Pro 6 from the Ground UpMOsborne Mcgraw Hill2003 14 Michael Halvorson. Microsoft Visual Fox Pro 6 Professional (s
18、tep by step)M Microsoft Press2003。1.2 系统开发工具的选择针对目前世界上流行的大量软件和开发工具,经过认真分析其优缺点,结合目前的软硬件环境,选用微软Windows平台下的VisualFoxPro8.0(简写VFP8.0)作为开发工具。选用该工具具有以下几方面的优点:VFP8.0是比较好的关系型数据库管理系统开发软件。它提供了可视化的开发平台和面向对象的程序设计方法。大量控件的提供节省了开发工作量,提高了开发的效率。l VFP8.0提供了很多设计器,诸如“数据库设计器”、“表单设计器”、“菜单设计器”等另外还有一些向导工具,利用这些设计器和向导工具,不用编写
19、大量的程序代码,因而使开发工作变得比较轻松。l VFP本身就是一个数据库开发系统。使用它开发数据库系统效率高,稳定性好。l 综上所述,VFP8.0可以满足企业人事部门对人事管理的要求,所以用其来开发人事管理系统非常合适。1.3 系统设计原则人事管理系统的使用人员主要是人力资源部门的管理人员,使用的目的主要是安全高效地完成人事信息的管理,并对数据信息进行维护,包括档案管理、职称评定、奖惩管理、工资管理、人员调动管理和用户密码管理等。考虑到使用该系统的多为非计算机专业人员,所以在开发时要考虑以下几个方面:l 操作简便。因为使用者多为非计算机专业人员,所以该系统要求设计的界面美观,操作方便。要充分考
20、虑该软件的界面友好和操作方便,便于使用人员快速上手。l 易于维护。一个软件设计的好坏,关键在于产品的可靠性,稳定,便于维护。l 便于升级。随着社会的发展,对系统的要求会越来越高、要求系统具有更高的安全性、更丰富的功能以及更快的操作速度,所以在设计时要考虑到以后的升级问题。1.4 本设计应解决的主要问题本文重点研究人事管理系统的开发,全文共分为六章:第一章对系统进行概述,简要介绍人事管理的背景、系统的开发工具和系统设计的原则。第二章通过调研分析,对系统进行全面的需求分析、可行性分析以及介绍了系统的应用环境。第三章提出了系统的总体设计方案,并介绍了系统的数据表结构。第四章介绍了人事管理系统的详细设
21、计和具体实现,并简要介绍了档案管理、培训管理、职称评定管理、工资管理、奖惩管理、人员调动管理和系统维护管理的实现。第五章就系统创建中的一些难点和关键技术,如数据表的打开关闭、字体颜色设置、Set命令的使用等进行了研究和探讨。第六章在系统设计的基础上得出结论,并提出了系统需要改进的地方。第二章 系统分析2.1 需求分析2.1.1 总体需求通过以交流为主的系统初步调查的方式,了解到企事业单位在人事管理方面的的一些内容和工作流程情况。企事业单位现行的人事信息管理方式主要是使用传统人工的方式管理文件档案,这种管理方式存在许多缺点,如:效率低、保密性差,而且时间一长,将产生大量的文件和数据,对于查找、更
22、新和维护都带来了不少的困难。再加上用户数较多,而且分布分散,计算机的应用水平不高,使得一些企事业单位在人事信息管理方面也出现这些问题。这些都可以通过使用计算机来管理人事信息即开发一个基于VFP的人事管理系统来解决。其有着手工管理无法比拟的优点,如:查找迅速方便、可靠性高、保密性好、存储容量大、寿命长、成本低等等。由于采用VFP设计实现并编译成可执行文件,对计算机配置要求很低。这些都能极大的提高人事管理的效率,实现正规化、科学化的管理。2.1.2 功能需求:本系统必须具有功能齐全、操作简便、界面友好的特点,并且要使企业人事管理工作系统化、规范化、自动化,从而达到提高企业人事管理系统效率的目的。现
23、将该系统的具体功能需求分列如下:l 职工档案管理功能:对职工的档案信息进行管理。主要包括职工的基本信息、部门信息、培训记录以及奖惩情况等信息的浏览、修改和查询,还可以打印职工的档案信息。其中查询功能应该实现按职工号查询、按姓名查询和按部门查询等。l 培训管理功能:对职工的培训情况进行管理。主要包括培训记录管理以及参加培训的人员管理。l 职称评定管理功能:对职工进行职称评定。主要显示、修改和删除职工的职称情况记录。l 奖惩情况管理功能:对职工的奖惩情况进行管理。主要显示、修改和删除职工的奖惩情况记录。l 人员调动管理功能:对员工调动的情况进行管理。主要包括部门调动管理和职务调动管理。l 工资管理
24、功能:对职工的工资情况进行浏览、修改和删除,还可以打印工资条。l 系统维护管理功能:对系统进行维护。主要包括用户信息的添加、管理和用户密码的修改。l 密码管理功能:对操作员的密码进行管理。在操作员登录系统时,首先要核对操作员的职工号;如果是本企业的职工,接着核对输入密码是否正确。登录成功后系统自动记录下该用户的权限并与数据库进行核对,如果是管理员则可以进行一切浏览、添加、修改和删除的操作;如果是普通职工,则只能进行基本的浏览操作。对密码进行统一管理,没有操作权限的职工不能进入本系统,从而保证了系统的安全。l 退出系统:离开人事管理系统。2.1.3 性能需求:l 职工的查询功能应该在0.1秒内从
25、上百条记录中检索出需要的职工信息。l 职工档案所支持的记录总数应该越多越好,至少在500条以上。l 用户密码修改之后必须在重新登录之后立即生效。2.1.4 可靠性需求由于本系统的用户分为普通职工和管理员,因此必须提供很高的可靠性,避免各项资料被窃取。采用权限分离得方法得以实现。系统在登录时,要与数据库中的用户表核对操作员的职工号和密码,在登录成功后自动记录下该用户的权限并与数据库进行核对,并分别赋予其可以进行的操作。对密码进行统一管理,没有操作权限的职工不能进入本系统,普通职工不能进行某些功能的修改操作,从而保证了系统的可靠性。2.2 可行性分析2.2.1 技术可行性Visual Foxpro
26、提供了一个统一的、紧密集成的、可视化的、面向对象的编程环境,简化了开发应用程序的过程,缩短了实用方法的时间。利用VFP,可以非常轻松地创建具有自动伸缩能力的可靠的表单、应用程序和组件。数据库方面VFP自带的关系数据库管理功能已经可以满足中小型企业的数据要求,甚至有些大型企业都可以达到要求。如今进算计普及程度日益推广,计算机配置日新月异,能承载此系统的机器就如办公的机器都可以达到要求。所以说本系统具有技术可行性。2.2.2 经济可行性(1)资金可得性由于系统开发并不复杂,操作起来也比较简单,只需一些基本的编辑软件,另外具备网络中心的一些资源优势,因此开发费用较低。(2)经济合理性由于该系统用于企
27、业工作的大部分信息发布和传递工作,不仅能够节省大量的人工信息传递任务,提高了工作效率,更加有利于整个企业各部门之间的无纸化办公的推广。2.2.3 社会可行性随着计算机的发展与普及,以及互联网技术的扩展,日常劳资人事管理必将实现无纸化办公,并且加入到公司内部局域网上去,实现数据的共享,这样有利于劳资人事信息在单位内部的查询,提高了数据资源的利用,并且能及时的得到更新,不需要象过去那样浪费大量的人力物力去进行抄写,提高了工作的效率。人事管理工作覆盖面广,涉及到机构设置、人员调配、员工培训、考核、奖惩、工资福利待遇等多个方面。人事管理活动中产生的大量数据和信息,如:各级机构的层次构建,职工的自然状况
28、,职称、职务变动情况,考核培训结果,专业技术工作及主要业绩以及针对这些数据进行的各类统计报表的制作和综合分析等。对如此多的数据、信息的管理、开发及运用,都必须在规范化和标准化的基础上实现,借助于网络化管理手段能够满足这些要求。2.2.4 管理可行性本系统采用了权限分离、管理和使用分开的功能,而且界面层次分明,一目了然,加上设计方面加入了人性化元素。管理此系统并不难,易学易会。2.3 应用环境该系统使用微软Windows平台下的Visual FoxPro 8.0进行开发。因为其具有用户的普遍性,功能的完整性,工具的易用性,同时它也是较好的数据库开发软件。应用环境:普通PC CPU:赛扬 500M
29、HZ以上内存:128M以上分辨率:推荐使用1280800像素运行平台:Windows 9x,2000,xp等第三章 人事管理系统总体设计3.1 系统的总体功能流程图为了开发人事管理系统,需要设计若干表、表单、程序、报表和主菜单,由项目管理器统一管理。由主程序进入系统,再由主程序调出用户登录界面。登录成功后调出应用系统的主菜单,由主菜单调出各个表单界面。使得整个系统的结构紧凑、简洁;功能明确、完整。本系统采用模块化设计方法,遵循高内聚,低耦合的原则,按照系统的功能进行模块划分,力求使每个模块都实现独立的功能。系统总体功能流程图如图3-1所示。系统主界面验证密码主菜单退出系统职称评定档案管理培训管
30、理工资管理人员调动职工信息查询职工信息浏览职工信息录入培训情况受训情况添加培训记录职称信息浏览职称信息修改计算工资修改工资打印工资条部门调动职务调动系统维护管理操作员修改密码奖惩管理浏览奖惩记录修改奖惩记录图3-1 系统总体功能流程图3.2 系统数据表结构在应用系统的开发过程中,数据库的结构设计是一个非常重要的环节。数据库结构设计的好坏将直接对应用系统的效率及实现的效果产生重要影响。好的数据库结构,查询记录的速度快,而且也不容易出现锁表现象。以下便是通过VisualFoxPro8.0设计的数据表:3.2.1 职工表结构分析人事信息的管理情况,首先需要了解职工的基本情况信息,包括职工的学历、户口
31、、专业、签约日期、到期日期,还要有职工的公积金帐号、养老金帐号等。“zhigong”包含了企业职工的所有基本信息,为各表单的职工信息提供数据来源。职工表的逻辑结构设计如表3.1所示:表3.1 职工表“zhigong”字段名字段类型字段宽度小数位索引职 工 号姓 名部门代码性 别出生年月民 族籍 贯户 口婚姻状况学 历政治面貌专 业毕业院校身份证号养老金帐号公积金帐号职 称职 务行政级别x手 机家庭住址字符型字符型字符型字符型字符型字符型字符型字符型字符型字符型字符型字符型字符型字符型字符型字符型字符型字符型字符型字符型字符型字符型101010281010108682020一八一八一八10101
32、0121220无主索引普通索引电子邮件工资等级外语语种外语水平爱 好特 长在职状态用工形式入职日期合同签订日期合同到期日期参加工作日期个人简介字符型字符型字符型字符型字符型字符型字符型字符型日期型日期型日期型日期型字符型20101010202010108888203.2.2 工资表工资表(gongzi)和职工表一样都是人事管理系统数据库中的数据表结构,属于辅助表,主要功能是为与工资信息相关的各个表单提供数据来源。通过工资表单,可以对职工工资进行计算、打印等。工资表的逻辑结构设计如表3.2所示: 表3.2 工资表“gongzi”字段名字段类型 字段宽度小数位索引否职 工 号姓 名部门代码标准工资
33、活动工资行业津贴岗位工资公 积 金养老保险房 补房 租三 险个人所得税应发工资实发工资字符型字符型字符型数值型数值型数值型数值型数值型数值型数值型数值型数值型数值型数值型数值型10106888888888888222222222222主 索 引普通索引3.2.3 部门表部门表(bumen)也是系统数据库中的辅助表,作用是为表单中的“部门代码”和“部门名称”提供数据来源。部门表的逻辑结构设计如表3.3所示:表3.3 部门表“bumen”字段名字段类型字段宽度小数位索引否部门代码部门名称字符型字符型1020无主索引3.2.4 培训表当企业对员工进行培训时,要对培训记录如培训名称、培训单位、培训开始
34、和结束日期、培训费用和内容进行登记,此时就需要建立培训表。培训表作为系统数据表结构,也为各个培训记录提供数据来源。培训表(peixun)的逻辑结构设计如表3.4所示:表3.4 培训表“peixun”字段名字段类型字段宽度小数位索引否培训代号培训名称培训单位开始日期结束日期培训地点培训总费用培训内容字符型字符型字符型日期型日期型字符型数值型备注型10202088101042主索引3.2.5 受训表受训表(shouxun)也是系统中的一个辅助表,其主要功能是为各个受训表记录提供数据来源。受训表的逻辑结构设计如表3.5所示:表3.5 受训表“shouxun”字段名字段类型字段宽度小数位索引否职 工
35、号培训代号姓 名培训结果培训费用字符型字符型字符型字符型数值型10101010102主索引普通索引3.2.6 职称评定表职称评定表(zhicheng)也是系统数据库中的数据表结构,其主要功能是为职称评定表单中各项记录提供数据来源。职称评定表的逻辑结构设计如表3.6所示:表3.6 职称评定表“zhicheng”字段名字段类型字段宽度小数位索引否职 工 号姓 名职 称取得日期取得方式聘用开始日期聘用结束日期字符型字符型字符型日期型字符型日期型日期型10101081088无主索引聘用单位字符型203.2.7 奖惩表在企业人事管理中,对于有功的员工要进行奖励,有失误的员工进行惩罚,在此基础上建立了奖惩
36、表。作为系统中的辅助表,奖惩表(jiangcheng)的主要功能是为奖惩表单中各个记录提供数据来源。奖惩表的逻辑结构设计如表3.7所示:表3.7 奖惩表“jiangcheng”字段名字段类型字段宽度小数位主索引职 工 号姓 名奖励情况奖惩原因奖惩内容奖惩日期撤销原因撤销日期字符型字符型字符型字符型字符型日期型字符型日期型1010220208208无主索引3.2.8 员工调动表员工调动表(diaodong)也是人事管理系统中的一个辅助表,其主要功能是为员工调动表单中的各项记录提供数据来源。员工调动表的逻辑结构设计如表3.8所示:表3.8 员工调动表“diaodong”字段名字段类型字段宽度小数位
37、主索引职 工 号姓 名调动日期调动类型调前部门调后部门调前职务调后职务调动原因经 办 人字符型字符型日期型字符型字符型字符型字符型字符型字符型字符型1010810202010102010无主索引3.2.9 操作员表作为人事系统中的一个辅助表,操作员表(user)的主要功能是为操作员表单提供数据来源。通过该表,可以对操作员进行添加或删除等,并且可以对其权限进行设置,防止越限操作。操作员表的逻辑结构设计如表3.9所示:表3.9 操作员表“user”字段名称字段类型字段宽度小数位索引否职工号姓名密码权限字符型字符型字符型字符型1010103无主索引第四章 系统的详细设计4.1 系统主表单的实现用户打
38、开人事管理系统,进入系统主表单,然后通过主表单进入到系统登录框。打开的系统主表单如图4-1所示:图4-1 系统主界面4.1.1 系统主表单在VFP中,应用程序的入口称为主文件,是数据管理系统最先执行的程序,本系统将主程序设置为主文件。运行时系统将从主程序开始执行,然后由主程序调用主表单。主程序代码如下:SET TALK OFF &关闭对话SET ESCAPE OFF &关闭ESCAPE键SET EXACT ON &打开完全匹配SET EXCLUSIVE ON &打开独占SET CONSOLE ON &将输出结果到发送到VFP主窗口或当前的活动窗口SET DATE TO LONG &设置长日期S
39、ET SCORE OFF &关闭分值栏SET SAFETY OFF &关闭安全提示SET STATUS BAR OFF &关闭系统提示栏SET CENTURY ON &打开世纪开关SET DELETED ON &屏闭删除项SET SYSMENU OFF &关闭系统菜单SET NOTIFY OFF &关闭提示&设置系统窗口属性_SCREEN.MaxButton = .T. &可用最大化按钮_SCREEN.MaxWidth = 1280 &设置最大宽度_SCREEN.MaxHeight = 800 &设置最大高度_SCREEN.Caption = 人事管理系统 &设置窗口标题_SCREEN.Pic
40、ture = f:pmsmain1.jpg &设置窗口背景图片_SCREEN.AutoCenter = .T. &指定表单初次显示时,自动位于主窗口中央&定义全局变量public UserName, UserType &分别用来存储职工号及权限PUBLIC bm &定义公共变量bm=00000zoom window screen max &窗口最大化modify window screen title 人事管理系统+space(30)+今天是;+str(year(date(),4)+年+str(month(date(),2)+月+str(day(date(),2)+日 &修改窗口标题,加入当天
41、时间DO form f:pmsdengluform &打开登录表单Do f:pmsmenu.mpr &打开菜单READ events &设置停留Procedure OnQuit &退出的过程 CLEAR EVENTS CLOSE ALL QUITEndproc在主程序运行后,系统执行到登录表单命令,即进入系统登录框。打开的登录框界面如图4-2所示。图4-2系统登录界面此表单的Init过程代码为:IF NOT USED(user) USE user IN 0ENDIFSELECT user“登录”按钮的Click事件代码为:IF ALLTRIM(thisform.text1.Value) = M
42、essageBox(请输入职工号) RETURNENDIFIF ALLTRIM(thisform.text2.Value) = MessageBox(请输入密码) RETURNENDIFSELECT user&查找指定用户名为的记录Locate For Allt(职工号)=Allt(thisform.text1.Value)If Found() = .T. &如果找到 If Allt(密码) = Allt(thisform.text2.Value) &比较密码,成功则进入 MessageBox(欢迎光临, 64, 提示信息) UserName = 职工号 &记录登录用户的职工号 UserType = 权限