chk_form.prg

来自「门诊收费管理系统」· PRG 代码 · 共 18 行

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: CHK_FORM.PRG <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 PARAMETER FORM_NAME
 PRIVATE I , RETU
 M.RETU = .F.
 M.FORM_NAME = ALLTRIM(UPPER(M.FORM_NAME))
 FOR I = 1 TO _SCREEN.FORMCOUNT
    IF ALLTRIM(UPPER(_SCREEN.FORMS(I).NAME)) = M.FORM_NAME
       M.RETU = .T.
       EXIT 
    ENDIF 
 ENDFOR 
 RETURN M.RETU
*