Visual FoxPro 60 應(yīng)用基礎(chǔ)與面向?qū)ο蟪绦蛟O(shè)計(jì)第十二章課件

1、1第十二章第十二章 表單設(shè)計(jì)及運(yùn)行表單設(shè)計(jì)及運(yùn)行 創(chuàng)建表單創(chuàng)建表單 修改表單修改表單 運(yùn)行表單運(yùn)行表單 表單控件簡(jiǎn)介表單控件簡(jiǎn)介 表單表單（Form）界面界面，又又稱(chēng)為窗口。稱(chēng)為窗口。 它是一個(gè)容器，它可以放置多個(gè)控件。它是一個(gè)容器，它可以放置多個(gè)控件。 在建立表單的過(guò)程中，要定義控件的屬性、在建立表單的過(guò)程中，要定義控件的屬性、確定事件或方法的代碼。確定事件或方法的代碼。 表單文件一旦被建立，就自動(dòng)建立表單文件一旦被建立，就自動(dòng)建立擴(kuò)展名擴(kuò)展名為為.SCX 的表單文件。的表單文件。3 12.1.1 12.1.1 用用 創(chuàng)建表單創(chuàng)建表單 使用系統(tǒng)提供的表單設(shè)計(jì)器創(chuàng)建新的表單，使用系統(tǒng)提供的表單

2、設(shè)計(jì)器創(chuàng)建新的表單，可以有多種方法可以有多種方法: :(1) (1) 、使用菜單、使用菜單( P220 )(2) (2) 、在項(xiàng)目管理器中創(chuàng)建、在項(xiàng)目管理器中創(chuàng)建 ( 補(bǔ)充補(bǔ)充 )(3) (3) 、使用命令、使用命令( P221 )4 ( P220 ) 1 1、打開(kāi)、打開(kāi)“文件文件”菜單，選擇菜單，選擇“新建新建”；在；在“新建新建”窗口，選擇窗口，選擇“表單表單”，再按，再按“新建文新建文件件”按鈕，進(jìn)入按鈕，進(jìn)入“表單設(shè)計(jì)器表單設(shè)計(jì)器”窗口；窗口； 2 2、右擊打開(kāi)快捷菜單或直接打開(kāi)、右擊打開(kāi)快捷菜單或直接打開(kāi)“顯示顯示”菜單，完成對(duì)表單屬性、事件和方法的定義：菜單，完成對(duì)表單屬性、事件和

3、方法的定義： 3 3、再選擇、再選擇“保存保存”，表單建立完成。，表單建立完成。5 ( 補(bǔ)充補(bǔ)充 )1 1、先打開(kāi)項(xiàng)目管理器；、先打開(kāi)項(xiàng)目管理器；2 2、選擇、選擇 “文檔文檔” 選項(xiàng)卡中的選項(xiàng)卡中的“表單表單” ；3 3、然后單擊、然后單擊 “新建新建” 按鈕按鈕 ；4 4、在打開(kāi)的、在打開(kāi)的 “新建表單新建表單” 對(duì)話框中選擇對(duì)話框中選擇“新建表單新建表單”，打開(kāi)，打開(kāi)“表單設(shè)計(jì)器表單設(shè)計(jì)器”。6使用命令方式創(chuàng)建表單使用命令方式創(chuàng)建表單 ( P221 ) CREATE FORM . SCX 操作步驟操作步驟 （ 見(jiàn)見(jiàn) P 221 P 221 ） 注：注：生成的表單文件的擴(kuò)展名是生成的表單文

4、件的擴(kuò)展名是 . SCX7 1、顯示數(shù)據(jù)表內(nèi)容的表單；顯示數(shù)據(jù)表內(nèi)容的表單； 、利用、利用 “ 向?qū)驅(qū)?” 創(chuàng)建；創(chuàng)建； 、手工建立。、手工建立。 2、與數(shù)據(jù)表無(wú)關(guān)的表單與數(shù)據(jù)表無(wú)關(guān)的表單； 手工建立手工建立 ：生成的表單文件的擴(kuò)展名是生成的表單文件的擴(kuò)展名是 . SCX8 12.1.2 12.1.2 使用使用創(chuàng)建表單創(chuàng)建表單 1、用表單向?qū)?chuàng)建用表單向?qū)?chuàng)建單表單表表單表單 操作步驟操作步驟 （ 見(jiàn)見(jiàn) P 221223 P 221223 ） 例例 12.2 12.2 用表單向?qū)?chuàng)建用表單向?qū)?chuàng)建 Rcda 的瀏覽表的瀏覽表單單, ,名字為名字為: : form2.scx9 12.1.2.

5、12.1.2. 使用使用創(chuàng)建表單創(chuàng)建表單 2 2、用表單向?qū)?chuàng)建一對(duì)多數(shù)據(jù)表單用表單向?qū)?chuàng)建一對(duì)多數(shù)據(jù)表單 操作步驟操作步驟 （ 見(jiàn)見(jiàn) P 223227 P 223227 ） 例例 12.3 12.3 用表單向?qū)?chuàng)建用表單向?qū)?chuàng)建 Rcda和和Cjda 的瀏覽表單的瀏覽表單, ,名字為名字為: : form3.scx10一、菜單方式一、菜單方式文件文件 / 打開(kāi)打開(kāi) /表單表單 進(jìn)入表單設(shè)計(jì)器窗口進(jìn)入表單設(shè)計(jì)器窗口在在屬性對(duì)話框?qū)傩詫?duì)話框中修改表單及各控件屬性中修改表單及各控件屬性 例例 12.4 12.4 （ 見(jiàn)見(jiàn) P 227229 P 227229 ）二、命令方式二、命令方式 MODIFY

6、 FORM . SCX11 方法一：方法一：在表單設(shè)計(jì)器中運(yùn)行表單在表單設(shè)計(jì)器中運(yùn)行表單 1、單擊工具欄的單擊工具欄的 “ ！” 運(yùn)行按鈕運(yùn)行按鈕 2、 右鍵彈出菜單右鍵彈出菜單/ / 選擇選擇 “ “執(zhí)行表單執(zhí)行表單” 方法二：方法二：命令方式命令方式 DO FORM . SCX 例：例： Do formDo form 方程求根方程求根 . .SCXSCX12 1、顯示數(shù)據(jù)表內(nèi)容的表單；顯示數(shù)據(jù)表內(nèi)容的表單； 、利用、利用 “ 向?qū)驅(qū)?” 創(chuàng)建；創(chuàng)建； 、手工建立。、手工建立。 2、與數(shù)據(jù)表無(wú)關(guān)的表單與數(shù)據(jù)表無(wú)關(guān)的表單； 手工建立手工建立 ：生成的表單文件的擴(kuò)展名是生成的表單文件的擴(kuò)展名是

7、 . SCX13 操作步驟：操作步驟： 單擊控件工具欄單擊控件工具欄“控件圖標(biāo)控件圖標(biāo)”，然后，然后在表單上拖放到合適位置和大小。在表單上拖放到合適位置和大小。 （ P 230231 P 230231 ）14 “ “標(biāo)簽標(biāo)簽”是按一定格式顯示在表單上的文是按一定格式顯示在表單上的文本。本。 它用來(lái)顯示各種說(shuō)明和提示。它用來(lái)顯示各種說(shuō)明和提示。15序號(hào)屬性屬性功能1 標(biāo)簽顯示文本的內(nèi)容2Top標(biāo)簽上邊界與容器上邊界的距離3Left標(biāo)簽左邊界與容器右邊界的距離4Height標(biāo)簽自身高度5Width標(biāo)簽自身寬度6Back Style標(biāo)簽背景是否透明7標(biāo)簽背景顏色8Auto Size標(biāo)簽根據(jù)內(nèi)容是否自

8、動(dòng)改變大小9 Name標(biāo)簽顯示文本的字體名10Size標(biāo)簽顯示文本的字體大小11 Color標(biāo)簽顯示文本的字體顏色 表表12-1 12-1 標(biāo)簽標(biāo)簽 屬性屬性：（ P P 231） 16 主要用于一般數(shù)據(jù)的輸入、輸出。主要用于一般數(shù)據(jù)的輸入、輸出。 它與標(biāo)簽在外觀和數(shù)據(jù)源都不同。它與標(biāo)簽在外觀和數(shù)據(jù)源都不同。17 表表12-212-2 文本框文本框 屬性：屬性：序號(hào)屬性屬性功能1Top文本框上邊界與容器上邊界的距離2Left文本框左邊界與容器右邊界的距離3Height文本框自身高度4Width文本框自身寬度5文本框的當(dāng)前值6文本框的數(shù)據(jù)來(lái)源7Password Char文本框內(nèi)數(shù)據(jù)顯示的隱含字符

9、8 Name標(biāo)簽顯示文本的字體名9Size標(biāo)簽顯示文本的字體大小10 Color標(biāo)簽顯示文本的字體顏色 、取出文本框、取出文本框Text1的值：的值： X = ThisForm .Text1 .Value 、把把X X的值放入文本框的值放入文本框Text2顯示顯示： ThisForm .Text2 .Value = X 19表表12-312-3 計(jì)時(shí)器計(jì)時(shí)器 屬性：屬性：序號(hào)屬性屬性功能1Enabled控制計(jì)時(shí)器的打開(kāi)與關(guān)閉2用于定義兩次計(jì)算器事件的時(shí)間間隔（毫秒級(jí)） 20 主要用于控制程序的執(zhí)行。主要用于控制程序的執(zhí)行。 “ “命令按鈕命令按鈕”的動(dòng)作響應(yīng)，主的動(dòng)作響應(yīng)，主要由要由 CLIC

10、KCLICK事件代碼決定。事件代碼決定。21 命令按鈕命令按鈕 屬性屬性：序號(hào)屬性屬性功能1命令按鈕顯示文本的內(nèi)容2Top命令按鈕上邊界與容器上邊界的距離3Left命令按鈕左邊界與容器右邊界的距離4Height命令按鈕自身高度5Width命令按鈕自身寬度6命令按鈕根據(jù)顯示文本內(nèi)容是否自動(dòng)改變大小7 Name命令按鈕顯示文本的字體名8Size命令按鈕顯示文本的字體大小9 Color命令按鈕顯示文本的字體顏色22序號(hào)屬性屬性功能1Top命令按鈕組上邊界與容器上邊界的距離2Left命令按鈕組左邊界與容器右邊界的距離3Height命令按鈕組自身高度4Width命令按鈕組自身寬度5設(shè)置命令按鈕的個(gè)數(shù)6

11、按鈕排列的序號(hào)23 組合框組合框 屬性屬性：序號(hào)屬性屬性功能1Top組合框上邊界與容器上邊界的距離2Left組合框左邊界與容器右邊界的距離3Height組合框自身高度4Width組合框自身寬度5Row Source組合框的數(shù)據(jù)來(lái)源6Row Source Type組合框數(shù)據(jù)源的存儲(chǔ)類(lèi)型7組合框的當(dāng)前值24序號(hào)屬性屬性功能1單選按鈕控件組個(gè)數(shù)序號(hào)屬性屬性功能1Control Source單選按鈕數(shù)據(jù)來(lái)源2單選按鈕當(dāng)前值表表12-6 12-6 單選按鈕組屬性單選按鈕組屬性表表12-7 12-7 單選按鈕屬性單選按鈕屬性25表表12-812-8 微調(diào)控件微調(diào)控件屬性：屬性：序號(hào)屬性屬性功能1Top上邊

