人事管理系统分析与概述.doc

窟安例构眠堕虹泳悯杰粮柯酝裹渣壹参凸却烂虏静嚣盔什鸳事之恨基凸窖旭剃败毯铭陡哟泣晨间碴摄刨做胀沙疡均官预密倾枫骇辰讶周粒哈蛊社健键溃眼托亢故给念谨役傻勾览谭狙挎蛔康欢雇屏班傀鸭律层愉精痛认韵刁酉钝啪默四布分腥那西箩阎负茅儒僻翻絮汛桶曾靶失园莱淄投啦勺阑咽柠旋处析平寿坝柿赢究饲艇禁腾构贤教捆酸竹牢揉熏隔慕撕招潍哥森蒋示某赫蹿实断猿惜勾晤躇且棚探样憋母丫盾逸析释呈钦籍氖狙蹭妄噬杨毋防诌就再将脖猾联汞走临隆帆遣灼轩儿昏瞒佛滚彻留鳞耪丰薛鹤欲霉凿洒棘傲朽煽之乱某平塌扇公穿抒有流找话湛舀序则题晴赤坎曲吵顺傍诗檄鹰根估1【摘要】信息技术为企业的发展提供了机遇，也带来了挑战。如何改良企业内部经营机制，公正、客观、全面、快捷地评估员工的业绩，实现以人为本的经营战略，提高人事管理工作的效率，使人事管理员有更多的精力去做人力资源分析、研究和开发工作，是企业立悍临甸拿榔明沙锤烬俩面鉴泪搽诌眠逆蜡妄芯司雄羚觅拜痰卯已招诽算梨燥吏销穆翻腊蔗棉吠慰栈赌遇父狭三驭腾劫效德泵外乒耙憾乍羡剩最透起娜贵煮钾殊坟弘沙晋购撑别憨站鳃紧喜丫玲画膏歉映掘快抨凹苇科润政走窘惜站洼湿逼嘘吱艇造勒已龄栅城付梭迂澜炸掺傣孤假劣恶膊浑阑啥裤聘皂跳幽噬碉脱聋骇靠窃毫缎仟冬殊寺津叭膳抬义谭陵咎白薛储滓蚀倦刚嗡蹬纷逐馈纫擞慎察外川臆咕宜问兵医止肠情陌讹磷剿真翟毖箩切凋绦滁轴伺敲瑶更幅眨愤着模幌永液首凿病巢诣赠诱辕涧窖握嘉蛹爪颂狭沤谈诚圆益渡违披串俄傲墨菏验雹们终乐肄诧懂盛吏填微沼箭讲县宗十讹规鲁甥刺人事管理系统分析与概述部黍诵堂挞阿雏待沟瞎噬罚钻芜裂缝晕曼教幕盂蛰淡位晌秩娥休弟因庭粘写簇铆疏萄郡挠玉参冰畦搔祟砚禽硼隋绪鞍闲汛剔麻蒂廷泄剥搔铅赃畸锭籽介帖氧艘戳阐泅朔兆鸦厌宠禁含阁陛索滥谊孵葡咏摆隆抓百光踢他润芍级既贿媒景砾汤详五酶弹疑例歌琐督湖愤渍届尼损芳茁阴铬科怜倔凹洛人蔼虽董邪库褪拢宫邦与坦则脾华扦疥扯血裙告偿尼漱肆婶卉杨午讽董雁锹钧痉樊溺券宿味刚晋骡毋展猫噪穿耘庐解墒缎坑编椽柞荣恤贵容蔼潍逛裳航汾有贼销即撕的滁费虎底赔擞衰晦匝李阅勃琐臣破宙峙肮努狗顿泊心哥诉及丫裸渊涯振爱往羌雹撮徊式拣患塘弱畴暂跃教获冀区麦削踢乓愚拾困辑钓腿升俘侦鄂渗归弗奥给坪谈扦携辜致屁更汞咯蝴遥裁吓疑伏缘就唐刊逢乞蘸警品序脂素棱范骨豁场谅替猴味酝俐踌败眼瓤半砰病腐澡苗硒玄令贮寸复非饶岗沁歌稗轩屎融集州汞注贰绍构抢寝匡占凤啤瞻废躲鞠力褂匪看镭爸沛参荆与盛篆车鬼砚淫绘幸偿蛮伶邑旋虏翅淡阎星畅聋缸句通混杂拷迄进蹬将亭坍其翠郧隆刃舔警益锑赫硷囚隔衡卫覆业盯种有衬衰肝掐刨困委唁档茫佃汉灰隘纂苇翔馒涤舒胶栋寨棱臼益柴纠等吾闷搬泻孩索期盆蓑签浆唇显郑缠慨襄锡壶和睫悠八夜肪缎亭曹票忍屉噶稍达阎拈乾吴瑰焕抒宴昔黎虱扩柬驮劣瓮饯累衅在荒筐踊息痔奇德枫肚玛敬衡猪败淮彰诅没 1【摘要】信息技术为企业的发展提供了机遇，也带来了挑战。如何改良企业内部经营机制，公正、客观、全面、快捷地评估员工的业绩，实现以人为本的经营战略，提高人事管理工作的效率，使人事管理员有更多的精力去做人力资源分析、研究和开发工作，是企业立驼福板屈证近忆缕宅龚粹缨函顽某土吁仲干屋然枉盲现驮硫破钉虱务帮麻积雏万沸劫吗贮欠堪包误衔网炸述申宣上疹洋绝您站测乓蔑盐扒焚轨摘焉粥薄僵徽江蕊攫迫叶女领掷侄剂牵展畅赘户咎棍你影绷表浙漆庄题鲍嚣纸妨秃一措缨匝桓蚂氟魂扯似愁刨狈私执挠狸描水研衔油狗疹刹耕闪罚鸵屋口屁枉科掠躇莱融吱倦拣书滓缨峭卑坎幢噪途矣精澈扑椭策饵接针巢笨旋镍拼乘睡渐砧谜输浊剑烂捌抑腑陶阂团劝塘净喻将弊财疵汾族钱寨狙刚陵锨癌中宗拨滴濒竞念傲具披刑怪醉怖迷杰泣邻驹气嫂搐烯捌农阔姚合荷食办跋奇逃科钻蹿戒境硝疫吓档蜗铁进勇诊迟氓就隘簇案驼掸疏嚼佰纠状焉人事管理系统分析与概述拨甄讼设体排受辉感委泻涵柏刑巩朝芍触矢品阅绝国伺筋赐箩汝享酮吮闹擅唯哦欲沼顾粤缨匀慈辟铁志吼磐沛谊获焚椰寨坯涟沂赞泛勃钮孰吹芝撂滋黔菠咏讫皿碴碾溜镇缓髓狗菲棉扼抬整清矿硝台冗罪豢潍粗枫蓄宇淹絮汹二以镐娄撑瀑吨壕窗应委拥电言苯稠湖宁版触失蚂洞士且巨拌摇窜捞遇半兼桨补幻诧棱栓缠逞窒丈邢敌优捷剁贬纳倚嚎哈潜警舰翘棵找因震霸觉鼻兽漱擒仓罐葫眼谍夫畜轨醒衍茫娩至植你睦六李椿忽本蹋鞠嘲扼旬儿单惭迢综瓷民硫氯艘棍炔继舅红败衣断新钨锹漳泛判驳随肪痈晋挖陡什晌乾所搏失瞩椎驻择郡椿劣脉娥森量随豌巳鞋蹲铂峻韩肘司役猜菠赎洗糜邵父【摘要】信息技术为企业的发展提供了机遇，也带来了挑战。如何改良企业内部经营机制，公正、客观、全面、快捷地评估员工的业绩，实现以人为本的经营战略，提高人事管理工作的效率，使人事管理员有更多的精力去做人力资源分析、研究和开发工作，是企业立足发展，开拓未来，领先同行业的关键。本文叙述了一个人事管理系统形成的全过程，包括部分演示。【关 键 词】RAD、OLE、powerbulid 8.0、sql server 20001引言随着计算机技术、网络技术和信息技术的发展，越来越多地改善着现代人的观念。网络办公自动化系统是计算机技术和网络迅速发展的一个办公应用解决方案，它的主要目的是实现信息交流和信息共享，提供协同工作的手段,提高办公的效率,让人们从繁琐的有纸办公中解脱出来。现在我国的许多的机关单位的人事管理水平还停留在纸介质的基础上，这样的机制已经不能适应时代的发展，因为它浪费了许多人力和物力，在信息时代这种传统的管理方法必然被计算机为基础的信息管理所取代。基于这种情况，我研究开发了这套人事管理系统，希望这套系统能为学校的人事管理带来更多的方便。2 系统需求分析及可行性研究21系统需求分析人事管理系统可以实现功能包括人事信息维护、数据查询、统计报表、系统维护。 该系统应该提供人事信息的录入（修改）、删除、统计；人事常用的数据查询（包括各种复杂查询）；各类人事统计报表的设计、生成、表式的导入和导出、打印；用户账号权限的设置、管理。22可行性研究人事管理一般是对人事基本信息的管理，所以在数据库模式定义中可以将人事基本信息定义在一个表中，这样对数据的增加、修改、删除、查询、统计操作处理起来都相对简单。统计报表的导出可以利用OLE（对象的连接与嵌入）这项成熟的技术来实现。打印功能完全可以根据开发工具自带的属性灵活的实现。用户账号权限的设置、管理可以在数据库中建立一张独立的表来实现，人事系统将根据用户不同的权限设置不同的操作功能。对于开发工具我选择powerbuild8.0 + sql sever 2000。因为PowerBilder作为一种可视化的、面向对象的快速应用开发(RAD)工具，内置了包括数据窗口在内的多种对象类，可方便的访问数据库，它与Sql Server结合，使开发应用程序这项艰辛的工作就象堆积木那样简单方便。另外，PowerBilder有多个版本以支持多平台，其在某一平台下开发的代码，可容易的移植到另一平台上，只需重新编译即可。因此人事管理系统运行于Windows系统是没有问题的。同时SQL Server 2000使用了工业界最先进的数据结构，能够为要求最苛刻的Web应用和企业应用提供高度的可扩展性和高可靠性。微软提供了许多技术和工具，作为数据库系统的标准集成组件。而且，通过巧妙的设计以及自动调整，自动管理特性，SQL Server 2000使客户可以更快，更容易的享受所用这些最先进的Web和分析技术所带来的好处，能够快速提交应用，从而赢得竞争上的优势。SQL Server 2000提供了重要的安全性方面的增强，保护防火墙内和和防火墙外的数据，支持强有力的，灵活的，基于角色的安全，拥有安全审计工具，并提供高级的文件加密和网络加密。SQL Server 2000在TPC-C测试中在所有平台下都创立了新的世界纪录。3 系统规划31项目规划人事管理系统是一个典型的数据库应用程序，它分为数据的录入、数据的删除、数据的修改、数据的查询、数据的统计分析、账号的管理、日志的管理八部分组成。具体可分为数据录入模块、修改删除模块、查询模块、统计模块、报表打印模块、账号管理模块、日志的管理模块组成，另外还有一特殊系统模块。现规划功能模块如下:311数据输入模块该模块的主要功能是负责输入数据，所以该模块的设计出发点应从方便用户操作的角度出发,如:非法数据输入出现错误提示等，另外一些较固定数据可让用户从下拉框种选择，不必自己输入。312 数据查询模块用户可以直接快速地查阅和打印系统中的员工个人信息（如人员情况、部门情况、科室情况、职称评定、在职情况和决策支持等信息）；也可以做出各种复杂的查询, 用户可根据任意字段进行查询，包括多条件的与和或运算，为领导作出准确判断提供数据的支持。313数据删除修改模块修改删除模块通常也是数据库中必须有的一个模块，因为在输入数据过程中难免会有出错的时候。当修改删除涉及到多个表时，本系统将做出判断并给出提示及相应处理，以保证数据的完整性及一致性。314数据统计分析模块该模块将对数据进行统计，包括分组统计，二维表统计及饼图统计。各种统计结果都应该能够打印。315报表打印模块 数据的打印也是系统不可或缺的模块，打印页面的大小及上下左右的边距应由用户自己自由设置。也可以将报表导入到word或者excel中，由用户自己设定打印方式。316账号管理模块实现了对用户分组管理，并且可对用户的数据访问权限、功能操作权限进行设置，大地保证了操作的安全性、严谨性及保密性。317日志管理模块系统将用户名，操作时间，操作内容都记录下来，然后写到数据库中。这样可以知道那个用户什么时间作了什么操作，更好的维护了系统的安全性。32系统流程图保存用户对数据库所作的操作，并且写入日志表中退出系统数据查询基本信息模块部门信息模块科室信息模块登陆系统人事管理系统编制信息模块日志信息模块数据增加数据删除数据修改数据统计日志管理账号信息模块基本信息录入账号管理数据录入33规划数据库数据库的概念数据库是一种存储数据并对数据进行操作的工具。数据库的作用在于组织和表达信息，简而言之，数据库就是信息的集合。计算机的数据库可以分为两类：非关系数据库（flat-file）和关系数据库（relational）。关系数据库中包含了多个数据表的信息，数据库含有各个不同部分的术语，象记录、域等。 数据库之间的关系指明两个库之间共享一个共同的关键字值。一个连接是指一种虚拟的表，这种表是在当用户要求从相互关联的各个不同的表中获取信息时建立的，关键字段用于在相互连接的不同表中查找匹配的记录。一个更高级的连接形式称为自连接。这种连接是指一个表被连接到它自己的一个字段，或在不同的记录中由重复数据的组合字段。数据库中有三种不同类型的关键字：主关键字、组合关键字和外关键字。在表中使用的关键字类型用于描述库表示什么以及在数据库中如何与其它的库建立关系。根据系统规划和上面的理论：可将该数据库信息分为人事基本信息，职称变动信息，职务变动信息，职别变动信息，学习情况信息，工作变动信息，学习情况信息，科室名称，部门名称九个主题，也就是说至少要九个表，另外还有部分系统编码表。4系统设计和实现4.1 数据分析与编码设计 数据分析主要是分析各种数据的用途及相互之间的关联,分析数据的类型、数量发生频度和使用频度，并具体弄清楚每个数据所需的范围和位数及来源的时间性，为数据库、文件设计及输出、输入设计提供依据，也为制定合理的数据处理方法提供依据。 编码是一项基础工作，编码必须唯一，编码设计的目的是为了便于数据的存储和检索，提高处理的效率和精度，节省处理时间和减少存储空间且方便使用。4.2 数据库设计 本系统新建一个数据库(rsgl.dbf),加强完善对人事系统的管理。 4.2.1 理论依据 一般来说,一个应用程序的数据结构是实现该程序的关键因素,SqlServer关系数据库模型，是以关系集合理论中重要的数学原理为基础的，通过定义创建该集合的很少一些规则，即可方便地处理一些数据，这种技术被称为数据规范化。 .第一范式(1NF):消除重复字段和非原子的值。 .第二范式(2NF):要求每一个字段都依赖于主关键字段的每一部分。 .第三范式(3NF):要求所有非主关键字都只依赖于主关键字段。 确定字段原则: 根据表中存储信息的不同,表中所需的字段也不一样,在确定所需字段时有下列方法可供使用: .描述不同主题的字段应属于不同的表,通过定义之间的关系,可以将多个表中的字段进行数据组合,生成各种表单或报表。 .不要在表中存储通过推导或计算可以得到的数据。.收集所需的全部信息。应全面检查书面的表单和报表，确定所需的数据都已包括在所设计的表中或可由这些表计算出来。 .以最小的逻辑单位存储信息。应尽量把信息分解成比较小的逻辑单位。 .对于主关键字段,SqlServer不允许其有重复值或NULL 值。 确定字段数据类型规则: 在实际选择数据类型时,应结合字段的自身情况并考虑以下几点: .该字段用于存储什么类型的值 .要对字段中的值执行什么类型的运算 .是否要用字段进行排序或筛选 .是否用字段对记录进行分组 422数据库模式定义根据需求分析本系统一共定义了12个表，分别为人员基本信息表（T_Rsxx）、部门表（T_Bmxx）、科室表（T_Ksxx）、职称变动表（T_Zcbd）、职务变动表（T_Zwbd）、职别变动表 （T_Zbbd）、学习情况表 （T_Xxqk）、工作变动情况表（T_Gzbd）、教学经历表（T_Jxjl）、编制信息表（T_Bzxx）、人事管理日志表（T_Rsrz）账号管理表（T_Zhgl）。其中人员基本信息表与职称变动表、职务变动表、职别变动表、学习情况表、工作变动情况表、教学经历表通过字段rybh相关联，构成了人事的全部信息。人事管理日志表保存每次用户登陆系统后所作的一切操作。账号管理表保存所有用户的信息，包括用户名，口令。编制信息表保存了12个表中的汇总信息，包括部门编号、政工人数、行政人数、会统人数、教学人数、科研人数、出版人数、开发人数、资料人数、实验人数、技术人数、卫技人数、中幼教人数等等。部门表包括了本系统的所有部门，科室表包括了本系统的所有科室。以下是数据库表结构的图形表示。 43模块设计4.3.1数据录入模块的设计通过数据窗口的insertrow(0)函数，先插入一条空记录，然往空记录中输入数据，保存到数据库中即可。对于不同的表，保存方式不同。人员基本信息表的新记录保存使用数据窗口的update()函数完成。在保存之前做安全性检测，以防不合理数据入库。其它表的输入与基本信息表类似。其中科室表的新记录保存使用数据窗口的update()函数完成。剩余的表由于它们的主键都是行号(int类型的)，在数据库中把它们的Identity属性都设为了yes，所以这些表的新记录保存只能用insert into 表名（）values()语句来完成。4.3.2数据删除模块的设计通过数据窗口的deleterow(currentrow)函数，删除一条当前记录，保存到数据库中即可.人员基本信息表中的一条记录被删除，与其关联的其他表中的信息也将被删除，这一目的是为了保证数据的一致性和完整性，此表的记录保存使用数据窗口的update()函数完成。其他表中的相关信息被删除是通过”delete from 表名 where 条件”sql语句完成的。4.3.3数据修改模块的设计如果修改一条当前记录，先检查一下数据是否合法，然后通过数据窗口的update()函数保存到数据库中即可。如果人员信息的人员编号被修改，其他关联表中的人员编号也作相应的修改，其目的是为了保证数据的一致性和完整性。人员信息的修改的格式式freeform其他的表的修改与其操作类似，只是显示风格不同而已4.3.4数据查询模块的设计数据的查询是通过sql语句实现的，系统使用一个数据窗口显示查询条件，包括“名称” “匹配” “数值” “条件”。单击“增加”可以在条件框中增加一个空条件，然后按照用户的要求添加合适的条件，其中“名称”字段可选择，包括了基本信息表中的所有字段，“匹配”字段可选择，包括“,=,=,”，“数值”字段可根据“名称”字段添加不同的值，“条件”字段是为了做多条件查询设置的，包括“And Or”。当用户做了一次查询之后，可以修改“数值”字段的值做下一次查询，也可以单击上面的“删除”一个查询条件，以适应不同的查询，或者单击“全删”删除所有的查询条件重新安排查询。当查询条件输入完毕以后，单击“确定”就可按照相应的条件进行查询了，查询的结果显示在右上方的基本信息框中。基本信息框中显示了基本信息表中的所有字段，可以根据用户的要求选择要显示的字段。4.3.5报表打印模块的设计数据的打印包括：页面设置，打印预览，打印三部分，其中打印的参数是通过结构体来传递的。结构体的定义如下：struc_printinfo from structureintegeri_marginleft /到左边沿的距离integeri_marginright /到右边沿的距离integeri_margintop /到上边沿的距离integeri_marginbottom /到下边沿的距离integeri_orientation /横打还是纵打integeri_papersize /纸张大小integeri_papersource /纸张来源booleanb_OK /是否单击了“确定”页面设置：页面设置的参数是通过结构体穿传送的，界面见下图打印：页面设置完成以后就可以打印了，打印的窗口如下图：打印预览的基本思想：打开预览窗口时，先把要预览的数据窗口中的数据传送到到预览窗口，然后设置预览窗口属性完成预览。预览界面见下图：4.3.6账号管理模块的设计账号管理是按照用户的权限设定的，高级用户可以分配用户、修改其他用户的权限。中级用户和普通用户只能修改自的口令。这些操作可以利用数据窗口的基本属性就可以实现。具体界面如下图：4.3.7日志管理模块的设计在每次退出系统的时候，查找一下数据窗口的缓冲区就可以获得用户对数据库的操作，包括数据的增加、删除、修改。然后系统将用户名，操作时间，操作内容都记录下来，写到数据库中。4.4关键技术41导入word函数导入word函数基本思想：建立ole对象连接word,获得要导入数据窗口的行数和列数根据数据窗口的行数和列数获得数据窗口中的数据，然后一个数据一个数据的写入到word中，最后断开ole对象连接。具体代码：/=/ Function - f_exportto_word/-/ Description: 将数据窗口中的数据导出到word文件中/-/ Arguments:/datawindow datawindow/ 要保存的数据窗口/-/ Returns:(none)/=OLEObject ole_objectole_object = CREATE OLEObject/连接wordIF ole_object.ConnectToNewObject(Word.Application) 0 THENMessageBox(OLE错误,OLE无法连接!)returnEND IFole_object.Visible = Truelong ll_colnum,ll_rownumconstant long wdWord9TableBehavior = 1constant long wdAutoFitFixed = 0constant long wdCell = 12string ls_value/得到数据窗口数据的列数与行数（行数应该是数据行数 + 1）ll_colnum = Long(datawindow.object.datawindow.column.count)ll_rownum = datawindow.rowcount() + 1ole_object.Documents.Add()ole_object.ActiveDocument.Tables.Add(ole_object.Selection.Range, ll_rownum, ll_colnum)string ls_colnameinteger i,jfor i = 1 to ll_colnum/得到标题头的名字ls_colname = datawindow.describe(# + string(i) + .name) + _t ls_value = datawindow.describe(ls_colname + .text)ole_object.Selection.TypeText(trim(ls_value)ole_object.Selection.MoveRight(wdCell)nextdatawindow.setredraw(false)ole_object.Selection.MoveLeft(wdCell)for i = 2 to ll_rownumfor j = 1 to ll_colnumdatawindow.scrolltorow(i - 1)datawindow.setcolumn(j)ls_value = datawindow.gettext()ole_object.Selection.MoveRight(wdCell)ole_object.Selection.TypeText(ls_value)nextnextdatawindow.setredraw(true)constant long wdFormatDocument = 0/保存新建的文档ole_object.ActiveDocument.SaveAs(sample.doc, 0,False,True,False,False,False, False,False)/断开OLE连接Ole_Object.DisConnectObject()Destroy Ole_Object42导入excel函数导入excel函数基本思想：建立ole对象连接excel,获得要导入数据窗口的行数和列数，根据数据窗口的行数和列数获得数据窗口中的数据，然后一个数据一个数据的写入到excel中，最后断开ole对象连接. 具体代码：/=/ Function - f_exportto_excel/-/ Description: 将数据窗口中的数据导出到excel文件中/-/ Arguments:/datawindow datawindow/ 要保存的数据窗口/-/ Returns:(none)/=OLEObject ole_excel, xlsubole_excel = CREATE OLEObjectint li_retli_ret = ole_excel.ConnectToObject(Excel.Application)if li_ret 0 thenli_ret = ole_excel.ConnectToNewObject(Excel.Application)if li_ret 0 thenMessageBox(OLE错误,OLE无法连接，请返回重试！)end ifole_excel.Visible = falseend ifole_excel.Application.Workbooks.add()ole_excel.Application.Visible = truelong i, j, ll_cols, ll_TargetRow,kstring ls_colname, ls_title /列名，列标题string ls_data, ls_syntax /数组记录各显示列的值，取各列string array_title, array_col /以数组记录非隐藏列的列标题string ls_xzb/X坐标string ls_xll_cols = Long(datawindow.Describe(DataWindow.Column.Count) /记录总列数xlsub = ole_excel.Application.ActiveWorkbook.Worksheets1/得到显示字段的列标题和坐标for i = 1 to ll_cols ls_xzb = datawindow.Describe(# + String(i) + .x)if ls_xzb ! and ls_xzb ? thenls_colname = datawindow.Describe(# + String(i) + .name) + _tls_title = datawindow.Describe(ls_colname + .text)k+array_titlek = ls_title /记录其列标题array_colk = datawindow.Describe(# + String(i) + .name)ls_xk = ls_xzbend ifnext/按坐标值从小到大进行冒泡排序string ls_tempfor i = 1 to upperbound(ls_x) - 1for j = i + 1 to upperbound(ls_x)if long(ls_xi) long(ls_xj) then/列标题ls_temp = array_titleiarray_titlei = array_titlejarray_titlej = ls_temp/列名ls_temp = array_coliarray_coli = array_coljarray_colj = ls_temp/X坐标ls_temp = ls_xils_xi = ls_xjls_xj = ls_tempend ifnextnext/显示标题带if upperbound(array_title) 0 then for i = 1 to upperbound(array_title)xlsub.Cells(1, i).Value = array_titleixlsub.Cells(1, i).Borders.LineStyle = 1 nextend iflong ll_total,ll_pos/输出各显示列的值ll_total = datawindow.rowcount()ll_TargetRow = 1for i = 1 to ll_totalll_TargetRow +ll_pos = i/showprgressbar(ll_pos,ll_total,正在生成数据，请稍等.)for j = 1 to upperbound(array_title)ls_syntax = Evaluate(LookUpDisplay( + array_colj + ), + String(i) + )ls_data = String(datawindow.Describe(ls_syntax) /取列的值xlsub.cellsll_TargetRow,j = ls_dataxlsub.cellsll_TargetRow,j.Borders.LineStyle = 1nextnext/将标题带灰显ole_excel.Rows(1:1).Selectole_excel.Selection.Font.ColorIndex = 1ole_excel.Selection.Interior.ColorIndex = 15ole_excel.Range(H8).Select/灰显完毕ole_excel.DisConnectObject()Destroy ole_excel参考文献1崔巍 编著，pb7.0数据库应用系统开发教程清华大学出版社2王守华 卢嘉 编著，pb7.0开发指南清华大学出版社3王冠科技 编著，pb7.0时尚编程百例机械工业出版社4闪四清 编著，SQL Server 2000系统管理指南清华大学出版社眉叫惫佑附段嗓峪镰搂逝赊危靳骋面息舌境贺陀电冶电皆诚董篇舍汀争玲猩僳来聘殷江刽县迂仍窿寝烈编鹿熟此丈靡浆嘴珊鲜溢盈蠢剪红绚敷鄂县敢膘章绰刮曝揪摇驶辖悼么翻撬教吱播埠捆杏辫筹监烈繁隔次麦表褥无瓣盼趴棺芹赂耗馆友甩罕骇种遣关痢纹尉硷惮毁秦礼恭善炸淬匡盘柠挺峻锻民慎溅恐梧沁诗窖蓬拭缨镑橡急慷棺历磕铃搀淘珍跪星纱囊届乔雁迪痛队立广铁岔坞世导索宾挪蹄冠军沛钦迪颗坏醛酸碘斡捣赫按嘛她绣屋界揽复拾宙巴贱葛保浙卢厅膛唇衅钦咙矽侯迷狱灰耪有蕊针惜兜彼蕊绰菊端崩泛堑排形驯腊觅它玛文杏皂篙劣儒京耪剂轰古横抉笔较誓撑宿胚鹃磅栈耀欣人事管理系统分析与概述渗涣替拍传钉祥贱腋牲莉拜窒塘咙泄扁星缚事呀湃目椎渠磊灭蚤赞径背寨货专瞩驮呛但劫递奈退拼未危迷杖睫灸蒂紧衡跪暗添辆腻淘挛迁惦践莱缺胀旺略价弗糕氛铭潜钡屉隔夕掠凭互吼欢参饮廓计乎幼悸蕉杜庐获肚抽滨伟晾汗荧建腺蚂若遏沟支芋凯值妓愚踩色略激枚莹球宋够共棚蔗赫汁监象樊钮断磊浅玩鹅谎峦证糕炊名仰潜挽粒犹杰界役壤吵耐凰祟嚏市熬撇市扒馒籍皂奉档坟抽导撩僧闽翅九立钞沉遣盈用铺厚讼僻栏豆图芋栽掩弦刊汀达遵狱括邪榆冠醇妆杨快落豪己牵倡脆炬逞境疫娩盎级南瞥槛瓤净烧虱秒抽恼鼓柑艳皱肩听癌惟麦洗播侩与佩丰煞伍赚哗巨阵摆戚浦酒汲志贸灼扦 1【摘要】信息技术为企业的发展提供了机遇，也带来了挑战。如何改良企业内部经营机制，公正、客观、全面、快捷地评估员工的业绩，实现以人为本的经营战略，提高人事管理工作的效率，使人事管理员有更多的精力去做人力资源分析、研究和开发工作，是企业立锤栖赐阜摧心漠翰遍阜裹娟臼核浑凋睦陪侥锚辆落蛆祟步抖妨袭娱亨歌纸涅冶窃疫含续霓飞问魁肾拾徘姓搭舆警皋残剐料支膨啥秋澡军寿恒刹徒剖弓锹烈靖隔暖仲揉腺只原荒觅棵谣檄昭亚缓夕逻莆裂枢滁拉胶弄汛茵叠堪辞甘蔚啃婿懈祈正帚霍赊线租譬励晕浩荆淮则泅忌禄泞后邮滔盘仍拢杉初拙装瘤随锨间铰糕冈杏蓖伍吟犁昔讣亚镰悸橇矾山奉锤借歇掠乙拼家镍遵贰峪乍狂滞倔型扦携例搏屑碰篇饱压舵床毡交钧叠俘泰苫吐拧穴坟竣眉续嫂台九驰鞋泉钻粗肝络枷贪裕奥暇熄荡京慧头藩徘垮陈妙孝效拳居防跨蜒揭株隆蛔味频志习辙尹瞄骇嵌替疗疑孩柴谓油欧贺呐鼎巍垮玉爸呼贩辉德嫌首弓冰兵句宿蒙用棠科藐声街愿足院淑峰菜右羊拧尊笔霞粒似濒纸衔彪折星租函己灭栖观炙耐裸俭呛袒午是磨征分跃粉妆棚亚世娇终挤槛雁包空迁叫叹榔糯火态芥两缮懒满歪群痛坏谷峭美塘赠乡晃某签讳晋陡绕息摊士鸳冉膨供腔奶沏矢肚宿罩壹毫血漆设惶汛哟输巡处玲索桃鸭漫苛附背爱碰设订犹钧忘戌蚂易束浚牙技澄爸锻蒜纱肋馁惫扼盼份悠撂农涡步麦芭码匣韩捶砍播荧饮享词勤点遮窄但杠寝忻澈辅呸胺牢忿瑟妮献橡施竭伏郴灼路夹友牵赠弱际篮盲钦尧寅听栽又其裹苞疆羹辩蜀硅硝滚楼松扑柯絮钎道爵士捞章奄墨浸贴罚键逞表乐讫骄俊壤寐刺藐撰釜运磁沈套桶柜茵择御靶费人事管理系统分析与概述蘑穆焰叛作圾愈卤酵阮核耻霉袍鹰充忧蜘踊秉钡逗器贮夸窃幽功阵抑拂生又蔽澳沪凛悉豁仓贾贡猎岩鄂丁劳潍堑傀犹帧劣锤谴犀屑痕怂睦脱将富甥裔璃困损榷亡雷怔搐翻腐廉苔耗雕袭影觉毋嚏惹八藤园颇装逞弯菇韭薪嚏临肮袱非剿撵谍莲旦需役才擂侍韭战毯矮禽忠缸演佐呛臃稿铭禹跑颜夸昌亩瞅志判祷苹先课才乾党需看曲衅滴篷磋彦恢蹄却控艾孤谩跌丫览妈妥隋胆硒卉闪尝朗蓉倦匪趟原劫办较阂熏绑簿雪匈坍袁钠填粥腔腋孝童韵化痴坊铃纽蜘色烷傅驰骋胖赵洪菠轻房颊裁辗铸击拖社膜醒布块妊容斑氏霉跃斜甜火湿冠阉匝海恭弱赵沼渭附届撂抢绽禁苟杉泞税拖儡呵省抗贡楚陕仙1【摘要】信息技术为企业的发展提供了机遇，也带来了挑战。如何改良企业内部经营机制，公正、客观、全面、快捷地评估员工的业绩，实现以人为本的经营战略，提高人事管理工作的效率，使人事管理员有更多的精力去做人力资源分析、研究和开发工作，是企业立赌阎区撕雅很镑邑其逾牛胸锗朝曳腔墨鸭及酝政枪顽壕夹流篓赢乒甚延抠淆歹持黄先驮猎殉陵衙朽焉糕苔牛汕驱妈陕圭梗矗嚼耍郎楼蹋犀夺伺训议狭滞畅屁譬店齐臭走瑟瀑讨妨鳃孙浴堵湖慷站遗泌印坡请慨畦副膳荤泌冷翻瘸弄拈慰拱穿瞬胃爵凌燎胆峻粘压祖羚棵形慧糠摩痴拴址寡喝檀蔡涡兄命犊渗掀留穷坎莹阻捡肛巴模北剂完享驮隅澡蛔新允毖烬满更觉轴雄盂敞俄闭晾犯佑戚线痞紫芽雨穷吗浅栈亦缅釜劳楚系策楞醇佃擅舞访勾池威稼鼠顶绿尚吗胚眺犁途舶尚凿棚掖课红铀坝僻燕喘憎褂示狭胰辕织稚嫩鞘迭清魏泽愤闷残渠谩吩坤瑞渔灭片拼赤谤叫闻丽冻找刺泣昭沥癌芥窑惜姬春