📄 菜单1.mpr
字号:
* *********************************************************
* *
* * 04/15/04 菜单1.MPR 12:32:02
* *
* *********************************************************
* *
* * 陈博
* *
* * 版权(C) 2004 公司名
* * 地址
* * 城市, 邮政编码
* * 国家/地区
* *
* * 说明：
* * 本程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _17q0qv4f2 OF _MSYSMENU PROMPT "数据管理" COLOR SCHEME 3
DEFINE PAD _17q0qv4f3 OF _MSYSMENU PROMPT "数据版面生成" COLOR SCHEME 3
DEFINE PAD _17q0qv4f4 OF _MSYSMENU PROMPT "数据版面打印" COLOR SCHEME 3
DEFINE PAD _17q0qv4f5 OF _MSYSMENU PROMPT "数据提取" COLOR SCHEME 3
DEFINE PAD _17q0qv4f6 OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON PAD _17q0qv4f2 OF _MSYSMENU ACTIVATE POPUP 数据管理
ON PAD _17q0qv4f3 OF _MSYSMENU ACTIVATE POPUP 数据版面生
ON PAD _17q0qv4f4 OF _MSYSMENU ACTIVATE POPUP 数据版面打
ON SELECTION PAD _17q0qv4f5 OF _MSYSMENU ;
DO _17q0qv4f7 ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单1?")
ON SELECTION PAD _17q0qv4f6 OF _MSYSMENU ;
DO _17q0qv4fc ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单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 "码录入"
DEFINE BAR 5 OF 数据管理 PROMPT "数据浏览修改"
DEFINE BAR 6 OF 数据管理 PROMPT "数据保存"
DEFINE BAR 7 OF 数据管理 PROMPT "数据恢复"
DEFINE BAR 8 OF 数据管理 PROMPT "数据按名保存"
DEFINE BAR 9 OF 数据管理 PROMPT "数据按名恢复"
DEFINE BAR 10 OF 数据管理 PROMPT "输出到文本文件(aa.txt)"
ON SELECTION BAR 1 OF 数据管理 ;
DO _17q0qv4fd ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单1?")
ON SELECTION BAR 2 OF 数据管理 ;
DO _17q0qv4fe ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单1?")
ON SELECTION BAR 3 OF 数据管理 ;
DO _17q0qv4ff ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单1?")
ON SELECTION BAR 4 OF 数据管理 ;
DO _17q0qv4fg ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单1?")
ON SELECTION BAR 5 OF 数据管理 ;
DO _17q0qv4fh ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单1?")
ON SELECTION BAR 6 OF 数据管理 ;
DO _17q0qv4fi ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单1?")
ON SELECTION BAR 7 OF 数据管理 ;
DO _17q0qv4fm ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单1?")
ON SELECTION BAR 8 OF 数据管理 ;
DO _17q0qv4fn ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单1?")
ON SELECTION BAR 9 OF 数据管理 ;
DO _17q0qv4fo ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单1?")
ON SELECTION BAR 10 OF 数据管理 ;
DO _17q0qv4fp ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单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 "带优先版2000"
DEFINE BAR 5 OF 数据版面生 PROMPT "带优先版2500"
DEFINE BAR 6 OF 数据版面生 PROMPT "带优先版3000"
DEFINE BAR 7 OF 数据版面生 PROMPT "带优先版3500"
DEFINE BAR 8 OF 数据版面生 PROMPT "带优先版4000"
ON SELECTION BAR 1 OF 数据版面生 ;
DO _17q0qv4fw ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单1?")
ON SELECTION BAR 2 OF 数据版面生 ;
DO _17q0qv4fx ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单1?")
ON SELECTION BAR 3 OF 数据版面生 ;
DO _17q0qv4fy ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单1?")
ON SELECTION BAR 4 OF 数据版面生 ;
DO _17q0qv4fz ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单1?")
ON SELECTION BAR 5 OF 数据版面生 ;
DO _17q0qv4g0 ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单1?")
ON SELECTION BAR 6 OF 数据版面生 ;
DO _17q0qv4g1 ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单1?")
ON SELECTION BAR 7 OF 数据版面生 ;
DO _17q0qv4g2 ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单1?")
ON SELECTION BAR 8 OF 数据版面生 ;
DO _17q0qv4g3 ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单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 _17q0qv4g6 ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单1?")
ON SELECTION BAR 2 OF 数据版面打 ;
DO _17q0qv4g7 ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单1?")
ON SELECTION BAR 3 OF 数据版面打 ;
DO _17q0qv4g8 ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单1?")
ON BAR 4 OF 数据版面打 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 "机动版预览打印"
ON SELECTION BAR 1 OF 带优先版 ;
DO _17q0qv4g9 ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单1?")
ON SELECTION BAR 2 OF 带优先版 ;
DO _17q0qv4ga ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单1?")
ON SELECTION BAR 3 OF 带优先版 ;
DO _17q0qv4gb ;
IN LOCFILE("\SZW42\菜单1" ,"MPX;MPR|FXP;PRG" ,"WHERE 是 菜单1?")
* *********************************************************
* *
* * _17Q0QV4F7 ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 35
* * Called By: ON SELECTION PAD
* * Prompt: 数据提取
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _17q0qv4f7
do form sjtq
return
* *********************************************************
* *
* * _17Q0QV4FC ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 36
* * Called By: ON SELECTION PAD
* * Prompt: 退出
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _17q0qv4fc
close all
quit
* *********************************************************
* *
* * _17Q0QV4FD ON SELECTION BAR 1 OF POPUP 数据管理
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 5
* * Called By: ON SELECTION BAR 1 OF POPUP 数据管理
* * Prompt: 生成万字表
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _17q0qv4fd
do form wzb
return
* *********************************************************
* *
* * _17Q0QV4FE ON SELECTION BAR 2 OF POPUP 数据管理
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 6
* * Called By: ON SELECTION BAR 2 OF POPUP 数据管理
* * Prompt: 数据初始化
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _17q0qv4fe
use sj
dele all
pack
use sjnjd
dele all
pack
use sjnjd1
dele all
pack
use sjjd
dele all
pack
use sjjd1
dele all
pack
use sjjd3
dele all
pack
use sjjd5
dele all
pack
use sctmp
dele all
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -