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

《酒店(锦江之星)管理系统》由会员分享，可在线阅读，更多相关《酒店(锦江之星)管理系统（60页珍藏版）》请在装配图网上搜索。

1、江海学院毕业设计1系统需求分析1.1 系统可行性分析1.1.1 可行性研究的前提（1）要求 系统能够最大限度的利用有限资源快速准确收集、处理、分析统计酒店发生的信息资源。提供各种数据查询方式，方便管理人员进行查询。能够形成各种数据报表，及时准确反映酒店业务情况。系统各模块功能相互独立，利用数据流相互关联，最大的限制错误录入，实现内部资源共享。安全性方面，系统采用计算机管理避免手工输入的弊病，利用计算机进行科学的优化业务流程，构筑合理的管理架构和完善的管理制度。数据采用多级保护，减少酒店数据丢失。 酒店管理系统模块功能简介：前台接待模块，前台收银管理，客房预定管理，客房管理模块，报表管理模块，核

2、数管理，经理查询及辅助决策分析模块，系统设置管理。 本系统预计将于四个月内完成，工程开始时间：2004年1月；结束时间：2004年5月。（2）目标 酒店管理系统采用科学的管理思想与先进的管理手段的完善结合。可帮助酒店管理人员，对酒店管理过程中大量动态的、错综复杂的数据和信息进行及时准确的分析和处理，从而使酒店管理真正由经验管理进入到科学管理,帮助经营者更好的管理酒店、成本控制和客户来源，从而提高酒店的经营效益。（3）进行可行性研究的方法 本系统的可行性研究时通过开发小组历时十天的时间调查分析后得出的，主要是通过调查现有的系统，分析开发酒店管理系统所具备的能力及实现的方法。确定出新系统的总体结构

3、，最终形成一个完善的系统软件。1.1.2 技术可行性人员素质 本小组的5名学生(江海学院计算机082班学生)技术基础 VB语言 数据结构 数据库系统原理 等相关知识项目技术要求：较为简单的,但基本功能较为完善的现代酒店管理系统根据项目的技术要求是较低的：界面编程要求是: 简单明了；可以看出，其要求没有超出现有开发的技术内容。数据库编程要求是：基于access平台；现有的技术力量完全可以解决。软件基础 access , Visual Basic 6.0用户没有特殊的要求1.1.3 经济可行性（1）设备费用在无线网络普遍使用的情况下，价格已趋向于大众化，酒店安装此项功能并不会增加很大的开销。通过网

4、关，无线用户可接入Internet进行访问。这样可以节省网络建设成本，因为无线用户可以在不使用任何线缆的情况下对Internet进行访问，具有便捷，移动的特点。同时，使得用户可以低廉的价格实现准确的宽带运营计费,为酒店更好的创造经济效益（2）人员费用通过简单的操作以及维护培训，使得员工能应付自如（3）施工费用因为是无线网所以安装方便，不需要考虑布线方案等一系列问题1.2系统应用背景目前有些酒店在酒店管理上仍采用最原始的手工操作模式，与酒店的发展以及整个现代化办公进程的步伐不相适应，无法保证向客户提供准确、及时、规范的信息。其主要问题有：1许多业务的处理和操作工序繁杂，统计汇总工作量大、信息可靠

5、程度差；2客户服务工作繁琐、复杂，使得客户提出申请时无所适从，对所需客户做不到心中有数，造成服务的延迟和服务质量的低下；3对客户的计费和收费不能直观监控和催交，导致业务人员不能按时结帐；4人工对客户的管理工作相当庞杂，不能对已有客户、所需客户做到心中有数；5对于数据资源的管理不能用科学的方法去编码和分类等档案记录可靠程度差，而且很难进行决策数据的统计；6各管理部门之间的数据信息不能共享、信息交换缓慢、管理成本高、工作效率低，时常出现一个作业在多个管理部门重复作业的情况。而且，随着酒店规模的扩大，业务的增多，所属方位地域分散等，出现公文上传下达速度慢、上下勾通困难，信息传递失真，团体工作失控等问

6、题；7各种经营决策所需的数据采集难、准确率低，所得数据具有滞后性，酒店领导无法对业务过程进行监控，对酒店资源无法进行科学地、有效地、及时地最优化配置；8大量的极其有价值的历史数据被丢失，对酒店业务的长期发展造成了巨大损失。因此若要克服这些弊端、降低运营成本、提高服务质量，酒店的管理必须首先完善其管理手段、规范管理流程，依托现代计算机技术、通信技术和网络技术，建立现代化的综合管理信息系统，提高业务处理的效率和可靠性，并进而对各类管理信息进行系统整理和分析，为酒店的运营决策提供依据，这样才能使酒店在激烈的市场竞争中立于不败之地。2 系统的设计2.1 系统功能模块设计在系统功能分析的基础上，考虑到V

7、isual Basic程序编制的特点，得到如图2-1所示的系统功能结构图。锦江之星管理系统系统声明营业汇总客户资料入住情况系统管理 图2-1 系统功能结构图本酒店管理信息系统需要完成功能主要有：(1)用户信息的增加和修改。(2)酒店管理各种信息的输入，包括客户、服务类别、服务项目、酒店信息的输入等。(3)酒店管理各种信息的查询、统计、修改和维护，包括客户信息查询，客户出入，各种信息的修改和维护等。(4)酒店营业汇总的查询。(5)酒店管理系统的声明。3 数据库设计3.1 数据库需求分析用户的需求具体体现在各种信息的提供、保存、更新和查询，这就要求数据库结构能充分满足各种信息的输出和输入。通过对酒

8、店酒店管理的内容和数据流程分析，设计数据项和数据结构如下：用户管理信息，包括用户名、密码和权限。 入住信息，包括的数据项有姓名、来源地、接待人、入住时间、入住单价、入住数量、床位数、入住金额、备注等。退房信息，包括的数据项有姓名、来源地、接待人、退房时间、退房单价、退房数量、床位数、退房金额、备注等。客户详况，包括的数据项有姓名、日期、来源地、房间标准、客房单价、客房数量、金额、方位、床位数等。3.2 数据库逻辑结构设计 现在需要将在上面的数据库概念结构转化为ACCESS 2007 数据库系统所支持的实际数据模型，也就是数据库的逻辑结构。酒店管理信息系统数据库中各个表格的设计结果如下面表格所示

9、。每个表格所示在数据库中的一个表。字段名称数据类型字段大小必填字段姓名数字整型是日期日期否来源地文本50否房间标准文本20否单价货币否数量数字整型否方位文本5否金额货币否床位数文本50否表3-1 客户详细信息表字段名称数据类型字段大小必填字段来源地文本20是表3-2 来源地信息表字段名称数据类型字段大小必填字段床位数文本50是 表3-3 床位数信息表字段名称数据类型字段大小必填字段姓名文本10是日期日期/时间否来源地文本20否身份证号文本20否接待人文本20否备注文本50否入退房是/否真/假否表3-4 为入退房信息表字段名称数据类型字段大小必填字段用户名文本20否密码文本20否权限文本10否表

10、3-5 为系统管理信息表4 系统主窗体设计4.1 创建工程项目锦江之星管理系统（1）打开Visual Basic 6.0开发环境，在菜单栏中依次选择“文件”“创建工程”菜单，出现如图41所示的“新建工程”对话框。（2）在列表中选择“标准EXE”图标以指定新建应用程序类型为标准的Windows应用程序，然后单击“确定”按钮，打开如图42所示的系统初始界面。图41“新建工程”对话框图42 系统初始界面（3）在图42的菜单栏中依次选择“工程”“工程1属性”菜单，出现如图43所示的“工程1工程属性”对话框。图4-3 “工程1-工程属性”对话框（4）在“工程名称”文本框中将工程的名称设置为“锦江之星管理

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

