dbfhz.prg

这是一个工资管理程序

lcMsg = "正在运算,请稍候......."
WAIT WINDOW lcMsg NOCLEAR NOWAIT AT SROW()/2, (SCOLS()-LEN(lcMsg))/2
*过程
Clos data
STOR '    ' to bz,z
stor '          ' to dwmc
STOR 0 to M,Q,G,g1,d1,d2,k
STOR ' ' TO P
USE dbhzk
ZAP
SELE A
USE dbhzk
SELE b
USE dbbt
INDE on dwbm to dbdwh
GO TOP
DO while .not.eof()
	STOR dwbm to dh
	DO while substr(dwbm,1,6)=substr(dh,1,6)
		d1=d1+cqbc
		d2=d2+btje
		IF k=0
			stor dw to dwmc
			STOR dwbm to dww
			STOR BZ1 to z
		ENDIF
		k=k+1
		Skip
	ENDDO
	SELE A
	APPE from dbhz0
	REPL dwbm with substr(dh,1,6)
	REPL dwbm with dww
	repl dw with dwmc
	REPL btrs with k
	REPL cqbc with d1
	REPL btje with d2
	REPL bz with z
	STOR 0 to d1,d2,k
	Skip
	SELE b
ENDDO
USE
Dele file dbdwh.idx
Clos data
WAIT clear
=messagebox("倒班饭汇总完毕！",64,"提示窗口")