员工培训管理系统

《员工培训管理系统》由会员分享，可在线阅读，更多相关《员工培训管理系统（38页珍藏版）》请在装配图网上搜索。

1、员工培训管理系统在竞争越来越激烈的今天，企业员工的培训越来越受到各个企业领导的重 视。通过员工培训管理系统，使企业的培训工作系统化、规范化、自动化、从而 达到提高企业培训管理效率的目的。我们将以一个典型企业的培训管理系统为例子，来讲述如何建立一个员工培 训管理系统。第 1 章 系统设计的目的和意义1.1 系统设计的目的通过一个员工培训管理系统，使企业的培训工作系统化、规范化、自动化、 从而达到提高企业培训管理效率的目的。系统开发的总体任务是实现企业员工培训管理的系统化、规范化、自动化。1.2 系统设计的意义本系统设计的意义：(1) 尽量采用公司现有软硬件环境及先进的管理系统开发方案，从而达 到

2、充分利用公司现有资源，提高系统开发水平和应用效果的目的。(2) 系统应符合公司员工培训管理的规定，满足公司是日常员工培训工 作需要，并达到操作过程中的直观、方便、实用、安全等要求。(3) 系统采用模块化程序设计方法，即便于系统功能的各种组合和修改， 又便于未参与开发的技术维护人员补充、维护。(4) 系统应具备数据库维护功能，及时根据用户需求进行数据的添加、删除、修改、备份等操作。第 2 章 需求分析2.1 系统开发和运行环境选择开发工具：Visual FoxPro 6.0。运行环境： Windows 9x、Windows NT 或 Windows 2000。2. 2 数据需求 数据需求是数据结

3、构设计的第一个阶段，是非常重要的一个阶段。在这个阶 段主要是收集基本数据、数据结构以及数据处理的流程，组成一份详尽的数据字 典，为以后进一步设计打下基础。在仔细调查企业员工培训管理过程的基础上，我们得到本系统所处理的数据 流程如图 1-1 所示。针对本实例，通过对企业员工培训管理的内容和数据流程分析，我们设计的 数据项和数据结构如下：a) 员工基本状况。包括的数据项有：员工号、员工姓名、性别、所在部门 身份证号、生日、籍贯、国籍、民族、婚姻状况、健康状况、参加工作 时间、员工状况、状态时间、家庭地址、联系电话等。b) 员工成绩状况。包括的数据项有：员工号、课程名称、时间、地点、授 课教师、成绩

4、、评价、是否通过等。c) 课程信息。包括的数据项有：课程号、课程类别、课程名、课程学时、 等效课程、预修课程、开课部门、初训/复训等。d) 企业工作岗位信息。包括的数据项有：工作岗位代号、工作岗位名称、 工作岗位权力范围等。e) 企业部门信息。包括的数据项有：部门代号、部门名称、部门副经理等。f) 培训需求信息。包括的数据项有：所需培训的课程、要求培训的员工。g) 企业培训计划信息。包括的数据项有：培训的课程、培训开始时间、结 束时间、培训教员、上课时间、上课地点等。h) 个人培训计划信息。包括的数据项有：培训员工、培训课程、培训开始 时间、培训结束时间等。i) 课程评价信息。包括的数据项有：

5、课程名、评价内容、评价时间等。j) 教员信息。包括的数据项有：教员号、教员姓名、开始教课时间、教员评价等。k) 培训资源管理信息。包括的数据项有：各个教室、教学设备的配备情况、 各种教学教具借用情况、培训中心固定资产管理、各种培训费用和支出 培训资源需求管理等。l) 培训教材管理。包括的数据项有：教材适合的课程、作者、教材状态、 教材数量、价钱等。2.3 功能需求 功能需求是在系统开发的总体任务的基础上完成。本例子中的员工培训管理 系统需要完成功能主要有：(1) 员工各种信息的输入，包括员工基本信息、职称、岗位、已经培训过 的课程和成绩、培训计划等。(2) 员工各种信息的查询、修改，包括员工基

6、本信息、职称、岗位、已经 培训过的课程和成绩、培训计划等。(3) 培训课程信息的输入，包括课时、课程种类等。(4) 培训课程信息的查询、修改。(5) 企业所有员工培训需求的管理。(6) 企业培训计划的制定、修改。(7) 培训课程的评价。(8) 培训管理系统的使用帮助。(9) 教师信息的管理、教师评价。(10) 培训资源管理。(11) 培训教材管理。(12) 员工外出培训管理。(13) 系统用户管理、权限管理。第3章 数据库设计数据库设计的任务是确定系统所需的数据库。数据库是表的集合，通常一个系统只需一个数据库。数据库设计可分为逻辑设计与物理设计两个步骤。3.1 逻辑设计设计从分析输入数据着手，

