VFP第6章 表單及其控件的創(chuàng)建及使用

1、內(nèi)容提要6.2.1 利用向?qū)?chuàng)建基于一個(gè)表（視圖）的表單6.2.2 利用向?qū)?chuàng)建一對(duì)多表單6.3.1 表單設(shè)計(jì)器概述6.3.1 表單設(shè)計(jì)器概述1. 表單設(shè)計(jì)環(huán)境的設(shè)置 在“選項(xiàng)”對(duì)話框的“表單”選項(xiàng)卡和“控件”選項(xiàng)卡中，可設(shè)置表單設(shè)計(jì)器的工作環(huán)境。如，設(shè)置“最大設(shè)計(jì)區(qū)”為“800600”。2. “表單”菜單3. “表單設(shè)計(jì)器”工具欄教材P.170表6-14. “表單控件”工具欄5. “布局”工具欄6. “調(diào)色板”工具欄7. “屬性”窗口屬性設(shè)置說(shuō)明：8. 新建屬性和方法6.3.1 表單設(shè)計(jì)器概述6.3.2 事件與方法的代碼設(shè)置6.3.3 表單的數(shù)據(jù)環(huán)境 表單（集）的數(shù)據(jù)環(huán)境包括了與表單交互作用

2、的表和視圖，以及表之間的關(guān)系。在表單中引入數(shù)據(jù)環(huán)境的目的在于：打開(kāi)或運(yùn)行表單時(shí)，數(shù)據(jù)環(huán)境中的表和視圖將自動(dòng)被打開(kāi)，關(guān)閉或釋放表單時(shí)將自動(dòng)關(guān)閉表和視圖；在屬性窗口中設(shè)置一些對(duì)象的Control Source（控件的數(shù)據(jù)源）等屬性時(shí)，系統(tǒng)將“數(shù)據(jù)環(huán)境”中所有表和視圖或全部字段列在屬性設(shè)置下拉列表框中。6.3.3 表單的數(shù)據(jù)環(huán)境1. 數(shù)據(jù)環(huán)境的設(shè)置2. 控件與數(shù)據(jù)的關(guān)系6.3.4 使用表單設(shè)計(jì)器修改表單Modify Form 1. 修改表單布局2. 修改表單外觀3. 控件生成器在控件上右擊生成器6.3.5 使用表單生成器創(chuàng)建表單Create Form 1. 利用表單生成器創(chuàng)建表單2. 利用數(shù)據(jù)環(huán)境創(chuàng)

3、建表單中的控件3. 利用“表單控件”工具欄向表單中添加控件4. 表單的保存與運(yùn)行6.3.6 用表單集擴(kuò)展表單表單集表單集（FormSet）可將多個(gè)表單作為一個(gè)組來(lái)操縱。使用表單集有如下優(yōu)點(diǎn)：6.3.7 控制表單的行為表單常用屬性6.3.8 創(chuàng)建單文檔界面與多文檔界面 控件是放在表單上用以顯示數(shù)據(jù)、執(zhí)行操作或使表單更易閱讀的一種對(duì)象。各種控件有一定的應(yīng)用指向，表單中的控件應(yīng)根據(jù)所要實(shí)現(xiàn)的功能（或完成的任務(wù)）而進(jìn)行選擇。6.4.1 標(biāo)簽(Label)1. 常用屬性6.4.2 文本框與編輯框(TextBox & EditBox)1. 常用屬性6.4.3 列表框(ListBox)1. 常用屬性

4、2. 常用方法MultiSelected:RowSourceType:RowSource:6.4.4 組合框(ComboBox)示例：當(dāng)用戶在下拉列示例：當(dāng)用戶在下拉列表框中選擇一個(gè)職稱后表框中選擇一個(gè)職稱后要求列表框中顯示該職要求列表框中顯示該職稱的所有教師姓名。稱的所有教師姓名。6.4.5 選項(xiàng)按鈕組(OptionGroup)1. 常用屬性【注】如果在設(shè)計(jì)時(shí)將Value值設(shè)為字符型數(shù)據(jù)，或通過(guò)代碼將其值設(shè)為字符型數(shù)據(jù)，或通過(guò)ControlSource屬性將該控件綁定到一個(gè)字符型字段，則Value屬性保存的數(shù)據(jù)為字符型數(shù)據(jù)，選擇某選項(xiàng)按鈕時(shí)將保存其Caption屬性值。往往采用DO-CASE

5、結(jié)構(gòu)處理用戶的不同選擇。數(shù)據(jù)環(huán)境：數(shù)據(jù)環(huán)境：Text1的的ControlSource:Text2的的ControlSource:ximc、xsximc.xmcn6.4.6 復(fù)選框(CheckBox) 可以利用復(fù)選框指定或顯示一個(gè)邏輯狀態(tài)，可與邏輯型字段綁定。常用屬性有：【注】通常情況下，用復(fù)選框處理邏輯型字段，也可綁定到邏輯型字段上。但也常常用復(fù)選框來(lái)指定是否啟動(dòng)某個(gè)功能或條件等。復(fù)選框控件不能綁定到邏輯型和數(shù)值型以外的字段，如果綁定到數(shù)值型字段上，則該數(shù)值型字段的值會(huì)影響控件選中狀態(tài)（0為未選中、1為選中、其它為灰色狀態(tài)）；而用戶的選擇也將影響該綁定字段的值（選中為1、未選中為0）6.4.7

