📄 主菜单.mpr
字号:
* * Procedure Origin:
* *
* * From Menu: 主菜单.MPR, Record: 61
* * Called By: ON SELECTION PAD
* * Prompt: 退出
* * Snippet: 1
* *
* *********************************************************
*
PROCEDURE _05418yiq2
cd=0
yn=messagebox("您是否真的要退出本系统？",4,"退出")
if yn=7
cd=1
return
endif
主表单.release
clear events
* *********************************************************
* *
* * _05418YIQ7 ON SELECTION BAR 1 OF POPUP 营业流水d
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单.MPR, Record: 5
* * Called By: ON SELECTION BAR 1 OF POPUP 营业流水d
* * Prompt: 登记结算
* * Snippet: 2
* *
* *********************************************************
*
PROCEDURE _05418yiq7
cd=0
主表单.返回.visible=.T.
do form 登记结算
* *********************************************************
* *
* * _05418YIQ9 ON SELECTION BAR 2 OF POPUP 营业流水d
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单.MPR, Record: 6
* * Called By: ON SELECTION BAR 2 OF POPUP 营业流水d
* * Prompt: 营业流水查询
* * Snippet: 3
* *
* *********************************************************
*
PROCEDURE _05418yiq9
cd=0
主表单.返回.visible=.T.
do form 营业流水查询
* *********************************************************
* *
* * _05418YIQE ON SELECTION BAR 1 OF POPUP 采购库存c
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单.MPR, Record: 9
* * Called By: ON SELECTION BAR 1 OF POPUP 采购库存c
* * Prompt: 采购登记
* * Snippet: 4
* *
* *********************************************************
*
PROCEDURE _05418yiqe
cd=0
主表单.返回.visible=.T.
do form 采购库存
采购库存.pageframe1.activepage=2
采购库存.pageframe1.visible=.T.
* *********************************************************
* *
* * _05418YIQH ON SELECTION BAR 2 OF POPUP 采购库存c
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单.MPR, Record: 10
* * Called By: ON SELECTION BAR 2 OF POPUP 采购库存c
* * Prompt: 采购查询
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _05418yiqh
cd=0
主表单.返回.visible=.T.
do form 采购库存
采购库存.pageframe1.activepage=3
采购库存.pageframe1.visible=.T.
* *********************************************************
* *
* * _05418YIQJ ON SELECTION BAR 4 OF POPUP 采购库存c
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单.MPR, Record: 13
* * Called By: ON SELECTION BAR 4 OF POPUP 采购库存c
* * Prompt: 库存查询
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _05418yiqj
cd=0
主表单.返回.visible=.T.
do form 采购库存
采购库存.pageframe1.activepage=4
采购库存.pageframe1.visible=.T.
* *********************************************************
* *
* * _05418YIQL ON SELECTION BAR 6 OF POPUP 采购库存c
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单.MPR, Record: 16
* * Called By: ON SELECTION BAR 6 OF POPUP 采购库存c
* * Prompt: 领料登记
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _05418yiql
cd=0
主表单.返回.visible=.T.
do form 采购库存
采购库存.pageframe1.activepage=5
采购库存.pageframe1.visible=.T.
* *********************************************************
* *
* * _05418YIQN ON SELECTION BAR 7 OF POPUP 采购库存c
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单.MPR, Record: 17
* * Called By: ON SELECTION BAR 7 OF POPUP 采购库存c
* * Prompt: 领料查询
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _05418yiqn
cd=0
主表单.返回.visible=.T.
do form 采购库存
采购库存.pageframe1.activepage=6
采购库存.pageframe1.visible=.T.
* *********************************************************
* *
* * _05418YIQP ON SELECTION BAR 9 OF POPUP 采购库存c
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单.MPR, Record: 20
* * Called By: ON SELECTION BAR 9 OF POPUP 采购库存c
* * Prompt: 类别品名
* * Snippet: 9
* *
* *********************************************************
*
PROCEDURE _05418yiqp
cd=0
主表单.返回.visible=.T.
do form 采购库存
采购库存.pageframe1.activepage=1
采购库存.pageframe1.visible=.T.
* *********************************************************
* *
* * _05418YIQS ON SELECTION BAR 1 OF POPUP 餐桌预定f
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单.MPR, Record: 23
* * Called By: ON SELECTION BAR 1 OF POPUP 餐桌预定f
* * Prompt: 餐桌预定
* * Snippet: 10
* *
* *********************************************************
*
PROCEDURE _05418yiqs
cd=0
do form 房间预定
* *********************************************************
* *
* * _05418YIQX ON SELECTION BAR 1 OF POPUP 应收应付y
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单.MPR, Record: 26
* * Called By: ON SELECTION BAR 1 OF POPUP 应收应付y
* * Prompt: 签单结算
* * Snippet: 11
* *
* *********************************************************
*
PROCEDURE _05418yiqx
cd=0
主表单.返回.visible=.T.
do form 签单结算
* *********************************************************
* *
* * _05418YIQZ ON SELECTION BAR 2 OF POPUP 应收应付y
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单.MPR, Record: 27
* * Called By: ON SELECTION BAR 2 OF POPUP 应收应付y
* * Prompt: 签单历史查询
* * Snippet: 12
* *
* *********************************************************
*
PROCEDURE _05418yiqz
cd=0
主表单.返回.visible=.T.
do form 应收查询
* *********************************************************
* *
* * _05418YIR1 ON SELECTION BAR 3 OF POPUP 应收应付y
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单.MPR, Record: 28
* * Called By: ON SELECTION BAR 3 OF POPUP 应收应付y
* * Prompt: 应付结算
* * Snippet: 13
* *
* *********************************************************
*
PROCEDURE _05418yir1
cd=0
主表单.返回.visible=.T.
do form 应付结算
* *********************************************************
* *
* * _05418YIR2 ON SELECTION BAR 4 OF POPUP 应收应付y
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单.MPR, Record: 29
* * Called By: ON SELECTION BAR 4 OF POPUP 应收应付y
* * Prompt: 应付历史查询
* * Snippet: 14
* *
* *********************************************************
*
PROCEDURE _05418yir2
cd=0
主表单.返回.visible=.T.
do form 应付查询
* *********************************************************
* *
* * _05418YIR7 ON SELECTION BAR 1 OF POPUP 费用管理l
* *
* * Procedure Origin:
* *
* * From Menu: 主菜单.MPR, Record: 32
* * Called By: ON SELECTION BAR 1 OF POPUP 费用管理l
* * Prompt: 费用查询
* * Snippet: 15
* *
* *********************************************************
*
PROCEDURE _05418yir7
cd=0
主表单.返回.visible=.T.
do form 费用管理
费用管理.pageframe1.visible=.T.
费用管理.pageframe1.page1.olecontrol1.setfocus
费用管理.pageframe1.page1.olecontrol2.setfocus
* *********************************************************
* *
* * _05418YIR9 ON SELECTION BAR 2 OF POPUP 费用管理l
* *
* * Procedure Origin:
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -