解决表单重复运行的最好程序[原创]

****程序名随意，如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