【正文】 ype = 1 RelationalExpr = Xh Name = grdZy = = Column1 = = Column2 = = Column3 文本框： Text1 ControlSource = xjl(1) Name = Text1 文本框： Text2 ControlSource = xjl(2) Name = Text2 命令按鈕組： Commandgroup1 ButtonCount = 2 Name = Commandgroup1 = 楷體 _GB2312 = 10 = 追加 = 255,0,0 = Command1 = 楷體 _GB2312 = 10 = 退出 = 255,0,0 = Command2 PROCEDURE sELECT * FROM zy。 INTO CURSOR ss if _tally=0 amp。判斷查到記錄的數(shù)量 INSERT INTO zy VALUES(xjl(1),xjl(2),) scatter to xjl blank else =messagebox(代號重復 ,0,錯誤 ) amp。對話框 xjl(1)= amp。設置焦點即光標位置 amp。重畫表單或控件，并刷新所有值 endif ENDPROC PROCEDURE RELEASE THISFORM ENDPROC 三、視圖應用實例：班級設置表單： 功能：向基本表 BJ 中追加記錄 界面設計： 數(shù)據環(huán)境： XB,ZY,LB3 個基本表和 bj_zy 視圖， 重點：通過視圖向基本表中追加記錄，另外是專業(yè)名稱在組合框中所列內容要隨系部而變，已有班級在表格中顯示時也要隨專業(yè)和學生類別而變，為此將以上組合框和表格的數(shù)據源都設置成 SQL—— SELECT 語句 視圖 bj_zy 定義的 SELECT 語句如下： SELECT Bj.*, , 。 INNER JOIN xjgl!lb 。 ON = 更新字段和更新條件如下圖所示： 主要控件的屬性及事件過程如下： PROCEDURE Load PUBLIC m_bm,m_nf m_bm= m_nf=year(date()) ENDPROC 組合框（所屬系部）： Combo1 主要屬性： BoundColumn = 2 ColumnCount = 2 RowSourceType = 6 RowSource = ,xh ControlSource = Name = Combo1 事件過程“ PROCEDURE InteractiveChange ENDPROC 組合框（專業(yè)名稱）： Combo2 主要屬性： BoundColumn = 2 ColumnCount = 2 RowSourceType = 3 amp。 SQL語句 RowSource = select zym,zyh from zy where xb= into cursor aa ControlSource = Name = Combo2 事件過程： PROCEDURE InteractiveChange =39。 ENDPROC 組合框（學生類別）： Combo3 主要屬性： BoundColumn = 2 ColumnCount = 2 RowSourceType = 6 RowSource = ,lbh ControlSource = Name = Combo3 事件過程： PROCEDURE InteractiveChange =39。 ENDPROC 表格：去 GrdBJ 主要屬性： ColumnCount = 4 RecordSource = select bm,rxnf,zym,lbm from bj_zy into cursor bb where zy= and lb= RecordSourceType = 4 Name = grdBj 文本框： Text1 InputMask = !!!!!! Name = Text1 微調控件： spinner1 KeyboardHighValue = 2020 KeyboardLowValue = 1990 ControlSource = m_nf Name = Spinner1 命令按鈕： Commandgroup1 shu yButtonCount = 2 BackStyle = 0 BorderStyle = 0 Value = 1 Name = Commandgroup1 = 楷體 _GB2312 = 11 = 追加 = 255,0,0 = Command1 = 楷體 _GB2312 = 10 = 退出 = 255,0,0 = Command2 事件過程： PROCEDURE sELECT * FROM bj_zy WHERE bm =m_bm INTO CURSOR ss if _tally=0 INSERT INTO bj_zy values(m_bm,m_nf,) =39。 m_bm=39。 m_nf=year(date()) else =messagebox(班級名稱重復 ,0,錯誤 ) m_bm=39。 endif ENDPROC PROCEDURE RELEASE THISFORM ENDPROC 四、類別設置表單 表單文件名 ： 功能 ： 為數(shù)據庫存表 界面： 設計步驟： 1 新建表單 2 添加數(shù)據環(huán)境：數(shù)據庫表 3 界面設計： ? 3 個標簽：字體、字號、背景色、對齊方式 ? 1 個表格：數(shù)據源數(shù)據庫表 ? 3 個文本框： 主要屬性 ControlSource：分別為全局變量： xjl(1),xjl(2) ? 2 個命令按鈕 mand1( 追加 )、 mand2(結束 ) 4 事件過程 PROCEDURE Load select lb set order to lbh public xjl(2) xjl= Set delete on amp。設置邏輯刪除有效 ENDPROC ? 過程 xjl(2)=allt(xjl(2)) if len(xjl(2))=0 =messagebox(類別名不能空！ ,0,錯誤 ) else insert into lb from array xjl xjl= endif ? 過程 amp。從內存中釋放表單集或表單 五、課程設置表單 功能： 為基本表 追加記錄 數(shù)據環(huán)境 ： 界面設計： PROCEDURE Load PUBLIC XJL(3) scatter to xjl blank ENDPROC 主要控件 組合框： Combo1 步驟： 新建組合框 ?右擊鼠標 ?生成器 ?選定字段 ?選定 值 主要屬性 BoundColumn = 2 RowSourceType = 6 RowSource = ,xh ControlSource = FirstElement = 1 Name = Combo1 表格： grdkc 設計步驟： 從數(shù)據環(huán)境中將表 kc拖入表單 ?生成器 ?選定字段 ?選定值 主要屬性如下： ColumnCount = 3 ChildOrder = Xb LinkMaster = Xb RecordSource = kc RecordSourceType = 1 RelationalExpr = Xh Name = grdkc = = Column1 = = Column2 文本框： Text1 ControlSource = xjl(1) Name = kh 文本框 ： Text2 ControlSource = xjl(2) Name = km 命令按鈕 = 楷體 _GB2312 = 10 = 追加 = 255,0,0 = Command1 = 楷體 _GB2312 = 10 = 結束 = 255,0,0 = Command2 PROCEDURE sELECT * FROM kc。 INTO CURSOR ss if _tally=0 amp。判斷查到記錄的數(shù)量 INSERT INTO kc VALUES(xjl(1),xjl(2),) scatter to xjl blank else =messagebox(代號重復 ,0,錯誤 ) amp。對話框 xjl(1)= amp。設置焦點即光標位置 amp。重畫表單或控件，并刷新所有值 endif endif ENDPROC PROCEDURE ENDPROC 六、學生個人信息追加表單 一、