value=楼层
thisform.text房间类型.value=房间类型
thisform.text基本房价.value=基本房价
thisform.combo客户类型.clear
thisform.combo客户类型.additem(客户类型)
thisform.combo客户类型.value=1
thisform.text姓名.value=客户姓名
ifrmregister.性别='男'
thisform.性别.value=1
else
thisform.性别.value=2
endif
thisform.text民族.value=种族
thisform.text籍贯.value=籍贯
thisform.text出生日期.value=出生日期
thisform.text证件类别.value=证件类别
thisform.text证件号.value=证件号
thisform.edit住址.value=住址
thisform.edit工作单位.value=工作单位
thisform.text入住时间.value=入住时间
thisform.text预住天数.value=预住天数
thisform.text折扣率.value=折扣率
thisform.text付款方式.value=付款方式
thisform.text实收金额.value=实收金额
thisform.text应收金额.value=应收金额
else
messagebox('已经到数据库头!',64,'消息')
endif
command3.click:
selermregister
ifrecn()
(thisform.txt预住天数.value+thisform.txt续住天数.value) &&判断是否超时
memovertime=int((memout-memin)/3600-((thisform.txt预住天数.value+thisform.txt续住天数.value)*24))
thisform.txt超时.value=memovertime
messagebox("该"+allt(房间号)+"房客户入住超时"+allt(str(memovertime))+"小时!",0+48+0,"超时警告")
&&此处定要将memovertime内存变量(N型)转换为字符型(T)
&&而房间号本身就是字符型,所以不用变
thisform.txt超时金额.value=thisform.txt基本房价.value*ceiling(memovertime/24)
thisform.refresh
else
thisform.txt超时金额.value=0
endif
* memcday=thisform.txt预住天数.value+thisform.txt续住天数.value+ceiling((thisform.txt超时.value)/24)
memcday=ceiling(memtday)+thisform.txt续住天数.value+ceiling((thisform.txt超时.value)/24)
thisform.txt结帐天数.value=memcday
thisform.txt应收金额.value=thisform.txt基本房价.value*thisform.txt折扣率.value*memcday+thisform.txt服务费.value+thisform.txt附加费.value
ifthisform.txt实收金额.value
messagebox('实收金额不足,请补收!',64,'警告')
thisform.command1.visible=.t.
thisform.command2.visible=.f.
thisform.command5.visible=.f.
thisform.command4.enabled=.t.
thisform.command1.enabled=.t.
return
else
thisform.command1.visible=.f.
thisform.command2.visible=.t.
thisform.command5.visible=.t.
thisform.command1.enabled=.f.
thisform.command4.enabled=.f.
endif
thisform.txt应收余额.value=thisform.txt应收金额.value-thisform.txt实收金额.value
thisform.refresh
else
return
endif
thisform.closable=.f.
command2.click:
this.enabled=.f.
thisform.command1.enabled=.t.
thisform.command1.visible=.t.
thisform.command4.enabled=.t.
thisform.command5.visible=.f.
selermregister
repl退房时间withthisform.txt退房时间.value
*thisform.txt实收金额.value=thisform.txt应收金额.value
thisform.txt应收余额.value=thisform.txt应收金额.value-thisform.txt实收金额.value
ifmessagebox("打印否?",4+32+0,"打印提示")=6
docode.prg
reportform结帐明细preview
endif
thisform.list1.requery
thisform.closable=.t.
thisform.refresh
mem4=房间号
seleroom
locafor房间号=mem4
repl占用with.f.
thisform.list1.enabled=.t.
this.enabled=.f.
thisform.command1.enabled=.t.
selecheckout
deleall
command5.click:
*repl服务费with0
*repl附加费with0
*repl应收金额with0
repl应收余额with0
*repl实收金额with0
repl退房时间with{}
thisform.txt退房时间.value=""
repl超时with0
repl超时金额with0
repl结帐天数with0
thisform.command1.enabled=.t.
上一篇:VFP实验室管理系统_(论文_程序)(论文和程序)
下一篇:【delphi7.0下载】 【delphi7.0简体中文版下载】