欧美性猛交XXXX免费看蜜桃,成人网18免费韩国,亚洲国产成人精品区综合,欧美日韩一区二区三区高清不卡,亚洲综合一区二区精品久久

)添加命令按鈕組

為了實(shí)現移動(dòng)記錄指針的功能，我們再向表單上添加一個(gè)命令按鈕組對象，該對象缺省名為CommandGroup1，包含兩個(gè)命令按鈕Command1和Command2。激活代碼窗口，為命令按鈕組CommandGroup1對象的Click事件輸入如下代碼：

DO CASE

  CASE THIS.Value = 1 && Value屬性指明單擊了哪個(gè)按鈕

SKIP –1    &&記錄指針向前移動(dòng)一個(gè)記錄

IF BOF()   &&記錄指針在表頭，則BOF()返回.T.,否則返回.F.

GO TOP        &&記錄指針移動(dòng)到第一個(gè)記錄

ENDIF

Thisform.Refresh        &&顯示移動(dòng)指針后當前記錄的值

  CASE THIS.Value = 2

Skip 1         &&記錄指針向后移動(dòng)一個(gè)記錄

If EOF()   &&記錄指針在表尾，則Eof()返回.T.,否則返回.F.

GO BOTTOM     &&記錄指針移動(dòng)到末一個(gè)記錄

ENDIF

Thisform.Refresh

ENDCASE

使用SKIP命令移動(dòng)了記錄指針，并不會(huì )改變表單上字段值的顯示，因此最后一行語(yǔ)句的作用是調用表單的Refresh方法來(lái)更新字段的顯示，使它們顯示移動(dòng)記錄指針后當前記錄的值。注意，如果只單擊命令組，而沒(méi)有單擊某一個(gè)按鈕，Value 屬性的值仍為上一次選定的命令按鈕。

現在，請按表5-3修改命令按鈕組中兩個(gè)按鈕的屬性，并且將表單的“ShowTips”屬性改為.T.。鼠標右鍵單擊“CommandGroup1”對象，選擇快捷菜單中的“編輯”，待CommandGroup1對象周?chē)霈F虛環(huán)繞框后，選中里面的Command1 或Command2對象來(lái)調整好它們的大小和位置，設置兩個(gè)按鈕的屬性值（見(jiàn)表5-3）。您還可以按照自己的喜好改變命令按鈕組的“BackStyle”和“BorderStyle”屬性。這樣我們就做成了兩個(gè)漂亮的圖形按鈕，運行表單時(shí)，鼠標一指按鈕還能出現提示文字，非常專(zhuān)業(yè)