www.pudn.com > business.zip > MENU.MPR
* *********************************************************
* *
* * 01/23/00 MENU.MPR 21:20:09
* *
* *********************************************************
* *
* * 作者名称
* *
* * 版权所有 (C) 2000 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _00n19qaqw OF _MSYSMENU PROMPT "录入修改(&A)" COLOR SCHEME 3 ;
SKIP FOR !m1
DEFINE PAD _00n19qar9 OF _MSYSMENU PROMPT "查询打印(&B)" COLOR SCHEME 3 ;
SKIP FOR !m2
DEFINE PAD _00n19qara OF _MSYSMENU PROMPT "操作记录(&D)" COLOR SCHEME 3 ;
SKIP FOR !m3
DEFINE PAD _00n19qarb OF _MSYSMENU PROMPT "口令修改(&C)" COLOR SCHEME 3 ;
SKIP FOR !m4
DEFINE PAD _00n19qarc OF _MSYSMENU PROMPT "退出(&X)" COLOR SCHEME 3
ON SELECTION PAD _00n19qaqw OF _MSYSMENU ;
DO _00n19qarf ;
IN LOCFILE("..\..\BUSINESS\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
ON SELECTION PAD _00n19qar9 OF _MSYSMENU ;
DO _00n19qarz ;
IN LOCFILE("..\..\BUSINESS\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
ON SELECTION PAD _00n19qara OF _MSYSMENU ;
DO _00n19qas1 ;
IN LOCFILE("..\..\BUSINESS\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
ON SELECTION PAD _00n19qarb OF _MSYSMENU ;
DO _00n19qas3 ;
IN LOCFILE("..\..\BUSINESS\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
ON SELECTION PAD _00n19qarc OF _MSYSMENU ;
DO _00n19qask ;
IN LOCFILE("..\..\BUSINESS\MENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MENU?")
* *********************************************************
* *
* * _00N19QARF ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: MENU.MPR, Record: 3
* * Called By: ON SELECTION PAD
* * Prompt: 录入修改(&A)
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _00n19qarf
do record with "录入修改"
do form bd
* *********************************************************
* *
* * _00N19QARZ ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: MENU.MPR, Record: 4
* * Called By: ON SELECTION PAD
* * Prompt: 查询打印(&B)
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _00n19qarz
do record with "查询打印"
do form seek
* *********************************************************
* *
* * _00N19QAS1 ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: MENU.MPR, Record: 5
* * Called By: ON SELECTION PAD
* * Prompt: 操作记录(&D)
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _00n19qas1
do form brows
* *********************************************************
* *
* * _00N19QAS3 ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: MENU.MPR, Record: 6
* * Called By: ON SELECTION PAD
* * Prompt: 口令修改(&C)
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _00n19qas3
do form passmodi
* *********************************************************
* *
* * _00N19QASK ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: MENU.MPR, Record: 7
* * Called By: ON SELECTION PAD
* * Prompt: 退出(&X)
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _00n19qask
quit