|
)添加命令按鈕組 為了實(shí)現(xiàn)移動(dòng)記錄指針的功能，我們?cè)傧虮韱紊咸砑右粋€(gè)命令按鈕組對(duì)象，該對(duì)象缺省名為CommandGroup1，包含兩個(gè)命令按鈕Command1和Command2。激活代碼窗口，為命令按鈕組CommandGroup1對(duì)象的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)指針后當(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ì)改變表單上字段值的顯示，因此最后一行語句的作用是調(diào)用表單的Refresh方法來更新字段的顯示，使它們顯示移動(dòng)記錄指針后當(dāng)前記錄的值。注意，如果只單擊命令組，而沒有單擊某一個(gè)按鈕，Value 屬性的值仍為上一次選定的命令按鈕。 現(xiàn)在，請(qǐng)按表5-3修改命令按鈕組中兩個(gè)按鈕的屬性，并且將表單的“ShowTips”屬性改為.T.。鼠標(biāo)右鍵單擊“CommandGroup1”對(duì)象，選擇快捷菜單中的“編輯”，待CommandGroup1對(duì)象周圍出現(xiàn)虛環(huán)繞框后，選中里面的Command1 或Command2對(duì)象來調(diào)整好它們的大小和位置，設(shè)置兩個(gè)按鈕的屬性值（見表5-3）。您還可以按照自己的喜好改變命令按鈕組的“BackStyle”和“BorderStyle”屬性。這樣我們就做成了兩個(gè)漂亮的圖形按鈕，運(yùn)行表單時(shí)，鼠標(biāo)一指按鈕還能出現(xiàn)提示文字，非常專業(yè) 或者： 上一條： if !bof() skip -1 endi 下一條： if !eof() skip endi 首記錄 go top 末記錄： go bott 刪除： dele 添加： appe blan 關(guān)閉： thisform.release 問題補(bǔ)充：能不能說詳細(xì)點(diǎn)。。比如我在表單上建立3個(gè)標(biāo)簽，分別是text1,text2,text3,要把內(nèi)容保存D:\vfp98\table1這個(gè)表中。（字段分別為姓名、部門、職務(wù)、要求按了"添加"后可以在標(biāo)簽輸入內(nèi)容，但當(dāng)caption屬性為“保存”的時(shí)候標(biāo)簽的enabled屬性為。F。再按一下添加后又能輸入內(nèi)容。） 第一,你的三個(gè)文本框在建立的時(shí)候把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為你要輸入的第一個(gè)文本框控件! else this.caption="添加" &&此處寫你的保存代碼,一般情況下可用INSERT命令進(jìn)行形式如下: &&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 |
|
|
