餐饮信息管理系统的设计与实现

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

毕业设计（论文）报告纸

Cmd = \ money = (sqlobject.SQL_Ada(Cmd).Rows(0).Item(0)) a = money + b

CmdStr = %user_id='\

sqlobject.ExecCmd(CmdStr) //更新充值后的用户数据库 MsgBox(\充值成功\ Catch ex As Exception main.OPErr.WriteErr(ex) End Try

sqlobject = New SQL_Conn

CmdStr = \客户姓名',id as '身份证',money as '余额' FROM customer\ Try

Me.DataGridView1.DataSource = sqlobject.SQL_Ada(CmdStr) Catch ex As Exception main.OPErr.WriteErr(ex) End Try

Me.DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.DisplayedCells Label4.Text = \ Label5.Text = \ Label6.Text = \ TextBox1.Text = \ Else : MsgBox(\请输入金额\ End If

Else : MsgBox(\请选择客户\ End If

第 32 页 共 42 页

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

毕业设计（论文）报告纸

用户充值其实是更新数据库中两张表的内容，系统先把客户的账户余额和用户的实收金额从数据库中调出来，加上用户的充值金额后，再把更新后的金额填入数据库。再用同样的方法对用户收款金额进行更新。两张数据表的作用不同，客户表中的数据指客户的账户余额，用户表中的数据指用户收款金额，方便店长查询员工的收款金额。

4.5.2 客户结算

图4.8 客户买单

买单分为现金支付和余额支付

现金支付：客户使用现金支付的话会增加用户的收款金额，方法和上面的用户充值类似

余额支付：用户若选择余额支付的话需要使用客户密码验证客户身份，然后系统会从数据库中调出客户余额情况，若客户余额不足，系统会给出提示。若余额足够支付客户的消费金额，系统会在客户余额中扣除消费金额。

余额支付和现金支付的最大区别就是余额支付扣客户账户金额，现金支付增加用户实收金额

4.6 折扣设定

折扣设定其实就是往数据库discount表中添加以消费金额与其对应的折扣程度，在操作中要切记折扣金额从小到大依次添加因为系统在为客户打折时是从折扣表的第0行开始向后依次类推为客户查询对应的折扣程度，所以若表中数据顺序打乱的

第 33 页 共 42 页

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

毕业设计（论文）报告纸

话，系统得到的折扣程度会变高。

4.7 用户管理

4.7.1 用户的添加

图4.9 用户添加

系统先对填入的数据进行核对，确认没有和数据库中的已有数据重复且符合要求后系统会将其添加到user表中。

4.7.2 用户的删除

用户删除模块的设计要考虑几个问题：1、删除的是管理员（店长）还是普通职员。2、如果删除的是管理员，那么数据库里还有没有其他管理员权限的账号以便下次使用。3、如果删除的账号就是管理员现在所使用的账号怎么办。

用户删除模块的主要代码如下：

Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim i As Integer Dim j As String j = \店长\

If TextBox4.Text = \

第 34 页 共 42 页

┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ 装 ┊ ┊ ┊ ┊ ┊ 订 ┊ ┊ ┊ ┊ ┊ 线 ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊ ┊

毕业设计（论文）报告纸

MsgBox(\请选择要删除的员工\ Else

If ComboBox1.Text = \店长\

CmdStr = \ i = sqlobject.SQL_Ada(CmdStr).Rows.Count //店长级别员工数量 If i > 1 Then

CmdStr = \TextBox4.Text + \ Try

sqlobject.ExecCmd(CmdStr)

If TextBox1.Text = userid Then //删除的账号是正在登陆的账号 MsgBox(\删除成功,请重新登录\ main.m_style = \ main.m_Login = False

For Each ChildForm As Form In Me.MdiChildren ChildForm.Close() Next

main.main_Load(sender, e) Login.Show()

main.ToolStripStatusLabel1.Text = \登录\ Me.Close() Else

MsgBox(\删除成功\ End If

Catch ex As Exception main.OPErr.WriteErr(ex) End Try

Else : MsgBox(\至少保留一个店长用户\

第 35 页 共 42 页