VERSION 5.00
Begin VB.Form frmLink 
   BackColor       =   &H80000016&
   BorderStyle     =   0  'Kein
   Caption         =   "Form1"
   ClientHeight    =   4908
   ClientLeft      =   0
   ClientTop       =   0
   ClientWidth     =   4860
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MDIChild        =   -1  'True
   MinButton       =   0   'False
   ScaleHeight     =   4908
   ScaleWidth      =   4860
   ShowInTaskbar   =   0   'False
   Begin VB.PictureBox Picture2 
      BackColor       =   &H00C0E0FF&
      Height          =   855
      Left            =   3600
      ScaleHeight     =   804
      ScaleWidth      =   684
      TabIndex        =   6
      Top             =   2880
      Width           =   735
   End
   Begin VB.PictureBox Picture1 
      BackColor       =   &H00C0C0FF&
      Height          =   735
      Left            =   3840
      ScaleHeight     =   684
      ScaleWidth      =   684
      TabIndex        =   5
      Top             =   1920
      Width           =   735
   End
   Begin VB.PictureBox picOberflaeche 
      Height          =   4125
      Left            =   720
      ScaleHeight     =   4080
      ScaleWidth      =   1920
      TabIndex        =   0
      Top             =   240
      Width           =   1968
      Begin VB.CommandButton cmdVerwaltungLink 
         BackColor       =   &H80000002&
         Caption         =   "cmdVerwaltungLink"
         Height          =   855
         Index           =   0
         Left            =   360
         Picture         =   "frmLink.frx":0000
         Style           =   1  'Grafisch
         TabIndex        =   4
         Top             =   3000
         Width           =   975
      End
      Begin VB.CommandButton cmdStationenLink 
         BackColor       =   &H80000002&
         Caption         =   "cmdStationenLink"
         Height          =   855
         Index           =   0
         Left            =   480
         Picture         =   "frmLink.frx":030A
         Style           =   1  'Grafisch
         TabIndex        =   1
         Top             =   600
         Width           =   855
      End
      Begin VB.Label lblOberflaecheLink1 
         Alignment       =   2  'Zentriert
         Appearance      =   0  '2D
         BackColor       =   &H00404040&
         Caption         =   "Stationen"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H8000000B&
         Height          =   330
         Left            =   105
         TabIndex        =   3
         Top             =   45
         Width           =   1425
      End
      Begin VB.Label lblOberflaecheLink2 
         Alignment       =   2  'Zentriert
         BackColor       =   &H00404040&
         Caption         =   "Verwaltung"
         BeginProperty Font 
            Name            =   "Verdana"
            Size            =   12
            Charset         =   0
            Weight          =   400
            Underline       =   0   'False
            Italic          =   0   'False
            Strikethrough   =   0   'False
         EndProperty
         ForeColor       =   &H8000000B&
         Height          =   330
         Left            =   120
         TabIndex        =   2
         Top             =   2340
         Width           =   1500
      End
   End
End
Attribute VB_Name = "frmLink"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Dim VarcmdTastenIndex, VarHauptasteMarkierung

'======================== FORMS EREIGNISSE =====================
'===============================================================
Private Sub Form_Load()
For I = 0 To cmdStationenLink.Count - 1
    Set Me.cmdStationenLink.Item(I).Picture = LoadPicture(App.Path & "\icons\Raum.ico")
    Set Me.cmdVerwaltungLink.Item(I).Picture = LoadPicture(App.Path & "\icons\Raum.ico")
Next I
For I = 0 To Me.cmdStationenLink.Count - 1
  Me.cmdStationenLink.Item(I).BackColor = &H80000002
Next I
End Sub
'======================== PICTURE EREIGNISSE =====================
'===============================================================
Private Sub picOberflaeche_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
VarcmdTastenIndex = ""
For I = 0 To Me.cmdStationenLink.Count - 1
 If Me.cmdStationenLink.Item(I).BackColor = &H80C0FF Then
    Me.cmdStationenLink.Item(I).BackColor = &H80000002
 End If
Next I
For I = 0 To Me.cmdVerwaltungLink.Count - 1
 If Me.cmdVerwaltungLink.Item(I).BackColor = &H80C0FF Then
    Me.cmdVerwaltungLink.Item(I).BackColor = &H80000002
 End If
Next I
End Sub
'======================== COMMANDBUTTON EREIGNISSE =====================
'=======================================================================
'------------------- Stationen Steuerelement Ereignisse ------------
Private Sub cmdStationenLink_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If VarcmdTastenIndex = Index Then Exit Sub ' focus vorhanden Wegen Bildzittern gehe raus

For I = 0 To Me.cmdStationenLink.Count - 1
   If I = Index Then
    Me.cmdStationenLink.Item(I).BackColor = &H80C0FF '&H80C0FF
    Me.cmdStationenLink.Item(I).MousePointer = 99
    Set Me.cmdStationenLink.Item(I).MouseIcon = LoadPicture(App.Path & "\Cursors\harrow.cur")
  Else
    Me.cmdStationenLink.Item(I).BackColor = &H80000002
  End If
 
  If I = VarHauptasteMarkierung Then
    Me.cmdStationenLink.Item(I).BackColor = &H46A3FF
  End If

Next I
 VarcmdTastenIndex = Index
End Sub
Private Sub cmdStationenLink_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
For I = 0 To Me.cmdStationenLink.Count - 1
 Me.cmdStationenLink.Item(I).BackColor = &H80000002
Next I
Me.cmdStationenLink.Item(Index).BackColor = &H46A3FF '&H8000000D
VarHauptasteMarkierung = Index
End Sub
Private Sub cmdStationenLink_Click(Index As Integer)
'Bei ClickAuswahl der Steuerelemente wird die Station festgelegt
'VarStation = frmLink.lblStationenLink(Index).Caption
'Bei ClickAuswahl der Steuerelemente wird der Stationsraum festgelegt


VarStation = frmLink.cmdStationenLink(Index).Caption

Call mdlDatenbanken.TabellePicTischAbfragen(frmRaum, VarStation)
    Select Case Index
        Case 1
            If modRechte.MitarbeiterStationRecht(VarKellner, VarStation) = False Then
                MsgBox "Sie haben nicht die nötigen Rechte, um auf die Station '" & VarStation & " ' zuzugreifen"
                Exit Sub
            End If
            frmRaum.Visible = True
            frmHotel.Visible = False
            Set frmRaum.imgLokal.Picture = LoadPicture(App.Path & "\image\Gastraum.jpg")
        Case 2
            If modRechte.MitarbeiterStationRecht(VarKellner, VarStation) = False Then
                MsgBox "Sie haben nicht die nötigen Rechte, um auf die Station '" & VarStation & " ' zuzugreifen"
            Exit Sub
            End If
            frmRaum.Visible = True
            frmHotel.Visible = False
            Set frmRaum.imgLokal.Picture = LoadPicture(App.Path & "\image\Biergarten.emf")
        Case 3
            If modRechte.MitarbeiterStationRecht(VarKellner, VarStation) = False Then
                MsgBox "Sie haben nicht die nötigen Rechte, um auf die Station '" & VarStation & " ' zuzugreifen"
             Exit Sub
            End If
            frmRaum.Visible = True
            frmHotel.Visible = False
            Set frmRaum.imgLokal.Picture = LoadPicture("")
        Case 4
            If modRechte.MitarbeiterStationRecht(VarKellner, VarStation) = False Then
                MsgBox "Sie haben nicht die nötigen Rechte, um auf die Station '" & VarStation & " ' zuzugreifen"
             Exit Sub
            End If
            frmRaum.Visible = False
            frmHotel.Show
            Set frmRaum.imgLokal.Picture = LoadPicture("")
            frmHotel.lblHead = VarStation
   End Select

End Sub

'------------------- Verwaltung Steuerelement Ereignisse ------------
'-------------------------------------------------------------------
Private Sub cmdVerwaltungLink_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
If VarcmdTastenIndex = Index Then Exit Sub ' focus vorhanden Wegen Bildzittern gehe raus

For I = 0 To Me.cmdVerwaltungLink.Count - 1
  
  If I = Index Then
    Me.cmdVerwaltungLink.Item(I).BackColor = &H80C0FF '&H80C0FF
    Me.cmdVerwaltungLink.Item(I).MousePointer = 99
    Set Me.cmdVerwaltungLink.Item(I).MouseIcon = LoadPicture(App.Path & "\Cursors\harrow.cur")
  Else
    Me.cmdVerwaltungLink.Item(I).BackColor = &H80000002
  End If
 
  If I = VarHauptasteMarkierung Then
    Me.cmdVerwaltungLink.Item(I).BackColor = &H46A3FF
  End If

Next I
 VarcmdTastenIndex = Index

End Sub

Private Sub cmdVerwaltungLink_MouseUp(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
For I = 0 To Me.cmdVerwaltungLink.Count - 1
 Me.cmdVerwaltungLink.Item(I).BackColor = &H80000002
Next I
Me.cmdVerwaltungLink.Item(Index).BackColor = &H46A3FF '&H8000000D
VarHauptasteMarkierung = Index

End Sub
Private Sub cmdVerwaltungLink_Click(Index As Integer)

frmRaum.Visible = False
frmHotel.Visible = False

Select Case Index
Case 1
    If modRechte.MitarbeiterRecht(VarKellner, "StationVerwaltung") = False Then
        MsgBox "Sie haben nicht die nötigen Rechte, um auf die Stations-Verwaltung zuzugreifen"
        Exit Sub
    End If
    frmStationen.SSTabStationen.Tab = 0
    Call mdlDatenbanken.TabellePicTischAbfragen(frmStationen, VarStation)
    frmStationen.Visible = True
    frmKellner.Visible = False
    frmSpeisekarte.Visible = False
    frmDirektwahltasteVerwaltung.Visible = False
    frmBerichte.Visible = False
Case 2
    If modRechte.MitarbeiterRecht(VarKellner, "MitarbeiterVerwaltung") = False Then
        MsgBox "Sie haben nicht die nötigen Rechte, um auf die Mitarbeiter-Verwaltung zuzugreifen"
        Exit Sub
    End If
    
    Call frmKellner.ListViewKellnerFuelen 'ListViewKellner wird ausgefühlt
    
    
    frmKellner.Visible = True
    frmStationen.Visible = False
    frmSpeisekarte.Visible = False
    frmDirektwahltasteVerwaltung.Visible = False
    frmBerichte.Visible = False
    
    
    
    
    
    
    For I = 1 To frmKellner.ListViewKellner.ListItems.Count
         'MsgBox frmKellner.ListViewKellner.ListItems.Item(I).Text

         If VarKellner = frmKellner.ListViewKellner.ListItems.Item(I).Text Then

        frmKellner.ListViewKellner.ListItems.Item(I).ForeColor = vbRed
        Exit For
        'frmKellner.ListViewKellner.View = 3
       End If
     Next I
    
    

Case 3
    If modRechte.MitarbeiterRecht(VarKellner, "SpeisekarteVerwaltung") = False Then
        MsgBox "Sie haben nicht die nötigen Rechte, um auf die Speisekarte-Verwaltung zuzugreifen"
        Exit Sub
    End If
    frmStationen.Visible = False
    frmKellner.Visible = False
    frmSpeisekarte.Visible = True
    frmDirektwahltasteVerwaltung.Visible = False
    frmBerichte.Visible = False
Case 4
    If modRechte.MitarbeiterRecht(VarKellner, "DirektwahlVerwaltung") = False Then
        MsgBox "Sie haben nicht die nötigen Rechte, um auf die Direktwahl-Verwaltung zuzugreifen"
        Exit Sub
    End If
    frmStationen.Visible = False
    frmKellner.Visible = False
    frmSpeisekarte.Visible = False
    frmDirektwahltasteVerwaltung.Visible = True
    frmBerichte.Visible = False
Case 5
    If modRechte.MitarbeiterRecht(VarKellner, "KreditkartenVerwaltung") = False Then
        MsgBox "Sie haben nicht die nötigen Rechte, um auf die Kreditkarten-Verwaltung zuzugreifen"
        Exit Sub
    End If

    frmStationen.Visible = False
    frmKellner.Visible = False
    frmSpeisekarte.Visible = False
    frmDirektwahltasteVerwaltung.Visible = False
    frmBerichte.Visible = True
Case 6
    If modRechte.MitarbeiterRecht(VarKellner, "FreieBerichteVerwaltung") = False Then
        MsgBox "Sie haben nicht die nötigen Rechte, um auf die freien Berichte zuzugreifen"
        Exit Sub
    End If

    frmStationen.Visible = False
    frmKellner.Visible = False
    frmSpeisekarte.Visible = False
    frmDirektwahltasteVerwaltung.Visible = False
    frmBerichte.Visible = True
End Select

End Sub

'======================== LABEL EREIGNISSE =====================
'===============================================================
'-------------------Linkoberfläche Steuerelement Ereignisse ------------
Private Sub lblOberflaecheLink1_Click()

'Wenn Verwaltung oben positioniert ist
'gehe rein und wechsle zu frmRaum
If frmLink.lblOberflaecheLink2.Top < frmLink.lblOberflaecheLink1.Width / 2 Then
frmLink.lblOberflaecheLink2.Top = frmLink.picOberflaeche.ScaleHeight - frmLink.lblOberflaecheLink2.Height - 50

frmLink.lblOberflaecheLink1.FontSize = "13"
'lblOberflaecheLink1.BackColor = &H404040

frmLink.lblOberflaecheLink2.FontSize = "12"
'lblOberflaecheLink2.BackColor = &H808080

frmStationen.Visible = False
frmKellner.Visible = False
frmSpeisekarte.Visible = False
frmDirektwahltasteVerwaltung.Visible = False
frmBerichte.Visible = False


For I = 1 To frmLink.cmdStationenLink.Count - 1
frmLink.cmdStationenLink(I).Visible = True
Next I
For I = 1 To frmLink.cmdVerwaltungLink.Count - 1
frmLink.cmdVerwaltungLink(I).Visible = False
Next I
frmStationen.Visible = False
Call mdlDatenbanken.TabellePicTischAbfragen(frmRaum, VarStation)
End If
'sonst nichts machen gehe raus
End Sub
Private Sub lblOberflaecheLink1_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
frmRaum.TimerTischauswahl.Enabled = True

lblOberflaecheLink1.FontBold = True
lblOberflaecheLink2.FontBold = False
End Sub
Private Sub lblOberflaecheLink2_Click()

If modRechte.MitarbeiterRecht(VarKellner, "VERWALTUNGSPERRE") = True Then
 MsgBox "Sie haben nicht die nötigen Rechte, um auf die Verwaltung zuzugreifen"
 Exit Sub
 Else
 frmLink.lblOberflaecheLink2.Tag = "rechteVorhanden"
 frmRaum.TimerTischauswahl.Enabled = False
 frmPin2.Show 1
 frmRaum.TimerTischauswahl.Enabled = True
  If Not frmLink.lblOberflaecheLink2.Tag = "weiter" Then
    frmLink.lblOberflaecheLink2.Tag = "raus"
    Exit Sub
  End If
 End If


'frmPinVerwaltung.Show 1
'If VarVerwaltungPin = False Then Exit Sub
'Wenn Verwaltung unten positioniert ist

If frmLink.lblOberflaecheLink2.Top > frmLink.lblOberflaecheLink1.Width / 2 Then
frmLink.lblOberflaecheLink2.Top = frmLink.lblOberflaecheLink1.Top + frmLink.lblOberflaecheLink1.Height + 50
frmLink.lblOberflaecheLink2.Left = 0

frmLink.lblOberflaecheLink1.FontSize = "12"
'lblOberflaecheLink1.BackColor = &H808080


frmLink.lblOberflaecheLink2.FontSize = "13"
'lblOberflaecheLink2.BackColor = &H404040


For I = 1 To frmLink.cmdStationenLink.Count - 1
frmLink.cmdStationenLink(I).Visible = False
Next I

For I = 1 To frmLink.cmdVerwaltungLink.Count - 1
frmLink.cmdVerwaltungLink(I).Visible = True
Next I

frmRaum.Visible = False
'Call mdlDatenbanken.TabellePicTischAbfragen(frmStationen, VarStation)
'Set itmFound = frmStationen.ListViewStationen.FindItem(VarStation, 0)
'frmStationen.ListViewStationen.SetFocus
'frmStationen.ListViewStationen.SelectedItem = itmFound

End If
'sonst nichts machen gehe raus
End Sub
Private Sub lblOberflaecheLink2_MouseMove(Button As Integer, Shift As Integer, X As Single, Y As Single)
lblOberflaecheLink2.FontBold = True
lblOberflaecheLink1.FontBold = False
End Sub