mail.bak

办公室档案管理系统源代码

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='海南创域石英砂有限公司档案管理系统'
_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