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

 SET COLOR TO N/BG 
 CLOS DATABASES 
 USE 
 jsq = 12 
 SET COLOR TO 
 @ 12, 22 CLEAR TO 16, 65 
 SET COLOR TO W+/BG 
 @ 10, 20 CLEAR TO 14, 60 
 @ 11, 30 SAY '正在汇总财务变动表!' 
 @ 12, 35 SAY '请稍候......' 
 RUN copy \cw\bdb.dbf bdbhz.dbf>nul 
 RUN copy \cw\1998\m1\bdb.dbf bdb1.dbf >nul 
 RUN copy \cw\1998\m2\bdb.dbf bdb2.dbf >nul 
 RUN copy \cw\1998\m3\bdb.dbf bdb3.dbf >nul 
 RUN copy \cw\1998\m4\bdb.dbf bdb4.dbf >nul 
 RUN copy \cw\1998\m5\bdb.dbf bdb5.dbf >nul 
 RUN copy \cw\1998\m6\bdb.dbf bdb6.dbf >nul 
 RUN copy \cw\1998\m7\bdb.dbf bdb7.dbf >nul 
 RUN copy \cw\1998\m8\bdb.dbf bdb8.dbf >nul 
 RUN copy \cw\1998\m9\bdb.dbf bdb9.dbf >nul 
 RUN copy \cw\1998\m10\bdb.dbf bdb10.dbf >nul 
 RUN copy \cw\1998\m11\bdb.dbf bdb11.dbf >nul 
 RUN copy \cw\1998\m12\bdb.dbf bdb12.dbf >nul 
 pd1 = 1 
 DO WHILE pd1<=jsq 
      IF pd1>9 
           pd = STR(pd1, 2, 1) 
      ELSE 
           pd = STR(pd1, 1, 1) 
      ENDI 
      pd = 'bdb'+pd 
      IF FILE(pd+'.dbf') 
           pd1 = pd1+1 
      ELSE 
           CLEA 
           @ 10, 30 SAY pd+'表不存在!' 
           i = INKEY(0) 
           RETU 
      ENDI 
 ENDD 
 SELE 1 
 USE bdbhz 
 REPL je1 WITH 0, je2 WITH 0 ALL 
 pd1 = 1 
 DO WHILE pd1<=jsq 
      IF pd1>9 
           pd = STR(pd1, 2, 1) 
      ELSE 
           pd = STR(pd1, 1, 1) 
      ENDI 
      SELE 2 
      pd = 'bdb'+pd 
      use &pd  
      SELE 1 
      upda on a from &pd repl je1 with je1+&pd->je1 
      upda on a from &pd repl je2 with je2+&pd->je2 
      pd1 = pd1+1 
 ENDD 
 @ 10, 20 CLEAR TO 14, 60 
 ?? CHR(7) 
 @ 12, 30 SAY '汇总完毕,按任键返回!' 
 i = INKEY(0) 
 CLOS DATABASES 
 SET COLOR TO W+/B 
 @ 0, 0, 23, 79 BOX '北北北北' 
 SET COLOR TO W+/N 
 @ 1, 1, 22, 78 BOX '鞍鞍鞍鞍鞍' 
 @ 23, 28 SAY '当前数据的月份:'+STR(ryear, 4, 0)+'年'+STR(ryf, 2, 0)+'月' COLOR B+/BG  
 @ 24, 0 SAY ' JQ001汇总报表系统(Ver1.0)  黄朝生研制  版权所有  南宁市建政路51号  邮编:530023 ' COLOR R/W  
 SET CLOCK TO 23, 69 
 ON KEY LABEL Escape do Rquit 
 RETU 
*