hysy.prg

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

fh=val(substr(usernum,2,1))
do case
case fh=5
sele 小型会议室使用表
for i=0 to int(hysj/4)
insert into 小型会议室使用表 values(会议室安排.text3.value,usernum,khdate)
endfor
case fh=6
for i=0 to int(hysj/4)
sele 大型会议室使用表
insert into 大型会议室使用表 values(会议室安排.text3.value,usernum,khdate)
endfor
endcase