mail.prg

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

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


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