?? 菜單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 + -