clsfront.cls

餐饮管理信息系统 my sql visual basic

VERSION 1.0 CLASS
BEGIN
  MultiUse = -1  'True
  Persistable = 0  'NotPersistable
  DataBindingBehavior = 0  'vbNone
  DataSourceBehavior  = 0  'vbNone
  MTSTransactionMode  = 0  'NotAnMTSObject
END
Attribute VB_Name = "clsFront"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = True
Attribute VB_PredeclaredId = False
Attribute VB_Exposed = False
Option Explicit
Public mrc As ADODB.Recordset
Public myBookmark As Variant
Public mcclean As Boolean
Public Function AddRec(DeskNO As String, Reserve As Date, Noon As Boolean, People As String, Discount As String, Payment As String, Comment As String) As Boolean
  Update = False
  Dim txtSQL As String
  Dim txtSQL1 As String
  Dim MsgText As String
  Dim mrcc As ADODB.Recordset
  Dim mrc As ADODB.Recordset
  If Not Testtxt(DeskNO) Then
        MsgBox "请输入桌位编号！", vbOKOnly + vbExclamation, "警告"
        txtDeskNO.SetFocus
        Exit Function
  End If
  If Noon = True Then
  txtSQL = "select * from 预订信息 where 桌位编号 = '" & Trim(DeskNO) & "' and  时间 = '" & Reserve & "' and 中晚餐 <> 0"
  '用于判断桌位号是否被预订了
  txtSQL1 = "select * from 前台营业 where 桌位编号 = '" & Trim(DeskNO) & "' and  时间 = '" & Reserve & "' and 中晚餐 <> 0"
   '用于判断桌位号是否被占用了
  Else
  txtSQL = "select * from 预订信息 where 桌位编号 = '" & Trim(DeskNO) & "' and  时间 = '" & Reserve & "' and 中晚餐 = 0"
   '用于判断桌位号是否被预订了
  txtSQL1 = "select * from 前台营业 where 桌位编号 = '" & Trim(DeskNO) & "' and  时间 = '" & Reserve & "' and 中晚餐 = 0"
   '用于判断桌位号是否被占用了
  End If
  Set mrcc = ExecuteSQL(txtSQL1, MsgText)
  Set mrc = ExecuteSQL(txtSQL, MsgText)
  If mrcc.EOF = False Or mrc.EOF = False Then
        MsgBox "该桌位号已被预订或正在使用中，请重新输入！", vbOKOnly + vbExclamation, "警告"
        mrcc.Close
        mrc.Close
  Else
        mrcc.AddNew
        mrcc.Fields(1) = Trim(DeskNO)
        mrcc.Fields(2) = Reserve
        If Noon = True Then
        mrcc.Fields(3) = 1
        Else
        mrcc.Fields(3) = 0
        End If
        mrcc.Fields(4) = Val(People)
        mrcc.Fields(5) = Val(Discount)
        mrcc.Fields(6) = Val(Payment)
        mrcc.Fields(7) = Val(Comment)
        mrcc.Fields(8) = UserName
        mrcc.Fields(9) = Date
        mrcc.Update
        MsgBox "前台营业信息添加成功！", vbOKOnly + vbExclamation, "添加前台营业信息"
        mrcc.Close
        Update = True
        End If
End Function
Sub AddMenu(DeskNO As String, Reserve As Boolean, Noon As Boolean, Dish As String)
  '保存顾客所点的菜
 Dim MsgText As String
 Dim mrc As ADODB.Recordset
 Dim i As Integer
 Dim txtSQL As String
 txtSQL = "select * from 菜单"
 Set mrc = ExecuteSQL(txtSQL, MsgText)
 For i = 0 To ListYou.ListCount - 1
    mrc.AddNew
    mrc.Fields(1) = Trim(DeskNO)
    mrc.Fields(2) = Reserve
    If Noon = True Then
        mrc.Fields(3) = 1
    Else
        mrc.Fields(3) = 0
    End If
    mrc.Fields(4) = ListYou.List(i)
    mrc.Fields(5) = 0   '标志
    mrc.Update
 Next
 mrc.Close
End Sub
Sub Delete()
 myBookmark = mrc.Bookmark
    If MsgBox("是否删除当前记录？", vbOKCancel, "删除当前记录") = vbOK Then
            mrc.MoveNext
            If mrc.EOF Then
                mrc.MoveFirst
                myBookmark = mrc.Bookmark
                mrc.MoveLast
                mrc.Delete
                mrc.Bookmark = myBookmark
                Call viewData
            Else
                myBookmark = mrc.Bookmark
                mrc.MovePrevious
                mrc.Delete
                mrc.Bookmark = myBookmark
                Call viewData
            End If
    Else
        mrc.Bookmark = myBookmark
    End If
End Sub
Sub EditRecord()
    mcclean = False
    myBookmark = mrc.Bookmark
End Sub
Sub LoadRecord()
    Dim txtSQL As String
    Dim MsgText As String
    txtSQL = "select * from 前台营业"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    mrc.MoveFirst
    myBookmark = mrc.Bookmark
    mcclean = True
End Sub
Function Update(DeskNO As String, Reserve As Date, Noon As Boolean, People As String, Discount As String, Payment As String, Comment As String) As Boolean
    Update = False
    Dim txtSQL As String
    Dim MsgText As String
    mrc.Fields(1) = Trim(DeskNO)
        mrc.Fields(2) = Reserve
        If Noon = True Then
        mrc.Fields(3) = 1
        Else
        mrc.Fields(3) = 0
        End If
        mrc.Fields(4) = Val(People)
        mrc.Fields(5) = Val(Discount)
        mrc.Fields(6) = Val(Payment)
        mrc.Fields(7) = Val(Comment)
        mrc.Fields(8) = UserName
        mrc.Fields(9) = Date
        mrc.Update
        MsgBox "前台营业信息编辑成功！", vbOKOnly + vbExclamation, "编辑前台营业信息"
        Update = True
        mrc.Bookmark = myBookmark
        mcclean = True
End Function
Function Count(DeskNO As String, time As String, Noon As Boolean, Discount As String) As Double
 Dim MsgText As String
 Dim mrc As ADODB.Recordset
 Dim mrcc As ADODB.Recordset
 Dim i As Integer
 Dim txtSQL As String
 If Noon = True Then
  txtSQL = "select 菜肴名称 from 菜单 where 桌位编号 = '" & Trim(DeskNO) & "' and  时间 = '" & time & "' and 中晚餐 <> 0"
 Else
  txtSQL = "select 菜肴名称 from 菜单 where 桌位编号 = '" & Trim(DeskNO) & "' and  时间 = '" & time & "' and 中晚餐 =0"
 End If
 '获取顾客所点的所有的菜
 Set mrc = ExecuteSQL(txtSQL, MsgText)
 Dim temp As Double
 temp = 0
 For i = 0 To mrc.RecordCount - 1
 txtSQL = "select 价格 from 菜肴信息 where 名称= '" & mrc.Fields(0) & "' "
 Set mrcc = ExecuteSQL(txtSQL, MsgText)
 temp = temp + mrcc.Fields(0)
 '计算总额
 Next
 mrcc.Close
 mrc.Close
 Count = temp * Val(Discount)
 '折扣计算
End Function