📄 mymenu.mpr
字号:
* *********************************************************
* *
* * 07/21/03 MYMENU.MPR 15:00:09
* *
* *********************************************************
* *
* * 作者名称
* *
* * 版权所有 (C) 2003 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _1070w5m92 OF _MSYSMENU PROMPT "经营部" COLOR SCHEME 3
DEFINE PAD _1070w5m9a OF _MSYSMENU PROMPT "管理部" COLOR SCHEME 3
DEFINE PAD _1070w5m9c OF _MSYSMENU PROMPT "工程部" COLOR SCHEME 3
DEFINE PAD _1070w5m9d OF _MSYSMENU PROMPT "财务部" COLOR SCHEME 3
DEFINE PAD _1070w5m9f OF _MSYSMENU PROMPT "保安部" COLOR SCHEME 3
DEFINE PAD _1070w5m9g OF _MSYSMENU PROMPT "经理室" COLOR SCHEME 3
DEFINE PAD _1070w5m9h OF _MSYSMENU PROMPT "系统管理" COLOR SCHEME 3
DEFINE PAD _1070w5m9i OF _MSYSMENU PROMPT "帮助" COLOR SCHEME 3
ON PAD _1070w5m92 OF _MSYSMENU ACTIVATE POPUP 经营部
ON PAD _1070w5m9a OF _MSYSMENU ACTIVATE POPUP 管理部
ON PAD _1070w5m9c OF _MSYSMENU ACTIVATE POPUP 工程部
ON PAD _1070w5m9d OF _MSYSMENU ACTIVATE POPUP 财务部
ON PAD _1070w5m9f OF _MSYSMENU ACTIVATE POPUP 保安部
ON PAD _1070w5m9g OF _MSYSMENU ACTIVATE POPUP 经理室
ON PAD _1070w5m9h OF _MSYSMENU ACTIVATE POPUP 系统管理
ON PAD _1070w5m9i OF _MSYSMENU ACTIVATE POPUP 帮助
DEFINE POPUP 经营部 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 经营部 PROMPT "小区信息生成(\<A)" ;
SKIP FOR pjyb=.f.
DEFINE BAR 2 OF 经营部 PROMPT "大楼信息生成(\<B)" ;
SKIP FOR pjyb=.f.
DEFINE BAR 3 OF 经营部 PROMPT "房屋信息生成(\<C)" ;
SKIP FOR pjyb=.f.
DEFINE BAR 4 OF 经营部 PROMPT "\-"
DEFINE BAR 5 OF 经营部 PROMPT "小区信息登记(\<D)" ;
SKIP FOR pjyb=.f.
DEFINE BAR 6 OF 经营部 PROMPT "大楼信息登记(\<E)" ;
SKIP FOR pjyb=.f.
DEFINE BAR 7 OF 经营部 PROMPT "房屋信息登记(\<F)" ;
SKIP FOR pjyb=.f.
DEFINE BAR 8 OF 经营部 PROMPT "\-"
DEFINE BAR 9 OF 经营部 PROMPT "系统数据设定(\<G)" ;
SKIP FOR pjyb=.f.
DEFINE BAR 10 OF 经营部 PROMPT "\-"
DEFINE BAR 11 OF 经营部 PROMPT "退出(\<W)" ;
KEY ALT+F4, "ALT+F4"
ON SELECTION BAR 1 OF 经营部 do form wygl\form\小区信息生成
ON SELECTION BAR 2 OF 经营部 do form wygl\form\大楼信息生成
ON SELECTION BAR 3 OF 经营部 do form wygl\form\房屋信息生成
ON SELECTION BAR 5 OF 经营部 do form wygl\form\小区信息登记
ON SELECTION BAR 6 OF 经营部 do form wygl\form\大楼信息登记
ON SELECTION BAR 7 OF 经营部 do form wygl\form\房屋信息登记
ON SELECTION BAR 9 OF 经营部 do form wygl\form\系统数据设定
ON SELECTION BAR 11 OF 经营部 quit
DEFINE POPUP 管理部 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 管理部 PROMPT "业主信息登记(\<A)" ;
SKIP FOR pglb=.f.
DEFINE BAR 2 OF 管理部 PROMPT "\-"
DEFINE BAR 3 OF 管理部 PROMPT "人口信息查询(\<B)" ;
SKIP FOR pglb=.f.
DEFINE BAR 4 OF 管理部 PROMPT "\-"
DEFINE BAR 5 OF 管理部 PROMPT "小区投诉登记(\<C)" ;
SKIP FOR pglb=.f.
DEFINE BAR 6 OF 管理部 PROMPT "小区投诉查询(\<D)" ;
SKIP FOR pglb=.f.
DEFINE BAR 7 OF 管理部 PROMPT "\-"
DEFINE BAR 8 OF 管理部 PROMPT "小区员工管理(\<E)" ;
SKIP FOR pglb=.f.
DEFINE BAR 9 OF 管理部 PROMPT "\-"
DEFINE BAR 10 OF 管理部 PROMPT "系统数据设定(\<F)" ;
SKIP FOR pglb=.f.
ON SELECTION BAR 1 OF 管理部 do form wygl\form\业主信息登记
ON SELECTION BAR 3 OF 管理部 do form wygl\form\人口信息查询
ON SELECTION BAR 5 OF 管理部 do form wygl\form\小区投诉登记
ON SELECTION BAR 6 OF 管理部 do form wygl\form\小区投诉查询
ON SELECTION BAR 8 OF 管理部 do form wygl\form\小区员工管理
ON SELECTION BAR 10 OF 管理部 do form wygl\form\系统数据设定
DEFINE POPUP 工程部 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 工程部 PROMPT "装修队登记(\<A)" ;
SKIP FOR pgcb=.f.
DEFINE BAR 2 OF 工程部 PROMPT "\-"
DEFINE BAR 3 OF 工程部 PROMPT "维修信息登记(\<B)" ;
SKIP FOR pgcb=.f.
DEFINE BAR 4 OF 工程部 PROMPT "维修信息查询(\<C)" ;
SKIP FOR pgcb=.f.
DEFINE BAR 5 OF 工程部 PROMPT "\-"
DEFINE BAR 6 OF 工程部 PROMPT "装修信息登记(\<D)" ;
SKIP FOR pgcb=.f.
DEFINE BAR 7 OF 工程部 PROMPT "装修信息查询(\<E)" ;
SKIP FOR pgcb=.f.
ON SELECTION BAR 1 OF 工程部 do form wygl\form\装修队登记
ON SELECTION BAR 3 OF 工程部 do form wygl\form\维修信息登记
ON SELECTION BAR 4 OF 工程部 do form wygl\form\维修信息查询
ON SELECTION BAR 6 OF 工程部 do form wygl\form\装修信息登记
ON SELECTION BAR 7 OF 工程部 do form wygl\form\装修信息查询
DEFINE POPUP 财务部 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 财务部 PROMPT "收费登记管理(\<A)" ;
SKIP FOR pcwb=.f.
DEFINE BAR 2 OF 财务部 PROMPT "\-"
DEFINE BAR 3 OF 财务部 PROMPT "水费查询管理(\<B)" ;
SKIP FOR pcwb=.f.
DEFINE BAR 4 OF 财务部 PROMPT "电费查询管理(\<C)" ;
SKIP FOR pcwb=.f.
DEFINE BAR 5 OF 财务部 PROMPT "煤气费查询管理(\<D)" ;
SKIP FOR pcwb=.f.
DEFINE BAR 6 OF 财务部 PROMPT "采暖费查询管理(\<E)" ;
SKIP FOR pcwb=.f.
DEFINE BAR 7 OF 财务部 PROMPT "其它费用查询管理(\<F)" ;
SKIP FOR pcwb=.f.
ON SELECTION BAR 1 OF 财务部 do form wygl\form\收费登记管理
ON SELECTION BAR 3 OF 财务部 do form wygl\form\水费查询管理
ON SELECTION BAR 4 OF 财务部 do form wygl\form\电费查询管理
ON SELECTION BAR 5 OF 财务部 do form wygl\form\煤气费查询管理
ON SELECTION BAR 6 OF 财务部 do form wygl\form\采暖费查询管理
ON SELECTION BAR 7 OF 财务部 do form wygl\form\其它费用查询管理
DEFINE POPUP 保安部 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 保安部 PROMPT "保安排班管理(\<A)" ;
SKIP FOR pbab=.f.
DEFINE BAR 2 OF 保安部 PROMPT "\-"
DEFINE BAR 3 OF 保安部 PROMPT "保安排班查询(\<B)" ;
SKIP FOR pbab=.f.
ON SELECTION BAR 1 OF 保安部 do form wygl\form\保安排班管理
ON SELECTION BAR 3 OF 保安部 do form wygl\form\保安排班查询
DEFINE POPUP 经理室 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 经理室 PROMPT "小区资源统计(\<A)" ;
SKIP FOR pjls=.f.
DEFINE BAR 2 OF 经理室 PROMPT "\-"
DEFINE BAR 3 OF 经理室 PROMPT "业主信息查询(\<B)" ;
SKIP FOR pjls=.f.
DEFINE BAR 4 OF 经理室 PROMPT "人口信息查询(\<C)" ;
SKIP FOR pjls=.f.
DEFINE BAR 5 OF 经理室 PROMPT "小区投诉查询(\<D)" ;
SKIP FOR pjls=.f.
DEFINE BAR 6 OF 经理室 PROMPT "小区员工查询(\<E)" ;
SKIP FOR pjls=.f.
DEFINE BAR 7 OF 经理室 PROMPT "装修信息查询(\<F)" ;
SKIP FOR pjls=.f.
DEFINE BAR 8 OF 经理室 PROMPT "维修信息查询(\<G)" ;
SKIP FOR pjls=.f.
DEFINE BAR 9 OF 经理室 PROMPT "保安排班查询(\<H)" ;
SKIP FOR pjls=.f.
ON SELECTION BAR 1 OF 经理室 do form wygl\form\小区资源统计
ON SELECTION BAR 3 OF 经理室 do form wygl\form\业主信息查询
ON SELECTION BAR 4 OF 经理室 do form wygl\form\人口信息查询
ON SELECTION BAR 5 OF 经理室 do form wygl\form\小区投诉查询
ON SELECTION BAR 6 OF 经理室 do form wygl\form\小区员工查询
ON SELECTION BAR 7 OF 经理室 do form wygl\form\装修信息查询
ON SELECTION BAR 8 OF 经理室 do form wygl\form\维修信息查询
ON SELECTION BAR 9 OF 经理室 do form wygl\form\保安排班查询
DEFINE POPUP 系统管理 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统管理 PROMPT "操作员管理(\<A)" ;
SKIP FOR psysgl=.f.
DEFINE BAR 2 OF 系统管理 PROMPT "\-"
DEFINE BAR 3 OF 系统管理 PROMPT "权限设置(\<B)" ;
SKIP FOR psysgl=.f.
DEFINE BAR 4 OF 系统管理 PROMPT "\-"
DEFINE BAR 5 OF 系统管理 PROMPT "背景设置"
ON SELECTION BAR 1 OF 系统管理 do form wygl\form\操作员管理
ON SELECTION BAR 3 OF 系统管理 do form wygl\form\权限设置
ON SELECTION BAR 5 OF 系统管理 ;
DO _1070w5mbb ;
IN LOCFILE("WYGL\MYMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MYMENU?")
DEFINE POPUP 帮助 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助 PROMPT "帮助(\<A)"
DEFINE BAR 2 OF 帮助 PROMPT "\-"
DEFINE BAR 3 OF 帮助 PROMPT "关于本软件...(\<B)"
ON SELECTION BAR 1 OF 帮助 do form wygl\form\帮助
ON SELECTION BAR 3 OF 帮助 do form wygl\form\关于本软件
* *********************************************************
* *
* * _1070W5MBB ON SELECTION BAR 5 OF POPUP 系统管理
* *
* * Procedure Origin:
* *
* * From Menu: MYMENU.MPR, Record: 82
* * Called By: ON SELECTION BAR 5 OF POPUP 系统管理
* * Prompt: 背景设置
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1070w5mbb
ppath=locfile("*.bmp;*.jpg") &&查找文件
rpicture=.t. &&赋值给全局变量
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -