【文章內(nèi)容簡(jiǎn)介】 ”命令按鈕控件 mand4 的“ click”事件中添加代碼如下： SELECT classn RELEASE f1,f2,f3,flag amp。amp。釋放定義的全局變量 CLOSE DATABASES all 在“確定”命令按鈕控件 cmdclass 的“ click”事件中添加代碼如下： =.T. =ALLTRIM()+專(zhuān)業(yè)的班號(hào) SELECT classn SET FILTER TO ALLTRIM(zy)==ALLTRIM() AND NOT DELETED() GO TOP 在表格中的兩個(gè)“ text1”文本框控件的“ click”事件中均添加代碼如下： =.T. =.T. 本表單添加了一個(gè)列表框控件 list1，其屬性里 RowSourse 應(yīng)設(shè)置為 prof。另外還添加了一個(gè)表格控件 grid1，其屬性里 RecordSourse 應(yīng)設(shè)置為 classn，并且列 column1 的屬性里ControlSourse 應(yīng)設(shè)置為 ， column2 的屬性里 ControlSourse 應(yīng)設(shè)置為 。 添 加或修改某專(zhuān)業(yè)所包含的班號(hào)的表單（ ） 該 表 單的數(shù)據(jù)環(huán)境為空。為 setclass 表單所調(diào)用。 圖 4. 6 控 件 和事件： 添 加 “ form1”的“ Init”事件的代碼如下： =f1 =f2 =f3 IF flag=1 =添加班號(hào) ELSE IF flag=2 =修改班號(hào) ELSE =刪除班號(hào) =.T. =.T. ENDIF ENDIF 在“確定”命令按鈕控件 mand1 的“ click”事件中添加代碼如下： SELECT classn IF flag=1 amp。amp。添 加操作 AP P END BLANK REPLACE zy WITH f1,bh WITH . text, rxnf WITH ELSE IF flag=2 amp。amp。修改操作 REPLACE bh WITH thisform. text2. text, rxnf WITH ELSE amp。amp。刪 除操作 DELETE ENDIF ENDIF 在“取消”命令按鈕控件 mand2 的“ click”事件中添加代碼如下： 設(shè) 置課程的表單（ ） 該 表 單 的數(shù)據(jù)環(huán)境為 prof 表和 course 表。 圖 4. 7 控 件 和事件： 添 加 “ form1”的“ Activate” 事件的代碼如下： 添 加 “ form1”的“ Refresh”事件的代碼如下： =.F. =.F. =.F. 添 加 “ form1”的“ Init”事件的代碼如下： P UBLIC f1, f2,f3,f4,f5,f6,flag =.F. =.F. SELECT course SET FILTER T O . F. 在列表框控件“ list1”的“ click”事件中添加代碼如下： =.T. 在“添加”命令按鈕控件 mand1 的“ click”事件中添加代碼如下： f1= f2= f3= f4= f5= f6=0 flag=1 amp。amp。添 加操作 DO FORM setcourse1 在“前插”命令按鈕控件 mand2 的“ click”事件中添加代碼如下： f1= f2= f3= f4= f5= f6=0 flag=4 amp。amp。前 插操作 DO FORM setcourse1 在“修改”命令按鈕控件 mand3 的“ click”事件中添加代碼如下： SELECT course f1=zy f2=kch f3=kc f4=xz f5=kkxq f6=xf flag=2 amp。amp。修 改操作 DO FORM setcourse1 在“刪除”命令按鈕控件 mand4 的“ click”事件中添加代碼如下： SELECT course f1=zy f2=kch f3=kc f4=xz f5=kkxq f6=xf flag=3 amp。amp。刪 除操作 DO FORM setcourse1 在“退出”命令按鈕控件 mand5 的“ click”事件中添加代碼如下： SELECT course RELEASE f1, f2,f3,f4,f5,f6,flag amp。amp。釋放定義的全局變量 CLOSE DATABASES all 在“確定”命令按鈕控件 cmdclass 的“ click”事件中添加代碼如下： =.T. n=ALLTRIM()+專(zhuān)業(yè)的課程 SELECT course SET FILTER TO ALLTRIM(zy)==ALLTRIM(thisform. list1. Value) AND NOT DELETED() GO T OP 在表格中的兩個(gè)“ text1”文本框控件的“ click”事件中均添加代碼如下： =.T. =.T. =.T. 本表單添加了一個(gè)列表框控件 list1，其屬性里 RowSourse 應(yīng)設(shè)置為 prof。另外還添加了一個(gè)表格控件 grid1，其屬性里 RecordSourse 應(yīng)設(shè)置為 course，并且列 column1 的屬性里ControlSourse 應(yīng)設(shè)置為 ， column2 的屬性里 ControlSourse 應(yīng)設(shè)置為 ，column3 的屬性里 ControlSourse 應(yīng)設(shè)置為 ， column4 的屬性里 ControlSourse 應(yīng)設(shè)置為 ， column5 的屬性里 ControlSourse 應(yīng)設(shè)置為 。 添 加或修改某專(zhuān)業(yè)開(kāi)設(shè)的課程的表單（ ） 該表單數(shù)據(jù)環(huán)境為空。為 setcourse 表單所調(diào)用。 圖 控 件 和事件： 添 加 “ form1”的“ Init”事件的代碼如下： =f1 =f2 =f3 =f4 =f5 =f6 IF flag=1 OR flag=4 =添加課程 ELSE IF flag=2 =修改課程 ELSE =刪除課程 =.T. . ReadOnly=.T. . ReadOnly=.T. ENDIF ENDIF 在“確定”命令按鈕控件 mand1 的“ click”事件中添加代碼如下： SELECT course IF flag=1 amp。amp。添 加操作 AP P END BLANK REPLACE zy WITH f1,kch WITH . text,kc WITH , 。 xz WITH . Value, kkxq WITH thisform. , xf WIT H ELSE IF flag=2 amp。amp。修改操作 REPLACE kch WITH thisform. ,kc WITH thisform. text3. text, 。 xz WITH . Value, kkxq WITH ,xf WITH ELSE IF flag=3 amp。amp。刪 除操作 DELETE ELSE amp。amp。前插操作 INSERT BEFORE BLANK REPLACE zy WITH f1, kch WITH . text,kc WITH , 。 xz WITH . Value, kkxq WITH ,xf WITH ENDIF ENDIF ENDIF 在“取消”命令按鈕控件 mand2 的“ click”事件中添加代碼如下： 學(xué) 生信息錄入的表單（ ） 圖 控件和事件： 添 加 “ form1”的“ Init”事件的代碼如下： PUBLIC flag =TRIM(f1)+:+TRIM(f2) SELECT student SET FILTER TO zy=TRIM(f1) AND bh=TRIM(f2) GO top 添 加 “ form1”的“ Activate” 事件的代碼如下： 在“添加”命令按鈕控件 mand1 的“ click”事件中添加代碼如下： flag=1 DO FORM setstudent2 在“修改”命令按鈕控件 mand2 的“ click”事件中添加代碼如下： flag=2 DO FORM setstudent2 在“返回”命令按鈕控件 mand3 的“ click”事件中添加代碼如下： RELEASE flag CLOSE DATABASES all 本表單添加了一個(gè)表格控件 grid1，其中列 column1 的屬性里 ControlSourse 應(yīng)設(shè)置為， column2 的屬性里 ControlSourse 應(yīng)設(shè)置為 ， column3 的屬性里ControlSourse 應(yīng)設(shè)置為 ， column4 的屬性里 ControlSourse 應(yīng)設(shè)置為 ，column5 的屬性里 ControlSourse 應(yīng)設(shè)置為 ， column6 的屬性里 ControlSourse 應(yīng)設(shè)置為 。 查 找學(xué)生記錄表單（ ） 圖 控件和事件： 添 加 “ form1”的“ Init”事件的代碼如下： SELECT student IF RECCOUNT( )=0 =.F. ENDIF 添 加 “ form1”的“ Activate” 事件的代碼如下： 在“條件查找”命令按鈕控件 mand1 的“ click”事件中添加代碼如下： DO FORM find 在“返回”命令按鈕控件 mand2 的“ click”事件中添加代碼如下： CLOSE DATABASES all 本表單添加了一個(gè)表格控件 grid1，其中列 column1 的屬性里 ControlSourse 應(yīng)設(shè)置為， column2 的屬性里 ControlSourse 應(yīng)設(shè)置為 ， column3 的屬性里ControlSourse 應(yīng)設(shè)置為 ， column4 的屬性里 ControlSourse 應(yīng)設(shè)置為 ，column5 的屬性里 ControlSourse 應(yīng)設(shè)置為 ， column6 的屬性里 ControlSourse 應(yīng)設(shè)置為 ， column7 的屬性里 ControlSourse 應(yīng)設(shè)置為 ， column8 的屬性里ControlSourse 應(yīng)設(shè)置為 。 1 添 加或修改某班指定課程的學(xué)生成績(jī)表單（ ） 圖 控件與事件： 添 加 “ form1”的“ Init”事件的代碼如下： =TRIM(f1)+:+TRIM(f2)+班 =第 +STR(term,1)+學(xué)期課程表 SELECT course LOCATE FOR zy=TRIM(f1) AND kkxq=STR(term,1) DO WHILE !EOF() (kc) CONTINUE ENDDO SELECT score SET FILTER TO .F. = =.F. 在列表框控件“ list1”的“ click”事件中添加代碼如下： =.T. 在“確定”命令按鈕控件 mand1 的“ click”事件中添加代碼如下： =alltrim() SELECT score SET FILTER TO bh=f2 AND zy=f1 AND kc= COUNT TO rs IF rs=0 amp。amp。score 表中不存在該班號(hào)該課程的成績(jī) USE student IN 0 SELECT student SET FILTER TO zy=TRIM(f1) AND bh=TRIM(f2) GO TOP DO WHILE !EOF() SELECT score APPEND BLANK REPLACE xh WITH ,xm WITH ,zy WITH f1,bh WITH f2,kc WITH SELECT student SKIP ENDDO USE IN student ENDIF SELECT score GO top 在“返回”命令按鈕控