【文章內(nèi)容簡介】 9。 （ 2） init 事件的代碼： public tempcursor （四）錄入學生成績表單 設(shè)計 這個表單中主要由的 控件為： 5 個 label， 4 個 text， 2 個 mand，其中一個總的標簽，然后接下來的四個 label 和四個 text 相對應(yīng)用來輸入學生課程成績。這里有一個要值得注意的是，在學生成績表（ xscjb）中“成績”這個字段是數(shù)值型的數(shù)據(jù)， 在 text 控件的默認值的屬性是字符型，那么 在相對應(yīng)的 text 的生成器中應(yīng)該由字符型改為數(shù)值型。 “添加”按鈕的代碼 if =39。添加 39。 =.t. =.t. =.t. =.t. =39。保存 39。 else sele xscjb insert into xscjb (sno,xkcm,xcj,xno)。 values(alltrim(),alltrim(),。 ,alltrim()) =.f. =.f. =.f. =.f. =39。添加 39。 wait window 39。資料已保存！ 39。 timeout 1 endif 本系統(tǒng)中所有界面的“退出”按鈕和驗證表單中的代碼一樣。 （五）學生成績維護表單設(shè)計 此表單中 主要控件有： label， text， mand 三種，其中還是值得注意的是成績所對應(yīng)的 text 應(yīng)該改其數(shù)據(jù)類型為數(shù)值型。 “ ”按鈕 click 事件 的代碼 go top “ ”按鈕 click 事件 的代碼 if not eof() skip1 endif “ ”按鈕 click 事件 的代碼 if !bof() skip endif “ ”按鈕的代碼 go bottom “ 刪除 ”按鈕 click 事件 的代碼 delete “ 修改 ”按鈕 click 事件 的代碼 if =39。修改 39。 =.t. =.t. =.t. =.t. =.f. =.f. =.f. =.f. =39。保存 39。 else sele xscjb replace sno with alltrim() replace xno with alltrim() replace xkcm with alltrim() replace xcj with =.f. =.f. =.f. =.f. =.t. =.t. =.t. =.t. =39。修改 39。 wait window 39。資料已保存！ 39。 timeout 2 endif （六）學生成績統(tǒng)計分析表單設(shè)計 表單中主要控件有： label， text， mand， grid 四種，同樣的通過一些操作來將其屬性做相應(yīng)改變。同樣， grid 表格控件也需要在生成器內(nèi)生成與學生成績表中相對應(yīng)的字段。 “統(tǒng)計”按鈕的 click 事件代碼 numpass=0 numnopass=0 sharescore=0 select , from xscjb。 where =alltrim() order by 。 into cursor tempcursor =39。tempcursor39。 scan if xcj=60 numpass=numpass+1 else numnopass=numnopass+1 endif sharescore=sharescore+xcj endscan =numpass =numnopass =sharescore/(numpass+numnopass) =sharescore （七）學生課程成績統(tǒng)計分析表單設(shè)計 “統(tǒng)計”按鈕的 click 事件的代碼 jgrs=0 bjgrs=0 sharescore=0 select , from xscjb。 where =alltrim() order by 。 into cursor tempcursor =39。tempcursor39。 scan if xcj=60 jgrs=jgrs+1 else bjgrs=bjgrs+1 endif sharescore=sharescore+xcj endscan =jgrs =bjgrs =sharescore/(bjgrs+jgrs) （八） 學生信息 增加 表單設(shè)計 該表單應(yīng)該在生成器內(nèi)改變?nèi)雽W日期和出生日期所對應(yīng)的 text 的字段屬性值，由字符型變?yōu)槿掌谛?，使之與學生信息 表（ stu）中的字段屬性值一樣。 “添加”按鈕 click 事件的代碼 if =添加 =.t. =.t. =.t. =.t. =.t. =.t. =.t. =保存 else sele stu insert into stu(sno,sname,szybj,sxb,srxrq,scsrq,sbz)。 values (alltrim(),alltrim(),。 alltrim(),。 ,alltrim()) =.f. =.f. =.f. =.f. =.f. =.f. =.f. =添加 wait window 資料已保存！ timeout 1 endif （九）學生信息維護表單設(shè)計 該表單中的“刪除”和“退出”按鈕的代碼前面有相同的，這里不重復書寫。同樣也要改變文本框相對應(yīng)的字段屬性值。 “ ”按鈕 click 事件的代碼 go top = sno = sname = sxb = szybj = scsrq = srxrq = sbz “ ”按鈕 click 事件的代碼 if not eof() skip1 = sno = sname = szybj = sbz = scsrq = srxrq = sbz endif “ ”按鈕 click 事件的代碼 if !bof() skip = sno = sname = szybj = sbz = scsrq = srxrq = sbz endif “ ”按鈕 click 事件的代碼 go bottom = sno = sname = szybj = sbz = scsrq = srxrq = sb