📄 mainmenu.mpr
字号:
* *********************************************************
* *
* * 01/09/2005 MAINMENU.MPR 14:52:52
* *
* *********************************************************
* *
* * Author's Name
* *
* * Copyright (C) 2005 Company Name
* * Address
* * City, Zip
* *
* * Description:
* * This PROGRAM was automatically generated BY GENMENU.
* *
* *********************************************************
* *********************************************************
* *
* * Menu Definition
* *
* *********************************************************
*
SET SYSMENU TO
SET SYSMENU AUTOMATIC
DEFINE PAD _1f80vw8jv OF _MSYSMENU PROMPT "［文件］" COLOR SCHEME 3
DEFINE PAD _1f80vw8jw OF _MSYSMENU PROMPT "［基本资料］" COLOR SCHEME 3
DEFINE PAD _1f80vw8jx OF _MSYSMENU PROMPT "［基本操作］" COLOR SCHEME 3
DEFINE PAD _1f80vw8jy OF _MSYSMENU PROMPT "［系统报表］" COLOR SCHEME 3
DEFINE PAD _1f80vw8jz OF _MSYSMENU PROMPT "［系统管理］" COLOR SCHEME 3
DEFINE PAD _1f80vw8k0 OF _MSYSMENU PROMPT "［退出］" COLOR SCHEME 3
ON PAD _1f80vw8jv OF _MSYSMENU ACTIVATE POPUP ［文件］
ON PAD _1f80vw8jw OF _MSYSMENU ACTIVATE POPUP ［基本资料
ON PAD _1f80vw8jx OF _MSYSMENU ACTIVATE POPUP ［基本操作
ON PAD _1f80vw8jy OF _MSYSMENU ACTIVATE POPUP ［日报表］
ON SELECTION PAD _1f80vw8jz OF _MSYSMENU ;
DO _1f80vw8k1 ;
IN LOCFILE("\BGRS\FORMS\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION PAD _1f80vw8k0 OF _MSYSMENU QUIT
DEFINE POPUP ［文件］ MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF ［文件］ PROMPT "系统信息"
DEFINE BAR 2 OF ［文件］ PROMPT "关闭(X)"
ON SELECTION BAR 1 OF ［文件］ DO FORM CO
ON SELECTION BAR 2 OF ［文件］ QUIT
DEFINE POPUP ［基本资料 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF ［基本资料 PROMPT "客户(A)"
DEFINE BAR 2 OF ［基本资料 PROMPT "报关形式(B)"
DEFINE BAR 3 OF ［基本资料 PROMPT "车辆资料(C)"
DEFINE BAR 4 OF ［基本资料 PROMPT "经营单位(D)"
DEFINE BAR 5 OF ［基本资料 PROMPT "船名航次(E)"
DEFINE BAR 6 OF ［基本资料 PROMPT "财务科目(F)"
DEFINE BAR 7 OF ［基本资料 PROMPT "报关行(D)"
DEFINE BAR 8 OF ［基本资料 PROMPT "提交地点(Y)"
ON SELECTION BAR 1 OF ［基本资料 DO FORM KH
ON SELECTION BAR 2 OF ［基本资料 DO FORM BGXS
ON SELECTION BAR 3 OF ［基本资料 DO FORM onsj
ON SELECTION BAR 4 OF ［基本资料 DO FORM SHIPPER
ON SELECTION BAR 5 OF ［基本资料 DO FORM SHIP
ON SELECTION BAR 6 OF ［基本资料 do form ONFL
ON SELECTION BAR 7 OF ［基本资料 DO FORM BGH
ON SELECTION BAR 8 OF ［基本资料 do form TJDD
DEFINE POPUP ［基本操作 MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF ［基本操作 PROMPT "报关业务(E)"
DEFINE BAR 2 OF ［基本操作 PROMPT "运输业务(F)"
DEFINE BAR 3 OF ［基本操作 PROMPT "财务费用(G)"
DEFINE BAR 4 OF ［基本操作 PROMPT "财务查寻(S)"
DEFINE BAR 5 OF ［基本操作 PROMPT "收款记录(S)"
ON SELECTION BAR 1 OF ［基本操作 ;
DO _1f80vw8ka ;
IN LOCFILE("\BGRS\FORMS\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION BAR 2 OF ［基本操作 ;
DO _1f80vw8kb ;
IN LOCFILE("\BGRS\FORMS\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION BAR 3 OF ［基本操作 ;
DO _1f80vw8kc ;
IN LOCFILE("\BGRS\FORMS\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION BAR 4 OF ［基本操作 ;
DO _1f80vw8kd ;
IN LOCFILE("\BGRS\FORMS\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION BAR 5 OF ［基本操作 ;
DO _1f80vw8ke ;
IN LOCFILE("\BGRS\FORMS\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
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 _1f80vw8kf ;
IN LOCFILE("\BGRS\FORMS\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION BAR 2 OF ［日报表］ ;
DO _1f80vw8kg ;
IN LOCFILE("\BGRS\FORMS\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
ON SELECTION BAR 3 OF ［日报表］ ;
DO _1f80vw8kh ;
IN LOCFILE("\BGRS\FORMS\MAINMENU" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAINMENU?")
* *********************************************************
* *
* * _1F80VW8K1 ON SELECTION PAD
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 29
* * Called By: ON SELECTION PAD
* * Prompt: ［系统管理］
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1f80vw8k1
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_xtgl=.T.
do form XTWH
else
do form cxN
ENDIF
* *********************************************************
* *
* * _1F80VW8KA ON SELECTION BAR 1 OF POPUP ［基本操作
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 19
* * Called By: ON SELECTION BAR 1 OF POPUP ［基本操作
* * Prompt: 报关业务(E)
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _1f80vw8ka
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_MAIN=.T.
do form MAIN
else
do form cxN
ENDIF
* *********************************************************
* *
* * _1F80VW8KB ON SELECTION BAR 2 OF POPUP ［基本操作
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 20
* * Called By: ON SELECTION BAR 2 OF POPUP ［基本操作
* * Prompt: 运输业务(F)
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _1f80vw8kb
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_ZB=.T.
DO FORM ZB
else
do form cxN
ENDIF
* *********************************************************
* *
* * _1F80VW8KC ON SELECTION BAR 3 OF POPUP ［基本操作
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 21
* * Called By: ON SELECTION BAR 3 OF POPUP ［基本操作
* * Prompt: 财务费用(G)
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _1f80vw8kc
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_HDFY=.T.
do form HDFY
else
do form cxN
ENDIF
* *********************************************************
* *
* * _1F80VW8KD ON SELECTION BAR 4 OF POPUP ［基本操作
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 22
* * Called By: ON SELECTION BAR 4 OF POPUP ［基本操作
* * Prompt: 财务查寻(S)
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _1f80vw8kd
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_CWCX=.T.
do form CWCX
else
do form cxn
ENDIF
* *********************************************************
* *
* * _1F80VW8KE ON SELECTION BAR 5 OF POPUP ［基本操作
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 23
* * Called By: ON SELECTION BAR 5 OF POPUP ［基本操作
* * Prompt: 收款记录(S)
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _1f80vw8ke
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_ONSK=.T.
do form ONSK
else
do form cxN
ENDIF
* *********************************************************
* *
* * _1F80VW8KF ON SELECTION BAR 1 OF POPUP ［日报表］
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 26
* * Called By: ON SELECTION BAR 1 OF POPUP ［日报表］
* * Prompt: 报关报表
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _1f80vw8kf
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_BGBB=.T.
do form BG
else
do form cxN
ENDIF
* *********************************************************
* *
* * _1F80VW8KG ON SELECTION BAR 2 OF POPUP ［日报表］
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 27
* * Called By: ON SELECTION BAR 2 OF POPUP ［日报表］
* * Prompt: 运输报表
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _1f80vw8kg
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_YSBB=.T.
do form YSBB
else
do form cxn
ENDIF
* *********************************************************
* *
* * _1F80VW8KH ON SELECTION BAR 3 OF POPUP ［日报表］
* *
* * Procedure Origin:
* *
* * From Menu: MAINMENU.MPR, Record: 28
* * Called By: ON SELECTION BAR 3 OF POPUP ［日报表］
* * Prompt: 财务报表
* * Snippet: 9
* *
* *********************************************************
*
PROCEDURE _1f80vw8kh
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_CWBB=.T.
do form CWBB
else
do form cxn
ENDIF
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -