www.pudn.com > jq_caiwu.ARJ > MXZYE.PRG

 SET MOUSE ON 
 HIDE POPUP pop3 
 ON KEY 
 CLOS DATABASES 
 SELE 2 
 USE kmk 
 SELE 1 
 @ 12, 30 SAY '正在进行数据整理......' 
 SET PATH TO C:\ 
 RUN copy \cw\pzk-1.dbf A%.dbf>nul 
 USE a% 
 IF FILE('..\m1\mxk.dbf') 
      APPE FROM ..\m1\mxk.dbf 
 ENDI 
 IF FILE('..\m2\mxk.dbf') 
      APPE FROM ..\m2\mxk.dbf FOR zy<>'期初余额' 
 ENDI 
 IF FILE('..\m3\mxk.dbf') 
      APPE FROM ..\m3\mxk.dbf FOR zy<>'期初余额' 
 ENDI 
 IF FILE('..\m4\mxk.dbf') 
      APPE FROM ..\m4\mxk.dbf FOR zy<>'期初余额' 
 ENDI 
 IF FILE('..\m5\mxk.dbf') 
      APPE FROM ..\m5\mxk.dbf FOR zy<>'期初余额' 
 ENDI 
 IF FILE('..\m6\mxk.dbf') 
      APPE FROM ..\m6\mxk.dbf FOR zy<>'期初余额' 
 ENDI 
 IF FILE('..\m7\mxk.dbf') 
      APPE FROM ..\m7\mxk.dbf FOR zy<>'期初余额' 
 ENDI 
 IF FILE('..\m8\mxk.dbf') 
      APPE FROM ..\m8\mxk.dbf FOR zy<>'期初余额' 
 ENDI 
 IF FILE('..\m9\mxk.dbf') 
      APPE FROM ..\m9\mxk.dbf FOR zy<>'期初余额' 
 ENDI 
 IF FILE('..\m10\mxk.dbf') 
      APPE FROM ..\m10\mxk.dbf FOR zy<>'期初余额' 
 ENDI 
 IF FILE('..\m11\mxk.dbf') 
      APPE FROM ..\m11\mxk.dbf FOR zy<>'期初余额' 
 ENDI 
 IF FILE('..\m12\mxk.dbf') 
      APPE FROM ..\m12\mxk.dbf FOR zy<>'期初余额' 
 ENDI 
 SET PATH TO \cw 
 DO WHILE .T. 
      SET COLOR TO N/W 
      SET COLOR TO W/N 
      @ 9, 16 CLEAR TO 15, 70 
      SET COLOR TO N/G 
      @ 8, 14 CLEAR TO 14, 67 
      SET COLOR TO GR+/G 
      @ 9, 25 SAY '请输入所需查询的明细帐科目号码!' 
      @ 13, 30 SAY "输入'999999999999' 退出查询!" 
      pd1 = '            ' 
      @ 11, 35 GET pd1 
      READ 
      IF pd1='999999999999' 
           EXIT 
      ENDI 
      SET COLOR TO N/BG, W+/GR 
      USE A% 
      pd1 = TRIM(pd1) 
      RECA ALL 
      SET FILTER TO TRIM(pd1)==TRIM(kmdm) 
      pd = 0 
      GOTO TOP 
      DO WHILE  .NOT. EOF() 
           IF zy='期末及累计' 
                IF pd=1 
                     DELE 
                ENDI 
                pd = 1 
           ELSE 
                pd = 0 
           ENDI 
           SKIP 
      ENDD 
      GOTO TOP 
      SELE 1 
      LOCA ALL FOR pd1$kmdm 
      GOTO TOP 
      x = 1 
      IF  .NOT. EOF() 
           SET COLOR TO GR+/BG 
           @ 12, 30 SAY '正在处理数据,请稍候 ... ... ' 
           DEFI WINDOW mxzye FROM 1, 0 TO 22, 79 TITLE ' '+zzkm+'-----'+mxkm FOOTER ' 明细帐查询:  |←右移  →|左移  ESC 退出 ' COLOR N/BG,W+/GR,R/GR,GR+/G  
           ACTI WINDOW mxzye 
           IF slbz='2' 
                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 
           ELSE 
                BROW FIELDS rq : 5 :H = '日期', zy : 20 :H = '摘   要', jje : 14 :H = '借   方', dje : 14 :H = '贷   方', ye : 14 :H = '余   额', pzh : 4 :H = '证号' NOEDIT NODELETE IN mxzye 
           ENDI 
      ELSE 
           ?? CHR(7) 
           SET COLOR TO RB+/B 
           @ 8, 20 CLEAR TO 11, 60 
           @ 9, 30 SAY ' 科 目 没 有 找 到 !' 
           @ 10, 30 SAY ' 按任意键继续......' 
           x = INKEY(0) 
      ENDI 
 ENDD 
 USE 
 ERAS a%.dbf 
 DEAC WINDOW mxzye 
 SET COLOR TO W+/N 
 @ 1, 1, 22, 78 BOX '鞍鞍鞍鞍鞍鞍' 
 ON KEY LABEL escape do Rquit 
 SET MOUSE OFF 
 RETU 
*