【文章內(nèi)容簡介】 ENDPROC PROCEDURE ENDPROC 六、學(xué)生個人信息追加表單 一、功能：向 表中追加記錄，界面如下： 二、數(shù)據(jù)環(huán)境 5 個基本表： 、 、 、 、 三、主要對象的屬性及事件過程 表單的 Init(創(chuàng)建表單時發(fā)生 )事件過程： PROCEDURE Init select xs set order to xh amp。amp。設(shè)置主索引 *建立臨時表 ： lsb 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。漢 39。,xb with 39。男 39。 amp。amp。為表中當(dāng)前記錄的字段賦值 ENDPROC 四個組合框 Combo Combo Combo Combo4： 分別用來確定所錄入的學(xué)生信息所在的系部、專業(yè)、類別和編輯。 主要屬性： ? 系部 ： Combo1 屬性： ColumnCount = 0 ColumnWidths = RowSourceType = 6 RowSource = FirstElement = 1 Height = 25 Left = 73 NumberOfElements = 0 TabIndex = 1 Top = 25 Width = 85 Name = Combo1 ? 專業(yè)： Combo2 屬性： CoundColumn = 2 ColumnCount = 2 RowSourceType = 3 RowSource = select zym,zyh from zy into cursor aa where xb= Height = 25 Left = 222 TabIndex = 2 Top = 25 Width = 85 Name = Combo2 ? 類別： Combo3 屬性： RowSourceType = 6 RowSource = Height = 24 Left = 371 TabIndex = 3 Top = 25 Width = 96 Name = Combo3 ? 班級： Combo4 屬性： SourceType = 3 RowSource = select bm from bj into cursor b where lb= and zy= ControlSource = Height = 25 Left = 540 TabIndex = 4 Top = 25 Width = 72 Name = Combo4 事件過程： PROCEDURE InteractiveChange ENDPROC 頁表： Pageframe1 頁表為容器類對象，一個頁表可以包含多頁，由屬性 PageCount設(shè)置頁表中的頁數(shù)，每一頁中又可放置各種對象。該表單中的頁表 Pageframe1中有 3頁，第一頁中主要是學(xué)生的基本信息，第二頁中為學(xué)生的個人簡歷，第三頁中為學(xué)生的具體情況，其中控件分別與臨時表 lsb中的字段（處 性別字段： XB）綁定。 主要屬性： PageCount = 3 Name = Pageframe1 = .T. = 新宋體 = 12 = 基本信息 = 255,0,0 = Page1 = .T. = 新宋體 = 12 = 個人簡歷 = 255,0,0 = Page2 = .T. = 新宋體 = 12 = 家庭成員 = 255,0,0 = Page3 事件過程 ： ROCEDURE ENDPROC PROCEDURE ENDPROC PROCEDURE ENDPROC 頁框中的控件： 1) 文本框 ： Txtxh的事件過程： PROCEDURE LostFocus ZPWJM=39。zp\39。+ALLT()+.JPG IF FILE(ZPWJM) APPEND GENER ZP FROM amp。ZPWJM ELSE ZPWJM=39。zp\39。+ALLT()+.BMP IF FILE(ZPWJM) APPEND GENER ZP FROM amp。ZPWJM ELSE ZPWJM=39。zp\39。+ALLT()+.GIF IF FILE(ZPWJM) APPEND GENER ZP FROM amp。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。女 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。漢 39。,xb with 39。男 39。,bj with m_bj else =messagebox(學(xué)號重復(fù) ！ ,0,錯誤 ) endif endif ENDPROC COMMAND2 屬性 ： Caption = 結(jié) 束 ForeColor = 255,0,0 Name = Command2 事件 過程 ： PROCEDURE Click ENDPROC 七 、應(yīng)用實例： 學(xué)生成績 表單設(shè)計 表單文件名： 功能：為數(shù)據(jù)庫表 追加數(shù)據(jù) 界面： 設(shè)計步驟： 1 新建表單 2 添加數(shù)據(jù)環(huán)境：數(shù)據(jù)庫表 3 界面設(shè)計： ? 4 個標(biāo)簽：字體、字號、背景色、對齊方式 ? 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。amp。選擇當(dāng)前工作區(qū) Set order to xh amp。amp。設(shè)置主索引 Public xjl(3),m_xg amp。amp。定義全局變量 ,默認(rèn)值為邏輯假 Xjl= amp。amp。 為數(shù)組元素賦初值，字符型 Set delete on amp。amp。設(shè)置邏輯刪除有效 ? 過程 xjl(2)=allt(xjl(2)) IF LEN(xjl(2))=0 =messagebox(系部名不能空！ ,0,錯誤 ) else insert into cj from array xjl amp。amp。向表中追加插入數(shù)據(jù) xjl= endif ? 過程 amp。amp。從內(nèi)存中釋放表單集或表單 八 、成績錄入表單 功能： 向基本表 中追加記錄，界面如下： 要求： 按班級 錄入單科成績，選擇班級和課程后，由程序向成績表（ ）中插入所選班級所有學(xué)生的學(xué)號與所選課程課號兩個字段，成績字段由鍵盤輸入，界面要顯示學(xué)號和姓名 ,并且可以打印成績報表。 設(shè)計思路： 建立一個視圖，包括班級、學(xué)號、姓名、課號、課名、成績，通過視圖向成績表 ()中追加數(shù)據(jù)。 當(dāng)用戶選定“班級”和“課程”后，即可獲得“ BJ”和“ KH”兩個字段的值，通過“ BJ”字段的值即可到“ XS”表中查得該班級的所有學(xué)生的學(xué)號（ XH） ,再通過 SELECT— SQL 語句得到所有的所有該班級每個學(xué)生的學(xué)號（ XH）分別與所選課號（ KH）的組合，而后