📄 ckglmu.mpr
字号:
* *********************************************************
* *
* * 12/06/04 CKGLMU.MPR 22:03:54
* *
* *********************************************************
* *
* * 作者名称
* *
* * 版权所有 (C) 2004 公司名称
* * 地址
* * 城市, 邮编
* * 国家
* *
* * 说明:
* * 此程序由 GENMENU 自动生成。
* *
* *********************************************************
* *********************************************************
* *
* * 菜单定义
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _1e91bak1w OF _MSYSMENU PROMPT "新顾客注册" COLOR SCHEME 3
DEFINE PAD _1e91bak1x OF _MSYSMENU PROMPT "登录" COLOR SCHEME 3
DEFINE PAD m1 OF _MSYSMENU PROMPT "顾客信息" COLOR SCHEME 3 ;
KEY ALT+G, "ALT+G"
DEFINE PAD _1e91bak1y OF _MSYSMENU PROMPT "查询" COLOR SCHEME 3
DEFINE PAD _1e91bak1z OF _MSYSMENU PROMPT "供货管理" COLOR SCHEME 3
DEFINE PAD _1e91bak20 OF _MSYSMENU PROMPT "其它管理" COLOR SCHEME 3
DEFINE PAD _1e91bak21 OF _MSYSMENU PROMPT "退出" COLOR SCHEME 3
ON SELECTION PAD _1e91bak1w OF _MSYSMENU do form zhuche
ON PAD _1e91bak1x OF _MSYSMENU ACTIVATE POPUP 登录
ON PAD m1 OF _MSYSMENU ACTIVATE POPUP 定货
ON PAD _1e91bak1y OF _MSYSMENU ACTIVATE POPUP 查询
ON PAD _1e91bak1z OF _MSYSMENU ACTIVATE POPUP 供货单管理
ON PAD _1e91bak20 OF _MSYSMENU ACTIVATE POPUP 其它管理
ON SELECTION PAD _1e91bak21 OF _MSYSMENU clear events
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 form customload
ON SELECTION BAR 2 OF 登录 do form employload
ON SELECTION BAR 3 OF 登录 do form employload
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 "取消定货"
ON SELECTION BAR 1 OF 定货 ;
DO _1e91bak22 ;
IN LOCFILE("\CKGL\CKGLMU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CKGLMU?")
ON BAR 2 OF 定货 ACTIVATE POPUP 查询商品信
ON SELECTION BAR 3 OF 定货 ;
DO _1e91bak23 ;
IN LOCFILE("\CKGL\CKGLMU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CKGLMU?")
ON SELECTION BAR 4 OF 定货 ;
DO _1e91bak24 ;
IN LOCFILE("\CKGL\CKGLMU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CKGLMU?")
ON SELECTION BAR 5 OF 定货 ;
DO _1e91bak25 ;
IN LOCFILE("\CKGL\CKGLMU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CKGLMU?")
DEFINE POPUP 查询商品信 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询商品信 PROMPT "简单查询"
DEFINE BAR 2 OF 查询商品信 PROMPT "复杂查询"
ON SELECTION BAR 1 OF 查询商品信 ;
DO _1e91bak26 ;
IN LOCFILE("\CKGL\CKGLMU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CKGLMU?")
ON SELECTION BAR 2 OF 查询商品信 ;
DO _1e91bak27 ;
IN LOCFILE("\CKGL\CKGLMU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CKGLMU?")
DEFINE POPUP 查询 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF 查询 PROMPT "查询商品"
DEFINE BAR 2 OF 查询 PROMPT "查询"
ON SELECTION BAR 1 OF 查询 ;
DO _1e91bak28 ;
IN LOCFILE("\CKGL\CKGLMU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CKGLMU?")
ON BAR 2 OF 查询 ACTIVATE POPUP _1e718ff7k
DEFINE POPUP _1e718ff7k MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF _1e718ff7k PROMPT "定货单"
DEFINE BAR 2 OF _1e718ff7k PROMPT "存货单"
DEFINE BAR 3 OF _1e718ff7k PROMPT "供货单"
DEFINE BAR 4 OF _1e718ff7k PROMPT "商品信息"
DEFINE BAR 5 OF _1e718ff7k PROMPT "顾客信息"
DEFINE BAR 6 OF _1e718ff7k PROMPT "供货商信息"
DEFINE BAR 7 OF _1e718ff7k PROMPT "职工信息"
ON SELECTION BAR 1 OF _1e718ff7k ;
DO _1e91bak29 ;
IN LOCFILE("\CKGL\CKGLMU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CKGLMU?")
ON SELECTION BAR 2 OF _1e718ff7k ;
DO _1e91bak2a ;
IN LOCFILE("\CKGL\CKGLMU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CKGLMU?")
ON SELECTION BAR 3 OF _1e718ff7k ;
DO _1e91bak2b ;
IN LOCFILE("\CKGL\CKGLMU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CKGLMU?")
ON SELECTION BAR 4 OF _1e718ff7k ;
DO _1e91bak2c ;
IN LOCFILE("\CKGL\CKGLMU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CKGLMU?")
ON SELECTION BAR 5 OF _1e718ff7k ;
DO _1e91bak2d ;
IN LOCFILE("\CKGL\CKGLMU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CKGLMU?")
ON SELECTION BAR 6 OF _1e718ff7k ;
DO _1e91bak2e ;
IN LOCFILE("\CKGL\CKGLMU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CKGLMU?")
ON SELECTION BAR 7 OF _1e718ff7k ;
DO _1e91bak2f ;
IN LOCFILE("\CKGL\CKGLMU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CKGLMU?")
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 _1e91bak2g ;
IN LOCFILE("\CKGL\CKGLMU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CKGLMU?")
ON SELECTION BAR 2 OF 供货单管理 ;
DO _1e91bak2h ;
IN LOCFILE("\CKGL\CKGLMU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CKGLMU?")
ON SELECTION BAR 3 OF 供货单管理 ;
DO _1e91bak2i ;
IN LOCFILE("\CKGL\CKGLMU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CKGLMU?")
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 _1e91bak2j ;
IN LOCFILE("\CKGL\CKGLMU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CKGLMU?")
ON SELECTION BAR 2 OF 其它管理 ;
DO _1e91bak2k ;
IN LOCFILE("\CKGL\CKGLMU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CKGLMU?")
ON SELECTION BAR 3 OF 其它管理 ;
DO _1e91bak2l ;
IN LOCFILE("\CKGL\CKGLMU" ,"MPX;MPR|FXP;PRG" ,"WHERE is CKGLMU?")
* *********************************************************
* *
* * _1E91BAK22 ON SELECTION BAR 1 OF POPUP 定货
* *
* * Procedure Origin:
* *
* * From Menu: CKGLMU.MPR, Record: 11
* * Called By: ON SELECTION BAR 1 OF POPUP 定货
* * Prompt: 修改用户信息
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1e91bak22
if symbol1==1
do form modiuser
else
messagebox('请登录后在使用！')
endif
* *********************************************************
* *
* * _1E91BAK23 ON SELECTION BAR 3 OF POPUP 定货
* *
* * Procedure Origin:
* *
* * From Menu: CKGLMU.MPR, Record: 16
* * Called By: ON SELECTION BAR 3 OF POPUP 定货
* * Prompt: 订购商品
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _1e91bak23
if symbol1=1
do form goodorder
else
messagebox('请登录后在使用！')
endif
* *********************************************************
* *
* * _1E91BAK24 ON SELECTION BAR 4 OF POPUP 定货
* *
* * Procedure Origin:
* *
* * From Menu: CKGLMU.MPR, Record: 17
* * Called By: ON SELECTION BAR 4 OF POPUP 定货
* * Prompt: 查询订货单
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _1e91bak24
if symbol1=1
do form orderf1
else
messagebox('请登录后在使用！')
endif
* *********************************************************
* *
* * _1E91BAK25 ON SELECTION BAR 5 OF POPUP 定货
* *
* * Procedure Origin:
* *
* * From Menu: CKGLMU.MPR, Record: 18
* * Called By: ON SELECTION BAR 5 OF POPUP 定货
* * Prompt: 取消定货
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _1e91bak25
if symbol1=1
do form goodcancel
else
messagebox('请登录后在使用！')
endif
* *********************************************************
* *
* * _1E91BAK26 ON SELECTION BAR 1 OF POPUP 查询商品信
* *
* * Procedure Origin:
* *
* * From Menu: CKGLMU.MPR, Record: 14
* * Called By: ON SELECTION BAR 1 OF POPUP 查询商品信
* * Prompt: 简单查询
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _1e91bak26
if symbol1==1
do form goodf
else
messagebox('请登录后在使用！')
endif
* *********************************************************
* *
* * _1E91BAK27 ON SELECTION BAR 2 OF POPUP 查询商品信
* *
* * Procedure Origin:
* *
* * From Menu: CKGLMU.MPR, Record: 15
* * Called By: ON SELECTION BAR 2 OF POPUP 查询商品信
* * Prompt: 复杂查询
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _1e91bak27
if symbol1=1
do form goodfc
else
messagebox('请登录后在使用！')
endif
* *********************************************************
* *
* * _1E91BAK28 ON SELECTION BAR 1 OF POPUP 查询
* *
* * Procedure Origin:
* *
* * From Menu: CKGLMU.MPR, Record: 21
* * Called By: ON SELECTION BAR 1 OF POPUP 查询
* * Prompt: 查询商品
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -