第12章 人事管理系统设计

1、第12章人事管理系统设计人事管理系统人事管理系统是一个比较典型的应用软件，限于篇幅，本章只列出其中相对典型的功能及设计过程，主要包括菜单、数据库（表）、各种输入、输出、浏览、修改、统计、查询、删除、备份和打印等功能，只须简单修改，便可直接应用。12.1开发应用系统的过程要开发一个软件项目，应该首先搞清楚这个项目应具有什么功能、需要一些什么表，有什么样的报表需要打印，数据流程如何等等，这样才能使整个软件开发的过程比较顺利，否则会给后面的软件开发、修改、维护等带来麻烦。因此在开发软件之前，应该先做系统分析，使之符合软件开发的一般规律。从软件工程的角度讲，软件开发一般分为六个阶段：（1）第一步，需求

2、分析阶段这里主要工作是搞好用户的需求分析，然后再进行系统分析。在这个阶段，开发方与用户方的深入交流是项目获得成功的关键，项目管理的重要目标便是建立一个便于开发方与用户方之间进行交流的环境。进行需求分析，主要是找出开发本软件的目的，所需的各种功能等，并形成一个系统的分析文档。在VFP中，该文档虽然并不是软件本身的一部分，但也属于本软件开发的文档，应该将其放在项目管理器中；如需要对软件编译时不把此文件编译到exe文件中，方法是：用右键单击该文件，在弹出的菜单中，选择“排除”命令。在这之后会在该文件左边看到一个符号“”，表示该文件已被排除在软件之外了。今后对于其他不属于软件本身的文件都应同样处理。（

3、2）第二步，概要设计阶段这个阶段主要是将系统需求分析的结果模块化，并把系统的数据流向等关系搞明白。最好画出一个程序的流程图，把整个项目的框架设计出来。比如对人事管理系统来说，就要考虑需要哪些模块，每个模块大体需要完成哪些功能，以及他们之间有什么关系等等。（3）第三步，详细设计阶段这个阶段是在系统的模块化的基础上，把系统的功能具体化，逐步完善系统的功能需求。这个阶段要为具体的设计打好基础。（4）第四步，编码阶段这个阶段是系统具体设计的实施阶段，就是将所有的功能通过编码具体化为功能实现的过程。同时还包括，设计封面、适合用户使用、实现容错等。（5）第五步，测试阶段当完成编码之后，要对系统进行反复的调

4、试，保证正确实现各种功能，保证系统整体的正确无误，如输入合法数据时是否反映正确；对于非法的数据是否具有容错能力等。只有顺利通过测试阶段的系统，才能够投入实际使用。（6）第六步，安装及维护阶段用VFP编写的软件有时还需要进行连编和发布，如制作成可执行文件。以上介绍的是设计软件的大概过程，主要是针对使用VFP进行小项目设计的方法，如果设计大的软件项目，还需要更复杂的论证和研究。12.2人事管理系统主要模块简介12.2.1本系统主要文件组成人事管理系统的主要功能包括记录的浏览、输入、修改、查询、删除、备份、统计和打印等，下面将该系统的主要功能模块列出。1.表单功能模块登录模块（调用表单 frmLOG

5、IN.scx）。主控功能模块（调用表单 frmMAIN.scx）。部门初始化模块（调用表单 frmBMWH.scx）。密码初始化模块（调用表单 frmPSW.scx）。数据浏览模块（调用表单 frmBROWSE.scx）。数据输入模块（调用表单 frmSR.scx）。数据修改模块（调用表单 frmXG.scx）。数据查询模块（调用表单 frmSEARCH.scx）。数据统计模块（调用表单 frmTOTALscx）。数据备份与删除模块（调用表单 frmBAKDELscx）。数据打印模块（调用表单 frmPRINT.scx）。系统帮助模块（调用表单 frmHELP.scx）。关于系统模块（调用表单

