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

1、模擬人才招聘選拔群體決策支持系統(tǒng)人才招聘是企業(yè)人力資源管理的源頭工作，對企業(yè)員工隊伍的質(zhì)量起著關(guān)鍵的把關(guān)作用。由于有關(guān)人才招聘選拔的決策問題大都是板結(jié)構(gòu)化和非結(jié)構(gòu)化問題，并且需要多個部門的主管或資歷較深的管理人員及技術(shù)人員共同參與決策，目前還少有可供企業(yè)選用的決策支持系統(tǒng)。本節(jié)針對人才招聘這一頗有難度的群體決策支持問題，介紹華東理工大學(xué)研制的“模擬人才招聘選拔群體決策支持系統(tǒng)”，試圖通過該案例系統(tǒng)，進一步說明群體決策支持系統(tǒng)的基本構(gòu)造和工作原理。系統(tǒng)基本思路本系統(tǒng)根據(jù)人才招聘的特點，按同地異時群體決策類型設(shè)計，以工作流程方式布置一定數(shù)量的決策進程步驟，分設(shè)進程主控和招聘操作處理兩個部分，在一個

2、局域網(wǎng)上運行。整個流程分應(yīng)聘者材料閱讀評價、應(yīng)聘者形象評價、面試提問、應(yīng)聘者答問、招聘者評分以及最終的選拔表決等一五個步驟。其中問題提問、答問和評分等步驟設(shè)兩輪。因為是一個模擬系統(tǒng)，應(yīng)聘者采用虛擬技術(shù)預(yù)設(shè)，面試以不見面的問答形式進行，所提問題和回答也預(yù)先按數(shù)倍使用量設(shè)置，應(yīng)聘者的答問隨機從預(yù)置答案中抽取。系統(tǒng)設(shè)模擬時鐘，記錄進程時間，步驟切換由主持者觸發(fā)控制，可進可退。招聘者的分析評價采用打分制，部分內(nèi)容采用模糊區(qū)間值，匯總統(tǒng)計采用平均、加權(quán)綜合等簡易算法。本系統(tǒng)主要用于群體決策支持系統(tǒng)的實驗教學(xué)和企業(yè)招聘人員的操作訓(xùn)練，但根據(jù)具體企業(yè)的特定要求，經(jīng)過少量的改動和參數(shù)設(shè)置后也能用于輔助企業(yè)實際

3、的人才招聘選拔工作?；谏鲜鱿敕?，系統(tǒng)綜合應(yīng)用了以下方法和技術(shù)。管理決策基本思想和決策支持系統(tǒng)的基本原理。群體決策支持系統(tǒng)的結(jié)構(gòu)和構(gòu)造方法。計算機網(wǎng)絡(luò)技術(shù)、數(shù)據(jù)庫和應(yīng)用開發(fā)技術(shù)。人才招聘選拔的基本流程和簡易人才評價方法。時鐘推進、事件驅(qū)動以及管理對象模擬等模擬技術(shù)。系統(tǒng)構(gòu)成招聘選拔處理模塊通信庫招聘選拔數(shù)據(jù)庫招聘選拔模型庫方法庫規(guī)程庫應(yīng)聘者材料預(yù)置提問問題、答問、評價、選拔結(jié)論內(nèi)置郵件系統(tǒng)發(fā)布信息評審意見綜合、提問隨機抽取、選拔結(jié)論表決平均綜合法、加權(quán)綜合法、模糊評判法、時間隨機函數(shù)招聘選拔規(guī)程、招聘選拔流程、進程狀態(tài)招聘者1招聘者2招聘者n主持者本系統(tǒng)按照基本的群體決策支持系統(tǒng)結(jié)構(gòu)構(gòu)造，在三

4、庫結(jié)構(gòu)的基礎(chǔ)上加入規(guī)程庫和招聘選拔處理模塊通信庫招聘選拔數(shù)據(jù)庫招聘選拔模型庫方法庫規(guī)程庫應(yīng)聘者材料預(yù)置提問問題、答問、評價、選拔結(jié)論內(nèi)置郵件系統(tǒng)發(fā)布信息評審意見綜合、提問隨機抽取、選拔結(jié)論表決平均綜合法、加權(quán)綜合法、模糊評判法、時間隨機函數(shù)招聘選拔規(guī)程、招聘選拔流程、進程狀態(tài)招聘者1招聘者2招聘者n主持者數(shù)據(jù)庫儲存與管理應(yīng)聘者材料、交付應(yīng)聘者回答的問題和系統(tǒng)運行過程中產(chǎn)生的數(shù)據(jù)，運行過程所產(chǎn)生的數(shù)據(jù)包括應(yīng)聘者的問題回答，招聘者對應(yīng)聘者印象、材料和答問的評價意見等。模型庫儲存有招聘者評審意見綜合、提問隨機抽取以及選拔結(jié)論表決等模型。方法庫儲存評審和表決等決策中使用的平均綜合法、加權(quán)綜合法和模糊評

5、判法等簡易的數(shù)學(xué)計算方法。本系統(tǒng)的特點主要反映在群體決策規(guī)程和通信兩個方面。規(guī)程庫設(shè)有招聘選拔的規(guī)則和流程、招聘者進入確認(rèn)、進程狀態(tài)監(jiān)視和進程步驟進退等控制機制，主持者遵循以規(guī)程和時間為依據(jù)的進程控制機制組織和操縱系統(tǒng)的運行；通訊庫設(shè)置內(nèi)部郵件系統(tǒng)和信息發(fā)布模塊，支持主持者與招聘者、招聘者相互之間在系統(tǒng)運行過程中的交流、討論和協(xié)商，發(fā)布規(guī)程、進程和各個階段成果等信息。主持者和招聘者分別使用不同的人機接口，均以按鈕和菜單進行交互。前者的人機接口設(shè)有主控界面，實現(xiàn)進程的監(jiān)控和推進、與招聘者的聯(lián)絡(luò)、進程信息的發(fā)布和最終結(jié)論的宣布等；后者的人機接口設(shè)有運行操作界面，供招聘者報道，按規(guī)程要求操作招聘選拔

6、各步驟，與主持者和其他招聘者進行聯(lián)系交流。招聘選拔處理模塊是系統(tǒng)的核心，接受主持者進程控制調(diào)度和招聘者步驟操作的請求，在進程控制調(diào)度上，結(jié)合工作流程，采用時間隨機函數(shù)實現(xiàn)推進，對步驟操作，調(diào)用模型庫相關(guān)模型和數(shù)據(jù)庫中的數(shù)據(jù)，作相應(yīng)處理，返回處理結(jié)果。系統(tǒng)運行本系統(tǒng)按照規(guī)程預(yù)定內(nèi)容、要求和時間運作，從招聘者報道開始至宣布選拔結(jié)束，共分一五步驟，在主持者的控制下推進，必要時也可逆向返回上一步驟，作修改和補充工作。系統(tǒng)運作流程見圖：系統(tǒng)總控系統(tǒng)總控主控系統(tǒng)啟動接受招聘者報到各招聘者報到，操作系統(tǒng)啟動宣布活動事項招聘者閱讀活動事項發(fā)布應(yīng)聘者背景材料招聘者閱讀應(yīng)聘者背景材料招聘者打應(yīng)聘者簡歷分發(fā)布供選面

7、試提問問題招聘者選擇提問招聘者提問匯總、提取發(fā)布招聘者閱讀提問匯總預(yù)置答問提取、發(fā)布招聘者閱讀應(yīng)聘者答問、打分招聘者打印象分面試、印象分綜合、發(fā)布招聘者閱讀評分匯總啟動表決程序招聘者選拔表決表決統(tǒng)計、抉擇入選者發(fā)布招聘選拔結(jié)果招聘者收閱表決結(jié)果本系統(tǒng)的運作現(xiàn)由主持者啟動并作初始化處理，然后各招聘者以報到的方式回答用戶名和口令進入系統(tǒng)。系統(tǒng)運轉(zhuǎn)后主持者如果退出或不做任何操作，不影響造聘者的工作，但步驟將停止推進。在運作中途，招聘者也能暫時退出系統(tǒng)，然后再報到進入，且不影響先前所做的工作。這些特點可以使規(guī)程的某些特殊步驟延續(xù)較長時間，讓決策參與者有一定的時間動機，實現(xiàn)異時的群體決策。當(dāng)進入系統(tǒng)的招

8、聘者達(dá)到規(guī)定的人數(shù)時，主持者宣布招聘活動開始，招聘者根據(jù)每個步驟的要求單獨執(zhí)行決策分析工作，一個步驟完成后發(fā)出執(zhí)行完畢的確認(rèn)信息，等待下一步驟的開始。期間，招聘者可以通過內(nèi)置的郵件系統(tǒng)就自己的觀點和意見進行私下交流。在系統(tǒng)運行中，主持者監(jiān)視每個招聘者執(zhí)行步驟地進度，向招聘者發(fā)布進程信息，但在不違反規(guī)定的情況下，不干預(yù)他們具體的分析評判工作。主持者根據(jù)預(yù)定的步驟進度決定按時、提前或延遲步驟的切換，并及時通報階段性的招聘成果。系統(tǒng)對進程調(diào)度和每個步驟操作的處理，除招聘者人數(shù)和提問問題數(shù)等需積累的內(nèi)容外，均在步驟切換時提交招聘選拔處理?？钔瓿?。四、數(shù)據(jù)文件說明（1）Agenda：活動步驟表，共10個

9、步驟，每個步驟一條記錄，共十條記錄（已預(yù)置）（2）Answer：提問答案表，對應(yīng)六個題目，每位應(yīng)聘者六條記錄（兩層：3位應(yīng)聘者X 6個題目，已預(yù)置）（3）Applican：應(yīng)聘者材料表，每位應(yīng)聘者一條記錄，三位應(yīng)聘者共三條記錄（已預(yù)置）（4）Mail： 郵件收發(fā)周轉(zhuǎn)表，每個評委一條記錄（5）Manager：招聘評委工作狀態(tài)表，每個評委一條記錄（主持者事先添置）（6）Myscore1：招聘評委個人各項打分表，每個招聘評委對應(yīng)每個應(yīng)聘者一條記錄，即每個評委三條記錄（兩層：評委數(shù) X 3位應(yīng)聘者，初始化時重新設(shè)置記錄）（7）Myscore2：招聘評委提問問題及打分表，每個評委對每個應(yīng)聘者打分三題，三

10、位應(yīng)聘者共九題。每個評委九條記錄（三層：評委數(shù) X 3位應(yīng)聘者 X 3個題目,初始化時重新設(shè)置記錄）（8）Notes：活動事項表（已預(yù)置）（9）Ourquest：招聘評委提問問題匯總表（10）Question：待抽提問問題表（已預(yù)置）（11）Readlist：供閱讀的材料清單表（已預(yù)置）（12）Seledeci：決策表決記錄表，結(jié)構(gòu)與與Applican相同* 程序開始PARAMETERS controlx & 活動主持者代號 SET TALK OFFSET SAFETY OFFSET DATE ANSISET REFRESH TO 5SET EXACT OFFSET SYSMENU OFFSE

11、T 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 0

12、USE answer SHARE & 提問答案表SELECT 0USE applican SHARE & 應(yīng)聘者材料表SELECT 0USE mail SHARE & 郵件收發(fā)周轉(zhuǎn)表SELECT 0USE manager SHARE & 招聘評委工作狀態(tài)表表SELECT 0USE myscore1 SHARE & 招聘評委個人各項打分表（包括兩個提問問題號、簡歷分、印象分、答題分）SELECT 0USE myscore2 SHARE & 招聘評委提問問題及打分表SELECT 0USE notes SHARE & 活動事項表LOCATE FOR Item_no=應(yīng)聘人數(shù)REPLACE Item_

13、x WITH STR(RECCOUNT(applican), 2)LOCATE FOR Item_no=評委人數(shù)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為空白則自動添加記錄（條數(shù) = ap

14、plican）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)聘者名稱appnames = SCAN appnames = appnames+IIF(EMPTY(appnames), , ;) app

15、names = 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)MOVEWINDOWpersonCENTERACTIVATE WINDOW pe

16、rsonx 1, 3 SAY 議程： FONT 宋體, 12 STYLE BT COLOR nx 2.5, 3 FILL TO 28, 41 COLOR n/bg* & n/bIF controlx x 2, 54 SAY 人才招聘選拔系統(tǒng) FONT 宋體, 28 STYLE B COLOR gr+/b*ELSE x 2, 54 SAY 人才招聘選拔系統(tǒng) 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_

17、status = .F. & 實際未用step_time0 = SECONDS()DO WHILE .T. SELECT agenda GO TOP SCAN WHILE Is_pass 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

18、b/gb* x RECNO()*2.5+1, 7 SAY Step_no+ +TRIM(Step_name) FONT 宋體, 一三 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

19、_&cur_stepno AND managerx cur_steppm = TRIM(Step_prom2) OTHERWISE cur_steppm = TRIM(Step_prom1) 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 =

20、 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=0

21、1 SELECT notes LOCATE FOR Item_no=實到人數(shù) REPLACE Item_x WITH STR(arrive_no, 2) ENDIF this_prompt = cur_stepp3+IIF(cur_step宣布招聘結(jié)果, 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,

22、 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 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/g

23、b* & COLOR w+/b ENDSCAN choice1 = menu1 = IIF(controlx= , 執(zhí)行, 控制) x 26, 52 GET choice1 PICTURE 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_m

24、ail IF NOT EMPTY(in_mailx) & AND NOT Is_read x 17.5, 77 SAY 有你的郵件. FONT 宋體, 11 STYLE B COLOR 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=執(zhí)行 DO do_step WITH cur_stepx CASE

25、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

26、=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 W

27、ITH SELECT notes &REPLACE ALL Item_x WITH SELECT myscore1 & 記錄數(shù) = 評委數(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

28、 SELECT myscore1REPLACE ALL Quest_no1 WITH , Quest_no2 WITH , Resume_sc WITH 0, Impress_sc WITH 0, Sele_deci WITH SELECT myscore2 & 記錄數(shù) = 評委數(shù) X 3位應(yīng)聘者數(shù) 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 Mana

29、ger_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

30、_control FROM 1, 1 SIZE 10, 80 TITLE 活動控制窗 SYSTEM COLOR RGB(, , , 192, 192, 192) IN DESKTOPMOVEWINDOWp_controlCENTERACTIVATE WINDOW p_controlx 2, 10 SAY 當(dāng)前活動：+stepx FONT 宋體, 12 STYLE Bchoice2 = 退出x 6, 12 GET choice2 PICTURE x*H 下一活動;上一活動;退出 SIZE 1.5, 8, 3 FONT 宋體, 12 STYLE BREAD MODALIF choice2=下一活動

31、 DO CASE CASE stepx=評委報到 SELECT manager COUNT TO sum_n COUNT TO arrive_n FOR Is_&cur_stepno SELECT notes LOCATE FOR Item_no=評委人數(shù) REPLACE Item_x WITH STR(sum_n, 2) LOCATE FOR Item_no=實到人數(shù) REPLACE Item_x WITH STR(arrive_n, 2) CASE stepx=活動開始 & 下一步:評委閱讀 SELECT readlist LOCATE FOR Read_item=應(yīng)聘者材料 OR Rea

32、d_item= IF EOF() APPEND BLANK ENDIF REPLACE Read_item WITH 應(yīng)聘者材料 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(s

33、um_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 mysco

34、re1 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 SE

35、EK 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 REPLA

36、CE Quest_no WITH question.Quest_no ENDIF SELECT question ENDSCAN ENDDO SELECT quest_tempINDEXON 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 WI

37、TH quest_temp.Quest_no SELECT quest_temp i = i+1 ENDSCAN SELECT applican ENDSCAN CASE stepx=提問匯總 & 下一步:應(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

38、question.Quest_no +:+ question.Quest_text + CHR(一三)+CHR(一三) + 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 EN

39、DDO 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

40、/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 Re

41、ad_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_

42、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_name=whox REPLACE Score4 WITH ave_sc SELECT myscore1 ENDDO SELECT applican REPLACE ALL Score1 WITH MIN(30, Score1), Score4 WITH MIN(20, Score4) REPLACE ALL Score0 W

43、ITH Score1+Score2+Score3+Score4 SELECT readlist LOCATE FOR Read_item=您的印象分 OR Read_item= IF EOF() APPEND BLANK ENDIF REPLACE Read_item WITH 您的印象分 CASE stepx=評分綜合 & 下一步:選拔表決 CASE stepx=選拔表決 & 下一步:宣布招聘結(jié)果 SELECT applican REPLACE ALL Got_num WITH 0 SELECT myscore1 INDEX ON App_name TO quest_t DO WHILE N

44、OT EOF() whox = App_name i = 0 DO WHILE App_name=whox IF Sele_deci= i = i+1 ENDIF SKIP ENDDO SELECT applican LOCATE FOR App_name=whox REPLACE Got_num WITH i SELECT myscore1 ENDDO SELECT applican GO TOP sele_x = Got_num sele_y = Score0 sele_z = App_name SCAN DO CASE CASE Got_numsele_x sele_x = Got_nu

45、m sele_y = Score0 sele_z = App_name CASE Got_num=sele_x AND Score0sele_y sele_x = Got_num sele_y = Score0 sele_z = App_name ENDCASE ENDSCAN SELECT applican REPLACE ALL Sele_deci WITH LOCATE FOR App_name=sele_z REPLACE Sele_deci WITH ENDCASE SELECT agenda LOCATE FOR Step_name=stepx REPLACE Is_pass WI

46、TH .T., Is_passed WITH step_time0 = SECONDS() cur_step = x 10, 46 CLEAR TO 22, 120ENDIFIF choice2=上一活動 SELECT agenda LOCATE FOR Step_name=stepx IF RECNO()1 SKIP -1 ENDIF REPLACE Is_pass WITH .F., Is_passed WITH step_time0 = SECONDS() cur_step = x 10, 46 CLEAR TO 22, 120ENDIFRELEASE WINDOW p_controlR

47、ETURN*PROCEDURE do_stepPARAMETERS stepxchoice2 = 退出DO CASECASE stepx=評委報到 DEFINE WINDOW p_register FROM 1, 1 SIZE 10, 50 TITLE 評委報到窗 SYSTEM COLOR RGB(, , , 192, 192, 192)MOVEWINDOWp_registerCENTER ACTIVATE WINDOW p_register choicex = 確認(rèn) x 2, 8 SAY 用戶號： FONT 宋體, 12 STYLE B x 2, 24 GET manager_no DEFA

48、ULT FONT 宋體, 12 COLOR , w+/b x 4, 8 SAY 口 令： FONT 宋體, 12 STYLE B x 4, 24 GET manager_pw DEFAULT FONT 宋體, 12 COLOR , w+/b x 7, 9 GET choicex PICTURE x*HT 確認(rèn);取消 FONT 宋體, 12 STYLE B SIZE 1.5, 8, 4 READ MODAL IF manager_no=MIS AND choicex取消 controlx = manager_no RELEASE WINDOW p_register RETURN ENDIF IF

49、 choicex=取消 OR EMPTY(TRIM(manager_no) OR EMPTY(TRIM(manager_pw) RELEASE WINDOW p_register RETURN ENDIF IF manager_noDSS DO p_info WITH 非 法 用 戶 ！, 1 RELEASE WINDOW p_register RETURN ENDIF SELECT manager LOCATE FOR Manager_id=TRIM(manager_pw) IF NOT FOUND() DO p_info WITH 口 令 錯 誤 ！, 1 RELEASE WINDOW p

50、_register RETURN ENDIF REPLACE Is_01 WITH .T., Is_01ed WITH cur_status = .T. managerx = Manager_id RELEASE WINDOW p_register x 5, 78 SAY managerx FONT 宋體, 16 STYLE B COLOR rg+/b*CASE stepx=活動開始 OR stepx=提問匯總 DEFINE WINDOW p_win FROM 1, 1 SIZE 26, 100 TITLE 材料閱讀窗 SYSTEM COLOR RGB(, , , 192, 192, 192)

51、 IN DESKTOP MOVEWINDOWp_winCENTER ACTIVATE WINDOW p_win x 1, 42 SAY cur_data FONT 宋體, 12 STYLE B x 23.5, 38 GET choice2 PICTURE x*H 閱畢;退出 SIZE 1.5, 8, 2 FONT 宋體, 12 STYLE B textx = DO p_disp WITH cur_data READ is_x = IIF(stepx=活動開始, 02, IIF(stepx=提問匯總, 05, ) IF choice2=閱畢 AND stepx SELECT manager LO

52、CATE FOR Manager_id=managerx REPLACE Is_&is_x WITH .T., Is_&is_x.ed WITH ENDIF RELEASE WINDOW p_winCASE stepx=閱讀材料 & 打簡歷分 DO p_disp WITH cur_data, .T. IF choice2=評畢 SELECT manager LOCATE FOR Manager_id=managerx REPLACE Is_03 WITH .T., Is_03ed WITH ENDIFCASE stepx=評委提問 DEFINE WINDOW p_quest FROM 1, 1

53、 SIZE 28, 100 TITLE 問題選擇窗 SYSTEM COLOR RGB(, , , 192, 192, 192) IN DESKTOP MOVEWINDOWp_questCENTER ACTIVATE WINDOW p_quest x 25, 16 GET choice2 PICTURE x*N 選擇 SIZE 1.5, 8 FONT 宋體, 12 STYLE B VALID p_sele() x 25, 33 GET choice2 PICTURE x*N 閱讀 SIZE 1.5, 8 FONT 宋體, 12 STYLE B VALID do_read(controlx) x

54、25, 50 GET choice2 PICTURE x*H 選畢;退出 SIZE 1.5, 8, 2 FONT 宋體, 12 STYLE B DEFINE WINDOW p_browseq FROM 1, 2 SIZE 14, 95 IN p_quest ACTIVATE WINDOW p_browseq SELECT question GO TOP BROWSE FIELD Quest_no:H=:R, Quest_text:H=問題:R:50 IN p_browseq NODELETE NOEDIT NOWAIT ; TITLE 問題選擇 FONT 宋體, 12 DEFINE WINDO

55、W p_myscore1 FROM 16, 2 SIZE 8, 95 IN p_quest ACTIVATE WINDOW p_myscore1 SELECT myscore1 LOCATE FOR Manager_id=managerx BROWSE FIELD App_name:H=應(yīng)聘者:R:一五, Quest_no1:H=問題1:R, Quest_no2:H=問題2:R IN p_myscore1 NODELETE NOWAIT ; TITLE 已選問題 FONT 宋體, 12 FOR Manager_id=managerx noedit READ RELEASE WINDOW p_b

56、rowseq RELEASE WINDOW p_myscore1 RELEASE WINDOW p_quest IF choice2=選畢 SELECT manager LOCATE FOR Manager_id=managerx REPLACE Is_04 WITH .T., Is_04ed WITH ENDIF RELEASE WINDOW p_winCASE stepx=應(yīng)聘者答 & 評委打分 DO p_disp WITH cur_data, .T. IF choice2=評畢 SELECT manager LOCATE FOR Manager_id=managerx REPLACE I

57、s_06 WITH .T., Is_06ed WITH ENDIFCASE stepx=打印象分 DO p_disp WITH cur_data, .T. IF choice2=評畢* SELECT applican* REPLACE ALL Score0 WITH Score1+Score2+Score3+Score4 SELECT manager LOCATE FOR Manager_id=managerx REPLACE Is_07 WITH .T., Is_07ed WITH ENDIFCASE stepx=評分綜合 DO p_disp WITH cur_data, .T. IF ch

58、oice2=閱畢 SELECT manager LOCATE FOR Manager_id=managerx REPLACE Is_08 WITH .T., Is_08ed WITH ENDIFCASE stepx=選拔表決 DO p_disp WITH cur_data, .T. IF choice2=選畢 SELECT seledeci LOCATE FOR sele_deci= IF FOUND() appy = App_name SELECT myscore1 REPLACE Sele_deci WITH FOR Manager_id=managerx LOCATE FOR Manag

59、er_id=managerx AND App_name=appy REPLACE Sele_deci WITH ENDIF SELECT manager LOCATE FOR Manager_id=managerx REPLACE Is_09 WITH .T., Is_09ed WITH ENDIFCASE stepx=宣布招聘結(jié)果 DO p_disp WITH cur_data, .T.ENDCASERETURN* p_selePROCEDURE p_seleSELECT myscore1DO CASECASE EMPTY(Quest_no1) REPLACE Quest_no1 WITH

60、question.Quest_noCASE EMPTY(Quest_no2) REPLACE Quest_no2 WITH question.Quest_noOTHERWISE REPLACE Quest_no1 WITH Quest_no2, Quest_no2 WITH question.Quest_noENDCASERETURN* do_readPROCEDURE do_readPARAMETERS conxDEFINE WINDOW p_win FROM 1, 1 SIZE 28, 100 TITLE 材料閱讀窗 SYSTEM COLOR RGB(, , , 192, 192, 192