📄 main.mpr
字号:
DEFINE BAR 5 OF (a_menupops[6]) PROMPT "打印退货记录(\<T)"
DEFINE BAR 6 OF (a_menupops[6]) PROMPT "打印退入记录(\<J)"
DEFINE BAR 7 OF (a_menupops[6]) PROMPT "\-"
DEFINE BAR 8 OF (a_menupops[6]) PROMPT "打印紧俏商品清单(\<Q)"
DEFINE BAR 9 OF (a_menupops[6]) PROMPT "打印滞存商品清单(\<Z)"
DEFINE BAR 10 OF (a_menupops[6]) PROMPT "\-"
DEFINE BAR 11 OF (a_menupops[6]) PROMPT "打印供货商清单(\<G)"
DEFINE BAR 12 OF (a_menupops[6]) PROMPT "打印名片清单(\<M)"
DEFINE BAR 13 OF (a_menupops[6]) PROMPT "打印商品清单(\<S)"
ON SELECTION BAR 1 OF (a_menupops[6]) REPORT FORM RK PREVIEW
ON SELECTION BAR 2 OF (a_menupops[6]) REPORT FORM CK PREVIEW
ON SELECTION BAR 3 OF (a_menupops[6]) REPORT FORM KC PREVIEW
ON SELECTION BAR 5 OF (a_menupops[6]) REPORT FORM TC PREVIEW
ON SELECTION BAR 6 OF (a_menupops[6]) REPORT FORM TR PREVIEW
ON SELECTION BAR 8 OF (a_menupops[6]) REPORT FORM KC FOR KUCUN.数量<SHANGPING.库存下限 PREVIEW
ON SELECTION BAR 9 OF (a_menupops[6]) REPORT FORM KC FOR KUCUN.数量>SHANGPING.库存上限 PREVIEW
ON BAR 11 OF (a_menupops[6]) ACTIVATE POPUP (a_menupops[7])
ON BAR 12 OF (a_menupops[6]) ACTIVATE POPUP (a_menupops[8])
ON BAR 13 OF (a_menupops[6]) ACTIVATE POPUP (a_menupops[9])
DEFINE POPUP (a_menupops[7]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[7]) PROMPT "供货商清单报表(\<F)"
DEFINE BAR 2 OF (a_menupops[7]) PROMPT "借货商清单标签(\<L)"
ON SELECTION BAR 1 OF (a_menupops[7]) REPORT FORM GHS PREVIEW
ON SELECTION BAR 2 OF (a_menupops[7]) LABEL FORM GHS PREVIEW
DEFINE POPUP (a_menupops[8]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[8]) PROMPT "名片信息报表(\<F)"
DEFINE BAR 2 OF (a_menupops[8]) PROMPT "名片信息标签(\<B)"
ON SELECTION BAR 1 OF (a_menupops[8]) REPORT FORM MP PREVIEW
ON SELECTION BAR 2 OF (a_menupops[8]) LABEL FORM MP PREVIEW
DEFINE POPUP (a_menupops[9]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[9]) PROMPT "商品信息清单(\<F)"
DEFINE BAR 2 OF (a_menupops[9]) PROMPT "商品信息标签(\<L)"
ON SELECTION BAR 1 OF (a_menupops[9]) REPORT FORM SP PREVIEW
ON SELECTION BAR 2 OF (a_menupops[9]) LABEL FORM SP PREVIEW
DEFINE POPUP (a_menupops[10]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[10]) PROMPT "添加帐号(\<A)" ;
SKIP FOR isadm=.F.
DEFINE BAR 2 OF (a_menupops[10]) PROMPT "删除帐号(\<D)" ;
SKIP FOR isadm=.F.
DEFINE BAR 3 OF (a_menupops[10]) PROMPT "修改帐号(\<M)"
ON SELECTION BAR 1 OF (a_menupops[10]) DO FORM ACCADD
ON SELECTION BAR 2 OF (a_menupops[10]) ;
DO _2e11b85uo ;
IN LOCFILE("WUHUO\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
ON SELECTION BAR 3 OF (a_menupops[10]) ;
DO _2e11b85up ;
IN LOCFILE("WUHUO\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
DEFINE POPUP (a_menupops[11]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[11]) PROMPT "关于(\<A)"
ON SELECTION BAR 1 OF (a_menupops[11]) DO FORM ABOUT
ACTIVATE MENU (m.cMenuName) NOWAIT
IF m.cTypeParm2 = "C"
m.getMenuName = m.cMenuName
m.oFormRef.Name = m.cSaveFormName
ENDIF
* *********************************************************
* *
* * _2E11B85UI ON SELECTION BAR 1 OF POPUP 文件f
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 5
* * Called By: ON SELECTION BAR 1 OF POPUP 文件f
* * Prompt: 退出(E)
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _2e11b85ui
YN=MESSAGEBOX("确定退出",4+32,"物货系统信息")
IF YN=6
CLEAR
QUIT
ENDIF
* *********************************************************
* *
* * _2E11B85UJ ON SELECTION BAR 1 OF POPUP 资料查询
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 30
* * Called By: ON SELECTION BAR 1 OF POPUP 资料查询
* * Prompt: 入库信息查询(R)
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _2e11b85uj
SERTB="RK"
DO FORM SERFM
* *********************************************************
* *
* * _2E11B85UK ON SELECTION BAR 2 OF POPUP 资料查询
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 31
* * Called By: ON SELECTION BAR 2 OF POPUP 资料查询
* * Prompt: 出库信息查询(C)
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _2e11b85uk
SERTB="CK"
DO FORM SERFM
* *********************************************************
* *
* * _2E11B85UL ON SELECTION BAR 3 OF POPUP 资料查询
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 32
* * Called By: ON SELECTION BAR 3 OF POPUP 资料查询
* * Prompt: 库存信息查询(K)
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _2e11b85ul
SERTB="KC"
DO FORM SERFM
* *********************************************************
* *
* * _2E11B85UM ON SELECTION BAR 5 OF POPUP 资料查询
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 35
* * Called By: ON SELECTION BAR 5 OF POPUP 资料查询
* * Prompt: 紧俏商品查询(J)
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _2e11b85um
ACT="jinqiao"
DO FORM JINQIAO
* *********************************************************
* *
* * _2E11B85UN ON SELECTION BAR 6 OF POPUP 资料查询
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 36
* * Called By: ON SELECTION BAR 6 OF POPUP 资料查询
* * Prompt: 滞存商品查询(Z)
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _2e11b85un
ACT="zhicun"
DO FORM JINQIAO
* *********************************************************
* *
* * _2E11B85UO ON SELECTION BAR 2 OF POPUP 新菜单项
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 67
* * Called By: ON SELECTION BAR 2 OF POPUP 新菜单项
* * Prompt: 删除帐号(D)
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _2e11b85uo
ACT="CDEL"
DO FORM ACCMD
* *********************************************************
* *
* * _2E11B85UP ON SELECTION BAR 3 OF POPUP 新菜单项
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 68
* * Called By: ON SELECTION BAR 3 OF POPUP 新菜单项
* * Prompt: 修改帐号(M)
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _2e11b85up
IF ISADM=.T.
ACT="CMOD"
DO FORM ACCMD
ELSE
DO FORM ACCMOD
ENDIF
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -