房间类型.inputmask="XXXXXX"
thisform.text基本房价.inputmask="999,999.99"
thisform.text基本房价.Format="$"
thisform.text姓名.inputmask="XXXXXXXXXXXXXXXX"
thisform.text民族.inputmask="XX"
thisform.text出生日期.format="D"
thisform.text证件类别.inputmask="XXXXXXXXXXXXXXXX"
thisform.text证件号.inputmask="XXXXXXXXXXXXXXXXXXXX"
thisform.text预住天数.inputmask="99.9"
thisform.text折扣率.inputmask="9.99"
thisform.text付款方式.inputmask="XXXXXXXXXX"
thisform.text实收金额.inputmask="999,999,999.99"
thisform.text实收金额.Format="$"
thisform.text应收金额.inputmask="999,999,999.99"
thisform.text应收金额.Format="$"
usermgradein1
selermgrade
setordertoFJLX
scan
thisform.combo房间类型.additem(房间类型)
endscan
useroomin2
seleroom
setordertofjlx
setrelationto房间类型intormgrade
SETMULTILOCKSON
usermregisterin3
=CURSORSETPROP('Buffering',5,'rmregister')
useguestsortin4
seleroom
thisform.list1.rowsource='room.房间号,房间类型,楼层,占用'
thisform.list1.rowsourcetype=6
roomtype=alltrim(thisform.combo房间类型.list(thisform.combo房间类型.listindex))
tfilter="alltrim(房间类型)='"+roomtype+"'.and.!占用"
setfilteto&tfilter
thisform.list1.requery
thisform.exfilter=tfilter
selermregister
gototop
if!empty(退房时间)
thisform.label30.visible=.t.
else
thisform.label30.visible=.f.
endif
thisform.text房间号.value=房间号
thisform.text楼层.value=楼层
thisform.text房间类型.value=房间类型
thisform.text基本房价.value=基本房价
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=应收金额
command1.click:
selermregister
gototop
skip-1
if!empty(退房时间)
thisform.label30.visible=.t.
else
thisform.label30.visible=.f.
endif
thisform.text房间号.value=房间号
thisform.text楼层.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=应收金额
command2.click:
selermregister
if!bof()
skip-1
if!empty(退房时间)
thisform.label30.visible=.t.
else
thisform.label30.visible=.f.
endif
thisform.text房间号.value=房间号
thisform.text楼层.
上一篇:
VFP实验室管理系统_(论文_程序)(论文和程序)
下一篇:
【sqlserver2005下载】 【sqlserver2005中文版下载】