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

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

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

3、方法的定義： 3 3、再選擇、再選擇“保存保存”，表單建立完成。，表單建立完成。5 ( 補(bǔ)充補(bǔ)充 )1 1、先打開項目管理器；、先打開項目管理器；2 2、選擇、選擇 “文檔文檔” 選項卡中的選項卡中的“表單表單” ；3 3、然后單擊、然后單擊 “新建新建” 按鈕按鈕 ；4 4、在打開的、在打開的 “新建表單新建表單” 對話框中選擇對話框中選擇“新建表單新建表單”，打開，打開“表單設(shè)計器表單設(shè)計器”。6使用命令方式創(chuàng)建表單使用命令方式創(chuàng)建表單 ( P221 ) CREATE FORM . SCX 操作步驟操作步驟 （ 見見 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ù)表無關(guān)的表單與數(shù)據(jù)表無關(guān)的表單； 手工建立手工建立 ：生成的表單文件的擴(kuò)展名是生成的表單文件的擴(kuò)展名是 . SCX8 12.1.2 12.1.2 使用使用創(chuàng)建表單創(chuàng)建表單 1、用表單向?qū)?chuàng)建用表單向?qū)?chuàng)建單表單表表單表單 操作步驟操作步驟 （ 見見 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)建一對多數(shù)據(jù)表單用表單向?qū)?chuàng)建一對多數(shù)據(jù)表單 操作步驟操作步驟 （ 見見 P 223227 P 223227 ） 例例 12.3 12.3 用表單向?qū)?chuàng)建用表單向?qū)?chuàng)建 Rcda和和Cjda 的瀏覽表單的瀏覽表單, ,名字為名字為: : form3.scx10一、菜單方式一、菜單方式文件文件 / 打開打開 /表單表單 進(jìn)入表單設(shè)計器窗口進(jìn)入表單設(shè)計器窗口在在屬性對話框?qū)傩詫υ捒蛑行薷谋韱渭案骺丶傩灾行薷谋韱渭案骺丶傩?例例 12.4 12.4 （ 見見 P 227229 P 227229 ）二、命令方式二、命令方式 MODIFY

6、 FORM . SCX11 方法一：方法一：在表單設(shè)計器中運(yùn)行表單在表單設(shè)計器中運(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ù)表無關(guān)的表單與數(shù)據(jù)表無關(guān)的表單； 手工建立手工建立 ：生成的表單文件的擴(kuò)展名是生成的表單文件的擴(kuò)展名是

7、 . SCX13 操作步驟：操作步驟： 單擊控件工具欄單擊控件工具欄“控件圖標(biāo)控件圖標(biāo)”，然后，然后在表單上拖放到合適位置和大小。在表單上拖放到合適位置和大小。 （ P 230231 P 230231 ）14 “ “標(biāo)簽標(biāo)簽”是按一定格式顯示在表單上的文是按一定格式顯示在表單上的文本。本。 它用來顯示各種說明和提示。它用來顯示各種說明和提示。15序號屬性屬性功能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、動改變大小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 文本框文本框 屬性：屬性：序號屬性屬性功能1Top文本框上邊界與容器上邊界的距離2Left文本框左邊界與容器右邊界的距離3Height文本框自身高度4Width文本框自身寬度5文本框的當(dāng)前值6文本框的數(shù)據(jù)來源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 計時器計時器 屬性：屬性：序號屬性屬性功能1Enabled控制計時器的打開與關(guān)閉2用于定義兩次計算器事件的時間間隔（毫秒級） 20 主要用于控制程序的執(zhí)行。主要用于控制程序的執(zhí)行。 “ “命令按鈕命令按鈕”的動作響應(yīng)，主的動作響應(yīng)，主要由要由 CLIC

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

11、按鈕排列的序號23 組合框組合框 屬性屬性：序號屬性屬性功能1Top組合框上邊界與容器上邊界的距離2Left組合框左邊界與容器右邊界的距離3Height組合框自身高度4Width組合框自身寬度5Row Source組合框的數(shù)據(jù)來源6Row Source Type組合框數(shù)據(jù)源的存儲類型7組合框的當(dāng)前值24序號屬性屬性功能1單選按鈕控件組個數(shù)序號屬性屬性功能1Control Source單選按鈕數(shù)據(jù)來源2單選按鈕當(dāng)前值表表12-6 12-6 單選按鈕組屬性單選按鈕組屬性表表12-7 12-7 單選按鈕屬性單選按鈕屬性25表表12-812-8 微調(diào)控件微調(dià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序號屬性屬性功能1Control Source復(fù)選框的數(shù)據(jù)來源2復(fù)選框上顯示文本的內(nèi)容3復(fù)選框的當(dāng)前值表表12-9 12-9 復(fù)選框復(fù)選框?qū)傩裕簩傩裕?7表表12-10 12-10 圖像控件圖像控件屬性：屬性：序號屬性屬性功能1Stretch圖像大小的調(diào)節(jié)與控制2圖像的當(dāng)前值28表表12-1112-11 表格控件表格控件屬性：屬性：序號屬性屬性功能1表格的列數(shù)2Link Master表格中數(shù)據(jù)鏈接的主表3

13、表格數(shù)據(jù)的來源29表表12-1412-14 頁框控件頁框控件屬性屬性：序號屬性屬性功能1Active Page頁框活動的頁號2Page Count頁框包含的頁數(shù) 示例：示例： 求任一圓的面積求任一圓的面積 （1 1）、創(chuàng)建表單并設(shè)置表單本身屬性；）、創(chuàng)建表單并設(shè)置表單本身屬性； （2 2）、在表單中添加所需的控件對象；）、在表單中添加所需的控件對象； （3 3）、設(shè)計控件對象的操作；）、設(shè)計控件對象的操作； （4 4）、編寫對象響應(yīng)的程序代碼。）、編寫對象響應(yīng)的程序代碼。表單本身一個容器類。表單本身一個容器類。主要設(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） 對象選擇列表框?qū)ο筮x擇列表框； （2 2） 屬性分類頁；屬性分類頁； （3 3） 屬性設(shè)置框?qū)傩栽O(shè)置框； （4 4） 屬性列表框?qū)傩粤斜砜颍?（5 5） 屬性說明框?qū)傩哉f明框。 、Release、Refresh 、Release 將表單從內(nèi)存中釋放掉，即將表單從內(nèi)存中釋放掉

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

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

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

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

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

20、。 1 命令按鈕命令按鈕 給上例表單設(shè)計如下圖示五個給上例表單設(shè)計如下圖示五個“命令按鈕命令按鈕” 。圖圖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事件事件 編寫代碼。編寫代碼。 IF .not. Eof ( ) SKIP 1 ELSE GO Bottom End IF ThisForm . Command2 . Enabled = .T. ThisForm . Refresh 、給給 “最后一條最后一條” 命令按鈕命令按鈕 的的 Click事件事件 編寫代編寫代碼。碼。 GO Bottom ThisForm . Command3 . Enabled = .

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

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