用FOR語句設(shè)置屬性文本框控件(常用按鈕代碼）

悟靜 2009-04-26

展開全文

屬性設(shè)為日期型：inputmast為：99/99/99 9指定為數(shù)字，格式為日期。

文本框控件(textbox)主要用于接收或顯示數(shù)據(jù)，在vfp中是一個常用控件，差不多每個程序都要用到它。vfp基礎(chǔ)教程-文本框(textbox)控件及vfp基礎(chǔ)教程-數(shù)組中已經(jīng)分別對文本框控件和數(shù)組做了介紹，本文來設(shè)計一個將這二者結(jié)合起來應(yīng)用的例子。

　　關(guān)于文本框控件數(shù)據(jù)源的處理：

　　如果在表單中使用數(shù)據(jù)環(huán)境，可以在“數(shù)據(jù)環(huán)境設(shè)計器”中拖動表的各個字段到表單上，系統(tǒng)會自動生成各個字段對應(yīng)的標(biāo)簽及文本框，并且文本框的數(shù)據(jù)源會自動與表中對應(yīng)的字段綁定，這是一種處理方式；另外也可以不使用數(shù)據(jù)環(huán)境，先向表單添加文本框，然后在設(shè)計時或運行時在代碼中為文本框賦數(shù)據(jù)源，本文就是這樣的一個例子，運行界面如下：

　　在上圖中，對表單上的各個文本框控件的數(shù)據(jù)源等相關(guān)屬性值采用了與在看實例學(xué)VFP：模擬VB控件數(shù)組操作標(biāo)簽控件一例中類似的方式來處理，相關(guān)說明見代碼中的注釋。

　　制作步驟如下：

　　一、新建表單，將其caption屬性值設(shè)置為“編程入門網(wǎng)-文本框及數(shù)組的綜合應(yīng)用”，保存為“表單1.scx”。

　　二、向表單上添加三個label控件label1～label3，將它們的caption屬性值依次設(shè)置為“編號”、“網(wǎng)站名稱”和“網(wǎng)站網(wǎng)址”，并把這三個label控件排成一列。

　　三、向表單上添加三個文本框控件Text1～Text3，并把它們排成一列與label1～對應(yīng)起來。

　　四、在表單下方添加四個命令按鈕command1～command4，將它們的caption屬性值依次設(shè)置為“第一條”、“上一條”、“下一條”和“最后一條”。

　　五、適當(dāng)調(diào)整各控件的位置，調(diào)整后的表單設(shè)計器如下圖：

　　六、添加事件代碼：

　　1、表單的init事件代碼：

set safety off
use 表名
copy to 結(jié)構(gòu) structure extended &&復(fù)制網(wǎng)站信息表的結(jié)構(gòu)
use 結(jié)構(gòu)
go top
dime stru(3) &&定義數(shù)組
do while !eof()
   select 結(jié)構(gòu)
    for i=1 to 3
      mt1="text"+alltrim(str(I))
      thisform.&mt1..backstyle=0 &&將文本框的backstyle屬性值均設(shè)為0
      thisform.&mt1..disabledForeColor=RGB(0,0,255) &&指定失效控件的前景色
       thisform.&mt1..enabled=.f. &&將文本框的enabled屬性值均設(shè)為.f.
      stru(I)=結(jié)構(gòu).field_name &&將"結(jié)構(gòu)"表的field_name字段值依次賦給三個數(shù)組元素
       skip
    endfor
enddo
use 網(wǎng)站信息表
for j=1 to 3
    sjy=alltrim("網(wǎng)站信息表."+stru(j))
    mt2="text"+alltrim(str(J))
    thisform.&mt2..controlsource=sjy &&依次為三個文本框控件賦數(shù)據(jù)源
endfor　　2、表單的unload事件代碼：close data

　　3、“第一條”命令按鈕command1的click事件代碼：

if bof()=.f.
go top
endif
thisform.refresh　　4、“上一條”命令按鈕command2的click事件代碼：

if bof()=.f.
skip -1
endif
thisform.refresh　　5、“下一條”命令按鈕command3的click事件代碼：

if eof()=.f.
skip
endif
thisform.refresh　　6、“最后一條”命令按鈕command4的click事件代碼：

if eof()=.f.
go bottom
endif
thisform.refresh　　七、運行“表單1.scx”。

本文來自: 編程入門網(wǎng) http://www./Programming/vfp/200904/11318.htm