frmmodifyexpand.frm

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

         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   375
      Left            =   4200
      TabIndex        =   29
      Top             =   1800
      Width           =   1095
   End
   Begin VB.Label 应付款 
      Caption         =   "应付款："
      Height          =   375
      Left            =   4320
      TabIndex        =   25
      Top             =   1200
      Width           =   855
   End
   Begin VB.Label Label2 
      Alignment       =   2  'Center
      Caption         =   "折扣："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   720
      TabIndex        =   24
      Top             =   1200
      Width           =   1095
   End
   Begin VB.Label Label5 
      Alignment       =   2  'Center
      Caption         =   "负责员工编号："
      BeginProperty Font 
         Name            =   "宋体"
         Size            =   9
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   255
      Left            =   120
      TabIndex        =   23
      Top             =   480
      Width           =   1695
   End
   Begin VB.Label Label3 
      Caption         =   "时间："
      Height          =   375
      Left            =   4440
      TabIndex        =   22
      Top             =   480
      Width           =   615
   End
End
Attribute VB_Name = "frmModifyExpand"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit
Dim mrc As ADODB.Recordset
Dim myBookmark As Variant
Dim mcclean As Boolean


Private Sub cancelCommand_Click()
 Unload Me
End Sub





Private Sub cmdCount_Click()
Dim MsgText As String
 Dim mrc As ADODB.Recordset
 Dim mrcc 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)
 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
temp = temp * Val(txtDiscount.Text)
txtPayment.Text = CStr(temp)
MsgBox "应付款" & CStr(temp) & "元"

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)
       ' If strtemp = "" Then Exit Sub
       Me.ListYou.AddItem strtemp
End Sub

Private Sub deleteCommand_Click()
  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
        Call viewData
    End If
End Sub

Private Sub editCommand_Click()

 mcclean = False
    Frame2.Enabled = False
    firstCommand.Enabled = False
    previousCommand.Enabled = False
    nextCommand.Enabled = False
    lastCommand.Enabled = False
    
   
    txtDiscount.Enabled = True
    txtPayment.Enabled = True
    cmdSelect.Enabled = True
    cmdDrop.Enabled = True
    txtComment.Enabled = True
    
    myBookmark = mrc.Bookmark
End Sub

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

Private Sub Form_Load()

   
    Dim txtSQL As String
    Dim MsgText As String
    
    txtSQL = "select * from 外卖服务"
    Set mrc = ExecuteSQL(txtSQL, MsgText)
    
    
    
    mrc.MoveFirst
    Call viewData
    myBookmark = mrc.Bookmark
    mcclean = True
   
   
    txtDeskNO.Enabled = False
    txtTime.Enabled = False
    OpA.Enabled = False
    OpP.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 = mrc.Fields(1)
 txtTime.Text = mrc.Fields(2)
 If mrc.Fields(3) <> 0 Then
 OpA.Value = True
Else
   OpP.Value = True
                End If
             
               txtDiscount.Text = mrc.Fields(4)
               txtPayment.Text = mrc.Fields(5)
                txtComment.Text = mrc.Fields(6)
              
    
   GetMenu
End Sub

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

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

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



Private Sub updateCommand_Click()
 Dim txtSQL As String
    Dim MsgText As String
   
              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) = Val(txtDiscount.Text)
                mrc.Fields(5) = Val(txtPayment.Text)
                mrc.Fields(6) = Val(txtComment.Text)
                mrc.Fields(7) = UserName
                mrc.Fields(8) = Date
                mrc.Update
                MsgBox "外卖服务信息编辑成功！", vbOKOnly + vbExclamation, "编辑外卖服务信息"
                
                RefreshMenu
          
                mrc.Bookmark = myBookmark
                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
   
    txtDiscount.Enabled = False
    txtPayment.Enabled = False
    cmdSelect.Enabled = False
    cmdSelect.Enabled = False
    txtComment.Enabled = False
mrc.Close
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