Visual FoxPro 60 應用基礎與面向對象程序設計第十二章課件

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

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

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

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

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

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

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

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

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

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

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

12、界與容器上邊界的距離2Left左邊界與容器右邊界的距離3Height自身高度4Width自身寬度1微調框輸入數(shù)據(jù)的最大值2微調框輸入數(shù)據(jù)的最小值3每次單擊按鈕的增減值4微調框中數(shù)據(jù)的當前值26序號屬性屬性功能1Control Source復選框的數(shù)據(jù)來源2復選框上顯示文本的內容3復選框的當前值表表12-9 12-9 復選框復選框屬性：屬性：27表表12-10 12-10 圖像控件圖像控件屬性：屬性：序號屬性屬性功能1Stretch圖像大小的調節(jié)與控制2圖像的當前值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)建表單并設置表單本身屬性；）、創(chuàng)建表單并設置表單本身屬性； （2 2）、在表單中添加所需的控件對象；）、在表單中添加所需的控件對象； （3 3）、設計控件對象的操作；）、設計控件對象的操作； （4 4）、編寫對象響應的程序代碼。）、編寫對象響應的程序代碼。表單本身一個容器類。表單本身一個容器類。主要設置的屬性主要設置的屬性: : Caption 標題標題 Name 表單名表單名

14、( 其他常用屬性如其他常用屬性如 表表7.1 )32 ( 主要工具圖標介紹主要工具圖標介紹 ) （1） 設置設置 Ta b 鍵的次序；鍵的次序； （2） 數(shù)據(jù)環(huán)境；數(shù)據(jù)環(huán)境； （3） 屬性窗口；屬性窗口； （4） 代碼窗口；代碼窗口； （5） 表單控件工具欄；表單控件工具欄； 33 屬性窗口組成：屬性窗口組成： （1 1） 對象選擇列表框對象選擇列表框； （2 2） 屬性分類頁；屬性分類頁； （3 3） 屬性設置框屬性設置框； （4 4） 屬性列表框屬性列表框； （5 5） 屬性說明框屬性說明框。 、Release、Refresh 、Release 將表單從內存中釋放掉，即將表單從內存中釋放掉

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

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

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

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

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

20、。 1 命令按鈕命令按鈕 給上例表單設計如下圖示五個給上例表單設計如下圖示五個“命令按鈕命令按鈕” 。圖圖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ù)導航數(shù)據(jù)導航” 。實現(xiàn)數(shù)據(jù)導航也可以使用命令按鈕組和移動記錄實現(xiàn)數(shù)據(jù)導航也可以使用命令按鈕組和移動記錄指針命令來實現(xiàn)。指針命令來實現(xiàn)。 【例【例7】在】在“學生登記卡學生登記卡”表單中，利用表單中，利用設計數(shù)據(jù)導航。設計數(shù)據(jù)導航。 、在、在“表單控件表單控件”中單

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