菜单1.mpr

简单的工资管理系统

SET SYSMENU TO
SET SYSMENU AUTOMATIC

DEFINE PAD _1j40o9wdu OF _MSYSMENU PROMPT "职工信息" COLOR SCHEME 3
DEFINE PAD _1j40o9wdv OF _MSYSMENU PROMPT "工资设定" COLOR SCHEME 3
DEFINE PAD _1j40o9wdw OF _MSYSMENU PROMPT "工资汇总" COLOR SCHEME 3
DEFINE PAD _1j40o9wdx OF _MSYSMENU PROMPT "工资查询" COLOR SCHEME 3
DEFINE PAD _1j40o9wdy OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _1j40o9wdu OF _MSYSMENU ACTIVATE POPUP 职工信息
ON PAD _1j40o9wdv OF _MSYSMENU ACTIVATE POPUP 工资设定
ON SELECTION PAD _1j40o9wdw OF _MSYSMENU do form form9
ON SELECTION PAD _1j40o9wdx OF _MSYSMENU do form form10
ON SELECTION PAD _1j40o9wdy OF _MSYSMENU close all

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 form3
ON SELECTION BAR 2 OF 职工信息 do form form4
ON SELECTION BAR 3 OF 职工信息 do form form5

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 form6
ON SELECTION BAR 2 OF 工资设定 do form form7
ON SELECTION BAR 3 OF 工资设定 do form form8