zfbg.prg

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

*fh----新房号
*oldfh----旧房号

***************************************************************************
*清理旧房间

set dele on
set safe off
oldfh=val(substr(客房变更1.text6.value,2,1))
do case
case oldfh=1
select 豪华套房表
dele all for allt(客房变更1.text6.value)=allt(房号) .and. allt(客房变更1.text3.value)=allt(客户号)
*pack

case oldfh=2
select 豪华标准间表
dele all for allt(客房变更1.text6.value)=allt(房号) .and. allt(客房变更1.text3.value)=allt(客户号)
*pack

case oldfh=3
select 普通标准间表
dele all for allt(客房变更1.text6.value)=allt(房号) .and. allt(客房变更1.text3.value)=allt(客户号)
*pack

case oldfh=4
select 普通四人间表
go top
do while not eof()
if allt(房号)=客房变更1.text6.value .and. 已订日期=客房变更1.text5.value
replace 当天人数 with 当天人数-1
endif
enddo
endcase

****************************************************************************
*安排新房间

fh=val(substr(客房变更1.text1.value,2,1))
do case
case fh=1
select 豪华套房表
for i=0 to 客房变更1.text4.value-1
insert into 豪华套房表 values(客房变更1.text3.value,客房变更1.text1.value,客房变更1.text5.value+i)
endfor

case fh=2
select 豪华标准间表
for i=0 to 客房变更1.text4.value-1
insert into 豪华标准间表 values(客房变更1.text3.value,客房变更1.text1.value,客房变更1.text5.value+i)
endfor

case fh=3
select 普通标准间表
for i=0 to 客房变更1.text4.value-1
insert into 普通标准间表 values(客房变更1.text3.value,客房变更1.text1.value,客房变更1.text5.value+i)
endfor

case fh=4
select 普通四人间表
loca for allt(房号)=客房变更1.text1.value .and. 已订日期=客房变更1.text5.value
if found()
replace 当天人数 with 当天人数+1
else
for i=0 to 客房变更1.text4.value-1
insert into 普通四人间表 values(客房变更1.text1.value,客房变更1.text5.value+i,1)
endfor
endif
endcase