第5章根據(jù)任務(wù)選擇合適的控件

1、數(shù)據(jù)庫(kù)原理與應(yīng)用信息學(xué)院 軟件教研室理論教學(xué)課后習(xí)題與上機(jī)實(shí)驗(yàn)本章要點(diǎn)回顧學(xué)習(xí)提要與目標(biāo)返回返回（3）AutoSize確定控件是否根據(jù)其內(nèi)容的長(zhǎng)度自動(dòng)調(diào)節(jié)大小設(shè)置值為邏輯值 .t. , .f. 缺省值為.T.（4）Left用于確定控件距離其父對(duì)象最左邊位置。（5）Top用于確定控件距離其父對(duì)象最上邊緣距離（6）Height用于確定某控件的高度（7）Width用于確定某控件的寬度（8）BackColor確定對(duì)象的背景顏色（9）ForeColor確定對(duì)象的文字顏色（10）BackStyle確定對(duì)象的背景色是否透明，設(shè)置值為0，1（11）FontName顯示文本時(shí)使用的字體（12）FontSize顯

2、示文本時(shí)使用的字體的大?。?3）Visible確定對(duì)象是否可見(jiàn)（14）WordWrap確定顯示的文本是否隨邊界自動(dòng)折行1，主要功能在表單上顯示圖片2，主要屬性（1）Picture用于確定顯示在控件中的圖片文件（.bmp、.jpg、.gif）（2）Stretch用于對(duì)圖片內(nèi)容的處理以適應(yīng)承載控件的大小Stretch0 剪裁Stretch1 等比填充Stretch2 變比填充1，主要功能線條：在表單上顯示直線形狀：在表單上顯示矩形、橢圓或圓2，主要屬性（1）CurvatureCurvature取值范圍099Curvature=0 矩形Curvature99 圓或橢圓（2）FillColor確定形狀

3、指定背景填充方案填充色（3）FillStyle確定形狀是否透明（4）SpecialEffect確定形狀是否三維，僅當(dāng)Curvature0時(shí)有效（5）BorderWidth線寬為多少象素使用表單的方法程序，在表單上畫(huà)圓、線、點(diǎn)或顯示文本方法程序：Circle 在表單上畫(huà)一個(gè)圓Cls 清除表單上的圖形或文本Line 在表單上畫(huà)線Pset 在表單上畫(huà)一個(gè)點(diǎn)Print 在表單上顯示文本表單Click事件代碼：THIS.DRAWWIDTH=3THIS.PRINT(“顯示圓、點(diǎn)、線”)THIS.CIRCLE(50,100,100)THIS.LINE(0,150,150,150)THIS.PSET(100,

4、100)命令按鈕命令按鈕Command1，主要功能點(diǎn)擊命令按鈕，執(zhí)行Click事件中的特定代碼2，主要屬性AutoSizeCaptionForecolorFontNameFontSizeEnabledVisible3，命令按鈕的事件（1）Click事件當(dāng)點(diǎn)擊命令按鈕時(shí)發(fā)生Click事件命令按鈕Click事件代碼：ThisForm.Label1.ForeColor=RGB(255,0,0)ThisForm.Label1.FontSize=24（2）GotFocus通過(guò)用戶(hù)操作或執(zhí)行程序代碼使對(duì)象接收到焦點(diǎn)時(shí)，此事件發(fā)生當(dāng)鼠標(biāo)點(diǎn)擊控件或在事件代碼中使用設(shè)置焦點(diǎn)方法SetFocus,可發(fā)生GotFo

5、cus事件，從而執(zhí)行事先編好的代碼（3） SetFocus通過(guò)代碼設(shè)置某控件得到焦點(diǎn)命令按鈕組命令按鈕組CommandGroup將多個(gè)命令按鈕組成一組，通過(guò)組來(lái)管理命令按鈕。1，命令按鈕組的常用屬性：（1）ButtonCount指定命令按鈕組中包含的按鈕數(shù)（2）Buttons()用于訪問(wèn)按鈕組每一個(gè)按鈕的數(shù)組，數(shù)組下標(biāo)從1BuutonCount（3）Value可以指定用戶(hù)點(diǎn)擊了命令按鈕組中的哪一個(gè)按鈕。Value返回值為命令按鈕在組中的次序號(hào)（1，2，3。）2，命令按鈕組的主要事件和方法主要事件：Click通過(guò)命令按鈕組設(shè)置文本字體顏色：通過(guò)命令按鈕組設(shè)置文本字體顏色：Do case case

6、 this.value=1 thisform.label1.forecolor=rgb(255,0,0) case this.value=2 thisform.label1.forecolor=rgb(0,255,0) case this.value=3 thisform.label1.forecolor=rgb(0,0,255)Endcase主要方法：SetAll-同時(shí)設(shè)置一組對(duì)象的某屬性值ThisForm.CommandGroup1.SetAll(“Visible”,.F.)例例5.2 ：學(xué)生信息瀏覽：學(xué)生信息瀏覽 PAGE234y=我們通過(guò)命令按鈕可查閱學(xué)生數(shù)據(jù)新建一個(gè)表單新建一個(gè)表單在

7、表單的數(shù)據(jù)環(huán)境中添加學(xué)生表在表單的數(shù)據(jù)環(huán)境中添加學(xué)生表通過(guò)拖動(dòng)方式，將學(xué)生表字段拖到表單上通過(guò)拖動(dòng)方式，將學(xué)生表字段拖到表單上在表單上添加命令按鈕組在表單上添加命令按鈕組編寫(xiě)相應(yīng)事件代碼編寫(xiě)相應(yīng)事件代碼表單的表單的Init事件代碼：事件代碼：this.caption=學(xué)生信息查詢(xún)表單c=首記錄 前翻 后翻 末記錄 退出 for i=1 to 5 mandgroup1.buttons(i).caption=substr(c,6*(i-1)+1,6)endfor命令按鈕組的Click事件代碼：do case case this.value=1 go top mand1.enabled=.f. ma

8、nd2.enabled=.f. mand3.enabled=.t. mand4.enabled=.t. case this.value=2 and !bof() skip -1 if bof() mand1.enabled=.f. mand2.enabled=.f. endif mand3.enabled=.t. mand4.enabled=.t. case this.value=3 and !eof() skip if eof() mand3.enabled=.f. mand4.enabled=.f. endif mand1.enabled=.t. mand2.enabled=.t. cas

9、e this.value=4 go bottom mand1.enabled=.t. mand2.enabled=.t. mand3.enabled=.f. mand4.enabled=.f. case this.value=5 thisform.releaseendcasethisform.refresh一，文本框一，文本框Text文本框可以顯示數(shù)據(jù)也可以用于輸入數(shù)據(jù)常用屬性：常用屬性：（1）Value用于引用或更改文本框中的文本（2）ControlSource文本框與變量或字段綁定（3）SelectOnEntry當(dāng)文本框得到焦點(diǎn)后選擇文本，取值：.T.,.F.3(4)InputMark輸入

10、掩碼 具體見(jiàn)page 237（5）DateFormat確定文本框中日期的顯示格式（6）PasswordChar當(dāng)用文本框來(lái)輸入密碼時(shí)，用指定的字符來(lái)掩飾真實(shí)密碼3，文本框的常用事件（1）Valid事件驗(yàn)證文本框中數(shù)據(jù)的有效性例：輸入口令后驗(yàn)證口令是否正確例：輸入口令后驗(yàn)證口令是否正確If This.Value!=“Mypassword” =MessageBox(“ 口令錯(cuò)誤！”)Else =MessageBox(“ 口令正確！”)Endif二，編輯框二，編輯框Edit Page 240編輯框用于顯示或輸入多行數(shù)據(jù)編輯框用于顯示或輸入多行數(shù)據(jù)-顯示或輸入學(xué)生簡(jiǎn)歷顯示或輸入學(xué)生簡(jiǎn)歷常用屬性：常用屬

11、性：（1）ControlSource編輯框與變量或字段綁定編輯框與變量或字段綁定（2）SelLength、SelStart、SelText從編輯框選擇其中的文本從編輯框選擇其中的文本SelLength 選擇文本的長(zhǎng)度選擇文本的長(zhǎng)度SelStart 選擇文本的起始位置選擇文本的起始位置SelText 選擇的內(nèi)容選擇的內(nèi)容ThisForm.Edit1.SelStart=0ThisForm.Edit1.SelLength=AT(。,ThisForm.Edit1.Text)-1(選擇文本框中的第一句文本選擇文本框中的第一句文本)三，應(yīng)用示例三，應(yīng)用示例設(shè)計(jì)如下學(xué)生數(shù)據(jù)查詢(xún)表單：設(shè)計(jì)如下學(xué)生數(shù)據(jù)查詢(xún)表單

12、：當(dāng)在文本框輸入一個(gè)同學(xué)姓名后，自動(dòng)到學(xué)生表中查找是否當(dāng)在文本框輸入一個(gè)同學(xué)姓名后，自動(dòng)到學(xué)生表中查找是否有該同學(xué)，有該同學(xué)，有該同學(xué)，則顯示該同學(xué)數(shù)據(jù)；否則，顯示查無(wú)此人。有該同學(xué)，則顯示該同學(xué)數(shù)據(jù)；否則，顯示查無(wú)此人。設(shè)計(jì)方法：設(shè)計(jì)方法：新建一個(gè)表單在表單的數(shù)據(jù)環(huán)境中添加學(xué)生表將學(xué)生表中的字段拖到表單上添加文本框EDIT1到表單設(shè)置表單的標(biāo)題1. 編寫(xiě)文本框EDIT1的Valid事件locate for alltrim(this.value)=alltrim(學(xué)生.姓名)if not found() Messagebox(查無(wú)此人！)else thisform.refreshendif文本

13、框文本框Text1的的Valid事件：事件：v微調(diào)微調(diào)Spinner功能功能：用戶(hù)可通過(guò)鼠標(biāo)上下調(diào)節(jié)數(shù)值主要屬性：主要屬性：Increment 增量SpinnerHighValue 可調(diào)節(jié)的最大值SpinnerLowValue 可調(diào)節(jié)的最小值主要事件：主要事件：UpClick 向上按鈕事件DownClick 向下按鈕事件例：通過(guò)微調(diào)來(lái)調(diào)節(jié)日期微調(diào)事件微調(diào)事件Upclick事件：事件：thisform.text1.value=thisform.text1.value+1Downclick事件：事件：thisform.text1.value=thisform.text1.value-1一，選項(xiàng)組一

14、，選項(xiàng)組Optiongroup1，選項(xiàng)組，選項(xiàng)組Optiongroup主要功能：主要功能：選項(xiàng)按鈕組是一個(gè)容器，用戶(hù)可以在多個(gè)選項(xiàng)中選擇一項(xiàng)2，選項(xiàng)按鈕組的常用屬性，選項(xiàng)按鈕組的常用屬性（1）ButtonCount選項(xiàng)按鈕數(shù)目（2）Buttons( )引用其中的一個(gè)按鈕（3）Value當(dāng)選項(xiàng)按鈕組選中了其中一個(gè)按鈕后，Value 屬性反映該按鈕的次序號(hào)（同命令按鈕組的Value 屬性）每一個(gè)選項(xiàng)的文本可由其Caption屬性進(jìn)行設(shè)置3，常用事件，常用事件Click事件事件在選項(xiàng)按鈕組的Click事件中可通過(guò)DO CASE -ENDCASE語(yǔ)句判斷選項(xiàng)組的Value屬性值，可以知道用戶(hù)選擇了哪一

15、個(gè)選項(xiàng)例：通過(guò)選項(xiàng)按鈕組選擇表單的背景顏色例：通過(guò)選項(xiàng)按鈕組選擇表單的背景顏色 圖圖5.31 page 248設(shè)置選項(xiàng)按鈕組的設(shè)置選項(xiàng)按鈕組的Click事件：事件：do case case this.value=1 thisform.backcolor=rgb(255,0,0) case this.value=2 thisform.backcolor=rgb(0,255,0) case this.value=3 thisform.backcolor=rgb(0,0,255) case this.value=4 thisform.backcolor=rgb(255,255,0) case thi

16、s.value=5 thisform.backcolor=rgb(255,255,255) case this.value=6 thisform.backcolor=rgb(0,0,0) endcase 二，列表框與組合框二，列表框與組合框列表框與組合框用于顯示多行數(shù)據(jù)列表框與組合框具有相同的屬性、方法和事件，組合框在鼠標(biāo)點(diǎn)擊后下拉列表列表框與組合框常用屬性：列表框與組合框常用屬性：（1）填充列表框與組合框RowSourceType 選擇數(shù)據(jù)來(lái)源類(lèi)型RowSource 行數(shù)據(jù)源列表框與組合框的數(shù)據(jù)來(lái)源由此兩項(xiàng)決定RowSourceType 選擇數(shù)據(jù)來(lái)源類(lèi)型可有10種選擇 見(jiàn)page 250常用

17、：RowSourceType=6（字段） 使用表中的字段RowSource=姓名RowSourceType=0（無(wú)） 可使用Additem()方法添加數(shù)據(jù)：Scan this.additem(姓名)endscan3，常用事件方法，常用事件方法方法：（1） Additem( )方法 將學(xué)生的獎(jiǎng)學(xué)金數(shù)據(jù)放入列表框：將學(xué)生的獎(jiǎng)學(xué)金數(shù)據(jù)放入列表框：Use 學(xué)生Thisform.list1.rowsourcetype=0Scan for 獎(jiǎng)學(xué)金0 thisform.list1.additem(str(獎(jiǎng)學(xué)金,6)Endscan將學(xué)生表的字段名放入組合框?qū)W(xué)生表的字段名放入組合框:Use 學(xué)生Tbo1.r

18、owsourcetype=0For I=1 to fcount( ) bo1.additem(field( )Endfor（2）RemoveItem( )方法將列表框與組合框中一項(xiàng)數(shù)據(jù)刪除格式：控件.RemoveItem(nindex)Nindex數(shù)據(jù)項(xiàng)在指定控件中的排列位置Thisform.list1.removeitem(this.listindex)Thisform.refresh（3）clear方法清除列表框或組合框中數(shù)據(jù)Thisform.list1.clear（4）Requery方法從新查詢(xún)列表框或組合框的數(shù)據(jù)來(lái)源Thisform.list1.requery返回返回三，復(fù)選框三，復(fù)選

19、框Check1，復(fù)選框功能可以使用復(fù)選框來(lái)指定一個(gè)邏輯狀態(tài)：真、假，是、否；2，復(fù)選框常用功能（1）ValueValue屬性反映復(fù)選框的狀態(tài)當(dāng)復(fù)選框未選中時(shí)，Value=0 或 .F.當(dāng)復(fù)選框選中時(shí)，Value=1 或 .T.當(dāng)復(fù)選框ControlSource屬性設(shè)置為表中邏輯字段時(shí)，邏輯值為.T.時(shí)，復(fù)選框顯示為選中；如性別為“男生”邏輯值為.F.時(shí)，復(fù)選框顯示為未選中；如性別為“女生”當(dāng)復(fù)選框的Enabled=.F.時(shí)，復(fù)選框?yàn)榛疑?，?yīng)用示例四，應(yīng)用示例例例5.4 學(xué)生基本情況調(diào)查表單學(xué)生基本情況調(diào)查表單 page 256設(shè)計(jì)過(guò)程設(shè)計(jì)過(guò)程根據(jù)題目要求在表單上放各個(gè)控件對(duì)齊各控件編寫(xiě)相應(yīng)的

20、事件代碼本題主要事件有：本題主要事件有：表單的Init事件命令按鈕的Click事件本例各控件的屬性都通過(guò)代碼進(jìn)行設(shè)置表單的表單的Init事件事件this.caption=學(xué)生基本情況調(diào)查學(xué)生基本情況調(diào)查use 學(xué)生學(xué)生this.label1.caption=選擇自己的姓名：選擇自己的姓名：this.label2.caption=選擇來(lái)自何地：選擇來(lái)自何地：this.label3.caption=選擇性別：選擇性別：this.label4.caption=興趣愛(ài)好：興趣愛(ài)好：mand1.caption=提交提交this.optiongroup1.option1.caption=女女this.op

21、tiongroup1.option2.caption=男男this.check1.caption=音樂(lè)音樂(lè)this.check2.caption=球類(lèi)球類(lèi)this.check3.caption=看書(shū)看書(shū)this.check4.caption=旅游旅游this.check5.caption=上網(wǎng)上網(wǎng)this.check6.caption=集郵集郵this.check7.caption=駕駛駕駛this.check8.caption=健身健身bo1.rowsourcetype=bo1.rowsource=學(xué)生學(xué)生.姓名姓名this.list1.rowsourcetype=0c1=杭州紹興寧波溫州蕭

22、山臺(tái)州金華湖州嘉興富杭州紹興寧波溫州蕭山臺(tái)州金華湖州嘉興富陽(yáng)陽(yáng)for i=0 to 9 this.list1.additem(substr(c1,4*i+1,4)Endfora=bo1.value+,b=iif(thisform.optiongroup1.value=1,女女,男男)d=來(lái)自來(lái)自+thisform.list1.value+,c1=iif(thisform.check1.value=1,thisform.check1.caption+ ,)c2=iif(thisform.check2.value=1,thisform.check2.caption+ ,)c3=iif(thisfo

23、rm.check3.value=1,thisform.check3.caption+ ,)c4=iif(thisform.check4.value=1,thisform.check4.caption+ ,)c5=iif(thisform.check5.value=1,thisform.check5.caption+ ,)c6=iif(thisform.check6.value=1,thisform.check6.caption+ ,)c7=iif(thisform.check7.value=1,thisform.check7.caption+ ,)c8=iif(thisform.check8.

24、value=1,thisform.check8.caption+ ,)thisform.text1.value=a+b+d+興趣愛(ài)好有：興趣愛(ài)好有：+c1+c2+c3+c4+c5+c6+c7+c8thisform.refresh命令按鈕的命令按鈕的Click事件事件v計(jì)時(shí)器計(jì)時(shí)器Timer主要功能：主要功能：在指定時(shí)間間隔執(zhí)行操作和檢查數(shù)據(jù)主要屬性：主要屬性：Interval屬性一個(gè)計(jì)時(shí)器事件與下一個(gè)計(jì)時(shí)器事件之間的間隔時(shí)間，單位為毫秒。Enabled屬性Enabled=.T. 計(jì)時(shí)器開(kāi)始計(jì)時(shí)Enabled=.F. 計(jì)時(shí)器停止計(jì)時(shí)類(lèi)似計(jì)時(shí)器的開(kāi)關(guān)主要事件：主要事件：Timer事件-當(dāng)指定計(jì)時(shí)時(shí)

25、間過(guò)去后， Timer事件觸發(fā)。當(dāng)需要每隔一定時(shí)間執(zhí)行某段代碼時(shí)，可以使用計(jì)時(shí)器進(jìn)行設(shè)計(jì)。例：在文本框中顯示系統(tǒng)時(shí)間,偶數(shù)秒時(shí)表單背景為藍(lán)色，奇數(shù)秒時(shí)表單背景為綠色：設(shè)計(jì)：設(shè)計(jì)：設(shè)置計(jì)時(shí)器的設(shè)置計(jì)時(shí)器的interval=1000 計(jì)時(shí)器的計(jì)時(shí)器的Timer事件中加入代碼：事件中加入代碼：Thisform.text1.value=time()C=val(substr(time(),7,2)If mod(c,2)=0 thisform.backcolor=rgb(0,255,0)Else thisform.backcolor=rgb(0,0,255)Endif1，功能：，功能：表格對(duì)象能夠在表單或

26、頁(yè)面中顯示并操作行和列中的數(shù)據(jù)，如一張表的記錄數(shù)據(jù)。表格是一個(gè)容器，包含多列。要編輯其中的列，必須切換到表格編輯方式。可采用如下方法進(jìn)入表格編輯方式：在表格上右擊鼠標(biāo)，再在彈出菜單中選擇“編輯”再“控件屬性”窗口中，在“對(duì)象”框中，選擇表格的一個(gè)列表格表格Grid2，表格常用屬性，表格常用屬性 -詳見(jiàn)詳見(jiàn)page 260ColumnCountColumns()ReadOnlyAllowAddNewDeleteMarkRecordmarkAllowRowSizingRecordSourceReccordSourceType表格數(shù)據(jù)來(lái)源主要由屬性：RecordSource，ReccordSourc

27、eType決定。如：RecordSource=“學(xué)生”ReccordSourceType=1 （別名）表格應(yīng)用示例表格應(yīng)用示例表格顯示課程表數(shù)據(jù)，命令按鈕設(shè)置各列背景顏色，表格顯示課程表數(shù)據(jù)，命令按鈕設(shè)置各列背景顏色，自動(dòng)設(shè)置奇數(shù)列和偶數(shù)列的背景顏色自動(dòng)設(shè)置奇數(shù)列和偶數(shù)列的背景顏色設(shè)計(jì)：設(shè)計(jì)：表格中的各列可用表格中的各列可用grid1.colummns()來(lái)引用來(lái)引用設(shè)置表格數(shù)據(jù)來(lái)源屬性 RecordSource，ReccordSourceType編寫(xiě)命令按鈕Click事件代碼：For i=1 to thisform.grid1.columncount if i%2=0 thisform.gr

28、id1.columns(i).backcolor=rgb(0,255,0) else thisform.grid1.columns(i).backcolor=rgb(100,100,0) endifEndforThisform.refresh頁(yè)框頁(yè)框PageFrame1，主要功能，主要功能頁(yè)框是包含頁(yè)面的容器對(duì)象，頁(yè)面又可包含其它控件。頁(yè)框可擴(kuò)展表單的面積2，頁(yè)框常用屬性，頁(yè)框常用屬性PageCount -頁(yè)框中的頁(yè)數(shù)Pages() -指定頁(yè)框中的某個(gè)頁(yè)ActivePage -激活某個(gè)頁(yè)要在頁(yè)框的頁(yè)上放置對(duì)象，必須首先選中頁(yè)框中的頁(yè)選擇頁(yè)框中的某一頁(yè)的方法：選擇頁(yè)框中的某一頁(yè)的方法：鼠標(biāo)右擊頁(yè)

29、框，再在彈出菜單中選鼠標(biāo)右擊頁(yè)框，再在彈出菜單中選“編輯編輯”，當(dāng)頁(yè)框被綠色包圍時(shí)，當(dāng)頁(yè)框被綠色包圍時(shí)即可選擇其中的頁(yè)。即可選擇其中的頁(yè)。頁(yè)框常用事件與方法：頁(yè)框常用事件與方法：Activate，Init，Click,SetAllActivate事件事件功能：當(dāng)激活表單、表單集或頁(yè)對(duì)象時(shí)，將發(fā)生Activate事件。例：在兩個(gè)頁(yè)中分別顯示學(xué)生表、成績(jī)表的數(shù)據(jù)設(shè)計(jì)方法：設(shè)計(jì)方法：方法一：將數(shù)據(jù)環(huán)境中的表字段直接拖到頁(yè)上（應(yīng)首先選中頁(yè)）方法一：將數(shù)據(jù)環(huán)境中的表字段直接拖到頁(yè)上（應(yīng)首先選中頁(yè)）方法二：在頁(yè)中放上各個(gè)控件，分別設(shè)置其數(shù)據(jù)來(lái)源方法二：在頁(yè)中放上各個(gè)控件，分別設(shè)置其數(shù)據(jù)來(lái)源1，主要功能：，

30、主要功能：通過(guò)通過(guò)ActiveX控件（控件（Olecontrol）可以在表單中嵌入一些）可以在表單中嵌入一些VFP不能直接不能直接生成的內(nèi)容，如圖片、聲音、視頻、生成的內(nèi)容，如圖片、聲音、視頻、Excel表格或表格或word文文檔等特別內(nèi)容。檔等特別內(nèi)容。2，主要屬性：，主要屬性：AutoActivate3，主要事件與方法：，主要事件與方法：InitGotFocusSetFocusLostFocusRefresh1，主要功能：，主要功能：ActiveX綁定控件（綁定控件（Oleboundcontrol）一般與表的通）一般與表的通用字段綁定，用字段綁定，可以使用可以使用ActiveX綁定控件顯示

31、通用字段的內(nèi)容，如表綁定控件顯示通用字段的內(nèi)容，如表中每個(gè)人的照片等。中每個(gè)人的照片等。2，主要屬性：，主要屬性：AutoActivateControlSourceEnabledVisibleAutoSize3，常用方法與事件：，常用方法與事件：InitGotFocusSetFocusLostFocusRefreshActiveX綁定控件的使用：綁定控件的使用：創(chuàng)建或打開(kāi)表單創(chuàng)建或打開(kāi)表單將將ActiveX綁定控件拖到表單合適位置綁定控件拖到表單合適位置設(shè)置設(shè)置ActiveX綁定控件的綁定控件的ControlSource屬性，屬性， 使其與表的通用字段綁定使其與表的通用字段綁定應(yīng)用示例應(yīng)用示例

32、 page267例例5.5 設(shè)計(jì)一個(gè)學(xué)生信息查詢(xún)表單設(shè)計(jì)一個(gè)學(xué)生信息查詢(xún)表單設(shè)計(jì)方法：設(shè)計(jì)方法：根據(jù)表單界面要求，選擇頁(yè)框?qū)ο?，在各?yè)上放根據(jù)表單界面要求，選擇頁(yè)框?qū)ο?，在各?yè)上放上相應(yīng)控件上相應(yīng)控件調(diào)整排列各控件的位置調(diào)整排列各控件的位置1. 編寫(xiě)相關(guān)的事件代碼編寫(xiě)相關(guān)的事件代碼主要事件：主要事件：select 1use 學(xué)生學(xué)生select 2use 課程課程select 3use 成績(jī)成績(jī)select 學(xué)生學(xué)生this.caption=學(xué)生學(xué)籍信息查詢(xún)學(xué)生學(xué)籍信息查詢(xún)c=學(xué)生課程成績(jī)學(xué)生課程成績(jī)for i=1 to this.pageframe1.pagecount this.pagef

33、rame1.pages(i).caption=substr(c,4*(i-1)+1,4)endforthis.setall(readonly,.t.,textbox)this.pageframe1.page1.check1.readonly=.t.this.pageframe1.page1.edit1.readonly=.t.this.pageframe1.page1.oleboundcontrol1.enabled=.f.Form1 init事件：事件：with this.pageframe1.page1 .list1.rowsourcetype=6 .list1.rowsource=學(xué)生學(xué)生.姓名姓名 .label1.cap