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

模擬人才招聘選拔群體決策支持系統(tǒng)人才招聘是企業(yè)人力資源管理的源頭工作，對(duì)企業(yè)員工隊(duì)伍的質(zhì)量起著關(guān)鍵的把關(guān)作用。由于有關(guān)人才招聘選拔的決策問(wèn)題大都是板結(jié)構(gòu)化和非結(jié)構(gòu)化問(wèn)題，并且需要多個(gè)部門(mén)的主管或資歷較深的管理人員及技術(shù)人員共同參與決策，目前還少有可供企業(yè)選用的決策支持系統(tǒng)。本節(jié)針對(duì)人才招聘這一頗有難度的群體決策支持問(wèn)題，介紹華東理工大學(xué)研制的“模擬人才招聘選拔群體決策支持系統(tǒng)”，試圖通過(guò)該案例系統(tǒng)，進(jìn)一步說(shuō)明群體決策支持系統(tǒng)的基本構(gòu)造和工作原理。一 系統(tǒng)基本思路本系統(tǒng)根據(jù)人才招聘的特點(diǎn)，按同地異時(shí)群體決策類(lèi)型設(shè)計(jì)，以工作流程方式布置一定數(shù)量的決策進(jìn)程步驟，分設(shè)進(jìn)程主控和招聘操作處理兩個(gè)部分，在一個(gè)局域網(wǎng)上運(yùn)行。整個(gè)流程分應(yīng)聘者材料閱讀評(píng)價(jià)、應(yīng)聘者形象評(píng)價(jià)、面試提問(wèn)、應(yīng)聘者答問(wèn)、招聘者評(píng)分以及最終的選拔表決等15個(gè)步驟。其中問(wèn)題提問(wèn)、答問(wèn)和評(píng)分等步驟設(shè)兩輪。因?yàn)槭且粋€(gè)模擬系統(tǒng)，應(yīng)聘者采用虛擬技術(shù)預(yù)設(shè)，面試以不見(jiàn)面的問(wèn)答形式進(jìn)行，所提問(wèn)題和回答也預(yù)先按數(shù)倍使用量設(shè)置，應(yīng)聘者的答問(wèn)隨機(jī)從預(yù)置答案中抽取。系統(tǒng)設(shè)模擬時(shí)鐘，記錄進(jìn)程時(shí)間，步驟切換由主持者觸發(fā)控制，可進(jìn)可退。招聘者的分析評(píng)價(jià)采用打分制，部分內(nèi)容采用模糊區(qū)間值，匯總統(tǒng)計(jì)采用平均、加權(quán)綜合等簡(jiǎn)易算法。本系統(tǒng)主要用于群體決策支持系統(tǒng)的實(shí)驗(yàn)教學(xué)和企業(yè)招聘人員的操作訓(xùn)練，但根據(jù)具體企業(yè)的特定要求，經(jīng)過(guò)少量的改動(dòng)和參數(shù)設(shè)置后也能用于輔助企業(yè)實(shí)際的人才招聘選拔工作。基于上述想法，系統(tǒng)綜合應(yīng)用了以下方法和技術(shù)。1. 管理決策基本思想和決策支持系統(tǒng)的基本原理。2. 群體決策支持系統(tǒng)的結(jié)構(gòu)和構(gòu)造方法。3. 計(jì)算機(jī)網(wǎng)絡(luò)技術(shù)、數(shù)據(jù)庫(kù)和應(yīng)用開(kāi)發(fā)技術(shù)。4. 人才招聘選拔的基本流程和簡(jiǎn)易人才評(píng)價(jià)方法。5. 時(shí)鐘推進(jìn)、事件驅(qū)動(dòng)以及管理對(duì)象模擬等模擬技術(shù)。二 系統(tǒng)構(gòu)成招聘選拔處理模塊通信庫(kù)招聘選拔數(shù)據(jù)庫(kù)招聘選拔模型庫(kù)方法庫(kù)規(guī)程庫(kù)應(yīng)聘者材料預(yù)置提問(wèn)問(wèn)題、答問(wèn)、評(píng)價(jià)、選拔結(jié)論內(nèi)置郵件系統(tǒng)發(fā)布信息評(píng)審意見(jiàn)綜合、提問(wèn)隨機(jī)抽取、選拔結(jié)論表決平均綜合法、加權(quán)綜合法、模糊評(píng)判法、時(shí)間隨機(jī)函數(shù)招聘選拔規(guī)程、招聘選拔流程、進(jìn)程狀態(tài)招聘者1招聘者2招聘者n主持者本系統(tǒng)按照基本的群體決策支持系統(tǒng)結(jié)構(gòu)構(gòu)造，在三庫(kù)結(jié)構(gòu)的基礎(chǔ)上加入規(guī)程庫(kù)和通訊庫(kù)，分設(shè)供主持者和選拔者使用的兩套人機(jī)接口，見(jiàn)圖。數(shù)據(jù)庫(kù)儲(chǔ)存與管理應(yīng)聘者材料、交付應(yīng)聘者回答的問(wèn)題和系統(tǒng)運(yùn)行過(guò)程中產(chǎn)生的數(shù)據(jù)，運(yùn)行過(guò)程所產(chǎn)生的數(shù)據(jù)包括應(yīng)聘者的問(wèn)題回答，招聘者對(duì)應(yīng)聘者印象、材料和答問(wèn)的評(píng)價(jià)意見(jiàn)等。模型庫(kù)儲(chǔ)存有招聘者評(píng)審意見(jiàn)綜合、提問(wèn)隨機(jī)抽取以及選拔結(jié)論表決等模型。方法庫(kù)儲(chǔ)存評(píng)審和表決等決策中使用的平均綜合法、加權(quán)綜合法和模糊評(píng)判法等簡(jiǎn)易的數(shù)學(xué)計(jì)算方法。本系統(tǒng)的特點(diǎn)主要反映在群體決策規(guī)程和通信兩個(gè)方面。規(guī)程庫(kù)設(shè)有招聘選拔的規(guī)則和流程、招聘者進(jìn)入確認(rèn)、進(jìn)程狀態(tài)監(jiān)視和進(jìn)程步驟進(jìn)退等控制機(jī)制，主持者遵循以規(guī)程和時(shí)間為依據(jù)的進(jìn)程控制機(jī)制組織和操縱系統(tǒng)的運(yùn)行；通訊庫(kù)設(shè)置內(nèi)部郵件系統(tǒng)和信息發(fā)布模塊，支持主持者與招聘者、招聘者相互之間在系統(tǒng)運(yùn)行過(guò)程中的交流、討論和協(xié)商，發(fā)布規(guī)程、進(jìn)程和各個(gè)階段成果等信息。主持者和招聘者分別使用不同的人機(jī)接口，均以按鈕和菜單進(jìn)行交互。前者的人機(jī)接口設(shè)有主控界面，實(shí)現(xiàn)進(jìn)程的監(jiān)控和推進(jìn)、與招聘者的聯(lián)絡(luò)、進(jìn)程信息的發(fā)布和最終結(jié)論的宣布等；后者的人機(jī)接口設(shè)有運(yùn)行操作界面，供招聘者報(bào)道，按規(guī)程要求操作招聘選拔各步驟，與主持者和其他招聘者進(jìn)行聯(lián)系交流。招聘選拔處理模塊是系統(tǒng)的核心，接受主持者進(jìn)程控制調(diào)度和招聘者步驟操作的請(qǐng)求，在進(jìn)程控制調(diào)度上，結(jié)合工作流程，采用時(shí)間隨機(jī)函數(shù)實(shí)現(xiàn)推進(jìn)，對(duì)步驟操作，調(diào)用模型庫(kù)相關(guān)模型和數(shù)據(jù)庫(kù)中的數(shù)據(jù)，作相應(yīng)處理，返回處理結(jié)果。三 系統(tǒng)運(yùn)行本系統(tǒng)按照規(guī)程預(yù)定內(nèi)容、要求和時(shí)間運(yùn)作，從招聘者報(bào)道開(kāi)始至宣布選拔結(jié)束，共分15步驟，在主持者的控制下推進(jìn)，必要時(shí)也可逆向返回上一步驟，作修改和補(bǔ)充工作。系統(tǒng)運(yùn)作流程見(jiàn)圖：系統(tǒng)總控主控系統(tǒng)啟動(dòng)接受招聘者報(bào)到各招聘者報(bào)到，操作系統(tǒng)啟動(dòng)宣布活動(dòng)事項(xiàng)招聘者閱讀活動(dòng)事項(xiàng)發(fā)布應(yīng)聘者背景材料招聘者閱讀應(yīng)聘者背景材料招聘者打應(yīng)聘者簡(jiǎn)歷分發(fā)布供選面試提問(wèn)問(wèn)題招聘者選擇提問(wèn)招聘者提問(wèn)匯總、提取發(fā)布招聘者閱讀提問(wèn)匯總預(yù)置答問(wèn)提取、發(fā)布招聘者閱讀應(yīng)聘者答問(wèn)、打分招聘者打印象分面試、印象分綜合、發(fā)布招聘者閱讀評(píng)分匯總啟動(dòng)表決程序招聘者選拔表決表決統(tǒng)計(jì)、抉擇入選者發(fā)布招聘選拔結(jié)果招聘者收閱表決結(jié)果本系統(tǒng)的運(yùn)作現(xiàn)由主持者啟動(dòng)并作初始化處理，然后各招聘者以報(bào)到的方式回答用戶(hù)名和口令進(jìn)入系統(tǒng)。系統(tǒng)運(yùn)轉(zhuǎn)后主持者如果退出或不做任何操作，不影響造聘者的工作，但步驟將停止推進(jìn)。在運(yùn)作中途，招聘者也能暫時(shí)退出系統(tǒng)，然后再報(bào)到進(jìn)入，且不影響先前所做的工作。這些特點(diǎn)可以使規(guī)程的某些特殊步驟延續(xù)較長(zhǎng)時(shí)間，讓決策參與者有一定的時(shí)間動(dòng)機(jī)，實(shí)現(xiàn)異時(shí)的群體決策。當(dāng)進(jìn)入系統(tǒng)的招聘者達(dá)到規(guī)定的人數(shù)時(shí)，主持者宣布招聘活動(dòng)開(kāi)始，招聘者根據(jù)每個(gè)步驟的要求單獨(dú)執(zhí)行決策分析工作，一個(gè)步驟完成后發(fā)出執(zhí)行完畢的確認(rèn)信息，等待下一步驟的開(kāi)始。期間，招聘者可以通過(guò)內(nèi)置的郵件系統(tǒng)就自己的觀點(diǎn)和意見(jiàn)進(jìn)行私下交流。在系統(tǒng)運(yùn)行中，主持者監(jiān)視每個(gè)招聘者執(zhí)行步驟地進(jìn)度，向招聘者發(fā)布進(jìn)程信息，但在不違反規(guī)定的情況下，不干預(yù)他們具體的分析評(píng)判工作。主持者根據(jù)預(yù)定的步驟進(jìn)度決定按時(shí)、提前或延遲步驟的切換，并及時(shí)通報(bào)階段性的招聘成果。系統(tǒng)對(duì)進(jìn)程調(diào)度和每個(gè)步驟操作的處理，除招聘者人數(shù)和提問(wèn)問(wèn)題數(shù)等需積累的內(nèi)容外，均在步驟切換時(shí)提交招聘選拔處理?？钔瓿?。四、數(shù)據(jù)文件說(shuō)明（1）Agenda：活動(dòng)步驟表，共10個(gè)步驟，每個(gè)步驟一條記錄，共十條記錄（已預(yù)置）（2）Answer：提問(wèn)答案表，對(duì)應(yīng)六個(gè)題目，每位應(yīng)聘者六條記錄（兩層：3位應(yīng)聘者X 6個(gè)題目，已預(yù)置）（3）Applican：應(yīng)聘者材料表，每位應(yīng)聘者一條記錄，三位應(yīng)聘者共三條記錄（已預(yù)置）（4）Mail： 郵件收發(fā)周轉(zhuǎn)表，每個(gè)評(píng)委一條記錄（5）Manager：招聘評(píng)委工作狀態(tài)表，每個(gè)評(píng)委一條記錄（主持者事先添置）（6）Myscore1：招聘評(píng)委個(gè)人各項(xiàng)打分表，每個(gè)招聘評(píng)委對(duì)應(yīng)每個(gè)應(yīng)聘者一條記錄，即每個(gè)評(píng)委三條記錄（兩層：評(píng)委數(shù) X 3位應(yīng)聘者，初始化時(shí)重新設(shè)置記錄）（7）Myscore2：招聘評(píng)委提問(wèn)問(wèn)題及打分表，每個(gè)評(píng)委對(duì)每個(gè)應(yīng)聘者打分三題，三位應(yīng)聘者共九題。每個(gè)評(píng)委九條記錄（三層：評(píng)委數(shù) X 3位應(yīng)聘者 X 3個(gè)題目,初始化時(shí)重新設(shè)置記錄）（8）Notes：活動(dòng)事項(xiàng)表（已預(yù)置）（9）Ourquest：招聘評(píng)委提問(wèn)問(wèn)題匯總表（10）Question：待抽提問(wèn)問(wèn)題表（已預(yù)置）（11）Readlist：供閱讀的材料清單表（已預(yù)置）（12）Seledeci：決策表決記錄表，結(jié)構(gòu)與與Applican相同* 程序開(kāi)始PARAMETERS controlx & 活動(dòng)主持者代號(hào) 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 = & 本機(jī)評(píng)委代號(hào)ELSE IF controlxMIS AND controlxRESET controlx = managerx = ELSE managerx = controlx ENDIFENDIFSELECT 0USE agenda SHARE & 進(jìn)程表SELECT 0USE answer SHARE & 提問(wèn)答案表SELECT 0USE applican SHARE & 應(yīng)聘者材料表SELECT 0USE mail SHARE & 郵件收發(fā)周轉(zhuǎn)表SELECT 0USE manager SHARE & 招聘評(píng)委工作狀態(tài)表表SELECT 0USE myscore1 SHARE & 招聘評(píng)委個(gè)人各項(xiàng)打分表（包括兩個(gè)提問(wèn)問(wèn)題號(hào)、簡(jiǎn)歷分、印象分、答題分）SELECT 0USE myscore2 SHARE & 招聘評(píng)委提問(wèn)問(wèn)題及打分表SELECT 0USE notes SHARE & 活動(dòng)事項(xiàng)表LOCATE FOR Item_no=應(yīng)聘人數(shù)REPLACE Item_x WITH STR(RECCOUNT(applican), 2)LOCATE FOR Item_no=評(píng)委人數(shù)REPLACE Item_x WITH STR(RECCOUNT(manager), 2)SELECT 0USE ourquest SHARE & 招聘評(píng)委提問(wèn)問(wèn)題匯總表SELECT 0USE question SHARE & 待抽提問(wèn)問(wèn)題表SELECT 0USE readlist SHARE & 供閱讀的材料清單表IF EOF() APPEND BLANK REPLACE Read_item WITH 活動(dòng)事項(xiàng)ENDIF * 如果seledeci為空白則自動(dòng)添加記錄（條數(shù) = 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* 產(chǎn)生應(yīng)聘者姓名字符串SELECT applicanGO TOPappx = App_name & 當(dāng)前翻選應(yīng)聘者名稱(chēng)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. & 實(shí)際未用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=實(shí)到人數(shù) REPLACE Item_x WITH STR(arrive_no, 2) ENDIF this_prompt = cur_stepp3+IIF(cur_step宣布招聘結(jié)果, 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 時(shí)間:+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 & 記錄數(shù) = 評(píng)委數(shù) X 應(yīng)聘者數(shù)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 & 記錄數(shù) = 評(píng)委數(shù) X 3位應(yīng)聘者數(shù) X 3個(gè)題目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 活動(dòng)控制窗 SYSTEM COLOR RGB(, , , 192, 192, 192) IN DESKTOPMOVE WINDOW p_control CENTERACTIVATE WINDOW p_control 2, 10 SAY 當(dāng)前活動(dòng)：+stepx FONT 宋體, 12 STYLE Bchoice2 = 退出 6, 12 GET choice2 PICTURE *H 下一活動(dòng);上一活動(dòng);退出 SIZE 1.5, 8, 3 FONT 宋體, 12 STYLE BREAD MODALIF choice2=下一活動(dòng) DO CASE CASE stepx=評(píng)委報(bào)到 SELECT manager COUNT TO sum_n COUNT TO arrive_n FOR Is_&cur_stepno SELECT notes LOCATE FOR Item_no=評(píng)委人數(shù) REPLACE Item_x WITH STR(sum_n, 2) LOCATE FOR Item_no=實(shí)到人數(shù) REPLACE Item_x WITH STR(arrive_n, 2) CASE stepx=活動(dòng)開(kāi)始 & 下一步:評(píng)委閱讀 SELECT readlist LOCATE FOR Read_item=應(yīng)聘者材料 OR Read_item= IF EOF() APPEND BLANK ENDIF REPLACE Read_item WITH 應(yīng)聘者材料 CASE stepx=閱讀材料 & 打簡(jiǎn)歷分，& 下一步:評(píng)委提問(wèn) 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=評(píng)委提問(wèn) & 下一步:提問(wèn)匯總 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=提問(wèn)匯總 & 下一步:應(yīng)聘者答 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=應(yīng)聘者答 & 下一步:打印象分 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=您的評(píng)分 OR Read_item= IF EOF() APPEND BLANK ENDIF REPLACE Read_item WITH 您的評(píng)分 LOCATE FOR Read_item=答題平均分 OR Read_item= IF EOF() APPEND BLANK ENDIF REPLACE Read_item WITH 答題平均分 CASE stepx=打印象分 & 下一步:評(píng)分綜合 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