📄 zhu.mpr
字号:
* *********************************************************
* *
* * 07/01/03 ZHU.MPR 14:54:06
* *
* *********************************************************
* *
* * 作者名称
* *
* * 版权所有 (C) 2003 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _0zn0vxtt9 OF _MSYSMENU PROMPT "系统维护" COLOR SCHEME 3
DEFINE PAD _0zn0vxtta OF _MSYSMENU PROMPT "数据管理" COLOR SCHEME 3
DEFINE PAD _0zn0vxttb OF _MSYSMENU PROMPT "查询统计" COLOR SCHEME 3
DEFINE PAD _0zn0vxttc OF _MSYSMENU PROMPT "打印" COLOR SCHEME 3
DEFINE PAD _0zn0vxttd OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _0zn0vxtt9 OF _MSYSMENU ACTIVATE POPUP 系统维护
ON PAD _0zn0vxtta OF _MSYSMENU ACTIVATE POPUP 数据管理
ON PAD _0zn0vxttb OF _MSYSMENU ACTIVATE POPUP 查询统计
ON PAD _0zn0vxttc OF _MSYSMENU ACTIVATE POPUP 打印
ON PAD _0zn0vxttd OF _MSYSMENU ACTIVATE POPUP 退出
DEFINE POPUP 系统维护 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统维护 PROMPT "操作员维护"
DEFINE BAR 2 OF 系统维护 PROMPT "字典库维护"
DEFINE BAR 3 OF 系统维护 PROMPT "数据备份"
DEFINE BAR 4 OF 系统维护 PROMPT "数据恢复"
ON SELECTION BAR 1 OF 系统维护 ;
DO _0zn0vxttg ;
IN LOCFILE("XDKJGZGL\ZHU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHU?")
ON SELECTION BAR 2 OF 系统维护 ;
DO _0zn0vxtth ;
IN LOCFILE("XDKJGZGL\ZHU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHU?")
DEFINE POPUP 数据管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 数据管理 PROMPT "增加人员"
DEFINE BAR 2 OF 数据管理 PROMPT "减少人员"
DEFINE BAR 3 OF 数据管理 PROMPT "调动人员"
DEFINE BAR 4 OF 数据管理 PROMPT "个人修改"
DEFINE BAR 5 OF 数据管理 PROMPT "批量修改"
ON SELECTION BAR 1 OF 数据管理 ;
DO _0zn0vxttk ;
IN LOCFILE("XDKJGZGL\ZHU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHU?")
ON SELECTION BAR 2 OF 数据管理 ;
DO _0zn0vxttl ;
IN LOCFILE("XDKJGZGL\ZHU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHU?")
ON SELECTION BAR 3 OF 数据管理 ;
DO _0zn0vxttm ;
IN LOCFILE("XDKJGZGL\ZHU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHU?")
ON SELECTION BAR 4 OF 数据管理 ;
DO _0zn0vxttn ;
IN LOCFILE("XDKJGZGL\ZHU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHU?")
ON SELECTION BAR 5 OF 数据管理 ;
DO _0zn0vxtto ;
IN LOCFILE("XDKJGZGL\ZHU" ,"MPX;MPR|FXP;PRG" ,"WHERE is ZHU?")
DEFINE POPUP 查询统计 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询统计 PROMPT "在职人员查询"
DEFINE BAR 2 OF 查询统计 PROMPT "非在职人员查询"
DEFINE BAR 3 OF 查询统计 PROMPT "综合查询"
ON SELECTION BAR 1 OF 查询统计 do form gzcx
ON SELECTION BAR 2 OF 查询统计 do form locatedel
ON SELECTION BAR 3 OF 查询统计 do form alllocate
DEFINE POPUP 打印 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 打印 PROMPT "职工名册"
DEFINE BAR 2 OF 打印 PROMPT "变动单"
DEFINE BAR 3 OF 打印 PROMPT "工资汇总台帐"
ON SELECTION BAR 1 OF 打印 do form mc
ON SELECTION BAR 2 OF 打印 do form dy2
ON SELECTION BAR 3 OF 打印 do form hztz
DEFINE POPUP 退出 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 退出 PROMPT "退出系统"
ON SELECTION BAR 1 OF 退出 do q
* *********************************************************
* *
* * _0ZN0VXTTG ON SELECTION BAR 1 OF POPUP 系统维护
* *
* * Procedure Origin:
* *
* * From Menu: ZHU.MPR, Record: 5
* * Called By: ON SELECTION BAR 1 OF POPUP 系统维护
* * Prompt: 操作员维护
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _0zn0vxttg
if qx=1
do form czy
endi
* *********************************************************
* *
* * _0ZN0VXTTH ON SELECTION BAR 2 OF POPUP 系统维护
* *
* * Procedure Origin:
* *
* * From Menu: ZHU.MPR, Record: 6
* * Called By: ON SELECTION BAR 2 OF POPUP 系统维护
* * Prompt: 字典库维护
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _0zn0vxtth
if qx=1
do form weihu
endi
* *********************************************************
* *
* * _0ZN0VXTTK ON SELECTION BAR 1 OF POPUP 数据管理
* *
* * Procedure Origin:
* *
* * From Menu: ZHU.MPR, Record: 11
* * Called By: ON SELECTION BAR 1 OF POPUP 数据管理
* * Prompt: 增加人员
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _0zn0vxttk
if qx=1
do form zjry
endi
* *********************************************************
* *
* * _0ZN0VXTTL ON SELECTION BAR 2 OF POPUP 数据管理
* *
* * Procedure Origin:
* *
* * From Menu: ZHU.MPR, Record: 12
* * Called By: ON SELECTION BAR 2 OF POPUP 数据管理
* * Prompt: 减少人员
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _0zn0vxttl
if qx=1
do form gzdel
endi
* *********************************************************
* *
* * _0ZN0VXTTM ON SELECTION BAR 3 OF POPUP 数据管理
* *
* * Procedure Origin:
* *
* * From Menu: ZHU.MPR, Record: 13
* * Called By: ON SELECTION BAR 3 OF POPUP 数据管理
* * Prompt: 调动人员
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _0zn0vxttm
if qx=1
do form gzbd
endi
* *********************************************************
* *
* * _0ZN0VXTTN ON SELECTION BAR 4 OF POPUP 数据管理
* *
* * Procedure Origin:
* *
* * From Menu: ZHU.MPR, Record: 14
* * Called By: ON SELECTION BAR 4 OF POPUP 数据管理
* * Prompt: 个人修改
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _0zn0vxttn
if qx=1
do form gzxg
endi
* *********************************************************
* *
* * _0ZN0VXTTO ON SELECTION BAR 5 OF POPUP 数据管理
* *
* * Procedure Origin:
* *
* * From Menu: ZHU.MPR, Record: 15
* * Called By: ON SELECTION BAR 5 OF POPUP 数据管理
* * Prompt: 批量修改
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _0zn0vxtto
if qx=1
do form plxg
endi
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -