showform.prg

来自「功能模块:报关操作,运输操作,报关查询,运输查询」· PRG 代码 · 共 16 行

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

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