【導(dǎo)讀】提供充足的信息和快捷的查詢手段。由于一直以來人們使用傳統(tǒng)的人工方式管理。將產(chǎn)生大量的文件和數(shù)據(jù),這對于查找、更新和維護都帶來了不少的困難。該設(shè)計是一個管理學(xué)生成績的系統(tǒng)，功能與實現(xiàn)方面有相當?shù)尼槍π院蛯嵱?。本文詳細地介紹了“學(xué)生成績管理系統(tǒng)”的設(shè)計思想，設(shè)計過程，本軟件是。命令，能方便地實現(xiàn)對數(shù)據(jù)庫的操作與管理。本文從問題定義、可行性研究、需。庫的建立和維護以及前端應(yīng)用程序的開發(fā)兩個方面。致性和完整性強、數(shù)據(jù)安全性好的庫。而對于后者則要求應(yīng)用程序功能完備,易使。案具有效率低，查找麻煩，可靠性不高，保密性低等因素。僅是適用于大中專院校以及其它高校通用的學(xué)生成績管理系統(tǒng)是必要的。學(xué)生成績輸入，學(xué)期結(jié)束，要對成績表中的學(xué)生成績進行登記。學(xué)生成績統(tǒng)計，統(tǒng)計每個學(xué)生的總成績。改和刪除；使學(xué)校成績管理人員更加便捷的對學(xué)生成績進行管理。經(jīng)典的控制結(jié)構(gòu)為順序，IFTHENELSE分支，DO-WHILE循環(huán)。

　　

【正文】 click SELECT classn F1=專業(yè) f2=班號 f3=入校年份 flag=3 Do form setclass1 ENDPROC PROCEDURE cmdclass click Thisform mmond1 Enabled=F Thisform label4 caption=ALLTRJM(tish form 附 1 palve +“ 專業(yè)的班號 ” SELEET classn SET FILTER TO ALLTRIM(專業(yè) )=ALLTRIM(thisform (ist1 palve))AND GTO TOP NOT DELETEDC Thisform refresh ENBPROC PROCEDURE text1 click Thisform mand2 Enabled=F Thisform mand3 Enabled=T 河北大學(xué)畢業(yè)論文 29 ENDPROC setclass1 表單事件過程如下： PROCEDURE Init Thisform text1 Dalve=f1 Thisform text3 Dalve=f2 Thisform text3 dalve=f3 IF flag=1 Thisform caption=“ 添加班 號 ” EFSE IF flag=2 Thisform capfion=“ 修改班號 ” ELSE Thisform caption=“ 刪除班號 ” This text2 Read only =T Thisform text3 Read only=T ENBIF ENDIF ENDPROC PROCEDURE mand1 click SELEET classn IF flag=1 APPEND BLAND REPLAEE 專業(yè) WITH f1,班號 WITH thisform text2 text 入校年份 WITH thisform text3 Dalve ELSE FI flag=2 REPLACE 班號 WITH thisform text2 foxt。 入校年份 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=課程號 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)。 GTO TOP AND NOT DELETZDC Thisform Refresh. ENDPROC DROCEDURE text1 click Thisform mand2 Enabled=T Thisform mand3 Enabled=T Thisform mand4 Enabled=T ENDPROC QROCEDURE tex41 click Thisform mand2 Enabled=T Thisform mand3 Enabled=T Thisform mand4 Enabled=T ENDPROC PROCEDURE text1 click Thisform mand2 Enabled=T Thisform mand3 Enabled=T Thisform mand4 Enabled=T ENDPROC PROCEDURE mand2 click 河北大學(xué)畢業(yè)論文 32 f1=thisform Bst1 value f 2=thisform Bst1 value f3= thisform Bst1 value f4= thisform Bst1 value f5= thisform Bst1 value f6=0 flag=4 DO form setcoure1 ENDPROC setcourse1 表單事件過程： PROCEDURE Init fhisform text1 value=f1 fhisform text1 value=f2 fhisform text1 value=f3 fhisform text1 value=f4 fhisform text1 value=f5 fhisform text1 value=f6 IF flag=1 or flag=4 thisform caption=“ 添加課程 ” ELSE IF FLAG=2 Thisform caption=“ 修改課程 ” ELSE thisform caption=“ 刪除課程 ” thisform text2 Readonly=T thisform bo1 Readonly=T thisform bo2 readonly=T ENDIF ENDIF ENDPROC PROCEDURE mand1 click SEUECT course IF flag=1 “添加操作” APPEND BLANK REPLACE 專業(yè) WITH f1 課程是 WITH thisform text2 text1 河北大學(xué)畢業(yè)論文 33 課程 WITH thisform text3 text, 性質(zhì) WITH this mbl1 value。 開課學(xué)期 WITH thisform mbo2 value , 學(xué)分 WITH thisform text4 value. EISE IF flay=2 REPLAEE 課程是 ?? EISF IF flay=3 amp。amp。刪除 DELECT ELSE amp。amp。前插 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 (班號 ) 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 班號 =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é)號 WITH“ ” ，姓名 WITH“” ，性別 WITH“ 男 ” REPLACE 出生日期 WITH{,},民族 WITH“ 漢族 ” REPLACE 專業(yè) WITH F1，班費 WITH F2，備注 WITH“” APPEND GENERAL 照片 FROM ELSE =“ 修改學(xué)生記錄 ” REPLAE 學(xué)號 WITH ，姓名 WITH STUDENT 姓名 REPLAE 性別 WITH ，出生日期 WITH STUDENT 出生日期 REPLAE 民族 WITH ，專業(yè) WITH STUDENT 專業(yè) REPLAE 班號 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 PROCEDUR