hzys.prg

这是一个工资管理程序

lcMsg = "正在运算,请稍候......."
WAIT WINDOW lcMsg NOCLEAR NOWAIT AT SROW()/2, (SCOLS()-LEN(lcMsg))/2
*过程
STOR 0 to p1,p2,p3,p4,p5
STOR 0 to b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12,b13,b14,b15,b16,b17,b18,b19,b20,b21,b22,b23,b24,b25,b26,k
stor '          ' to dwmc
USE gzda
INDE on dwbm to dwh
USE hzk
ZAP
SELE a
USE hzk
SELE b
USE gzda inde dwh
GO top
DO while .not.eof()
	STOR dwbm to dh
	DO while substr(dwbm,1,6)=substr(dh,1,6)
		p1=p1+JBGZ
		p2=p2+JNGZ
		p3=p3+GWGZ
		p4=p4+GLGZ
		b1=b1+JSGZ
		b2=b2+SCJ
		b3=b3+DXJ
		b4=b4+JBJD
		b5=b5+SGJT
		b6=b6+YBJT
		b7=b7+JHJJT
		b8=b8+BZRJT
		b9=b9+JCJ
		b10=b10+BLGZ
		b11=b11+FGBT
		b12=b12+BTGZ
		b13=b13+YFGZ
		b14=b14+YLBX
		b15=b15+SYBX
		b16=b16+ZFJJ
		b17=b17+DF
		b18=b18+SDS
		b19=b19+SFGZ
		IF k=0
			STOR dwbm to dww
			stor dw to dwmc
			STOR BZ1 to ZFJJ
		ENDIF
		k=k+1
		Skip
	ENDDO
	SELE a
	APPE from hzk0
	REPL dwbm with substr(dh,1,6)
	REPL dwbm with dww
	REPL dw with dwmc
	REPL KZRS with k
	REPL JBGZ with p1
	REPL JNGZ with p2
	REPL GWGZ with p3
	REPL GLGZ with p4
	REPL JSGZ with b1
	REPL SCJ with b2
	REPL DXJ with b3
	REPL JBJD with b4
	REPL SGJT with b5
	REPL YBJT with b6
	REPL JHJJT with b7
	REPL BZRJT with b8
	REPL JCJ with b9
	REPL BLGZ with b10
	REPL FGBT with b11
	REPL BTGZ with b12
	REPL YFGZ with b13
	REPL YLBX with b14
	REPL SYBX with b15
	REPL ZFJJ with b16
	REPL DF with b17
	REPL SDS with b18
	REPL SFGZ with b19
	REPL BZ with ZFJJ
	STOR 0 to b1,b2,b3,b4,b5,b6,b7,b8,b9,b10,b11,b12,b13,b14;
		,b15,b16,b17,b18,b19,k
	STOR 0 to p1,p2,p3,p4
	Skip
	SELE b
ENDDO
USE
Clos data
WAIT clear