set talk off
set esca off
*set exact off
set excl on
set cons on
set date ansi
set score off
set safe off
set exact on
set color to
set sysmenu off
on shutdown do quit1.prg

clea
clea all
*with _screen
*.visible=.f.
*endwith
_screen.caption='海南創(chuàng)域石英砂有限公司檔案管理系統(tǒng)'
_screen.windowstate=2
_screen.icon='jz.ico'
p1=sys(5)+sys(2003)+"jpg\0015.jpg"
_screen.picture=p1
_screen.activate

do form bd\fm.scx

read events