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