【正文】 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_amp。 FONT 宋體, 12 STYLE B COLOR RGB(0, 0, 0, 192, 192, 192) IF NOT EOF() SKIP ENDIF SCAN REST RECNO()*+1, 4 SAY FONT 宋體, 13 COLOR N/gb* amp。 b/b RECNO()*+1, 7 SAY Step_no+ +Step_name FONT 宋體, 13 COLOR N/gb* amp。 COLOR w+/b ENDSCAN choice1 = menu1 = IIF(controlx= , 執(zhí)行, 控制) 26, 52 GET choice1 PICTURE *H +menu1+。郵件。amp。amp。amp。si WITH .F., Is_amp。amp。amp。amp。dbfx EXCLUSIVEZAPSELECT managerSCAN SELECT applican SCAN SELECT myscore1 APPEND BLANK REPLACE Manager_id WITH , App_name WITH 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 amp。 記錄數(shù) = 評委數(shù) X 3位應(yīng)聘者數(shù) X 3個(gè)題目dbfx = DBF()USE amp。amp。上一活動(dòng)。cur_stepno SELECT notes LOCATE FOR Item_no=評委人數(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)開始 amp。 下一步:評委閱讀 SELECT readlist LOCATE FOR Read_item=應(yīng)聘者材料 OR Read_item= IF EOF() APPEND BLANK ENDIF REPLACE Read_item WITH 應(yīng)聘者材料 CASE stepx=閱讀材料 amp。 打簡歷分，amp。 下一步:評委提問 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=評委提問 amp。 下一步:提問匯總 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= AND Quest_no1 SELECT quest_temp SEEK IF NOT FOUND() APPEND BLANK REPLACE Quest_no WITH ENDIF REPLACE Quest_num WITH Quest_num+1 SELECT myscore1 ENDSCAN SCAN FOR App_name= AND Quest_no2 SELECT quest_temp SEEK IF NOT FOUND() APPEND BLANK REPLACE Quest_no WITH 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 IF NOT FOUND() APPEND BLANK REPLACE Quest_no WITH ENDIF SELECT question ENDSCAN ENDDO SELECT quest_temp INDEX ON 0Quest_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 REPLACE Quest_no WITH SELECT quest_temp i = i+1 ENDSCAN SELECT applican ENDSCAN CASE stepx=提問匯總 amp。 下一步:應(yīng)聘者答 SELECT ourquest SCAN SELECT answer LOCATE FOR App_name+Quest_no=+ SELECT question LOCATE FOR Quest_no= SELECT ourquest REPLACE Quest_as WITH +:+ + CHR(13)+CHR(13) + 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 SKIP SELECT ourquest SKIP ENDDO SELECT manager ENDSCAN CASE stepx=應(yīng)聘者答 amp。 下一步:打印象分 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= SELECT applican REPLACE Score3 WITH sum