main.mpr

包括了6个VFP程序设计实例

* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
*  文件名: MAIN.MPR <-- 本文件由 UnFoxAll 创建
* -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-


 LPARAMETER OFORMREF , GETMENUNAME , LUNIQUEPOPUPS , PARM4 , PARM5 , PARM6 , PARM7 , PARM8 ,  ;
      PARM9
 LOCAL CMENUNAME , NTOTPOPS , A_MENUPOPS , CTYPEPARM2 , CSAVEFORMNAME
 IF TYPE('m.oFormRef') <> 'O' .OR. LOWER(M.OFORMREF.BASECLASS) <> 'form' .OR.  ;
M.OFORMREF.SHOWWINDOW <> 2
  MESSAGEBOX('只能从顶层表单调用该菜单。请确认您表单的 ShowWindow 属性已设为 2。阅读此菜单 MPR 文件的头部分，可以获得详细信息。')
 RETURN 
 ENDIF 
 M.CTYPEPARM2 = TYPE('m.getMenuName')
 M.CMENUNAME = SYS(2015)
 M.CSAVEFORMNAME = M.OFORMREF.NAME
 IF M.CTYPEPARM2 = 'C' .OR. (M.CTYPEPARM2 = 'L' AND M.GETMENUNAME)
 M.OFORMREF.NAME = M.CMENUNAME
 ENDIF 
 IF M.CTYPEPARM2 = 'C' AND  .NOT. EMPTY(M.GETMENUNAME)
 M.CMENUNAME = M.GETMENUNAME
 ENDIF 
 DIMENSION A_MENUPOPS( 6 )
 IF TYPE('m.lUniquePopups') = 'L' AND M.LUNIQUEPOPUPS
 FOR NTOTPOPS = 1 TO ALEN(A_MENUPOPS)
 A_MENUPOPS( M.NTOTPOPS ) = SYS(2015)
 ENDFOR 
 ELSE 
 A_MENUPOPS( 1 ) = '人事管理'
 A_MENUPOPS( 2 ) = '工资管理'
 A_MENUPOPS( 3 ) = '_04f07fkq1'
 A_MENUPOPS( 4 ) = '_04f07nyf1'
 A_MENUPOPS( 5 ) = '帮助信息'
 A_MENUPOPS( 6 ) = '版权注册'
 ENDIF 
 DEFINE MENU (M.CMENUNAME) BAR IN (M.OFORMREF.NAME)
 DEFINE PAD _0BM1C0H1U OF (M.CMENUNAME) PROMPT '人事管理' COLOR SCHEME 3
 DEFINE PAD _0BM1C0H2K OF (M.CMENUNAME) PROMPT '工资管理' COLOR SCHEME 3
 DEFINE PAD _0BM1C0H2M OF (M.CMENUNAME) PROMPT '辅助功能' COLOR SCHEME 3
 DEFINE PAD _0BM1C0H2N OF (M.CMENUNAME) PROMPT '系统维护' COLOR SCHEME 3
 DEFINE PAD _0BM1C0H2O OF (M.CMENUNAME) PROMPT '帮助信息' COLOR SCHEME 3
 DEFINE PAD _0BM1C0H2Q OF (M.CMENUNAME) PROMPT '版权注册' COLOR SCHEME 3
 DEFINE PAD _0BM1C0H2R OF (M.CMENUNAME) PROMPT '退出系统' COLOR SCHEME 3
 ON PAD _0BM1C0H1U OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(1))
 ON PAD _0BM1C0H2K OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(2))
 ON PAD _0BM1C0H2M OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(3))
 ON PAD _0BM1C0H2N OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(4))
 ON PAD _0BM1C0H2O OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(5))
 ON PAD _0BM1C0H2Q OF (M.CMENUNAME) ACTIVATE POPUP (A_MENUPOPS(6))
 ON SELECTION PAD _0BM1C0H2R OF (M.CMENUNAME) quit
 DEFINE POPUP (A_MENUPOPS(1)) COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF (A_MENUPOPS(1)) PROMPT '人事档案资料管理'
 DEFINE BAR 2 OF (A_MENUPOPS(1)) PROMPT '\-'
 DEFINE BAR 3 OF (A_MENUPOPS(1)) PROMPT '部门班组档案设置'
 DEFINE BAR 4 OF (A_MENUPOPS(1)) PROMPT '文化程度档案设置'
 DEFINE BAR 5 OF (A_MENUPOPS(1)) PROMPT '民族档案设置'
 DEFINE BAR 6 OF (A_MENUPOPS(1)) PROMPT '职称职务档案设置'
 DEFINE BAR 7 OF (A_MENUPOPS(1)) PROMPT '\-'
 DEFINE BAR 8 OF (A_MENUPOPS(1)) PROMPT '人事档案综合查询'
 ON SELECTION BAR 1 OF (A_MENUPOPS(1))  ;
      DO _0bm1c0h41  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ON SELECTION BAR 3 OF (A_MENUPOPS(1))  ;
      DO _0bm1c0h55  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ON SELECTION BAR 4 OF (A_MENUPOPS(1))  ;
      DO _0bm1c0h5a  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ON SELECTION BAR 5 OF (A_MENUPOPS(1))  ;
      DO _0bm1c0h5f  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ON SELECTION BAR 6 OF (A_MENUPOPS(1))  ;
      DO _0bm1c0h5k  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ON SELECTION BAR 8 OF (A_MENUPOPS(1))  ;
      DO _0bm1c0h5p  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 DEFINE POPUP (A_MENUPOPS(2)) COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF (A_MENUPOPS(2)) PROMPT '工资项目及计算公式设置与维护'
 DEFINE BAR 2 OF (A_MENUPOPS(2)) PROMPT '工资管理'
 DEFINE BAR 3 OF (A_MENUPOPS(2)) PROMPT '\-'
 DEFINE BAR 4 OF (A_MENUPOPS(2)) PROMPT '计件工资管理'
 DEFINE BAR 5 OF (A_MENUPOPS(2)) PROMPT '计时工资管理'
 DEFINE BAR 6 OF (A_MENUPOPS(2)) PROMPT '\-'
 DEFINE BAR 7 OF (A_MENUPOPS(2)) PROMPT '工资查询打印'
 DEFINE BAR 8 OF (A_MENUPOPS(2)) PROMPT '工资统计分析'
 ON SELECTION BAR 1 OF (A_MENUPOPS(2))  ;
      DO _0bm1c0h63  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ON SELECTION BAR 2 OF (A_MENUPOPS(2))  ;
      DO _0bm1c0h68  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ON SELECTION BAR 4 OF (A_MENUPOPS(2))  ;
      DO _0bm1c0h6d  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ON SELECTION BAR 5 OF (A_MENUPOPS(2))  ;
      DO _0bm1c0h6i  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ON SELECTION BAR 7 OF (A_MENUPOPS(2))  ;
      DO _0bm1c0h6n  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ON SELECTION BAR 8 OF (A_MENUPOPS(2))  ;
      DO _0bm1c0h6r  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 DEFINE POPUP (A_MENUPOPS(3)) COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF (A_MENUPOPS(3)) PROMPT '启动WOED'
 DEFINE BAR 2 OF (A_MENUPOPS(3)) PROMPT '启动EXCEL'
 DEFINE BAR 3 OF (A_MENUPOPS(3)) PROMPT '\-'
 DEFINE BAR 4 OF (A_MENUPOPS(3)) PROMPT '登录INTERNET'
 DEFINE BAR 5 OF (A_MENUPOPS(3)) PROMPT '发送电子邮件'
 DEFINE BAR 6 OF (A_MENUPOPS(3)) PROMPT '\-'
 DEFINE BAR 7 OF (A_MENUPOPS(3)) PROMPT '计算器'
 DEFINE BAR 8 OF (A_MENUPOPS(3)) PROMPT '日历簿'
 DEFINE BAR 9 OF (A_MENUPOPS(3)) PROMPT '\-'
 DEFINE BAR _MED_COPY OF (A_MENUPOPS(3)) PROMPT '复制(\<C)' MESSAGE  ;
      '将选定内容复制到剪贴板上' KEY CTRL+C , 'Ctrl+C'
 DEFINE BAR _MED_PASTE OF (A_MENUPOPS(3)) PROMPT '粘贴(\<P)' MESSAGE  ;
      '粘贴剪贴板上的内容' KEY CTRL+V , 'Ctrl+V'
 DEFINE BAR _MED_UNDO OF (A_MENUPOPS(3)) PROMPT '撤消(\<U)' MESSAGE  ;
      '撤消上一次命令或操作' KEY CTRL+Z , 'Ctrl+Z'
 DEFINE BAR 13 OF (A_MENUPOPS(3)) PROMPT ' '
 ON SELECTION BAR 1 OF (A_MENUPOPS(3))  ;
      DO _0bm1c0h79  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ON SELECTION BAR 2 OF (A_MENUPOPS(3))  ;
      DO _0bm1c0h7e  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ON SELECTION BAR 4 OF (A_MENUPOPS(3))  ;
      DO _0bm1c0h7n  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ON SELECTION BAR 5 OF (A_MENUPOPS(3))  ;
      DO _0bm1c0h7s  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ON SELECTION BAR 7 OF (A_MENUPOPS(3))  ;
      DO _0bm1c0h7x  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ON SELECTION BAR 8 OF (A_MENUPOPS(3))  ;
      DO _0bm1c0h82  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 DEFINE POPUP (A_MENUPOPS(4)) COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF (A_MENUPOPS(4)) PROMPT '操作员设置'
 DEFINE BAR 2 OF (A_MENUPOPS(4)) PROMPT '操作权限设置'
 DEFINE BAR 3 OF (A_MENUPOPS(4)) PROMPT '\-'
 DEFINE BAR 4 OF (A_MENUPOPS(4)) PROMPT '数据及文件备份'
 DEFINE BAR 5 OF (A_MENUPOPS(4)) PROMPT '数据及文件恢复'
 DEFINE BAR 6 OF (A_MENUPOPS(4)) PROMPT '\-'
 DEFINE BAR 7 OF (A_MENUPOPS(4)) PROMPT '电脑分辨率设置'
 DEFINE BAR 8 OF (A_MENUPOPS(4)) PROMPT '生成银行转帐盘'
 ON SELECTION BAR 1 OF (A_MENUPOPS(4))  ;
      DO _0bm1c0h8h  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ON SELECTION BAR 2 OF (A_MENUPOPS(4))  ;
      DO _0bm1c0h8m  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ON SELECTION BAR 4 OF (A_MENUPOPS(4))  ;
      DO _0bm1c0h8r  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ON SELECTION BAR 5 OF (A_MENUPOPS(4))  ;
      DO _0bm1c0h8w  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ON SELECTION BAR 7 OF (A_MENUPOPS(4))  ;
      DO _0bm1c0h97  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ON SELECTION BAR 8 OF (A_MENUPOPS(4))  ;
      DO _0bm1c0h9c  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 DEFINE POPUP (A_MENUPOPS(5)) COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF (A_MENUPOPS(5)) PROMPT '系统介绍'
 DEFINE BAR 2 OF (A_MENUPOPS(5)) PROMPT '操作说明'
 ON SELECTION BAR 1 OF (A_MENUPOPS(5))  ;
      DO _0bm1c0h9l  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ON SELECTION BAR 2 OF (A_MENUPOPS(5))  ;
      DO _0bm1c0h9q  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 DEFINE POPUP (A_MENUPOPS(6)) COLOR SCHEME 4 SHADOW MARGIN RELATIVE 
 DEFINE BAR 1 OF (A_MENUPOPS(6)) PROMPT '版权信息'
 DEFINE BAR 2 OF (A_MENUPOPS(6)) PROMPT '电子注册'
 DEFINE BAR 3 OF (A_MENUPOPS(6)) PROMPT '\-'
 DEFINE BAR 4 OF (A_MENUPOPS(6)) PROMPT '其他软件介绍'
 ON SELECTION BAR 1 OF (A_MENUPOPS(6))  ;
      DO _0bm1c0ha0  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ON SELECTION BAR 2 OF (A_MENUPOPS(6))  ;
      DO _0bm1c0ha5  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ON SELECTION BAR 4 OF (A_MENUPOPS(6))  ;
      DO _0bm1c0haa  IN LOCFILE("SXRSGZ\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
 ACTIVATE MENU (M.CMENUNAME) NOWAIT
 IF M.CTYPEPARM2 = 'C'
 M.GETMENUNAME = M.CMENUNAME
 M.OFORMREF.NAME = M.CSAVEFORMNAME
 ENDIF 

PROCEDURE _0bm1c0h41
 IF WSHAPE16 = .T.
 DO FORM RSDAN
 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 _0bm1c0h55
 IF WSHAPE15 = .T.
 DO FORM bmsz
 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 _0bm1c0h5a
 IF WSHAPE12 = .T.
 DO FORM whcdsz
 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 _0bm1c0h5f
 IF WSHAPE11 = .T.
 DO FORM mzsz
 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 _0bm1c0h5k
 IF WSHAPE13 = .T.
 DO FORM zcSZ
 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 _0bm1c0h5p
 IF WSHAPE14 = .T.
 DO FORM rszhcx
 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 _0bm1c0h63
 IF WSHAPE21 = .T.
 PUBLIC DY , CNF , CYF
 DY = 0
 CNF = SUBSTR(DTOC(DATE()),1,4)
 CYF = SUBSTR(DTOC(DATE()),6,2)
 DO FORM GZLBSZ WITH DY , CNF , CYF
 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 _0bm1c0h68