main.prg

来自「这是一套铝型材图纸查询系统,是vfp编写的源代码」· PRG 代码 · 共 19 行

if file('c:\windows\pxling.vfp').or.file('c:\winnt\pxling.vfp').or.file('c:\windows\pxl.vfp').or.file('c:\winnt\pxl.vfp')
  _screen.caption="铝型材截面图查询系统"
  _screen.height=610
  _screen.width=650
  _screen.FontBold=.t.
  _screen.maxbutton=.f.
  _screen.closable=.f.
  _screen.picture="backbmp.bmp"
  _screen.icon="see.ico"
  _screen.autocenter=.t.
  do origin.prg
  do form ctcx
  read events
else
   messagebox("软件没有注册,请注册","提醒！")
   do form zc
   read events
endif