jsfy.prg

宾馆管理系统,实现客房管理功能。。后台管理及查询结账

*jsfy.prg-----------计算费用
*********************************************************************************
publ zj,zts,ts,hyf,zsf,hj(1)
hj=0
zj=0
zts=0
ts=0
hyf=0
zsf=0

*********************************************************************************
if khh==""
messagebox("客户号不能为空！",0+48,"提示")
else
*hj-------商品消费
set safe off
select 餐馆商品表.商品名称,餐馆商品表.单价,客户商品消费表.数量,客户商品消费表.合计,客户商品消费表.购买日期 from 餐馆商品表,客户商品消费表;
where 餐馆商品表.商品代号=客户商品消费表.商品代号 and allt(客户商品消费表.客户号)=allt(khh) into dbf 客户消费表
select sum(客户消费表.合计) from 客户消费表 into array hj

*zsf------住宿费
sele 客户住房表
go top
do while not eof()
if allt(客户号)=khh
ts=d-入住日期+1
zsf=zsf+ts*每天单价
zts=zts+ts
endif
skip
enddo

*hyf------会议费用
hyf=0.00
sele 客户会议表
locate for allt(客户号)=khh
if found()
hyf=客户会议表.半天单价*客户会议表.会议时间
endif

*zj-------总计
zj=hj+zsf+hyf
endif