行业应用

开发平台：
VFP

SYBDY.PRG：源码内容
							set colo to 6+
*b='19  年  月   日 (         )  ' 
@ 3,9 say '请输入报表日期'
set colo to
do whil .t.
@ 6,1 clea to 9,35 
@ 7,1 get bbh
read
pd='N'
set colo to 5+
@ 8,4 say '确认了吗? Y=是,其他=否' get pd
read
if pd='Y' .or. pd='y'
   exit
endif
?? chr(7)
@ 8,4 say '                          '
enddo
set colo to /w
@ 3,0 clea to 9,35
set colo to 
@ 5,8 clea to 10,35
set colo to w+/1
@ 4,5 clea to 9,33
x1=4
x2=9
y1=5
y2=31
do box-1
@ 6,9 say '正在打印损  益  表!'
@ 7,13 say '请稍候......'
do whil .t.
if sys(13)<>'READY'
?? chr(7)
set colo to 
@ 5,8 clea to 10,35
set colo to w+/1
@ 4,5 clea to 9,33
x1=4
x2=9
y1=5
y2=31
do box-1
@ 6,9 say '打印机尚未准备好!'
@ 7,9 say '准备好后按任意键......'
i=inkey(0)
if i=27
set colo to w+/n
@ 1,1,22,78 box'鞍鞍鞍鞍鞍鞍鞍'
retu
endif
else
set colo to w+/1
@ 6,8 clea to 8,30
@ 6,9 say '正在打印损  益  表!'
@ 7,13 say '请稍候......'
EXIT
endif
enddo
set print on
set cons off
set devi to print 
*set printer to syb.txt
? '    '
? '    '
? '    '
?? '`@D`'
? '                          损     益    表 '
? '    '
?? '`@A`' 
? '    '
? ' '
@ prow()+1,1 say '编制单位:'+Rdwmc
@ prow(),50 say bbh
@ prow(),100 say '会商02表 单位:元'
?? "`&0`"
? '┏━━━━━━━━━━━━━━━━━┯━┯━━━━━━━━━┯━━━━━━━━━━┯━━━━━━━━━┯━━━━━━━━━┯━━━━━┓'
? '┃         项           目          │行│   本年计划数     │    上年实际数      │  本  月   数     │   累   计   数   │按销量平均┃'
? '┠─────────────────┼─┼─────────┼──────────┼─────────┼─────────┼─────┨'
*use syb
*use sybhz
1
do whil .t.
@ prow()+1,0 say '┃'
@ prow(),2 say sm
@ prow(),36 say '│'
@ prow(),38 say h
@ prow(),40 say '│'
if jhs<>0
@ prow(),42 say jhs pict'9,999,999,999.99'
endif
@ prow(),60 say '│'
if sns<>0
@ prow(),62 say sns pict'9,999,999,999.99'
endif
@ prow(),82 say '│'
if bys<>0
@ prow(),84 say bys pict'9,999,999,999.99'
endif
@ prow(),102 say '│'
if ljs<>0
@ prow(),104 say ljs pict'9,999,999,999.99'
endif
@ prow(),122 say '│'
if pjs<>0
@ prow(),124 say pjs pict'999999.99'
endif
@ prow(),134 say '┃'
pd1=recn()
if pd1<=42
? '┠─────────────────┼─┼─────────┼──────────┼─────────┼─────────┼─────┨'
endif
skip
if eof()
exit
endif
enddo
? '┗━━━━━━━━━━━━━━━━━┷━┷━━━━━━━━━┷━━━━━━━━━━┷━━━━━━━━━┷━━━━━━━━━┷━━━━━┛'
?         ' 企业主管                       财务主管               复   核                            制    表: '+czy
? ''
set cons off
set devi to screen 
set print off
rest screen from zpm
retu

						