12、界與容器上邊界的距離2Left左邊界與容器右邊界的距離3Height自身高度4Width自身寬度1微調(diào)框輸入數(shù)據(jù)的最大值2微調(diào)框輸入數(shù)據(jù)的最小值3每次單擊按鈕的增減值4微調(diào)框中數(shù)據(jù)的當(dāng)前值26序號(hào)屬性屬性功能1Control Source復(fù)選框的數(shù)據(jù)來(lái)源2復(fù)選框上顯示文本的內(nèi)容3復(fù)選框的當(dāng)前值表表12-9 12-9 復(fù)選框復(fù)選框?qū)傩裕簩傩裕?7表表12-10 12-10 圖像控件圖像控件屬性：屬性：序號(hào)屬性屬性功能1Stretch圖像大小的調(diào)節(jié)與控制2圖像的當(dāng)前值28表表12-1112-11 表格控件表格控件屬性：屬性：序號(hào)屬性屬性功能1表格的列數(shù)2Link Master表格中數(shù)據(jù)鏈接的主表3

13、表格數(shù)據(jù)的來(lái)源29表表12-1412-14 頁(yè)框控件頁(yè)框控件屬性屬性：序號(hào)屬性屬性功能1Active Page頁(yè)框活動(dòng)的頁(yè)號(hào)2Page Count頁(yè)框包含的頁(yè)數(shù) 示例：示例： 求任一圓的面積求任一圓的面積 （1 1）、創(chuàng)建表單并設(shè)置表單本身屬性；）、創(chuàng)建表單并設(shè)置表單本身屬性； （2 2）、在表單中添加所需的控件對(duì)象；）、在表單中添加所需的控件對(duì)象； （3 3）、設(shè)計(jì)控件對(duì)象的操作；）、設(shè)計(jì)控件對(duì)象的操作； （4 4）、編寫(xiě)對(duì)象響應(yīng)的程序代碼。）、編寫(xiě)對(duì)象響應(yīng)的程序代碼。表單本身一個(gè)容器類(lèi)。表單本身一個(gè)容器類(lèi)。主要設(shè)置的屬性主要設(shè)置的屬性: : Caption 標(biāo)題標(biāo)題 Name 表單名表單名

14、( 其他常用屬性如其他常用屬性如 表表7.1 )32 ( 主要工具圖標(biāo)介紹主要工具圖標(biāo)介紹 ) （1） 設(shè)置設(shè)置 Ta b 鍵的次序；鍵的次序； （2） 數(shù)據(jù)環(huán)境；數(shù)據(jù)環(huán)境； （3） 屬性窗口；屬性窗口； （4） 代碼窗口；代碼窗口； （5） 表單控件工具欄；表單控件工具欄； 33 屬性窗口組成：屬性窗口組成： （1 1） 對(duì)象選擇列表框?qū)ο筮x擇列表框； （2 2） 屬性分類(lèi)頁(yè)；屬性分類(lèi)頁(yè)； （3 3） 屬性設(shè)置框?qū)傩栽O(shè)置框； （4 4） 屬性列表框?qū)傩粤斜砜颍?（5 5） 屬性說(shuō)明框?qū)傩哉f(shuō)明框。 、Release、Refresh 、Release 將表單從內(nèi)存中釋放掉，即將表單從內(nèi)存中釋放掉

15、，即。 這是退出表單的基本方法。這是退出表單的基本方法。 格式：格式： 、Refresh 重新獲取表單有關(guān)參數(shù)，即重新獲取表單有關(guān)參數(shù)，即。 格式：格式： 使用表單的目的是想通過(guò)表單來(lái)操作數(shù)據(jù)使用表單的目的是想通過(guò)表單來(lái)操作數(shù)據(jù)庫(kù)，通過(guò)數(shù)據(jù)環(huán)境的定義可以庫(kù)，通過(guò)數(shù)據(jù)環(huán)境的定義可以 1、游標(biāo)、游標(biāo) 工作區(qū)上打開(kāi)的表工作區(qū)上打開(kāi)的表 372、數(shù)據(jù)環(huán)境設(shè)計(jì)器操作：、數(shù)據(jù)環(huán)境設(shè)計(jì)器操作： 3、數(shù)據(jù)環(huán)境與、數(shù)據(jù)環(huán)境與 Control Source 屬性聯(lián)系。屬性聯(lián)系。 38方法一：選擇方法一：選擇 “文件文件” 菜單中的菜單中的 “保存保存” ；方法二：?jiǎn)螕艄ぞ邫谏系姆椒ǘ簡(jiǎn)螕艄ぞ邫谏系?“保存保存”

