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

　　

【正文】 C PROCEDURE mand3 click SELECT classn F1=專業(yè) f2=班號(hào) f3=入校年份 flag=3 Do form setclass1 ENDPROC PROCEDURE cmdclass click Thisform mmond1 Enabled=F Thisform label4 caption=ALLTRJM(tish form 附 1 palve +“ 專業(yè)的班號(hào) ” 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 表單事件過(guò)程如下： PROCEDURE Init Thisform text1 Dalve=f1 Thisform text3 Dalve=f2 Thisform text3 dalve=f3 IF flag=1 Thisform caption=“ 添加班號(hào) ” 河北大學(xué)畢業(yè)論文 29 EFSE IF flag=2 Thisform capfion=“ 修改班號(hào) ” ELSE Thisform caption=“ 刪除班號(hào) ” 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,班號(hào) WITH thisform text2 text 入校年份 WITH thisform text3 Dalve ELSE FI flag=2 REPLACE 班號(hào) WITH thisform text2 foxt。 入校年份 with thisform fext3 Dalve ELSE DELEFE ENBIF ENDIF Thisform Releafe ENDPROC PROCEDURE mand2 click Thisform Release ENDPROC setcourse 表單事件過(guò)程如下： PROCEDURE Activate Thisform Refresh Thisform goid1 setfocus 河北大學(xué)畢業(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=學(xué)分 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=課程號(hào) f3=課程 f4=性質(zhì) f5=開(kāi)課學(xué)期 F6=學(xué)分 flag=3 DO RORM setcourse1 河北大學(xué)畢業(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 河北大學(xué)畢業(yè)論文 32 setcourse1 表單事件過(guò)程： 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, 性質(zhì) WITH this mbl1 value。 開(kāi)課學(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。前插 河北大學(xué)畢業(yè)論文 33 INSERT BEFORE BLANK DEPLACE 專業(yè) WITH?? ENDIF ENDIF ENDIF thisform Release ENBPROC PQOCEDURE mande click thisform Release ENDPROC Setstudent 表單事件過(guò)程 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 (班號(hào) ) CONTINUE ENDDO ENDPROC PROCEDURF cist2 click thisform mand1 Enabled=T 河北大學(xué)畢業(yè)論文 34 ENDPROC PROCEDLRE mand2 click thisform Release CLDSE DATABASFS all ENDPROC Setstudent1 表單事件過(guò)程： 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 PROCEDURE mand3 click thisform Release RELEASE flay Close DATABASIS ALL ENDPROC Setstudent2 表單事件過(guò)程： PROCEDUBE Init SELECT student1 河北大學(xué)畢業(yè)論文 35 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 qustudent 表單事件過(guò)程 PROCEDURE Init SELECT student IF RECCIUNT()=0 =.F. ENDIF ENDPROC 河北大學(xué)畢業(yè)論文 36 PROCEDURE Actiuate ENDPROC PROCEDURE DO FORM find E