企业管理

开发平台：

VFP

PZHZ.PRG：源码内容

							 DEFI WINDOW mxzye FROM 1, 0 TO 15, 79 FOOTER '简单科目汇总  ESC 退出' COLOR N/BG,R+/RB,R+/GR,GR+/R 
 SET SYSMENU OFF
 ON KEY
 SET COLOR TO W/N
 CLOS DATABASES
 @ 10, 38 CLEAR TO 13, 64
 SET COLOR TO W+/G
 @ 9, 36 CLEAR TO 12, 62
 @ 10, 43 SAY '请输入汇总条件:'
 @ 11, 36 SAY '从         号到         号'
 pd1 = 0
 pd2 = 0
 @ 11, 38 SAY '   ' GET pd1 PICTURE '9999'
 READ
 @ 11, 52 SAY '   ' GET pd2 PICTURE '9999'
 READ
 SET COLOR TO N/W
 @ 9, 36 CLEAR TO 13, 64
 SET COLOR TO GR+/N
 @ 10, 36 SAY '简单科目汇总, 请稍候......'
 SET COLOR TO
 USE pzk
 SORT ON kmdm TO B%.dbf
 USE B%
 TOTA ON kmdm TO A%.dbf FOR pzh<=pd2 .AND. pzh>=pd1 FIELDS jje, dje
 USE A%
 ACTI WINDOW mxzye
 BROW FIELDS kmdm :H = '科目代码', zzkm :H = '总帐科目', mxkm :H = '明细科目', jje :H = '借金额', dje :H = '贷金额' WIDTH 16 NOEDIT IN mxzye
 USE
 ERAS A%.dbf
 USE B%
 SET COLOR TO GR+/N
 @ 10, 36 SAY '按一级科目汇总,请稍候 ... ...'
 SET COLOR TO N/BG, R+/RB, R+/GR,
 REPL kmdm WITH SUBSTR(kmdm, 1, 3) ALL
 TOTA ON kmdm TO A%.dbf FOR pzh>=pd1 .AND. pzh<=pd2 FIELDS jje, dje
 USE A%.dbf
 SUM ALL FOR pzh>=pd1 .AND. pzh<=pd2 jje TO a1
 SUM ALL FOR pzh>=pd1 .AND. pzh<=pd2 dje TO a2
 APPE BLANK
 REPL zzkm WITH '合    计'
 REPL jje WITH a1
 REPL dje WITH a2
 ON KEY LABEL F9 do pzhzdy
 GOTO TOP
 DEFI WINDOW mxzye FROM 1, 0 TO 15, 75 FOOTER '按一级科目汇总  ESC 退出  按F9打印' COLOR N/BG,R+/RB,R+/GR,GR+/R 
 ACTI WINDOW mxzye
 BROW FIELDS kmdm :H = '科目代码', zzkm :H = '总帐科目', jje :H = '借金额', dje :H = '贷金额' NOEDIT IN mxzye
 USE
 ERAS A%.dbf
 ERAS B%.dbf
 DEAC WINDOW mxzye
 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财务管理系统(Ver2.5)  黄朝生研制  版权所有  南宁市建政路51号  邮编:530023 ' COLOR R/W 
 ON KEY
 ON KEY LABEL Escape do Rquit
 SET CLOCK TO 23, 69
 RETU
*

						