招聘面試_模擬人才招聘選拔群體決策支持系統(tǒng)

模擬人才招聘選拔群體決策支持系統(tǒng)人才招聘是企業(yè)人力資源管理的源頭工作，對企業(yè)員工隊伍的質量起著關鍵的把關作用。由于有關人才招聘選拔的決策問題大都是板結構化和非結構化問題，并且需要多個部門的主管或資歷較深的管理人員及技術人員共同參與決策，目前還少有可供企業(yè)選用的決策支持系統(tǒng)。本節(jié)針對人才招聘這一頗有難度的群體決策支持問題，介紹華東理工大學研制的“模擬人才招聘選拔群體決策支持系統(tǒng)”，試圖通過該案例系統(tǒng)，進一步說明群體決策支持系統(tǒng)的基本構造和工作原理。一 系統(tǒng)基本思路本系統(tǒng)根據人才招聘的特點，按同地異時群體決策類型設計，以工作流程方式布置一定數量的決策進程步驟，分設進程主控和招聘操作處理兩個部分，在一個局域網上運行。整個流程分應聘者材料閱讀評價、應聘者形象評價、面試提問、應聘者答問、招聘者評分以及最終的選拔表決等15個步驟。其中問題提問、答問和評分等步驟設兩輪。因為是一個模擬系統(tǒng)，應聘者采用虛擬技術預設，面試以不見面的問答形式進行，所提問題和回答也預先按數倍使用量設置，應聘者的答問隨機從預置答案中抽取。系統(tǒng)設模擬時鐘，記錄進程時間，步驟切換由主持者觸發(fā)控制，可進可退。招聘者的分析評價采用打分制，部分內容采用模糊區(qū)間值，匯總統(tǒng)計采用平均、加權綜合等簡易算法。本系統(tǒng)主要用于群體決策支持系統(tǒng)的實驗教學和企業(yè)招聘人員的操作訓練，但根據具體企業(yè)的特定要求，經過少量的改動和參數設置后也能用于輔助企業(yè)實際的人才招聘選拔工作?；谏鲜鱿敕ǎ到y(tǒng)綜合應用了以下方法和技術。1. 管理決策基本思想和決策支持系統(tǒng)的基本原理。2. 群體決策支持系統(tǒng)的結構和構造方法。3. 計算機網絡技術、數據庫和應用開發(fā)技術。4. 人才招聘選拔的基本流程和簡易人才評價方法。5. 時鐘推進、事件驅動以及管理對象模擬等模擬技術。二 系統(tǒng)構成招聘選拔處理模塊通信庫招聘選拔數據庫招聘選拔模型庫方法庫規(guī)程庫應聘者材料預置提問問題、答問、評價、選拔結論內置郵件系統(tǒng)發(fā)布信息評審意見綜合、提問隨機抽取、選拔結論表決平均綜合法、加權綜合法、模糊評判法、時間隨機函數招聘選拔規(guī)程、招聘選拔流程、進程狀態(tài)招聘者1招聘者2招聘者n主持者本系統(tǒng)按照基本的群體決策支持系統(tǒng)結構構造，在三庫結構的基礎上加入規(guī)程庫和通訊庫，分設供主持者和選拔者使用的兩套人機接口，見圖。數據庫儲存與管理應聘者材料、交付應聘者回答的問題和系統(tǒng)運行過程中產生的數據，運行過程所產生的數據包括應聘者的問題回答，招聘者對應聘者印象、材料和答問的評價意見等。模型庫儲存有招聘者評審意見綜合、提問隨機抽取以及選拔結論表決等模型。方法庫儲存評審和表決等決策中使用的平均綜合法、加權綜合法和模糊評判法等簡易的數學計算方法。本系統(tǒng)的特點主要反映在群體決策規(guī)程和通信兩個方面。規(guī)程庫設有招聘選拔的規(guī)則和流程、招聘者進入確認、進程狀態(tài)監(jiān)視和進程步驟進退等控制機制，主持者遵循以規(guī)程和時間為依據的進程控制機制組織和操縱系統(tǒng)的運行；通訊庫設置內部郵件系統(tǒng)和信息發(fā)布模塊，支持主持者與招聘者、招聘者相互之間在系統(tǒng)運行過程中的交流、討論和協(xié)商，發(fā)布規(guī)程、進程和各個階段成果等信息。主持者和招聘者分別使用不同的人機接口，均以按鈕和菜單進行交互。前者的人機接口設有主控界面，實現(xiàn)進程的監(jiān)控和推進、與招聘者的聯(lián)絡、進程信息的發(fā)布和最終結論的宣布等；后者的人機接口設有運行操作界面，供招聘者報道，按規(guī)程要求操作招聘選拔各步驟，與主持者和其他招聘者進行聯(lián)系交流。招聘選拔處理模塊是系統(tǒng)的核心，接受主持者進程控制調度和招聘者步驟操作的請求，在進程控制調度上，結合工作流程，采用時間隨機函數實現(xiàn)推進，對步驟操作，調用模型庫相關模型和數據庫中的數據，作相應處理，返回處理結果。三 系統(tǒng)運行本系統(tǒng)按照規(guī)程預定內容、要求和時間運作，從招聘者報道開始至宣布選拔結束，共分15步驟，在主持者的控制下推進，必要時也可逆向返回上一步驟，作修改和補充工作。系統(tǒng)運作流程見圖：系統(tǒng)總控主控系統(tǒng)啟動接受招聘者報到各招聘者報到，操作系統(tǒng)啟動宣布活動事項招聘者閱讀活動事項發(fā)布應聘者背景材料招聘者閱讀應聘者背景材料招聘者打應聘者簡歷分發(fā)布供選面試提問問題招聘者選擇提問招聘者提問匯總、提取發(fā)布招聘者閱讀提問匯總預置答問提取、發(fā)布招聘者閱讀應聘者答問、打分招聘者打印象分面試、印象分綜合、發(fā)布招聘者閱讀評分匯總啟動表決程序招聘者選拔表決表決統(tǒng)計、抉擇入選者發(fā)布招聘選拔結果招聘者收閱表決結果本系統(tǒng)的運作現(xiàn)由主持者啟動并作初始化處理，然后各招聘者以報到的方式回答用戶名和口令進入系統(tǒng)。系統(tǒng)運轉后主持者如果退出或不做任何操作，不影響造聘者的工作，但步驟將停止推進。在運作中途，招聘者也能暫時退出系統(tǒng)，然后再報到進入，且不影響先前所做的工作。這些特點可以使規(guī)程的某些特殊步驟延續(xù)較長時間，讓決策參與者有一定的時間動機，實現(xiàn)異時的群體決策。當進入系統(tǒng)的招聘者達到規(guī)定的人數時，主持者宣布招聘活動開始，招聘者根據每個步驟的要求單獨執(zhí)行決策分析工作，一個步驟完成后發(fā)出執(zhí)行完畢的確認信息，等待下一步驟的開始。期間，招聘者可以通過內置的郵件系統(tǒng)就自己的觀點和意見進行私下交流。在系統(tǒng)運行中，主持者監(jiān)視每個招聘者執(zhí)行步驟地進度，向招聘者發(fā)布進程信息，但在不違反規(guī)定的情況下，不干預他們具體的分析評判工作。主持者根據預定的步驟進度決定按時、提前或延遲步驟的切換，并及時通報階段性的招聘成果。系統(tǒng)對進程調度和每個步驟操作的處理，除招聘者人數和提問問題數等需積累的內容外，均在步驟切換時提交招聘選拔處理?？钔瓿?。四、數據文件說明（1）Agenda：活動步驟表，共10個步驟，每個步驟一條記錄，共十條記錄（已預置）（2）Answer：提問答案表，對應六個題目，每位應聘者六條記錄（兩層：3位應聘者X 6個題目，已預置）（3）Applican：應聘者材料表，每位應聘者一條記錄，三位應聘者共三條記錄（已預置）（4）Mail： 郵件收發(fā)周轉表，每個評委一條記錄（5）Manager：招聘評委工作狀態(tài)表，每個評委一條記錄（主持者事先添置）（6）Myscore1：招聘評委個人各項打分表，每個招聘評委對應每個應聘者一條記錄，即每個評委三條記錄（兩層：評委數 X 3位應聘者，初始化時重新設置記錄）（7）Myscore2：招聘評委提問問題及打分表，每個評委對每個應聘者打分三題，三位應聘者共九題。每個評委九條記錄（三層：評委數 X 3位應聘者 X 3個題目,初始化時重新設置記錄）（8）Notes：活動事項表（已預置）（9）Ourquest：招聘評委提問問題匯總表（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 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 & 郵件收發(fā)周轉表SELECT 0USE manager SHARE & 招聘評委工作狀態(tài)表表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), 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 seledeci 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)* 初始化段IF parameters()=1 AND controlx=RESET DO do_reset RETURNENDIF *DEFINE WINDOW person FROM 5, 10 SIZE 30, 120 TITLE 人才招聘選拔系統(tǒng) SYSTEM COLOR RGB(, , , 192, 192, 192)MOVE WINDOW person CENTERACTIVATE WINDOW person 1, 3 SAY 議程： FONT 宋體, 12 STYLE BT COLOR n 2.5, 3 FILL TO 28, 41 COLOR n/bg* & n/bIF controlx 2, 54 SAY 人才招聘選拔系統(tǒng) FONT 宋體, 28 STYLE B COLOR gr+/b*ELSE 2, 54 SAY 人才招聘選拔系統(tǒng) FONT 宋體, 28 STYLE BT COLOR nENDIF 8, 44 TO 24, 116 PEN 2 STYLE 20 COLOR rb 9, 47 TO 23, 113 PEN 1 STYLE 20 COLOR rbcur_status = .F. & 實際未用step_time0 = SECONDS()DO WHILE .T. SELECT agenda GO TOP SCAN WHILE Is_pass AND managerx RECNO()*2.5+1, 4 SAY FONT 宋體, 13 STYLE B COLOR r/gb* RECNO()*2.5+1, 7 SAY Step_no+ +TRIM(Step_name) FONT 宋體, 13 STYLE B COLOR N/gb* & b/bg* ENDSCAN RECNO()*2.5+1, 4 SAY FONT 宋體, 13 COLOR b/gb* RECNO()*2.5+1, 7 SAY Step_no+ +TRIM(Step_name) FONT 宋體, 13 STYLE B COLOR r+/gb* & b IF 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_prom1) ENDCASE cur_stepp3 = TRIM(Step_prom3) 12, 48 CLEAR TO 14, 112 12, 82-LEN(cur_steppm)/1.2-LEN(cur_steppm)/2 SAY cur_steppm FONT 宋體, 18 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_second 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_prompt = cur_stepp3+IIF(cur_step宣布招聘結果, ALLTRIM(STR(arrive_no, 2), ) 15, 48 CLEAR TO 17, 110 15, 74-LEN(this_prompt)/2 SAY this_prompt FONT 宋體, 16 STYLE B COLOR RGB(0, 0, 0, 192, 192, 192) SELECT agenda 20, 64 SAY 時間:+STR(Step_time1, 2)+分鐘 +STR(step_minx, 2)+:+RIGHT(00+LTRIM(STR(step_secx, 2), 2)+ ; FONT 宋體, 12 STYLE B COLOR RGB(0, 0, 0, 192, 192, 192) IF NOT EOF() SKIP ENDIF SCAN REST RECNO()*2.5+1, 4 SAY FONT 宋體, 13 COLOR N/gb* & b/b RECNO()*2.5+1, 7 SAY Step_no+ +Step_name FONT 宋體, 13 COLOR N/gb* & COLOR w+/b ENDSCAN choice1 = menu1 = IIF(controlx= , 執(zhí)行, 控制) 26, 52 GET choice1 PICTURE *H +menu1+;閱讀;郵件;退出 SIZE 1.5, 8, 2 FONT 宋體, 12 STYLE B IF controlx 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 17.5, 77 SAY 有你的郵件. FONT 宋體, 11 STYLE B COLOR w+/b* ? CHR(7) ELSE 17.5, 75 CLEAR TO 18.5, 100 ENDIF READ TIMEOUT 3 SELECT manager cur_stepx = cur_step DO CASE CASE choice1=控制 DO do_control WITH cur_stepx CASE choice1=執(zhí)行 DO do_step WITH cur_stepx CASE choice1=閱讀 DO do_read WITH controlx CASE choice1=郵件 DO do_mail WITH controlx CASE choice1=退出 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 REPLACE 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 &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 WITH 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 ENDSCAN 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 DESKTOPMOVE WINDOW p_control CENTERACTIVATE WINDOW p_control 2, 10 SAY 當前活動：+stepx FONT 宋體, 12 STYLE Bchoice2 = 退出 6, 12 GET choice2 PICTURE *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_stepno 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=閱讀材料 & 打簡歷分，& 下一步:評委提問 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 myscore1 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.Quest_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 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 i = i+1 ENDSCAN SELECT applican ENDSCAN CASE stepx=提問匯總 & 下一步:應聘者答 SELECT ourquest SCAN SELECT answer LOCATE FOR App_name+Quest_no=ourquest.App_name+ourquest.Quest_no SELECT question LOCATE FOR Quest_no=ourquest.Quest_no SELECT ourquest REPLACE Quest_as WITH question.Quest_no +:+ question.Quest_text + CHR(13)+CHR(13) + answer.Answ_text ENDSCAN SELECT manager SCAN FOR Is_01 mx = Manager_id SELECT myscore2 LOCATE FOR Manager_id=mx SELECT ourquest GO TOP DO WHILE NOT EOF() SELECT myscore2 REPLACE Quest_no WITH ourquest.Quest_no SKIP SELECT ourquest SKIP ENDDO SELECT manager ENDSCAN CASE stepx=應聘者答 & 下一步:打印象分 SELECT myscore2 INDEX ON App_name+Quest_no TO score_t GO TOP DO WHILE NOT EOF() app_quest = App_name+Quest_no i = 0 sum_sc = 0 DO WHILE App_name+Quest_no=app_quest IF Answ_sc0 i = i+1 sum_sc = sum_sc+Answ_sc ENDIF SKIP ENDDO ave_sc = ROUND(sum_sc/i, 2) SELECT ourquest LOCATE FOR App_name+Quest_no=app_quest REPLACE Answ_sc WITH ave_sc SELECT myscore2 ENDDO SELECT applican SCAN SELECT ourquest SUM Answ_sc TO sum_sc FOR App_name=applican.App_name SELECT applican REPLACE Score3 WITH sum_sc ENDSCAN SELECT readlist LOCATE FOR Read_item=您的評分 OR Read_item= IF EOF() APPEND BLANK ENDIF REPLACE Read_item WITH 您的評分 LOCATE FOR Read_item=答題平均分 OR Read_item= IF EOF() APPEND BLANK ENDIF REPLACE Read_item WITH 答題平均分 CASE stepx=打印象分 & 下一步:評分綜合 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 Impress_sc0 i = i+1 sum_sc = sum_sc+Impress_sc ENDIF SKIP ENDDO ave_sc = ROUND(sum_sc/i, 2) SELECT applican LOCATE FOR App