zf.prg

来自「这是一个在正实际应用当中运行的电力监控系统软件源代码」· PRG 代码 · 共 25 行

CLEAR
CLOSE DATA
SET STATUS OFF
SET STATUS BAR OFF
SET TALK OFF
SET ESCAPE  OFF
SET safety OFF
SET NOTIFY  OFF
PUBLIC STARTYC,ENDYC,STARTYX,ENDYX,STARTDD,ENDDD,WAITFLAG
WAITFLAG=0
STORE 0 TO STARTYC,ENDYC,STARTYX,ENDYX,STARTDD,ENDDD
_SCREEN.CAPTION="转发管理"
*CLOSE ALL
SET DEFAULT TO C:\TCZ
COPY FILE 'ZFCSK.DBF' TO 'ZFBAK.DBF'
USE ZFCSK IN 1
USE ZFYC IN 2
USE ZFYX IN 3
USE ZFDD IN 4
USE ZFBAK IN 5
USE CALC IN 6
DO C:\TCZ\DM\ZFMENU.MPR
DO FORM C:\TCZ\DM\MAIN
READ EVENTS