人事管理系统-引言

摘要………………………………………………………………………1 Make a summary…………………………………………………………2 引言………………………………………………………………………1 一、总体设计 ……………………………………………………………2

1、 系统目标设计……………………………………………………2 2、 开发设计思想……………………………………………………2

3、开发和运行环境选择 …………………………………………2

4、 系统功能分析……………………………………………………3 5、 系统功能模块设计数据需求分析………………………………3 二、系统的结构设计 ……………………………………………………4

1、数据库的建立……………………………………………………4

2、 系统功能分析……………………………………………………4 三、块分述及窗口 ………………………………………………………11

四、结论------问题和收获……………………………………………18 五、参考文献……………………………………………………………19 五、开发代码……………………………………………………………20

1

中文摘要

本人事管理系统的开发思想是尽量采用企业现有软硬件环境，及先进的管理系统开发方案，从而达到充分利用企业现有资源，提高系统开发水平和应用效果的目的。并且，此软件能够改变传统的、落后的管理形式，提高管理的效率和企业的竞争力，使企业能够为向更高层次发展创造了有利条件。系统只包含了一般的人事管理系统的几个基本模块，主要分为系统模块、输入模块、维护模块、查看模块、报表模块、帮助模块几部分。系统模块主要完成系统的重新登录和退出功能；输入模块主要是用于输入员工的各种信息；维护模块主要是用来对输入信息进行修改，对转出、辞职、退休员工信息的删除等操作；查看模块主要是对上述几部分信息资料进行浏览，还可以通过某些条件来查询各部分信息资料；报表模块主要是用于打印员工和企业的信息资料；帮助模块主要用于认识该软件和该软件的使用方法。以上模块简单易懂，方便了领导浏览和减轻管理员工作量。

2

外文摘要

(Make a summary)

My matter the development of management system thought is adopt enterprise existing soft hardware environment as far as possible, and the advanced

development scheme of management system, so reach use enterprise existing resource fully, rise system the purpose of development level and application effect. And this software can change traditional, backward management form , raises the competition ability of enterprise and the efficiency of management, make enterprise be to higher level develop to create favourable condition. System has contained some basic modulars of general personnel

management system only , divides into systematic modular, input modular and maintenance modular mainly , looks over modular and form modular , help modular some parts of. Systematic modular major completion is systematic to register and quit function again; Input the various

informations that modular is used in inputing employee mainly; It is to modify for input information mainly to defend modular, for turn , resign and retire employee information delete etc. operation; It is to glance over for some parts of above-mentioned information information mainly to look over modular, can still inquire each partial information informations through some conditions; Form modular is used in printing the information information of employee and enterprise mainly; Help the use method that modular is used to know this software and this software mainly. With the piece of upper mould is simple and easy to understand , have facilitated lead to glance over and alleviate keeper workload.

3

引 言

随着计算机技术的飞速发展，计算机在企业管理中应用的普及，利用计算机实现企业人事档案的管理势在必行。当前企业信息管理系统下正在从C/S结构向B/S结构转移，但是由于安全性等腰三角形方面的因素，C/S结构的管理信息系统仍然占据企业管理信息系统的主流。

逐渐地随着计算机在社会各领域的广泛应用，大量繁杂的工作得以快速、高效的完成，使人们从繁重的劳动中解脱出来，提高了工作效率和工作质量。在计算机应用的众多领域中，管理信息系统占据着十分重要的地位，它使用系统的观点，以计算机科学和现代化的通信技术为基础，对某一组织或机构中有关管理的数据进行收集、处理，并输出有用信息，从而支持组织决策的系统，使大量的手工劳动自动完成，避免了因人工操作带来的各种错误。

人事管理系统是现代企业管理不可缺少的一部分，是适应现代企业制度要求、推动企业劳动人事管理走向科学化、规范化的必要条件。现代企业需要高效率完成劳动人事管理的日常业务，包括新员工加入时人事档案的建立，老员工转出、辞职、退休等。系统应符合现代企业人事管理的规定，满足企业日常人事管理工作需要，并达到操作过程中的直观、方便、实用、安全等要求。此外，人事管理系统还需要数据库维护功能，及时根据用户需求进行数据的添加、删除、修改、备份等操作。为了方便企业管理需要，我们设计制作了人事管理系统。

该人事管理系统可以应用在一个企业的局域网上，系统地、全面地支持人事管理和服务的全过程。支持员工各种信息的输入管理，员工各种信息的修改，员工的转出、辞职、退休信息的删除，按照某种条件进行查询员工的信息，对查询、统计的结果打印输出以及使用帮助等。系统以其系统性、全面性和技术手段的多样性和先进性、使用的安全性和稳定性以及应用的广泛性为其特点，性能优良，极大地减轻了人事管理人员的工作强度，提高了人事管理工作的现

4

代化水平。下面章节将详细介绍本系统的设计过程。

整个系统的设计是在王超和刘悦老师的指导下完成的，并参考了部分文献，由于本人水平有限，该系统只设计了人事管理几个有代表性且较重要的模块，其中还有许多不完善之处，请各位老师批评赐教。

一、 总体设计

1、

系统目标设计

人事管理系统可以用于支持企业完成劳动人事管理工作，有如下3方

面的目标。

1.1 、 支持企业实现规范化、高效率的管理。

1.2、支持企业高效率完成劳动人事管理的日常业务，包括新员工加

入时人事档案的建立，老员工转出、辞职、退休等。

1.3、支持企业进行劳动人事管理能相关方面的科学决策，如企业领

导根据现有的员工数目决定招聘的人数等。

2、

开发设计思想

本系统开发设计思想有以下几点。

2.1、尽量采用企业现有软硬件环境，及先进的管理系统开发方案，从而达到充分利用企业现有资源，提高系统开发水平和应用效果的目的。

2.2、系统应符合企业人事管理的规定，满足企业日常人事管理工作需要，并达到操作过程中的直观、方便、实用、安全等要求。 2.3、系统采用模块化程序设计方法，既便于系统功能的各种组合和修改，又便于未参与开发的动手术维护人员补充、维护。

2.4、系统应具备数据库维护功能，及时根据用户需求进行数据的添加、删除、修改、备份等操作。 3、

开发和运行环境选择

5

本系统软件可以在大多数的Windows x下运行使用。

4、

系统功能分析 系统的管理功能如下：

4.1、员工基本信息、学历信息、婚姻信息、工作岗位信息、部门

信息等信息的输入。

4.2、对员工各种信息的修改、删除操作。

4.3、根据某些条件或一个条件对员工信息进行查询、浏览。 4.4、员工信息的打印。 4.5、使用帮助。 5、

系统功能模块设计数据需求分析

根据以上设计分析得到下面所示的功能模块图（1-1）。

人事管理系统 系 统 模块 输入维护模块 查看模块 报表模块 帮助模块 模 块 （1-1）系统功能模块图

6

二、 系统的结构设计

1、数据库的建立

传统的人事管理都是经过手工抄写，然后封在档案袋中，随着科学技术的提高，又出现了计算机数据库管理，然而，大多数软件仍然不能减轻过重的负担，人们开发应用程序是逐句编写代码，不仅周期长，效率低,质量差，而且重复劳动多，不易修改和维护。随着计算机行业发展,到今天产生了编程语言即面向对象的可视化编程语言。如Visual C++, Visual Basic, Delphi, PowerBuilder 等。其中PB是数据库应用系统的强有力的客户端开发工具之一,十分适用于我们现在开发的系统。

PB数据库不但容易建立，而且易于操作，大大减轻了人事管理的负担，同时该系统结构清晰，实用性较强，因此受到企业的欢迎。

2、系统功能分析 2.1、登录（身份验证）

检测用户是否为合法的用户，若是则能进入本系统，否则认为是非法的用户，不允许进入本系统，只有取得用户名和密码才可进入。

2.2、输入模块的功能

在本模块中，可以输入员工的基本信息、学历信息、婚姻状况、工作岗位信息、企业部门信息。其中有一部分内容是必须填写的，如果不填写，则系统不保存，系统会提示用户。

2.3、维护模块的功能：此模块用于对信息进行修改、删除操作。 2.4、查看模块的功能

员工的各种信息进行浏览，查看某位员工的信息，通过某些条件进行查询。 2.5、报表模块的功能：打针所需要的员工的信息。

2.6、帮助模块的功能：了解系统的制作等相关信息和怎样操作此系统。 2.7、系统功能结构图（1-2）：

7

身份验证 重新登录 系统 退出 基本信息 婚姻状况 输入 学历 部门信息 职称信息 人基本情况表 事婚姻状况表 管理系统 维护 学历表 部门信息表 职称信息表 基本情况查看

查看 其它情况查看

条件查询 报表 打印 关于 帮助 8 帮助 （1-2）系统功能结构图

2.8、各实体及实体与实体之间的实体图：

员工实体图：

员 工

员工婚姻 员工基本 员工学历 信 息 信 息 状 况

（1-3）员工实体图

部门实体图： 部 门

部门（副）部门代号 部门名称

经理

（1-4）部门实体图

9

岗位实体图： 岗 位

岗位代号 岗位名称

（1-5）岗位实体图 实体与实体之间的关系E-R图 属于 担任 部 门 员 工

(1-6) 2.9、数据库结构的设计

岗位权力 范围 岗 位 2.9、系统流程图

10

开始

否 连接成功 是

否 合法用户 打开身份验证窗口 连接数据库 是

系统 输入 维护 查看 报表 帮助 打开主窗口 关闭身份验证窗口

结束 (1-7)

3.0、数据库结构的设计

11

Job工作岗位情况表

表1 Dept部门信息表 列名 Job_id Job_name Job_power Job_task 数据类型 Number(3) Varchar2(10) Varchar2(30) Number(6) 可否为空 NOT NULL NOT NULL NULL NULL 说明 工作岗位代号（主键） 工作岗位名称 岗位权力范围 岗位任务描述 表2 Employee_marriage员工婚姻状况表 列名 Emp_no 数据类型 Number(6) 可否为空 NOT NULL 说明 员工号（外部键），指向员工基本情况表的Emp_no 爱人代号 爱人姓名 爱人生日 结婚时间 爱人工作单位 爱人政治面貌 爱人工作职务 Lover_no Lover_name Lover_birthday Marriage_date Lover_zzmm Lover_job Number(6) Varchar2(10) Date Date Varchar2(4) Varchar2(10) NULL NULL NULL NULL NULL NULL NULL Lover_company Varchar2(20) Employee_school员工学历表 表3

列名 Emp_no 数据类型 Number(6) 可否为空 NOT NULL 说明 员工号（外部键），指向员工基本情况表的Emp_no 学历 专业 毕业时间 毕业学校 学校类型 外语1 外语1级别 外语2 外语2级别 Emp_xl Emp_major By_date By_school School_class Foreign_language1 Foreign_language2

Number(6) Varchar2(10) Date Varchar2(20) Varchar2(6) Varchar2(6) Varchar2(6) NULL NULL NULL NULL NULL NULL NULL Foreign_language1_class Varchar2(6) Foreign_language2_class Varchar2(6) 12

表4 Employee_basic员工基本情况表 列名 Emp_no Emp_name Dept_id 数据类型 Number(6) Varchar2(10) Number(3) 可否为空 NOT NULL NULL NULL 说明 员工号（主键） 员工姓名 所在的部门号（外部键），指向部门信息表的Dept_id 性别 生日 籍贯 国籍 民族 身份证号 婚姻状况 健康状况 政治面貌 参加时间 血型 参加工作时间 员工状态 状态时间 家庭住址 联系电话 联系E-mail地址 工作岗位代号（外部键），指向工作岗位情况表的Job_i Emp_gender Emp_birthday Emp_hometown Emp_country Emp_nation Emp_id Emp_marriage Emp_health Emp_zzmm Emp_zzmm_date Emp_blood Emp_startwork Emp_state Emp_state_date Emp_homeadress Emp_teleno Emp_email Job_id Varchar2(2) Date Varchar2(8) Varchar2(10) Varchar2(10) Number(20) Varchar2(2) Varchar2(20) Varchar2(4) Date Varchar2(2) Date Varchar2(10) Date Varchar2(10) Number(10) Varchar2(20) Number(3) NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL NULL

表5 Dept部门信息表 列名 Dept_id Dept_name Dept_desc Dept_manager 数据类型 Number(3) Varchar2(10) Varchar2(30) Number(6) 可否为空 NOT NULL NULL NULL NULL 说明 部门代号（主键） 部门名称 部门职能描述 部门经理代号（外部键），指向员工基本情 13

况表的Emp_no Dept_vicemanager Number(6) NULL 部门副经理代号（外部键），指向员工基本情况表的Emp_no

三、 模块分述及窗口

主窗口：

3.1、登录（身份验证）

检测用户是否为合法的用户，若是则能进入本系统，否则认为是非法的用户，不允许进入本系统，只有取得用户名和密码才可进入。重新登录界面如下：

14

3.2、输入模块的功能

在本模块中，可以输入员工的基本信息、学历信息、婚姻状况、工作岗位信息、企业部门信息。其中有一部分内容是必须填写的，如果不填写，则系统不保存，系统会提示用户。输入员工的基本信息窗口如下：

3.3、维护模块的功能

此模块用于对输入模块中的信息进行修改、删除操作。

15

3.4、查看模块的功能

这部分的功能是对员工的各种信息资料进行浏览，如想查看某位员工的信息，则可通过某些条件进行查询。

3.5、报表模块的功能 打针所需要的员工的信息。

16

3.6、帮助模块的功能

了解此系统的制作等相关信息和怎样操作此系统。

17

四、结论------问题和收获

管理系统对于我来说真是不能想象，我不能保证是否能做出这个系统，但我的人事管理系统经过多次运行，我感到系统确实可以提高工作效率，减少了人事管理人员的工作量，并且方便了用户。系统功能基本运行良好，且用户界面友好，操作简单，使用方便。但系统仍然有不完善之处：因为本人水平有限，所以使得系统功能过于简单，这只是其中的几个模块，若时间能长一些，也许会做好一点，这个系统是否能用于实践，我还没试验过，但我相信我能够设计出较理想的系统来。设计中我遇到了许多困难，在老师和同学们的帮助下我还是克服了。

在设计过程中我的收获很大：这次设计使我对数据库的系统理论知识有了更深的了解，使我对PowerBuilder8.0的基础知识的运用游刃有余，并且对代码的编写也掌握了很多， 例如插入、删除、修改等基本代码我已经能随手而得。

18

五、参考文献：

[1] 张长富 李匀 PowerBuilder 6.0开发人员指南 希望图书创作室

1998年6月

[2] 何军 刘红岩 PowerScript语言、事件与函数 电子工业出版社

1999年9月

[3] 刘增进 PowerBuilder 7.0数据窗口技术详解 电子工业出版社

2000年3月

[4] 何旭洪 余建英 PowerBuider8.0数据库系统开发实例导航 人民邮电出版社 2002年4月

[5]郭兴成 PowerBuilder8.0 数据库教程 北京希望电子出版社

2002年7月

19

六、开发代码

附录：开发代码如下所示：

******************************************************************* （一）、帮助中的(w_about)窗口：

两个多行文本框(\"Create MultiLineEdit control1\MultiLineEdit control2\"),两个静态文本框(\"Create StaticText control1\

******************************************************************* （二）、登录窗口(\"w_login\"):

由三个静态文本框(\"Create StaticText control\"）、一个群组控件（“Create GroupBox control\")和两个按钮（\"CommandButton\")组成。代码如下： w_login--------open() environment l_env

int l_scrwidth,l_scrheight setredraw(false)

getenvironment(l_env)

l_scrwidth=pixelstounits(l_env.screenwidth,xpixelstounits!) l_scrheight=pixelstounits(l_env.screenheight,ypixelstounits!) move((l_scrwidth - this.width)/2,(l_scrheight - this.height)/2) setredraw(true)

cb_1--------clicked() //确认 int g_input_time=0

if sle_1.text=\"a\" and sle_2.text=\"1\" then open(w_main) close(w_login) messagebox(\"\欢迎进入本系统\") else messagebox(\"警告\输入用户口令有误，请重新输入\") end if

cb_2--------clicked() //取消 close(w_login)

******************************************************************* （三）、主窗口(w_main)：

由一个图片控件(“Create Picture control”)组成。代码如下： w_main--------timer() str=\"\"

if j=146 then j=0

20

else j=j+2 end if

if j>=120 then str=right(\"★欢迎进入人事管理系统★\else for i=1 to 120 - j str=str+\" \" end for str=str+\"★欢迎进入人事管理系统★\" end if

this.title=str

w_main--------open() timer(.2)

Declare--------Global Variables int i,j string str

******************************************************************* （四）、输入中的五个窗口基本相同出只写其中一个。

输入基本信息窗口（w_insert_basic)：

由一个静态文本框(\"Create StaticText control1\"）、一个数据窗口控件（“Create DateWindow control\")和五个按钮（\"CommandButton\")组成。其中数据窗口中导入的数据表为(\"d_basic\"),代码如下：

w_insert_basic--------open() dw_1.settransobject(sqlca) dw_1.retrieve()

cb_1--------clicked() //插入 long row_number w_insert.dw_1.reset()

row_number=insertrow(w_insert_basic.dw_1,0) cb_2--------clicked() //删除 long current_rownumber

current_rownumber=w_insert_basic.dw_1.getrow() deleterow(w_insert_basic.dw_1,current_rownumber) cb_3--------clicked() //确认

if update(w_insert_basic.dw_1,true,false)=1 then w_insert_basic.dw_1.resetupdate() commit;

21

else rollback; messagebox(\"错误！！！\数据保存失败\") end if

cb_4--------clicked() //退出 int mcount int updateornot

mcount=w_insert_basic.dw_1.modifiedcount() if mcount=0 then close(w_insert_basic) elseif mcount>0 then updateornot=messagebox(\"保存修改\您修改了数据窗口中的数据，现在是否保存？\ if updateornot=1 then if update(w_insert_basic.dw_1,true,false)=1 then w_insert_basic.dw_1.resetupdate() commit; else rollback; messagebox(\"错误！！！\数据保存失败\") end if close(w_insert_basic) elseif updateornot=2 then rollback; close(w_insert_basic) end if end if

******************************************************************* （五）、维护中的五个窗口基本相同只写其中一个。

维护员工的部门信息窗口(w_weihu_dept):

由一个静态文本框(\"Create StaticText control\")、一个数据窗口控件（“Create DateWindow control\"）和两个按钮（\"CommandButton\"）组成。代码如下： w_weihu_dept-------open() dw_1.settransobject(sqlca) dw_1.retrieve()

cb_1--------clicked() //确定修改

if update(w_weihu_dept.dw_1,true,false)=1 then w_weihu_dept.dw_1.resetupdate()

22

commit; else rollback; messagebox(\"错误！！！\数据保存失败\") end if

cb_1--------clicked() //退出 int mcount int updateornot

mcount=w_weihu_dept.dw_1.modifiedcount() if mcount=0 then close(w_weihu_dept) elseif mcount>1 then updateornot=messagebox(\"保存修改\您修改了数据窗口中的数据，现在是否保存？\ if updateornot=1 then if update(w_weihu_dept.dw_1,true,false)=1 then w_weihu_dept.dw_1.resetupdate() commit; else rollback; messagebox(\"错误！！！\数据保存失败\") end if close(w_weihu_dept) elseif updateornot=2 then rollback; close(w_weihu_dept) end if end if

******************************************************************* （六）、查看中的五个窗口基本相同只写其中一个。

学历信息浏览窗口（w_browse_school)：

由一个静态文本框(\"Create StaticText control1\"）、一个数据窗口控件（“Create DateWindow control\")和五个按钮（\"CommandButton\")组成。其中数据窗口中导入的数据表为(\"d_sxhool\"),代码如下：

cb_1--------clicked() //最前一条 dw_1.scrolltorow(0)

cb_2--------clicked() //前一条 integer row_current

23

row_current=dw_1.scrollpriorrow() if row_current=1 then messagebox(\"警告\已经是最前一条记录\") end if

cb_3--------clicked() //后一条 integer row_count integer row_current

row_current=dw_1.scrollnextrow() row_count=dw_1.rowcount() if row_current=row_count then messagebox(\"警告\已经是最后一条记录\") end if

cb_4--------clicked() //最后一条 integer row_count

row_count=dw_1.rowcount() dw_1.scrolltorow(row_count) cb_5--------clicked() //退出 close(w_browse_school)

*******************************************************************

条件查询窗口（w_lookfor）：

由五个静态文本框(\"Create StaticText control\")、一个数据窗口控件（“Create DateWindow control\"）、一个下拉式文本框(“Create DropDownListBox control”)和三个按钮（\"CommandButton\"）组成。其中数据窗口中导入的数据表为(\"d_basic_grid\"),代码如下： w_lookfor--------open() dw_1.settransobject(sqlca) ddlb_1.setfocus()

cb_1--------clicked() //查询 string lookforcondition

string lookforitem1,lookforitem2,lookforitem3 string lookforhow1,lookforhow2,lookforhow3 string lookforwhat1,lookforwhat2,lookforwhat3 string lookforoperator1,lookforoperator2 lookforhow1=ddlb_4.text lookforhow2=ddlb_5.text lookforhow3=ddlb_6.text if ddlb_7.text=\"与\" then lookforoperator1=\"and\" elseif ddlb_7.text=\"或\" then

24

lookforoperator1=\"or\" elseif ddlb_7.text=\"非\" then lookforoperator1=\"not\" end if

if ddlb_8.text=\"与\" then lookforoperator2=\"and\" elseif ddlb_8.text=\"或\" then lookforoperator2=\"or\" elseif ddlb_8.text=\"非\" then lookforoperator2=\"not\" end if

if ddlb_1.text=\"员工号\" then lookforitem1=\"emp_no\" lookforwhat1=sle_1.text

elseif ddlb_1.text=\"员工姓名\" then lookforitem1=\"emp_name\" lookforwhat1=\"'\"+sle_1.text+\"'\" elseif ddlb_1.text=\"部门号\" then lookforitem1=\"emp_id\" lookforwhat1=sle_1.text elseif ddlb_1.text=\"性别\" then lookforitem1=\"emp_gender\" lookforwhat1=\"'\"+sle_1.text+\"'\" elseif ddlb_1.text=\"出生年月\" then lookforitem1=\"emp_birthday\" lookforwhat1=sle_1.text elseif ddlb_1.text=\"籍贯\" then lookforitem1=\"emp_hometown\" lookforwhat1=\"'\"+sle_1.text+\"'\" elseif ddlb_1.text=\"国籍\" then lookforitem1=\"emp_country\" lookforwhat1=\"'\"+sle_1.text+\"'\" elseif ddlb_1.text=\"民族\" then lookforitem1=\"emp_nation\" lookforwhat1=\"'\"+sle_1.text+\"'\" elseif ddlb_1.text=\"身份证号\" then lookforitem1=\"emp_id\" lookforwhat1=sle_1.text

25

elseif ddlb_1.text=\"婚姻状况\" then lookforitem1=\"emp_marriage\" lookforwhat1=\"'\"+sle_1.text+\"'\" elseif ddlb_1.text=\"健康状况\" then lookforitem1=\"emp_health\" lookforwhat1=\"'\"+sle_1.text+\"'\" elseif ddlb_1.text=\"政治面貌\" then lookforitem1=\"emp_zzmm\" lookforwhat1=\"'\"+sle_1.text+\"'\" elseif ddlb_1.text=\"家庭住址\" then lookforitem1=\"emp_homeadress\" lookforwhat1=\"'\"+sle_1.text+\"'\" elseif ddlb_1.text=\"电话\" then lookforitem1=\"emp_teleno\" lookforwhat1=sle_1.text

elseif ddlb_1.text=\"工作种类\" then lookforitem1=\"job_id\" lookforwhat1=\"'\"+sle_1.text+\"'\" end if

if ddlb_2.text=\"员工号\" then lookforitem2=\"emp_no\" lookforwhat2=sle_2.text

elseif ddlb_2.text=\"员工姓名\" then lookforitem2=\"emp_name\" lookforwhat2=\"'\"+sle_2.text+\"'\" elseif ddlb_2.text=\"部门号\" then lookforitem2=\"emp_id\" lookforwhat2=sle_2.text elseif ddlb_2.text=\"性别\" then lookforitem2=\"emp_gender\" lookforwhat2=\"'\"+sle_2.text+\"'\" elseif ddlb_2.text=\"出生年月\" then lookforitem2=\"emp_birthday\" lookforwhat2=sle_2.text elseif ddlb_2.text=\"籍贯\" then lookforitem2=\"emp_hometown\" lookforwhat2=\"'\"+sle_2.text+\"'\" elseif ddlb_2.text=\"国籍\" then

26

lookforitem2=\"emp_country\" lookforwhat2=\"'\"+sle_2.text+\"'\" elseif ddlb_2.text=\"民族\" then lookforitem2=\"emp_nation\" lookforwhat2=\"'\"+sle_2.text+\"'\" elseif ddlb_2.text=\"身份证号\" then lookforitem2=\"emp_id\" lookforwhat2=sle_2.text

elseif ddlb_2.text=\"婚姻状况\" then lookforitem2=\"emp_marriage\" lookforwhat2=\"'\"+sle_2.text+\"'\" elseif ddlb_2.text=\"健康状况\" then lookforitem2=\"emp_health\" lookforwhat2=\"'\"+sle_2.text+\"'\" elseif ddlb_2.text=\"政治面貌\" then lookforitem2=\"emp_zzmm\" lookforwhat2=\"'\"+sle_2.text+\"'\" elseif ddlb_2.text=\"家庭住址\" then lookforitem2=\"emp_homeadress\" lookforwhat2=\"'\"+sle_2.text+\"'\" elseif ddlb_2.text=\"电话\" then lookforitem2=\"emp_teleno\" lookforwhat2=sle_2.text

elseif ddlb_2.text=\"工作种类\" then lookforitem2=\"job_id\" lookforwhat2=\"'\"+sle_2.text+\"'\" end if

if ddlb_3.text=\"员工号\" then lookforitem3=\"emp_no\" lookforwhat3=sle_3.text

elseif ddlb_3.text=\"员工姓名\" then lookforitem3=\"emp_name\" lookforwhat3=\"'\"+sle_3.text+\"'\" elseif ddlb_3.text=\"部门号\" then lookforitem3=\"emp_id\" lookforwhat3=sle_3.text elseif ddlb_3.text=\"性别\" then lookforitem3=\"emp_gender\"

27

lookforwhat3=\"'\"+sle_3.text+\"'\" elseif ddlb_3.text=\"出生年月\" then lookforitem3=\"emp_birthday\" lookforwhat3=sle_3.text elseif ddlb_3.text=\"籍贯\" then lookforitem3=\"emp_hometown\" lookforwhat3=\"'\"+sle_3.text+\"'\" elseif ddlb_3.text=\"国籍\" then lookforitem3=\"emp_country\" lookforwhat3=\"'\"+sle_3.text+\"'\" elseif ddlb_3.text=\"民族\" then lookforitem3=\"emp_nation\" lookforwhat3=\"'\"+sle_3.text+\"'\" elseif ddlb_3.text=\"身份证号\" then lookforitem3=\"emp_id\" lookforwhat3=sle_3.text

elseif ddlb_3.text=\"婚姻状况\" then lookforitem3=\"emp_marriage\" lookforwhat3=\"'\"+sle_3.text+\"'\" elseif ddlb_3.text=\"健康状况\" then lookforitem3=\"emp_health\" lookforwhat3=\"'\"+sle_3.text+\"'\" elseif ddlb_3.text=\"政治面貌\" then lookforitem3=\"emp_zzmm\" lookforwhat3=\"'\"+sle_3.text+\"'\" elseif ddlb_3.text=\"家庭住址\" then lookforitem3=\"emp_homeadress\" lookforwhat3=\"'\"+sle_3.text+\"'\" elseif ddlb_3.text=\"电话\" then lookforitem3=\"emp_teleno\" lookforwhat3=sle_3.text

elseif ddlb_3.text=\"工作种类\" then lookforitem3=\"job_id\" lookforwhat3=\"'\"+sle_3.text+\"'\" end if

if ddlb_1.text=\"\" or ddlb_4.text=\"\" then elseif ddlb_2.text=\"\" or ddlb_5.text=\"\" then lookforcondition=lookforitem1+lookforhow1+lookforwhat1+\"\"

28

elseif ddlb_3.text=\"\" or ddlb_6.text=\"\" then lookforcondition=lookforitem1+lookforhow1+lookforwhat1+\"\"+lookforoperator1+\" \"+lookforitem2+lookforhow2+\"\"+lookforwhat2+\"\" else lookforcondition=lookforitem1+lookforhow1+lookforwhat1+\"\"+lookforoperator1+\" \"+lookforitem2+lookforhow2+\"\"+lookforwhat2+\"\"+lookforoperator2+\" \"+lookforitem3+lookforhow3+\"\"+lookforwhat3+\"\" end if

dw_1.setfilter(lookforcondition) filter(dw_1) dw_1.retrieve()

cb_2--------clicked() //打印 dw_1.print() close(w_lookfor)

cb_2--------clicked() //退出 close(w_lookfor)

*******************************************************************

被调用的(w_lookfor_report)窗口：

由三个静态文本框(\"Create StaticText control\")、三个数据窗口控件（“Create DateWindow control\"）和两个按钮（\"CommandButton\"）组成。其中数据窗口中导入的数据表为(\"d_basic\"、”d_marriage”、”d_job” ),代码如下： w_lookfor_report--------open() string marriage_condition string job_condition string basic_condition string emp_no string job_id

dw_1.settransobject(sqlca) dw_2.settransobject(sqlca) dw_3.settransobject(sqlca)

basic_condition=\"emp_no=\"+\"\"+string(emp_no)+\"\" dw_1.setfilter(basic_condition) filter(dw_1) dw_1.retrieve()

marriage_condition=\"emp_no=\"+\"\"+string(emp_no)+\"\" dw_2.setfilter(marriage_condition) filter(dw_2) dw_2.retrieve()

29

job_condition=\"job_id=\"+\"\"+string(job_id)+\"\" dw_3.setfilter(job_condition) filter(dw_3) dw_3.retrieve()

cb_1--------clicked() //打印 long job

job=printopen()

w_lookfor_report.print(job,10,10) printclose(job)

cb_1--------clicked() //退出 close(w_lookfor_report)

*******************************************************************

（七）、 打印窗口(\"w_browse):

由一个静态文本框(\"Create StaticText control1\"）、一个数据窗口控件（“Create DateWindow control\")和三个按钮（\"CommandButton\")组成。代码如下： w_browse--------open() dw_1.settransobject(sqlca) dw_1.retrieve()

cb_1--------clicked() //保存报表 string pathname,filename int saveornot

saveornot=GetFileSaveName(\"保存文件\文件,*.xls\") if saveornot=1 then dw_1.saveas(\"D:\emp\\pb\\h1.xls\end if

cb_2--------clicked() //打印报表 st_1.show() dw_1.print() st_1.hide()

cb_3--------clicked() //退出 close(w_composite)

30

31