【正文】 t bj_cj amp。) amp。事件結(jié)束 endif =.f. =.f. =.t. =.f. if used(39。事務(wù)回滾 select xh,kh from xs,kc into array aa where bj= and kh= if _tally0 insert into bj_cj from array aa else =messagebox(沒有該班級的學生信息 ！ ,0,錯誤 ) endif END TRANSACTION amp。事件開始 ON ERROR rollback amp。按系部選擇課程 Name = Combo5 ? 主考教師文本框（ Text1） ControlSource = m_zkjs Name = Text1 ? 考試日期文本框（ Text1） ControlSource = m_ksrq Name = Text2 ? 成績錄入按鈕（ Command1）的 Click 事件中過程 PROCEDURE Click select * from bj_cj into cursor lsb where kh= and bj= if _tally=0 BEGIN TRANSACTION amp。 m_ksrq =date() ENDPROC 3) 主要控件的屬性及時間過程： ? 系部選擇組合框（ Combo1）屬性： ColumnCount = 0 RowSourceType = 6 RowSource = ,xh TabIndex = 1 Name = Combo1 ? 專業(yè)選擇組合框（ Combo2）屬性： CoundColumn = 2 ColumnCount = 2 RowSourceType = 3 RowSource = select zym,zyh from zy into cursor aa where xb= TabIndex = 2 Name = Combo2 ? 類別選擇組合框（ Combo3）屬性： RowSourceType = 6 RowSource = TabIndex = 3 Name = Combo3 ? 班級選擇組合框（ Combo4）屬性： RowSourceType = 3 RowSource = select bm from bj into cursor bb where lb= and zy= ControlSource = TabIndex = 4 Name = Combo4 ? 課程選擇組合框（ Combo5）屬性： CoundColumn = 2 ColumnCount = 2 RowSourceType = 3 RowSource = select km,kh from kc into cursor cc where xb= amp。 ORDER BY , , 2. CJLR 表單設(shè)計 界面如 下： 1) 數(shù)據(jù)環(huán)境： 基本表： XB、 ZY、 LB、 BJ、 KC 視圖： BJ_CJ 2) 表單的事件 (Init) 過程： PROCEDURE Init public m_zkjs, m_ksrq m_zkjs =39。 ON = 。 FROM xjgl!xs INNER JOIN xjgl!cj。語句格式為： set filter to 條件表達式 為了給報表傳遞“主考教師”和“考試日期”在主表單中定義兩個全局內(nèi)存變量 m_zkjs， m_ksrq， 其值通過文本框由用戶輸入。 以上兩個表單采用了主 —— 叢關(guān)系（多文檔界面）， cjlr2 表單屬于 cjlr 的子表單。為此，該功能模塊用兩個表單來完成，在第一個表單（ cjlr）的“成績錄入”命令按鈕的 Click 事件中，完成 XH、 KH 插入操作后將視圖 bj_cj 關(guān)閉，通過調(diào)用下一個表單 (cjlr2)重新打開 bj_cj 視圖。 當用戶選定“班級”和“課程”后，即可獲得“ BJ”和“ KH”兩個字段的值，通過“ BJ”字段的值即可到“ XS”表中查得該班級的所有學生的學號（ XH） ,再通過 SELECT— SQL 語句得到所有的所有該班級每個學生的學號（ XH）分別與所選課號（ KH）的組合，而后通過視圖插入成績（ CJ）表中。從內(nèi)存中釋放表單集或表單 八 、成績錄入表單 功能： 向基本表 中追加記錄，界面如下： 要求： 按班級 錄入單科成績，選擇班級和課程后，由程序向成績表（ ）中插入所選班級所有學生的學號與所選課程課號兩個字段，成績字段由鍵盤輸入，界面要顯示學號和姓名 ,并且可以打印成績報表。向表中追加插入數(shù)據(jù) xjl= endif ? 過程 amp。設(shè)置邏輯刪除有效 ? 過程 xjl(2)=allt(xjl(2)) IF LEN(xjl(2))=0 =messagebox(系部名不能空！ ,0,錯誤 ) else insert into cj from array xjl amp。 為數(shù)組元素賦初值，字符型 Set delete on amp。定義全局變量 ,默認值為邏輯假 Xjl= amp。設(shè)置主索引 Public xjl(3),m_xg amp。選擇當前工作區(qū) Set order to xh amp。,bj with m_bj else =messagebox(學號重復(fù) ！ ,0,錯誤 ) endif endif ENDPROC COMMAND2 屬性 ： Caption = 結(jié) 束 ForeColor = 255,0,0 Name = Command2 事件 過程 ： PROCEDURE Click ENDPROC 七 、應(yīng)用實例： 學生成績 表單設(shè)計 表單文件名： 功能：為數(shù)據(jù)庫表 追加數(shù)據(jù) 界面： 設(shè)計步驟： 1 新建表單 2 添加數(shù)據(jù)環(huán)境：數(shù)據(jù)庫表 3 界面設(shè)計： ? 4 個標簽：字體、字號、背景色、對齊方式 ? 1 個表格：數(shù)據(jù)源數(shù)據(jù)庫表 ? 3 個文本框： 主要屬性 name 分別 ： txtxh, txtkh, txtcj ControlSource：分別為全局變量： xjl(1),xjl(2),xjl(3) ? 2 個命令按鈕 mand1( 追加 )、 mand2(結(jié)束 ) 4 事件過程 ? 過程 Select cj amp。,xb with 39。 endif ENDPROC 3) 組合框政治面貌： Combo2 其數(shù)據(jù)源為：“值” RowSourceType = 1 RowSource = 黨員 ,團員 ,群眾 ControlSource = Name = Combo2 兩個命令按鈕 COMMAND1: 屬性： Caption = 追 加 TabIndex = 10 ForeColor = 255,0,0 Name = Command1 事件過程： PROCEDURE Click if !empty() select xs seek if eof() m_bj= insert into xs values( , , ,lsb.hf , ,) creat cursor lsb(xh c(7),xm c(8),xb c(2),mz c(2),rxcj n(5,2),zzmm c(4),hf l,csrq d,jg c(20),bj c(7),grjl m,jtcy m,zp g) append blank replace mz with 39。ZPWJM ENDIF ENDIF ENDIF ENDPROC 2) 單選按鈕組： Option1 屬性： ButtonCount = 2 Value = 1 Name = Optxb = .T. = 男 = 1 = Option1 = .T. = 女 = Option2 事件過程： PROCEDURE Click if =2 replace xb with 39。zp\39。+ALLT()+.BMP IF FILE(ZPWJM) APPEND GENER ZP FROM amp。ZPWJM ELSE ZPWJM=39。zp\39。該表單中的頁表 Pageframe1中有 3頁，第一頁中主要是學生的基本信息，第二頁中為學生的個人簡歷，第三頁中為學生的具體情況，其中控件分別與臨時表 lsb中的字段（處 性別字段： XB）綁定。為表中當前記錄的字段賦值 ENDPROC 四個組合框 Combo Combo Combo Combo4： 分別用來確定所錄入的學生信息所在的系部、專業(yè)、類別和編輯。 amp。,xb with 39。 jg c(20),bj c(7),grjl m,jtcy m,zp g) append blank replace mz with 39。amp。amp。amp。amp。amp。 WHERE kh =xjl(1)。amp。amp。39。39。select