16、 按鈕；按鈕；39 方法一：方法一：在表單設(shè)計(jì)器中運(yùn)行表單在表單設(shè)計(jì)器中運(yùn)行表單 1、單擊工具欄的單擊工具欄的 “ ！” 運(yùn)行按鈕運(yùn)行按鈕 2、 右鍵彈出菜單右鍵彈出菜單/ / 選擇選擇 “ “執(zhí)行表單執(zhí)行表單” 方法二：方法二：命令方式命令方式 DO FORM . SCX 例：例： Do formDo form 方程求根方程求根 . .SCXSCX補(bǔ)充：補(bǔ)充： 控件應(yīng)用初步控件應(yīng)用初步 在在“表單設(shè)計(jì)器表單設(shè)計(jì)器”窗口中設(shè)計(jì)應(yīng)用表單時(shí)，隨窗口中設(shè)計(jì)應(yīng)用表單時(shí)，隨時(shí)可以時(shí)可以，它包含，它包含3種控件：標(biāo)準(zhǔn)控件、種控件：標(biāo)準(zhǔn)控件、ActiveX控件和自定義控件?？丶妥远x控件。( 前面介紹前面

17、介紹 ) 2 ActiveX控件控件 （ 略略 ） 3自定義控件自定義控件 （ 略略 ） 設(shè)計(jì)表單上有一個(gè)標(biāo)題。設(shè)計(jì)表單上有一個(gè)標(biāo)題。 標(biāo)題為標(biāo)題為“”。 、 Caption Caption 、 FontSize FontSize 、 FontColorFontColor 、 BackColorBackColor 圖圖7.15 與與 控件是在表單上控件是在表單上畫(huà)簡(jiǎn)單圖形的控件。畫(huà)簡(jiǎn)單圖形的控件。 上例中給標(biāo)題下面畫(huà)一條線，單擊上例中給標(biāo)題下面畫(huà)一條線，單擊“控件控件工具欄工具欄”中的中的“線條線條”控件，然后在表單標(biāo)控件，然后在表單標(biāo)題下面單擊拖動(dòng)鼠標(biāo)就可以畫(huà)一條直線。題下面單擊拖動(dòng)鼠標(biāo)就可

18、以畫(huà)一條直線。 “線條線條”屬性：屬性： Border Width線寬。線寬。設(shè)置線條的寬度設(shè)置線條的寬度 1、單擊控件，這時(shí)控件四周有、單擊控件，這時(shí)控件四周有 。在某一控點(diǎn)上拖動(dòng)鼠標(biāo)，即可改變控件的在某一控點(diǎn)上拖動(dòng)鼠標(biāo)，即可改變控件的； 2、在控點(diǎn)外的任意地方拖動(dòng)鼠標(biāo)，即可移動(dòng)、在控點(diǎn)外的任意地方拖動(dòng)鼠標(biāo)，即可移動(dòng)控件的控件的。 1、 形狀可以是矩形、正方形、圓、橢圓及圓形狀可以是矩形、正方形、圓、橢圓及圓角矩形等。角矩形等。 2、 形狀的樣式要通過(guò)形狀的樣式要通過(guò)控制：控制： 文本框文本框文本框的常用屬性文本框的常用屬性 Value Value 文本框的值文本框的值 Control So

19、urce Control Source 數(shù)據(jù)源數(shù)據(jù)源例例 7.87.8 在在 學(xué)生登記卡學(xué)生登記卡.SCX 表單中，創(chuàng)建表單中，創(chuàng)建 顯示學(xué)號(hào)、姓名、出生日期字段文本框。顯示學(xué)號(hào)、姓名、出生日期字段文本框。 、取出文本框、取出文本框Text1的值：的值： X = ThisForm .Text1 .Value 、把把X X的值放入文本框的值放入文本框Text2顯示顯示： ThisForm .Text2 .Value = X 一、一、 命令按鈕命令按鈕和和命令按鈕組命令按鈕組 使用命令按鈕和命令按鈕組，可以執(zhí)行相應(yīng)使用命令按鈕和命令按鈕組，可以執(zhí)行相應(yīng)程序代碼來(lái)實(shí)現(xiàn)某一功能。程序代碼來(lái)實(shí)現(xiàn)某一功能

