showform.prg

来自「vfp 源码,比较全面」· PRG 代码 · 共 16 行

* 程序说明：用来检查一个表单是否被打开，是再次要求打开此表单时，只允许打开一次
* 变量说明：cFormName 表单的文件名，
*           mFormName 表单的引用名。
* 均为字符型

PARA cFormName,mFormName
if !(TYPE("&mFormName.")="O" AND !ISNULL(&mFormName.))
     do form &cFormName name &mFormName
else
   if &mFormName..windowstate=1
      &mFormName..windowstate=0
   endif
      &mFormName..show
endif