VERSION 5.00
Begin VB.Form frmTastenMenu2 
   AutoRedraw      =   -1  'True
   BackColor       =   &H00404040&
   BorderStyle     =   0  'Kein
   Caption         =   "Rechner"
   ClientHeight    =   4650
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   5355
   FillStyle       =   0  'Ausgefüllt
   BeginProperty Font 
      Name            =   "MS Sans Serif"
      Size            =   24
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4650
   ScaleWidth      =   5355
   ShowInTaskbar   =   0   'False
   Begin VB.Timer TimerMenu2 
      Enabled         =   0   'False
      Interval        =   50
      Left            =   4425
      Top             =   2925
   End
   Begin VB.TextBox txtPLU 
      Enabled         =   0   'False
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   27.75
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H00800000&
      Height          =   600
      Left            =   150
      TabIndex        =   0
      Top             =   120
      Width           =   1760
   End
   Begin VB.CommandButton cmdTastenMenu2 
      Caption         =   "Speise&karte"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   600
      Index           =   0
      Left            =   2850
      MaskColor       =   &H80000015&
      Style           =   1  'Grafisch
      TabIndex        =   1
      Tag             =   "75"
      Top             =   -48
      Width           =   1830
   End
   Begin VB.CommandButton cmdTastenMenu2 
      Caption         =   "Enter"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   18
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   1270
      Index           =   15
      Left            =   2592
      MaskColor       =   &H80000012&
      Style           =   1  'Grafisch
      TabIndex        =   16
      Tag             =   "13"
      Top             =   2208
      Width           =   1240
   End
   Begin VB.CommandButton cmdTastenMenu2 
      Caption         =   "&Getränke"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   600
      Index           =   4
      Left            =   3000
      Style           =   1  'Grafisch
      TabIndex        =   5
      Tag             =   "71"
      Top             =   750
      Width           =   1250
   End
   Begin VB.CommandButton cmdTastenMenu2 
      Caption         =   "&Speise"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   600
      Index           =   8
      Left            =   2544
      Style           =   1  'Grafisch
      TabIndex        =   9
      Tag             =   "83"
      Top             =   1425
      Width           =   1250
   End
   Begin VB.CommandButton cmdTastenMenu2 
      Caption         =   "x"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   11.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   600
      Index           =   14
      Left            =   1824
      Style           =   1  'Grafisch
      TabIndex        =   15
      Tag             =   "106"
      Top             =   2880
      Width           =   750
   End
   Begin VB.CommandButton cmdTastenMenu2 
      Caption         =   "C"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   11.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   600
      Index           =   13
      Left            =   1008
      Style           =   1  'Grafisch
      TabIndex        =   14
      Tag             =   "67"
      Top             =   2832
      Width           =   750
   End
   Begin VB.CommandButton cmdTastenMenu2 
      Caption         =   "4"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   600
      Index           =   5
      Left            =   225
      Style           =   1  'Grafisch
      TabIndex        =   6
      Tag             =   "100"
      Top             =   1536
      Width           =   750
   End
   Begin VB.CommandButton cmdTastenMenu2 
      Caption         =   "7"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   600
      Index           =   1
      Left            =   144
      Style           =   1  'Grafisch
      TabIndex        =   2
      Tag             =   "103"
      Top             =   864
      Width           =   750
   End
   Begin VB.CommandButton cmdTastenMenu2 
      Caption         =   "9"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   600
      Index           =   3
      Left            =   1800
      Style           =   1  'Grafisch
      TabIndex        =   4
      Tag             =   "105"
      Top             =   864
      Width           =   750
   End
   Begin VB.CommandButton cmdTastenMenu2 
      Caption         =   "6"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   600
      Index           =   7
      Left            =   1776
      Style           =   1  'Grafisch
      TabIndex        =   8
      Tag             =   "102"
      Top             =   1536
      Width           =   750
   End
   Begin VB.CommandButton cmdTastenMenu2 
      Caption         =   "5"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   600
      Index           =   6
      Left            =   975
      Style           =   1  'Grafisch
      TabIndex        =   7
      Tag             =   "101"
      Top             =   1680
      Width           =   750
   End
   Begin VB.CommandButton cmdTastenMenu2 
      Caption         =   "8"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   600
      Index           =   2
      Left            =   960
      Style           =   1  'Grafisch
      TabIndex        =   3
      Tag             =   "104"
      Top             =   864
      Width           =   750
   End
   Begin VB.CommandButton cmdTastenMenu2 
      Caption         =   "3"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   11.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   600
      Index           =   11
      Left            =   1776
      Style           =   1  'Grafisch
      TabIndex        =   12
      Tag             =   "99"
      Top             =   2208
      Width           =   750
   End
   Begin VB.CommandButton cmdTastenMenu2 
      Caption         =   "2"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   600
      Index           =   10
      Left            =   1008
      Style           =   1  'Grafisch
      TabIndex        =   11
      Tag             =   "98"
      Top             =   2208
      Width           =   750
   End
   Begin VB.CommandButton cmdTastenMenu2 
      Caption         =   "1"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   11.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   600
      Index           =   9
      Left            =   144
      Style           =   1  'Grafisch
      TabIndex        =   10
      Tag             =   "97"
      Top             =   2208
      Width           =   750
   End
   Begin VB.CommandButton cmdTastenMenu2 
      Caption         =   "0"
      BeginProperty Font 
         Name            =   "Arial"
         Size            =   11.25
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      Height          =   600
      Index           =   12
      Left            =   144
      MaskColor       =   &H00C0C0FF&
      Style           =   1  'Grafisch
      TabIndex        =   13
      Tag             =   "96"
      Top             =   2880
      Width           =   750
   End
   Begin VB.Shape shpTastenMenu2 
      BackColor       =   &H80000003&
      BorderColor     =   &H00808080&
      BorderWidth     =   5
      FillColor       =   &H000000FF&
      Height          =   2808
      Left            =   -336
      Top             =   288
      Width           =   3144
   End
End
Attribute VB_Name = "frmTastenMenu2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim VarcmdTastenMenu2Index


'============================ FORMS EREIGNISSE =========================
'=======================================================================
Private Sub Form_Load()
Me.BackColor = &H80000003
For I = 0 To Me.cmdTastenMenu2.Count - 1
  Me.cmdTastenMenu2.Item(I).BackColor = &H80000002
Next I
 VarcmdTastenMenu2Index = 13568
End Sub
Private Sub Form_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
Call MDIHauptmenu.TastenFarbeAbheben 'Hebt die Tastenfarben au
VarcmdTastenMenu2Index = 13568

End Sub
'============================ COMMANDBUTTON EREIGNISSE =========================
'===============================================================================
Private Sub cmdTastenMenu2_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
VarTastenFarbeAbheben = False ' in MDI-Formular benutzt
If Index = VarcmdTastenMenu2Index Then Exit Sub ' focus vorhanden Wegen Bildzittern gehe raus
VarcmdTastenMenu2Index = Index

For I = 0 To Me.cmdTastenMenu2.Count - 1
 If I = Index Then
  Me.cmdTastenMenu2.Item(I).BackColor = &H80C0FF
  Me.cmdTastenMenu2.Item(I).MousePointer = 99
  Set Me.cmdTastenMenu2.Item(I).MouseIcon = LoadPicture(App.Path & "\Cursors\harrow.cur")
 Else
  Me.cmdTastenMenu2.Item(I).MousePointer = 1
  Me.cmdTastenMenu2.Item(I).BackColor = &H80000002
 End If
Next I
End Sub
Private Sub cmdTastenMenu2_MouseDown(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
frmSchnellwahltaste.MSHFlexGrid1.Visible = False
Call TastenMenu2(Me.cmdTastenMenu2.Item(Index).Tag)
End Sub

'============================ TIMER EREIGNISS =========================
'======================================================================
Sub TimerMenu2_Timer()

Dim X As Long
  
    For X = 48 To 90
        If CompKey(X, UCase(Chr$(X))) Then Exit Sub
        If CompKey(X + 48, UCase(Chr$(X))) Then Exit Sub
    Next X
    
    If CompKey(8, "BACKSPACE") Then Exit Sub
    If CompKey(9, "TAB") Then Exit Sub
    If CompKey(13, "ENTER") Then Exit Sub
    If CompKey(16, "SHIFT") Then Exit Sub
    If CompKey(17, "STRG") Then Exit Sub
    If CompKey(18, "ALT") Then Exit Sub
    If CompKey(19, "PAUSE") Then Exit Sub
    If CompKey(27, "ESC") Then Exit Sub
    If CompKey(33, "PAGE UP") Then Exit Sub
    If CompKey(34, "PAGE DOWN") Then Exit Sub
    If CompKey(35, "ENDE") Then Exit Sub
    If CompKey(36, "POS1") Then Exit Sub
    If CompKey(37, "LEFT") Then Exit Sub
    If CompKey(38, "UP") Then Exit Sub
    If CompKey(39, "RIGHT") Then Exit Sub
    If CompKey(40, "DOWN") Then Exit Sub
    If CompKey(44, "DRUCK") Then Exit Sub
    If CompKey(45, "INSERT") Then Exit Sub
    If CompKey(46, "DEL") Then Exit Sub
    If CompKey(144, "NUM") Then Exit Sub
    If CompKey(145, "ROLLEN") Then Exit Sub
    
    For X = 112 To 127
        If CompKey(X, "F" & CStr(X - 111)) Then Exit Sub
    Next X
    
    ' usw... usw...


End Sub
Sub TastenMenu2(VarTastenKey)
VarkeyPress = False
  For I = 0 To Me.cmdTastenMenu2.Count - 1
    If Me.cmdTastenMenu2.Item(I).Tag = VarTastenKey Then
        VarTastenIndex = I
    End If
  Next I

Select Case VarTastenIndex
  Case 1, 2, 3, 5, 6, 7, 9, 10, 11, 12, 14
    txtPLU.Text = txtPLU.Text & cmdTastenMenu2(VarTastenIndex).Caption
  Case 4, 8
    VarTastenText = Me.cmdTastenMenu2(VarTastenIndex).Caption
    Call Me.DatenEintragen(VarTastenText)
    Me.txtPLU.Text = ""
  Case 13
    Me.txtPLU.Text = ""
  Case 0

    If cmdTastenMenu2(VarTastenIndex).Caption = "Speise&karte" Then
        frmkarteAuswahl.Visible = True
        frmSchnellwahltaste.Visible = False
        cmdTastenMenu2(VarTastenIndex).Caption = "Direktwahl"
    Else
        frmSchnellwahltaste.Visible = True
        frmkarteAuswahl.Visible = False
        cmdTastenMenu2(VarTastenIndex).Caption = "Speise&karte"
    End If
  Case 15
    Call Me.DatenFinden
End Select

End Sub
Sub DatenFinden()
If frmTastenMenu2.txtPLU = "" Then Exit Sub
VarMal = InStr(txtPLU.Text, "x")
  If VarMal Then
    VarMenge = Mid(txtPLU.Text, 1, VarMal - 1)
    VarPLU = Mid(txtPLU.Text, VarMal + 1)
  Else
    VarMenge = 1
    VarPLU = txtPLU.Text
  End If
   Call mdlDatenbanken.GerichtEintragen(VarPLU, VarStation, VarTisch, VarMenge)
 
Me.txtPLU.Text = ""
End Sub
'============================ PROZEDUREN =========================
'=================================================================
Sub DatenEintragen(VarTastenText)
VarMal = InStr(txtPLU.Text, "x")

  If VarMal Then
    VarMenge = Mid(txtPLU.Text, 1, VarMal - 1)
    VarEPREIS = Mid(txtPLU.Text, VarMal + 1)
  Else
    VarMenge = 1
    VarEPREIS = txtPLU.Text
  End If
  If VarEPREIS = Empty Then
   txtPLU.Text = ""
   Exit Sub
  End If
  
  If Len(VarEPREIS) < 2 Or Len(VarEPREIS) > 5 Then
  txtPLU.Text = ""
  Exit Sub
  End If
  
  VarEPREIS = Format(VarEPREIS / 100, "####0.#0")
  
  
  If VarTastenText = "&Getränke" Then
    VarDrucker = "ThekenDrucker"
    VarPLU = 998
    VarGericht = "Getränke"
  Else
    VarDrucker = "KüchenDrucker"
    VarPLU = 999
    VarGericht = "Speise"
  End If
 
  Call mdlDatenbanken.PreisEintragen(VarDrucker, VarPLU, VarMenge, VarGericht, VarEPREIS)

txtPLU.Text = ""
End Sub