?? 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 + -