【正文】 WINDOW p_winCASE stepx=應(yīng)聘者答 amp。問(wèn)題239。問(wèn)題139。應(yīng)聘者39。:R:50 IN p_browseq NODELETE NOEDIT NOWAIT 。:R, Quest_text:H=39。退出 SIZE , 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=39。amp。is_x WITH .T., Is_amp。取消 FONT 宋體, 12 STYLE B SIZE , 8, 4 READ MODAL IF manager_no=MIS AND choicex取消 controlx = manager_no RELEASE WINDOW p_register RETURN ENDIF IF 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 口 令 錯(cuò) 誤 ！, 1 RELEASE WINDOW p_register RETURN ENDIF REPLACE Is_01 WITH .T., Is_01ed WITH √ cur_status = .T. managerx = Manager_id RELEASE WINDOW p_register 5, 78 SAY managerx FONT 宋體, 16 STYLE B COLOR rg+/b*CASE stepx=活動(dòng)開(kāi)始 OR stepx=提問(wèn)匯總 DEFINE WINDOW p_win FROM 1, 1 SIZE 26, 100 TITLE 材料閱讀窗 SYSTEM COLOR RGB(, , , 192, 192, 192) IN DESKTOP MOVE WINDOW p_win CENTER ACTIVATE WINDOW p_win 1, 42 SAY cur_data FONT 宋體, 12 STYLE B , 38 GET choice2 PICTURE *H 閱畢。amp。amp。amp。amp。amp。amp。amp。amp。amp。退出 SIZE , 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_amp。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)。dbfx EXCLUSIVEZAPSELECT managerSCAN SELECT applican SCAN SELECT myscore2 FOR i=1 TO 3 si = STR(i, 1) APPEND BLANK REPLACE Manager_id WITH , App_name WITH ENDFOR SELECT applican ENDSCAN SELECT managerENDSCAN SELECT ourquest amp。amp。 記錄數(shù) = 評(píng)委數(shù) X 應(yīng)聘者數(shù)dbfx = DBF()USE amp。REPLACE ALL Item_x WITH SELECT myscore1 amp。 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 amp。 WITH ENDFOR REPLACE In_mail WITH , Out_mail WITH , To_who WITH , Is_read WITH .F.ENDSCAN SELECT applican amp。 SCAN FOR i=1 TO 10 si = RIGHT(0+ALLTRIM(STR(i, 2)), 2) REPLACE Is_amp。 REPLACE ALL Step_promx WITH , Step_time2 WITH 0, Is_pass WITH .F., Is_passed WITH SELECT manager amp。 AND NOT Is_read , 77 SAY 有你的郵件. FONT 宋體, 11 STYLE B COLOR w+/b* ?? CHR(7) ELSE , 75 CLEAR TO , 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 amp。退出 SIZE , 8, 2 FONT 宋體, 12 STYLE B IF controlx , TO 28, 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) amp。閱讀。amp。amp。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, 74LEN(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)+ 。 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 amp。 b/bg* ENDSCAN RECNO()*+1, 4 SAY FONT 宋體, 13 COLOR b/gb* RECNO()*+1, 7 SAY Step_no+ +TRIM(Step_name) FONT 宋體, 13 STYLE B COLOR r+/gb* amp。 實(shí)際未用step_time0 = SECONDS()DO WHILE .T. SELECT agenda GO TOP SCAN WHILE Is_pass AND managerx RECNO()*+1, 4 SAY √ FONT 宋體, 13 STYLE B COLOR r/gb* RECNO()*+1, 7 SAY Step_no+ +TRIM(Step_name) FONT 宋體, 13 STYLE B COLOR N/gb* amp。 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. amp。) appnames = appnames+App_nameENDSCAN**************************************SELECT 0CREATE CURSOR que