企业管理

开发平台：
VFP

JQBB.PRG：源码内容
							 SET PATH TO C:
 IF  .NOT. FILE('pzk.dbf') .OR.  .NOT. FILE('mxk.dbf') .OR.  .NOT. FILE('zzk.dbf')
      ?? CHR(7)
      SET COLOR TO
      @ 8, 22 CLEAR TO 11, 62
      SET COLOR TO RB+/B
      @ 7, 20 CLEAR TO 10, 60
      @ 8, 29 SAY '当前月工作区没有数据!'
      i = INKEY(0)
      SET PATH TO cw
      RETU
 ENDI
 SET PATH TO cw
 DO WHILE .T.
      pd = 1
      SET COLOR TO
      @ 3, 40 CLEAR TO 13, 58
      SET COLOR TO N/BG
      @ 2, 37 CLEAR TO 11, 52
      SET COLOR TO W/BG
      x1 = 2
      x2 = 11
      y1 = 37
      y2 = 53
      DO box-1
      SET COLOR TO W/B, W+/R
      @ 3, 40 PROMPT '返        回'
      @ 4, 40 PROMPT '报表自动生成'
      @ 5, 40 PROMPT '报表打印输出'
      @ 6, 40 PROMPT '系统报表查询'
      @ 7, 40 PROMPT '删除无效报表'
      MENU TO pd
      SET COLOR TO
      DO CASE
           CASE pd=1 .OR. pd=0
                EXIT
           CASE pd=2
                DO WHILE .T.
                     SET COLOR TO
                     @ 5, 42 CLEAR TO 15, 60
                     SET COLOR TO W/G
                     @ 4, 40 CLEAR TO 14, 58
                     x1 = 4
                     x2 = 14
                     y1 = 42
                     y2 = 56
                     DO box-1
                     pd = 1
                     SET COLOR TO GR+/G
                     @ 5, 45 SAY '报表生成器'
                     SET COLOR TO W/B, W+/R
                     @ 7, 45 PROMPT '返      回'
                     @ 8, 45 PROMPT '资产负债表'
                     @ 9, 45 PROMPT '损  益  表'
                     @ 10, 45 PROMPT '补充资料表'
                     @ 11, 45 PROMPT '应交款项表'
                     @ 12, 45 PROMPT '增值税报表'
                     MENU TO pd
                     DO CASE
                          CASE pd=1 .OR. pd=0
                               SET COLOR TO N/W
                               @ 5, 40 CLEAR TO 15, 60
                               EXIT
                          CASE pd=2
                               SET PATH TO C:
                               IF FILE('fzb.dbf')
                                    ?? CHR(7)
                                    SET COLOR TO
                                    @ 5, 8 CLEAR TO 10, 35
                                    SET COLOR TO W+/B
                                    @ 4, 5 CLEAR TO 9, 33
                                    x1 = 4
                                    x2 = 9
                                    y1 = 5
                                    y2 = 31
                                    DO box-1
                                    @ 6, 9 SAY '资产负债表已经存在!'
                                    @ 7, 9 SAY '按任意键继续......'
                                    i = INKEY(0)
                                    SET PATH TO cw
                               ELSE
                                    SET PATH TO cw   
                                    SET COLOR TO
                                    @ 5, 8 CLEAR TO 10, 35
                                    SET COLOR TO W+/B
                                    @ 4, 5 CLEAR TO 9, 33
                                    x1 = 4
                                    x2 = 9
                                    y1 = 5
                                    y2 = 31
                                    DO box-1
                                    @ 6, 9 SAY '正在生成资产负债表!'
                                    @ 7, 13 SAY '请稍候......'
                                    RUN copy cwfzb.dbf>nul
                                    DO fzb
                               ENDI
                          CASE pd=3
                               SET PATH TO C:
                               IF FILE('syb.dbf')
                                    ?? CHR(7)
                                    SET COLOR TO
                                    @ 5, 8 CLEAR TO 10, 35
                                    SET COLOR TO W+/B
                                    @ 4, 5 CLEAR TO 9, 33
                                    x1 = 4
                                    x2 = 9
                                    y1 = 5
                                    y2 = 31
                                    DO box-1
                                    @ 6, 9 SAY '损  益  表已经存在!'
                                    @ 7, 9 SAY '按任意键继续......'
                                    i = INKEY(0)
                                    SET PATH TO cw
                               ELSE
                                    SET PATH TO cw
                                    SET COLOR TO
                                    @ 5, 8 CLEAR TO 10, 35
                                    SET COLOR TO W+/B
                                    @ 4, 5 CLEAR TO 9, 33
                                    x1 = 4
                                    x2 = 9
                                    y1 = 5
                                    y2 = 31
                                    DO box-1
                                    @ 6, 9 SAY '正在生成损  益  表!'
                                    @ 7, 13 SAY '请稍候......'
                                    RUN copy cwsyb.dbf>nul
                                    DO syb
                               ENDI
                          CASE pd=4
                               SET PATH TO C:
                               IF FILE('bcmxb.dbf')
                                    ?? CHR(7)
                                    SET COLOR TO
                                    @ 5, 8 CLEAR TO 10, 35
                                    SET COLOR TO W+/B
                                    @ 4, 5 CLEAR TO 9, 33
                                    x1 = 4
                                    x2 = 9
                                    y1 = 5
                                    y2 = 31
                                    DO box-1
                                    @ 6, 9 SAY '补充资料表已经存在!'
                                    @ 7, 9 SAY '按任意键继续......'
                                    i = INKEY(0)
                                    SET PATH TO cw
                               ELSE
                                    SET PATH TO cw
                                    SET COLOR TO
                                    @ 5, 8 CLEAR TO 10, 35
                                    SET COLOR TO W+/B
                                    @ 4, 5 CLEAR TO 9, 33
                                    x1 = 4
                                    x2 = 9
                                    y1 = 5
                                    y2 = 31
                                    DO box-1
                                    @ 6, 9 SAY '正在生成补充资料表!'
                                    @ 7, 13 SAY '请稍候......'
                                    RUN copy cwbcmxb.dbf>nul
                                    DO bcmxb
                               ENDI
                          CASE pd=5
                               SET PATH TO C:
                               IF FILE('yjkb.dbf')
                                    ?? CHR(7)
                                    SET COLOR TO
                                    @ 5, 8 CLEAR TO 10, 35
                                    SET COLOR TO W+/B
                                    @ 4, 5 CLEAR TO 9, 33
                                    x1 = 4
                                    x2 = 9
                                    y1 = 5
                                    y2 = 31
                                    DO box-1
                                    @ 6, 9 SAY '应交款项表已经存在!'
                                    @ 7, 9 SAY '按任意键继续......'
                                    i = INKEY(0)
                                    SET PATH TO cw
                               ELSE
                                    SET PATH TO cw
                                    SET COLOR TO
                                    @ 5, 8 CLEAR TO 10, 35
                                    SET COLOR TO W+/B
                                    @ 4, 5 CLEAR TO 9, 33
                                    x1 = 4
                                    x2 = 9
                                    y1 = 5
                                    y2 = 31
                                    DO box-1
                                    @ 6, 9 SAY '正在生成应交款项表!'
                                    @ 7, 13 SAY '请稍候......'
                                    RUN copy cwyjkb.dbf>nul
                                    DO yjkb
                               ENDI
                          CASE pd=6
                               SET PATH TO C:
                               IF FILE('zzsb.dbf')
                                    ?? CHR(7)
                                    SET COLOR TO
                                    @ 5, 8 CLEAR TO 10, 35
                                    SET COLOR TO W+/B
                                    @ 4, 5 CLEAR TO 9, 33
                                    x1 = 4
                                    x2 = 9
                                    y1 = 5
                                    y2 = 31
                                    DO box-1
                                    @ 6, 9 SAY '增值税报表已经存在!'
                                    @ 7, 9 SAY '按任意键继续......'
                                    i = INKEY(0)
                                    SET PATH TO cw
                               ELSE
                                    SET PATH TO cw
                                    SET COLOR TO
                                    @ 5, 8 CLEAR TO 10, 35
                                    SET COLOR TO W+/B
                                    @ 4, 5 CLEAR TO 9, 33
                                    x1 = 4
                                    x2 = 9
                                    y1 = 5
                                    y2 = 31
                                    DO box-1
                                    @ 6, 9 SAY '正在生成增值税报表!'
                                    @ 7, 13 SAY '请稍候......'
                                    RUN copy cwzzsb.dbf>nul
                                    DO zzsb
                               ENDI
                     ENDC
                     SET COLOR TO N/W
                     @ 3, 3 CLEAR TO 10, 35
                ENDD
           CASE pd=3
                DO WHILE .T.
                     SET COLOR TO
                     @ 5, 42 CLEAR TO 15, 60
                     SET COLOR TO W/G
                     @ 4, 40 CLEAR TO 14, 58
                     x1 = 4
                     x2 = 14
                     y1 = 42
                     y2 = 56
                     DO box-1
                     pd = 1
                     SET COLOR TO GR+/G
                     @ 5, 46 SAY '报表打印'
                     SET COLOR TO W/B, W+/R
                     @ 7, 45 PROMPT '返      回'
                     @ 8, 45 PROMPT '资产负债表'
                     @ 9, 45 PROMPT '损  益  表'
                     @ 10, 45 PROMPT '补充资料表'
                     @ 11, 45 PROMPT '应交款项表'
                     MENU TO pd
                     DO CASE
                          CASE pd=1 .OR. pd=0
                               SET COLOR TO N/W
                               @ 5, 40 CLEAR TO 15, 60
                               EXIT
                          CASE pd=2
                               SET PATH TO C:
                               IF  .NOT. FILE('fzb.dbf')
                                    ?? CHR(7)
                                    SET COLOR TO
                                    @ 5, 8 CLEAR TO 10, 35
                                    SET COLOR TO W+/B
                                    @ 4, 5 CLEAR TO 9, 33
                                    x1 = 4
                                    x2 = 9
                                    y1 = 5
                                    y2 = 31
                                    DO box-1
                                    @ 6, 9 SAY '资产负债表不存在!'
                                    @ 7, 9 SAY '按任意键继续......'
                                    i = INKEY(0)
                                    SET PATH TO cw
                                    SET COLOR TO N/W
                                    @ 3, 3 CLEAR TO 10, 35
                               ELSE
                                    SET PATH TO cw
                                    USE fzb
                                    DO fzbdy
                                    SET COLOR TO N/W
                                    @ 3, 3 CLEAR TO 10, 35
                               ENDI
                          CASE pd=3
                               SET PATH TO C:
                               IF  .NOT. FILE('syb.dbf')
                                    ?? CHR(7)
                                    SET COLOR TO
                                    @ 5, 8 CLEAR TO 10, 35
                                    SET COLOR TO W+/B
                                    @ 4, 5 CLEAR TO 9, 33
                                    x1 = 4
                                    x2 = 9
                                    y1 = 5
                                    y2 = 31
                                    DO box-1
                                    @ 6, 9 SAY '损  益  表不存在!'
                                    @ 7, 9 SAY '按任意键继续......'
                                    i = INKEY(0)
                                    SET PATH TO cw
                                    SET COLOR TO N/W
                                    @ 3, 3 CLEAR TO 10, 35
                               ELSE
                                    SET PATH TO cw
                                    USE syb
                                    DO sybdy
                                    SET COLOR TO N/W
                                    @ 3, 3 CLEAR TO 10, 35
                               ENDI
                          CASE pd=4
                               SET PATH TO C:
                               IF  .NOT. FILE('bcmxb.dbf')
                                    ?? CHR(7)
                                    SET COLOR TO
                                    @ 5, 8 CLEAR TO 10, 35
                                    SET COLOR TO W+/B
                                    @ 4, 5 CLEAR TO 9, 33
                                    x1 = 4
                                    x2 = 9
                                    y1 = 5
                                    y2 = 31
                                    DO box-1
                                    @ 6, 9 SAY '补充资料表不存在!'
                                    @ 7, 9 SAY '按任意键继续......'
                                    i = INKEY(0)
                                    SET PATH TO cw
                                    SET COLOR TO N/W
                                    @ 3, 3 CLEAR TO 10, 35
                               ELSE
                                    SET PATH TO cw
                                    USE bcmxb
                                    DO bcmxbdy
                                    SET COLOR TO N/W
                                    @ 3, 3 CLEAR TO 10, 35
                               ENDI
                          CASE pd=5
                               SET PATH TO C:
                               IF  .NOT. FILE('yjkb.dbf') .OR.  .NOT. FILE('zzsb.dbf')
                                    ?? CHR(7)
                                    SET COLOR TO
                                    @ 5, 8 CLEAR TO 10, 35
                                    SET COLOR TO W+/B
                                    @ 4, 5 CLEAR TO 9, 33
                                    x1 = 4
                                    x2 = 9
                                    y1 = 5
                                    y2 = 31
                                    DO box-1
                                    @ 6, 7 SAY '应交款或增值税表不存在!'
                                    @ 7, 9 SAY '按任意键继续......'
                                    i = INKEY(0)
                                    SET PATH TO cw
                                    SET COLOR TO N/W
                                    @ 3, 3 CLEAR TO 10, 35
                               ELSE
                                    SET PATH TO cw
                                    wj1 = 'yjkb'
                                    wj2 = 'zzsb'
                                    DO yjkbdy
                                    SET COLOR TO N/W
                                    @ 3, 3 CLEAR TO 10, 35
                               ENDI
                     ENDC
                     USE
                ENDD
           CASE pd=4
                DO WHILE .T.
                     SET COLOR TO
                     @ 5, 42 CLEAR TO 15, 60
                     SET COLOR TO W/G
                     @ 4, 40 CLEAR TO 14, 58
                     x1 = 4
                     x2 = 14
                     y1 = 42
                     y2 = 56
                     DO box-1
                     pd = 1
                     SET COLOR TO GR+/G
                     @ 5, 46 SAY '报表查询'
                     SET COLOR TO W/B, W+/R
                     @ 7, 45 PROMPT '返      回'
                     @ 8, 45 PROMPT '资产负债表'
                     @ 9, 45 PROMPT '损  益  表'
                     @ 10, 45 PROMPT '补充资料表'
                     @ 11, 45 PROMPT '应交款项表'
                     @ 12, 45 PROMPT '增值税报表'
                     MENU TO pd
                     DO CASE
                          CASE pd=1
                               SET COLOR TO N/W
                               @ 4, 38 CLEAR TO 15, 60
                               EXIT
                          CASE pd=2
                               USE fzb
                               DO fzbcx
                               USE
                               DO zcd
                          CASE pd=3
                               USE syb
                               DO sybcx
                               USE
                               DO zcd
                          CASE pd=4
                               USE bcmxb
                               DO bcmxbcx
                               USE
                               DO zcd
                          CASE pd=5
                               USE yjkb
                               DO yjkbcx
                               USE
                               DO zcd
                          CASE pd=6
                               USE zzsb
                               DO zzsbcx
                               USE
                               DO zcd
                     ENDC
                     SET COLOR TO
                     @ 3, 40 CLEAR TO 13, 58
                     SET COLOR TO N/BG
                     @ 2, 37 CLEAR TO 11, 52
                     SET COLOR TO W/BG
                     x1 = 2
                     x2 = 11
                     y1 = 37
                     y2 = 53
                     DO box-1
                     SET COLOR TO W/B, W+/R
                     @ 3, 40 SAY '返        回'
                     @ 4, 40 SAY '报表自动生成'
                     @ 5, 40 SAY '报表打印输出'
                     @ 6, 40 SAY '系统报表查询'
                     @ 7, 40 SAY '删除无效报表'
                ENDD
           CASE pd=5
                DO scbb
           CASE pd=6
                DO zcd
      ENDC
 ENDD
 RETU
*

						