20、。 1 命令按鈕命令按鈕 給上例表單設(shè)計(jì)如下圖示五個(gè)給上例表單設(shè)計(jì)如下圖示五個(gè)“命令按鈕命令按鈕” 。圖圖7.22 、給、給 “第一條第一條” 命令按鈕命令按鈕的的 Click事件事件 加入代碼如下：加入代碼如下： GO TOP ThisForm . Command2 . Enabled = .F. ThisForm . Command3 . Enabled = .T. ThisForm . Refresh 、 給給 “上一條上一條” ” 命令按鈕命令按鈕 的的 Click Click事件事件 加入代碼如下加入代碼如下 ： IF .not. Bof ( ) SKIP 1 ELSE GO Top

21、 ENDIF ThisForm . Command3 . Enabled = .T. ThisForm . Refresh、給、給 “下一條下一條” 命令按鈕命令按鈕 的的 Click事件事件 編寫(xiě)代碼。編寫(xiě)代碼。 IF .not. Eof ( ) SKIP 1 ELSE GO Bottom End IF ThisForm . Command2 . Enabled = .T. ThisForm . Refresh 、給給 “最后一條最后一條” 命令按鈕命令按鈕 的的 Click事件事件 編寫(xiě)代編寫(xiě)代碼。碼。 GO Bottom ThisForm . Command3 . Enabled = .

22、F. ThisForm . Command2 . Enabled = .T. ThisForm . Refresh 、給給 “退出退出” 命令按鈕命令按鈕 的的 Click事件事件 編寫(xiě)代碼。編寫(xiě)代碼。 Thisform . Release clear events 通常將移動(dòng)記錄指針的操作稱(chēng)之為通常將移動(dòng)記錄指針的操作稱(chēng)之為 “數(shù)據(jù)導(dǎo)航數(shù)據(jù)導(dǎo)航” 。實(shí)現(xiàn)數(shù)據(jù)導(dǎo)航也可以使用命令按鈕組和移動(dòng)記錄實(shí)現(xiàn)數(shù)據(jù)導(dǎo)航也可以使用命令按鈕組和移動(dòng)記錄指針命令來(lái)實(shí)現(xiàn)。指針命令來(lái)實(shí)現(xiàn)。 【例【例7】在】在“學(xué)生登記卡學(xué)生登記卡”表單中，利用表單中，利用設(shè)計(jì)數(shù)據(jù)導(dǎo)航。設(shè)計(jì)數(shù)據(jù)導(dǎo)航。 、在、在“表單控件表單控件”中單

23、擊中單擊“命令按鈕命令按鈕組組”圖標(biāo)，然后在表單上單擊拖動(dòng)，就將命令圖標(biāo)，然后在表單上單擊拖動(dòng)，就將命令按鈕組放置在表單上。（按鈕組放置在表單上。（ 命令按鈕組總是以一命令按鈕組總是以一組命令按鈕的方式給出，初始的命令按鈕組給組命令按鈕的方式給出，初始的命令按鈕組給出二個(gè)按鈕：出二個(gè)按鈕：Command1和和Command2。）。） 、然后按右鍵，在彈出菜單中選命令、然后按右鍵，在彈出菜單中選命令組組修改。（如下圖）修改。（如下圖）圖圖 1圖圖 2 命令按鈕組的單擊命令按鈕組的單擊(Click)事件代碼的設(shè)計(jì)事件代碼的設(shè)計(jì): Commmand . ClickDO CASE & 選選第一條第一條 & 選選上一條上一條 & 選選下一條下一條 & 最后一條最后一條 ENDCASE注意：以上設(shè)計(jì)的數(shù)據(jù)導(dǎo)航，可通