论文无忧网提供:计算机毕业论文范文|计算机毕业设计|计算机毕业论文
栏目导航 ASP JSP .NET VB6.0 JAVA VC VF DELPHI PB 计算机网络 计算机科学与技术 PHP 安卓APP 其他 C# 代写论文
当前位置: > 计算机 > .NET >

A450vb.net酒店管理系统+论文

  4 项目实现

4.1 数据库设计结果 内容来自www.paper51.com

    数据库基本表设计结构界图如下:

http://www.paper51.com

http://www.paper51.com

(4.1.1 优惠活动表设计图)

paper51.com

http://www.paper51.com

(4.1.2 客人信息表设计图) copyright paper51.com

paper51.com

(4.1.3 开台表设计图) paper51.com

http://www.paper51.com

(4.1.4 房台信息表设计图)

内容来自论文无忧网 www.paper51.com

http://www.paper51.com

(4.1.5 操作员表设计图) paper51.com

paper51.com

(4.1.6 点菜表设计图) http://www.paper51.com

内容来自www.paper51.com

(4.1.7 酒菜信息表设计图) http://www.paper51.com

数据库表结构联系图如下: http://www.paper51.com

copyright paper51.com

(4.1.8 酒店管理系统数据库表结构图)

内容来自www.paper51.com

4.2  应用程序设计

copyright paper51.com

4.2.1 登陆界面设计: http://www.paper51.com

copyright paper51.com

(4.2.1 用户登陆界面) 内容来自论文无忧网 www.paper51.com

    用户登陆界面的设计鉴于安全性的考虑采用了不使用dataset来存储,而使用dataread来快速读取数据,从而避免客户端存储登陆用户信息,登陆时会有严格的登陆条件限制,而且当条件符合登陆时还要验证用户的权限级别,从而确定其对数据库操作的权限,然后来决定其是否在相应模块有使用的权利. http://www.paper51.com

4.2.2 用户登陆后的主界面设计 paper51.com

http://www.paper51.com

(4.2.2 酒店管理系统主窗体)

paper51.com

其结构布局设计如下: 内容来自论文无忧网 www.paper51.com

4.2.2.1   第一部分  菜单项

http://www.paper51.com

菜单项有信息设置、信息查询、生成打印/结帐、数据统计、管理员设置、辅助工具、关于等七大项,其分别对应七大模块。

内容来自www.paper51.com

信息设置菜单中主要是添加、删除、修改等对客人和酒店的基本业务信息而操作的,然后往下面细分有客人信息设置、 房台信息设置 、酒菜信息设置、 优惠活动信息设置 、点菜、 退出,而其中把客人信息设置和开设房台业务整合在一起到客人信息设置模块。 http://www.paper51.com

信息查询菜单中主要是帮助及时查询房台的使用情况和入住客人的详细情况,其中划分了两个模块分别是房台使用情况和客人入住信息查询。 http://www.paper51.com

生成打印/结帐中主要是负责未结帐客户的消费清单的打印、客户结帐业务,下也有两大模块消费清单打印、结帐。

paper51.com

数据统计菜单项中主要是业务数据信息的信息分析统计,其中化分未三个模块分别是月数据统计、日数据统计、数据信息统计。

http://www.paper51.com

管理员设置菜单项中主要是管理帐号的管理、更改登陆帐号、数据库数据的初始化、数据库的备份和恢复等功能,模块划分为管理员管理、更改登陆帐户、期初设置、系统日志查看、数据备份、数据恢复项。

内容来自www.paper51.com

辅助工具菜单项的设计主要是为了在日常业务数据的管理中,提高数据的管理效率,其中有一些常用的工具,主要包括记事本、计算器、语音录制和提醒、屏幕键盘模块项。 paper51.com

关于菜单项是用户在使用的过程中获取简要帮助而设计,它包括系统、联系我两个模块。 内容来自论文无忧网 www.paper51.com

4.2.2.2   第二部分    工具栏 内容来自论文无忧网 www.paper51.com

在菜单项的下面列了若干工具栏,设计工具栏里放置了酒店管理业务中经常遇到的信息管理模块及工具,并添加了有代表说明性的图片和附有详细的备注提示供用户使用。

paper51.com

4.2.2.3   第三部分    窗体的主体

http://www.paper51.com

这一部分没有什么好说的,但是值得一提的是,主题正中显示welcome to my application!!!!字体,这是我自己设计的一个小程序,其效果是动态显示字体实现word里面彩色效果一样,其设计思路是利用编程的逻辑算法改变字体的属性以达到动态的效果,其代码如下:

http://www.paper51.com

'font colorchange copyright paper51.com

       If b = 1 Then

内容来自论文无忧网 www.paper51.com

           b += 1

paper51.com

           Label1.ForeColor = ColorDialog1.Color.Honeydew paper51.com

       ElseIf b = 2 Then

paper51.com

           b += 1

copyright paper51.com

           Label1.ForeColor = ColorDialog1.Color.GreenYellow copyright paper51.com

       ElseIf b = 3 Then

copyright paper51.com

           b += 1

http://www.paper51.com

           Label1.ForeColor = ColorDialog1.Color.Red http://www.paper51.com

       ElseIf b = 4 Then copyright paper51.com

           b -= 3

copyright paper51.com

           Label1.ForeColor = ColorDialog1.Color.SpringGreen copyright paper51.com

   End If

内容来自论文无忧网 www.paper51.com

4.2.2.4   第四部分  窗体的状态栏 内容来自论文无忧网 www.paper51.com

   状态栏有包括三部分左、中、右。左部分的实现是基本的属性设置;中

paper51.com

部分显示登陆帐户信息,其实现是同过用户在登陆窗口登陆的时候把其登陆的相关信息,传递到一个公共变量里面,然后在主窗口中显示出来;右边部分显示即时时间,其实现是通过一个控件timer并设置其属性ToolTipText来控制时间和获取提示信息。 copyright paper51.com

4.2.3 详细设计思路及涉及相关技术说明 paper51.com

4.2.3.1 客人信息设置窗体

copyright paper51.com

内容来自论文无忧网 www.paper51.com

(4.2.3 客人信息设置窗体界面)

paper51.com

    在此窗体中主要设计了数据表的添加、删除、更新操作等,其中重点在于此窗体涉及到多数据表的更新,和多数据表结合的数据处理技术,还有数据的动态显示效果,其设计周期在设计中占了相当时间,其部分重要代码如下:

paper51.com

Private Sub save()

paper51.com

       Try http://www.paper51.com

           Dim lszh AsString = TextBox1.Text

内容来自论文无忧网 www.paper51.com

          ……

内容来自www.paper51.com

           Const null AsString = ""

paper51.com

           rzrq = Today 内容来自www.paper51.com

           Select Casenull

copyright paper51.com

               Case TextBox2.Text 内容来自www.paper51.com

                   MessageBox.Show("姓名不能为空!", "警告:",MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1) paper51.com

               Case ComboBox1.Text

内容来自论文无忧网 www.paper51.com

                   If ds.Tables("房台信息").Rows.Count = 0 Then 内容来自www.paper51.com

                       MsgBox("已经没有可以入住的房间了", MsgBoxStyle.Exclamation, "警告") 内容来自论文无忧网 www.paper51.com

                                    Exit Sub copyright paper51.com

                   …… copyright paper51.com

                   Else copyright paper51.com

                       '设置开台表 http://www.paper51.com

                       If rs = "" Then rs = 0

copyright paper51.com

                       cm.CommandText = "insert into 开台(流水帐号,房台号,人数,押金,入住日期) values (" & CInt(lszh)& ",'" & fth & "'," & CInt(rs) & ",'" & yj &"','" & rzrq & "')"

paper51.com

                       cn.Open()

http://www.paper51.com

                       cm.ExecuteNonQuery()

http://www.paper51.com

                       cn.Close() copyright paper51.com

                       '设置房台为使用或预定状态 http://www.paper51.com

                       cm.CommandText = "update 房台信息 set 状态='使用' where 房台号='" & TextBox4.Text& "'"

内容来自www.paper51.com

                       cn.Open() 内容来自www.paper51.com

                       cm.ExecuteReader() copyright paper51.com

                       cn.Close()

内容来自论文无忧网 www.paper51.com

                       '这里重新生成一个流水帐号

http://www.paper51.com

                       TextBox1.Text = "";  TextBox2.Text = "" ;TextBox3.Text = ""

paper51.com

                       TextBox4.Text = "";  TextBox5.Text = "" ;TextBox6.Text = "" 内容来自论文无忧网 www.paper51.com

                       TextBox7.Text = ""

内容来自论文无忧网 www.paper51.com

                       createindex()

http://www.paper51.com

                       '重新填充数据 paper51.com

                       cn.Open() 内容来自论文无忧网 www.paper51.com

                       ds.Clear()

内容来自论文无忧网 www.paper51.com

                       cm.Connection = cn paper51.com

                       cm.CommandText = "select * from 客人信息"

内容来自www.paper51.com

                       customerda.SelectCommand = cm 内容来自论文无忧网 www.paper51.com

                       customerda.Fill(ds, "客人信息")

paper51.com

                       cm.CommandText = "select * from 房台信息 where 状态='空闲'"

内容来自论文无忧网 www.paper51.com

                        houseda.SelectCommand= cm

内容来自论文无忧网 www.paper51.com

                       houseda.Fill(ds, "房台信息")

paper51.com

                       cm.CommandText = "select * from 开台" 内容来自论文无忧网 www.paper51.com

                       setupda.SelectCommand = cm

内容来自论文无忧网 www.paper51.com

                       setupda.Fill(ds, "开台")

内容来自论文无忧网 www.paper51.com

                        cn.Close()

内容来自www.paper51.com

                       MsgBox("录入成功", MsgBoxStyle.Information, "消息")

内容来自论文无忧网 www.paper51.com

                   End If 内容来自论文无忧网 www.paper51.com

           End Select paper51.com

       Catch ex AsSqlException copyright paper51.com

           MsgBox(ex.ToString) 内容来自www.paper51.com

       End Try

copyright paper51.com

End Sub paper51.com

------分隔线----------------------------
联系方式