js2003.bak

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

set talk off
set esca off
set excl off
set reprocess to automatic
*set help to js_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
clear all
public ok
on shutdown do quit1.prg
with _screen
.visible=.f.
endwith
do form bd\fm.scx
read event
*quit
if ok
do cd\cx
endif
clea read
release off



*read event
*endwith
*with _screen
*.visible=.t.
*.maxbutton=.t.
*.movable=.t.
*.top=0
*.left=0
*.windowstate=2
*.caption='海南省儋州市建筑质量检测报告及管理系统'
*.icon='js.ico'

*with _screen
*.visible=.f.
*endwith
*do form bd\fm
*read event
*do form bd\dl
*read event
*with _screen
*.visible=.t.
*.controlbox=.t.
*.maxbutton=.t.
*.minbutton=.t.
*.movable=.t.
*top=0
*left=0
*windowstate=2
*endwith