ydfj.prg

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

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

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

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

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