📄 main.mpr
字号:
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_khbz=.T.
do form khbzs
else
do form cxN
ENDIF
* *********************************************************
* *
* * _1JH12F7V4 ON SELECTION BAR 4 OF POPUP 数据查询
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 25
* * Called By: ON SELECTION BAR 4 OF POPUP 数据查询
* * Prompt: 桥路标准查询
* * Snippet: 11
* *
* *********************************************************
*
PROCEDURE _1jh12f7v4
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_qlbz=.T.
do form qlbzs
else
do form cxN
ENDIF
* *********************************************************
* *
* * _1JH12F7V5 ON SELECTION BAR 1 OF POPUP 业务报表
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 28
* * Called By: ON SELECTION BAR 1 OF POPUP 业务报表
* * Prompt: 报关客户对帐单...
* * Snippet: 12
* *
* *********************************************************
*
PROCEDURE _1jh12f7v5
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_ywbb=.T.
do form bgkhdzd
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7V6 ON SELECTION BAR 2 OF POPUP 业务报表
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 29
* * Called By: ON SELECTION BAR 2 OF POPUP 业务报表
* * Prompt: 运输客户帐单
* * Snippet: 13
* *
* *********************************************************
*
PROCEDURE _1jh12f7v6
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_ywbb=.T.
do form RSkhdzd
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7V7 ON SELECTION BAR 3 OF POPUP 业务报表
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 30
* * Called By: ON SELECTION BAR 3 OF POPUP 业务报表
* * Prompt: 司机帐单...
* * Snippet: 14
* *
* *********************************************************
*
PROCEDURE _1jh12f7v7
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_ywbb=.T.
do form sjcx
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7V8 ON SELECTION BAR 4 OF POPUP 业务报表
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 31
* * Called By: ON SELECTION BAR 4 OF POPUP 业务报表
* * Prompt: 外派帐单
* * Snippet: 15
* *
* *********************************************************
*
PROCEDURE _1jh12f7v8
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_ywbb=.T.
do form cdhz
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7V9 ON SELECTION BAR 5 OF POPUP 业务报表
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 32
* * Called By: ON SELECTION BAR 5 OF POPUP 业务报表
* * Prompt: 车牌帐单...
* * Snippet: 16
* *
* *********************************************************
*
PROCEDURE _1jh12f7v9
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_ywbb=.T.
do form cphhz
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7VA ON SELECTION BAR 6 OF POPUP 业务报表
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 33
* * Called By: ON SELECTION BAR 6 OF POPUP 业务报表
* * Prompt: 报关帐单
* * Snippet: 17
* *
* *********************************************************
*
PROCEDURE _1jh12f7va
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_ywbb=.T.
do form bghhz
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7VB ON SELECTION BAR 1 OF POPUP 财务报表
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 36
* * Called By: ON SELECTION BAR 1 OF POPUP 财务报表
* * Prompt: 运输客户汇总
* * Snippet: 18
* *
* *********************************************************
*
PROCEDURE _1jh12f7vb
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_cwbb=.T.
do form rskhhz
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7VC ON SELECTION BAR 2 OF POPUP 财务报表
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 37
* * Called By: ON SELECTION BAR 2 OF POPUP 财务报表
* * Prompt: 报关客户汇总
* * Snippet: 19
* *
* *********************************************************
*
PROCEDURE _1jh12f7vc
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_cwbb=.T.
do form bgkhhz
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7VD ON SELECTION BAR 3 OF POPUP 财务报表
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 38
* * Called By: ON SELECTION BAR 3 OF POPUP 财务报表
* * Prompt: 应收款统计表
* * Snippet: 20
* *
* *********************************************************
*
PROCEDURE _1jh12f7vd
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_cwbb=.T.
do form khys
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7VE ON SELECTION BAR 4 OF POPUP 财务报表
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 39
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -