main.mpr

来自「包括了6个VFP程序设计实例」· MPR 代码 · 共 565 行 · 第 1/2 页

 IF WSHAPE21 = .T.
 DO FORM gzgl
 ELSE 
 = MESSAGEBOX('您不具备使用本功能的权限，请重新登录系统或找系统软件管理员协调！！！',48,TSTITLE)
 FOR I = 1 TO _SCREEN.FORMCOUNT
 MNAME = _SCREEN.FORMS(I).NAME
 IF ALLTRIM(UPPER(MNAME)) = 'XTDL'
  ZOOM window &mname max
  ZOOM window &mname norm
 ENDIF 
 ENDFOR 
 RETURN 
 ENDIF 
ENDPROC
*------
PROCEDURE _0bm1c0h6d
 IF WSHAPE23 = .T.
 DO FORM jjgzgl
 ELSE 
 = MESSAGEBOX('您不具备使用本功能的权限，请重新登录系统或找系统软件管理员协调！！！',48,TSTITLE)
 FOR I = 1 TO _SCREEN.FORMCOUNT
 MNAME = _SCREEN.FORMS(I).NAME
 IF ALLTRIM(UPPER(MNAME)) = 'XTDL'
  ZOOM window &mname max
  ZOOM window &mname norm
 ENDIF 
 ENDFOR 
 RETURN 
 ENDIF 
ENDPROC
*------
PROCEDURE _0bm1c0h6i
 IF WSHAPE24 = .T.
 DO FORM jsgzgl
 ELSE 
 = MESSAGEBOX('您不具备使用本功能的权限，请重新登录系统或找系统软件管理员协调！！！',48,TSTITLE)
 FOR I = 1 TO _SCREEN.FORMCOUNT
 MNAME = _SCREEN.FORMS(I).NAME
 IF ALLTRIM(UPPER(MNAME)) = 'XTDL'
  ZOOM window &mname max
  ZOOM window &mname norm
 ENDIF 
 ENDFOR 
 RETURN 
 ENDIF 
ENDPROC
*------
PROCEDURE _0bm1c0h6n
 IF WSHAPE25 = .T.
 DO FORM gzcx
 ELSE 
 = MESSAGEBOX('您不具备使用本功能的权限，请重新登录系统或找系统软件管理员协调！！！',48,TSTITLE)
 FOR I = 1 TO _SCREEN.FORMCOUNT
 MNAME = _SCREEN.FORMS(I).NAME
 IF ALLTRIM(UPPER(MNAME)) = 'XTDL'
  ZOOM window &mname max
  ZOOM window &mname norm
 ENDIF 
 ENDFOR 
 RETURN 
 ENDIF 
ENDPROC
*------
PROCEDURE _0bm1c0h6r
 IF WSHAPE26 = .T.
 DO FORM gzfx
 ELSE 
 = MESSAGEBOX('您不具备使用本功能的权限，请重新登录系统或找系统软件管理员协调！！！',48,TSTITLE)
 FOR I = 1 TO _SCREEN.FORMCOUNT
 MNAME = _SCREEN.FORMS(I).NAME
 IF ALLTRIM(UPPER(MNAME)) = 'XTDL'
  ZOOM window &mname max
  ZOOM window &mname norm
 ENDIF 
 ENDFOR 
 RETURN 
 ENDIF 
ENDPROC
*------
PROCEDURE _0bm1c0h79
 DO FORM wordgj
ENDPROC
*------
PROCEDURE _0bm1c0h7e
 DO FORM EXCELGJ
ENDPROC
*------
PROCEDURE _0bm1c0h7n
 DO FORM INTERNET
ENDPROC
*------
PROCEDURE _0bm1c0h7s
 DO FORM EMAIL
ENDPROC
*------
PROCEDURE _0bm1c0h7x
 ACTIVATE WINDOW IN MAIN CALCULATOR
ENDPROC
*------
PROCEDURE _0bm1c0h82
 DQDATE = DATE()
 DO FORM rl TO DQDATE WITH DQDATE
ENDPROC
*------
PROCEDURE _0bm1c0h8h
 IF WSHAPE41 = .T.
 DO FORM czy
 ELSE 
 = MESSAGEBOX('您不具备使用本功能的权限，请重新登录系统或找系统软件管理员协调！！！',48,TSTITLE)
 FOR I = 1 TO _SCREEN.FORMCOUNT
 MNAME = _SCREEN.FORMS(I).NAME
 IF ALLTRIM(UPPER(MNAME)) = 'XTDL'
  ZOOM window &mname max
  ZOOM window &mname norm
 ENDIF 
 ENDFOR 
 RETURN 
 ENDIF 
ENDPROC
*------
PROCEDURE _0bm1c0h8m
 IF WSHAPE42 = .T.
 DO FORM czqx
 ELSE 
 = MESSAGEBOX('您不具备使用本功能的权限，请重新登录系统或找系统软件管理员协调！！！',48,TSTITLE)
 FOR I = 1 TO _SCREEN.FORMCOUNT
 MNAME = _SCREEN.FORMS(I).NAME
 IF ALLTRIM(UPPER(MNAME)) = 'XTDL'
  ZOOM window &mname max
  ZOOM window &mname norm
 ENDIF 
 ENDFOR 
 RETURN 
 ENDIF 
ENDPROC
*------
PROCEDURE _0bm1c0h8r
 IF WSHAPE43 = .T.
 DO FORM sjbf
 ELSE 
 = MESSAGEBOX('您不具备使用本功能的权限，请重新登录系统或找系统软件管理员协调！！！',48,TSTITLE)
 FOR I = 1 TO _SCREEN.FORMCOUNT
 MNAME = _SCREEN.FORMS(I).NAME
 IF ALLTRIM(UPPER(MNAME)) = 'XTDL'
  ZOOM window &mname max
  ZOOM window &mname norm
 ENDIF 
 ENDFOR 
 RETURN 
 ENDIF 
ENDPROC
*------
PROCEDURE _0bm1c0h8w
 IF WSHAPE44 = .T.
 DO FORM sjhf
 ELSE 
 = MESSAGEBOX('您不具备使用本功能的权限，请重新登录系统或找系统软件管理员协调！！！',48,TSTITLE)
 FOR I = 1 TO _SCREEN.FORMCOUNT
 MNAME = _SCREEN.FORMS(I).NAME
 IF ALLTRIM(UPPER(MNAME)) = 'XTDL'
  ZOOM window &mname max
  ZOOM window &mname norm
 ENDIF 
 ENDFOR 
 RETURN 
 ENDIF 
ENDPROC
*------
PROCEDURE _0bm1c0h97
 IF WSHAPE45 = .T.
 DO FORM fbl
 ELSE 
 = MESSAGEBOX('您不具备使用本功能的权限，请重新登录系统或找系统软件管理员协调！！！',48,TSTITLE)
 FOR I = 1 TO _SCREEN.FORMCOUNT
 MNAME = _SCREEN.FORMS(I).NAME
 IF ALLTRIM(UPPER(MNAME)) = 'XTDL'
  ZOOM window &mname max
  ZOOM window &mname norm
 ENDIF 
 ENDFOR 
 RETURN 
 ENDIF 
ENDPROC
*------
PROCEDURE _0bm1c0h9c
 IF WSHAPE46 = .T.
 DO FORM yhzz
 ELSE 
 = MESSAGEBOX('您不具备使用本功能的权限，请重新登录系统或找系统软件管理员协调！！！',48,TSTITLE)
 FOR I = 1 TO _SCREEN.FORMCOUNT
 MNAME = _SCREEN.FORMS(I).NAME
 IF ALLTRIM(UPPER(MNAME)) = 'XTDL'
  ZOOM window &mname max
  ZOOM window &mname norm
 ENDIF 
 ENDFOR 
 RETURN 
 ENDIF 
ENDPROC
*------
PROCEDURE _0bm1c0h9l
 IF WSHAPE21 = .T.
 DO FORM xtjs
 ELSE 
 = MESSAGEBOX('您不具备使用本功能的权限，请重新登录系统或找系统软件管理员协调！！！',48,TSTITLE)
 FOR I = 1 TO _SCREEN.FORMCOUNT
 MNAME = _SCREEN.FORMS(I).NAME
 IF ALLTRIM(UPPER(MNAME)) = 'XTDL'
  ZOOM window &mname max
  ZOOM window &mname norm
 ENDIF 
 ENDFOR 
 RETURN 
 ENDIF 
ENDPROC
*------
PROCEDURE _0bm1c0h9q
 IF WSHAPE32 = .T.
 MHELPXZ = 1
 DO FORM sxrsgzhelp WITH MHELPXZ
 ELSE 
 = MESSAGEBOX('您不具备使用本功能的权限，请重新登录系统或找系统软件管理员协调！！！',48,TSTITLE)
 FOR I = 1 TO _SCREEN.FORMCOUNT
 MNAME = _SCREEN.FORMS(I).NAME
 IF ALLTRIM(UPPER(MNAME)) = 'XTDL'
  ZOOM window &mname max
  ZOOM window &mname norm
 ENDIF 
 ENDFOR 
 RETURN 
 ENDIF 
ENDPROC
*------
PROCEDURE _0bm1c0ha0
 IF WSHAPE33 = .T.
 DO FORM sxrsgzbq
 ELSE 
 = MESSAGEBOX('您不具备使用本功能的权限，请重新登录系统或找系统软件管理员协调！！！',48,TSTITLE)
 FOR I = 1 TO _SCREEN.FORMCOUNT
 MNAME = _SCREEN.FORMS(I).NAME
 IF ALLTRIM(UPPER(MNAME)) = 'XTDL'
  ZOOM window &mname max
  ZOOM window &mname norm
 ENDIF 
 ENDFOR 
 RETURN 
 ENDIF 
ENDPROC
*------
PROCEDURE _0bm1c0ha5
 IF WSHAPE35 = .T.
 DO FORM sxrsgzzc
 ELSE 
 = MESSAGEBOX('您不具备使用本功能的权限，请重新登录系统或找系统软件管理员协调！！！',48,TSTITLE)
 FOR I = 1 TO _SCREEN.FORMCOUNT
 MNAME = _SCREEN.FORMS(I).NAME
 IF ALLTRIM(UPPER(MNAME)) = 'XTDL'
  ZOOM window &mname max
  ZOOM window &mname norm
 ENDIF 
 ENDFOR 
 RETURN 
 ENDIF 
ENDPROC
*------
PROCEDURE _0bm1c0haa
 IF WSHAPE34 = .T.
 DO FORM rjjs
 ELSE 
 = MESSAGEBOX('您不具备使用本功能的权限，请重新登录系统或找系统软件管理员协调！！！',48,TSTITLE)
 FOR I = 1 TO _SCREEN.FORMCOUNT
 MNAME = _SCREEN.FORMS(I).NAME
 IF ALLTRIM(UPPER(MNAME)) = 'XTDL'
  ZOOM window &mname max
  ZOOM window &mname norm
 ENDIF 
 ENDFOR 
 RETURN 
 ENDIF 
ENDPROC
*------*