📄 菜单1.mpr
字号:
* * From Menu: 菜单1.MPR, Record: 19
* * Called By: ON SELECTION BAR 3 OF POPUP 数据版面生
* * Prompt: 带优先层筛版
* * Snippet: 15
* *
* *********************************************************
*
PROCEDURE _17q0qv4fy
bmmc="带优先层筛版"
do form sjsc1
return
* *********************************************************
* *
* * _17Q0QV4FZ ON SELECTION BAR 4 OF POPUP 数据版面生
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 20
* * Called By: ON SELECTION BAR 4 OF POPUP 数据版面生
* * Prompt: 带优先版2000
* * Snippet: 16
* *
* *********************************************************
*
PROCEDURE _17q0qv4fz
bmmc="带优先版2000"
do form sjsc2000
return
* *********************************************************
* *
* * _17Q0QV4G0 ON SELECTION BAR 5 OF POPUP 数据版面生
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 21
* * Called By: ON SELECTION BAR 5 OF POPUP 数据版面生
* * Prompt: 带优先版2500
* * Snippet: 17
* *
* *********************************************************
*
PROCEDURE _17q0qv4g0
bmmc="带优先版2500"
do form sjsc2500
return
* *********************************************************
* *
* * _17Q0QV4G1 ON SELECTION BAR 6 OF POPUP 数据版面生
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 22
* * Called By: ON SELECTION BAR 6 OF POPUP 数据版面生
* * Prompt: 带优先版3000
* * Snippet: 18
* *
* *********************************************************
*
PROCEDURE _17q0qv4g1
bmmc="带优先版3000"
do form sjsc3000
return
* *********************************************************
* *
* * _17Q0QV4G2 ON SELECTION BAR 7 OF POPUP 数据版面生
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 23
* * Called By: ON SELECTION BAR 7 OF POPUP 数据版面生
* * Prompt: 带优先版3500
* * Snippet: 19
* *
* *********************************************************
*
PROCEDURE _17q0qv4g2
bmmc="带优先版3500"
do form sjsc3500
return
* *********************************************************
* *
* * _17Q0QV4G3 ON SELECTION BAR 8 OF POPUP 数据版面生
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 24
* * Called By: ON SELECTION BAR 8 OF POPUP 数据版面生
* * Prompt: 带优先版4000
* * Snippet: 20
* *
* *********************************************************
*
PROCEDURE _17q0qv4g3
bmmc="带优先版4000"
do form sjsc4000
return
* *********************************************************
* *
* * _17Q0QV4G6 ON SELECTION BAR 1 OF POPUP 数据版面打
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 27
* * Called By: ON SELECTION BAR 1 OF POPUP 数据版面打
* * Prompt: 版面增加数据
* * Snippet: 21
* *
* *********************************************************
*
PROCEDURE _17q0qv4g6
do form bmsj
return
* *********************************************************
* *
* * _17Q0QV4G7 ON SELECTION BAR 2 OF POPUP 数据版面打
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 28
* * Called By: ON SELECTION BAR 2 OF POPUP 数据版面打
* * Prompt: 普通版预览打印
* * Snippet: 22
* *
* *********************************************************
*
PROCEDURE _17q0qv4g7
do form ptbdy
return
* *********************************************************
* *
* * _17Q0QV4G8 ON SELECTION BAR 3 OF POPUP 数据版面打
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 29
* * Called By: ON SELECTION BAR 3 OF POPUP 数据版面打
* * Prompt: 机动版预览打印
* * Snippet: 23
* *
* *********************************************************
*
PROCEDURE _17q0qv4g8
public reci
public recj
set date to long
use sjjd
go bott
reci=recno()
recj=0
go top
do while !eof()
recj=recj+sl
skip
enddo
close data
report form sjjd.frx preview nowait
return
* *********************************************************
* *
* * _17Q0QV4G9 ON SELECTION BAR 1 OF POPUP 带优先版
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 32
* * Called By: ON SELECTION BAR 1 OF POPUP 带优先版
* * Prompt: 优先版预览打印
* * Snippet: 24
* *
* *********************************************************
*
PROCEDURE _17q0qv4g9
do form yxbdy
return
* *********************************************************
* *
* * _17Q0QV4GA ON SELECTION BAR 2 OF POPUP 带优先版
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 33
* * Called By: ON SELECTION BAR 2 OF POPUP 带优先版
* * Prompt: 普通版预览打印
* * Snippet: 25
* *
* *********************************************************
*
PROCEDURE _17q0qv4ga
do form ptbdy1
return
* *********************************************************
* *
* * _17Q0QV4GB ON SELECTION BAR 3 OF POPUP 带优先版
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 34
* * Called By: ON SELECTION BAR 3 OF POPUP 带优先版
* * Prompt: 机动版预览打印
* * Snippet: 26
* *
* *********************************************************
*
PROCEDURE _17q0qv4gb
public reci
public recj
set date to long
use sjjd
go bott
reci=recno()
recj=0
go top
do while !eof()
recj=recj+sl
skip
enddo
close data
report form sjjd.frx preview nowait
return
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -