main.bak

来自「vfp编写的代发工资接口系统包括数据管理」· BAK 代码 · 共 29 行

set talk off
set esca off
set exact on
set excl on
set score off
set stat bar on
set color to
set clock on
set hour to 24
set sysmenu off
_screen.windowstate=1
_screen.visible=.f.
cpath=left(sys(16),rat("\",sys(16)))
set defa to (cpath)
set path to data;form;pic
open database gzdfdb
do form logo
read events
_screen.visible=.t.
_screen.caption="银行代发工资接口系统"
release window standard,项目管理器,表单控件,命令,布局
zoom window screen max
do mainmenu.mpr
set classlib to toolbar additive
ctbar=createobj("tbar") 
ctbar.dock(0)
ctbar.show
read events
quit