VB496 基于VB酒店办公管理系统VB+SQL Server

目前一些酒店对酒店管理系统的应用仍停留于‘记帐式’，远未上升到对其管理模式的改变。酒店业涉及的信息系统和产品众多，却缺乏统一的行业标准使各个供应商相互协调，一方面造成资源浪费与互不兼容，另一方面也阻碍了整体水平的提高，无法完全符合酒店的需要。 在某种程度上，酒店运用电脑以后，人工成本未必降低，甚至有可能增加。运用电脑以后，仅是管理的量化程度提高、数据的流转速度加快。然而酒店迫在眉睫的矛盾是，在行业不景气的情况下，总在权衡投入成本与产出效益的比重。在中国酒店行业尚处于比较困难的现阶段，开源节流尤为重要，直接对市场的技术要求日益凸显，而目前酒店直接面对市场的销售手段还停留在拜访、打电话、发传真等传统形式，现有的软件不能直接帮助开源节流，这是目前技术与需求的差距。
随着我国经济的迅速发展，人们的生活水平有了显著提高，假日经济和旅游经济已成为人们消费的热点。各地也把旅游业当作本地经济发展的重要支柱之一，从而促进了酒店业的快速发展。对酒店的经营状况起决定作用的是酒店的服务管理水平。利用先进的管理手段，提高酒店的管理水平，已成为酒店业发展的当务之急。面对信息时代的机遇和挑战，利用科技手段提高企业管理无疑是一条行之有效的途径。虽然计算机管理并不是酒店管理走向成功的关键元素，但它可以最大限度地发挥准确、快捷、高效等作用，对酒店的服务管理提供强有力的支持。因此，采用全新的计算机网络和酒店管理系统，已成为提高酒店的管理效率、改善服务水准的手段之一。在某种意义上，酒店管理方面的信息化已成为现代化酒店的重要标志。

内容来自think58

[资料来源：http://think58.com]

[版权所有：http://think58.com]

Microsoft推出的UDA(一致数据访问技术) 为关系型或非关系型数据访问提供了一致的访问接口，为企业级Intranet应用多层软件结构提供了数据接口标准。一致数据访问包括两层软件接口，分别为ADO(Active Data Object) 和OLE DB，对应于不同层次的应用开发，ADO提供了高层软件接口，可在各种脚本语言(Script) 或一些宏语言中直接使用；OLE DB提供了底层软件接口，可在C/C++ 语言中直接使用。ADO以OLE DB为基础，它对OLE DB进行了封装。 think58.com

在Visual Basic 6.0中，可用的数据访问接口有三种：ActiveX数据对象(ADO)、远程数据对象(RDO) 和数据访问对象(DAO)。数据访问接口是一个对象模型，它代表了访问数据的各个方面。在这三种接口中，最新的是ADO接口[10]。
在VB中使用ADO，可以用两种方法：一是使用ADODC控件，在这种方式下，可以以图形化的方式直接设置ADO的连接，通过对文本框、列表框等控件进行数据绑定，就可以对数据表的内容进行显示和修改，这种方式使用比较灵活，数据的显示和修改都是自动进行的，不再需要复杂的手动赋值。本文即采用这种方式。

根据软件工程的思想，数据库设计的周期可以划分为六个阶段：
（1） 规划阶段
确定开发的总目标，给出计划开发的软件系统的功能、性能、可靠性以及接等方面的设想。
（2） 需求分析阶段
认真细致地了解用户对数据的加工要求，确定系统的功能与边界。本阶段的最终结果，提供一个可作为设计基础的系统说明书，包括对软硬件环境的要求和一整套完善的数据流程图。
（3） 设计阶段
把需求分析阶段所确定的功能细化，主要工作是概念设计阶段、逻辑设计阶段、物理设计阶段，然后，对每个阶段内部设计详细的流程。
（4） 程序编制阶段
以一种或几种特定的程序设计语言表达上一阶段确定的各模块控制流程。程序编制时应遵循结构化程序设计方法。
（5） 调试阶段
对已编好的程序进行单元调试（分调），整体调试（联调）和系统测试（验收）。

think58好，好think58 [资料来源：www.THINK58.com]

[资料来源：www.THINK58.com]

2．实现过程
（l） 在“客房管理系统”工程中，添加一个新窗体，命名为main_kfdj。
（2）程序代码：
Dim yf%
Private Sub Command1_Click()
'-------------------------------------数据库连接
Set cnn1 = New ADODB.Connection
cnn1.ConnectionString = "driver={SQL Server};server=(local);uid=admin;pwd=admin;database=jddb"
cnn1.ConnectionTimeout = 30
cnn1.Open
'----------------------------------------检查输入是否合法
If yf = 1 Then '新增
rst.Open "select * From kefang", cnn1, adOpenKeyset, adLockOptimistic
Call Check("房间号", Text1(0), Me, 3)
If fh = 1 Then
rst.Close
cnn1.Close
fh = 0
Exit Sub
End If
'-----------------------------------------
rst.AddNew
For i = 0 To 3
rst.Fields(i) = Text1(i)
Next i
rst.Update
Adodc1.Refresh
For i = 0 To 3
Text1(i) = ""
Next i
yf = 0
rst.Close
cnn1.Close
ElseIf yf = 2 Then   '修改
rst.Open "select * From kefang where 房间号='" + Trim(DataGrid1.Columns(0)) + "'", cnn1, adOpenKeyset, adLockOptimistic

For i = 0 To 3
rst.Fields(i) = Text1(i)
Next i
rst.Update
Adodc1.Refresh
yf = 0
rst.Close
cnn1.Close

think58好，好think58 [版权所有：http://think58.com]

[资料来源：THINK58.com]

End If
Command1.Enabled = False
Command2.Enabled = False

End Sub

think58.com

[资料来源：http://www.THINK58.com]

Private Sub Command2_Click()
For i = 0 To 3
Text1(i) = ""
Next i
yf = 0
Command1.Enabled = False
Command2.Enabled = False
End Sub
End Sub
6.3.2  入住登记模块设计
1.实现目标
程序启动后，选择“客房管理”菜单下的“入住登记”项，将进入入住登记模块。在入住登记模块块中主要完成客房信息的查询，旅客入住登记等。
入住登记管理界面如图6-4所示。

think58.com [版权所有：http://think58.com]

[来源：http://www.think58.com]

参考文献
[1] Visual Basic数据库系统开发完全手册——王春才、高春燕、李俊民，人民邮电出版社，2003
[2] Visual Basic6.0基础培训百例——韩亚萍，机械工业出版社，2003
[3] Visual Basic实用培训教程——金英姿、邓少鹍，人民邮电出版社，2004
[4] Visual Basic课程设计与系统开发案例——伍俊良，清华大学出版社，2004
[5] Visual Basic课程设计案例精编——张勇等，水利水电出版社，2005
[6] Visual Basic6数据库处理-从入门到精通——王道荣、林信成 ，中国铁道出版社，2004
[7] Visual Basic 6.0高级编程——常晓波，清华大学出版社，2004
[8] Visual Basic数据库开发基础与应用——张朝昆、施丽娜，人民邮电出版社，2005
[9] Visual Basic数据库开发实例精粹——郭瑞军,唐邦民,谢晗昕，电子工业出版社，2005
[10] 软件项目开发综合实训--Visual Basic篇——王泰峰，人民邮电出版社，2005
[11] Visual Basic数据库系统项目开发实践——温小敏，科学出版社，2005
[12] Database Management Systems，Gehrke ——Raghu Ramakrishnan,Johannes，清华大学出版社，2003
think58 [资料来源：http://www.THINK58.com]