6、 微調(diào)框(CheckBox)6.4.8 表格(Grid) 表格表格是一個(gè)按行和列顯示數(shù)據(jù)的容器對(duì)象，外觀與瀏覽窗口相似。表格包含列列（Column）控件，而列控件又由標(biāo)頭標(biāo)頭（Header）和顯示數(shù)據(jù)的控件（默默認(rèn)為文本框認(rèn)為文本框控件）組成。表格、列、標(biāo)頭和顯示數(shù)據(jù)的控件均有自己的屬性、事件和方法。表格常用屬性：題目要求：題目要求：用戶選擇系代號(hào)，表格上方標(biāo)簽上要求顯示所選系名+教師名單，同時(shí)在表格控件中顯示該系教師的工號(hào)、姓名、性別、職稱的信息。組合框控件相關(guān)屬性：RowSourceType:RowSource:表格控件相關(guān)屬性：RecordSourceType: RowSource:組合

7、框控件的InteractiveChange代碼：xx=this.valueThisform.Label2.caption=ximc.xmc-教師名單：教師名單：Thisform.grid1.recordSource= select gh,xm,xb,zc ; from js where xdh=xx into cursor temp2Thisform.refresh6ximc.xdh4select gh,xm,xb,zc from js 6.4.9 計(jì)時(shí)器(Timer) 計(jì)時(shí)器計(jì)時(shí)器是用于處理在一定時(shí)間間隔內(nèi)反復(fù)執(zhí)行某種事務(wù)的控件。將需要重復(fù)執(zhí)行的代碼寫(xiě)入計(jì)時(shí)器的Timer事件過(guò)程中，計(jì)時(shí)器會(huì)

8、根據(jù)其Interval屬性中設(shè)置的時(shí)間間隔自動(dòng)觸發(fā)其Timer事件從而定時(shí)執(zhí)行其中的代碼，完成實(shí)際應(yīng)用的任務(wù)。計(jì)時(shí)器控件無(wú)Visible屬性，設(shè)計(jì)時(shí)可見(jiàn)，運(yùn)行時(shí)不可見(jiàn)。 1000Thisform.LABEL1.Caption=TIME()Thisform.LABEL1.Caption=TIME()If This.Caption=If This.Caption=開(kāi)始開(kāi)始 This.Caption= This.Caption=停止停止 Thisform.Timer1.Enabled=.T. Thisform.Timer1.Enabled=.T.ELSEELSE This.Caption= This

9、.Caption=開(kāi)始開(kāi)始 Thisform.Timer1.Enabled=.F. Thisform.Timer1.Enabled=.F.ENDIFENDIF6.4.10 線條(Line)與形狀(Shape) 線條線條控件控件是用于創(chuàng)建一個(gè)水平線、豎直線或?qū)蔷€，主要起到裝飾之用。主要屬性有：n LineSlant: 指線條傾斜方向，默認(rèn)為指線條傾斜方向，默認(rèn)為“” 。n BorderWidth: 指定線條的線寬，范圍指定線條的線寬，范圍08192像素點(diǎn)像素點(diǎn)n BorderStyle: 指定線條的線型指定線條的線型 形狀形狀控件控件是用于創(chuàng)建多種形狀圖形，如矩形、橢圓或圓等。主要屬性有：n

10、Curvature: 曲率（彎曲程度）曲率（彎曲程度）, 范圍范圍099 , 默認(rèn)為默認(rèn)為0n FillStyle: 指定用來(lái)填充形狀的圖案指定用來(lái)填充形狀的圖案n FillColor: 指定填充顏色指定填充顏色n SpecialEffect: 指定控件的樣式（三維或平面）指定控件的樣式（三維或平面）Thisform.Shape1.Curvature=This.ValueThisform.Shape1.Curvature=This.Value6.4.11 命令按鈕(CommandButton)與 命令按鈕組(CommandGroup) 命令按鈕命令按鈕控件主要用來(lái)啟動(dòng)一個(gè)事件以完成某種功能。使

11、用頻率較高。其常用屬性如下：LOCATE FOR ALLT(Js.xm)=ALLT(Thisform.Text1.Value); And ALLT(Js.gh)=ALLT(Thisform.Text2.Value)IF !EOF()=MESSAGEBOX(歡迎使用！)ELSE=MESSAGEBOX(用戶名或口令不正確！)ENDIFThisform.Release6.4.11 命令按鈕(CommandButton)與 命令按鈕組(CommandGroup) 命令按鈕組命令按鈕組控件是包含一組命令按鈕的一種容器控件。通常用于處理相似事務(wù)的控制，用命令按鈕組統(tǒng)一設(shè)置屬性、統(tǒng)一編碼。其常用屬性如下：DO CASE DO CASE CASE THIS.VALUE=1CASE THIS.VALUE=1GO TOPGO TOPCASE THIS.VALUE=2CASE THIS.VALUE=2IF !EOF()IF !EOF()SKIPSKIPENDIFENDIFCASE THIS.VALUE=3CASE THIS.VALUE=3IF !BOF()IF !BOF()SKIP -1SKIP -1ENDIFE