📄 main.mpr
字号:
DEFINE POPUP (a_menupops[7]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[7]) PROMPT "添加用户"
DEFINE BAR 2 OF (a_menupops[7]) PROMPT "编辑用户"
DEFINE BAR 3 OF (a_menupops[7]) PROMPT "数据清理"
DEFINE BAR 4 OF (a_menupops[7]) PROMPT "数据备份"
DEFINE BAR 5 OF (a_menupops[7]) PROMPT "数据导入"
ON SELECTION BAR 1 OF (a_menupops[7]) ;
DO _1jh12f7vk ;
IN LOCFILE("\BGRS\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
ON SELECTION BAR 2 OF (a_menupops[7]) ;
DO _1jh12f7vl ;
IN LOCFILE("\BGRS\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
ON SELECTION BAR 3 OF (a_menupops[7]) ;
DO _1jh12f7vm ;
IN LOCFILE("\BGRS\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
ON SELECTION BAR 4 OF (a_menupops[7]) ;
DO _1jh12f7vn ;
IN LOCFILE("\BGRS\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
ON SELECTION BAR 5 OF (a_menupops[7]) ;
DO _1jh12f7vo ;
IN LOCFILE("\BGRS\MENUS\MAIN" ,"MPX;MPR|FXP;PRG" ,"WHERE is MAIN?")
DEFINE POPUP (a_menupops[8]) MARGIN RELATIVE SHADOW COLOR SCHEME 4
DEFINE BAR 1 OF (a_menupops[8]) PROMPT "帮助主题"
DEFINE BAR 2 OF (a_menupops[8]) PROMPT "\-"
DEFINE BAR 3 OF (a_menupops[8]) PROMPT "关于..."
ON SELECTION BAR 1 OF (a_menupops[8]) application.activeform.tbrtools.cmdhelp.click
ON SELECTION BAR 3 OF (a_menupops[8]) do form about
ACTIVATE MENU (m.cMenuName) NOWAIT
IF m.cTypeParm2 = "C"
m.getMenuName = m.cMenuName
m.oFormRef.Name = m.cSaveFormName
ENDIF
* *********************************************************
* *
* * _1JH12F7UU ON SELECTION BAR 1 OF POPUP 文件
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 5
* * Called By: ON SELECTION BAR 1 OF POPUP 文件
* * Prompt: 新建系统...
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _1jh12f7uu
DO FORM CO
* *********************************************************
* *
* * _1JH12F7UV ON SELECTION BAR 1 OF POPUP 业务操作
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 14
* * Called By: ON SELECTION BAR 1 OF POPUP 业务操作
* * Prompt: 报关操作...
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _1jh12f7uv
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_zsj=.T.
do form zsj
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7UW ON SELECTION BAR 2 OF POPUP 业务操作
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 15
* * Called By: ON SELECTION BAR 2 OF POPUP 业务操作
* * Prompt: 运输操作...
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _1jh12f7uw
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_zb=.T.
do form zb
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7UX ON SELECTION BAR 3 OF POPUP 业务操作
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 16
* * Called By: ON SELECTION BAR 3 OF POPUP 业务操作
* * Prompt: 费用报销...
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _1jh12f7ux
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_CW=.T.
do form CW
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7UY ON SELECTION BAR 4 OF POPUP 业务操作
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 17
* * Called By: ON SELECTION BAR 4 OF POPUP 业务操作
* * Prompt: 银行台帐
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _1jh12f7uy
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_BANK=.T.
do form BANK
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7UZ ON SELECTION BAR 5 OF POPUP 业务操作
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 18
* * Called By: ON SELECTION BAR 5 OF POPUP 业务操作
* * Prompt: 现金日记
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _1jh12f7uz
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_MONEY=.T.
do form MONEY
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7V0 ON SELECTION BAR 6 OF POPUP 业务操作
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 19
* * Called By: ON SELECTION BAR 6 OF POPUP 业务操作
* * Prompt: 实收实付
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _1jh12f7v0
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_SK=.T.
do form SK
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7V1 ON SELECTION BAR 1 OF POPUP 数据查询
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 22
* * Called By: ON SELECTION BAR 1 OF POPUP 数据查询
* * Prompt: 报关查询
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _1jh12f7v1
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_ZSJ=.T.
do form ZSJs
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7V2 ON SELECTION BAR 2 OF POPUP 数据查询
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 23
* * Called By: ON SELECTION BAR 2 OF POPUP 数据查询
* * Prompt: 运输查询
* * Snippet: 9
* *
* *********************************************************
*
PROCEDURE _1jh12f7v2
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_zb=.T.
do form zbs
else
do form cxN
ENDIF
* *********************************************************
* *
* * _1JH12F7V3 ON SELECTION BAR 3 OF POPUP 数据查询
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 24
* * Called By: ON SELECTION BAR 3 OF POPUP 数据查询
* * Prompt: 收费标准查询
* * Snippet: 10
* *
* *********************************************************
*
PROCEDURE _1jh12f7v3
if !used('PASSWORDS')
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -