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

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

企业管理

开发平台：

VFP

MXZYE.PRG：源码内容
  1.  SET MOUSE ON
  2.  HIDE POPUP pop3
  3.  ON KEY
  4.  CLOS DATABASES
  5.  SELE 2
  6.  USE kmk
  7.  SELE 1
  8.  @ 12, 30 SAY '正在进行数据整理......'
  9.  SET PATH TO C:
  10.  RUN copy cwpzk-1.dbf A%.dbf>nul
  11.  USE a%
  12.  IF FILE('..m1mxk.dbf')
  13.       APPE FROM ..m1mxk.dbf
  14.  ENDI
  15.  IF FILE('..m2mxk.dbf')
  16.       APPE FROM ..m2mxk.dbf FOR zy<>'期初余额'
  17.  ENDI
  18.  IF FILE('..m3mxk.dbf')
  19.       APPE FROM ..m3mxk.dbf FOR zy<>'期初余额'
  20.  ENDI
  21.  IF FILE('..m4mxk.dbf')
  22.       APPE FROM ..m4mxk.dbf FOR zy<>'期初余额'
  23.  ENDI
  24.  IF FILE('..m5mxk.dbf')
  25.       APPE FROM ..m5mxk.dbf FOR zy<>'期初余额'
  26.  ENDI
  27.  IF FILE('..m6mxk.dbf')
  28.       APPE FROM ..m6mxk.dbf FOR zy<>'期初余额'
  29.  ENDI
  30.  IF FILE('..m7mxk.dbf')
  31.       APPE FROM ..m7mxk.dbf FOR zy<>'期初余额'
  32.  ENDI
  33.  IF FILE('..m8mxk.dbf')
  34.       APPE FROM ..m8mxk.dbf FOR zy<>'期初余额'
  35.  ENDI
  36.  IF FILE('..m9mxk.dbf')
  37.       APPE FROM ..m9mxk.dbf FOR zy<>'期初余额'
  38.  ENDI
  39.  IF FILE('..m10mxk.dbf')
  40.       APPE FROM ..m10mxk.dbf FOR zy<>'期初余额'
  41.  ENDI
  42.  IF FILE('..m11mxk.dbf')
  43.       APPE FROM ..m11mxk.dbf FOR zy<>'期初余额'
  44.  ENDI
  45.  IF FILE('..m12mxk.dbf')
  46.       APPE FROM ..m12mxk.dbf FOR zy<>'期初余额'
  47.  ENDI
  48.  SET PATH TO cw
  49.  DO WHILE .T.
  50.       SET COLOR TO N/W
  51.       SET COLOR TO W/N
  52.       @ 9, 16 CLEAR TO 15, 70
  53.       SET COLOR TO N/G
  54.       @ 8, 14 CLEAR TO 14, 67
  55.       SET COLOR TO GR+/G
  56.       @ 9, 25 SAY '请输入所需查询的明细帐科目号码!'
  57.       @ 13, 30 SAY "输入'999999999999' 退出查询!"
  58.       pd1 = '            '
  59.       @ 11, 35 GET pd1
  60.       READ
  61.       IF pd1='999999999999'
  62.            EXIT
  63.       ENDI
  64.       SET COLOR TO N/BG, W+/GR
  65.       USE A%
  66.       pd1 = TRIM(pd1)
  67.       RECA ALL
  68.       SET FILTER TO TRIM(pd1)==TRIM(kmdm)
  69.       pd = 0
  70.       GOTO TOP
  71.       DO WHILE  .NOT. EOF()
  72.            IF zy='期末及累计'
  73.                 IF pd=1
  74.                      DELE
  75.                 ENDI
  76.                 pd = 1
  77.            ELSE
  78.                 pd = 0
  79.            ENDI
  80.            SKIP
  81.       ENDD
  82.       GOTO TOP
  83.       SELE 1
  84.       LOCA ALL FOR pd1$kmdm
  85.       GOTO TOP
  86.       x = 1
  87.       IF  .NOT. EOF()
  88.            SET COLOR TO GR+/BG
  89.            @ 12, 30 SAY '正在处理数据,请稍候 ... ... '
  90.            DEFI WINDOW mxzye FROM 1, 0 TO 22, 79 TITLE ' '+zzkm+'-----'+mxkm FOOTER ' 明细帐查询:  |←右移  →|左移  ESC 退出 ' COLOR N/BG,W+/GR,R/GR,GR+/G 
  91.            ACTI WINDOW mxzye
  92.            IF slbz='2'
  93.                 BROW FIELDS rq : 5 :H = '日期', zy : 20 :H = '摘   要', jje : 14 :H = '借   方', dje : 14 :H = '贷   方', ye : 14 :H = '余   额', pzh : 4 :H = '证号', ssl : 8 :H = '收数量', fsl : 8 :H = '发数量', ysl : 8 :H = '余数量' NOEDIT NODELETE IN mxzye
  94.            ELSE
  95.                 BROW FIELDS rq : 5 :H = '日期', zy : 20 :H = '摘   要', jje : 14 :H = '借   方', dje : 14 :H = '贷   方', ye : 14 :H = '余   额', pzh : 4 :H = '证号' NOEDIT NODELETE IN mxzye
  96.            ENDI
  97.       ELSE
  98.            ?? CHR(7)
  99.            SET COLOR TO RB+/B
  100.            @ 8, 20 CLEAR TO 11, 60
  101.            @ 9, 30 SAY ' 科 目 没 有 找 到 !'
  102.            @ 10, 30 SAY ' 按任意键继续......'
  103.            x = INKEY(0)
  104.       ENDI
  105.  ENDD
  106.  USE
  107.  ERAS a%.dbf
  108.  DEAC WINDOW mxzye
  109.  SET COLOR TO W+/N
  110.  @ 1, 1, 22, 78 BOX '鞍鞍鞍鞍鞍鞍'
  111.  ON KEY LABEL escape do Rquit
  112.  SET MOUSE OFF
  113.  RETU
  114. *