VFP 愛用者社區

cgsusually67 · 註冊時間: 2009-10-14 文章: 41 第 1 樓

請教各位大大,我嘗試過下面幾種語法,把程式螞寫在獨立的*.prg,然後在某個form中的init ,用set procedure to *.prg,而prg我嘗試過下面a.b.c三種語法,結果都不行,其中b語法系統提示不可以在prg中使用this,而c語法系統提示找不到form的實體名稱,謝謝

a. seek PARENT.PARENT.TXTBKACCNO.value order bkaccno
b. seek this.PARENT.TXTBKACCNO.value order bkaccno
c. form的實體名稱.TXTBKACCNO.value order bkaccno

garfield · Site Admin 註冊時間: 2003-01-30 文章: 2160 第 2 樓

給你一個提示:
可以將物件當參數傳給prg

cgsusually67 · 註冊時間: 2009-10-14 文章: 41 第 3 樓

我已經知道怎麼從,form 把東西傳到prg
可是小弟還有一個疑問,譬如我在prg 有一段程式是在從裡面,thisform.release
可是從prg裡面似乎不支援thisform的跑法,而如果直接(表單的實際名稱.release)
,系統說找不到,謝謝

LiuRambo · 註冊時間: 2007-11-27 文章: 481 第 4 樓

this <- 用於物件中
變數可以往下傳遞，但物件不會傳遞

garfield · Site Admin 註冊時間: 2003-01-30 文章: 2160 第 5 樓

prg 本來就不支援 thisform, prg 又不是專屬那一個form的程式碼, 在prg裡又如何知道thisform在那裡.
給你另一個提示 thisform 是一個物件,
再放送另一個提示
_screen.forms(?)

lee188188 · 註冊時間: 2007-01-27 文章: 33 第 6 樓

< 1 > 表單的 windows type=1
主程式
-----------
do form tfm1

form: activate event
--------------------
do las1sda with thisform && say 資料
...

proc las1sda && shou資料
para lacf
lacf.prot.visible= vvprot
...

release 表單時點表單<結束>按鈕

< 2 > 表單的 windows type=0
此方法是以 prg 為主 , 表單僅是顯示畫面用, 有許多滑鼠功能無法使用
但是 prg 可以完全控制.
例如: 有一表單 tfm1 & m1.prg
主程式
----------
do m1

m1.prg 叫用 tfm1 的表單作為顯示
--------------
set proc to m1
do form tfm1
lacf = tfm1
thisfm='tfm1'
.....
do k11mabg && 開始
do k11main && 主要
do k11maed && 結束

...
結束時,如下釋放表單

clos data
lacf.comdgrop1.comdesc.click
release lacf
return

*** 用 prg 寫法較累, 用正統表單寫法較輕鬆!
敝人不才獻醜了,以前dos的程式全部轉到vfp開始都是用這種寫法,但現在都用表單寫法了!
還有,您是要寫什麼prg程式呢?