7、输入数据中的某类相关数据可以归纳为一个表。 对需要同时调用的若干表，应使它们符合关联要求。这一设计阶段是在需求分析 的基础上，设计出能够满足用户需求的各种实体。本实例根据上面的设计规划出的实体有：员工实体、部门实体、岗位实体教员实体、教学资源实体、教材实体、课程实体。实体和实体之间的关系如图所示。冈位使用担任需求学员使用计划属于教学属于教员课程部门教材资源3.2 物理设计 下面列出员工培训管理系统所有表的结构与必须的索引，为便于读者理解 本例系统，顺便也列出表的部分记录。1PERSONNEL 员工基本状况表结构：Personnel (员工号 c(6), 员工姓名 c(10), 所在的部门号 c

8、(3), 学历 c(10), 性别 c(2), 生日 d, 籍贯 c(10), 国籍 c(10), 民族 c(10), 身份证号 c(20), 婚姻状况c(4),健康状况c(20),参加工作时间d,员工状况c(10)，家庭地址c(10),联系电 话c(10),联系email地址c(20),工作岗位代号c(3)记录：员工号员工姓名所在的部门学历性别生日籍贯国籍民族1杨露餐饮部中专女05/04/84云南中国汉2王俊客房部大专男12/24/83云南中国汉3张升办公室大专男05/12/80云南中国汉4米米总台大专女12/14/84云南中国汉2SCORE 员工成绩表结构：score(员工号c(6),课程

9、号c(3),上课时间t,上课地点c(10),教师号c(3),成 绩1n，成绩2n(3),教师评语m,是否通过1)记录：员工号课程号上课时间上课地点教师号成绩成绩教师评语10112/11/2006旅游学校017885Memo20212/11/2006旅游学校027774Memo30312/11/2006旅游学校038889Memo40412/11/2006旅游学校048885Memo3JOB 工作岗位情况表结构：Job(工作岗位代号c(6),工作岗位名称c(10),工作岗位权力范围c(10)记录：工作岗位代号工作岗位权力范围001餐饮部餐饮服务002客房部客房服务003办公室办公室内004总台前

10、台服务工作岗位名称课程表格4COURSE结构：Coruse(课程号c(3),课程类别c(10),课程中文名称c(20),课程英文名称c(10), 课程描述m,学时c(3),教材c(10),等效课程号c(3),先修课程号c(3),初训/ 复训标志 c(1), 开课部门 c(3)记录：课程号课程类别课程中文名称课程描述学时教材等效课程01餐饮服务餐饮服务礼节Memo24餐饮服务课0102客房服务客房服务礼节Memo24客房服务课0203党员培训党员培训课Memo24党员培训课0304前台服务前台服务课Memo24前台服务课045DEPT 部门信息表结构：Dept (部门代号 c(3), 部门名称

11、c(10), 部门经理代号 c(6), 部门副经理代号 c(6)记录：部门代号部门名称部门经理代号部门副经理代号01餐饮部0101102客房部0202103办公室0303104总台040416培训需求表 COURSE_NEED结构：Course_need(课程号c(3),课程需要者c(6)记录：课程号 课程需要者01杨露02王俊03张升04米米7企业培训计划表 COURSE_AVAILABLE 结构：course_available(课程号c(3),课程开始时间d,课程结束时间d,教师号c(6),上课的人数 I, 上课的地点 c(10)记录：课程号课程开始时间课程结束时间教师号上课的人数上课的

12、地点0112/11/0612/13/060110旅游学校0212/11/0612/13/060210旅游学校0312/11/0612/13/06031旅游学校0412/11/0612/13/06042旅游学校8个人培训计划表 PERSONNEL_PLAN结构：Personnel_plan(员工号c(6),课程号c(3),课程开始时间d,课程结束时间d)记录：员工号课程号课程开始时间课程结束时间10112/11/0612/13/0620212/11/0612/13/0630312/11/0612/13/0640412/11/0612/13/069课程评价表 COURSE_EVALUATION结构

13、：Course_evaluation (课程号 c(3), 评价时间 d, 评价内容 m)记录：课程号评价时间评价内容0112/13/06Memo0201/11/07Memo0312/13/06Memo0401/10/07Memo10教员信息表 TEACHER结构：Teacher(教员号c(6),教员姓名c(10),教员学历c(10),开始教的时间d,教员评价 m)记录：教员号教员姓名教员学历开始教的时间教员评价01杨茜本科12/11/06Memo02王美美本科12/11/06Memo03王智强研究生12/11/06Memo04杨学刚本科12/11/06Memo11培训资源信息表 TM_RES

14、OURCE结构：Tm_resource(资源代号c(3),资源名称c(10),资源状态标记c(l),资源价钱 n(7,0), 资源数量 c(2), 备注 m)记录：资源代号资源名称资源状态标记资源价钱资源数量备注01餐饮服务165010Memo02客房服务265010Memo03党员培训37001Memo04前台服务46502Memo12 教材信息表 BOOK结构：Book(教材编号c(3),教材名称c(20),作者c(15),教材状态标记c(1),相应课程编号 c(3), 教材数量 c(6), 教材价钱 n(7,0)记录：教材编号 教材名称作者 教材状态标记 相应课程编号教材数量教材价钱01

15、餐饮服务课李加诚101104502客房服务课杨佳202104003党员培训课王永民30313504前台服务课曾婷40423513管理 TMS 系统的用户口令表 USER_PSWD 结构：User-pswd(用户名 c(10), 口令 c(10),权限 c(l)记录：用户名口令权限杨齐虹5120132李海燕52013142第 4 章 应用程序设计4.1 主文件及总体结构图主文件：（mainmenu）按照功能分类系统的总体结构可用层次图（Hierarchy Chart,简称HC图）来表 示。这种图自上而下进行分层：第一层为系统层，通常对应主程序；第二层为子 系统层，一般起分类控制作用，但是当该层没

16、有下一层次时也可直接用来表达功 能（例如图中的其他等）；第三层为功能层；第四层为操作层。所示的培训管理系统有 3 个层次，系统功能分类如下：培训需求管理、培训 计划管理、培训效果评价、培训计划实施、培训资源管理其他各为一类，课程信 息管理、学员基本信息管理和成绩信息管理归入基本信息管理一类，用户管理和 权限管理归入系统管理一类。图中未画出操作层，该层次程序设计将在菜单设计 时列出。培训管理系统4.2 菜单设计往命令窗口键入命令 MODI MENU QCXLCD ，就会出现菜单设计窗口，此 时可按图来建立菜单。4.3 用户界面设计与编码(1)开始界面的设计 该模块的主要功能是当用户启动使用员工培

17、训管理系统时，显示一友好欢 迎界面。开始界面上的欢迎词每隔 1秒闪烁一次。当用户按下键盘上任一按键时， 系统自动进入下一级表单，即“ mainmenu”表单。本模块设计简单，利用一个 表单即可实现。以下将介绍这一模块的设计步骤：首先新建一个表单，将其保存为“Welcome”，将该表单的“Caption”属性设 置为“欢迎界面”，“Desktop”属性设置为“.T.-True”。给该表单添加一张图片背景以使开始界面美观，设其“ Picture”属性为所要 添加图片的路径名，然后为该表单添加1个“Timerl”控件和1个“Labell”控 件。将“Timer1”控件中“ Interval的属性修改

18、为“ 1000”，“Interval的属性 值的单位是ms这样当每间隔一秒钟将触发一次“Timer1 Event”事件。“Label1”控件的“Caption ”属性为所要显示的欢迎词，“Back Style”属 性修改的目的是使“ Label1”控件的背景透明以显示出表单上的图片。修改其 “Font Name”、“Font Size”和“Fore Color”属性是为了调整字体样式，以显示得 美观。下面将为各个事件添加代码。在“Welcome表单的“ init”事件添加代码如下：PUBLIC NTIMENTIME=0在“Welcome”表单的“Key Press”事件添加代码如下：THISF

19、ORM.RELEASERELEASE NTIMEDO FORM YGPXFORMMAINMENU在“ Timer 表单的“ Timer Event事件添加代码如下:IF NTIME=1THISFORM.LABEL1.VISIBLE=.T.NTIME=0ELSETHISFORM.LABEL1.VISIBLE=.F.NTIME=1ENDIF 开始界面的设计结果如图所示。欢迎使用员工悟诃管理绝铉H(2) 退出界面的设计 该模块的设计目的是当用户退出系统时显示感谢词，画面停留两秒后自动退 出。这一模块利用一个表单实现其功能。 这一模块的设计方法同开始界面的设计方法类似。首先新建一个表单，保存为“End

20、”，在其上添加1个“Timerl”控件和1个“Labell”控件。在“Timerl表单的“Timerl Event中添加代码如下：THISFORM.RELEASECLEAR EVENT *释放表单并停止由 READ EVENT 开始的事件处理 *令程序从 READ EVENT 的下一条程序行继续执行退出界面设计结果如图所示。(3)功能选择界面本模块主要是为用户提供一个功能选择界面，根据用户所需的不同选择，打 开不同的下级菜单并提供相应的功能服务。本模块利用一个表单可以实现其功 能。下面我们介绍本模块的设计。首先新建一个表单Form 1,将其保存为“ mainmenu” ,在表单上添加1个 “O

21、ptiongroup控件、1 个“image控件和 2 个“command控件。下面为表单中各事件添加代码。在“确定”按钮的“ Click事件添加代码 如下： do casecase thisform.optiongroup1.option1.value=1do form pxxqglcase thisform.optiongroup1.option2.value=1do form pxjhglcase thisform.optiongroup1.option3.value=1do form jbxxglcase thisform.optiongroup1.option4.value=1do

22、form pxxgpjcase thisform.optiongroup1.option5.value=1do form pxjhsscase thisform.optiongroup1.option6.value=1do form pxzyglcase thisform.optiongroup1.option7.value=1do form xtglcase thisform.optiongroup1.option8.value=1do form qtendcase在“退出”按钮的“ Click”事件添加代码如下:do form endthisform.release 功能选择模块的设计结果

23、如图所示。价。下面我们介绍本模块的设计。首先新建一个表单Forml，将其保存为“pxxgpj (培训效果评价)”，在表单上 添加1个“text控件、2个“combo控件、2个“command”控件和4个“label 控件。下面我们为表单中各事件添加代码。首先在“forml按钮的“init事件添加代码如下：SET MULTILOCKS ONCURSORSETPROP(BUFFERING，3)PUBLIC STR1STR1=在“combo1 按钮的“interactive change 事件添加代码如下：LOCATE FOR COURSE_ID_A=THISFORM.COMBO1.VALUE TH

24、ISFORM.COMBO2.VALUE=COURSE_CNAME THISFORM.EDTEVALUATION.REFRESHSTR1=THISFORM.EDTEVALUATION.VALUE在“combo2按钮的“interactive change 事件添加代码如下：LOCATE FOR COURSE_CNAME=THISFORM.COMBO2.VALUE THISFORM.COMBO1.VALUE=COURSE_ID_A THISFORM.EDTEVALUATION.REFRESHSTR1=THISFORM.EDTEVALUATION.VALUE在“输入”按钮的“ Click事件添加代码

25、如下：THISFORM.TEXT1.VALUE=DATE() RESULT=TABLEUPDATE(.F.)IF RESULT=.T.IF LEN(STR1)=0?CHR(7)MESSAGEBOX(课程评价添加成功,48,消息窗口 ) ELSE?CHR(7)MESSAGEBOX(n课程评价修改成功,48,消息窗口 “)ENDIFENDIF在“退出”按钮的“ Click”事件添加代码如下：THISFORM.RELEASERELEASE STR1本模块的设计结果如图所示。(5) 基本信息管理模块这一部分的主要功能是用户提供一些基本信息的查询，包括课程基本信息 管理、学员基本信息管理和成绩基本信息管

26、理。对于这一部分的介绍，我们将以学员基本信息管理为例，其他两个子模块 的设计与学员基本信息管理子模块类似。这一模块的设计分为三层，第一层是基本信息管理功能选择界面的设计， 这一部分将为进入下面对应功能的子模块提供一个接口，利用一个表单来实现。 在学员基本信息管理子模块中，根据查询要求选择学员姓名，这一界面将为进入 对用户具有真正价值的第三层模块提供必要的数据，这一模块也是通过一个表单 来实现的。在第三层学员基本信息管理子模块中，将根据要求提供相关学员基本 信息和培训课程的列表，这一模块也是通过一个表单来实现的。下面我们介 绍这些模块的创建。我们先来设计第一层模块，即基本信息管理功能选择界面。首

27、先新建一个表单forml,将其保存为“jbxxgl （基本信息管理）”，在表单上 添加1个“ containerl 控件和1个“ commandl 控件。在“containerl控件上添加3个“command控件。下面我们为表单中各事件添加代码。在“课程信息管理”按钮的“ Click” 事件添加代码如下：DO FORM KCXXGL在“学员基本信息管理”按钮的“ Click” 事件添加代码如下：DO FORM XYJBXXGL在“成绩信息管理”按钮的“ Click” 事件添加代码如下：DO FORM CJXXGL在“退出”按钮的“ Click事件添加代码如下：THISFORM.RELEASE

28、将本表单保存后，这一层模块的设计就完成了。 本表单的设计结果如图所示。第二层表单的设计，首先新建一个表单，将其保存为“xyjbxxgl （学员基本 信息管理）”，路径为“”。在表单上添加1个“combol”控件和1个“ labell”控 件和 2 个“ command” 控件。表中各事件代码如下。在“forml”的“ init”事件添加代码如下：PUBLIC PAR1，PAR2PARl=PAR2=在“确定”按钮的“ Click”事件添加代码如下：PARl=ALLTRIM（THISFORM.COMBOl.VALUE）PAR2=PARlDO FORM XYJBXX在“退出”按钮的“ Click”事

29、件添加代码如下：THISFORM.RELEASE本表单的设计结果如图所示。1 二$禰走退出第三层表单的设计，首先新建一个表单，将其保存为“xyjbxx （学员基本信 息）”，在表单上添加1个“command”控件和2个“ labell”控件。同时，我们要为该表单添加数据环境，添加方法同前。在表中添加完数据环 境之后将数据环境中视图view2中的字段“emp-nO”、“emp-name”、“dept-id”、“emp-xl”、“emp-gender ”、“job-id”、和 “job-name” 拖放到表单中，由于这些 字段在表中都是“ character ”型，因此当拖放到表单中后将形成对应的

30、“ label” 和“ text ”控件。我们再将数据环境中视图 view3 中的后有字段发表格的形式拖放到表单中，形成引用名为“Grdview3”的表格控件。该表单中仅有的事件添加代码。在“退出”按钮的“ Click”事件添加代码如下:THISFORM.RELEASE本表单设计结构如图所示。课程中文名称 餐饮服务礼节 蜩模块 党员培训课性别工作岗位代号工作岗位名称课程英文名称(6)培训资扌的主要功能是提源的信息输入，便于用户及学时242424供现有培训资源时了解可用培训资源源信息的浏览、修改和删除，以及新资 匕二瓦提供培训的质量和效果。首先新建一个表单，将其保存为 “pxzyg|( 培娜源管

31、理)”，在表单上添加2个“labell”控件，1个自建的“fy”控件和4个“command”控件。接着，为该表添加数据环境，方法同前。将表“ tm-resource”添加到本表单的数据环境中。添加之后我们将数据环境中表tm-source中的所有字段拖放到 表单中，形成5个“text”控件、1个“edit”控件和6个对应的“label”控件。面为表单中各事件添加代码。在“form1”的“ init”事件添加代码如下:SET MULTILOCKS ONCURSORSETPROP (BUFFERING， 3)在“ fy ”控件的“init”事件添加代码如下：USE 培训资源信息表 TM_RESOUR

32、CE在“修改/提交”按钮的“ Click”事件添加代码如下:LOCAL FLAGFLAG=0DO CASECASE LEN (ALLTRIM (THISFORM.TXTRESOURCE_ID.VALUE)=0MESSAGEBOXC请输入资源代号,48,信息窗口 “)DELETPACKGO TOPFLAG=1CASE LEN (ALLTRIM (THISFORM.TXTRESOURCE_NAME.VALUE)=0MESSAGEBOX(请输入资源名称,48,信息窗口 “)DELETPACKGO TOPFLAG=1ENDCASEIF FLAG=0RESULT= TABLEUPDATE (.F.)IF

33、 RESULT = .T.? CHR (7)MESSAGEBOX(修改/提交成功!,48,消息窗口 “)ENDIFENDIFTHISFORM.TXTRESOURCE_ID.REFRESHTHISFORM.TXTRESOURCE_NAME.REFRESHTHISFORM.TXTRESOURCE_MARK.REFRESHTHISFORM.TXTRESOURCE_PRICE.REFRESHTHISFORM.TXTRESOURCE_QUATITY.REFRESH THISFORM.EDTRESOURCE_REM.REFRESHRELEASE FLAG在“添加”按钮的“ Click”事件添加代码如下：A

34、PPEND BLANKTHISFORM.TXTRESOURCE_ID.REFRESHTHISFORM.TXTRESOURCE_NAME.REFRESHTHISFORM.TXTRESOURCE_MARK.REFRESHTHISFORM.TXTRESOURCE_PRICE.REFRESH THISFORM.TXTRESOURCE_QUATITY.REFRESH THISFORM.EDTRESOURCE_REM.REFRESH 在“删除”按钮的“ Click”事件添加代码如下： DELETEPACKMESSAGEBOX（删除成功!,48,信息窗口 ）THISFORM.TXTRESOURCE_ID.R

35、EFRESH THISFORM.TXTRESOURCE_NAME.REFRESH THISFORM.TXTRESOURCE_MARK.REFRESH THISFORM.TXTRESOURCE_PRICE.REFRESHTHISFORM.TXTRESOURCE_QUATITY.REFRESHTHISFORM.EDTRESOURCE_REM.REFRESH在“退出”按钮的“ Click” 事件添加代码如下：THISFORM.RELEASE设计结果如图资源代号 伍 资源数量 而资辭称WW 备注I二祥豌命元前费 一”. _ 1上亠平第一平下J个摄后忝加删除退出新建一个表单forml,在表单上先添加1个

36、“label控件和3个“command”控件。把视图 view7 添加到数据环境中，将视图 view7 中所有字段以表格的形式 添加到表单中，添加后形成引用名为“Grdview7”的表格控件。面为表单中各事件添加代码在“打印预览”按钮的“ Click”事件添加代码如下:REPORT FORM PXJHGL TO PRINT PREVIEW在“打印”按钮的“ Click”事件添加代码如下：REPORT FORM PXJHGL TO PRINT在“退出”按钮的“ Click”事件添加代码如下：THISFORM.RELEASE本表单设计结果如图所示。倨训討刻管理课程号课程名开课部门开课时间结课时间教

37、师姓名上课人数上课地点所需课时匕.01餐饮服务礼节餐饮部12/11/0612/13/06畅茜10蔽游学校2402客房服务礼节客房部12/11/0612/13/06王美美10蔽游学校2403党员培训课办公室12/11/0612/13/06王智强1旅游学校2404前台服务课总台12/11/0612/13/06杨学刚2旅游学校241 1 1 1-打印/ 退出(8) 系统管理模块主要功能是确定该用户是否是合法用户，根据权限合法用户又分系统负责 人和一般用户。一般用户可以修改自己的密码，而系统负责人还可以进行增删用 户的操作。这一模块利用在一个表单上设置 3个不同的标签页来实现其功能。建1个表单form

38、l,保存为“ xtgl(系统管理)”，在表单上建1个“”控件的“”, 设其“”属性为“3”。在 “pageframel” 控件的 “pagel” 上添加 1 个 “container” 控件、4 个 “text” 控件、4个“ command”控件和7个“ label”控件。在 “pageframe1控件的 “ page2 ” 上添加 1 个 “ combo控件、3 个“ command” 控件、3个“ text”控件和4个“ label”控件。在 “pageframe1” 控件的 “page3 ” 上添加 1 个“combo” 控件、1 个 “label” 控件和2个“ command”控件

39、。把表“use_pswd”添加到表单的数据环境中。在“forml”的“ init”事件添加代码如下： thisform.pageframe1.page2.enabled=.f.thisform.pageframel.page3.enabled=.f.在pageframel中pagel的“activate”事件添加代码如下： mand2.enabled=.f.THIS.COMMAND3.ENABLED=.F.THIS.TEXT3.ENABLED=.F.THIS.TEXT4.ENABLED=.F.在pageframel中pagel的“密码输入确定”按钮的“click”事件添加代码如下: USE 管

40、理 TMS 系统的用户口令表 USER_PSWDCNAME=ALLTRIM(THISFORM.PAGEFRAMEl.PAGEl.TEXTl.VALUE) CPASSWORD=ALLTRIM(THISFORM.PAGEFRAMEl.PAGEl.TEXT2.VALUE) SET ORDER TO tms_userSEEK CNAMEIF ALLTRIM管理 TMS 系统的用户 口令表 USER_PSWD.TMS_USER)vCNAMEOR LEN(CNAME)=0CMESSAGETITLE=消息窗口CMESSAGETEXT=用户名错误,请重新输入NDIALOGTYPE=4+32NANSWER=ME

41、SSAGEBOX(CMESSAGETEXT,NDIALOGTYPE,CMESSAGETI TLE)DO CASECASE NANSWER=6THISFORM.PAGEFRAMEl.PAGEl.TEXTl.VALUE= THISFORM.PAGEFRAMEl.PAGEl.TEXTl.SETFOCUS CASE NANSWER=7CMESSAGETITLE=消息窗口CMESSAGETEXT=用户名错误,请重新输入MESSAGEBOX(CMESSAGETEXT,NDIALOGTYPE,CMESSAGETITLE)THISFORM.RELEASEENDCASEELSEIF ALLTRIM管理tms 系

42、统的用户 口令表USER_PSWD.TMS_PSWD)vCPASSWORDOR LEN(CPASSWORD)=0CMESSAGETITLE=消息窗口CMESSAGETEXT=密码错误，请重新输入NDIALOGTYPE=4+32NANSWER=MESSAGEBOX(CMESSAGETEXT，NDIALOGTYPE，CMESSAGETITLE)DO CASECASE NANSWER=6THISFORM.PAGEFRAME1.PAGE1.TEXT2.VALUE=THISFORM.PAGEFRAME1.PAGE1.TEXT2.SETFOCUSCASE NANSWER=7CMESSAGETITLE=消息

43、窗口CMESSAGETEXT=密码错误，请重新输入MESSAGEBOX(CMESSAGETEXT，NDIALOGTYPE，CMESSAGETITLE)THISFORM.RELEASEENDCASEELSECRANK=管理TMS系统的用户口令表USER_PSWD.RANKTHISFORM.PAGEFRAME1.PAGE1.TEXT3.ENABLED=.T.THISFORM.PAGEFRAME1.PAGE1.TEXT4.ENABLED=.T.THISFORM.PAGEFRAME1.PAGE1.COMMAND2.ENABLED=.T.IF RANK=2THISFORM.PAGEFRAME1.PAGE

44、1.COMMAND3.ENABLED=.T.ENDIFENDIFENDIF在pageframel中pagel的“密码修改确定”按钮的“click”事件添加代码如下：IFLEN(ALLTRIM(THISFORM.PAGEFRAME1.PAGE1.TEXT3.VALUE)+ALLTRIM(THISFORM.PAGEFRAMEl.PAGEl.TEXT4.VALUE)=0MESSAGEBOX(请输入密码,32,信息窗口 )ELSEIFALLTRIM(THISFORM.PAGEFRAMEl.PAGEl.TEXT3.VALUE)!=ALLTRIM(THISFORM.PAGEFRAMEl.PAGEl.TEX

45、T4.VALUE)MESSAGEBOX(输出入有误，请重新输入,32,信息窗口 )THISFORM.RELEASETHISFORM.TEXT3.VALUE=THISFORM.TEXT4.VALUE=ELSECPASSWORD=ALLTRIM(THISFORM.PAGEFRAMEl.PAGEl.TEXT3.VALUE)CNAME=ALLTRIM(THISFORM.PAGEFRAMEl.PAGEl.TEXTl.VALUE)UPDATE 管理 TMS 系统的用户 口令表 USER_PSWD SET TMS_PSWD=CPASSWORDWHERE TMS_USER=CNAMEMESSAGEBOX(密码

46、修改成功,32,信息窗口 )THISFORM.PAGEFRAMEl.PAGEl.TEXTl.VALUE=THISFORM.PAGEFRAMEl.PAGEl.TEXT2.VALUE=THISFORM.PAGEFRAMEl.PAGEl.TEXT3.VALUE=THISFORM.PAGEFRAMEl.PAGEl.TEXT4.VALUE=THISFORM.PAGEFRAMEl.PAGEl.TEXT3.ENABLED=.F.THISFORM.PAGEFRAMEl.PAGEl.TEXT4.ENABLED=.F.THISFORM.PAGEFRAMEl.PAGEl.COMMAND3.ENABLED=.F.EN

47、DIFENDIF在pageframe1中page1的“增删用户按钮的“click”事件添加代码如下：THISFORM.PAGEFRAMEl.PAGE2.ENABLED=.T.THISFORM.PAGEFRAME1.PAGE3.ENABLED=.T.在 pageframe1 中 page1 的“退出”按钮的“ click” 事件添加代码如下：THISFORM.RELEASE在pageframel中page2的“activate事件添加代码如下：THISFORM.PAGEFRAME1.PAGE2.COMBO1.VALUE=1在pageframel中page2的“确定”按钮的“click事件添加代码

48、如下：CNAME= ALLTRIM (THISFORM.PAGEFRAMEl.PAGE2.TEXTl.VALUE)CPASSWORD= ALLTRIM (THISFORM.PAGEFRAMEl.PAGE2.TEXT2.VALUE)CRANK= ALLTRIM (THISFORM.PAGEFRAMEl.PAGE2.COMBOl.TEXT)IFALLTRIM(THISFORM.PAGEFRAMEl.PAGE2.TEXT2.VALUE)ALLTRIM(THISFORM.PAGEFRAMEl.PAGE2.TEXT3.VALUE)MESSAGEBOX (用户密码输入有误,48,信息窗口)THISFORM

49、.PAGEFRAMEl.PAGE2.TEXT2.VALUE=THISFORM.PAGEFRAMEl.PAGE2.TEXT3.VALUE=ELSEUSE 管理 TMS 系统的用户口令表 USER_PSWDAPPEND BLANKREPLACE TMS_USER WITH CNAMEREPLACE TMS_USER WITH CPASSWORDREPLACE RANK WITH CRANKMESSAGEBOX(添加用户成功,48,信息窗口)THISFORM.PAGEFRAMEl.PAGE2.TEXTl.VALUE=THISFORM.PAGEFRAMEl.PAGE2.TEXT2.VALUE=THIS

50、FORM.PAGEFRAMEl.PAGE2.TEXT3.VALUE=ENDIF在pageframe1中page2的“放弃”按钮的“click事件添加代码如下：THISFORM.PAGEFRAMEl.PAGE2.TEXTl.VALUE=THISFORM.PAGEFRAME1.PAGE2.TEXT2.VALUE=THISFORM.PAGEFRAME1.PAGE2.TEXT3.VALUE=THISFORM.PAGEFRAME1.PAGE2.TEXT4.VALUE=在 pageframe1 中 page2 的“退出”按钮的“ click” 事件添加代码如下： THISFORM.RELEASE在 pag

51、eframe1 中 page3 的“确定”按钮的“ click” 事件添加代码如下： CNAME=ALLTRIM(THISFORM.PAGEFRAME1.PAGE3.COMBO1.VALUE)YN=MESSAGEBOX(确实要删除吗?,4+32,信息窗口)USE 管理 TMS 系统的用户口令表 USER_PSWD EXCLUSIVEIF YN=6DELETE FROM 管 理 TMS 系 统 的 用 户 口 令 表 USER_PSWD WHERE TMS_USER=CNAMEPACKMESSAGEBOXC成功删除用户+CNAME,48,信息窗口) THISFORM.PAGEFRAME1.PAG

52、E3.COMBO1.VALUE=ENDIF在 pageframe1 中 page3 的“退出”按钮的“ click” 事件添加代码如下THISFORM.RELEASE本表单各页面设计结果如图所示。Page1 页面设计结果如图所示。Page2页面设计结果如图所示(9)培训需求管理首先新建一个表单，将其保存为“pxxqgl (培训需求管理)”，在表单上添加 1个“combol 控件和1个“ labell控件和2个“command控件。表中各事件代码如下。在“forml”的“ init”事件添加代码如下：PUBLIC PAR1，PAR2PARl=PAR2=在“确定”按钮的“ Click”事件添加代码

53、如下：PARl=ALLTRIM(THISFORM.COMBOl.VALUE)PAR2=PARlDO FORM XYJBXX在“退出”按钮的“ Click”事件添加代码如下：THISFORM.RELEASE本表单的设计结果如图所示。4.4 数据输出设计本模块中的报表设计。先设计标题在标题带区中添加1个“label(培训管理 计划)”控件，字体为“华文行楷”、字号“小一”，添加1个“line”控件、线宽 为 “ 4 磅” 添 加 1 个 “ fields” 控 件 ,在 对话框中 单击按钮， 填入“ substr(DTOS(DATE(),1,4)+ “ 年 ” +substr(DTOS(DATE(

54、),5,2)+sub str(DTOS(DATE(),7,2)+ “日”。在页注脚带区添加1个“ field”控件，表达式为“第” +alltrim(str(_pageno)+ “页”。保存为“pxjhgl ”，培训计划管理报表设计 结果就完成了，如图所示。皤利管理计刻2QQT年Q1月15日课程号课程名称开谍部门开课时间结束时间教师姓名上课人数上课地点课时01餐饮服务礼节餐饮部12/11/0612/13/06杨茜10旅游学校2402客房服务礼节客房部12/11/0612/13/06王美美10旅游学校2403党员培训课办公室12/11/0612/13/06王智强1旅游学校2404前台服务课总台1

55、2/11/0612/13/06杨学刚2旅游学校24第 5 章 系统编译 上面我们已经完成了培训管理系统的编程和调试工作，最后一步就是该系统 的编译。系统的编译过程有： 首先将系统中涉及一到的文件全部包含进“项目管理器”。而主界面中用到 的图片文件，需要手工添加进来。请将其包含到“其他”中的“其他文件”项中 无用的表单、数据表等等都要移除，最后将它们的源文件从系统目录中删 除。单击项目管理器右侧的“ build（连编）”控钮，选择连编选项。请首先选择 “recompile all files（重新连编全部文件）”。如果你在连编后删掉某些文件，你就 需要对文件进行重新编译。编译结束后，如没有错误，

56、就可以生成可执行文件了。如有错误系统会自动 弹出提示，之后便可根据提示修改错误。这样系统的连编就完成了，用户可以单击生成的执行程序来运行系统了。示。第 6 章 系统运行结果员工培训管理系统几个重要的表单和报表的运行结果如图6-1 至图6-9所B欢迎使用员工嶠诃管理索疣图 6-1 开始表单运行结果欢迎使用图6-2结束表单运行结果课程号课程名开课部门开课时间结课时间教师姓名上课人数上课地点所需课时匕01餐饮服务礼节餐饮部12/11/0612/13/06杨茜10旅游学校2402客房服务礼节客房部12/11/0612/13/06王美美10旅游学校2403党员培训课办公室12/11/0612/13/06

57、王智强1旅游学校2404前台服务课总台12/11/0612/13/06杨学刚2旅游学校24Id11_扛輕臥7打印退出图 6-3 培训计划管理表单运行结果榕训管理计刻2CIQT年Q1月15日课程号课程名称开课部门开课时间结束时间教师姓名上课人数上课地点课时01餐饮服务礼节餐饮部12/11/0612/13/06杨茜10旅游学校2402客房服务礼节客房部12/11/0612/13/06王美美10旅游学校2403党员培训课办舊室12/11/0612/13/06王智强1旅游学校2404前台服务课总台12/11/0612/13/06杨学刚2旅游学校24图 6-4 培训计划管理报表运行结果资源数量备注性别工作岗位代号工作岗位名称信息表单运行上一T第一于下一平|摄后一亍图6-6培训资源管理表单运行结果