frmmodifyfront.frm

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

      End
      Begin VB.CommandButton firstCommand 
         Caption         =   "第一条记录"
         BeginProperty Font 
            Name            =   "宋体"
            Size            =   9
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         Height          =   492
         Left            =   240
         TabIndex        =   6
         Top             =   360
         Width           =   1452
      End
   End
   Begin VB.Frame Frame3 
      Caption         =   "修改前台营业信息"
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1092
      Left            =   240
      TabIndex        =   0
      Top             =   7320
      Width           =   7455
      Begin VB.CommandButton cmdCount 
         Caption         =   "结算"
         Height          =   492
         Left            =   1672
         TabIndex        =   10
         Top             =   390
         Width           =   1230
      End
      Begin VB.CommandButton deleteCommand 
         Caption         =   "删除记录"
         Height          =   492
         Left            =   4476
         TabIndex        =   4
         Top             =   390
         Width           =   1230
      End
      Begin VB.CommandButton Command2 
         Caption         =   "关闭退出"
         Height          =   492
         Left            =   5880
         TabIndex        =   3
         Top             =   390
         Width           =   1230
      End
      Begin VB.CommandButton updateCommand 
         Caption         =   "保存记录"
         Height          =   492
         Left            =   3074
         TabIndex        =   2
         Top             =   390
         Width           =   1230
      End
      Begin VB.CommandButton editCommand 
         Caption         =   "修改记录"
         Height          =   492
         Left            =   270
         TabIndex        =   1
         Top             =   390
         Width           =   1230
      End
   End
End
Attribute VB_Name = "frmModifyFront"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim objFront As clsFront



Private Sub cancelCommand_Click()
 Unload Me
End Sub





Private Sub cmdCount_Click()
 
 txtPayment.Text = CStr(objFront.Count(txtDeskNO.Text, txtTime.Text, OpA.Value, txtDiscount.Text))
 MsgBox "应付款" & txtPayment.Text & "元"
End Sub

Private Sub cmdDrop_Click()
ListYou.RemoveItem (ListYou.ListIndex)
End Sub

Private Sub cmdSelect_Click()
Dim strtemp As String
        strtemp = Me.ListAll.List(ListAll.ListIndex)
     
       Me.ListYou.AddItem strtemp
End Sub

Private Sub deleteCommand_Click()
objFront.Delete
End Sub

Private Sub editCommand_Click()
    objFront.EditRecord
    Frame2.Enabled = False
    firstCommand.Enabled = False
    previousCommand.Enabled = False
    nextCommand.Enabled = False
    lastCommand.Enabled = False
    txtPeople.Enabled = True
    txtDiscount.Enabled = True
    txtPayment.Enabled = True
    cmdSelect.Enabled = True
    cmdDrop.Enabled = True
    txtComment.Enabled = True
   
End Sub

Private Sub firstCommand_Click()
   objFront.mrc.MoveFirst
    Call viewData
End Sub

Private Sub Form_Load()
     
    Set objFront = New clsFront
    objFront.LoadRecord
    Call viewData
    txtDeskNO.Enabled = False
    txtTime.Enabled = False
    OpA.Enabled = False
    OpP.Enabled = False
    txtPeople.Enabled = False
    txtDiscount.Enabled = False
    txtPayment.Enabled = False
    cmdSelect.Enabled = False
    cmdDrop.Enabled = False
    txtComment.Enabled = False
    IniTotalMenu
    '初始化菜单目录
End Sub

Public Sub viewData()
    txtDeskNO.Text = objFront.mrc.Fields(1)
    txtTime.Text = objFront.mrc.Fields(2)
    If objFront.mrc.Fields(3) <> 0 Then
        OpA.Value = True
    Else
        OpP.Value = True
    End If
    txtPeople.Text = objFront.mrc.Fields(4)
    txtDiscount.Text = objFront.mrc.Fields(5)
    txtPayment.Text = objFront.mrc.Fields(6)
    txtComment.Text = objFront.mrc.Fields(7)
    GetMenu
End Sub

Private Sub lastCommand_Click()
 objFront.mrc.MoveLast
    Call viewData
End Sub

Private Sub nextCommand_Click()
 objFront.mrc.MoveNext
    If objFront.mrc.EOF Then
        objFront.mrc.MoveFirst
    End If
    Call viewData
End Sub

Private Sub previousCommand_Click()
 objFront.mrc.MovePrevious
    If objFront.mrc.BOF Then
        objFront.mrc.MoveLast
    End If
    Call viewData
End Sub



Private Sub updateCommand_Click()
   If objFront.Update(txtDeskNO.Text, txtTime.Text, OpA.Value, txtPeople.Text, txtDiscount.Text, txtPayment.Text, txtComment.Text) = True Then
    RefreshMenu
    '更新顾客所点的菜单
    End If
    Call viewData
    Frame2.Enabled = True
    firstCommand.Enabled = True
    previousCommand.Enabled = True
    nextCommand.Enabled = True
    lastCommand.Enabled = True
    txtDeskNO.Enabled = False
    txtTime.Enabled = False
    OpA.Enabled = False
    OpP.Enabled = False
    txtPeople.Enabled = False
    txtDiscount.Enabled = False
    txtPayment.Enabled = False
    cmdSelect.Enabled = False
    cmdSelect.Enabled = False
    txtComment.Enabled = False
  
End Sub
Sub RefreshMenu()

Dim MsgText As String
 Dim mrc As ADODB.Recordset
 Dim i As Integer
 Dim txtSQL As String
 txtSQL = "select * from 菜单 where 桌位编号 = '" & Trim(txtDeskNO.Text) & "' and  时间 = '" & txtTime.Text & "' and 中晚餐 <> 0"
 Set mrc = ExecuteSQL(txtSQL, MsgText)
 
 SaveMenu

 mrc.Close
 End Sub
Sub SaveMenu()

 Dim MsgText As String
 Dim mrc As ADODB.Recordset
 Dim i As Integer
 Dim txtSQL As String
 txtSQL = "delete  from 菜单 where 桌位编号 = '" & Trim(txtDeskNO.Text) & "' and  时间 = '" & txtTime.Text & "' and 中晚餐 <> 0"
 ExecuteSQL txtSQL, MsgText
 txtSQL = "select * from 菜单"
 Set mrc = ExecuteSQL(txtSQL, MsgText)
 
 For i = 0 To ListYou.ListCount - 1
 mrc.AddNew
   mrc.Fields(1) = Trim(txtDeskNO.Text)
    mrc.Fields(2) = txtTime.Text
    If OpA.Value = True Then
        mrc.Fields(3) = 1
    Else
        mrc.Fields(3) = 0
    End If
    mrc.Fields(4) = ListYou.List(i)
    mrc.Fields(5) = 1
    mrc.Update
 Next
 
 mrc.Close
End Sub
Sub GetMenu()
    ListYou.Clear
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset
    If OpA.Value = True Then
       txtSQL = "select 菜肴名称 from 菜单 where 桌位编号 = '" & Trim(txtDeskNO.Text) & "' and  时间 = '" & txtTime.Text & "' and 中晚餐 <> 0"
  
    Else
        txtSQL = "select 菜肴名称 from 菜单 where 桌位编号 = '" & Trim(txtDeskNO.Text) & "' and  时间 = '" & txtTime.Text & "' and 中晚餐 = 0"
    End If
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    Dim i As Integer
    For i = 0 To mrc.RecordCount - 1
    ListYou.AddItem mrc.Fields(0)
    mrc.MoveNext
    Next
    mrc.Close
End Sub
Sub IniTotalMenu()
    Dim txtSQL As String
    Dim MsgText As String
    Dim mrc As ADODB.Recordset
    txtSQL = "select * from 菜肴信息"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    Dim i As Integer
    For i = 0 To mrc.RecordCount - 1
        ListAll.AddItem mrc.Fields(0)
        mrc.MoveNext
    Next
    mrc.Close
End Sub