【正文】 :R IN p_browse NODELETE NOWAIT TITLE dispx FONT 宋體, 11CASE dispx=您給的答題分 OR disp。:R, Quest_no:H=39。:50:R IN p_browseq NODELETE NOWAIT TITLE 問題選擇 FONT 宋體, 11 DEFINE WINDOW p_browse FROM 14, 2 SIZE 9, 95 IN p_win ACTIVATE WINDOW p_browse SELECT ourquest GO TOP BROWSE FIELD App_name:H=39。:R, Quest_text:H=39。 ENDCASE ACTIVATE WINDOW p_win2 , 3 TO 22, 117 PEN 2 STYLE 10 DO p_memo WITH App_docum, App_name choice2 = 退出 menux = IIF(PARAMETERS()=2 AND is_do, menux,) 23, 42 GET choice2 PICTURE *H +menux+退出 SIZE , 8 FONT 宋體, 12 STYLE B READ RELEASE WINDOW p_win2CASE dispx=提問匯總 DEFINE WINDOW p_browseq FROM , 2 SIZE 11, 95 IN p_win ACTIVATE WINDOW p_browseq SELECT question GO TOP BROWSE FIELD Quest_no:H=39。:R 。:R, Score0:H=39。:R,Score4:H=39。:R, Score3:H=39。:R,Score2:H=39。:R, Score1:H=39。 OTHERWISE DEFINE WINDOW p_browse FROM 1, 1 SIZE 8, 80 IN p_win2 ACTIVATE WINDOW p_browse SELECT applican GO TOP BROWSE FIELD App_name:H=39。 FOR Manager_id=managerx 。:R, Impress_sc:H=39。 CASE dispx=您給的印象分 , 45 SAY 滿分20分 FONT 宋體, 12 STYLE B DEFINE WINDOW p_browse FROM 1, 1 SIZE 8, 40 IN p_win2 ACTIVATE WINDOW p_browse SELECT myscore1 BROWSE FIELD App_name:H=39。 FOR Manager_id=managerx 。:R, Resume_sc:H=39。 CHR(13) SELECT notes SCAN textx = textx+ +TRIM(Item_text)+ALLTRIM(Item_x)+CHR(13) ENDSCAN DEFINE WINDOW p_browse FROM 3, 2 SIZE 17, 95 IN p_win ACTIVATE WINDOW p_browse MOVE WINDOW p_browse CENTER 3, 2 SAY textx SIZE 15, 60 FONT 宋體, 12CASE dispx=應聘者材料 OR dispx=您給的簡歷分 OR dispx=您給的印象分 OR dispx=綜合評分 DEFINE WINDOW p_win2 FROM 1, 1 SIZE 26, 120 TITLE 材料閱讀窗 SYSTEM COLOR RGB(, , , 192, 192, 192) IN DESKTOP MOVE WINDOW p_win2 CENTER ACTIVATE WINDOW p_win2 DO CASE CASE dispx=您給的簡歷分 , 45 SAY 滿分30分 FONT 宋體, 12 STYLE B DEFINE WINDOW p_browse FROM 1, 1 SIZE 8, 40 IN p_win2 ACTIVATE WINDOW p_browse SELECT myscore1 BROWSE FIELD App_name:H=39。 IN p_browse NOWAIT TITLE dispx FONT 宋體, 11* ACTIVATE WINDOW p_win2* choice2 = 退出* 18, 55 GET choice2 PICTURE *H 退出 SIZE , 8 FONT 宋體, 12 STYLE B* READ* RELEASE WINDOW p_win2CASE dispx=活動事項 textx = amp。:R IN p_browse NODELETE NOEDIT NOWAIT TITLE dispx FONT 宋體, 11*CASE dispx=添加評委* DEFINE WINDOW p_win2 FROM 1, 1 SIZE 26, 70 TITLE 添加評委 SYSTEM COLOR RGB(, , , 192, 192, 192) IN DESKTOP * MOVE WINDOW p_win2 CENTER* ACTIVATE WINDOW p_win2* DEFINE WINDOW p_browse FROM 1, 1 SIZE 24, 40 IN p_win2* ACTIVATE WINDOW p_browse * SELECT manager* GO TOP* BROWSE FIELD Manager_id:H=39。:R, Is_07ed:H=39。 Is_06ed:H=39。讀匯總39。提問 39。讀材料39。:R, 。:R, Is_02ed:H=39。:R, Is_01ed:H=39。:R IN p_browse NODELETE NOWAIT TITLE dispx FONT 宋體, 12 noedit CASE dispx=評委工作情況 DEFINE WINDOW p_browse FROM 3, 2 SIZE 17, 95 IN p_win ACTIVATE WINDOW p_browse MOVE WINDOW p_browse CENTER SELECT manager GO TOP BROWSE FIELD Manager_id:H=39。 Is_passed:H=39。限定時間39。步驟39。39。) listx = listx+Read_item ENDSCANENDIFchoicex = 退出 1, 32 GET selex PICTURE ^N +listx SIZE , 20 FONT 宋體, 12 VALID p_disp(selex) 25, 40 GET choicex PICTURE *H 退出 SIZE , 8, 2 FONT 宋體, 12 STYLE BREAD MODALRELEASE WINDOW p_winRETURN******************************************************************** p_dispPROCEDURE p_dispPARAMETERS dispx, is_doparax = PARA()menux = IIF(PARAMETERS()=2 AND is_do, 閱畢。amp。 評委打分 DO p_disp WITH cur_data, .T. IF choice2=評畢 SELECT manager LOCATE FOR Manager_id=managerx REPLACE Is_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 choice2=閱畢 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 Manager_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=宣布招聘結果 DO p_disp WITH cur_data, .T.ENDCASERETURN******************************************************************** p_selePROCEDURE p_seleSELECT myscore1DO CASECASE EMPTY(Quest_no1) REPLACE Quest_no1 WITH CASE EMPTY(Quest_no2) REPLACE Quest_no2 WITH OTHERWISE REPLACE Quest_no1 WITH Quest_no2, Quest_no2 WITH ENDCASERETURN******************************************************************** do_readPROCEDURE do_readPARAMETERS conxDEFINE WINDOW p_win FROM 1, 1 SIZE 28, 100 TITLE 材料閱讀窗 SYSTEM COLOR RGB(, , , 192, 192, 192) IN DESKTOP MOVE WINDOW p_win CENTERACTIVATE WINDOW p_winIF conx listx = 活動進程情況。 TITLE 已選問題 FONT 宋體, 12 FOR Manager_id=managerx noedit READ RELEASE WINDOW p_browseq 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