zf.prg

来自「宾馆管理系统,实现客房管理功能。。后台管理及查询结账」· PRG 代码 · 共 33 行

*zf.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