行业应用

开发平台：

VFP

YJKBHZDY.PRG：源码内容

							
if .not. file('yjkbhz.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 
   wj1='yjkbhz.dbf'
   do yjkbdy
    use
endif
retu

						