锦江饭店餐饮管理信息系统 第12页

锦江饭店餐饮管理信息系统 第12页
系统实施、测试与文护
5.1 系统环境
5.1.1 硬件环境要求
推荐Pentium 或更高的处理器，或任何运行于Microsoft Windows Workstation的Alpha处理器。
Microsoft Windows支持的VGA或分辨率更高的监视器。
64MB内存以上。
驱动器包括软驱、光驱和硬盘。
彩色显示器、打印机、鼠标或其他定点设备。
打印机：POS58热敏打印机三台， 58mm打印纸
电  源：UPS不间断电源  五台
双绞线：一箱
水晶头：若干
5.1.2 软件环境要求
本套餐饮系统是在Microsoft Windows Xp 下开发的，所采用的开发工具是Microsoft公司的Visual Basic 6.0企业版。考虑到餐饮行业每天的数据处理量，后台采用了Microsoft的SQL Server 2000数据库，这样合理的应用，提高了数据处理的速度。用户如果在Windows 98操作系统下使用本系统，则使用SQL Server 2000个人版。
推荐桌面显示方式：1024×768像素。
5.2 系统的实施
随着我国国民经济的发展，饭店餐饮业迅速成长，为了在竞争中发展壮大，就迫切需要先进的管理手段，拥有饭店餐饮管理信息系统是现代化饭店的标志，它对饭店的市场形象、服务水平、管理水平和经济效益都有至关重要的影响。而本系统就是针对现代餐饮业的特点，经过一段时间的调查研究而进行分析设计的。这样就能够良好的解决餐饮行业普遍存在的问题。缩短了手工操作的时间、避免了手工操作中的失误，很好的解决了大量数据的存储以及查询问题。
锦江饭店餐饮管理信息系统 第12页包括前台管理、后台管理、财政管理、系统管理、系统初始化和应付账款管理。
1．前台管理模块
前台管理模块包括了开台功能、点菜功能和结账功能。饭店服务员可以随客人的意愿对客人指定的没有使用的餐台进行开台任务。在开台界面上有饭店的所有菜系名称，根据客人的点菜要求进行点菜的输入操作。并且有相应的单据号自动更新显示。等客人用餐结束后，可以通过计算机自动算出客人本次用餐消费的金额进行客人买单的操作。
2．后台管理模块
后台管理主要是针对饭店的进货、出货的情况进行的管理。每次，采购部从供应商处采购回来的物品都要通过餐饮管理系统进行货物信息的录入，包括信息录入的单据号、录入的时间、购买的物品名称、进价、物品的数量以及物品的等级、经手人是谁。这样就能够方便采购部对采购情况的掌握，便于以后的查询和金额的统计。而后台管理还包括对员工信息的查询、商品信息的查询以及商品信息的管理。这样就能够让饭店员工及时准确地查询到自己所需要的信息，更方便饭店领导对基层工作情况的准确掌握。
3．财政管理模块
财政管理则是系统对每个月的饭店销售业务进行金额上的统计，当一个月的工作结束后，可以通过餐饮系统的月结算功能进行一个月的流水金额统计。财政管理还包括了月营业分析以及年营业分析，这样就方便了餐饮部和财务部的结账对账工作，也能够方便财务部门人员对饭店整体运营状况的统计，使饭店的决策领导通过对统计结果的分析，准确地制定饭店的决策方向，做出正确的指令，避免由于数据上的失误而给饭店带来不可弥补的损失。
4．系统管理模块
一套管理系统包括很多的功能模块，但是并不是每一名使用者都能够有权利使用系统中的每一个功能的，所以这套餐饮管理信息系统所进行的设计是要根据每一名员工所赋予的权限进行登陆，通过身份验证之后进入不同的系统界面。
5．系统初始化模块
系统初始化模块主要是负责对供应商、房间类型、部门、仓库以及员工级别的信息录入和管理工作。可以说，这部分的信息管理是整个锦江饭店最重要的信息资源管理。
6．应付账款管理模块
这部分主要管理的是当供应商给饭店提供商品时，饭店对未付给供应商结款的管理。
为了更加详细的对系统实施进行描述，特此列举了以下两个例子。
 
图5-1 点菜界面图
实现此功能的代码如下所示。
Private Sub grid1_KeyDown(KeyCode As Integer, Shift As Integer)
If KeyCode = vbKeyReturn Then
With Adodc2.Recordset
If .RecordCount > 0 Then
If .Fields("本级名称") <> "" Then
If .Fields("本级名称") <> "" Then MS1.TextMatrix(MS1.Row, 1) = Trim(.Fields("本级名称"))
If .Fields("商品编号") <> "" Then MS1.TextMatrix(MS1.Row, 2) = Trim(.Fields("商品编号"))
If .Fields("单位") <> "" Then MS1.TextMatrix(MS1.Row, 3) = Trim(.Fields("单位"))
If .Fields("单价") <> "" Then MS1.TextMatrix(MS1.Row, 4) = .Fields("单价")
Text1.text = MS1.text
Text1.SetFocus
MS1.Col = 5
grid1.Visible = False
Else MsgBox ("无数据选择!!!")
grid1.Visible = False Text1.SetFocus
End If
End If
End Sub
 
图5-2 买单界面图
实现此功能的代码如下所示。
Private Sub Comnoagio_Click()
If Frame10.Visible = False Then
    mystr = MsgBox("确认不打折结账吗？", vbYesNo)
    If mystr = vbYes Then
rs1.Open "select * from 日结账表 order by 结账单据号", cnn, adOpenKeyset, adLockOptimistic
    rs1.AddNew
    rs1.Fields("结账单据号") = labdjh.Caption
    rs1.Fields("房台编号") = main_qtgl_mdgl.Label4(0).Caption
    rs1.Fields("日期") = Now
    rs1.Fields("结款金额") = Val(Labyfje.Caption)
    rs1.Fields("结款人") = Trim(Labxm.Caption)
    rs1.Fields("结款方式") = "现金"
    rs1.Fields("结款说明") = "现金结款" & Val(Labyfje.Caption) & "元"
    rs1.Update

 << 上一页  [11] [12] [13] [14] [15] 下一页

锦江饭店餐饮管理信息系统 第12页下载如图片无法显示或论文不完整，请联系qq752018766