开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 行业应用 > 企业管理 > 查看源码
XTBBZC.PRG
资源名称：jq_caiwu.ARJ　[点击查看]
上传用户：hbmaozhan
上传日期：2013-01-31
资源大小：1007k
文件大小：1k
源码类别：

企业管理

开发平台：

VFP

XTBBZC.PRG：源码内容
  1.  CLOS DATABASES
  2.  SET COLOR TO
  3.  @ 7, 8 CLEAR TO 10, 35
  4.  @ 5, 15 SAY '系统报表转出'
  5.  @ 8, 10 SAY '请将备份盘插入A:驱动器!'
  6.  @ 9, 10 SAY '按ESC=返回,Y键=拷贝...'
  7.  i = INKEY(0)
  8.  IF i=89 .OR. i=121
  9.       @ 12, 15 SAY '正在拷贝文件......'
  10.       ERAS A:fzbhz.dbf
  11.       ERAS A:sybhz.dbf
  12.       ERAS A:bcmxbhz.dbf
  13.       ERAS A:yjkbhz.dbf
  14.       ERAS A:zzsbhz.dbf
  15.       SET PATH TO C:
  16.       IF FILE('fzb.dbf')
  17.            COPY FILE fzb.dbf TO A:fzbhz.dbf
  18.       ELSE
  19.            ?? CHR(7)
  20.            @ 15, 12 SAY '资产负债表没找到!'
  21.            i = INKEY(2)
  22.       ENDI
  23.       IF FILE('syb.dbf')
  24.            COPY FILE syb.dbf TO A:sybhz.dbf
  25.       ELSE
  26.            ?? CHR(7)
  27.            @ 15, 12 SAY '损益表没找到! '
  28.            i = INKEY(2)
  29.       ENDI
  30.       IF FILE('bcmxb.dbf')
  31.            COPY FILE bcmxb.dbf TO A:bcmxbhz.dbf
  32.       ELSE
  33.            ?? CHR(7)
  34.            @ 15, 12 SAY '补充明细表没找到!'
  35.            i = INKEY(2)
  36.       ENDI
  37.       IF FILE('yjkb.dbf')
  38.            COPY FILE yjkb.dbf TO A:yjkbhz.dbf
  39.       ELSE
  40.            ?? CHR(7)
  41.            @ 15, 12 SAY '应交款项表没找到!'
  42.            i = INKEY(2)
  43.       ENDI
  44.       IF FILE('zzsb.dbf')
  45.            COPY FILE zzsb.dbf TO A:zzsbhz.dbf
  46.       ELSE
  47.            ?? CHR(7)
  48.            @ 15, 12 SAY '增值税报表没找到!'
  49.            i = INKEY(2)
  50.       ENDI
  51.  ENDI
  52.  SET PATH TO cw
  53.  SET COLOR TO W+/N
  54.  @ 1, 1, 22, 78 BOX '鞍鞍鞍鞍鞍鞍'
  55.  RETU
  56. *