English
SCBB.PRG
资源名称：jq_caiwu.ARJ [点击查看]
上传用户：hbmaozhan
上传日期：2013-01-31
资源大小：1007k
文件大小：5k
源码类别：
企业管理
开发平台：
VFP
- 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
- SET PATH TO C:
- DO CASE
- CASE pd=1 .OR. pd=0
- SET COLOR TO N/W
- @ 4, 40 CLEAR TO 15, 60
- SET PATH TO cw
- EXIT
- CASE pd=2
- 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
- ?? CHR(7)
- pd = 'F'
- @ 6, 9 SAY '真的删除资产负债表吗?'
- @ 7, 9 SAY 'Y=是,其他=否' GET pd PICTURE 'x'
- READ
- IF pd='Y' .OR. pd='y'
- ERAS fzb.dbf
- @ 6, 9 CLEAR TO 8, 30
- @ 6, 9 SAY '资产负债表已被删除!'
- @ 7, 9 SAY '按任意键继续......'
- i = INKEY(0)
- ENDI
- SET COLOR TO N/W
- @ 4, 5 CLEAR TO 10, 35
- CASE pd=3
- 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
- ?? CHR(7)
- pd = 'F'
- @ 6, 9 SAY '真的删除损 益 表吗?'
- @ 7, 9 SAY 'Y=是,其他=否' GET pd PICTURE 'x'
- READ
- IF pd='Y' .OR. pd='y'
- ERAS syb.dbf
- @ 6, 8 CLEAR TO 8, 30
- @ 6, 9 SAY '损 益 表已被删除!'
- @ 7, 9 SAY '按任意键继续......'
- i = INKEY(0)
- ENDI
- SET COLOR TO N/W
- @ 4, 5 CLEAR TO 11, 35
- CASE pd=4
- 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
- ?? CHR(7)
- pd = 'F'
- @ 6, 9 SAY '真的删除补充资料表吗?'
- @ 7, 9 SAY 'Y=是,其他=否' GET pd PICTURE 'x'
- READ
- IF pd='Y' .OR. pd='y'
- ERAS bcmxb.dbf
- @ 6, 8 CLEAR TO 8, 30
- @ 6, 9 SAY '补充资料表已被删除!'
- @ 7, 9 SAY '按任意键继续......'
- i = INKEY(0)
- ENDI
- SET COLOR TO N/W
- @ 4, 5 CLEAR TO 10, 35
- CASE pd=5
- SET COLOR TO
- @ 5, 8 CLEAR TO 10, 35
- SET COLOR TO W+/B
- @ 4, 5 CLEAR TO 9, 30
- x1 = 4
- x2 = 9
- y1 = 5
- y2 = 31
- DO box-1
- ?? CHR(7)
- pd = 'F'
- @ 6, 9 SAY '真的删除应交款项表吗?'
- @ 7, 9 SAY 'Y=是,其他=否' GET pd PICTURE 'x'
- READ
- IF pd='Y' .OR. pd='y'
- ERAS yjkb.dbf
- @ 6, 8 CLEAR TO 8, 30
- @ 6, 9 SAY '应交款项表已被删除!'
- @ 7, 9 SAY '按任意键继续......'
- i = INKEY(0)
- ENDI
- SET COLOR TO N/W
- @ 4, 5 CLEAR TO 10, 35
- CASE pd=6
- SET COLOR TO
- @ 5, 8 CLEAR TO 10, 35
- SET COLOR TO W+/B
- @ 4, 5 CLEAR TO 9, 30
- x1 = 4
- x2 = 9
- y1 = 5
- y2 = 31
- DO box-1
- ?? CHR(7)
- pd = 'F'
- @ 6, 9 SAY '真的删除增值税报表吗?'
- @ 7, 9 SAY 'Y=是,其他=否' GET pd PICTURE 'x'
- READ
- IF pd='Y' .OR. pd='y'
- ERAS zzsb.dbf
- @ 5, 8 CLEAR TO 8, 30
- @ 6, 9 SAY '增值税报表已被删除!'
- @ 7, 9 SAY '按任意键继续......'
- i = INKEY(0)
- ENDI
- SET COLOR TO N/W
- @ 4, 5 CLEAR TO 10, 35
- ENDC
- ENDD
- RETU
- *
