初一成績管理系統(tǒng)

1、學(xué)習(xí)必備歡迎下載主窗口：ope n( w_circle)ope n( w_pass)if flag=false the nm_1.m_成績維護(hù).visible=falseelsem_1.m_成績維護(hù).visible=trueend ifdw_1.settra nsobject(sqlca)int i,jfor i=1 to dw_1.rowcou nt()j=dw_1.getite mnu mber(i,ch in ese)+dw_1.getite mnu mber(i,math)+dw_1.getite mnu mber(i,e nglish) dw_1.setitem(i,total,j)

2、n extdw_1.retrieve()dw_1.setfilter()dw_1.filter()dw_1.setsort(class a,id a)dw_1.sort()long rowrow=dw_1.i nsertrow(O)dw_1.setrow(row)dw_1.scrolltorow(row)dw_1.setfocus()long rowrow=dw_1.i nsertrow(dw_1.getrow()dw_1.setrow(row)dw_1.scrolltorow(row)dw_1.setfocus()dw_1.deleterow(0)dw_1.update()commit;dw

3、_1.settra nsobject(sqlca)dw_1.retrieve()驗證口令窗口if sle_1.text= the nmessagebox(提示,缺少用戶名)sle_1.setfocus()elseif sle_2.text the na=trim(sle_1.text)b=trim(sle_2.text)select usertab.user name n, usertab.userpasspinto :is_ name,:is_passfrom usertabwhere trim(usernamen)=trim(:a) and trim(userpassp)=trim(:b)

4、using sqlca;if trim(is_name)=trim(a) and trim(is_pass)=trim(b) thenflag=trueelseflag=falseend ifclose(pare nt)elsemessagebox(提示,缺少口令)sle_2.setfocus()end ifend if成績維護(hù)窗口的 open,close中dw_1.settra nsobject(sqlca)int i,jfor i=1 to dw_1.rowcou nt()j=dw_1.getite mnu mber(i,ch in ese)+dw_1.getite mnu mber(i,

5、math)+dw_1.getite mnu mber(i,e nglish) dw_1.setrow(i)dw_1.setitem(i,total,j)n extdw_1.retrieve()dw_1.setfilter()dw_1.filter()dw_1.setsort(class a,id a)dw_1.sort()分班窗口int i,j,m=1, n1,t,t1,maxstri ng cstrw_mai n.dw_1.retrieve()w_mai n.dw_1.setfilter()w_ma in .dw_1.filter()w_ma in. dw_1.setsort(total d

6、,id a)w_ma in .dw_1.sort()if this.text= the nmessagebox(提示,請輸入班級個數(shù)”)this.setfocus()elsen仁in teger(this.text)end iffor i=1 to w_mai n.dw_1.rowcou nt()if m=0 the n m=1 else m=0for j=1 to n1if i+j - 1w_main.dw_1.rowcount() thenexitelsew_mai n.dw_1.setrow(i+j)end ifif m=0 the nw_main.dw_1.setitem(i+j -

7、1,class,j)elsew_ma in. dw_1.setitem(i+j - 1,class, n1+1 - j) end if n exti=i+n1 - 1n extfor i=1 to w_mai n.dw_1.rowcou nt()m=w_mai n.dw_1.getite mnu mber(i,class)if maxm the n max=mn extfor i=1 to maxcstr=class=+stri ng(i)w_mai n.dw_1.setfilter(cstr)w_mai n.dw_1.filter()w_ma in. dw_1.setsort(total d

8、,id a)w_ma in .dw_1.sort()t= -1t1=0for j=1 to w_mai n.dw_1.rowcou nt()if t=w_main.dw_1.getitemnumber(j,total) then t1=t1+1w_main.dw_1.setitem(j,classid,j - t1)elset1=0w_mai n.dw_1.setitem(j,classid,j)end ift=w_mai n.dw_1.getite mnu mber(j,total)n extn extw_mai n.dw_1.update()w_mai n.dw_1.setfilter()

9、w_ma in .dw_1.filter()w_ma in. dw_1.setsort(total d,id a)w_ma in .dw_1.sort()close(pare nt)人數(shù)窗口int ilong rowif this.text= then messagebox(提示,請輸入年級人數(shù))this.setfocus()for i=1 to in teger(this.text)row=w_mai n.dw_1.i nsertrow(O)w_mai n.dw_1.setrow(row)w_mai n.dw_1.setcolu mn (id)為什么不行?w_main.dw_1.settex

10、t(string(i,0000) & w_main.dw_1.setitem(row,id, tr=string(i,0000)w_mai n.dw_1.setitem(row,chi nese,0)w_mai n.dw_1.setitem(row,math,0)w_mai n.dw_1.setitem(row,e nglish,0)n extw_mai n.dw_1.update()this.e nabled=falseclose(pare nt)匯總窗口dw_1.settra nsobject(sqlca)dw_1.retrieve()成績查詢窗口的 open中dw_1.settra ns

11、object(sqlca)dw_1.retrieve()dw_1.setfilter()dw_1.filter()dw_1.setsort(schoolid a,id a)dw_1.sort()dw_1.retrieve()dw_1.setfilter(class=1)dw_1.filter()dw_1.setsort(total d,id a)dw_1.sort()dw_1.retrieve()dw_1.setfilter()dw_1.filter()dw_1.setsort(schoolid a,id a)dw_1.sort()int i,m=O,max=O,pstri ng rstrdw

12、_1.retrieve()dw_1.setfilter(”)dw_1.filter()for i=1 to dw_1.rowcou nt()m=dw_1.getite mnu mber(i,class)if max0 and integer(sle_1.text)max+1 thenp=i nteger(sle_1.text)if pmax the ndw_1.retrieve()dw_1.setfilter()dw_1.filter()elserstr=class=+sle_1.textdw_1.setfilter(rstr)dw_1.filter()dw_1.setsort(total d

13、,id a)dw_1.sort()end ifelsemessagebox(提示,沒有這個班級，請重輸)sle_1.setfocus()end if應(yīng)用中(open)sqlca.dbms=odbcsqlca.autocommit=falsesqlca.dbparm=c onn ectstri ng=ds n=cycj;uid=dba;pwd=sqlconn ect;ope n( w_ma ino)close 中disc onnect using sqlca;全局變量：boolea n flag=falseint n=1按總分重分班(一)int i,jfor i=1 to w_mai n.dw_

14、1.rowcou nt()j=w_mai n.dw_1.getite mnu mber(i,chi nese)+w_mai n.dw_1.getite mnu mber(i,math)+w_mai n.dw_1.getite mnu mber(i, en glish)w_ma in .dw_1.setrow(i)w_mai n.dw_1.setitem(i,total,j)n extw_ma in. dw_1.setsort(total d,id a)w_ma in .dw_1.sort()long rowfor i=1 to w_mai n.dw_1.rowcou nt()w_mai n.d

15、w_1.setrow(i)w_mai n.dw_1.setitem(i,schoolid,i)n extw_mai n.dw_1.update()w_mai n.dw_1.retrieve()w_mai n.dw_1.setfilter()w_ma in .dw_1.filter()w_ma in. dw_1.setsort(total d,id a)w_ma in .dw_1.sort()ope n(w_fb)(二)long i,j,t,t1,m,maxstri ng cstrfor i=1 to w_mai n.dw_1.rowcou nt()j=w_mai n.dw_1.getite m

16、nu mber(i,chi nese)+w_mai n.dw_1.getite mnu mber(i,math)+w_mai n.dw_1.getite mnu mber(i, en glish)w_mai n.dw_1.setitem(i,total,j)n extw_ma in. dw_1.setsort(total d,id a)w_ma in .dw_1.sort()t= -1t1=0for i=1 to w_mai n.dw_1.rowcou nt()if t=w_main.dw_1.getitemnumber(i,total) thent1= t1+1w_ma in. dw_1.s

17、etitem(i,schoolid,i - t1)elset1=0w_mai n.dw_1.setitem(i,schoolid,i)end ift=w_mai n.dw_1.getite mnu mber(i,total)n extw_mai n.dw_1.update()w_mai n.dw_1.retrieve()w_mai n.dw_1.setfilter()w_ma in .dw_1.filter()w_ma in. dw_1.setsort(class a,total d,id a)w_ma in .dw_1.sort()ope n(w_fb)按總分重排學(xué)號(1)int nn=me

18、ssagebox(提示,是否真要重排學(xué)號嗎？”,question!,yesnocancel!,3)if n=1 the nint j,ilong rowstri ng strw_mai n.dw_1.retrieve()w_ma in .dw_1.setfilter(class=1)w_ma in .dw_1.filter()w_ma in. dw_1.setsort(total d,id a)w_ma in .dw_1.sort()for i=1 to w_mai n.dw_1.rowcou nt()w_mai n.dw_1.setrow(i)str=stri ng(1)+stri ng(i

19、,00)w_mai n.dw_1.setcolu mn (3)w_mai n.dw_1.settext(str)n extw_mai n.dw_1.setfilter(class=2)w_ma in .dw_1.filter()w_ma in. dw_1.setsort(total d,id a)w_ma in .dw_1.sort()for i=1 to w_mai n.dw_1.rowcou nt()w_mai n.dw_1.setrow(i)str=stri ng(2)+stri ng(i,00)w_mai n.dw_1.setcolu mn (3)w_mai n.dw_1.settex

20、t(str)n extw_ma in .dw_1.setfilter(class=3)w_ma in .dw_1.filter()w_ma in. dw_1.setsort(total d,id a)w_ma in .dw_1.sort()for i=1 to w_mai n.dw_1.rowcou nt()w_mai n.dw_1.setrow(i)str=stri ng(3)+stri ng(i,00)w_mai n.dw_1.setcolu mn (3)w_mai n.dw_1.settext(str)n extw_mai n.dw_1.setfilter(class=4)w_ma in

21、 .dw_1.filter()w_ma in. dw_1.setsort(total d,id a)w_ma in .dw_1.sort()for i=1 to w_mai n.dw_1.rowcou nt()w_mai n.dw_1.setrow(i)str=stri ng(4)+stri ng(i,OO)w_mai n.dw_1.setcolu mn (3)w_mai n.dw_1.settext(str)n extw_mai n.dw_1.update()elsereturnend ifw_mai n.dw_1.retrieve()w_mai n.dw_1.setfilter()w_ma

22、 in .dw_1.filter()w_mai n.dw_1.setsort(id a)w_ma in .dw_1.sort()(2)long n 1,i,j,m,max,rowstring cstr,strn1=messagebox(提示,是否真要重排學(xué)號嗎？”,questio n!,yes nocan cel!,3)if n1=1 thenw_mai n.dw_1.retrieve()w_mai n.dw_1.setfilter()w_ma in .dw_1.filter()for i=1 to w_mai n.dw_1.rowcou nt()m=w_mai n.dw_1.getite m

23、nu mber(i,class)if maxm the n max=mn extfor i=1 to maxcstr=class=+stri ng(i)w_mai n.dw_1.setfilter(cstr)w_mai n.dw_1.filter()w_ma in. dw_1.setsort(total d,id a)w_ma in .dw_1.sort()for j=1 to w_mai n.dw_1.rowcou nt()/w_mai n.dw_1.setitem(j,id,stri ng(i)+stri ng(j,00)w_mai n.dw_1.setrow(j)str=stri ng(

24、i)+stri ng(j,OO)w_mai n.dw_1.setcolu mn (3)w_mai n.dw_1.settext(str)n extn extw_mai n.dw_1.update()elsereturn end if w_mai n.dw_1.update()w_mai n.dw_1.retrieve()w_mai n.dw_1.setfilter()w_ma in .dw_1.filter()w_mai n.dw_1.setsort(id a)w_ma in .dw_1.sort()按總分排名(一、不重復(fù)排名)w_ma in. dw_1.settra nsobject(sql

25、ca)int i,jfor i=1 to w_mai n.dw_1.rowcou nt()j=w_mai n.dw_1.getite mnu mber(i,chi nese)+w_mai n.dw_1.getite mnu mber(i,math)+w_mai n.dw_1.getite mnu mber(i, en glish)w_ma in .dw_1.setrow(i)w_mai n.dw_1.setitem(i,total,j)n extw_mai n.dw_1.update()w_mai n.dw_1.retrieve()w_mai n.dw_1.setfilter()w_ma in

26、 .dw_1.filter()w_ma in. dw_1.setsort(total d,id a)w_ma in .dw_1.sort()long rowfor i=1 to w_mai n.dw_1.rowco un t()+1w_mai n.dw_1.setrow(i)w_mai n.dw_1.setitem(i,schoolid,i)n extw_mai n.dw_1.update()w_mai n.dw_1.retrieve()w_ma in .dw_1.setfilter(class=1)w_ma in .dw_1.filter()w_ma in. dw_1.setsort(tot

27、al d,id a)w_ma in .dw_1.sort()for i=1 to w_mai n.dw_1.rowcou nt()w_mai n.dw_1.setrow(i)w_mai n.dw_1.setitem(i,classid,i)n extw_mai n.dw_1.setfilter(class=2)w_ma in .dw_1.filter()w_ma in. dw_1.setsort(total d,id a)w_ma in .dw_1.sort()for i=1 to w_mai n.dw_1.rowcou nt()w_mai n.dw_1.setrow(i)w_mai n.dw

28、_1.setitem(i,classid,i)n extw_ma in .dw_1.setfilter(class=3)w_ma in .dw_1.filter()w_ma in. dw_1.setsort(total d,id a)w_ma in .dw_1.sort()for i=1 to w_mai n.dw_1.rowcou nt()w_mai n.dw_1.setrow(i)w_mai n.dw_1.setitem(i,classid,i)n extw_mai n.dw_1.setfilter(class=4)w_ma in .dw_1.filter()w_ma in. dw_1.s

29、etsort(total d,id a)w_ma in .dw_1.sort()for i=1 to w_mai n.dw_1.rowcou nt()w_mai n.dw_1.setrow(i)w_mai n.dw_1.setitem(i,classid,i)n extw_mai n.dw_1.update()w_mai n.dw_1.retrieve()w_mai n.dw_1.setfilter()w_ma in .dw_1.filter()w_ma in. dw_1.setsort(class a,total d,id a)w_ma in .dw_1.sort()int i,j,m,ma

30、xstri ng cstrfor i=1 to w_mai n.dw_1.rowcou nt()j=w_mai n.dw_1.getite mnu mber(i,chi nese)+w_mai n.dw_1.getite mnu mber(i,math)+w_mai n.dw_1.getite mnu mber(i, en glish)w_ma in .dw_1.setrow(i)w_mai n.dw_1.setitem(i,total,j)n extw_mai n.dw_1.update()w_mai n.dw_1.retrieve()w_mai n.dw_1.setfilter()w_ma

31、 in .dw_1.filter()w_ma in. dw_1.setsort(total d,id a)w_ma in .dw_1.sort()for i=1 to w_mai n.dw_1.rowcou nt()w_mai n.dw_1.setrow(i)w_mai n.dw_1.setitem(i,schoolid,i)n extw_mai n.dw_1.update()for i=1 to w_mai n.dw_1.rowcou nt()w_mai n.dw_1.setrow(i)w_mai n.dw_1.setcolu mn (class)m=i nteger(w_mai n.dw_

32、1.gettext()if maxm the n max=mn extfor i=1 to maxcstr=class=+stri ng(i)w_mai n.dw_1.setfilter(cstr)w_mai n.dw_1.filter()w_ma in. dw_1.setsort(total d,id a)w_ma in .dw_1.sort()for j=1 to w_mai n.dw_1.rowcou nt()w_mai n.dw_1.setrow(j)w_mai n.dw_1.setitem(j,classid,j)n extn extw_mai n.dw_1.update()w_ma

33、i n.dw_1.retrieve()w_mai n.dw_1.setfilter()w_ma in .dw_1.filter()w_ma in. dw_1.setsort(class a,total d,id a)w_ma in .dw_1.sort()(二、重復(fù)排名)int i,j,m,max,t,t1stri ng cstrw_mai n.dw_1.update()for i=1 to w_mai n.dw_1.rowcou nt()j=w_mai n.dw_1.getite mnu mber(i,chi nese)+w_mai n.dw_1.getite mnu mber(i,math

34、)+w_mai n.dw_1.getite mnu mber(i, en glish)w_mai n.dw_1.setitem(i,total,j)n extw_mai n.dw_1.update()w_mai n.dw_1.retrieve()w_mai n.dw_1.setfilter()w_ma in .dw_1.filter()w_ma in. dw_1.setsort(total d,id a)w_ma in .dw_1.sort()t= -1t1=0for i=1 to w_mai n.dw_1.rowcou nt()if t=w_main.dw_1.getitemnumber(i

35、,total) thent1= t1+1w_ma in. dw_1.setitem(i,schoolid,i - t1)elset1=0w_mai n.dw_1.setitem(i,schoolid,i)end ift=w_mai n.dw_1.getite mnu mber(i,total)n extfor i=1 to w_mai n.dw_1.rowcou nt()m=w_mai n.dw_1.getite mnu mber(i,class)if max0 the nmessagebox(提示,成績表中有數(shù)據(jù)rn不能新建成績表)elseope n(w_cyrs)end if退出：w_ma

36、i n.dw_1.update()close(w_ma in)驗證口令窗口(一)string is_name,is_pass(為什么有錯)declare usercursor cursor forselect user.user name,user.userpassfrom user;ope n usercursor;if sqlca.sqlcode=-1 the nmessagebox(提示,系統(tǒng)數(shù)據(jù)庫出錯請與開發(fā)人員聯(lián)系)elsedofetch usercursor into :is_ name,:is_pass;if trim(is_name)=trim(sle_1.text) and

37、trim(is_pass)=trim(sle_2.text) thenflag=trueloop while flag=falseif sqlca.sqlcode=-1 then messagebox(提示,系統(tǒng)數(shù)據(jù)庫出錯請與開發(fā)人員聯(lián)系)close usercursor;VFP程序清空成績表IF messagebox(真的要清空成績表嗎？,48+1,信息提示)=1use cycj in 0 select cycj zap close databases all else return en dif新建成績表use cycj in 0select cycjif recco un t()=0 t

38、he nif thisform.text1.text the nfor i=1 to val(thisform.text1.text)appe nd bla nkreplace 學(xué)號 with str(i,4)en dforthisform.releaseelseMESSAGEBOX(請輸入年級人數(shù),48,信息提示)thisform.text1.setfocusen difelseMESSAGEBOX(成績表中有數(shù)據(jù)，不能新建,48,信息提示)thisform.releaseen difclose databases all分班if thisform.text1.text= the n mes

39、sagebox(請輸入班級個數(shù)) thisform.text1.setfocusreturnelseuse cycj in 0m=0select cycjsca n while !eof()m=m+1endscanset order to 總分go topn1=val(alltrim(thisform.text1.text)f=1for i=0 to m step n1if f=0 thenf=1elsef=0en diffor j=1 to n1if i+jm the nexitelseif f=0 thenreplace 班級 with jelsereplace 班級 with n1+1-

40、jen difen difskipn extn extclose databases allen dif排名use cycj in 0select cycjpackselect cycjupdate cycj set總分=語文+數(shù)學(xué)+英語+物理+政治+化學(xué)+計算機 where .not.eof() set order to 總分go topn=1t=-1t1=0do while !eof() if t=總分 then t1=t1+1 replace 校名次 with n-t1 n=n +1 skip else t=總分 t1=0replace 校名次 with n n=n +1&必須構(gòu)造字符表

41、達(dá)式，否則會出錯skip en dif en ddo go top m=0 select cycj sca n while !eof() m=max(m,班級) endscan set order to 總分 for j=1 to m strf=班級=+str(j) set filter to & strf go top n=1 t=-1 t1=0do while !eof() if t=總分 then t1=t1+1 replace 班名次 with n-t1 n=n +1 skip else t=總分 t1=0replace 班名次 with n n=n +1skip en dif en

42、ddo en dforclose databases all名次select cycjupdate cycj set總分=語文+數(shù)學(xué)+英語+物理+政治+化學(xué)+計算機 where .not.eof() set order to 總分go topthisform.refreshn=1t=-1t1=0do while !eof()if t=總分 thent1=t1+1replace 校名次 with n-t1n=n +1skipelset=總分t1=0replace 校名次 with nn=n +1skipen difen ddogo topthisform.refreshthisform.grdc

43、ycj.setfocusm=0select cycjsca n while !eof()m=max(m,班級)endscanset order to 總分for j=1 to mstrf=班級=+str(j)&必須構(gòu)造字符表達(dá)式，否則會出錯set filter to & strfgo topthisform.refreshn=1t=-1t1=0do while !eof()if t=總分 thent1=t1+1replace 班名次 with n-t1n=n +1skipelset=總分t1=0replace 班名次 with nn=n +1skipen difen ddoen dforset

44、 filter togo topthisform.refresh學(xué)號use cycj in 0select cycjpackm=0s=0select cycjsca n while !eof()m=max(m,班級)s=s+1endscanset order to 總分go topif s/m=99 thenif -$ 學(xué)號 thenfor j=1 to mstrf=班級=+str(j)set filter to & strfgo topi=1do while !eof()if i10 thenreplace 學(xué)號 with str(j,2)+0+0+str(i,1) elsereplace

45、學(xué)號 with str(j,2)+0+str(i,2)en difi=i+1skipen ddoen dforelsefor j=1 to mstrf=班級=+str(j)set filter to & strfgo topi=1do while !eof()if i10 thenreplace 學(xué)號 with str(j,2)+-+0+str(i,1)elsereplace 學(xué)號 with str(j,2)+-+str(i,2)en difi=i+1skipen ddoen dforen difelsemessageboxC班級人數(shù)太多,48+1,信息提示)returnen difclose

46、 databases all select cycjset filter to 班級=val(alltrim(bo1.value) set order to 總分go topthisform.refreshuse user in 0select userpackuse in userdo form useruse cycj in 0select cycjpackuse in cycjuse teacher in 0select teacher pack use in teacher use user in 0 select user pack use in user q

47、uit if thisform.check1.value=1 the nselect cycjupdate cycj set總分=語文+數(shù)學(xué)+英語+物理+政治+化學(xué)+計算機 where .not.eof（）SELECT cycj.班級，AVG（Cycj.語文）,Teacher.語文,AVG（Cycj.數(shù)學(xué)）,；Teacher數(shù)學(xué)，AVG（Cycj.英語）,Teacher英語,AVG（Cycj.物理）,Teacher物理,;AVG（Cycj.政治）,Teacher政治，AVG（Cycj.化學(xué)）,Teacher.化學(xué),;AVG（Cycj.計算機）,Teacher計算機，AVG（Cycj.總分）,T

48、eacher班主任；FROM 數(shù)據(jù) 1!cycj FULL JOIN 數(shù)據(jù) 1!teacher ;ON Cycj.班級 =Teacher班級；GROUP BY Cycj.班級；ORDER BY cycj.班級;INTO TABLE datacycjhz1.dbf為什么路徑無效？select cycjhzappe nd from cycjhz1en difif thisform.text3.text thenselect cycjupdate cycj set總分=語文+數(shù)學(xué)+英語+物理+政治+化學(xué)+計算機 where .not.eof（） set order to 總分go topn=1t=-1t1=0do while !eof（）if t=總分 thent1=t1+1replace 校名次 with n-t1n=n +1skipelset=總分t1=0replace 校名次 with nn=n +1skipen difen ddom=0select cycjgo topsea n while !eof()m=max(m,班級)endseandeclare arr100arr=0select eyejfor j=1 to mcount for 班級=j and 校名次 =val(thisform.text3.text) to arrj en dfor