12、，窗口frmMain的界面设置就完成了。表42frmMain窗口的属性列表4.3菜单栏的设计在这个系统的主窗口串，需要设计一个菜单栏，为用户执行各种命和操作提供方便。创建菜单的步骤如下：（1）在Visual Basic 6.0开发环境中工具栏中的菜单编辑器图标，出现如图4-5所示的“菜单编辑器”对话框。图4-5 “菜单编辑器”对话框（2）下面就需要按照系统设计中的要求来设计菜单的结构。在“标题”文本框中输入“日常业务（&N）”，在“名称”文本框中输入“RCYW”。（3）在菜单栏中添加了一个显示为“日常业务”的菜单项能过“&”字符指定后面一个字母为相应的访问键，当程序运行时，直接使用键盘上的Al

13、t键和字符“&”后面的一个字母键，就可以调用菜单项的功能或者弹出菜单下面的子菜单。属性名称属性值说明名称frmMain命名该窗口Caption“锦江之星管理系统”设置窗口标题IconSystem.ico设置标题文件PictureWORLD.JPEG设置窗口显示的文件StarUpPosition屏幕中心设置窗口默认位置为屏幕中央WindowStateMaximized设置窗口的打开状态为最大化表4-1 属性表5 系统模块设计5.1 基本信息模块设计基本信息模块主要包括：用户登陆界面用户信息模块入住、退房模块客户资料模块营业汇总模块系统声明模块5.1.1用户登录界面通过输入用户名和密码登录管理系统

14、。打开VB设计界面，选择“工程”-“添加窗体”命名该窗口，设置窗口标题为“锦江之星管理系统”先添加一个“Frame” 标题为登录再里面添加两个“Textbox”分别在它们旁边添加一个“Label” 标题分别为用户名和密码，在它们下面添加标题为“确定”按钮控件和“取消”按钮控件，最下面添加一个“Timer” 控件用来记录时间。运行之后的界面如图5-1所示。 图5-1用户登录界面5.1.2创建用户信息子窗体用户信息子窗体可以进行用户管理，如：增加用户、修改密码、用户权限的管理，进行编辑。（1）增加用户。打开VB设计界面，选择“工程”-“添加窗体”命名该窗口，设置窗口标题为“增加用户”先添加三个“T

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

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

17、客户资料信息进行查询时候，可以通过姓名或者客户入、退房日期进行准确查询。打开VB设计界面，选择“工程”-“添加窗体”命名该窗口，设置窗口标题为“查询”先添加一个“Frame” 标题为“选择1”先添加一个“OptionButton” 标题为“按姓名查询”在它里面添加两个 “Textbox” 分别在它们旁边添加一个“Label”标题为“从”和“到”，在“OptionButton” 标题为“按姓名查询”下面添加一个“OptionButton” 标题为“按日期查询” 在它里面添加三个 “Textbox” 分别在它们旁边添加一个“Label”标题为“从”，“年”， “月”，“日”再在下面添加三个 “Te

18、xtbox” 分别在它们旁边添加一个“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

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

20、46.1.2入住模块 通过入住信息窗体可以对入住客户的信息进行添加。打开VB设计界面，选择“工程”-“添加窗体”命名该窗口，设置窗口标题为“入住”先添加一个“Label” 标题位“姓名”在它的后面添加一个“Textbox”再在它后面添加一个“Label” 标题“来源地”在它们下面添加一个“Label” 标题为“日期”在后面添加三个“combobox”分别在它们旁边添加一个“Label” 标题为“年” ，“月”“日”再它们下面添加两个“Textbox” 分别在它们旁边添加一个“Label”标题为“身份证号”和“接待人”再在下面添加一个“Label” 标题为“备注”在其后添加一“combobox”

21、，在它们下面添加一个“MSFlexGrid”，最后在最下面添加标题为“确定”按钮控件和“取消”按钮控件，运行之后的界面如图如图6-7所示： 图6-5 图6-6图6-7 （1）下面是响应“入住”子菜单Click事件，调出入住窗体代码。Private Sub in_check_Click()jinku.Caption = 入住jinku.ShowEnd Sub（2）姓名的要求 Private Sub Command1_Click() Trim(Text1.Text) = Then MsgBox 姓名不能为空!, vbOKOnly + vbExclamation, Text1.SetFocus（3）

22、客人入住添加 rs_save.Updaters_save.CloseMsgBox 添加成功！, vbOKOnly + vbExclamation, Unload Me6.1.3 退房模块通过退房信息窗体可以对退房客户的信息进行添加。打开VB设计界面，选择“工程”-“添加窗体”命名该窗口，设置窗口标题为“退房”先添加一个“Label” 标题位“姓名”在它的后面添加一个“Textbox”再在它后面添加一个“Label” 标题“来源地”在它们下面添加一个“Label” 标题为“日期”在后面添加三个“combobox”分别在它们旁边添加一个“Label” 标题为“年” ，“月”“日”再它们下面添加两个

23、“Textbox” 分别在它们旁边添加一个“Label”标题为“身份证号”和“接待人”再在下面添加一个“Label” 标题为“备注”在其后添加一“combobox”，在它们下面添加一个“MSFlexGrid”，最后在最下面添加标题为“确定”按钮控件和“取消”按钮控件，运行之后的界面如图6-10所示 图6-8 图6-9 图6-10 （1）下面是响应“退房”子菜单Click事件，调出退房窗体代码。Private Sub in_check_Click()jinku.Caption = 退房jinku.ShowEnd Sub（2）姓名的要求 Trim(Text1.Text) = Then MsgBox

24、 姓名不能为空!, vbOKOnly + vbExclamation, Text1.SetFocus（3）客人退房添加 rs_save.UpdateMsgBox 添加成功！, vbOKOnly + vbExclamation, （4）前台和后台相连Option ExplicitDim rs_sum As New ADODB.Recordset6.2 营业汇总模块6.2.1 营业汇总模块功能流程图如图6-11所示。开始启动用户登录系统主界面营业汇总方式按来源地按日期按床位数按床位数+日期按来源地+日期结束 图6-11 营业汇总模块功能流程图6.1.2 营业汇总类型窗体在营业汇总类型菜单中选择汇总

25、的方式。打开VB设计界面，选择“工程”-“添加窗体”命名该窗口，设置窗口标题为“锦江之星管理系统” 单击菜单栏中“工具”-“菜单编辑器”在标题栏中输入的“营业汇总”，名称一栏必须填写。点击“下一个”按钮然后点击向右的方向键在标题栏中输入的“按来源地汇总”，名称一栏必须填写。点击“下一个”按钮然后点击向右的方向键在标题栏中输入的“按日期汇总”，名称一栏必须填写。点击“下一个”按钮然后点击向右的方向键在标题栏中输入的“按床位数汇总”，名称一栏必须填写。点击“下一个”按钮然后点击向右的方向键在标题栏中输入的“按来源地+日期汇总”，名称一栏必须填写。点击“下一个”按钮然后点击向右的方向键在标题栏中输入

26、的“按日期+床位数汇总”，名称一栏必须填写。运行之后的界面显示如下结果如图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

27、()summary_menu = checkhuizong.Show 1End Sub（2）设置表头代码MSFlexGrid1.Row = 0MSFlexGrid1.Col = 0MSFlexGrid1.Text = 来源地MSFlexGrid1.Col = 1MSFlexGrid1.Text = 总金额MSFlexGrid1.Col = 2MSFlexGrid1.Text = 入退房If CDbl(rs_sum.Fields(1) “添加窗体”命名该窗口，设置窗口标题为“营业汇总”先添加一个“Label” 标题为“按日期汇总”再里面添加一个“MSFlexGrid”，最后在最下面添加一个按钮控

28、件标题为 “退出”，运行之后的界面显示如下结果如图6-20所示： 图6-18 图6-19图6-20 （1）下面是响应“按日期汇总”子菜单Click事件，调出货物汇总窗体代码。Private Sub summary_date_Click()summary_menu = datehuizong.Show 1End Sub（2）设置表头代码MSFlexGrid1.Row = 0MSFlexGrid1.Col = 0MSFlexGrid1.Text = 日期MSFlexGrid1.Col = 1MSFlexGrid1.Text = 总金额MSFlexGrid1.Col = 2MSFlexGrid1.T

29、ext = 入退房If CDbl(rs_sum.Fields(1) “添加窗体”命名该窗口，设置窗口标题为“营业汇总”先添加一个“Frame” 标题为“按床位数汇总”再里面添加一个“MSFlexGrid”，最后在最下面添加一个按钮控件标题为 “退出”，运行之后的界面显示如下结果如图6-23所示： 图6-21 图6-22图6-23 （1）下面是响应“按床位数汇总”子菜单Click事件，调出货物汇总窗体代码。Private Sub summary_custom_Click()summary_menu = customhuizong.Show 1End Sub （2）设置表头代码MSFlexGrid

30、1.Row = 0MSFlexGrid1.Col = 0MSFlexGrid1.Text = 床位数MSFlexGrid1.Col = 1MSFlexGrid1.Text = 总金额MSFlexGrid1.Col = 2MSFlexGrid1.Text = 入退房If CDbl(rs_sum.Fields(1) “添加窗体”命名该窗口，设置窗口标题为“营业汇总”先添加一个“Frame” 标题为“按床位数+日期汇总”再里面添加一个“MSFlexGrid”，最后在最下面添加一个按钮控件标题为 “退出”，运行之后的界面显示如下结果如图6-26所示： 图6-24 图6-25图6-26 （1）下面是响应

31、“按床位数+日期汇总”子菜单Click事件，调出货物汇总窗体代码。Private Sub sum_date_custom_Click()summary_menu = date_customhuizong.Show 1End Sub（2）设置表头代码MSFlexGrid1.Row = 0MSFlexGrid1.Col = 0MSFlexGrid1.Text = 按床位数+日期MSFlexGrid1.Col = 1MSFlexGrid1.Text = 总金额MSFlexGrid1.Col = 2MSFlexGrid1.Text = 入退房If CDbl(rs_sum.Fields(1) “添加窗体

32、”命名该窗口，设置窗口标题为“营业汇总”先添加一个“Frame” 标题为“按来源地+日期汇总”再里面添加一个“MSFlexGrid”，最后在最下面添加一个按钮控件标题为 “退出”，运行之后的界面显示如下结果如图6-29所示： 图6-27 图6-28图6-29 （1）下面是响应“按来源地+日期汇总”子菜单Click事件，调出货物汇总窗体代码。Private Sub sum_date_ menu _Click()summary_menu = date_ menu huizong.Show 1End Sub（2）设置表头代码MSFlexGrid1.Row = 0MSFlexGrid1.Col = 0

33、MSFlexGrid1.Text = 按来源地+日期MSFlexGrid1.Col = 1MSFlexGrid1.Text = 总金额MSFlexGrid1.Col = 2MSFlexGrid1.Text = 入退情况If CDbl(rs_sum.Fields(1) 0 ThenMSFlexGrid1.Col = 2MSFlexGrid1.Text = 退房ElseMSFlexGrid1.Text = rs_sum.Fields(1)MSFlexGrid1.Col = 2MSFlexGrid1.Text = 入住MSFlexGrid1.Row = MSFlexGrid1.Row + 1MSFl

34、exGrid1.Col = 0MSFlexGrid1.Text = (总计)MSFlexGrid1.Col = 1MSFlexGrid1.Text = addup （3）和后台数据库相连代码Option ExplicitDim rs_sum As New ADODB.RecordsetDim addup As Double sql = select按来源地，日期，日期,sum(金额) as 总金额 from 客户详况 group by按来源地，日期 order by sum(金额) rs_sum.CursorLocation = adUseClient rs_sum.Open sql, con

35、n, adOpenKeyset, adLockPessimistic addup = 0 MSFlexGrid1.Rows = rs_sum.RecordCount + 2 MSFlexGrid1.Cols = 3 （4）退出按钮控件代码Private Sub Command1_Click()Unload MeEnd Sub7系统的运行与扩展7.1系统的改进与扩展本系统中设计的系统基本上包含了日常酒店酒店管理中常用的功能，基本能够满足酒店的日常业务需求。但是，为了提高系统的运行效率，完善系统的功能，增强酒店信息的安全性。还可以从以下几个方面对本系统进行改进和扩展。（1）完善用户管理和权限管理功

36、能：权限管理可以通过角色定义来实现。在系统中定义几种不同的角色，每种角色的功能权限对应系统中不同的可用菜单项。每种角色的权限，由系统管理员设置。每登记一个新用户时，需要设置其相应的角色。这样，当有用户登录时，不但需要检查其密码，还要检查其用户权限，然后根据用户权限设置系统菜单的结构。（2）增加日志功能：当用户登录系统时，系统在后台记录下登录的时间和登录的名称，将这些信息写入到日志文件中。当用户登录成功进行各种操作时，系统在后台也会记录下操作时间、用户名称、操作类型等信息，写入到日志文件中。这样，当酒店的系统发现问题的时候，系统管理员可以通过查看日志文件来确认问题产生的根源。（3）增加报表功能：

37、利用PrintGrid控件可以方便地生成和打印报表，但该控件不是Visual Basic中自带控件，需要安装才能使用。（4）增加采购和销售对库存的自动盘点功能：本系统中库存盘点是需要人干预的，当酒店的销售和采购活动相当频繁时，这种方式就会影响酒店的正常业务运转。可对销售单和采购单的产生功能进行扩展，当每发生一个采购或者销售业务时，都应该自动调用库存盘点功能对库存进行结算。经过以上几方面的扩充和改进，本系统就可以完全胜任酒店的日常业务需求了。7.2运行与发布在Visual Basic集成环境中开发的程序，要想能够脱离Visual Basic集成环境运行，则需要编译并生成.exe文件或利用打包和展

38、开向导创建程序。（1）编译应用程序编译成应用程序就是将创建的应用程序以及它的工程文件合并成一个可执行文件。在编译成应用程序之前，首先应对该程序进行测试，排除有可能的错误。编译成应用程序之前还应该设置一些此工程文件的属性。打开“工程”菜单中的“属性”子菜单，进入工程属性窗口。在“通用”选项卡中可以输入一些此工程的工程类型、工程名、启动窗体，帮助文件等；在“生成”选项卡中可以输入一些此生产.exe执行文件时的属性信息，如程序版本号，可执行文件名，图标以及一些关于软件名、文件描述信息等，生成.exe可执行文件后，右击该文件选项属性则可以看到这些所选择的这些信息。输入完这些工程属性信息后，就可以进行编

39、译了。打开“文件”菜单中的“生成”子菜单，将进入编译状态，选择好要存放的位置和.exe文件名之后就可以了。编译成可执行文件后，该文件还只能在安装了Visual Basic的计算机上运行，不能在没有安装Visual Basic的计算机上运行，因为缺少许多应用程序运行时所必需是动态链接库。（2）使用打包和展开向导为了使应用程序能在任何机器上运行，则需要通过运行安装程序，将该系统运行所需的全部文件都安装于本地机上，通常，可以使用Visual Studio 6.0中的“Package&Deployment Wizard”工具进行打包，从而制成安装盘。8 心得体会随着毕业日子的到来，毕业设计也接近了尾声

40、。经过这段时间的奋战我的毕业设计终于完成了。现在回想起来做毕业设计的整个过程，颇有心得，其中有苦也有甜，艰辛同时又充满乐趣,不过乐趣尽在其中！通过本次毕业设计，没有接受任务以前觉得毕业设计只是对这几年来所学知识的单纯总结，但是通过这次做毕业设计发现毕业设计不仅是对前面所学知识的一种检验，而且也是对自己能力的一种提高。毕业设计不仅是对前面所学知识的一种检验，而且也是对自己能力的一种提高。通过这次毕业设计使我明白了自己原来知识还比较欠缺。自己要学习的东西还太多，以前老是觉得自己什么东西都会，什么东西都懂，有点眼高手低。通过这次毕业设计，我才明白学习是一个长期积累的过程，在以后的工作、生活中都应该不

41、断的学习，努力提高自己知识和综合素质。在这次毕业设计中也使我们的同学关系更进一步了，同学之间互相帮助，有什么不懂的大家在一起商量，听听不同的看法对我们更好的理解知识，还有不懂的问题，我们在陈老师的指导下，都一一解决，所以在这里非常感谢陈老师的帮助，还有我们这些可爱而活泼的同学。现在作品已经完成，一路走来，虽然有点累，但还是挺高兴的，在这一两个月里，我知道懂得的只是就是三年学习的总结，能做出来，真的很开心！我的心得也就这么多了，总之，这次毕业设计让我学习到很多。虽然结束了，但这只能是一个开始。今后要是做技术员，要学习的规范，程序设计要学的还有很多。在微型计算机控制领域，要学的实在太多，仅大学生涯

42、所学实在有限。我们只有对自己有了更高的要求，才能作为动力不断取得新的成绩! 不管学会的还是学不会的的确觉得困难比较多，真是万事开头难，不知道如何入手。9 致谢在此论文撰写过程中，要特别感谢我的导师陈老师的指导与督促，在这个过程中我得到了陈老师细致耐心全面的辅导，同时感谢他的谅解与包容，那么耐心。没有陈老师的帮助也就没有今天的这篇论文。求学历程是艰苦的，但又是快乐的。感谢我的班主任雎老师，谢谢他在这三年中为我们全班所做的一切，他不求回报，无私奉献的精神很让我感动，再次向他表示由衷的感谢。感谢我的室友们，从遥远的家来到这个城市里，是你们和我共同维系着彼此之间姐妹般的感情，维系着宿舍那份家的融洽。三

43、年了，仿佛就在昨天。三年里，我们没有红过脸，没有吵过嘴，没有发生上大学前所担心的任何不开心的事情。感谢我的爸爸妈妈，焉得谖草，言树之背，养育之恩，无以回报，你们永远健康快乐是我最大的心愿。在论文即将完成之际，我的心情无法平静，从开始进入课题到论文的顺利完成，有多少可敬的师长、同学、朋友给了我无言的帮助，在这里请接受我诚挚的谢意！10 参考文献1 邓振杰主编 Visual Basic程序设计 清华大学出版社2 柳青编著 VB实验与实训教程 高等教育出版社3 刘瑞新编著 Visual Basic程序设计教程 机械工程出版社 4 童爱红编著 Visual Basic 数据库编程 清华大学出版社 11

44、 附录（程序代码）在各个子窗体建立好以后，就可以根据各个子窗体的功能给他们添加代码了。（1）添加“增加用户”子窗体代码添加用户子窗体是用来增加用户的ID、密码以权限的。窗体部分代码的思路是，收集输入的表中的字符串，然后与数据库中的系统的用户数据比较，如果不存在，则允许添加。Private Sub Command1_Click()Dim sql As StringDim rs_add As New ADODB.RecordsetIf Trim(Text1.Text) = Then MsgBox 用户名不能为空, vbOKOnly + vbExclamation, Exit Sub Text1.S

45、etFocusElseIf Trim(Text2.Text) = Then MsgBox 密码不能为空, vbOKOnly + vbExclamation, Exit Sub Text2.SetFocusElse sql = select * from 系统管理 rs_add.Open sql, conn, adOpenKeyset, adLockPessimistic While (rs_add.EOF = False) If Trim(rs_add.Fields(0) = Trim(Text1.Text) Then MsgBox 已有这个用户, vbOKOnly + vbExclamati

46、on, Text1.SetFocus Text1.Text = Text2.Text = Text3.Text = Combo1.Text = Exit Sub Else rs_add.MoveNext End If Wend If Trim(Text2.Text) Trim(Text3.Text) Then MsgBox 两次密码不一致, vbOKOnly + vbExclamation, Text2.SetFocus Text2.Text = Text3.Text = Exit Sub ElseIf Trim(Combo1.Text) system And Trim(Combo1.Text

47、) guest Then MsgBox 请选择正确的用户权限, vbOKOnly + vbExclamation, Combo1.SetFocus Combo1.Text = Exit Sub Else rs_add.AddNew rs_add.Fields(0) = Text1.Text rs_add.Fields(1) = Text2.Text rs_add.Fields(2) = Combo1.Text rs_add.Update rs_add.Close MsgBox 添加用户成功, vbOKOnly + vbExclamation, Unload Me End IfEnd IfEnd IfEnd Sub（2） 修改密码子窗体修改密码子窗体是用来修改用户密码的。Private Sub Command1_Click()Dim rs_chang As New ADODB.RecordsetDim sql As StringIf Trim(Text3.Text = ) Then