行业应用

开发平台：

VFP

ZZSBJS.PRG：源码内容

							x=0
x0=0
14
x=bys
x0=ljs
7
x=x-bys
x0=x0+ljs
20
repl bys with x
repl ljs with x0
x=0
x0=0
19
x=ljs
20
x=ljs+x
22
x=x-ljs
21
repl ljs with x
3
x=0
do whil recn()<=9
x=x+ljs
skip
enddo
10
x0=0
do whil recn()<=16
x0=x0+ljs
skip
enddo
17
if ljs-(x-x0)<>0
  ?? chr(7)
  set colo to 6+/2
  @ 4,6 clea to 10,35
  set colo to 6+/2
  @ 6,8 say '数据不平!即1+2+3+4+5+6+7'
  @ 7,8 say '-8-9-10-11-12-13-14行不'
  @ 8,8 say '等于15行.请用手工填表.'
  @ 9,8 say '请区盐业公司财务部联系!'
  i=inkey(0)
endif
if cd1=1
  go 21
  repl bys with ljs
endif
clos all
retu

						