📄 菜单1.mpr
字号:
* *********************************************************
* *
* * 06/28/06 菜单1.MPR 15:31:48
* *
* *********************************************************
* *
* * 作者名称
* *
* * 版权所有 (C) 2006 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _1u50xabfz OF _MSYSMENU PROMPT "系统管理" COLOR SCHEME 3
DEFINE PAD _1u50xabg0 OF _MSYSMENU PROMPT "浏览" COLOR SCHEME 3
DEFINE PAD _1u50xabg1 OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3
DEFINE PAD _1u50xabg2 OF _MSYSMENU PROMPT "报表" COLOR SCHEME 3
DEFINE PAD _1u50xabg3 OF _MSYSMENU PROMPT "系统维护" COLOR SCHEME 3
DEFINE PAD _1u50xabg4 OF _MSYSMENU PROMPT "帮助" COLOR SCHEME 3
ON PAD _1u50xabfz OF _MSYSMENU ACTIVATE POPUP 系统管理
ON PAD _1u50xabg0 OF _MSYSMENU ACTIVATE POPUP 浏览
ON PAD _1u50xabg1 OF _MSYSMENU ACTIVATE POPUP 查询
ON PAD _1u50xabg2 OF _MSYSMENU ACTIVATE POPUP 报表
ON PAD _1u50xabg3 OF _MSYSMENU ACTIVATE POPUP 系统维护
ON PAD _1u50xabg4 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 _1u50xabg5 ;
IN LOCFILE("\董双平\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
ON SELECTION BAR 2 OF 系统管理 activate window calculator
ON SELECTION BAR 3 OF 系统管理 ;
DO _1u50xabg6 ;
IN LOCFILE("\董双平\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
ON SELECTION BAR 4 OF 系统管理 ;
DO _1u50xabg7 ;
IN LOCFILE("\董双平\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
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 _1u50xabge ;
IN LOCFILE("\董双平\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
ON SELECTION BAR 2 OF 浏览 ;
DO _1u50xabgf ;
IN LOCFILE("\董双平\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
ON SELECTION BAR 3 OF 浏览 ;
DO _1u50xabgg ;
IN LOCFILE("\董双平\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
ON SELECTION BAR 4 OF 浏览 ;
DO _1u50xabgh ;
IN LOCFILE("\董双平\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
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 _1u50xabgi ;
IN LOCFILE("\董双平\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
ON SELECTION BAR 2 OF 查询 ;
DO _1u50xabgj ;
IN LOCFILE("\董双平\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
ON SELECTION BAR 3 OF 查询 ;
DO _1u50xabgk ;
IN LOCFILE("\董双平\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
DEFINE POPUP 报表 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 报表 PROMPT "团员情况"
ON SELECTION BAR 1 OF 报表 ;
DO _1u50xabgl ;
IN LOCFILE("\董双平\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
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 _1u50xabgm ;
IN LOCFILE("\董双平\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
ON SELECTION BAR 2 OF 系统维护 ;
DO _1u50xabgn ;
IN LOCFILE("\董双平\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
ON SELECTION BAR 3 OF 系统维护 ;
DO _1u50xabgo ;
IN LOCFILE("\董双平\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
ON SELECTION BAR 4 OF 系统维护 ;
DO _1u50xabgp ;
IN LOCFILE("\董双平\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
DEFINE POPUP 帮助 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助 PROMPT "版本信息"
ON SELECTION BAR 1 OF 帮助 ;
DO _1u50xabgq ;
IN LOCFILE("\董双平\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE is 菜单1?")
* *********************************************************
* *
* * _1U50XABG5 ON SELECTION BAR 1 OF POPUP 系统管理
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 5
* * Called By: ON SELECTION BAR 1 OF POPUP 系统管理
* * Prompt: 注销
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1u50xabg5
do form password
* *********************************************************
* *
* * _1U50XABG6 ON SELECTION BAR 3 OF POPUP 系统管理
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 7
* * Called By: ON SELECTION BAR 3 OF POPUP 系统管理
* * Prompt: 日历
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _1u50xabg6
do form canlder
* *********************************************************
* *
* * _1U50XABG7 ON SELECTION BAR 4 OF POPUP 系统管理
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 8
* * Called By: ON SELECTION BAR 4 OF POPUP 系统管理
* * Prompt: 退出
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _1u50xabg7
yn=messagebox("真的要离开吗？"+chr(13)+chr(13)+"请确认数据是否已保存好",4=32,"警告")
if yn=6
on shutdown
clear event
close table all
close database
set sysmenu to default
set sysmenu on
set talk on
set clock off
set notify on
set dele off
set excl on
set safety on
modi window screen
set sysmenu off
set sysmenu to
quit
endif
* *********************************************************
* *
* * _1U50XABGE ON SELECTION BAR 1 OF POPUP 浏览
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 11
* * Called By: ON SELECTION BAR 1 OF POPUP 浏览
* * Prompt: 团员情况
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _1u50xabge
do form member
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -