實用命令按鈕控件設(shè)置

悟靜 2009-04-23

展開全文

)添加命令按鈕組

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

DO CASE

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

SKIP –1 &&記錄指針向前移動一個記錄

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

GO TOP &&記錄指針移動到第一個記錄

ENDIF

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

CASE THIS.Value = 2

Skip 1 &&記錄指針向后移動一個記錄

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

GO BOTTOM &&記錄指針移動到末一個記錄

ENDIF

Thisform.Refresh

ENDCASE

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

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

用vfp的表單向?qū)Э勺詣由?#160;

或者：
上一條：
if !bof()
skip -1
endi
下一條：
if !eof()
skip
endi
首記錄
go top
末記錄：
go bott
刪除：
dele
添加：
appe blan
關(guān)閉：
thisform.release

我在表單中加入一個“添加”的按鈕，在此按鈕的CLICK事件中該如何寫一段代碼，當(dāng)事件觸發(fā)時，按鈕的CAPTION變?yōu)?#8220;保存”，并產(chǎn)生該“保存”按鈕相應(yīng)的代碼以供使用？而在“保存”按鈕的CLICK事件觸發(fā)時又變回“添加”按鈕的相應(yīng)CAPTION和CLICK事件代碼。該過程如何實現(xiàn)，能寫上代碼，或做上實例發(fā)送給我最好了。很希望得到解決方法，謝謝！

問題補充：能不能說詳細(xì)點。。比如我在表單上建立3個標(biāo)簽，分別是text1,text2,text3,要把內(nèi)容保存D:\vfp98\table1這個表中。（字段分別為姓名、部門、職務(wù)、要求按了"添加"后可以在標(biāo)簽輸入內(nèi)容，但當(dāng)caption屬性為“保存”的時候標(biāo)簽的enabled屬性為。F。再按一下添加后又能輸入內(nèi)容。）

第一,你的三個文本框在建立的時候把ENABLED屬性改為.F.并將表table1添加到表單的數(shù)據(jù)環(huán)境中
然后
if this.CAPTION="添加"
this.caption="保存"
thisform.text1.enabled=.t.
thisform.text2.enabled=.t.
thisform.text3.enabled=.t.
thisform.text1.setfocus&&TEXT1為你要輸入的第一個文本框控件!
else
this.caption="添加"
&&此處寫你的保存代碼,一般情況下可用INSERT命令進行形式如下:
&&insert into 表名(字段1,字段2,...) values (值1,值2,...)&&表名不要加".DBF"后綴,另可以在INSERT之前加入一些自己的檢查代碼!
insert into table1(姓名,部門,職務(wù)) values;
(thisform.text1.value,thisform.text2.value,thisform.text3.value)
thisform.text1.enabled=.f.
thisform.text2.enabled=.f.
thisform.text3.enabled=.f.
endif