📄 men.mpr
字号:
* *********************************************************
* *
* * 2003.01.29 MEN.MPR 10:05:46
* *
* *********************************************************
* *
* * 作者名称
* *
* * 版权所有 (C) 2003 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _0ve0ln0re OF _MSYSMENU PROMPT "产品信息" COLOR SCHEME 3 ;
SKIP FOR huanyu=.t.
DEFINE PAD _0ve0ln0ri OF _MSYSMENU PROMPT "进货项目" COLOR SCHEME 3 ;
SKIP FOR huanyu=.t.
DEFINE PAD _0ve0ln0rj OF _MSYSMENU PROMPT "销售项目" COLOR SCHEME 3 ;
SKIP FOR huanyu=.t.
DEFINE PAD _0ve0ln0rk OF _MSYSMENU PROMPT "库存查询" COLOR SCHEME 3 ;
SKIP FOR huanyu=.t.
DEFINE PAD _0ve0ln0rl OF _MSYSMENU PROMPT "系统维护" COLOR SCHEME 3 ;
SKIP FOR huanyu=.t.
DEFINE PAD _0ve0ln0rm OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3 ;
SKIP FOR huanyu=.t.
ON PAD _0ve0ln0re OF _MSYSMENU ACTIVATE POPUP 产品信息
ON PAD _0ve0ln0ri OF _MSYSMENU ACTIVATE POPUP 进货项目
ON PAD _0ve0ln0rj OF _MSYSMENU ACTIVATE POPUP 销售项目
ON SELECTION PAD _0ve0ln0rk OF _MSYSMENU ;
DO _0ve0ln0rn ;
IN LOCFILE("\SHIPIN\MEN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MEN?")
ON PAD _0ve0ln0rl OF _MSYSMENU ACTIVATE POPUP 系统维护
ON SELECTION PAD _0ve0ln0rm OF _MSYSMENU quit
DEFINE POPUP 产品信息 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 产品信息 PROMPT "产品信息" ;
SKIP FOR huanyu=.t.
DEFINE BAR 2 OF 产品信息 PROMPT "产品信息更改" ;
SKIP FOR huanyu=.t.
DEFINE BAR 3 OF 产品信息 PROMPT "产品定价" ;
SKIP FOR huanyu=.t.
ON SELECTION BAR 1 OF 产品信息 ;
DO _0ve0ln0ro ;
IN LOCFILE("\SHIPIN\MEN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MEN?")
ON SELECTION BAR 2 OF 产品信息 ;
DO _0ve0ln0rp ;
IN LOCFILE("\SHIPIN\MEN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MEN?")
ON SELECTION BAR 3 OF 产品信息 ;
DO _0ve0ln0rq ;
IN LOCFILE("\SHIPIN\MEN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MEN?")
DEFINE POPUP 进货项目 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 进货项目 PROMPT "进货输入" ;
SKIP FOR HUANYU=.T.
DEFINE BAR 2 OF 进货项目 PROMPT "进货查询" ;
SKIP FOR HUANYU=.T.
ON SELECTION BAR 1 OF 进货项目 ;
DO _0ve0ln0rr ;
IN LOCFILE("\SHIPIN\MEN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MEN?")
ON SELECTION BAR 2 OF 进货项目 ;
DO _0ve0ln0rs ;
IN LOCFILE("\SHIPIN\MEN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MEN?")
DEFINE POPUP 销售项目 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 销售项目 PROMPT "销售输入" ;
SKIP FOR huanyu=.t.
DEFINE BAR 2 OF 销售项目 PROMPT "销售查询" ;
SKIP FOR huanyu=.t.
ON SELECTION BAR 1 OF 销售项目 ;
DO _0ve0ln0rt ;
IN LOCFILE("\SHIPIN\MEN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MEN?")
ON SELECTION BAR 2 OF 销售项目 ;
DO _0ve0ln0ru ;
IN LOCFILE("\SHIPIN\MEN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MEN?")
DEFINE POPUP 系统维护 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 系统维护 PROMPT "口令更改" ;
SKIP FOR huanyu=.t.
DEFINE BAR 2 OF 系统维护 PROMPT "系统恢复" ;
SKIP FOR huanyu
ON SELECTION BAR 1 OF 系统维护 ;
DO _0ve0ln0rv ;
IN LOCFILE("\SHIPIN\MEN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MEN?")
ON SELECTION BAR 2 OF 系统维护 ;
DO _0ve0ln0rw ;
IN LOCFILE("\SHIPIN\MEN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MEN?")
* *********************************************************
* *
* * _0VE0LN0RN ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: MEN.MPR, Record: 16
* * Called By: ON SELECTION PAD
* * Prompt: 库存查询
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _0ve0ln0rn
huanyu=.t.
DO FORM kbkcb
* *********************************************************
* *
* * _0VE0LN0RO ON SELECTION BAR 1 OF POPUP 产品信息
* *
* * Procedure Origin:
* *
* * From Menu: MEN.MPR, Record: 5
* * Called By: ON SELECTION BAR 1 OF POPUP 产品信息
* * Prompt: 产品信息
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _0ve0ln0ro
huanyu=.t.
DO FORM kb
huanyu=.f.
* *********************************************************
* *
* * _0VE0LN0RP ON SELECTION BAR 2 OF POPUP 产品信息
* *
* * Procedure Origin:
* *
* * From Menu: MEN.MPR, Record: 6
* * Called By: ON SELECTION BAR 2 OF POPUP 产品信息
* * Prompt: 产品信息更改
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _0ve0ln0rp
huanyu=.t.
DO FORM kbchxigg
huanyu=.f.
* *********************************************************
* *
* * _0VE0LN0RQ ON SELECTION BAR 3 OF POPUP 产品信息
* *
* * Procedure Origin:
* *
* * From Menu: MEN.MPR, Record: 7
* * Called By: ON SELECTION BAR 3 OF POPUP 产品信息
* * Prompt: 产品定价
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _0ve0ln0rq
huanyu=.t.
DO FORM kbdj
huanyu=.f.
* *********************************************************
* *
* * _0VE0LN0RR ON SELECTION BAR 1 OF POPUP 进货项目
* *
* * Procedure Origin:
* *
* * From Menu: MEN.MPR, Record: 10
* * Called By: ON SELECTION BAR 1 OF POPUP 进货项目
* * Prompt: 进货输入
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _0ve0ln0rr
huanyu=.t.
DO FORM kbJH
huanyu=.f.
* *********************************************************
* *
* * _0VE0LN0RS ON SELECTION BAR 2 OF POPUP 进货项目
* *
* * Procedure Origin:
* *
* * From Menu: MEN.MPR, Record: 11
* * Called By: ON SELECTION BAR 2 OF POPUP 进货项目
* * Prompt: 进货查询
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _0ve0ln0rs
huanyu=.t.
DO FORM kbJHB
huanyu=.f.
* *********************************************************
* *
* * _0VE0LN0RT ON SELECTION BAR 1 OF POPUP 销售项目
* *
* * Procedure Origin:
* *
* * From Menu: MEN.MPR, Record: 14
* * Called By: ON SELECTION BAR 1 OF POPUP 销售项目
* * Prompt: 销售输入
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _0ve0ln0rt
huanyu=.t.
DO FORM xiao
huanyu=.f.
* *********************************************************
* *
* * _0VE0LN0RU ON SELECTION BAR 2 OF POPUP 销售项目
* *
* * Procedure Origin:
* *
* * From Menu: MEN.MPR, Record: 15
* * Called By: ON SELECTION BAR 2 OF POPUP 销售项目
* * Prompt: 销售查询
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _0ve0ln0ru
huanyu=.t.
DO FORM kbxhb
huanyu=.f.
* *********************************************************
* *
* * _0VE0LN0RV ON SELECTION BAR 1 OF POPUP 系统维护
* *
* * Procedure Origin:
* *
* * From Menu: MEN.MPR, Record: 19
* * Called By: ON SELECTION BAR 1 OF POPUP 系统维护
* * Prompt: 口令更改
* * Snippet: 9
* *
* *********************************************************
*
PROCEDURE _0ve0ln0rv
huanyu=.t.
do form mmgg
huanyu=.f.
* *********************************************************
* *
* * _0VE0LN0RW ON SELECTION BAR 2 OF POPUP 系统维护
* *
* * Procedure Origin:
* *
* * From Menu: MEN.MPR, Record: 20
* * Called By: ON SELECTION BAR 2 OF POPUP 系统维护
* * Prompt: 系统恢复
* * Snippet: 10
* *
* *********************************************************
*
PROCEDURE _0ve0ln0rw
set echo off
sele 12
use hf
copy stru to temx.dbf
use
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -