|
解决表单重复运行的最好程序[原创]
****程序名随意，如myrunform.prg
****假设表单文件名为：查询表单.scx
****调用方法为： do myrunform.prg with "查询表单"
****张某2003年8月于佛山
parameters runformfilename
local formIndex,runformname,ifrunform
ifrunform=.f.
For m.formIndex = 1 To _Screen.FormCount
if juststem(SYS(1271,_Screen.Forms(m.formIndex)))==runformfilename
ifrunform=.t.
runformname=_Screen.Forms(m.formIndex).Name
if _Screen.Forms(m.formIndex).WindowState=1 &&窗口最小化
_Screen.Forms(m.formIndex).WindowState=0 &&窗口恢复为原样大小
endif
exit
endif
endfor
if ifrunform=.t.
Activate Windows (runformname)
else
do form &runformfilename
endif
return
|
