行业应用

开发平台：

VFP

FZBHZDY.PRG：源码内容

							
if .not. file('fzbhz.dbf')
   ?? chr(7)
    set colo to
    @ 5,8 clea to 10,35
    set colo to w+/1
    @ 4,5 clea to 9,33
    x1=4
    x2=9
    y1=5
    y2=31
    do box_1
  @ 6,9 say '资产负债汇总表不存在!'
  @ 7,9 say '按任意键继续 ......'
  i=inkey(0)
  set colo to w+/n
  @3,3,10,35 box'鞍鞍鞍鞍鞍鞍'
  else 
  use fzbhz
   do fzbdy
    use
 endif
 retu

						