【正文】
前插 INSERT BEFORE BLANK DEPLACE 專業(yè) WITH?? ENDIF ENDIF ENDIF thisform Release ENBPROC PQOCEDURE mande click thisform Release ENDPROC Setstudent 表單事件過程 PRDCEDURE Init thisform mand1 Enabled=F ENDPROC PQOCEDURE mand1 click Public f1,f2 f1=thisform list1 value f2=thisform list2 value DO FORM setstudtnt1 thisform Release ENDPROC PROCEDURE list1 click SELEET classn LDCATE FOK ALLTRIM專業(yè) =ALLTRTM( this value) AND NOT DEHFTEDC 河北大學(xué)畢業(yè)論文 34 thisform listz clear DO lehtkle NOT EDFC, thisform list2 Add1tom (班號(hào) ) CONTINUE ENDDO ENDPROC PROCEDURF cist2 click thisform mand1 Enabled=T ENDPROC PROCEDLRE mand2 click thisform Release CLDSE DATABASFS all ENDPROC Setstudent1 表單事件過程: PROCEDURE Init PHBLIC flag thisform cabel1 capfion=TRIM(f1)+“:”+TRIM(f2) SELECT student SET FILTER TO 專業(yè) =TRIM( f1) AND 班號(hào) =TRIM( f2) GO TOP thisform Refresh ENDPROC PROCEDURE Activate thisform Refresh ENPROC PROCEDURE mand1 click Flag=1 DO FORM setstudent2 ENDPROC PROCEDURE mand2 click flag=2 DO FORM setstudent2 ENDPROC 河北大學(xué)畢業(yè)論文 35 PROCEDURE mand3 click thisform Release RELEASE flay Close DATABASIS ALL ENDPROC Setstudent2 表單事件過程: PROCEDUBE Init SELECT student1 IF flay=1 =“ 添加學(xué)生記錄 ” REPLACE 學(xué)號(hào) WITH“ ” ,姓名 WITH“” ,性別 WITH“ 男 ” REPLACE 出生日期 WITH{,},民族 WITH“ 漢族 ” REPLACE 專業(yè) WITH F1,班費(fèi) WITH F2,備注 WITH“” APPEND GENERAL 照片 FROM ELSE =“ 修改學(xué)生記錄 ” REPLAE 學(xué)號(hào) WITH ,姓名 WITH STUDENT 姓名 REPLAE 性別 WITH ,出生日期 WITH STUDENT 出生日期 REPLAE 民族 WITH ,專業(yè) WITH STUDENT 專業(yè) REPLAE 班號(hào) WITH ,備注 WITH STUDENT 備注,;照片 WITH ENDIF ENDPROC PROCEDURE ENDPROC PROCEDURE img=GETFILE IF FILE(img) APPEND GENERAL 照片 FROM( img) ENDPROC 河北大學(xué)畢業(yè)論文 36 qustudent 表單事件過程 PROCEDURE Init SELECT student IF RECCIUNT()=0 =.F. ENDIF ENDPROC PROCEDURE Actiuate ENDPROC PROCEDURE DO FORM find ENDPROC PROCEDURE。刪除 DELECT ELSE amp。 開課學(xué)期 WITH thisform mbo2 value , 學(xué)分 WITH thisform text4 value. EISE IF flay=2 REPLAEE 課程是 ?? EISF IF flay=3 amp。 入校年份 with thisform fext3 Dalve ELSE DELEFE ENBIF ENDIF Thisform Releafe 河北大學(xué)畢業(yè)論文 30 ENDPROC PROCEDURE mand2 click Thisform Release ENDPROC setcourse 表單事件過程如下: PROCEDURE Activate Thisform Refresh Thisform goid1 setfocus ENDPROC PROCEDURE Refresh Thisform mand2 Enabled=F Thisform mdnd3 Enabled=F Thisform mand4 Enabled=F ENBPROC PROCEBURE Init PUBLFC f1, f2, f3, f4, f5,flag Thisform Cmdclass Enabled=F Thisform mand1 Enabled=F SELEET course SET FILTFR TO F ENBPROC PROCEDURE List1 click Thisform cmdclass Enabled=T ENDPROC PROCEDURE mand3 click SELECT course F1=學(xué)分 flag=2 DO RORM setcourse1 ENDPROC PROCEDURE mand5 click SELEET COURSE PACK Thisform Release 河北大學(xué)畢業(yè)論文 31 RFLEASE f1, f2, f3, f4, f5, f6, flag Close DATABASES ALL ENDPROC PROCEDUDE mand4 click SELEET course F1=專業(yè) f2=課程號(hào) f3=課程 f4=性質(zhì) f5=開課學(xué)期 F6=學(xué)分 flag=3 DO RORM setcourse1 ENDPRDC PROCEDURE cmdclass click Thisform cmmand1 Enabled=T Thisform cabel4 caption=All trim (thisform Bst1 Value)+“ 專業(yè)課程 ” SELECT course SET FILTER TO ACCTRIM(專業(yè) )=ACCTRIM (thisform Bst1 value)。amp。amp。amp。amp。MPR|FXP。 DO _0vv0ilze8 。MPR|FXP。 DO _0vv0ilze7 。MPR|FXP。 DO _0vv0ilze6 。MPR|FXP。 DO _0vv0ilze5 。MPR|FXP。 DO _0vv0ilze4 。MPR|FXP。 DO _0vv0ilze3 。MPR|FXP。 DO _0vv0ilze2 。MPR|FXP。 DO _0vv0ilze1 。MPR|FXP。 DO _0vv0ilzdb 。 TEXT1。ulevel 存放用戶級(jí)別 ,rq 存放當(dāng)前使用日期 DO FORM pass to ret IF ret=.T. DO READ event ENDIF SET SYSMENU TO default SET SYSMENU on SET STATUS BAR ON CLOSE ALL CLEAR ALL RETURN Pass 表單事件過程 PROCED BE END RET RN fcag ENOROC PROCED RE Fnit 河北大學(xué)畢業(yè)論文 16 PUBLIC n,fcag n=1 =DATE( ) ENDPROC PROCED RE Rq=,ra=thisform,rb=we IF (n2) OR(ra=“”) OR(rb=“”) =MESSAGEBOXC“ 口令三次輸入錯(cuò)誤,不能使用本系統(tǒng) ” , 48, “ 信息提示 ” flag=.F. ELSE SELEOT SEX TadATE FOR sename=。 河北大學(xué)畢業(yè)論文 15 系統(tǒng)程序代碼 學(xué)生成績(jī)管理系統(tǒng)的程序、表單、代碼如下:(所列出大部分) 主程序 CLEAR SET TALK OFF SET SYSMENU off SET SYSMENU to SET DELETED OFF SET STATUS BAR OFF SET DATE ANSI SET SAFETY OFF CLEAR ALL CLOSE ALL =2 =學(xué)生成績(jī)管理系統(tǒng) PUBLIC ulevel,rq amp。 ( 2) daywrife 表 結(jié)構(gòu)如下 Field Fieldname Type width Dec Index Nulls 1 usename QC 10 2 useDATE D 8 3 usefime D 8 ( 3) prof 表(結(jié)構(gòu)如下) Field Fieldname Type width Dec Index Nulls 1 專業(yè) C 20 ( 4) classn 表(結(jié)構(gòu)如下) 河北大學(xué)畢業(yè)論文 14 Field Fieldname Type width Dec Index Nulls 1 課程 C 6 N0 2 專業(yè) C 20 NO 3 課程 C 20 NO 4 性質(zhì) C 6 NO 5 開課學(xué)期 C 1 NO 6 學(xué)分 N 3 NO 該表用于每放所有課程信息,(課程按專業(yè)分類) ( 5) student 表(結(jié)構(gòu)如下) Field Fieldname Type width Dec Index Nulls 1 學(xué)號(hào) C 8 N0 2 姓名 C 10 NO 3 性別 C 2 NO 4 出生日期 D 8 NO 5 民族 C 10 NO 6 專業(yè) C 20 NO 7 班號(hào) C 10 NO 8 備注 M 4 NO 9 照片 G 4 NO 該表按專業(yè)分類每班的所有學(xué)生記錄,另有一個(gè)臨時(shí)表 studentl,結(jié)構(gòu)相同與 student。 PDL 語言的特點(diǎn) 關(guān)鍵字采用固定語法并支持結(jié)構(gòu)化構(gòu)件、數(shù)據(jù)說明機(jī)制和模