📄 菜单1.mpr
字号:
pack
use srtmp
dele all
pack
use sjtmp3
dele all
pack
close data
return
* *********************************************************
* *
* * _17Q0QV4FF ON SELECTION BAR 3 OF POPUP 数据管理
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 7
* * Called By: ON SELECTION BAR 3 OF POPUP 数据管理
* * Prompt: 版面数量
* * Snippet: 5
* *
* *********************************************************
*
PROCEDURE _17q0qv4ff
close data
use banmian
do form bmqd
return
* *********************************************************
* *
* * _17Q0QV4FG ON SELECTION BAR 4 OF POPUP 数据管理
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 8
* * Called By: ON SELECTION BAR 4 OF POPUP 数据管理
* * Prompt: 码录入
* * Snippet: 6
* *
* *********************************************************
*
PROCEDURE _17q0qv4fg
use sj
do form sjsr
return
* *********************************************************
* *
* * _17Q0QV4FH ON SELECTION BAR 5 OF POPUP 数据管理
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 9
* * Called By: ON SELECTION BAR 5 OF POPUP 数据管理
* * Prompt: 数据浏览修改
* * Snippet: 7
* *
* *********************************************************
*
PROCEDURE _17q0qv4fh
use sj
brow
pack
return
* *********************************************************
* *
* * _17Q0QV4FI ON SELECTION BAR 6 OF POPUP 数据管理
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 10
* * Called By: ON SELECTION BAR 6 OF POPUP 数据管理
* * Prompt: 数据保存
* * Snippet: 8
* *
* *********************************************************
*
PROCEDURE _17q0qv4fi
set date to ymd
tmpcc=alltrim(dtoc(date()))
tmpcc='bc'+substr(tmpcc,7,2)+'.dbf'
if file('&tmpcc')
delete file &tmpcc
endif
use sj
copy to &tmpcc
use wj
loca for alltrim(wjm)=tmpcc
if !found()
appe blank
repl wjm with tmpcc
endif
* *********************************************************
* *
* * _17Q0QV4FM ON SELECTION BAR 7 OF POPUP 数据管理
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 11
* * Called By: ON SELECTION BAR 7 OF POPUP 数据管理
* * Prompt: 数据恢复
* * Snippet: 9
* *
* *********************************************************
*
PROCEDURE _17q0qv4fm
do form sjbc
return
* *********************************************************
* *
* * _17Q0QV4FN ON SELECTION BAR 8 OF POPUP 数据管理
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 12
* * Called By: ON SELECTION BAR 8 OF POPUP 数据管理
* * Prompt: 数据按名保存
* * Snippet: 10
* *
* *********************************************************
*
PROCEDURE _17q0qv4fn
do form sjambc
return
* *********************************************************
* *
* * _17Q0QV4FO ON SELECTION BAR 9 OF POPUP 数据管理
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 13
* * Called By: ON SELECTION BAR 9 OF POPUP 数据管理
* * Prompt: 数据按名恢复
* * Snippet: 11
* *
* *********************************************************
*
PROCEDURE _17q0qv4fo
tmpcc=getfile('dbf','要恢复的文件','确定',0)
if !file('&tmpcc')
return
endif
nn=at_c('\',tmpcc,2)
tmpcc=substr(tmpcc,nn+1)
if lower(substr(tmpcc,1,2))<>'bc'
return
endif
delete file sj.dbf
copy file &tmpcc to sj.dbf
use sjjd
dele all
pack
use sjjd1
dele all
pack
close data
return
* *********************************************************
* *
* * _17Q0QV4FP ON SELECTION BAR 10 OF POPUP 数据管理
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 14
* * Called By: ON SELECTION BAR 10 OF POPUP 数据管理
* * Prompt: 输出到文本文件(aa.txt)
* * Snippet: 12
* *
* *********************************************************
*
PROCEDURE _17q0qv4fp
if file('aa.txt')
dele file aa.txt
endif
use sj
copy to aa.txt sdf
close data
return
* *********************************************************
* *
* * _17Q0QV4FW ON SELECTION BAR 1 OF POPUP 数据版面生
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 17
* * Called By: ON SELECTION BAR 1 OF POPUP 数据版面生
* * Prompt: 无优先版
* * Snippet: 13
* *
* *********************************************************
*
PROCEDURE _17q0qv4fw
bmmc="无优先版"
do form sjsc
return
* *********************************************************
* *
* * _17Q0QV4FX ON SELECTION BAR 2 OF POPUP 数据版面生
* *
* * Procedure Origin:
* *
* * From Menu: 菜单1.MPR, Record: 18
* * Called By: ON SELECTION BAR 2 OF POPUP 数据版面生
* * Prompt: 带优先平均版
* * Snippet: 14
* *
* *********************************************************
*
PROCEDURE _17q0qv4fx
bmmc="带优先平均版"
do form sjsc41
return
* *********************************************************
* *
* * _17Q0QV4FY ON SELECTION BAR 3 OF POPUP 数据版面生
* *
* * Procedure Origin:
* *
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -