XSBHZDY.PRG
上传用户:xue7720
上传日期:2013-01-31
资源大小:1240k
文件大小:0k
源码类别:

行业应用

开发平台:

VFP

  1. if .not. file('xsmxbhz.dbf')
  2.    ?? chr(7)
  3.     set colo to
  4.     @ 5,8 clea to 10,35
  5.     set colo to w+/1
  6.     @ 4,5 clea to 9,33
  7.     x1=4
  8.     x2=9
  9.     y1=5
  10.     y2=31
  11.     do box_1
  12.   @ 6,9 say '销售利润明细表不存在!'
  13.   @ 7,9 say '按任意键继续 ......'
  14.   i=inkey(0)
  15.   set colo to w+/n
  16.   @3,3,10,35 box'鞍鞍鞍鞍鞍鞍'
  17.   else 
  18.    use xsmxbhz
  19.    do xsmxbdy
  20.     use
  21.  endif
  22.  retu