📄 main.mpr
字号:
* * Called By: ON SELECTION BAR 4 OF POPUP 财务报表
* * Prompt: 应付款统计表
* * Snippet: 21
* *
* *********************************************************
*
PROCEDURE _1jh12f7ve
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_cwbb=.T.
do form yfkh
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7VF ON SELECTION BAR 5 OF POPUP 财务报表
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 40
* * Called By: ON SELECTION BAR 5 OF POPUP 财务报表
* * Prompt: 经营成本汇总
* * Snippet: 22
* *
* *********************************************************
*
PROCEDURE _1jh12f7vf
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_cwbb=.T.
do form jycb
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7VG ON SELECTION BAR 6 OF POPUP 财务报表
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 41
* * Called By: ON SELECTION BAR 6 OF POPUP 财务报表
* * Prompt: 车辆成本汇总
* * Snippet: 23
* *
* *********************************************************
*
PROCEDURE _1jh12f7vg
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_ywbb=.T.
do form cbhz
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7VH ON SELECTION BAR 7 OF POPUP 财务报表
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 42
* * Called By: ON SELECTION BAR 7 OF POPUP 财务报表
* * Prompt: 损益表
* * Snippet: 24
* *
* *********************************************************
*
PROCEDURE _1jh12f7vh
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_cwbb=.T.
do form syb
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7VI ON SELECTION BAR 8 OF POPUP 财务报表
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 43
* * Called By: ON SELECTION BAR 8 OF POPUP 财务报表
* * Prompt: 资金状况分析表
* * Snippet: 25
* *
* *********************************************************
*
PROCEDURE _1jh12f7vi
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_cwbb=.T.
do form xjll
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7VJ ON SELECTION BAR 3 OF POPUP 基本资料
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 48
* * Called By: ON SELECTION BAR 3 OF POPUP 基本资料
* * Prompt: 财务科目
* * Snippet: 26
* *
* *********************************************************
*
PROCEDURE _1jh12f7vj
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_CW=.T.
do form KM
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7VK ON SELECTION BAR 1 OF POPUP 系统管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 56
* * Called By: ON SELECTION BAR 1 OF POPUP 系统管理
* * Prompt: 添加用户
* * Snippet: 27
* *
* *********************************************************
*
PROCEDURE _1jh12f7vk
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_xtgl=.T.
do form apppass
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7VL ON SELECTION BAR 2 OF POPUP 系统管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 57
* * Called By: ON SELECTION BAR 2 OF POPUP 系统管理
* * Prompt: 编辑用户
* * Snippet: 28
* *
* *********************************************************
*
PROCEDURE _1jh12f7vl
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_xtgl=.T.
do form editpass
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7VM ON SELECTION BAR 3 OF POPUP 系统管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 58
* * Called By: ON SELECTION BAR 3 OF POPUP 系统管理
* * Prompt: 数据清理
* * Snippet: 29
* *
* *********************************************************
*
PROCEDURE _1jh12f7vm
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_xtgl=.T.
do form szql
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7VN ON SELECTION BAR 4 OF POPUP 系统管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 59
* * Called By: ON SELECTION BAR 4 OF POPUP 系统管理
* * Prompt: 数据备份
* * Snippet: 30
* *
* *********************************************************
*
PROCEDURE _1jh12f7vn
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_xtgl=.T.
do form back
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
* *********************************************************
* *
* * _1JH12F7VO ON SELECTION BAR 5 OF POPUP 系统管理
* *
* * Procedure Origin:
* *
* * From Menu: MAIN.MPR, Record: 60
* * Called By: ON SELECTION BAR 5 OF POPUP 系统管理
* * Prompt: 数据导入
* * Snippet: 31
* *
* *********************************************************
*
PROCEDURE _1jh12f7vo
if !used('PASSWORDS')
use PASSWORDS
endif
SELECT PASSWORDS
LOCATE FOR UPPER(NAMES)=UPPER(PASSWORDS.P_YF)
IF PASSWORDS.P_xtgl=.T.
do form come
else
messagebox("对不起，你权限不够！请与管理员系统",16,"错误")
ENDIF
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -