网站导航网学 原创论文 网站设计 最新系统 最新研究 原创论文 获取论文 论文降重 发表论文 论文发表 UI设计定制 论文答辩PPT格式排版 期刊发表 论文专题
返回网学首页
网学原创论文
最新论文 推荐专题 热门论文 论文专题
当前位置: 网学 > 设计下载 > VB类作品 > 正文

华侨宾馆客房管理系统

来源:http://myeducs.cn 联系QQ:点击这里给我发消息 作者: 用户投稿 来源: 网络 发布时间: 13/05/15

【编者按】网学网VB类作品频道为大家收集整理了“华侨宾馆客房管理系统“提供大家参考,希望对大家有所帮助!

QQ交谈客服咨询,网学网竭诚为您服务,本站永久域名:myeducs.cn

 

主要用Microsoft SQL Server2000数据库系统和Visual Basic6.0的集成环境下运行。
SQL Server2000是Microsoft公司最新推出的具有客户机/服务器体系的高性能关系数据库管理系统,是Windows平台下领先的数据库系统, Visual Basic6.0是运行在Windows平台上的可视化集成开发环境。它是Microsoft公司开发的Microsoft Visual Studio系列的一部分。VB6集程序的界面设计、代码编辑、编译、连接和调试等功能于一体,为用户提供了一个方便而又完整的开发界面和许多有效的辅助开发工具。旅馆在正常运行中需要对客房资源,顾客信息,结算信息进行管理,因此旅馆管理系统应从这个方面入手来设计其主要的功能。基于此种认识,我在本旅店管理系统所设计的主要功能有如下几点:
1.            客房资源的设置及管理
2.            信息的设置及管理
3.            预定,入住,结算信息的管理

 

七、客人退房模块设计
    在对客人进行退房服务时,有时会遇到顾客重名的问题。这样,如果只是按照顾客的姓名来结算的话,就会发生错误,在以下的代码中,解决了这一问题。就是在输入姓名重复的情况下给予相应的提示,然后在继续输入顾客证件号码的时候才会显示其结算信息。这样,就避免了在工作中可能出现的错误。
 
db.Open
rs.Open "SELECT COUNT(姓名) AS Expr1 FROM 酒店登记 WHERE 姓名=''" & Text1.Text & "''", db, adOpenDynamic, adLockReadOnly
 X = rs.Fields("Expr1").Value
''rs.Open "SELECT COUNT(姓名) AS Expr1 FROM 酒店登记 where 姓名=''" & Text1.Text & "''", db, adOpenDynamic, adLockReadOnly
''x = Trim(rs.Fields("expr1").Value)
If X > 1 Then
 
n = MsgBox("有重名!请输入证件号码!", 48)
Text1.Text = ""
Text1.SetFocus
 Else
 ''rs.Open "select DISTINCT 房间类型 from 增删房间", db, adOpenStatic, adLockReadOnly
rs.Close
本站发布的计算机毕业设计均是完整无错的全套作品,包含开题报告+程序+论文+源代码+翻译+答辩稿PPT

本文选自计算机毕业设计http://myeducs.cn
论文文章部分只是部分简介,如需了解更多详情请咨询本站客服!QQ交谈QQ3710167

  • 上一篇资讯: VB教材管理系统
  • 下一篇资讯: vb酒店人事管理系统
  • 原创论文

    设为首页 | 加入收藏 | 论文首页 |原创论文 |
    版权所有 QQ:3710167 邮箱:3710167@qq.com 网学网 [Myeducs.cn] 您电脑的分辨率是 像素
    Copyright 2008-2020 myeducs.Cn www.myeducs.Cn All Rights Reserved 湘ICP备09003080号 常年法律顾问:王律师