《Visual FoxPro6.0程序設(shè)計(jì)教程》課件第4章

任務(wù)4.1賦值及幾個(gè)簡(jiǎn)單語(yǔ)句

任務(wù)4.2數(shù)據(jù)輸出和輸入

任務(wù)4.3形狀、容器和圖像控件

任務(wù)導(dǎo)入

學(xué)習(xí)目標(biāo)

任務(wù)實(shí)施

1.賦值語(yǔ)句

在程序中若要使用(引用)變量，必須在使用(引用)之前為變量設(shè)定一個(gè)初值。任務(wù)4.1賦值及幾個(gè)簡(jiǎn)單語(yǔ)句

2.程序注釋語(yǔ)句

為了提高程序的可讀性，通常應(yīng)在程序的適當(dāng)位置加上一些備注或說(shuō)明等注釋內(nèi)容。VFP提供了行首和行尾兩種注釋語(yǔ)句。

1)行首注釋

2)行尾注釋

3.程序暫停語(yǔ)句

WAIT語(yǔ)句用來(lái)暫停程序的執(zhí)行并顯示提示信息，按任意鍵或單擊鼠標(biāo)后繼續(xù)執(zhí)行程序。

如圖4-1所示，在代碼窗口中輸入下面的代碼，運(yùn)行后將顯示暫停提示信息。

WAIT"我累了，要休息10秒"WINDOWSAT20,20TIMEOUT10圖4-1WAIT語(yǔ)句示例

4.程序結(jié)束語(yǔ)句

在VFP中，要終止表單的運(yùn)行可以使用RELEASE語(yǔ)句或Release方法。任務(wù)導(dǎo)入

學(xué)習(xí)目標(biāo)

任務(wù)實(shí)施

1.使用標(biāo)簽控件實(shí)現(xiàn)數(shù)據(jù)輸出

標(biāo)簽(Label)控件顯示的文本信息用戶不能直接修改，Label所顯示的內(nèi)容由標(biāo)題(Caption)屬性控制，該屬性可以在設(shè)計(jì)時(shí)通過(guò)“屬性”窗口設(shè)置，也可以在運(yùn)行時(shí)用代碼賦值。

各控件的屬性設(shè)置，見(jiàn)表4-1。任務(wù)4.2數(shù)據(jù)輸出和輸入表4-1屬性設(shè)置設(shè)置屬性后，如圖4-2所示。

選中Label1后，單擊工具欄上的“復(fù)制”按鈕，再單擊“粘貼”按鈕，將Label1復(fù)制一個(gè)副本Label2。將Label2的前景色(ForeColor)屬性改為：255,255,255(白色)，修改Left和Top屬性值來(lái)適當(dāng)調(diào)整兩個(gè)標(biāo)簽的相對(duì)位置，如圖4-3所示。圖4-2設(shè)置Label1的屬性

(3)編寫(xiě)程序代碼。

編寫(xiě)命令按鈕Command1的Click事件代碼，以便關(guān)閉表單退出程序：

THISFORM.Release

(4)運(yùn)行程序。

單擊常用工具欄上的“運(yùn)行”按鈕運(yùn)行程序，顯示如圖4-4所示，單擊表單上的“關(guān)閉”按鈕，關(guān)閉表單。

圖4-3修改Label2的屬性圖4-4程序運(yùn)行結(jié)果

2.使標(biāo)簽控件適應(yīng)輸出內(nèi)容

對(duì)于一個(gè)較長(zhǎng)的或在運(yùn)行時(shí)可能變化的標(biāo)題，Label提供了兩種屬性：AutoSize和WordWrap來(lái)改變控件尺寸以適應(yīng)較長(zhǎng)或較短的標(biāo)題。

設(shè)置對(duì)象屬性，見(jiàn)表4-2。

設(shè)置屬性后的界面，如圖4-5(b)所示。表4-2屬性設(shè)置圖4-5建立界面與設(shè)置屬性單擊常用工具欄上的“運(yùn)行”按鈕運(yùn)行程序，顯示如圖4-6左所示，單擊表單上的“請(qǐng)點(diǎn)這里看變化”按鈕，顯示如圖4-6(b)所示。圖4-6程序運(yùn)行結(jié)果

3.使用文本框進(jìn)行數(shù)據(jù)輸入

用戶輸入文本信息的最直接的方法是使用文本框(TextBox)控件。

修改對(duì)象屬性，見(jiàn)表4-3。

設(shè)置屬性后的表單如圖4-7所示。

運(yùn)行程序，如圖4-8所示。表4-3屬性設(shè)置圖4-7設(shè)置屬性后的表單

圖4-8求長(zhǎng)方體的表面積

4.焦點(diǎn)

焦點(diǎn)(Focus)就是光標(biāo)，當(dāng)對(duì)象具有“焦點(diǎn)”時(shí)才能響應(yīng)用戶的輸入，因此只有對(duì)象具有了焦點(diǎn)，該對(duì)象才具有接收用戶鼠標(biāo)單擊或鍵盤(pán)輸入的能力。

5.〈Tab〉鍵序

TabIndex屬性決定控件接收焦點(diǎn)的順序，TabStop屬性決定焦點(diǎn)是否能夠停在該控件上。

6.使用對(duì)話框?qū)崿F(xiàn)數(shù)據(jù)輸出

對(duì)話框是用戶與應(yīng)用程序之間交換信息的途徑之一。

(1)〈信息內(nèi)容〉指定在對(duì)話框中出現(xiàn)的文本。在〈信息內(nèi)容〉中使用硬回車(chē)符(CHR(13))可以使文本換行。對(duì)話框的高度和寬度隨著〈信息內(nèi)容〉的增加而增加，最多可有1024個(gè)字符。

(2)〈對(duì)話框類(lèi)型〉指定對(duì)話框中出現(xiàn)的按鈕和圖標(biāo)，一般有3個(gè)參數(shù)，這3種參數(shù)值可以相加以達(dá)到所需要的樣式。其取值和含義見(jiàn)表4-4。表4-4對(duì)話框類(lèi)型中各參數(shù)及其含義

(3)〈對(duì)話框標(biāo)題〉指定對(duì)話框的標(biāo)題。若缺省此項(xiàng)，系統(tǒng)將使用默認(rèn)標(biāo)題“MicrosoftVisualFoxPro”。

下述代碼將顯示圖4-9所示的對(duì)話框：

msg=MESSAGEBOX(“請(qǐng)確認(rèn)輸入的數(shù)據(jù)是否正確！”,3+48+0,“數(shù)據(jù)檢查”)

(4)?MESSAGEBOX()函數(shù)的返回值指明在對(duì)話框中選擇了哪個(gè)按鈕，見(jiàn)表4-5。圖4-9信息對(duì)話框表4-5MESSAGEBOX()函數(shù)的返回值設(shè)置Command1的Caption屬性為“最佳付款方案”，Default屬性為.T.—

真。其他屬性參見(jiàn)圖4-10所示。圖4-10建立最佳付款方案用戶界面

(3)編寫(xiě)程序代碼。

運(yùn)行程序，輸入取款金額，單擊命令按鈕，將彈出圖4-11所示的對(duì)話框。圖4-11最佳付款方案程序運(yùn)行結(jié)果任務(wù)導(dǎo)入

學(xué)習(xí)目標(biāo)

任務(wù)實(shí)施

1.形狀控件

形狀(Shape)控件可以在表單中產(chǎn)生圓、橢圓以及圓角或方角的矩形。

【例4-7】利用“形狀”控件修飾例4-4的表單，如圖4-12所示。任務(wù)4.3形狀、容器和圖像控件圖4-12使用“形狀”控件

(1)在例4-4的表單中畫(huà)上一個(gè)“形狀”控件Shape1，如圖4-13所示。

(2)修改Shape1的SpecialEffect屬性為：0—3維，然后單擊“格式”菜單→“置后”命令，將其置于原有控件的后邊，如圖4-14所示。圖4-13增加一個(gè)“形狀”圖4-14設(shè)置Shape控件置后

2.容器控件

由于容器(Container)控件的封裝性與外形更具立體感，因此通常使用容器控件對(duì)程序界面進(jìn)行修飾。

【例4-8】

編制程序輸出生成指定范圍內(nèi)的3個(gè)隨機(jī)數(shù)，如圖4-15所示。圖4-15生成隨機(jī)數(shù)

(2)設(shè)置控件屬性。

修改對(duì)象屬性，見(jiàn)表4-6。

設(shè)置屬性后的表單如圖4-16所示。表4-6屬性設(shè)置圖4-16設(shè)置屬性后的表單界面

3.圖像控件

圖像(Image)控件允許在表單中添加圖片(.bmp、.ico文件)。圖像控件與其他控件一樣，具有屬性、事件和方法程序。

圖像控件的一些主要屬性，見(jiàn)表4-7。

【例4-9】

在例4-6中使用圖像來(lái)修飾表單，如圖4-17所示。表4-7圖像控件的主要屬性圖4-17使用圖像修飾表單技能訓(xùn)練

1.設(shè)計(jì)兩種形式的藝術(shù)標(biāo)簽：一種是投影式標(biāo)簽，一種是立體式標(biāo)簽，如圖4-18所示。

2.在文本框中輸入弧度值，將弧度換算為角度值(度、分、秒)的形式，然后輸出，如圖4-19所示。