本站原创摘 要:在酒店管理工作中,信息的数据量大,数据处理工作频繁.为解决这一问题,我们利用计算机对酒店的数据信息进行处理,将的日常酒店管理工作分成客房管理、VIP客户管理、登记、消费、结账等若干个模块,用VF编写成一个管理软件用来完成酒店管理工作.
关 键 词:数据库数据处理信息模块
中图分类号:TP392文献标识码:A文章编号:1672-3791(2012)06(c)-0036-02
在管理酒店工作中,信息的数据量较多,数据处理工作繁琐,操作频繁.经过实际调研,我们将酒店的日常管理工作分成若干模块,编写成一个VF程序,运行效果良好,特此整理成文.
1系统功能介绍
整个酒店管理系统分为：客房管理、VIP客户管理、登记、消费、结账等若干模块.
1.1客房管理模块
本模块用来录入、修改、删除和查询客房有关数据,如房价、优惠折扣、是否空房等信息.以下是客房管理表ROOM.DBF主要字段如表1.
1.2VIP客户管理模块
本模块用来录入、修改、删除、查询VIP客户有关数据.以下是VIP客户管理表VIP.DBF主要字段如表2.
1.3登记/预定模块
本模块用来处理登记、预定入住客户有关数据.下面是登记管理表DJ.DBF主要字段如表3.
1.4消费管理模块
本模块用来处理入住客户除住宿以外的消费数据.下表是消费管理表XF.DBF主要字段如表4.
1.5结账模块
本模块用来处理入住客户的住宿费用以及消费数据.处理对象为room与xf二表构成的视图view1.结账结果可以用报表pbprint输出.
2系统模块结构
以下是酒店管理系统模块结构.
3部分代码说明
--------c1.mand1程序入口,验证口令
thiorm.bo1.setfocus()
ifthiorm.text1.text等于npass.mypass
doformc3
thiorm.release
else
messagebox("passworderror",48,"ok")
thiorm.bo1.setfocus()
endif
--------c3.pag1记录指针移动
localx
seleroom
skip-1
thiorm.refresh
x等于thiorm.pageframe1.activepage
thiorm.pageframe1.pages[x].grid1.column1.text1.setfocus()
-----------退出系统
thiorm.release
clearevents
Quit
-----------c3.page1增加记录
localx
appendblank
thiorm.refresh
x等于thiorm.pageframe1.activepage
thiorm.pageframe1.pages[x].grid1.column1.text1.setfocus()
-------------c3.page2刷新记录
setfilterto
gotop
thiorm.refresh
--------------c3.page2vip客户查询
x等于thiorm.pageframe1.activepage
con等于"姓名等于''"+trim(thiorm.pageframe1.pages[x].text1.text)
+"''"
selevip
setfilterto&con
gotop
thiorm.refresh
----------c3.page4消费计算
repl消费小计with外部+洒水+饮料+水果+洗衣+租车+订餐
----------c3.page5住宿结算
localx,y,y1,y2,y3
thiorm.refresh
x等于thiorm.pagefrme1.activepage
y等于trim(thiorm.pageframe1.pages[x].bo1.text)
selexf
locateallfor房间等于y
ifeof()
y1等于0
else
y1等于消费小计
endif
seleb2end
y3等于住店天数**优惠折扣
repl总计withy3
y2等于预付金额-y3-y1
thiorm.pageframe1.pages[x].text1.value等于y1
thiorm.pageframe1.pages[x].text2.value等于y2
-----------c3.page5打印
localx,y
thiorm.refresh
x等于thiorm.pageframe1.activepage
y等于trim(thiorm.pageframe1.pages[x].bo1.text)
reportformpbfor房间等于ytoprinter
4结语
开发软件采用Windosw下VF作为平台,软件有作为入口,工作人员获取后可以使用本软件工作.
酒店管理系统功能齐全,操作简单,数据安全,具有实用价值.