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

　　

【正文】 C PROCEDURE mand3 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 ENDPROC setclass1 表單事件過程如下： PROCEDURE Init Thisform text1 Dalve=f1 Thisform text3 Dalve=f2 Thisform text3 dalve=f3 IF flag=1 Thisform caption=“ 添加班號 ” 河北大學畢業(yè)論文 29 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 ENDPROC PROCEDURE mand2 click Thisform Release ENDPROC setcourse 表單事件過程如下： PROCEDURE Activate Thisform Refresh Thisform goid1 setfocus 河北大學畢業(yè)論文 30 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=學分 flag=2 DO RORM setcourse1 ENDPROC PROCEDURE mand5 click SELEET COURSE PACK Thisform Release RFLEASE f1, f2, f3, f4, f5, f6, flag Close DATABASES ALL ENDPROC PROCEDUDE mand4 click SELEET course F1=專業(yè) f2=課程號 f3=課程 f4=性質 f5=開課學期 F6=學分 flag=3 DO RORM setcourse1 河北大學畢業(yè)論文 31 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 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 河北大學畢業(yè)論文 32 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 課程 WITH thisform text3 text, 性質 WITH this mbl1 value。 開課學期 WITH thisform mbo2 value , 學分 WITH thisform text4 value. EISE IF flay=2 REPLAEE 課程是 ?? EISF IF flay=3 amp。amp。刪除 DELECT ELSE amp。amp。前插 河北大學畢業(yè)論文 33 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 thisform listz clear DO lehtkle NOT EDFC, thisform list2 Add1tom (班號 ) CONTINUE ENDDO ENDPROC PROCEDURF cist2 click thisform mand1 Enabled=T 河北大學畢業(yè)論文 34 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 PROCEDURE mand3 click thisform Release RELEASE flay Close DATABASIS ALL ENDPROC Setstudent2 表單事件過程： PROCEDUBE Init SELECT student1 河北大學畢業(yè)論文 35 IF flay=1 =“ 添加學生記錄 ” REPLACE 學號 WITH“” ，姓名 WITH“” ，性別 WITH“ 男 ” REPLACE 出生日期 WITH{,},民族 WITH“ 漢族 ” REPLACE 專業(yè) WITH F1，班費 WITH F2，備注 WITH“” APPEND GENERAL 照片 FROM ELSE =“ 修改學生記錄 ” REPLAE 學號 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 qustudent 表單事件過程 PROCEDURE Init SELECT student IF RECCIUNT()=0 =.F. ENDIF ENDPROC 河北大學畢業(yè)論文 36 PROCEDURE Actiuate ENDPROC PROCEDURE DO FORM find E