📄 菜单.mpr
字号:
* *********************************************************
* *
* * 12/25/06 菜单.MPR 12:40:11
* *
* *********************************************************
* *
* * 作者名称
* *
* * 版权所有 (C) 2006 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _1z50r5lsz OF _MSYSMENU PROMPT "基本数据" COLOR SCHEME 3
DEFINE PAD _1z50r5lt0 OF _MSYSMENU PROMPT "数据维护" COLOR SCHEME 3
DEFINE PAD _1z50r5lt1 OF _MSYSMENU PROMPT "基本查询" COLOR SCHEME 3
DEFINE PAD _1z50r5lt2 OF _MSYSMENU PROMPT "报表打印" COLOR SCHEME 3
DEFINE PAD _1z50r5lt3 OF _MSYSMENU PROMPT "所得利润" COLOR SCHEME 3
DEFINE PAD _1z50r5lt4 OF _MSYSMENU PROMPT "退出系统" COLOR SCHEME 3
ON PAD _1z50r5lsz OF _MSYSMENU ACTIVATE POPUP 基本数据
ON PAD _1z50r5lt0 OF _MSYSMENU ACTIVATE POPUP 数据维护
ON PAD _1z50r5lt1 OF _MSYSMENU ACTIVATE POPUP 基本查询
ON PAD _1z50r5lt2 OF _MSYSMENU ACTIVATE POPUP 报表打印
ON SELECTION PAD _1z50r5lt3 OF _MSYSMENU ;
DO _1z50r5lt5 ;
IN LOCFILE("\2004031124计算机04-1王润\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION PAD _1z50r5lt4 OF _MSYSMENU ;
DO _1z50r5lt6 ;
IN LOCFILE("\2004031124计算机04-1王润\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
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 _1z50r5ltf ;
IN LOCFILE("\2004031124计算机04-1王润\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION BAR 2 OF 基本数据 ;
DO _1z50r5ltg ;
IN LOCFILE("\2004031124计算机04-1王润\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION BAR 3 OF 基本数据 ;
DO _1z50r5lth ;
IN LOCFILE("\2004031124计算机04-1王润\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION BAR 4 OF 基本数据 ;
DO _1z50r5lti ;
IN LOCFILE("\2004031124计算机04-1王润\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
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 _1z50r5ltj ;
IN LOCFILE("\2004031124计算机04-1王润\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION BAR 2 OF 数据维护 ;
DO _1z50r5ltk ;
IN LOCFILE("\2004031124计算机04-1王润\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION BAR 3 OF 数据维护 ;
DO _1z50r5ltl ;
IN LOCFILE("\2004031124计算机04-1王润\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION BAR 4 OF 数据维护 ;
DO _1z50r5ltm ;
IN LOCFILE("\2004031124计算机04-1王润\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
DEFINE POPUP 基本查询 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 基本查询 PROMPT "房屋小区查询"
DEFINE BAR 2 OF 基本查询 PROMPT "房屋委托价格查询"
ON SELECTION BAR 1 OF 基本查询 ;
DO _1z50r5ltn ;
IN LOCFILE("\2004031124计算机04-1王润\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION BAR 2 OF 基本查询 ;
DO _1z50r5lto ;
IN LOCFILE("\2004031124计算机04-1王润\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
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 _1z50r5ltp ;
IN LOCFILE("\2004031124计算机04-1王润\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION BAR 2 OF 报表打印 ;
DO _1z50r5ltq ;
IN LOCFILE("\2004031124计算机04-1王润\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION BAR 3 OF 报表打印 ;
DO _1z50r5ltr ;
IN LOCFILE("\2004031124计算机04-1王润\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
ON SELECTION BAR 4 OF 报表打印 ;
DO _1z50r5lts ;
IN LOCFILE("\2004031124计算机04-1王润\菜单" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单?")
* *********************************************************
* *
* * _1Z50R5LT5 ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 25
* * Called By: ON SELECTION PAD
* * Prompt: 所得利润
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1z50r5lt5
report form 所得利润
* *********************************************************
* *
* * _1Z50R5LT6 ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 26
* * Called By: ON SELECTION PAD
* * Prompt: 退出系统
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _1z50r5lt6
set sysmenu to default
clear windows
* *********************************************************
* *
* * _1Z50R5LTF ON SELECTION BAR 1 OF POPUP 基本数据
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 5
* * Called By: ON SELECTION BAR 1 OF POPUP 基本数据
* * Prompt: 成交信息
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _1z50r5ltf
do form 成交信息
* *********************************************************
* *
* * _1Z50R5LTG ON SELECTION BAR 2 OF POPUP 基本数据
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 6
* * Called By: ON SELECTION BAR 2 OF POPUP 基本数据
* * Prompt: 房屋信息
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _1z50r5ltg
do form 房屋信息
* *********************************************************
* *
* * _1Z50R5LTH ON SELECTION BAR 3 OF POPUP 基本数据
* *
* * Procedure Origin:
* *
* * From Menu: 菜单.MPR, Record: 7
* * Called By: ON SELECTION BAR 3 OF POPUP 基本数据
* * Prompt: 卖家信息
* * Snippet: 5
* *
* *********************************************************
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -