【正文】 _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=打印象分 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 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 WITH Score1+Score2+Score3+Score4 SELECT readlist LOCATE FOR Read_item=您的印象分 OR Read_item= IF EOF() APPEND BLANK ENDIF REPLACE Read_item WITH 您的印象分 CASE stepx=評分綜合 amp。 下一步:選拔表決 CASE stepx=選拔表決 amp。 下一步:宣布招聘結(jié)果 SELECT applican REPLACE ALL Got_num WITH 0 SELECT myscore1 INDEX ON App_name TO quest_t DO WHILE NOT 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_num 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 WITH .T., Is_passed WITH √ step_time0 = SECONDS() cur_step = 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 = 10, 46 CLEAR TO 22, 120ENDIFRELEASE WINDOW p_controlRETURN********************************************************************************************************************************************PROCEDURE do_stepPARAMETERS stepxchoice2 = 退出DO CASECASE stepx=評委報到 DEFINE WINDOW p_register FROM 1, 1 SIZE 10, 50 TITLE 評委報到窗 SYSTEM COLOR RGB(, , , 192, 192, 192) MOVE WINDOW p_register CENTER ACTIVATE WINDOW p_register choicex = 確認 2, 8 SAY 用戶號： FONT 宋體, 12 STYLE B 2, 24 GET manager_no DEFAULT FONT 宋體, 12 COLOR , w+/b 4, 8 SAY 口 令： FONT 宋體, 12 STYLE B 4, 24 GET manager_pw DEFAULT FONT 宋體, 12 COLOR , w+/b 7, 9 GET choicex PICTURE *HT 確認。退出 SIZE , 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 LOCATE FOR Manager_id=managerx REPLACE Is_amp。 WITH √ ENDIF RELEASE WINDOW p_winCASE stepx=閱讀材料 amp。 打簡歷分 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 SIZE 28, 100 TITLE 問題選擇窗 SYSTEM COLOR RGB(, , , 192, 192, 192) IN DESKTOP MOVE WINDOW p_quest CENTER ACTIVATE WINDOW p_quest 25, 16 GET choice2 PICTURE *N 選擇 SIZE , 8 FONT 宋體, 12 STYLE B VALID p_sele() 25, 33 GET choice2 PICTURE *N 閱讀 SIZE , 8 FONT 宋體, 12 STYLE B VALID do_read(controlx) 25, 50 GET choice2 PICTURE *H 選畢。39。問題39。 TITLE 問題選擇 FONT 宋體, 12 DEFINE WINDOW 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=39。:R:15, Quest_no1:H=39。:R, Quest_no2:H=39。:R IN p_myscore1 NODELETE NOWAIT 。amp。評委工作情況 amp。 主持人在可讀材料 selex = 活動進程情況ELSE SELECT readlist GO TOP selex = Read_item listx = SCAN WHILE Read_item listx = listx+IIF(EMPTY(listx), , 。, )DO CASECASE dispx=活動進程情況 DEFINE WINDOW p_browse FROM 3, 2 SIZE 17, 95 IN p_win ACTIVATE WINDOW p_browse MOVE WINDOW p_browse CENTER SELECT agenda GO TOP BROWSE FIELD Step_no:H=39。:R, Step_name:H=39。:R, Step_time1:H=39。:R, 。已完成39。評委39。報到 39。讀事項39。 Is_03ed:H=39。:R, Is_04ed:H=39。:R, Is_05ed:H=39。:R, 。打分 39。印象分39。評委39。amp。應聘者39。簡歷分39。 IN p_browse NODELETE NOWAIT TITLE dispx FONT 宋體, 12 WHEN p_memo(App_docum, App_name) menux = 評畢。應聘者39。印象分39。 IN p_browse NODELETE NOWAIT TITLE dispx FONT 宋體, 12 WHEN p_memo(App_docum, App_name) menux = 評畢。應聘者39。簡歷分39。試卷分39。面試分39。印象分39?？偡?9。 IN p_browse NODELETE NOWAIT TITLE dispx FONT 宋體, 12 WHEN p_memo(App_docum) menux = 閱畢。39。問題39。應聘者39。問題