📄 caidan.mpr
字号:
* *********************************************************
* *
* * 03-5-25 CAIDAN.MPR 22:01:55
* *
* *********************************************************
* *
* * wangyong
* *
* * 版权所有 (C) 2003 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _0ym1b803c OF _MSYSMENU PROMPT "系统管理" COLOR SCHEME 3
DEFINE PAD _0ym1b803x OF _MSYSMENU PROMPT "维护" COLOR SCHEME 3
DEFINE PAD _0ym1b803y OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3
DEFINE PAD _0ym1b803z OF _MSYSMENU PROMPT "统计" COLOR SCHEME 3
ON PAD _0ym1b803c OF _MSYSMENU ACTIVATE POPUP 系统管理
ON PAD _0ym1b803x OF _MSYSMENU ACTIVATE POPUP 维护
ON SELECTION PAD _0ym1b803y OF _MSYSMENU ;
DO _0ym1b8040 ;
IN LOCFILE("人事信息管理系统\PERSONAL\FORM\CAIDAN" ,"MPX;MPR|FXP;PRG" ,"WHERE is CAIDAN?")
ON PAD _0ym1b803z 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 _0ym1b804j ;
IN LOCFILE("人事信息管理系统\PERSONAL\FORM\CAIDAN" ,"MPX;MPR|FXP;PRG" ,"WHERE is CAIDAN?")
ON SELECTION BAR 2 OF 系统管理 ;
DO _0ym1b804k ;
IN LOCFILE("人事信息管理系统\PERSONAL\FORM\CAIDAN" ,"MPX;MPR|FXP;PRG" ,"WHERE is CAIDAN?")
ON SELECTION BAR 3 OF 系统管理 ;
DO _0ym1b804l ;
IN LOCFILE("人事信息管理系统\PERSONAL\FORM\CAIDAN" ,"MPX;MPR|FXP;PRG" ,"WHERE is CAIDAN?")
ON SELECTION BAR 4 OF 系统管理 ;
DO _0ym1b804m ;
IN LOCFILE("人事信息管理系统\PERSONAL\FORM\CAIDAN" ,"MPX;MPR|FXP;PRG" ,"WHERE is CAIDAN?")
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 _0ym1b804n ;
IN LOCFILE("人事信息管理系统\PERSONAL\FORM\CAIDAN" ,"MPX;MPR|FXP;PRG" ,"WHERE is CAIDAN?")
ON SELECTION BAR 2 OF 维护 ;
DO _0ym1b804o ;
IN LOCFILE("人事信息管理系统\PERSONAL\FORM\CAIDAN" ,"MPX;MPR|FXP;PRG" ,"WHERE is CAIDAN?")
ON SELECTION BAR 3 OF 维护 ;
DO _0ym1b804p ;
IN LOCFILE("人事信息管理系统\PERSONAL\FORM\CAIDAN" ,"MPX;MPR|FXP;PRG" ,"WHERE is CAIDAN?")
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 _0ym1b804q ;
IN LOCFILE("人事信息管理系统\PERSONAL\FORM\CAIDAN" ,"MPX;MPR|FXP;PRG" ,"WHERE is CAIDAN?")
ON SELECTION BAR 2 OF 统计 ;
DO _0ym1b804r ;
IN LOCFILE("人事信息管理系统\PERSONAL\FORM\CAIDAN" ,"MPX;MPR|FXP;PRG" ,"WHERE is CAIDAN?")
ON SELECTION BAR 3 OF 统计 ;
DO _0ym1b804s ;
IN LOCFILE("人事信息管理系统\PERSONAL\FORM\CAIDAN" ,"MPX;MPR|FXP;PRG" ,"WHERE is CAIDAN?")
ON SELECTION BAR 4 OF 统计 ;
DO _0ym1b804t ;
IN LOCFILE("人事信息管理系统\PERSONAL\FORM\CAIDAN" ,"MPX;MPR|FXP;PRG" ,"WHERE is CAIDAN?")
* *********************************************************
* *
* * _0YM1B8040 ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: CAIDAN.MPR, Record: 14
* * Called By: ON SELECTION PAD
* * Prompt: 查询
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _0ym1b8040
do form query
* *********************************************************
* *
* * _0YM1B804J ON SELECTION BAR 1 OF POPUP 系统管理
* *
* * Procedure Origin:
* *
* * From Menu: CAIDAN.MPR, Record: 5
* * Called By: ON SELECTION BAR 1 OF POPUP 系统管理
* * Prompt: 修改密码
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _0ym1b804j
do form form\modify
* *********************************************************
* *
* * _0YM1B804K ON SELECTION BAR 2 OF POPUP 系统管理
* *
* * Procedure Origin:
* *
* * From Menu: CAIDAN.MPR, Record: 6
* * Called By: ON SELECTION BAR 2 OF POPUP 系统管理
* * Prompt: 增加用户
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _0ym1b804k
do form modify
* *********************************************************
* *
* * _0YM1B804L ON SELECTION BAR 3 OF POPUP 系统管理
* *
* * Procedure Origin:
* *
* * From Menu: CAIDAN.MPR, Record: 7
* * Called By: ON SELECTION BAR 3 OF POPUP 系统管理
* * Prompt: 删除用户
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _0ym1b804l
do form modify
* *********************************************************
* *
* * _0YM1B804M ON SELECTION BAR 4 OF POPUP 系统管理
* *
* * Procedure Origin:
* *
* * From Menu: CAIDAN.MPR, Record: 8
* * Called By: ON SELECTION BAR 4 OF POPUP 系统管理
* * Prompt: 退出
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _0ym1b804m
thisform.release
* *********************************************************
* *
* * _0YM1B804N ON SELECTION BAR 1 OF POPUP 维护
* *
* * Procedure Origin:
* *
* * From Menu: CAIDAN.MPR, Record: 11
* * Called By: ON SELECTION BAR 1 OF POPUP 维护
* * Prompt: 职工基本情况表
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _0ym1b804n
do form personal_cards.scx
* *********************************************************
* *
* * _0YM1B804O ON SELECTION BAR 2 OF POPUP 维护
* *
* * Procedure Origin:
* *
* * From Menu: CAIDAN.MPR, Record: 12
* * Called By: ON SELECTION BAR 2 OF POPUP 维护
* * Prompt: 职工家庭成员表
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _0ym1b804o
do form family_members.scx
* *********************************************************
* *
* * _0YM1B804P ON SELECTION BAR 3 OF POPUP 维护
* *
* * Procedure Origin:
* *
* * From Menu: CAIDAN.MPR, Record: 13
* * Called By: ON SELECTION BAR 3 OF POPUP 维护
* * Prompt: 职工社会关系表
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _0ym1b804p
do form societal_relations.scx
* *********************************************************
* *
* * _0YM1B804Q ON SELECTION BAR 1 OF POPUP 统计
* *
* * Procedure Origin:
* *
* * From Menu: CAIDAN.MPR, Record: 17
* * Called By: ON SELECTION BAR 1 OF POPUP 统计
* * Prompt: 技术职称统计
* * Snippet: 9
* *
* *********************************************************
*
PROCEDURE _0ym1b804q
DO FORM PAR
* *********************************************************
* *
* * _0YM1B804R ON SELECTION BAR 2 OF POPUP 统计
* *
* * Procedure Origin:
* *
* * From Menu: CAIDAN.MPR, Record: 18
* * Called By: ON SELECTION BAR 2 OF POPUP 统计
* * Prompt: 任职状况统计
* * Snippet: 10
* *
* *********************************************************
*
PROCEDURE _0ym1b804r
DO FORM HEADSHIP
* *********************************************************
* *
* * _0YM1B804S ON SELECTION BAR 3 OF POPUP 统计
* *
* * Procedure Origin:
* *
* * From Menu: CAIDAN.MPR, Record: 19
* * Called By: ON SELECTION BAR 3 OF POPUP 统计
* * Prompt: 政治面貌统计
* * Snippet: 11
* *
* *********************************************************
*
PROCEDURE _0ym1b804s
DO FORM PAR
* *********************************************************
* *
* * _0YM1B804T ON SELECTION BAR 4 OF POPUP 统计
* *
* * Procedure Origin:
* *
* * From Menu: CAIDAN.MPR, Record: 20
* * Called By: ON SELECTION BAR 4 OF POPUP 统计
* * Prompt: 文化程度统计
* * Snippet: 12
* *
* *********************************************************
*
PROCEDURE _0ym1b804t
DO FORM EDUCATED
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -