main.bak

来自「办公室档案管理系统源代码」· BAK 代码 · 共 36 行

set talk off
set esca off
set exact off
set reprocess to automatic
set help to comp_help.chm
set cons on
set date ansi
set score off
set safe off
set stat bar on
set cent on
set color to
set sysmenu off
clea
clea all
on error do err.prg
on shutdown do quit1.prg
with _screen
.visible=.f.
endwith
do form fm
read event
do form dl
read event
with _screen
.visible=.t.
.closable=.t.
.controlbox=.t.
.maxbutton=.t.
.minbutton=.t.
.top=0
.left=0
.windowstate=2
.caption='海南儋州市建筑工程质量检测报告及管理系统'
icon='jz.ico'
endwith