当前位置:跳过导航链接计算机毕业设计首页 : VB计算机毕业设计 : 详细内容

VB饭店点菜管理系统(10)

来源:xiaoniu168.com 作者:本站原创 添加时间:2012-01-09 点击数:17651

计算机毕业设计业务信息管理功能介绍:

4.3.2 业务信息管理
(1)客人点餐
此模块是一个综合性功能模块,它可以管理客人从坐下点餐到厨房做菜以及客人用餐、最后到客人结账的详细的操作,如:登记时需选择菜品,列表中显示登记的商品名称、商品类别、商品规格、计量单位、单价、数量和金额。列表下边显示总数量、总金额、记录人和备注,同时 移动列表中选择的菜品可以看其做好后的效果图。

以下是引用片段:

其代码实现如下:
Private Sub btn添加_Click()
'判断当前的信息是不是允许等待结账(等待结帐指:用户先用餐,最后结账!)
'存储等待结账的信息
'1
If Val(Me.Text7.Text) <= 0 Then
   MsgBox "当前没有任何的消费商品!"
   Exit Sub
End If
If Val(Me.Text6.Text) > 0 Then
   MsgBox "有交费金额不能等待结帐!"
   Exit Sub
End If
'2
Call addData(0)
Call frmSell.updatelist(frmSell.boolShow单据)
Unload Me
End Sub

Private Sub ddd_DblClick()
'将当前的表格内容信息显示在frmSpxz中
If ddd.TextMatrix(ddd.Row, 0) = "" Then Exit Sub
frmSpXZ.Text2.Text = Trim(Me.ddd.TextMatrix(ddd.Row, 0))
frmSpXZ.Text1.Text = Trim(Me.ddd.TextMatrix(ddd.Row, 1))
frmSpXZ.Text3.Text = Trim(Me.ddd.TextMatrix(ddd.Row, 2))
frmSpXZ.Text4.Text = Trim(Me.ddd.TextMatrix(ddd.Row, 3))
frmSpXZ.Text5.Text = Trim(Me.ddd.TextMatrix(ddd.Row, 4))
frmSpXZ.Text6.Text = Trim(Me.ddd.TextMatrix(ddd.Row, 5))
frmSpXZ.Text7.Text = Trim(Me.ddd.TextMatrix(ddd.Row, 6))
frmSpXZ.Text8.Text = Trim(Me.ddd.TextMatrix(ddd.Row, 7))
Call ShowPicture(frmSpXZ.Picture1, Trim(ddd.TextMatrix(ddd.Row, 0)))
frmSpXZ.Show 1
End Sub

Private Sub ddd_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
'显示当前商品的图片
Me.Picture1.Visible = False
If ddd.Row <= 0 Then Exit Sub
If ddd.TextMatrix(ddd.Row, 0) = "" Then Exit Sub
If ShowPicture(Me.Picture1, ddd.TextMatrix(ddd.Row, 0)) = False Then Exit Sub
Me.Picture1.Move Me.ddd.Width - 2 * Me.Picture1.Width, Me.ddd.CellTop
Me.Picture1.Visible = True
End Sub

〖资料来源:计算机毕业论文 www.xiaoniu168.com

第11页为计算机毕业论文查询功能介绍......

下一篇:VB药品销售系统

【联系方式】

【本站信誉】

用心做计算机毕业设计论文网
计算机毕业设计客服
计算机毕业论文客服在线 计算机毕业论文客服在线
计算机毕业论文在线,计算机毕业设计在线