VFP程序设计,银行日记帐系统

来源：百度知道 编辑：UC知道 时间：2024/05/16 17:43:37
按日期分清收入和支出,并合计出总数及余额.

说的太简单了，表的记录和字段都没有。
按一般思路：
MQCYE=AAA &&期初余额，这个数字你自已取，如初始没有余额为0
GO TOP
MQCRQ=RQ-1 &&最初日期前一天,字段RQ:日期
DO WHILE .T.
MQCRQ=MQCRQ+1
locate for rq>=mqcrq
if not found() &&如超过最后一天，退出循环
exit
endif
store 0 to msr,mzc
SCAN FOR RQ=MQCRQ
msr=msr+srje
mzc=mzc+zcje
ENDSCAN
MQCYE=MQCYE+MSR-MZC
? dtoc(mqcrq)+'收入'+str(msr,9,2)+'支出'+STR(mzc,9,2)+;
'余额'+str(mqcye,9,2)
ENDDO