📄 mmenu.mpr
字号:
* *********************************************************
* *
* * 05/18/10 MMENU.MPR 11:53:06
* *
* *********************************************************
* *
* * 作者名称
* *
* * 版权所有 (C) 2010 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _2xs0ph1wv OF _MSYSMENU PROMPT "系统管理" COLOR SCHEME 3
DEFINE PAD _2xs0ph1ww OF _MSYSMENU PROMPT "浏览" COLOR SCHEME 3
DEFINE PAD _2xs0ph1wx OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3
DEFINE PAD _2xs0ph1wy OF _MSYSMENU PROMPT "报表" COLOR SCHEME 3
DEFINE PAD _2xs0ph1wz OF _MSYSMENU PROMPT "系统维护" COLOR SCHEME 3
DEFINE PAD _2xs0ph1x0 OF _MSYSMENU PROMPT "帮助" COLOR SCHEME 3
ON PAD _2xs0ph1wv OF _MSYSMENU ACTIVATE POPUP 系统管理
ON PAD _2xs0ph1ww OF _MSYSMENU ACTIVATE POPUP 浏览
ON PAD _2xs0ph1wx OF _MSYSMENU ACTIVATE POPUP 查询
ON PAD _2xs0ph1wy OF _MSYSMENU ACTIVATE POPUP 报表
ON PAD _2xs0ph1wz OF _MSYSMENU ACTIVATE POPUP 系统维护
ON PAD _2xs0ph1x0 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 _2xs0ph1x1 ;
IN LOCFILE("\VF系统\MMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MMENU?")
ON SELECTION BAR 2 OF 系统管理 activate window calculator
ON SELECTION BAR 3 OF 系统管理 ;
DO _2xs0ph1x2 ;
IN LOCFILE("\VF系统\MMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MMENU?")
ON SELECTION BAR 4 OF 系统管理 ;
DO _2xs0ph1x3 ;
IN LOCFILE("\VF系统\MMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MMENU?")
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 _2xs0ph1xb ;
IN LOCFILE("\VF系统\MMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MMENU?")
ON SELECTION BAR 2 OF 浏览 ;
DO _2xs0ph1xc ;
IN LOCFILE("\VF系统\MMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MMENU?")
ON SELECTION BAR 3 OF 浏览 ;
DO _2xs0ph1xd ;
IN LOCFILE("\VF系统\MMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MMENU?")
ON SELECTION BAR 4 OF 浏览 ;
DO _2xs0ph1xe ;
IN LOCFILE("\VF系统\MMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MMENU?")
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 _2xs0ph1xf ;
IN LOCFILE("\VF系统\MMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MMENU?")
ON SELECTION BAR 2 OF 查询 ;
DO _2xs0ph1xg ;
IN LOCFILE("\VF系统\MMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MMENU?")
ON SELECTION BAR 3 OF 查询 ;
DO _2xs0ph1xq ;
IN LOCFILE("\VF系统\MMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MMENU?")
DEFINE POPUP 报表 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 报表 PROMPT "团员情况"
ON SELECTION BAR 1 OF 报表 ;
DO _2xs0ph1xr ;
IN LOCFILE("\VF系统\MMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MMENU?")
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 _2xs0ph1xs ;
IN LOCFILE("\VF系统\MMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MMENU?")
ON SELECTION BAR 2 OF 系统维护 ;
DO _2xs0ph1xt ;
IN LOCFILE("\VF系统\MMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MMENU?")
ON SELECTION BAR 3 OF 系统维护 ;
DO _2xs0ph1xu ;
IN LOCFILE("\VF系统\MMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MMENU?")
ON SELECTION BAR 4 OF 系统维护 ;
DO _2xs0ph1xv ;
IN LOCFILE("\VF系统\MMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MMENU?")
DEFINE POPUP 帮助 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 帮助 PROMPT "版本信息"
ON SELECTION BAR 1 OF 帮助 ;
DO _2xs0ph1y6 ;
IN LOCFILE("\VF系统\MMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MMENU?")
* *********************************************************
* *
* * _2XS0PH1X1 ON SELECTION BAR 1 OF POPUP 系统管理
* *
* * Procedure Origin:
* *
* * From Menu: MMENU.MPR, Record: 5
* * Called By: ON SELECTION BAR 1 OF POPUP 系统管理
* * Prompt: 注销
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _2xs0ph1x1
do form password
* *********************************************************
* *
* * _2XS0PH1X2 ON SELECTION BAR 3 OF POPUP 系统管理
* *
* * Procedure Origin:
* *
* * From Menu: MMENU.MPR, Record: 7
* * Called By: ON SELECTION BAR 3 OF POPUP 系统管理
* * Prompt: 日历
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _2xs0ph1x2
do form canlder
* *********************************************************
* *
* * _2XS0PH1X3 ON SELECTION BAR 4 OF POPUP 系统管理
* *
* * Procedure Origin:
* *
* * From Menu: MMENU.MPR, Record: 8
* * Called By: ON SELECTION BAR 4 OF POPUP 系统管理
* * Prompt: 退出
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _2xs0ph1x3
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
* *********************************************************
* *
* * _2XS0PH1XB ON SELECTION BAR 1 OF POPUP 浏览
* *
* * Procedure Origin:
* *
* * From Menu: MMENU.MPR, Record: 11
* * Called By: ON SELECTION BAR 1 OF POPUP 浏览
* * Prompt: 团员情况
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _2xs0ph1xb
if select ("member")=0
use member
endif
sele member
brow
* *********************************************************
* *
* * _2XS0PH1XC ON SELECTION BAR 2 OF POPUP 浏览
* *
* * Procedure Origin:
* *
* * From Menu: MMENU.MPR, Record: 12
* * Called By: ON SELECTION BAR 2 OF POPUP 浏览
* * Prompt: 路线情况
* * Snippet: 5
* *
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -