【正文】 OCEDURE tex41 clickThisform mand2 Enabled=TThisform mand3 Enabled=TThisform mand4 Enabled=TENDPROCPROCEDURE text1 clickThisform mand2 Enabled=TThisform mand3 Enabled=TThisform mand4 Enabled=TENDPROCPROCEDURE 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=4DO form setcoure1ENDPROCsetcourse1 表單事件過程：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=f6IF flag=1 or flag=4thisform caption=“添加課程”ELSE IF FLAG=2 Thisform caption=“修改課程”ELSE thisform caption=“刪除課程” thisform text2 Readonly=T thisform bo1 Readonly=T thisform bo2 readonly=TENDIFENDIFENDPROCPROCEDURE mand1 clickSEUECT courseIF flag=1 “添加操作”APPEND BLANKREPLACE 專業(yè) WITH f1 課程是WITH thisform text2 text1課程WITH thisform text3 text, 性質(zhì)WITH this mbl1 value。開課學(xué)期WITH thisform mbo2 value , 學(xué)分WITH thisform text4 value.EISE IF flay=2REPLAEE 課程是……EISFIF flay=3 amp。amp。刪除DELECTELSE amp。amp。前插INSERT BEFORE BLANKDEPLACE 專業(yè) WITH……ENDIFENDIFENDIF thisform ReleaseENBPROCPQOCEDURE mande click thisform ReleaseENDPROC Setstudent 表單事件過程PRDCEDURE Init thisform mand1 Enabled=FENDPROCPQOCEDURE mand1 clickPublic f1,f2f1=thisform list1 valuef2=thisform list2 valueDO FORM setstudtnt1thisform ReleaseENDPROCPROCEDURE list1 click SELEET classn LDCATE FOK ALLTRIM專業(yè)=ALLTRTM（this value）AND NOT DEHFTEDCthisform listz clearDO lehtkle NOT EDFC, thisform list2 Add1tom (班號(hào))CONTINUEENDDOENDPROCPROCEDURF cist2 click thisform mand1 Enabled=TENDPROCPROCEDLRE mand2 clickthisform ReleaseCLDSE DATABASFS allENDPROCSetstudent1 表單事件過程：PROCEDURE InitPHBLIC flagthisform cabel1 capfion=TRIM(f1)+“:”+TRIM(f2)SELECT studentSET FILTER TO 專業(yè)=TRIM（f1） AND 班號(hào)=TRIM（f2）GO TOPthisform RefreshENDPROCPROCEDURE Activate thisform RefreshENPROCPROCEDURE mand1 click Flag=1 DO FORM setstudent2ENDPROCPROCEDURE mand2 click flag=2DO FORM setstudent2ENDPROCPROCEDURE mand3 clickthisform ReleaseRELEASE flayClose DATABASIS ALLENDPROCSetstudent2 表單事件過程：PROCEDUBE InitSELECT student1IF flay=1=“添加學(xué)生記錄”REPLACE 學(xué)號(hào)WITH“”，姓名WITH“”，性別WITH“男”REPLACE 出生日期WITH{,},民族WITH“漢族”REPLACE 專業(yè)WITH F1，班費(fèi)WITH F2，備注WITH“”APPEND GENERAL 照片F(xiàn)ROM 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 ENDIFENDPROCPROCEDURE ENDPROCPROCEDURE img=GETFILE IF FILE(img) APPEND GENERAL 照片F(xiàn)ROM（img） ENDPROC qustudent 表單事件過程PROCEDURE Init SELECT student IF RECCIUNT()=0=.F.ENDIFENDPROCPROCEDURE Actiuate ENDPROCPROCEDURE DO FORM findENDPROCPROCEDURE CLOSE DATABASES allENDPROCsetscore表單事件過程PROCEDURE Init PUBLIC term amp。amp。存所選班的輸入成績(jī)的學(xué)期 =.F.ENDPROCPROCEDURE PUBLIC f1,f2 Term=f1=AllTRIM()f2=ALLTRIM()DO FORM setscorelENDPROCPROCEDURE SELECT classnLOCATE FOR ALLTRIM(專業(yè))= =ALLTRIM()AND NOT DELETED()DO wrile NOT EOF() (班號(hào)) CONTINUEENDDOENDPROCPROCEDURE =.T.SELEOT classnLOCATE FOR 專業(yè)=ALLTRIM()AND班號(hào)=ALLTRIM()IF MONTH(rq)=2 AND MONTH(rq)=8 term=(YEAR(rq)入校年份)*2ELSE term=(YEAR(rq)入校年份)*2+1ENDIF =termENDPROCPROCEDURE RELEASE termCLOSE DATABASES allENDPROCUsermain表單事件過程PROCEDURE Init PUBLIC f1,f2,f3,flagENDPROCPROCEDURE AcctivateENDPROCPROCEDURE F1=“”，f2=“”,f3=“”，flag=1Doform usermain1ENDPROCPROCEDURE F1=usename,f2=usepass,f3=useleve1,flag=2DO FORM usermain1ENDPROCPROCEURE SELEET UserPackRELEASE f1,f2,f3,flagCLOSE DATABASE allENDPROCusermain表單事件過程：PROCEDURE InitPUBLIC user1 user2=f1=f2=f3If flay=1=添加用戶ELSE=修改用戶END IFEND PROCPROCEDURE SELECT UserIF flay=1APPEND BLANKEND IFREPLACE Usename WITH REPLACE Usepass WITH REPLACE Uselevel WITH User1=User2=ENDRPOCPROCEDURE SELECT UserPACKThisform. ReleaseENDPROCX數(shù)據(jù)備份 選擇路徑：databack表單事件過程:PROCEDURE Text1Filer=GETDIR()=filer取消確定 ENDPROCPROCEDURE Filer=ALLTRIM()Ofpath=Thisform. ReleaseIF ! DIRECTORY(filer)IF MESSAGEBOXC不存在該目錄，需要建立嗎，4+32，“信息提示”=6MD(filer)ELSERETURNENDIFENDIFIF RIGHTriler1\\Filer=filer+\ENDIFUSE user IN O amp。amp。開始復(fù)制表Fn=filer+userCopy to c fn,Use IN userUse student IN oFn=filer+ studentCopy to c fn1Use IN student__Use score In oFn=firer+ scoreCopy to (fn)Use IN scoreUse pyof IN oFn=filer+$ RofCopy177。o (fn)HSE IN profUse class IN OFN=filer+classcopy177。0 (fn)Use IN classUse course=IN oFn=filer+ courseCopy to (fn)Use IN courseENDPROCPROCEDURE ENDPROC第八章 系統(tǒng)運(yùn)行及結(jié)果分析我使用微軟公司的 VISUAL FOXPRO開發(fā)工具,利用它提供的各種面向?qū)ο蟮拈_發(fā)工具,尤其是數(shù)據(jù)窗口能方便而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型,然后,對(duì)初始原型系統(tǒng)進(jìn)行需求迭代,不斷修正和改進(jìn),直到形成用戶滿意的可行性系統(tǒng)。運(yùn)行主程序，首先出現(xiàn)系統(tǒng)登錄界面，要求輸入用戶名和口令，在username表中現(xiàn)有system、YJITFK(系統(tǒng)管理員)、2四個(gè)用戶，其口令分別為mansge、YJITFK、2，有三次口令輸入的機(jī)會(huì)，用戶輸入正確進(jìn)入學(xué)生成績(jī)管理系統(tǒng)，否則將不能進(jìn)入本系統(tǒng)。如以系統(tǒng)管理員的身份進(jìn)入系統(tǒng)，便可使用系統(tǒng)提供的所有功能，如果僅以一般用戶的身份進(jìn)入系統(tǒng)，只能使用查詢功能。第九章 心得體會(huì)學(xué)生成績(jī)管理系統(tǒng)是一個(gè)像我們這樣一個(gè)職業(yè)技術(shù)學(xué)校必備的部分。系統(tǒng)能夠?yàn)橛脩魝兲峁┏渥愕男畔⒑涂旖莸牟樵兪侄巍Ｍㄟ^在我校試運(yùn)行使用我設(shè)計(jì)的這個(gè)系統(tǒng)，初步使我們學(xué)校改變了以前使用傳統(tǒng)人工管理文件和學(xué)生成績(jī)的方式，提高了管理效率。通過近一段時(shí)間的實(shí)踐證明，以前自己的理論水平在相當(dāng)長(zhǎng)的一段時(shí)間內(nèi)保持著局限性和狹義性，通過自己設(shè)計(jì)《學(xué)生成績(jī)管理系統(tǒng)客戶端》及閱讀大量此方面的書后，擴(kuò)大了知識(shí)面，開闊了視野，使自己逐步從局限性中走出，面向?qū)ο蟮某绦蛘Z(yǔ)言的設(shè)計(jì)思路及部分功能都是完全相同的，無(wú)論學(xué)習(xí)何種計(jì)算機(jī)語(yǔ)言，要抓住一種語(yǔ)言學(xué)透、學(xué)精，不能三心二用，而且在掌握一門語(yǔ)言的基礎(chǔ)上，要學(xué)會(huì)舉一反三，要敢于嘗試、要大膽創(chuàng)意，充分運(yùn)用各種語(yǔ)言自身所帶的強(qiáng)大功能，其次，就是多讀一些標(biāo)準(zhǔn)程序員開發(fā)的源代碼，從中汲取精華，但不可效仿，要有自己的風(fēng)格，只是汲取些“神”，逐步思路便開拓。同時(shí)，開發(fā)程序，更要努力做到結(jié)構(gòu)簡(jiǎn)單，代碼清晰，一目了然，要做到三個(gè)“多”即：多