1、機械工業出版社同名教材 配套電子教案 2007 2007 年年 7 7月月 關系運算符有8種：、=、=、#、 !=、$、= = 邏輯運算符有3種：AND、OR、NOT 運算符的優先順序：算術運算符、字符串運算符、 關系運算符、邏輯運算符 【例4-2】設計一個驗證口令的表單。輸入口令時文本框中 只顯示相同個數的“*”號，如圖4-2所示。 設計步驟如下： (1) 建立應用程序用戶界面。 (2) 設置對象屬性。 編寫Text1的Valid事件代碼： THISFORM.Command1.TabStop = .F. a = LOWER(THIS.Value) IF a= abcd THISFORM.La

2、bel1.Top = THIS.Parent.Top THISFORM.Label1.Caption=歡迎使用本程序！歡迎使用本程序！ THISFORM.Command1.TabStop = .T. THIS.Parent.Visible = .F. ELSE MESSAGEBOX(對不起，口令錯！請重新輸入！對不起，口令錯！請重新輸入！,48,口令口令 ) THIS.SelStart=0 THIS.SelLength=LEN(RTRIM(THIS.Value) ENDIF 【例4-3】求函數值。輸入x，計算y的值，其中： 設計步驟如下： (1) 建立應用程序用戶界面與設置對象屬性。 (2)

3、編寫程序代碼。 根據流程圖,可以寫出命令按鈕Command1的單擊（Click）事件代碼為： )0(215 )0(4 xx xx y x = val(THISFORM.Text1.Value) IF x = 0 y = 4 * x ELSE y = 15 2 * x ENDIF THISFORM.Text1.SelStart = 0 THISFORM.Text1.SelLength= EN(THISFORM.Text1.Text) THISFORM.Text1.SetFocus THISFORM.Text2.Value = y 使用IIF函數 IIf函數的語法結構為： IIf(條件，真部分，假

4、部分條件，真部分，假部分) 【例4-4】例4-3中命令按鈕Command1的單擊（Click）事件代 碼可以改為： x =val(THISFORM.Text1.Value) y = IIF(x = 0, 4 * x, 15 2 * x) THISFORM.Text2.Value = y THISFORM.Text1.SelStart = 0 THISFORM.Text1.SelLength=LEN(THISFORM.Text1.Text) THISFORM.Text1.SetFocus IF語句的嵌套 【例4-5】鐵路托運行李，從甲地到乙地，規定每張客票 托運費計算方法是：行李重量不超過50公

5、斤時，每公斤 0.25元，超過50公斤而不超過100公斤時，其超過部分每 公斤0.35元，超過100公斤時，其超過部分每公斤0.45元。 編寫程序，輸入行李重量，計算并輸出托運的費用。 設計步驟如下： (1) 建立應用程序用戶界面與設置對象屬性。 (2) 編寫程序代碼。 根據流程圖，可以寫出命令按鈕Command1的單擊（Click）事件代碼為： w = THISFORM.Text1.Value IF w = 50 x = 0.25 * w ELSE IF w = 100 x = 0.25 * 50 + 0.35 * (w 50) ELSE x = 0.25 * 50 + 0.35 * 50

6、+ 0.45 * (w 100) ENDIF ENDIF THISFORM.Text2.Value = x THISFORM.Text1.SelStart = 0 THISFORM.Text1.SelLength = LEN(THISFORM.Text1.Text) THISFORM.Text1.SetFocus 【例4-6】5-5某百貨公司為了促銷，采用購物打折扣的優惠辦 法：每位顧客一次購物 (1) 在1000元以上者，按九五折優惠。 (2) 在2000元以上者，按九折優惠。 (3) 在3000元以上者，按八五折優惠。 (4) 在5000元以上者，按八折優惠。 編寫程序，輸入購物款數，計算

7、并輸出優惠價。 設計步驟如下： (1) 建立應用程序用戶界面與設置對象屬性。 x =val(THISFORM.Text1.Value) IF x 1000 y = x ELSE IF x 2000 y = 0.95 * x ELSE IF x 3000 y = 0.9 * x ELSE IF x 5000 y = 0.85 * x ELSE y = 0.08 * x ENDIF ENDIF ENDIF ENDIF THISFORM.Text2.Value = y THISFORM.Text1.SelStart = 0 THISFORM.Text1.SelLength= LEN(THISFORM

8、.Text1.Text) THISFORM.Text1.SetFocus (2) 編寫程序代碼。 根據流程圖，可以寫出命令按鈕Command1的單擊（Click）事件代碼為： DO CASE CASE條件條件1 語句列語句列1 CASE條件條件2 語句列語句列2 . OTHERWISE 其他語句列其他語句列 ENDCASE 【例4-7】5-6在例4-6中使用DO CASE語句來計算優惠價， 只需將其中命令按鈕Command1的Click事件代碼改為： x = val(THISFORM.Text1.Value) DO CASE CASE x 1000 y = x CASE x 2000 y =

9、0.95 * x CASE x 3000 y = 0.9 * x CASE x 5000 y = 0.85 * x OTHERWISE y = 0.80 * x ENDCASE THISFORM.Text2.Value = y THISFORM.Text1.SelStart = 0 THISFORM.Text1.SelLength=LEN(THISFORM.Text1.Text) THISFORM.Text1.SetFocus 4.3 提供簡單選擇的控件 使用命令按鈕組 【例4-8】5-7使用命令按鈕組的程序。 設銀行定期存款年利率為：1年期2.25%，2年期2.43%， 3年期2.70%，5

10、年期2.88%（不計復利）。 今有本金x元，5年以后使用，共有以下6種存法： l存一次5年期。 l存一次3年期，一次2年期。 l存一次3年期，兩次1年期。 l存兩次2年期，一次1年期。 l存一次2年期，三次1年期。 l存五次1年期。 分別計算各種存法5年后到期時的本息合計，如圖4-12所示。 設計步驟如下： (1) 建立應用程序用戶界面。 (2) 設置對象屬性。 (3) 編寫程序代碼。 編寫表單的Activate事件代碼： THIS.Text1.SetFocus DO CASE CASE n = 1 mes = 存存1次次5年期年期 y = (1 + 5 * x5) * a 【例4-9】利用選

11、項組控制例4-8中存款利息的計算，如圖4-16。 設計步驟如下： (1) 建立應用程序用戶界面 (2) 設置對象屬性。 (3) 編寫程序代碼。 編寫選項按鈕組OptionGroup1的Click事件代碼： a = val(THISFORM.Text1.Value) x1 = 0.0225 x2 = 0.0243 x3 = 0.027 x5 = 0.0288 n = THIS.Value DO CASE CASE n = 1 mes = 存存1次次5年期年期 y = (1 + 5 * x5) * a CASE n = 2 mes = 存存1次次3年期年期,1次次2年期年期 y = (1 + 3

12、* x3) * (1 + 2 * x2) * a CASE n = 3 mes = 存存1次次3年期年期,2次次1年期年期 y = (1 + 3 * x3) * (1 + x1)2 * a CASE n = 4 mes = 存存2次次2年期年期,1次次1年期年期 y = (1 + 2 * x2)2 * (1 + x1) * a CASE n = 5 mes = 存存1次次2年期年期,3次次1年期年期 y = (1 + 2 * x2) * (1 + x2)3 * a CASE n = 6 mes = 存存5次次1年期年期 y = (1 + x1)5 * a ENDCASE mes = mes +

13、 ,本息共計本息共計:+ALLT(STR(y,12,2)+元元 THISFORM.Label3.Caption = mes 【例4-10】利用選項組控制文本的對齊方式與字體，如圖4-18。 設計步驟如下： (1) 建立應用程序用戶界面。 (2) 設置對象屬性。 (3) 編寫程序代碼。 編寫表單的Activate事件代碼： THISFORM.Text1.SetFocus 編寫OptionGroup2的Click事件代碼： n = THIS.Value DO CASE CASE n = 1 THISFORM.Text1.FontName = 宋體宋體 CASE n = 2 THISFORM.Tex

14、t1.FontName = 隸書隸書 CASE n = 3 THISFORM.Text1.FontName = 黑體黑體 CASE n = 4 THISFORM.Text1.FontName = 楷體楷體_GB2312 ENDCASE 【例4-11】修改上例中的選項組成圖形按鈕的形式，如圖4-21。 設計步驟同上例，只介紹選項組的修改方法。 與修改命令按鈕組類似，可以在“選項組生成器”中對各 個選項按鈕進行修改。下面我們通過屬性窗口對選項按鈕 進行修改。 用鼠標右鍵單擊選項組OptionGroup1，在彈出菜單中選 擇“編輯”，OptionGroup1的四周出現淺色邊界，開始對 選項組（容器）

15、中的按鈕進行編輯。 依次選中三個按鈕Option1Option3，將其標題（Cpation） 屬性改為：（空），自動大小（AutoSize）屬性改為：.F. 假，圖片（Picture）屬性通過瀏覽按鈕“”進行查找，并 分別改為： programfilesmicrosoftvisualstudiocommongraphicsbitmaps tlbr_w95lft.bmp programfilesmicrosoftvisualstudiocommongraphicsbitmaps tlbr_w95ctr.bmp program filesmicrosoftvisual studiocommongr

16、aphicsbitmaps tlbr_w95rt.bmp 最后適當調整按鈕的大小與相互位置。與之相仿可以將選 項組OptionGroup1改為圖形方式，如圖4-22所示。 1、使用單個復選框 【例4-12】在上例中，增加復選框，控制選項組是否 顯示，如圖4-23所示。 圖圖4-23 利用復選框控制控件的顯示利用復選框控制控件的顯示 設計步驟同上例，只列出增加的部分。 (1) 增加一個復選框控件Check1。 (2) 修改Check1的屬性： AutoSize 屬性改為：.T. 真 標題（Caption）改為：修改 值（Value）改為：.T. (3) 編寫Check1的Click事件代碼： T

17、HISFORM.OptionGroup1.Visible = THIS.Value THISFORM.OptionGroup2.Visible = THIS.Value 2、使用多個復選框 【例4-13】利用復選框來控制輸入或輸出文本的字 體風格，如圖4-24所示。 圖4-24 控制字體風格 設計步驟如下： (1) 選擇新建表單，進入表單設計器，增加一個形狀控件 Shape1、一個文本框控件Text1、一個標簽控件Label1以及三 個復選框控件Check1、Check2和Check3。 (2) 設置對象屬性。 (3) 編寫事件代碼。 編寫表單的Activate事件代碼： THIS.Text1

18、.SetFocus 編寫Check1的Click事件代碼： THISFORM.Text1.FontBold = THIS.Value 編寫Check2的Click事件代碼： THISFORM.Text1.FontItalic = THIS.Value 編寫Check3的Click事件代碼： THISFORM.Text1.FontUnderLine = THIS.Value 3、復選框的圖形按鈕方式 【例4-14】圖形按鈕形式的復選框，如圖4-25。單 擊鎖定按鈕關閉其他復選框，單擊修改按鈕則開 放其他復選框。 圖圖4-25 使用圖形按鈕形式的復選框使用圖形按鈕形式的復選框 設計步驟如下： (1

19、) 選擇新建表單，進入表單設計器，首先增加一個形狀控 件Shape1，然后在其上增加一個文本框控件Text1、一個標簽 控件Label1以及五個復選框控件Check1、Check2、Check3、 Check4和Check5（參見圖4-26）。 圖圖4-26 設計按鈕形式的復選框設計按鈕形式的復選框 (2) 修改控件屬性。 (3) 編寫事件代碼。 編寫Check1的Click事件代碼： THISFORM.Text1.FontBold = THIS.Value 編寫Check2的Click事件代碼： THISFORM.Text1.FontItalic = THIS.Value 編寫Check3的

20、Click事件代碼： THISFORM.Text1.FontUnderLine = THIS.Value 編寫Check4的Click事件代碼： THISFORM.Text1.FontStrikethru = THIS.Value 編寫Check5的Click事件代碼： THISFORM.SetAll(Enabeld,THIS.Value,CheckBox) THIS.Enabeld=.T. THIS.Caption=IIF(THIS.Value=1,R 鎖定,=12 THIS.Parent.Label1.Caption=下午 ELSE THIS.Parent.Label1.Caption=上

21、午 ENDIF THIS.Parent.Text1.Value=SUBSTR(TTOC(DATETIME(),10,8) 2. 計時器的動感控制 【例4-16】設計一個電子游動標題板，標題“使用VFP設計 動畫”在表單的黃色區域（容器中）自右至左地反復移動。 單擊“暫停”按鈕，標題停止移動，按鈕變成“繼續”。 單 擊“繼續”按鈕，標題繼續移動，按鈕又變回“暫停”（如 圖4-29所示）。 圖圖4-29 電子標題板電子標題板 設計步驟如下： (1) 建立應用程序用戶界面。 (2) 設置對象屬性。 (3) 編寫程序代碼。 編寫Command1（開始/暫停）的Click事件代碼： IF THIS.Caption = S 暫停 THIS.Caption = S 繼續 THISFORM.Container1.Timer1.Enabled = .F. ELSE THIS.Captio