酒店(锦江之星)管理系统.doc

江海学院毕业设计
1 系统需求分析
1.1 系统可行性分析
1.1.1 可行性研究的前提
（1）要求
　 系统能够最大限度的利用有限资源快速准确收集、处理、分析统计酒店发生的信息资源。提供各种数据查询方式，方便管理人员进行查询。能够形成各种数据报表，及时准确反映酒店业务情况。系统各模块功能相互独立，利用数据流相互关联，最大的限制错误录入，实现内部资源共享。安全性方面，系统采用计算机管理避免手工输入的弊病，利用计算机进行科学的优化业务流程，构筑合理的管理架构和完善的管理制度。数据采用多级保护，减少酒店数据丢失。
酒店管理系统模块功能简介：前台接待模块，前台收银管理，客房预定管理，客房管理模块，报表管理模块，核数管理，经理查询及辅助决策分析模块，系统设置管理。
本系统预计将于四个月内完成，工程开始时间：2004年1月；结束时间：2004年5月。
（2）目标
酒店管理系统采用科学的管理思想与先进的管理手段的完善结合。可帮助酒店管理人员，对酒店管理过程中大量动态的、错综复杂的数据和信息进行及时准确的分析和处理，从而使酒店管理真正由经验管理进入到科学管理,帮助经营者更好的管理酒店、成本控制和客户来源，从而提高酒店的经营效益。
（3）进行可行性研究的方法
本系统的可行性研究时通过开发小组历时十天的时间调查分析后得出的，主要是通过调查现有的系统，分析开发酒店管理系统所具备的能力及实现的方法。确定出新系统的总体结构，最终形成一个完善的系统软件。
1.1.2 技术可行性
人员素质 本小组的5名学生(江海学院计算机082班学生)
技术基础 VB语言 数据结构 数据库系统原理 等相关知识
项目技术要求：较为简单的,但基本功能较为完善的现代酒店管理系统
根据项目的技术要求是较低的：
界面编程要求是: 简单明了；可以看出，其要求没有超出现有开发的技术内容。
数据库编程要求是：基于access平台；现有的技术力量完全可以解决。
软件基础 access , Visual Basic 6.0
用户没有特殊的要求
1.1.3 经济可行性
（1）设备费用
在无线网络普遍使用的情况下，价格已趋向于大众化，酒店安装此项功能并不会增加很大的开销。通过网关，无线用户可接入Internet进行访问。这样可以节省网络建设成本，因为无线用户可以在不使用任何线缆的情况下对Internet进行访问，具有便捷，移动的特点。同时，使得用户可以低廉的价格实现准确的宽带运营计费,为酒店更好的创造经济效益
（2）人员费用
通过简单的操作以及维护培训，使得员工能应付自如
（3）施工费用
因为是无线网所以安装方便，不需要考虑布线方案等一系列问题
1.2 系统应用背景
目前有些酒店在酒店管理上仍采用最原始的手工操作模式，与酒店的发展以及整个现代化办公进程的步伐不相适应，无法保证向客户提供准确、及时、规范的信息。其主要问题有：
1．许多业务的处理和操作工序繁杂，统计汇总工作量大、信息可靠程度差；
2．客户服务工作繁琐、复杂，使得客户提出申请时无所适从，对所需客户做不到心中有数，造成服务的延迟和服务质量的低下；
3．对客户的计费和收费不能直观监控和催交，导致业务人员不能按时结帐；
4．人工对客户的管理工作相当庞杂，不能对已有客户、所需客户做到心中有数；
5．对于数据资源的管理不能用科学的方法去编码和分类等档案记录可靠程度差，而且很难进行决策数据的统计；
6．各管理部门之间的数据信息不能共享、信息交换缓慢、管理成本高、工作效率低，时常出现一个作业在多个管理部门重复作业的情况。而且，随着酒店规模的扩大，业务的增多，所属方位地域分散等，出现公文上传下达速度慢、上下勾通困难，信息传递失真，团体工作失控等问题；
7．各种经营决策所需的数据采集难、准确率低，所得数据具有滞后性，酒店领导无法对业务过程进行监控，对酒店资源无法进行科学地、有效地、及时地最优化配置；
8．大量的极其有价值的历史数据被丢失，对酒店业务的长期发展造成了巨大损失。
因此若要克服这些弊端、降低运营成本、提高服务质量，酒店的管理必须首先完善其管理手段、规范管理流程，依托现代计算机技术、通信技术和网络技术，建立现代化的综合管理信息系统，提高业务处理的效率和可靠性，并进而对各类管理信息进行系统整理和分析，为酒店的运营决策提供依据，这样才能使酒店在激烈的市场竞争中立于不败之地。
2 系统的设计
2.1 系统功能模块设计
在系统功能分析的基础上，考虑到Visual Basic程序编制的特点，得到如图2-1所示的系统功能结构图。
锦江之星管理系统
系统声明
营业汇总
客户资料
入住情况
系统管理

图2-1 系统功能结构图
本酒店管理信息系统需要完成功能主要有：
(1)用户信息的增加和修改。
(2)酒店管理各种信息的输入，包括客户、服务类别、服务项目、酒店信息的输入等。
(3)酒店管理各种信息的查询、统计、修改和维护，包括客户信息查询，客户出入，各种信息的修改和维护等。
(4)酒店营业汇总的查询。
(5)酒店管理系统的声明。
3 数据库设计
3.1 数据库需求分析
用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入。
通过对酒店酒店管理的内容和数据流程分析，设计数据项和数据结构如下：
●用户管理信息，包括用户名、密码和权限。
●入住信息，包括的数据项有姓名、来源地、接待人、入住时间、入住单价、入住数量、床位数、入住金额、备注等。
●退房信息，包括的数据项有姓名、来源地、接待人、退房时间、退房单价、退房数量、床位数、退房金额、备注等。
●客户详况，包括的数据项有姓名、日期、来源地、房间标准、客房单价、客房数量、金额、方位、床位数等。
3.2 数据库逻辑结构设计
现在需要将在上面的数据库概念结构转化为ACCESS 2007 数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。
酒店管理信息系统数据库中各个表格的设计结果如下面表格所示。每个表格所示在数据库中的一个表。
字段名称
数据类型
字段大小
必填字段
姓名
数字
整型
是
日期
日期

否
来源地
文本
50
否
房间标准
文本
20
否
单价
货币

否
数量
数字
整型
否
方位
文本
5
否
金额
货币

否
床位数
文本
50
否
表3-1 客户详细信息表

字段名称
数据类型
字段大小
必填字段
来源地
文本
20
是
表3-2 来源地信息表

字段名称
数据类型
字段大小
必填字段
床位数
文本
50
是
表3-3 床位数信息表

字段名称
数据类型
字段大小
必填字段
姓名
文本
10
是
日期
日期/时间

否
来源地
文本
20
否
身份证号
文本
20
否
接待人
文本
20
否
备注
文本
50
否
入退房
是/否
真/假
否
表3-4 为入退房信息表

字段名称
数据类型
字段大小
必填字段
用户名
文本
20
否
密码
文本
20
否
权限
文本
10
否
表3-5 为系统管理信息表
4 系统主窗体设计
4.1 创建工程项目—锦江之星管理系统
（1）打开Visual Basic 6.0开发环境，在菜单栏中依次选择“文件”“创建工程”菜单，出现如图4－1所示的“新建工程”对话框。
（2）在列表中选择“标准EXE”图标以指定新建应用程序　类型为标准的Windows应用程序，然后单击“确定”按钮，打开如图4－2所示的系统初始界面。

图4－1“新建工程”对话框

图4－2 系统初始界面

（3）在图4－2的菜单栏中依次选择“工程”　“工程1属性”
菜单，出现如图4－3所示的“工程1－工程属性”对话框。

图4-3 “工程1-工程属性”对话框

　　（4）在“工程名称”文本框中将工程的名称设置为“锦江之星管理系统”，然后单击“确定”按钮。
（5）单击工具栏上的保存按钮，保存该工程。
这样，就成功创建了酒店管理系统工程。
以下是系统中各个窗口的设计和功能的实现。
4.2系统主窗口的设计
　　当登录成功之后，就可以进入锦江之星管理系统的主界面进行操作了。
　　下面是创建应用程序的主界面frmMain窗口的过程。
（1） 在工程中添加一个窗体。在工程资源管理器窗口中单击鼠标右键，在弹出的快捷菜单中依次选择“添加”“添加窗体”项，出现如图4－4所示的“添加窗体”对话框。

图4－4“添加窗体”对话框

（2）在“新建”选项卡中选择“窗体”选项，然后单击“打开”按钮可以打开新建的窗口。
（3）设置frmMain窗口的属性，如表4－1所示。
这样，窗口frmMain的界面设置就完成了。表4－2　　　　　　frmMain窗口的属性列表

4.3菜单栏的设计
在这个系统的主窗口串，需要设计一个菜单栏，为用户执行各种命和操作提供方便。
创建菜单的步骤如下：
（1）在Visual Basic 6.0开发环境中工具栏中的菜单编辑器图标，出现如图4-5所示的“菜单编辑器”对话框。

图4-5 “菜单编辑器”对话框

（2）下面就需要按照系统设计中的要求来设计菜单的结构。在“标题”文本框中输入“日常业务（&N）”，在“名称”文本框中输入“RCYW”。
（3）在菜单栏中添加了一个显示为“日常业务”的菜单项能过“&”字符指定后面一个字母为相应的访问键，当程序运行时，直接使用键盘上的Alt键和字符“&”后面的一个字母键，就可以调用菜单项的功能或者弹出菜单下面的子菜单。
属性名称
属性值
说明
名称
frmMain
命名该窗口
Caption
“锦江之星管理系统”
设置窗口标题
Icon
System.ico
设置标题文件
Picture
WORLD.JPEG
设置窗口显示的文件
StarUpPosition
屏幕中心
设置窗口默认位置为屏幕中央
WindowState
Maximized
设置窗口的打开状态为最大化
表4-1 属性表
5 系统模块设计
5.1 基本信息模块设计
基本信息模块主要包括：
●用户登陆界面
●用户信息模块
●入住、退房模块
●客户资料模块
●营业汇总模块
●系统声明模块
5.1.1用户登录界面
通过输入用户名和密码登录管理系统。打开VB设计界面，选择“工程”->“添加窗体”命名该窗口，设置窗口标题为“锦江之星管理系统”先添加一个“Frame” 标题为登录再里面添加两个“Textbox”分别在它们旁边添加一个“Label” 标题分别为用户名和密码，在它们下面添加标题为“确定”按钮控件和“取消”按钮控件，最下面添加一个“Timer” 控件用来记录时间。运行之后的界面如图5-1所示。

图5-1用户登录界面

5.1.2创建用户信息子窗体
用户信息子窗体可以进行用户管理，如：增加用户、修改密码、用户权限的管理，进行编辑。
（1）增加用户。打开VB设计界面，选择“工程”->“添加窗体”命名该窗口，设置窗口标题为“增加用户”先添加三个“Textbox”分别在它们旁边添加一个“Label” 标题分别为“输入用户名和输入密码，确认密码”，在它们下面添加一个“Combobox”在它的旁边添加一个“Label” 标题为“选择权限”，再在最下面添加 “确定”按钮控件和“取消”按钮控件，运行之后的界面如图5-2。

图5-2增加用户子窗体

（2）修改密码。打开VB设计界面，选择“工程”->“添加窗体”命名该窗口，设置窗口标题为“修改密码”先添加一个“Frame” 标题为“修改密码”再里面添加三个“Textbox”分别在它们旁边添加一个“Label” 标题分别为“旧密码”，“新密码”和“确认密码”，在它们下面添加标题为“确定”按钮控件和“取消”按钮控件，运行之后的界面如图5-3

图5-3 修改密码子窗体

5.1.3 创建客户资料信息窗体
通过对客户的管理可以看出客户的详细状况。打开VB设计界面，选择“工程”->“添加窗体”命名该窗口，设置窗口标题为“客人管理”先添加一个“Frame” 标题为“入住清单”再里面添加一个“MSFlexGrid”，在“Frame” 标题为“入住清单”的下面添加一个“Frame” 标题为“客人信息”再在里面添加一个“MSFlexGrid”最后在最下面添加五个按钮控件标题分别为“增加” ，“修改”，“删除”，“取消”，“退出”，运行之后的界面如图5-4所示。

图5-4 酒店管理子窗体
5.1.4客户资料信息查询子窗体
需要对客户资料信息进行查询时候，可以通过姓名或者客户入、退房日期进行准确查询。打开VB设计界面，选择“工程”->“添加窗体”命名该窗口，设置窗口标题为“查询”先添加一个“Frame” 标题为“选择1”先添加一个“OptionButton” 标题为“按姓名查询”在它里面添加两个 “Textbox” 分别在它们旁边添加一个“Label”标题为“从”和“到”，在“OptionButton” 标题为“按姓名查询”下面添加一个“OptionButton” 标题为“按日期查询” 在它里面添加三个 “Textbox” 分别在它们旁边添加一个“Label”标题为“从”，“年”， “月”，“日”再在下面添加三个 “Textbox” 分别在它们旁边添加一个“Label”标题为“到”，“年”， “月”，“日”在“OptionButton” 标题为“按日期查询”下面添加两个按钮控件标题分别为“查询” 和 “取消”，运行之后的界面如图5-5所示。

图5-5 查询子窗体
5.1.5创建系统声明窗体
对整个系统做一个总结说明。打开VB设计界面，选择“工程”->“添加窗体”命名该窗口，设置窗口标题为“关于”先添加一个“Picture”在其后面添加三个“Label” 标题分别为“锦江之星管理系统”，“版本2011.1.7”，“系统说明”，运行之后的界面如图5-6所示。

图5-6统声明

6 个人所做模块
6.1 入住退房模块
6.1.1 入住情况功能模块流程图如图6-1
客人入住
客人退房
入住情况
开始启动
用户登录
系统主界面
结束

图6-1入住情况功能模块流程图
6.1.2 入住情况类型窗体
在营业汇总类型菜单中选择汇总的方式，包括：入住、退房打开VB设计界面，选择“工程”->“添加窗体”命名该窗口，设置窗口标题为“锦江之星管理系统” 单击菜单栏中“工具”->“菜单编辑器”在标题栏中输入的“入住情况”，名称一栏必须填写。点击“下一个”按钮然后点击向右的方向键在标题栏中输入的“入住”，名称一栏必须填写。点击“下一个”按钮然后点击向右的方向键在标题栏中输入的“退房”，名称一栏必须填写。运行之后的界面。如图6-4所示。

图6-2

图6-3

图6-4
6.1.2入住模块
通过入住信息窗体可以对入住客户的信息进行添加。打开VB设计界面，选择“工程”->“添加窗体”命名该窗口，设置窗口标题为“入住”先添加一个“Label” 标题位“姓名”在它的后面添加一个“Textbox”再在它后面添加一个“Label” 标题“来源地”在它们下面添加一个“Label” 标题为“日期”在后面添加三个“combobox”分别在它们旁边添加一个“Label” 标题为“年” ，“月”“日”再它们下面添加两个“Textbox” 分别在它们旁边添加一个“Label”标题为“身份证号”和“接待人”再在下面添加一个“Label” 标题为“备注”在其后添加一“combobox”，在它们下面添加一个“MSFlexGrid”，最后在最下面添加标题为“确定”按钮控件和“取消”按钮控件，运行之后的界面如图如图6-7所示：

图6-5

图6-6

图6-7
（1）下面是响应“入住”子菜单Click事件，调出入住窗体代码。
Private Sub in_check_Click()
jinku.Caption = "入住"
jinku.Show
End Sub
（2）姓名的要求
Private Sub Command1_Click()
Trim(Text1.Text) = "" Then
MsgBox "姓名不能为空!", vbOKOnly + vbExclamation, ""
Text1.SetFocus
（3）客人入住添加
rs_save.Update
rs_save.Close
MsgBox "添加成功！", vbOKOnly + vbExclamation, ""
Unload Me

6.1.3 退房模块
通过退房信息窗体可以对退房客户的信息进行添加。打开VB设计界面，选择“工程”->“添加窗体”命名该窗口，设置窗口标题为“退房”先添加一个“Label” 标题位“姓名”在它的后面添加一个“Textbox”再在它后面添加一个“Label” 标题“来源地”在它们下面添加一个“Label” 标题为“日期”在后面添加三个“combobox”分别在它们旁边添加一个“Label” 标题为“年” ，“月”“日”再它们下面添加两个“Textbox” 分别在它们旁边添加一个“Label”标题为“身份证号”和“接待人”再在下面添加一个“Label” 标题为“备注”在其后添加一“combobox”，在它们下面添加一个“MSFlexGrid”，最后在最下面添加标题为“确定”按钮控件和“取消”按钮控件，运行之后的界面如图6-10所示

图6-8

图6-9

图6-10
（1）下面是响应“退房”子菜单Click事件，调出退房窗体代码。
Private Sub in_check_Click()
jinku.Caption = "退房"
jinku.Show
End Sub
（2）姓名的要求
Trim(Text1.Text) = "" Then
MsgBox "姓名不能为空!", vbOKOnly + vbExclamation, ""
Text1.SetFocus
（3）客人退房添加
rs_save.Update
MsgBox "添加成功！", vbOKOnly + vbExclamation, ""
（4）前台和后台相连
Option Explicit
Dim rs_sum As New ADODB.Recordset
6.2 营业汇总模块
6.2.1 营业汇总模块功能流程图如图6-11所示。
开始启动
用户登录
系统主界面
营业汇总方式
按来源地
按日期
按床位数
按床位数+日期
按来源地+日期
结束

图6-11 营业汇总模块功能流程图
6.1.2 营业汇总类型窗体
在营业汇总类型菜单中选择汇总的方式。打开VB设计界面，选择“工程”->“添加窗体”命名该窗口，设置窗口标题为“锦江之星管理系统” 单击菜单栏中“工具”->“菜单编辑器”在标题栏中输入的“营业汇总”，名称一栏必须填写。点击“下一个”按钮然后点击向右的方向键在标题栏中输入的“按来源地汇总”，名称一栏必须填写。点击“下一个”按钮然后点击向右的方向键在标题栏中输入的“按日期汇总”，名称一栏必须填写。点击“下一个”按钮然后点击向右的方向键在标题栏中输入的“按床位数汇总”，名称一栏必须填写。点击“下一个”按钮然后点击向右的方向键在标题栏中输入的“按来源地+日期汇总”，名称一栏必须填写。点击“下一个”按钮然后点击向右的方向键在标题栏中输入的“按日期+床位数汇总”，名称一栏必须填写。运行之后的界面显示如下结果如图6-14所示：

图6-12

图6-13

图6-14

6.1.2 按来源地汇总模块
按来源地汇总。打开VB设计界面，选择“工程”->“添加窗体”命名该窗口，设置窗口标题为“营业汇总”先添加一个“Label” 标题为“按来源地汇总”再里面添加一个“MSFlexGrid”，最后在最下面添加一个按钮控件标题为 “退出”，运行之后的界面显示如下结果如图6-17所示：

图6-15

图6-16

图6-17
（1）下面是响应“按来源地汇总”子菜单Click事件，调出营业汇总窗体代码。
Private Sub summary menu_Click()
summary_menu = " check"
huizong.Show 1
End Sub
（2）设置表头代码
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = "来源地"
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = "总金额"
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "入退房"
If CDbl(rs_sum.Fields(1)) < 0 Then
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "退房"
Else
MSFlexGrid1.Text = rs_sum.Fields(1)
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "入住"
MSFlexGrid1.Row = MSFlexGrid1.Row + 1
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = "(总计)"
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = addup
（3）和后台数据库相连代码
Option Explicit
Dim rs_sum As New ADODB.Recordset
Dim addup As Double
sql = "select 来源地,sum(金额) as 总金额 from 客户详况 group by 来源地 order by sum(金额)"
rs_sum.CursorLocation = adUseClient
rs_sum.Open sql, conn, adOpenKeyset, adLockPessimistic
addup = 0
MSFlexGrid1.Rows = rs_sum.RecordCount + 2
MSFlexGrid1.Cols = 3
（4）退出按钮控件代码
Private Sub Command1_Click()
Unload Me
End Sub
6.1.3按日期汇总
按日期汇总。打开VB设计界面，选择“工程”->“添加窗体”命名该窗口，设置窗口标题为“营业汇总”先添加一个“Label” 标题为“按日期汇总”再里面添加一个“MSFlexGrid”，最后在最下面添加一个按钮控件标题为 “退出”，运行之后的界面显示如下结果如图6-20所示：

图6-18

图6-19

图6-20
（1）下面是响应“按日期汇总”子菜单Click事件，调出货物汇总窗体代码。
Private Sub summary_date_Click()
summary_menu = "date"
huizong.Show 1
End Sub
（2）设置表头代码
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = "日期"
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = "总金额"
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "入退房"
If CDbl(rs_sum.Fields(1)) < 0 Then
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "退房"
Else
MSFlexGrid1.Text = rs_sum.Fields(1)
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "入住"
MSFlexGrid1.Row = MSFlexGrid1.Row + 1
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = "(总计)"
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = addup
（3）和后台数据库相连代码
Option Explicit
Dim rs_sum As New ADODB.Recordset
Dim addup As Double
sql = "select 日期,sum(金额) as 总金额 from 客户详况 group by 日期 order by sum(金额)"
rs_sum.CursorLocation = adUseClient
rs_sum.Open sql, conn, adOpenKeyset,
addup = 0
MSFlexGrid1.Rows = rs_sum.RecordCount + 2
MSFlexGrid1.Cols = 3
（4）退出按钮控件代码
Private Sub Command1_Click()
Unload Me
End Sub
6.1.4 按床位数汇总
按床位数汇总打开VB设计界面，选择“工程”->“添加窗体”命名该窗口，设置窗口标题为“营业汇总”先添加一个“Frame” 标题为“按床位数汇总”再里面添加一个“MSFlexGrid”，最后在最下面添加一个按钮控件标题为 “退出”，运行之后的界面显示如下结果如图6-23所示：

图6-21

图6-22

图6-23
（1）下面是响应“按床位数汇总”子菜单Click事件，调出货物汇总窗体代码。
Private Sub summary_custom_Click()
summary_menu = "custom"
huizong.Show 1
End Sub
（2）设置表头代码
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = "床位数"
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = "总金额"
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "入退房"
If CDbl(rs_sum.Fields(1)) < 0 Then
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "退房"
Else
MSFlexGrid1.Text = rs_sum.Fields(1)
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "入住"
MSFlexGrid1.Row = MSFlexGrid1.Row + 1
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = "(总计)"
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = addup
（3）和后台数据库相连代码
Option Explicit
Dim rs_sum As New ADODB.Recordset
Dim addup As Double
sql = "select 床位数,sum(金额) as 总金额 from 客户详况 group by 床位数 order by sum(金额)"
rs_sum.CursorLocation = adUseClient
rs_sum.Open sql, conn, adOpenKeyset, adLockPessimistic
addup = 0
MSFlexGrid1.Rows = rs_sum.RecordCount + 2
MSFlexGrid1.Cols = 3
（4）退出按钮控件代码
Private Sub Command1_Click()
Unload Me
End Sub
6.1.5按床位数+日期汇总
按床位数+日期汇总模打开VB设计界面，选择“工程”->“添加窗体”命名该窗口，设置窗口标题为“营业汇总”先添加一个“Frame” 标题为“按床位数+日期汇总”再里面添加一个“MSFlexGrid”，最后在最下面添加一个按钮控件标题为 “退出”，运行之后的界面显示如下结果如图6-26所示：

图6-24

图6-25

图6-26
（1）下面是响应“按床位数+日期汇总”子菜单Click事件，调出货物汇总窗体代码。
Private Sub sum_date_custom_Click()
summary_menu = "date_custom"
huizong.Show 1
End Sub
（2）设置表头代码
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = "按床位数+日期"
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = "总金额"
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "入退房"
If CDbl(rs_sum.Fields(1)) < 0 Then
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "退房"
Else
MSFlexGrid1.Text = rs_sum.Fields(1)
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "入住"
MSFlexGrid1.Row = MSFlexGrid1.Row + 1
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = "(总计)"
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = addup
（3）和后台数据库相连代码
Option Explicit
Dim rs_sum As New ADODB.Recordset
Dim addup As Double
sql = "select 按床位数，日期,sum(金额) as 总金额 from 客户详况 group by 按床位数，日期 order by sum(金额)"
rs_sum.CursorLocation = adUseClient
rs_sum.Open sql, conn, adOpenKeyset, adLockPessimistic
addup = 0
MSFlexGrid1.Rows = rs_sum.RecordCount + 2
MSFlexGrid1.Cols = 3
（4）退出按钮控件代码
Private Sub Command1_Click()
Unload Me
End Sub
6.1.6按来源地+日期汇总
按来源地+日期汇总。打开VB设计界面，选择“工程”->“添加窗体”命名该窗口，设置窗口标题为“营业汇总”先添加一个“Frame” 标题为“按来源地+日期汇总”再里面添加一个“MSFlexGrid”，最后在最下面添加一个按钮控件标题为 “退出”，运行之后的界面显示如下结果如图6-29所示：

图6-27

图6-28

图6-29
（1）下面是响应“按来源地+日期汇总”子菜单Click事件，调出货物汇总窗体代码。
Private Sub sum_date_ menu _Click()
summary_menu = "date_ menu "
huizong.Show 1
End Sub
（2）设置表头代码
MSFlexGrid1.Row = 0
MSFlexGrid1.Col = 0
MSFlexGrid1.Text = "按来源地+日期"
MSFlexGrid1.Col = 1
MSFlexGrid1.Text = "总金额"
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "入退情况"
If CDbl(rs_sum.Fields(1)) < 0 Then
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "退房"
Else
MSFlexGrid1.Text = rs_sum.Fields(1)
MSFlexGrid1.Col = 2
MSFlexGrid1.Text = "入住"
MSFlexGrid1.Row = MSFlexGrid1.Row + 1
MSFlexGrid1.Col = 0
MSFlex