《模拟人才招聘选拔群体决策支持系统.doc》由会员分享，可在线阅读，更多相关《模拟人才招聘选拔群体决策支持系统.doc（33页珍藏版）》请在三一办公上搜索。
1、模拟人才招聘选拔群体决策支持系统人才招聘是企业人力资源管理的源头工作，对企业员工队伍的质量起着关键的把关作用。由于有关人才招聘选拔的决策问题大都是板结构化和非结构化问题，并且需要多个部门的主管或资历较深的管理人员及技术人员共同参与决策，目前还少有可供企业选用的决策支持系统。本节针对人才招聘这一颇有难度的群体决策支持问题，介绍华东理工大学研制的“模拟人才招聘选拔群体决策支持系统”，试图通过该案例系统，进一步说明群体决策支持系统的基本构造和工作原理。一 系统基本思路本系统根据人才招聘的特点，按同地异时群体决策类型设计，以工作流程方式布置一定数量的决策进程步骤，分设进程主控和招聘操作处理两个部分，在
2、一个局域网上运行。整个流程分应聘者材料阅读评价、应聘者形象评价、面试提问、应聘者答问、招聘者评分以及最终的选拔表决等一五个步骤。其中问题提问、答问和评分等步骤设两轮。因为是一个模拟系统，应聘者采用虚拟技术预设，面试以不见面的问答形式进行，所提问题和回答也预先按数倍使用量设置，应聘者的答问随机从预置答案中抽取。系统设模拟时钟，记录进程时间，步骤切换由主持者触发控制，可进可退。招聘者的分析评价采用打分制，部分内容采用模糊区间值，汇总统计采用平均、加权综合等简易算法。本系统主要用于群体决策支持系统的实验教学和企业招聘人员的操作训练，但根据具体企业的特定要求，经过少量的改动和参数设置后也能用于辅助企业
3、实际的人才招聘选拔工作。基于上述想法，系统综合应用了以下方法和技术。1. 管理决策基本思想和决策支持系统的基本原理。2. 群体决策支持系统的结构和构造方法。3. 计算机网络技术、数据库和应用开发技术。4. 人才招聘选拔的基本流程和简易人才评价方法。5. 时钟推进、事件驱动以及管理对象模拟等模拟技术。二 系统构成招聘选拔处理模块通信库招聘选拔数据库招聘选拔模型库方法库规程库应聘者材料预置提问问题、答问、评价、选拔结论内置邮件系统发布信息评审意见综合、提问随机抽取、选拔结论表决平均综合法、加权综合法、模糊评判法、时间随机函数招聘选拔规程、招聘选拔流程、进程状态招聘者1招聘者2招聘者n主持者本系统按
4、照基本的群体决策支持系统结构构造，在三库结构的基础上加入规程库和通讯库，分设供主持者和选拔者使用的两套人机接口，见图。数据库储存与管理应聘者材料、交付应聘者回答的问题和系统运行过程中产生的数据，运行过程所产生的数据包括应聘者的问题回答，招聘者对应聘者印象、材料和答问的评价意见等。模型库储存有招聘者评审意见综合、提问随机抽取以及选拔结论表决等模型。方法库储存评审和表决等决策中使用的平均综合法、加权综合法和模糊评判法等简易的数学计算方法。本系统的特点主要反映在群体决策规程和通信两个方面。规程库设有招聘选拔的规则和流程、招聘者进入确认、进程状态监视和进程步骤进退等控制机制，主持者遵循以规程和时间为依
5、据的进程控制机制组织和操纵系统的运行；通讯库设置内部邮件系统和信息发布模块，支持主持者与招聘者、招聘者相互之间在系统运行过程中的交流、讨论和协商，发布规程、进程和各个阶段成果等信息。主持者和招聘者分别使用不同的人机接口，均以按钮和菜单进行交互。前者的人机接口设有主控界面，实现进程的监控和推进、与招聘者的联络、进程信息的发布和最终结论的宣布等；后者的人机接口设有运行操作界面，供招聘者报道，按规程要求操作招聘选拔各步骤，与主持者和其他招聘者进行联系交流。招聘选拔处理模块是系统的核心，接受主持者进程控制调度和招聘者步骤操作的请求，在进程控制调度上，结合工作流程，采用时间随机函数实现推进，对步骤操作，
6、调用模型库相关模型和数据库中的数据，作相应处理，返回处理结果。三 系统运行本系统按照规程预定内容、要求和时间运作，从招聘者报道开始至宣布选拔结束，共分一五步骤，在主持者的控制下推进，必要时也可逆向返回上一步骤，作修改和补充工作。系统运作流程见图：系统总控主控系统启动接受招聘者报到各招聘者报到，操作系统启动宣布活动事项招聘者阅读活动事项发布应聘者背景材料招聘者阅读应聘者背景材料招聘者打应聘者简历分发布供选面试提问问题招聘者选择提问招聘者提问汇总、提取发布招聘者阅读提问汇总预置答问提取、发布招聘者阅读应聘者答问、打分招聘者打印象分面试、印象分综合、发布招聘者阅读评分汇总启动表决程序招聘者选拔表决表
7、决统计、抉择入选者发布招聘选拔结果招聘者收阅表决结果本系统的运作现由主持者启动并作初始化处理，然后各招聘者以报到的方式回答用户名和口令进入系统。系统运转后主持者如果退出或不做任何操作，不影响造聘者的工作，但步骤将停止推进。在运作中途，招聘者也能暂时退出系统，然后再报到进入，且不影响先前所做的工作。这些特点可以使规程的某些特殊步骤延续较长时间，让决策参与者有一定的时间动机，实现异时的群体决策。当进入系统的招聘者达到规定的人数时，主持者宣布招聘活动开始，招聘者根据每个步骤的要求单独执行决策分析工作，一个步骤完成后发出执行完毕的确认信息，等待下一步骤的开始。期间，招聘者可以通过内置的邮件系统就自己的
8、观点和意见进行私下交流。在系统运行中，主持者监视每个招聘者执行步骤地进度，向招聘者发布进程信息，但在不违反规定的情况下，不干预他们具体的分析评判工作。主持者根据预定的步骤进度决定按时、提前或延迟步骤的切换，并及时通报阶段性的招聘成果。系统对进程调度和每个步骤操作的处理，除招聘者人数和提问问题数等需积累的内容外，均在步骤切换时提交招聘选拔处理模款完成。四、数据文件说明（1）Agenda：活动步骤表，共10个步骤，每个步骤一条记录，共十条记录（已预置）（2）Answer：提问答案表，对应六个题目，每位应聘者六条记录（两层：3位应聘者X 6个题目，已预置）（3）Applican：应聘者材料表，每位应
9、聘者一条记录，三位应聘者共三条记录（已预置）（4）Mail： 邮件收发周转表，每个评委一条记录（5）Manager：招聘评委工作状态表，每个评委一条记录（主持者事先添置）（6）Myscore1：招聘评委个人各项打分表，每个招聘评委对应每个应聘者一条记录，即每个评委三条记录（两层：评委数 X 3位应聘者，初始化时重新设置记录）（7）Myscore2：招聘评委提问问题及打分表，每个评委对每个应聘者打分三题，三位应聘者共九题。每个评委九条记录（三层：评委数 X 3位应聘者 X 3个题目,初始化时重新设置记录）（8）Notes：活动事项表（已预置）（9）Ourquest：招聘评委提问问题汇总表（10）
10、Question：待抽提问问题表（已预置）（11）Readlist：供阅读的材料清单表（已预置）（12）Seledeci：决策表决记录表，结构与与Applican相同* 程序开始PARAMETERS controlx & 活动主持者代号 SET TALK OFFSET SAFETY OFFSET DATE ANSISET REFRESH TO 5SET EXACT OFFSET SYSMENU OFFSET SCOR OFFSET STATUS BAR OFFCLOSE ALLCLEARserver_path = e:czg_researchbooks-mis-2004pgdss & SET
11、DEFAULT TO &server_pathIF PARAMETERS()=0 controlx = managerx = & 本机评委代号ELSE IF controlxMIS AND controlxRESET controlx = managerx = ELSE managerx = controlx ENDIFENDIFSELECT 0USE agenda SHARE & 进程表SELECT 0USE answer SHARE & 提问答案表SELECT 0USE applican SHARE & 应聘者材料表SELECT 0USE mail SHARE & 邮件收发周转表SELEC
12、T 0USE manager SHARE & 招聘评委工作状态表表SELECT 0USE myscore1 SHARE & 招聘评委个人各项打分表（包括两个提问问题号、简历分、印象分、答题分）SELECT 0USE myscore2 SHARE & 招聘评委提问问题及打分表SELECT 0USE notes SHARE & 活动事项表LOCATE FOR Item_no=应聘人数REPLACE Item_x WITH STR(RECCOUNT(applican), 2)LOCATE FOR Item_no=评委人数REPLACE Item_x WITH STR(RECCOUNT(manager
13、), 2)SELECT 0USE ourquest SHARE & 招聘评委提问问题汇总表SELECT 0USE question SHARE & 待抽提问问题表SELECT 0USE readlist SHARE & 供阅读的材料清单表IF EOF() APPEND BLANK REPLACE Read_item WITH 活动事项ENDIF * 如果seledeci为空白则自动添加记录（条数 = applican）SELECT 0USE seledeci SHARE & 决策表决记录表SELECT applicanSCAN SCATTER TO xxx MEMO SELECT selede
14、ci IF EOF() APPEND BLANK ENDIF GATHER FROM xxx MEMO SKIP SELECT applicanENDSCAN* 产生应聘者姓名字符串SELECT applicanGO TOPappx = App_name & 当前翻选应聘者名称appnames = SCAN appnames = appnames+IIF(EMPTY(appnames), , ;) appnames = appnames+App_nameENDSCAN*SELECT 0CREATE CURSOR quest_temp(Quest_no C(3), Quest_num N(3)*
15、 初始化段IF parameters()=1 AND controlx=RESET DO do_reset RETURNENDIF *DEFINE WINDOW person FROM 5, 10 SIZE 30, 120 TITLE 人才招聘选拔系统 SYSTEM COLOR RGB(, , , 192, 192, 192)MOVE WINDOW person CENTERACTIVATE WINDOW personx 1, 3 SAY 议程： FONT 宋体, 12 STYLE BT COLOR nx 2.5, 3 FILL TO 28, 41 COLOR n/bg* & n/bIF co
16、ntrolx x 2, 54 SAY 人才招聘选拔系统 FONT 宋体, 28 STYLE B COLOR gr+/b*ELSE x 2, 54 SAY 人才招聘选拔系统 FONT 宋体, 28 STYLE BT COLOR nENDIFx 8, 44 TO 24, 116 PEN 2 STYLE 20 COLOR rbx 9, 47 TO 23, 1一三 PEN 1 STYLE 20 COLOR rbcur_status = .F. & 实际未用step_time0 = SECONDS()DO WHILE .T. SELECT agenda GO TOP SCAN WHILE Is_pass
17、 AND managerx x RECNO()*2.5+1, 4 SAY FONT 宋体, 一三 STYLE B COLOR r/gb* x RECNO()*2.5+1, 7 SAY Step_no+ +TRIM(Step_name) FONT 宋体, 一三 STYLE B COLOR N/gb* & b/bg* ENDSCAN x RECNO()*2.5+1, 4 SAY FONT 宋体, 一三 COLOR b/gb* x RECNO()*2.5+1, 7 SAY Step_no+ +TRIM(Step_name) FONT 宋体, 一三 STYLE B COLOR r+/gb* & b I
18、F EOF() GO BOTTOM ENDIF cur_stepno = Step_no IF VAL(cur_stepno)1 cur_stepno = 01 ENDIF cur_step = TRIM(Step_name) cur_data = TRIM(Step_data) DO CASE CASE controlx cur_steppm = TRIM(Step_name) CASE manager.Is_&cur_stepno AND managerx cur_steppm = TRIM(Step_prom2) OTHERWISE cur_steppm = TRIM(Step_prom
19、1) ENDCASE cur_stepp3 = TRIM(Step_prom3) x 12, 48 CLEAR TO 14, 112 x 12, 82-LEN(cur_steppm)/1.2-LEN(cur_steppm)/2 SAY cur_steppm FONT 宋体, 一八 STYLE B COLOR RGB(0, 0, 0, 192, 192, 192) IF controlx cur_second = ROUND(SECONDS(), 0) step_timex = cur_second - step_time0 + Step_time2 step_time0 = cur_secon
20、d REPLACE Step_time2 WITH step_timex ENDIF step_minx = INT(Step_time2 / 60) step_secx = MOD(Step_time2, 60) SELECT manager COUNT TO arrive_no FOR Is_&cur_stepno LOCATE FOR Manager_id=managerx IF cur_stepno=01 SELECT notes LOCATE FOR Item_no=实到人数 REPLACE Item_x WITH STR(arrive_no, 2) ENDIF this_promp
21、t = cur_stepp3+IIF(cur_step宣布招聘结果, ALLTRIM(STR(arrive_no, 2), ) x 一五, 48 CLEAR TO 17, 110 x 一五, 74-LEN(this_prompt)/2 SAY this_prompt FONT 宋体, 16 STYLE B COLOR RGB(0, 0, 0, 192, 192, 192) SELECT agenda x 20, 64 SAY 时间:+STR(Step_time1, 2)+分钟 +STR(step_minx, 2)+:+RIGHT(00+LTRIM(STR(step_secx, 2), 2)+
22、; FONT 宋体, 12 STYLE B COLOR RGB(0, 0, 0, 192, 192, 192) IF NOT EOF() SKIP ENDIF SCAN REST x RECNO()*2.5+1, 4 SAY FONT 宋体, 一三 COLOR N/gb* & b/b x RECNO()*2.5+1, 7 SAY Step_no+ +Step_name FONT 宋体, 一三 COLOR N/gb* & COLOR w+/b ENDSCAN choice1 = menu1 = IIF(controlx= , 执行, 控制) x 26, 52 GET choice1 PICTUR
23、E x*H +menu1+;阅读;邮件;退出 SIZE 1.5, 8, 2 FONT 宋体, 12 STYLE B IF controlx x 25.8, 51.3 TO 28, 64.5 PEN 3 COLOR gr+/b, gr+/b, gr+/b ENDIF* SELECT mail GO BOTTOM SKIP LOCATE FOR Manager_id=managerx in_mailx = In_mail IF NOT EMPTY(in_mailx) & AND NOT Is_read x 17.5, 77 SAY 有你的邮件. FONT 宋体, 11 STYLE B COLOR
24、w+/b* ? CHR(7) ELSE x 17.5, 75 CLEAR TO 一八.5, 100 ENDIF READ TIMEOUT 3 SELECT manager cur_stepx = cur_step DO CASE CASE choice1=控制 DO do_control WITH cur_stepx CASE choice1=执行 DO do_step WITH cur_stepx CASE choice1=阅读 DO do_read WITH controlx CASE choice1=邮件 DO do_mail WITH controlx CASE choice1=退出
25、EXIT ENDCASEENDDOCLEAR GETSCLOSE ALLRELEASE WINDOW personRETURN*PROCEDURE do_resetSELECT agenda & REPLACE ALL Step_promx WITH , Step_time2 WITH 0, Is_pass WITH .F., Is_passed WITH SELECT manager & SCAN FOR i=1 TO 10 si = RIGHT(0+ALLTRIM(STR(i, 2), 2) REPLACE Is_&si WITH .F., Is_&si.ed WITH ENDFOR RE
26、PLACE In_mail WITH , Out_mail WITH , To_who WITH , Is_read WITH .F.ENDSCAN SELECT applican & REPLACE ALL Score1 WITH 0, Score2 WITH 0, Score3 WITH 0, Score4 WITH 0, Score0 WITH 0, Got_num WITH 0, Sele_deci WITH SELECT notes &REPLACE ALL Item_x WITH SELECT myscore1 & 记录数 = 评委数 X 应聘者数dbfx = DBF()USE &
27、dbfx EXCLUSIVEZAPSELECT managerSCAN SELECT applican SCAN SELECT myscore1 APPEND BLANK REPLACE Manager_id WITH manager.Manager_id, App_name WITH applican.App_name SELECT applican ENDSCAN SELECT managerENDSCAN SELECT myscore1REPLACE ALL Quest_no1 WITH , Quest_no2 WITH , Resume_sc WITH 0, Impress_sc WI
28、TH 0, Sele_deci WITH SELECT myscore2 & 记录数 = 评委数 X 3位应聘者数 X 3个题目dbfx = DBF()USE &dbfx EXCLUSIVEZAPSELECT managerSCAN SELECT applican SCAN SELECT myscore2 FOR i=1 TO 3 si = STR(i, 1) APPEND BLANK REPLACE Manager_id WITH manager.Manager_id, App_name WITH applican.App_name ENDFOR SELECT applican ENDSCA
29、N SELECT managerENDSCAN SELECT ourquest &REPLACE ALL Quest_no WITH , Quest_as WITH , Answ_sc WITH 0SELECT mailREPLACE ALL In_mail WITH CLOSE DATABASERETURN*PROCEDURE do_controlPARAMETERS stepxDEFINE WINDOW p_control FROM 1, 1 SIZE 10, 80 TITLE 活动控制窗 SYSTEM COLOR RGB(, , , 192, 192, 192) IN DESKTOPMO
30、VE WINDOW p_control CENTERACTIVATE WINDOW p_controlx 2, 10 SAY 当前活动：+stepx FONT 宋体, 12 STYLE Bchoice2 = 退出x 6, 12 GET choice2 PICTURE x*H 下一活动;上一活动;退出 SIZE 1.5, 8, 3 FONT 宋体, 12 STYLE BREAD MODALIF choice2=下一活动 DO CASE CASE stepx=评委报到 SELECT manager COUNT TO sum_n COUNT TO arrive_n FOR Is_&cur_stepn
31、o SELECT notes LOCATE FOR Item_no=评委人数 REPLACE Item_x WITH STR(sum_n, 2) LOCATE FOR Item_no=实到人数 REPLACE Item_x WITH STR(arrive_n, 2) CASE stepx=活动开始 & 下一步:评委阅读 SELECT readlist LOCATE FOR Read_item=应聘者材料 OR Read_item= IF EOF() APPEND BLANK ENDIF REPLACE Read_item WITH 应聘者材料 CASE stepx=阅读材料 & 打简历分，&
32、下一步:评委提问 SELECT myscore1 INDEX ON App_name TO quest_t DO WHILE NOT EOF() whox = App_name i = 0 sum_sc = 0 DO WHILE App_name=whox IF Resume_sc0 i = i+1 sum_sc = sum_sc+Resume_sc ENDIF SKIP ENDDO ave_sc = ROUND(sum_sc/i, 2) SELECT applican LOCATE FOR App_name=whox REPLACE Score1 WITH ave_sc SELECT mys
33、core1 ENDDO CASE stepx=评委提问 & 下一步:提问汇总 SELECT ourquest REPLACE ALL App_name WITH , Quest_no WITH , Quest_as WITH , Answ_sc WITH 0 SELECT applican SCAN SELECT quest_temp ZAP INDEX ON Quest_no TO qno SELECT myscore1 SCAN FOR App_name=applican.App_name AND Quest_no1 SELECT quest_temp SEEK myscore1.Ques
34、t_no1 IF NOT FOUND() APPEND BLANK REPLACE Quest_no WITH myscore1.Quest_no1 ENDIF REPLACE Quest_num WITH Quest_num+1 SELECT myscore1 ENDSCAN SCAN FOR App_name=applican.App_name AND Quest_no2 SELECT quest_temp SEEK myscore1.Quest_no2 IF NOT FOUND() APPEND BLANK REPLACE Quest_no WITH myscore1.Quest_no2
35、 ENDIF REPLACE Quest_num WITH Quest_num+1 SELECT myscore1 ENDSCAN SELECT quest_temp DO WHILE RECCOUNT(quest_temp)3 SELECT question SCAN SELECT quest_temp SEEK question.Quest_no IF NOT FOUND() APPEND BLANK REPLACE Quest_no WITH question.Quest_no ENDIF SELECT question ENDSCAN ENDDO SELECT quest_temp INDEX ON 0-Quest_num TO qnum GO TOP i = 1 SCAN NEXT 3 si = STR(i, 1) SELECT ourquest LOCATE FOR App_name= AND Quest_no= IF NOT FOUND() APPEND BLANK ENDIF REPLACE App_name WITH applican.App_name REPLACE Quest_no WITH quest_temp.Quest_no SELECT quest_temp
