企业管理

开发平台：

VFP

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 cwbdb.dbf bdbhz.dbf>nul
 RUN copy cw1998m1bdb.dbf bdb1.dbf >nul
 RUN copy cw1998m2bdb.dbf bdb2.dbf >nul
 RUN copy cw1998m3bdb.dbf bdb3.dbf >nul
 RUN copy cw1998m4bdb.dbf bdb4.dbf >nul
 RUN copy cw1998m5bdb.dbf bdb5.dbf >nul
 RUN copy cw1998m6bdb.dbf bdb6.dbf >nul
 RUN copy cw1998m7bdb.dbf bdb7.dbf >nul
 RUN copy cw1998m8bdb.dbf bdb8.dbf >nul
 RUN copy cw1998m9bdb.dbf bdb9.dbf >nul
 RUN copy cw1998m10bdb.dbf bdb10.dbf >nul
 RUN copy cw1998m11bdb.dbf bdb11.dbf >nul
 RUN copy cw1998m12bdb.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
*

						