6、 frmABOUT.scx）。2.菜单与报表文件系统功能菜单（mnuRS.mnx）。一对多部门分组报表（reportALL.frx）。列报表（reportCOL.frx）。特定记录打印报表（reportONE.frx）。行报表（reportROW.frx）。3.数据库文件数据库名称：教职工.dbc 。数据库表名称：人事表（tblRS.dbf）、部门表（tblBM.dbf）。自由表名称：用户密码表（tblPassword.dbf.）。人事表（tblRS.dbf）描述职工的基本信息，其结构如表12.1所示。表12.1人事表结构字段字段名类型宽度索引字段字段名类型宽度索引1编号字符型2升序6学历字符

7、型92部门编号字符型2升序7专业字符型93姓名字符型68籍贯字符型64性别字符型29出生日期日期型85职称字符型810工作时间日期型8其中职工的年龄属性可由当前系统日期和职工的出生日期计算出来，年龄具体的实现公式为：year(date()-year(出生日期)，具体用法请参见后面的程序设计相关部分内容。部门表（tblBM.dbf）存储部门编号与部门名称的对应信息，其结构如表12.2所示。用户密码表（tblPassword.dbf.）存储用户名与密码的对应信息，其结构如表12.2所示。表12.2部门表结构表12.3密码表结构字段字段名类型宽度索引1部门编号字符型2升序2部门名称字符型16字段字段

8、名类型宽度1用户名字符型102密码字符型1012.2.2 功能模块菜单本系统的菜单功能如图12.1所示，观察本菜单可以对整个系统有一个比较完整的认识，便于理解系统的设计思路。图12.1主功能菜单12.2.3 系统功能调用图解本系统在运行过程中，程序与各表单功能模块的调用过程如图12.2所示。图 12.2 系统功能调用模块上述功能图中的登录模块（frmLogin.scx）及主控功能模块表单（frmMAIN.scx）应设置为顶层表单，即把表单的ShowWindow属性设置为2-作为顶层表单。被菜单所调用的其他功能表单，如数据查询模块（frmsearch.scx）、数据统计模块（frmTOTALsc

9、x）等表单，应该把ShowWindow属性设置为1-在顶层表单中。12.3项目与数据库的建立12.3.1项目的建立在硬盘上建一个文件夹，如D:RS。启动VFP系统后，在“命令窗口”中，执行Set Default TO D:RS命令，将D:RS文件夹设置为VFP的默认工作目录。新建立一个名称为“人事管理系统.PJX”的项目，保存到D:RS文件夹中，打开“项目管理器”对话框，如图12.3所示。图12.3 “项目管理器”对话框12.3.2数据库的建立在“项目管理器”中，新建一个名称为“教职工”的数据库，如图12.4所示。建立人事表（tblRS.dbf）、部门表（tblBM.dbf）、用户密码表（tb

10、lPassword.dbf.），其中人事表（tblRS.dbf）的内容如图12.5所示。图12.4建立一个数据库图12.5人事表的内容12.4人事管理系统模块设计12.4.1系统主菜单设计在“项目管理器”中，选择“其他”选项卡，选择“菜单”。 单击“新建”按钮，打开“新建菜单”对话框，如图12.6所示。在“新建菜单”对话框中，单击“菜单”按钮，打开“菜单设计器”对话框，如图12.7所示。 图12.6 “新建菜单”对话框首先建立主菜单。在“菜单名称”栏中，分别输入“数据初始化(I)”、“编辑(E)”、“数据维护(R)”，“退出系统(Q)”，如图12.7所示，注意在“结果”栏内应保持显示“子菜单”

11、，在“菜单级”下拉列表框中，选择“菜单栏”选项，表示是主菜单。建立“数据维护”子菜单。在“数据维护”的“子菜单”下拉列表框右边，单击“创建”按钮，打开“菜单设计器”对话框，如图12.8所示。注意，此时“菜单级”的下拉列表框中，显示的是“数据维护R”，打开“菜单级”选择框，可看到在“数据维护R”上面有一个“菜单栏”，表示此时编辑的是顶层菜单下的“数据维护”子菜单；按照系统分析的内容，编辑第一个菜单项，在“菜单名称”栏中，输入“数据浏览(L)”，在“结果”栏的下拉列表框中，选择“命令”选项，在“选项”栏中，输入“Do Form frmBrowse”命令。之后，按同样方法编辑其他菜单项。图12.7

12、“菜单设计器”对话框图12.8子菜单设计在“菜单级”的下拉列表框中，选择“菜单栏”选项，返回主菜单。 重复步骤，编辑“数据初始化”、“退出系统”菜单。 “编辑”菜单下的各个子菜单项的编制方法与其他菜单的子菜单不一样，“编辑”菜单的“菜单设计”对话框，如图12.9所示。这些菜单项分别调用系统的内部菜单变量来完成相应的功能。具体操作为：单击“插入栏”按钮，打开“插入系统菜单栏”对话框，如图12.10所示，在该对话框中，选择“撤消”系统菜单项，单击“插入”按钮。用同样的方法插入“重做”、“剪切”、“复制”和“粘贴”系统菜单项。“菜单项”对话框的第三项菜单“-”的功能是显示菜单分组线，用户需要自己输入

13、该项菜单的名称为：“-”。将上述菜单项核对无误后，即可生成菜单，这时就能在应用程序系统中非常方便地使用各种编辑功能了。图12.9“菜单项”对话框图12.10 插入系统菜单栏其他菜单项所对应的命令将调用如下表单文件：数据初始化菜单(I)：部门初始化(M)：Do Form frmBMWH.scx密码初始化(P)：Do Form frmPSW.scx退出系统(Q)菜单：系统帮助(H)：Do Form frmHELP. scx关于系统(B) ：Do Form frmABOUT.scx退出(X) 其中“退出系统(Q)”子菜单中的“退出(Thisform.WidthThisform.Label1.Font

14、size=Thisform.Label1.Fontsize-1If Thisform.Label1.Fontsize24Thisform.Label1.Fontsize=24ExitEndifEnddo12.4.3部门初始化表单设计部门初始化表单的功能是完成对部门信息的增加、删除、修改操作。1.表单的执行与设计下面给出该表单的设计屏幕如图12.13所示，执行屏幕如图12.14所示。 图12.13部门初始化表单设计屏幕 图12.14部门初始化表单运行屏幕2.控件属性设置从表单的设计与运行屏幕可以看到，表单中共包括如下控件：表格控件Grid1、命令按钮组控件CommandGroup1、标签控件La

15、bel1。Form1表单的属性设置：Form1.AutoCenter = .T. 真Form1.BoderStyle=2-固定对话框Form1.TitleBar=0-关闭Form1.ShowWindow = 1 在顶层菜单中 &在顶层表单中来调用此表单。Form1.WindowState =0 普通Form1.WindowType=1模式标签Label1的属性设置：Name = “Label1”Caption =“部门设置与维护”AutoSize=.T.BackStyle=0-透明表格控件Grid1的属性设置：Name = “Grid1”ReadOnly=.T. &初始设置只读RecordMa

16、rk=.F. &不显示记录选择器列ToolTipText=”说明：部门编号要从01开始输入，不要从1开始输入。”RecordSourceType=1-别名RecordSource=tblBM &为表格控件指定数据源注：表tblBM.dbf要添加到表单的数据环境中。命令按钮组CommandGroup1的属性设置：CommandGroup1.Name = “CommandGroup1”CommandGroup1.ButtonCount=4命令按钮Command1 Command4的Caption属性：Command1.Caption=“添加记录”Command2.Caption=“修改记录”Com

17、mand3.Caption=“删除”Command4.Caption=“退出”。3.事件代码Form1表单的Unload事件代码：Close Tables All &退出时，关闭所有表及临时表命令按钮“添加记录”Command1的Click事件代码：If This.Caption=添加记录*设置另外的3个按钮为不可用状态This.Parent.Command2.Enabled=.F.This.Parent.Command3.Enabled=.F.This.Parent.Command4.Enabled=.F.This.Caption=确认添加 Thisform.Grid1.Readonly=.

18、F. &去掉表格只读属性，变为可写状态Append Blank &追加一条空记录Thisform.Refresh &刷新表单 Thisform.Grid1.Column1.SetfocusElseThis.Caption=添加记录Thisform.Grid1.Readonly=.T. &设置表格为只读状态*恢复另外的3个按钮为可用状态This.Parent.Command2.Enabled=.T.This.Parent.Command3.Enabled=.T.This.Parent.Command4.Enabled=.T.Endif命令按钮“修改记录”Command2的Click事件代码：If

19、 This.Caption=修改记录*设置另外的3个按钮为不可用状态This.Parent.Command1.Enabled=.F.This.Parent.Command3.Enabled=.F.This.Parent.Command4.Enabled=.F.This.Caption=确认修改Thisform.Grid1.Readonly=.F.Thisform.Grid1.Column1.SetfocusElseThis.Caption=修改记录*恢复另外的3个按钮为可用状态Thisform.Grid1.Readonly=.T.This.Parent.Command1.Enabled=.T.

20、This.Parent.Command3.Enabled=.T.This.Parent.Command4.Enabled=.T.Endif命令按钮“删除”Command3的Click事件代码：Set Dele On &屏蔽有删除标记的记录Crecno=部门编号 &获取用户要删除记录的记录号Yn=Messagebox(确认删除部门编号为&Crecno.的记录吗？,1+16,删除确认框)If Yn=1 &用户确认删除操作Delete &逻辑删除当前记录EndifThisform.RefreshThisform.Grid1.Column1.Setfocus命令按钮Command4的Click事件代码

21、：*物理删除记录并退出PackThisform.Release12.4.4密码初始化表单设计密码初始化表单的功能是完成对用户及密码信息的增加、删除、修改操作。1.表单设计密码初始化表单的执行屏幕如图12.15所示。图12.15密码初始化表单执行屏幕2.控件属性设置及事件代码密码初始化表单的实现与部门初始化表单类似，所包含的控件也完成全相同，只是把命令按钮组控件CommandGroup1的排列布局改变列向，并在表单的“数据环境”中，添加自由表“tblPassWord.dbf”。相关属性及事件代码请参看部门初始化表单部分，这里不在赘述。下面只给出“删除”按钮的Click事件代码。命令按钮“删除”C

22、ommand3的Click事件代码：*逻辑删除用户选择的记录Set Dele On &屏蔽有删除标记的记录USR=Alltrim(用户名) &获取用户要删除的用户名YN=messagebox(确认删除名为&USR.的记录吗？,1+16,删除确认框)If YN=1 &用户确认删除操作Delete &逻辑删除当前记录EndifThisform.RefreshThisform.Grid1.Column1.Setfocus12.4.5数据修改模块设计1.数据修改模块设计数据修改模块（frmXG.scx）的功能是用户在浏览数据库中表数据的情况下，允许充许用户修改特定的记录或成批地修改记录。表单的设计屏幕

23、如图12.16所示，表单的执行屏幕如图12.17和图12.18所示。2.表单与控件的属性设置本表单包括一个标签控件Label1和一个控件页框Pageframe1。Form1表单的属性设置：Form1.AutoCenter = .T. 真Form1.BoderStyle=2-固定对话框Form1.TitleBar=0-关闭Form1.ShowWindow = 1 在顶层菜单中 &在顶层表单中来调用此表单。Form1.WindowState =0 普通Form1.WindowType=1模式图12.16 数据修改表单设计屏幕注：数据维护菜单所调用的各个表单（如：数据查询、数据统计等表单）的属性设置

24、与此表单相同，请参看此表单的属性设置。标签Label1的属性设置：Label1.Name = “Label1”Label1.Caption =“修改数据模块”Label1.AutoSize=.T.Label1.BackStyle=0-透明图12.17 多记录修改执行屏幕图12.18 单记录修改执行屏幕(1)页框Pageframe1的属性设置：PageCount=2(2)页面page1的属性设置:Caption = “多记录修改”页面page1包括下列控件：命令按钮Command1-Command2，标签Label1、Label2,组合框Combo1,表格控件GrdTblrs,形状控件Shape

25、1，文本框Text1，各控件的属性设置如下：命令按钮Command1和Command2的Caption属性设置：Command1.Caption=“修改”Command2.Caption=“退出”标签Label1和Label2的Caption属性设置：Label1. Caption=“部门编号”Label2.Caption=“请先选择部门：”形状控件Shape1的属性设置：Shape1.BackStyle=0-透明Shape1.SpecialEffect=0-3维注：形状控件是为了美化表单，本章中所有用的形状控件的属性设置均与上述设置相同。文本框Text1的属性设置: Text1.ReadOn

26、ly=.T. Text1.ControlSouce=tblbm.部门编号组合框Combo1的属性设置：Combo1.RowSourceType=6-字段Combo1.RowSource=tblbm.部门名称注：在表单的数据环境要加入tblbm和tblrs表，两表的永久关系已在数据库中建好。表格控件GrdTblrs是直接从数据环境中把表tblrs拖动到页面Page1后自动生成的,其GrdTblrs.ReadOnly属性应设置为：.T.。(3)页面page2的属性设置：page2.Caption =“单记录修改”页面page包括下列控件：命令按钮Command1-Command6、标签Label1

27、-Label2、形状控件Shape1、文本框Text1，各控件的属性设置如下：命令按钮Command1-Command6的Caption属性分别为：“第一条”、“上一条”、“下一条”、“最后一条”、“修改”、“退出”。标签Label1和Label2的Caption属性值分别为：“指定编号修改”和“请输入职工编号：”图12.18所示的10个标签及文本框是从数据环境中的tblrs表直接拖动到页面Page2后自动生成的，再利用“布局”工具栏进行位置调整，各个文本框控件的ReadOnly属性均应设置为：.T.。3.事件代码页框控件Page1中的组合框Combo1的Init事件代码：Select Tbl

28、bmThis.Value=部门名称页框控件Page1中的命令按钮“修改”Command1的Click事件代码：If This.Caption=修改This.Caption=确认This.Parent.Grdtblrs.Readonly=.F.This.Parent.Grdtblrs.Column1.SetfocusElseThis.Caption=修改This.Parent.Grdtblrs.Readonly=.T.Endif页框控件Page1中的命令按钮“退出”Command2的Click事件代码：Thisform.Release &退出注：本章中，后面所涉及表单中的“退出”按钮的Click

29、事件代码均为：Thisform.Release。页框控件Page2中的文本框Text1的Interactivechange事件代码：Select Tblrs &选择tblrs为当前表Cbh=Alltrim(This.Value)Locate For 编号=Cbh &查找用户输入的编号If Not Found()Messagebox(没有指定的编号，请重新输入)This.Value=EndifThisform.Refresh页框控件Page2中的命令按钮“第一条”Command1的Click事件代码：This.Parent.Command3.Enabled=.T.Select TblrsGo T

30、opThisform.Refresh页框控件page2中的命令按钮“上一条”Command2的Click事件代码：This.Parent.Command3.Enabled=.T.Select TblrsIf Not Bof() Skip -1Else Wait 已到表文件头了，呵呵！ Windows Timeout 1 This.Enabled=.F. Go TopEndifThisform.Refresh页框控件Page2中的命令按钮“下一条”Command3的Click事件代码：This.Parent.Command2.Enabled=.T.Select TblrsIf Not Eof()

31、 SkipElse Wait 已到表文件尾，呵呵！ Windows Timeout 1 This.Enabled=.F. Go BottomEndifThisform.Refresh页框控件Page2中的命令按钮“最后一条”Command4的Click事件代码：This.Parent.Command2.Enabled=.T.Select TblrsGo BottomThisform.Refresh页框控件Page2中的命令按钮“修改”Command5的Click事件代码：If This.Caption=修改This.Caption=确认This.Parent.Setall(Readonly,.

32、F.,Textbox) &设置所有文本框为可读写状态This.Parent.Txt编号.SetfocusElseThis.Caption=修改This.Parent.Setall(Readonly,.T.,Textbox) &设置所有文本框为只读状态This.Parent.Text1.Readonly=.F.Endif页框控件Page2中的命令按钮“退出”Command6的Click事件代码：Thisform.Release 12.4.6数据浏览模块设计数据浏览模块是用来让用户浏览数据库中表的数据，设计的要点是只能让用户查看记录信息而不能修改相应的记录，因此相应的控件应该设置为只读状态。数据浏

33、览表单的设计方法与数据修改表单相同，所不同的是少了“修改”按钮，各控件的属性与事件代码请参看数据修改表单部分。表单的执行屏幕如图12.19所示。图12.19 数据浏览表单运行屏幕12.4.7数据输入模块设计1.数据输入表单的设计数据输入表单是用来让用户输入人事表的基本数据，设计的要点当单击“开始输入”按钮后，此模块自动复制表中最后一条记录的基本信息，编号字段的内容自动加1，以方便用户修改与输入一条新的记录。表单的执行屏幕如图12.20所示。2.表单与控件的属性设置本表单包括标签控件Label1- Label2和命令按钮控件Command1-Command2，形状控件Shape1。Form1表单

34、的属性设置：Form1.AutoCenter = .T. 真Form1.BoderStyle=2-固定对话框Form1.TitleBar=0-关闭Form1.ShowWindow = 1 在顶层菜单中 &在顶层表单中来调用此表单。Form1.WindowState =0 普通Form1.WindowType=1模式标签Label1的属性设置：Label1.Caption=” 输入新记录模块”标签Label2的属性设置：Label2.Caption= =“操作提示：在点击“开始输入”后，此模块自动复制表中上一条+chr(13)+记录的信息，以方便用户修改与输入！”Label2.AutoSize=

35、.T.Label2.WordWrap=.T.图12.20所示的10个标签及文本框是从数据环境中的tblrs表直接拖动表单后自动生成的，再利用“布局”工具栏进行位置调整，各个文本框控件的ReadOnly属性均应设置为.T.。图12.20数据输入表单执行屏幕3.事件代码Form1表单的Init事件代码：Thisform.Setall(Readonly,.T.,Textbox) &设置所有文本框为只读状态Form1表单的Activate事件代码：*表单运行后，显示最后一条记录信息Select TblrsGo BottomThisform.Refresh命令按钮“开始输入”Command1的Click

36、事件代码：Scatter To AtempClastid=编号If This.Caption=开始输入This.Caption=确认输入Thisform.Setall(Readonly,.F.,Textbox)Append BlankGather From AtempReplace 编号 With Alltrim(Str(Val(Clastid)+1) &编号自动加1Replace 姓名 With *Thisform.RefreshElse YN=messagebox(是否确认输入此条记录的信息？,4+32,提示信息) If YN=7 &用户放弃输入 Set Delete On Delete

37、Skip -1 Thisform.Refresh Endif This.Caption=开始输入 Thisform.Setall(Readonly,.T.,Textbox)Endif Thisform.Refresh12.4.8查询模块设计1.查询模块的设计查询模块允许充许用户从数据库中分类查询信息。表单设计屏幕如图12.21所示，运行屏幕如图12.22所示。2.控件属性设置从表单的设计与运行屏幕可以看到，表单中共包括如下控件：表格控件Grid1、命令按钮控件Command1、标签控件Label1- Label8、组合框控件Combo1- Combo6。标签控件Label1- Label8的C

38、aption属性分别为：“综合数据查询模块”、 “按部门查询：”、“按性别查询：”、“按年龄段查询：”、“按职称查询：”、“按学历查询：”、“按专业查询：”、“分类查询”。图12.21 查询表单设计屏幕图12.22 查询表单运行屏幕Form1表单的属性设置：Form1.AutoCenter = .T. 真Form1.BoderStyle=2-固定对话框Form1.TitleBar=0-关闭Form1.ShowWindow = 1 在顶层菜单中 &在顶层表单中来调用此表单。Form1.WindowState =0 普通Form1.WindowType=1模式表格控件Grid1属性设置：Grid1

39、.RecordSourceType=4-SQL说明组合框控件Combo1的属性设置：Combo1Grid1.RowSourceType=3-SQL语句Combo1.RowSource=“Select distinct 部门名称 from tblbm into cursor tempbm1”组合框控件Combo2的属性设置：Combo2.RowSourceType=1-值RowSource=“男，女”组合框控件Combo3的属性设置：Combo3.RowSourceType=1-值Combo3.RowSource=“青年（35岁以下）,中年（35-50岁）,老年（50岁以上）”组合框控件Comb

40、o4的属性设置：Combo4.RowSourceType=3-SQL语句Combo4.RowSource=“Select Distinct 职称 From tblrs Order By 职称 Into Cursor Tempzc”组合框控件Combo5的属性设置：Combo5.RowSourceType=3-SQL语句Combo5.RowSource=“Select Distinct 学历 From tblrs Order By 学历 Into Cursor TemXL”组合框控件Combo6的属性设置：Combo6.RowSourceType=3-SQL语句Combo6.RowSource=

41、“Select Distinct 专业 From tblrs Order By 专业 Into Cursor TempZY”3程序代码表单Form1的Unload事件代码：Close Tables All组合框控Combo1的Click事件代码：Thisform.Grid1.Recordsourcetype=4Thisform.Grid1.Recordsource=Select * From tblrs,Tblbm Where tblrs.部门编号=Tblbm.部门编号 And 部门名称=Alltrim(This.Displayvalue) Order By 1 Into Cursor Tem

42、p组合框控件Combo2的Click事件代码：Csex=Alltrim(Thisform.Combo2.Displayvalue)Thisform.Grid1.Recordsourcetype=4Thisform.Grid1.Recordsource=Select * From tblrs Where 性别=Csex Order By 2 Into Cursor Temp组合框控件Combo3的Click事件代码：Do Case Case This.Value=1 Thisform.Grid1.Recordsourcetype=4 Thisform.Grid1.Recordsource=Sel

43、ect 编号,部门编号,姓名,性别,Year(Date()-Year(出生日期) As 年龄,职称,学历,专业,籍贯,出生日期,工作时间 From tblrs Where Year(Date()-Year(出生日期)50 Order By 5 Into Cursor Temp Endcase组合框控件Combo4的Click事件代码： Thisform.Grid1.Recordsourcetype=4 Thisform.Grid1.Recordsource=Select * From tblrs Where 职称=Alltrim(This.Displayvalue) Order By 2 In

44、to Cursor Temp 组合框控件Combo5的Click事件代码：Thisform.Grid1.Recordsourcetype=4 Thisform.Grid1.Recordsource=Select * From tblrs Where 学历=Alltrim(This.Displayvalue) Order By 2 Into Cursor Temp 组合框控件Combo6的Click事件代码： Thisform.Grid1.Recordsourcetype=4Thisform.Grid1.Recordsource=Select * From tblrs Where 专业=Alltrim(This.Displayvalue) Order By 2 Into Cursor Temp12.4.9数据统计模块设计1.数据统计模块的设计数据统计模块的主要功能是完成对数据表中各种类别人员的人数统计信息，这里仅仅是一个关于数据统计操作