|
4 项目实现 4.1 数据库设计结果 copyright paper51.com 数据库基本表设计结构界图如下: 内容来自www.paper51.com
http://www.paper51.com
(4.1.1 优惠活动表设计图) paper51.com
paper51.com (4.1.2 客人信息表设计图) 内容来自www.paper51.com 内容来自论文无忧网 www.paper51.com (4.1.3 开台表设计图) http://www.paper51.com 内容来自论文无忧网 www.paper51.com (4.1.4 房台信息表设计图) 内容来自www.paper51.com
copyright paper51.com (4.1.5 操作员表设计图) 内容来自论文无忧网 www.paper51.com
http://www.paper51.com (4.1.6 点菜表设计图) 内容来自www.paper51.com paper51.com (4.1.7 酒菜信息表设计图) 内容来自www.paper51.com 数据库表结构联系图如下: 内容来自论文无忧网 www.paper51.com 内容来自www.paper51.com (4.1.8 酒店管理系统数据库表结构图) http://www.paper51.com 4.2 应用程序设计 paper51.com 4.2.1 登陆界面设计: 内容来自论文无忧网 www.paper51.com
内容来自www.paper51.com (4.2.1 用户登陆界面) copyright paper51.com 用户登陆界面的设计鉴于安全性的考虑采用了不使用dataset来存储,而使用dataread来快速读取数据,从而避免客户端存储登陆用户信息,登陆时会有严格的登陆条件限制,而且当条件符合登陆时还要验证用户的权限级别,从而确定其对数据库操作的权限,然后来决定其是否在相应模块有使用的权利. 内容来自www.paper51.com 4.2.2 用户登陆后的主界面设计 内容来自www.paper51.com
paper51.com (4.2.2 酒店管理系统主窗体) 内容来自www.paper51.com 其结构布局设计如下: copyright paper51.com 4.2.2.1 第一部分 菜单项 copyright paper51.com 菜单项有信息设置、信息查询、生成打印/结帐、数据统计、管理员设置、辅助工具、关于等七大项,其分别对应七大模块。 http://www.paper51.com 信息设置菜单中主要是添加、删除、修改等对客人和酒店的基本业务信息而操作的,然后往下面细分有客人信息设置、 房台信息设置 、酒菜信息设置、 优惠活动信息设置 、点菜、 退出,而其中把客人信息设置和开设房台业务整合在一起到客人信息设置模块。 paper51.com 信息查询菜单中主要是帮助及时查询房台的使用情况和入住客人的详细情况，其中划分了两个模块分别是房台使用情况和客人入住信息查询。 paper51.com 生成打印/结帐中主要是负责未结帐客户的消费清单的打印、客户结帐业务，下也有两大模块消费清单打印、结帐。 内容来自www.paper51.com 数据统计菜单项中主要是业务数据信息的信息分析统计，其中化分未三个模块分别是月数据统计、日数据统计、数据信息统计。 http://www.paper51.com 管理员设置菜单项中主要是管理帐号的管理、更改登陆帐号、数据库数据的初始化、数据库的备份和恢复等功能，模块划分为管理员管理、更改登陆帐户、期初设置、系统日志查看、数据备份、数据恢复项。 paper51.com 辅助工具菜单项的设计主要是为了在日常业务数据的管理中，提高数据的管理效率，其中有一些常用的工具，主要包括记事本、计算器、语音录制和提醒、屏幕键盘模块项。 http://www.paper51.com
关于菜单项是用户在使用的过程中获取简要帮助而设计，它包括系统、联系我两个模块。 paper51.com 4.2.2.2 第二部分 工具栏 copyright paper51.com 在菜单项的下面列了若干工具栏，设计工具栏里放置了酒店管理业务中经常遇到的信息管理模块及工具，并添加了有代表说明性的图片和附有详细的备注提示供用户使用。 内容来自论文无忧网 www.paper51.com 4.2.2.3 第三部分 窗体的主体 http://www.paper51.com
这一部分没有什么好说的，但是值得一提的是，主题正中显示welcome to my application！！！！字体，这是我自己设计的一个小程序，其效果是动态显示字体实现word里面彩色效果一样，其设计思路是利用编程的逻辑算法改变字体的属性以达到动态的效果，其代码如下： paper51.com
'font colorchange paper51.com
If b = 1 Then 内容来自www.paper51.com b += 1 paper51.com Label1.ForeColor = ColorDialog1.Color.Honeydew http://www.paper51.com
ElseIf b = 2 Then 内容来自www.paper51.com b += 1 paper51.com Label1.ForeColor = ColorDialog1.Color.GreenYellow copyright paper51.com ElseIf b = 3 Then http://www.paper51.com b += 1 内容来自www.paper51.com
Label1.ForeColor = ColorDialog1.Color.Red http://www.paper51.com
ElseIf b = 4 Then copyright paper51.com b -= 3 http://www.paper51.com Label1.ForeColor = ColorDialog1.Color.SpringGreen paper51.com End If copyright paper51.com
4.2.2.4 第四部分 窗体的状态栏 内容来自论文无忧网 www.paper51.com 状态栏有包括三部分左、中、右。左部分的实现是基本的属性设置；中 内容来自www.paper51.com 部分显示登陆帐户信息，其实现是同过用户在登陆窗口登陆的时候把其登陆的相关信息，传递到一个公共变量里面，然后在主窗口中显示出来；右边部分显示即时时间，其实现是通过一个控件timer并设置其属性ToolTipText来控制时间和获取提示信息。 copyright paper51.com
4.2.3 详细设计思路及涉及相关技术说明 paper51.com
4.2.3.1 客人信息设置窗体 copyright paper51.com copyright paper51.com (4.2.3 客人信息设置窗体界面) http://www.paper51.com 在此窗体中主要设计了数据表的添加、删除、更新操作等，其中重点在于此窗体涉及到多数据表的更新，和多数据表结合的数据处理技术，还有数据的动态显示效果，其设计周期在设计中占了相当时间，其部分重要代码如下: paper51.com Private Sub save() paper51.com Try 内容来自论文无忧网 www.paper51.com Dim lszh AsString = TextBox1.Text copyright paper51.com …… copyright paper51.com Const null AsString = "" paper51.com
rzrq = Today paper51.com Select Casenull http://www.paper51.com Case TextBox2.Text http://www.paper51.com MessageBox.Show("姓名不能为空!", "警告:",MessageBoxButtons.OK, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1) paper51.com
Case ComboBox1.Text paper51.com
If ds.Tables("房台信息").Rows.Count = 0 Then 内容来自论文无忧网 www.paper51.com MsgBox("已经没有可以入住的房间了", MsgBoxStyle.Exclamation, "警告") 内容来自论文无忧网 www.paper51.com Exit Sub paper51.com …… http://www.paper51.com Else 内容来自论文无忧网 www.paper51.com '设置开台表 paper51.com If rs = "" Then rs = 0 http://www.paper51.com
cm.CommandText = "insert into 开台(流水帐号,房台号,人数,押金,入住日期) values (" & CInt(lszh)& ",'" & fth & "'," & CInt(rs) & ",'" & yj &"','" & rzrq & "')" 内容来自www.paper51.com
cn.Open() http://www.paper51.com cm.ExecuteNonQuery() copyright paper51.com
cn.Close() copyright paper51.com '设置房台为使用或预定状态 内容来自www.paper51.com cm.CommandText = "update 房台信息 set 状态='使用' where 房台号='" & TextBox4.Text& "'" 内容来自论文无忧网 www.paper51.com cn.Open() 内容来自论文无忧网 www.paper51.com
cm.ExecuteReader() 内容来自www.paper51.com cn.Close() paper51.com '这里重新生成一个流水帐号 内容来自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 '重新填充数据 内容来自www.paper51.com cn.Open() paper51.com ds.Clear() paper51.com cm.Connection = cn 内容来自www.paper51.com cm.CommandText = "select * from 客人信息" 内容来自www.paper51.com customerda.SelectCommand = cm 内容来自论文无忧网 www.paper51.com customerda.Fill(ds, "客人信息") 内容来自www.paper51.com
cm.CommandText = "select * from 房台信息 where 状态='空闲'" 内容来自www.paper51.com houseda.SelectCommand= cm http://www.paper51.com houseda.Fill(ds, "房台信息") http://www.paper51.com cm.CommandText = "select * from 开台" copyright 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 http://www.paper51.com End Select copyright paper51.com Catch ex AsSqlException paper51.com MsgBox(ex.ToString) copyright paper51.com
End Try copyright paper51.com End Sub http://www.paper51.com |