VERSION 5.00
Begin VB.Form frmPin2 
   BorderStyle     =   1  'Fest Einfach
   Caption         =   "Pin 2"
   ClientHeight    =   2505
   ClientLeft      =   -15
   ClientTop       =   375
   ClientWidth     =   4905
   LinkTopic       =   "Form1"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   2505
   ScaleWidth      =   4905
   StartUpPosition =   3  'Windows-Standard
   Begin VB.Frame Frame1 
      Height          =   1575
      Left            =   0
      TabIndex        =   3
      Top             =   0
      Width           =   4695
      Begin VB.TextBox txtPin2 
         Height          =   315
         IMEMode         =   3  'DISABLE
         Left            =   1680
         PasswordChar    =   "*"
         TabIndex        =   0
         Top             =   600
         Width           =   1635
      End
      Begin VB.Label lblPIN2 
         Caption         =   "PIN 2:"
         Height          =   315
         Left            =   720
         TabIndex        =   4
         Top             =   480
         Width           =   765
      End
   End
   Begin VB.CommandButton cmdAbbrechen 
      Caption         =   "Abbrechen"
      Height          =   495
      Left            =   1800
      TabIndex        =   2
      Top             =   1800
      Width           =   1305
   End
   Begin VB.CommandButton cmdOk 
      Caption         =   "Ok"
      Height          =   495
      Left            =   3360
      TabIndex        =   1
      Top             =   1800
      Width           =   1305
   End
End
Attribute VB_Name = "frmPin2"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'========================= FORMULAR EREIGNISSE ===================
'=================================================================
Private Sub Form_Activate()
frmRaum.TimerTischauswahl.Enabled = False
AbstandRand = MDIHauptmenu.ScaleHeight / 50

Me.Width = 0.4 * (MDIHauptmenu.ScaleWidth - frmLink.Width)
Me.Height = 0.3 * MDIHauptmenu.ScaleHeight
Me.Left = (MDIHauptmenu.ScaleWidth - frmLink.Width) / 2 - Me.Width / 2
Me.Top = MDIHauptmenu.ScaleHeight / 2 - Me.Height / 2

Me.Frame1.Top = AbstandRand
Me.Frame1.Left = AbstandRand
Me.Frame1.Width = Me.ScaleWidth - 2 * AbstandRand
Me.Frame1.Height = Me.ScaleHeight - 5 * AbstandRand

Me.lblPIN2.Height = Me.Frame1.Height / 5
Me.lblPIN2.Width = 0.2 * Me.Frame1.Width
Me.lblPIN2.Left = Me.Frame1.Width / 2 - (4 * Me.lblPIN2.Width + AbstandRand) / 2
Me.lblPIN2.Top = Me.Frame1.Height / 2 - Me.lblPIN2.Height / 2

Me.txtPin2.Top = Me.lblPIN2.Top
Me.txtPin2.Left = Me.lblPIN2.Left + Me.lblPIN2.Width + AbstandRand
Me.txtPin2.Height = Me.lblPIN2.Height
Me.txtPin2.Width = 3 * Me.lblPIN2.Width


Me.cmdOk.Height = 2.5 * AbstandRand
Me.cmdOk.Top = Me.Frame1.Top + Frame1.Height + 0.5 * AbstandRand
Me.cmdOk.Left = Me.Frame1.Left + Frame1.Width - Me.cmdAbbrechen.Width

Me.cmdAbbrechen.Top = Me.cmdOk.Top
Me.cmdAbbrechen.Left = Me.cmdOk.Left - Me.cmdOk.Width - AbstandRand

Me.cmdAbbrechen.Width = Me.cmdOk.Width
Me.cmdAbbrechen.Height = Me.cmdOk.Height

End Sub

'========================= COMMANDBUTTON EREIGNISSE ===================
'======================================================================
Private Sub cmdAbbrechen_Click()
If Me.Tag = "MitarbeiterSperren" Then
     Select Case frmKellner.ListViewKellner.SelectedItem.Checked
        Case False
           frmKellner.ListViewKellner.SelectedItem.Checked = True
        Case True
           frmKellner.ListViewKellner.SelectedItem.Checked = False
        End Select
End If
frmRaum.TimerTischauswahl.Enabled = True
Unload Me
End Sub
Private Sub cmdOK_Click()
Call Me.Pin2Auswerten
End Sub
'========================= TEXT EREIGNISSE ===================
'======================================================================

Private Sub txtPin2_KeyPress(KeyAscii As Integer)
If KeyAscii = 13 Then
 'If txtPin2.Text = "103" Then Exit Sub
 Call Me.Pin2Auswerten
End If
End Sub
'========================= PROZEDUREN  ===================
'=========================================================

Sub Pin2Auswerten()
 If Pin2Abfrage = True Then
    frmLink.lblOberflaecheLink2.Tag = "weiter"
    MDIHauptmenu.imgMenu.Tag = "weiter"
    
    Select Case Me.Tag
    Case "MitarbeiterBearbeitenUneingeschrenkt"
        frmKellnerKartei.Tag = "MitarbeiterBearbeitenUneingeschrenkt"
        Call frmKellnerKartei.PositionierenUndEinrichtenUneingeschrenkt
        Call frmKellnerKartei.MitarbeiterBearbeitenUneingeschrenktZeigen
        frmKellnerKartei.Show 1
    Case "MitarbeiterBearbeitenNurPersoenlicheDaten"
        frmKellnerKartei.Tag = "MitarbeiterBearbeitenNurPersoenlicheDaten"
        Call frmKellnerKartei.PositionierenUndEinrichtenNurPersoenlicheDaten
        Call frmKellnerKartei.MitarbeiterBearbeitenNurPersoenlicheDatenZeigen
        frmKellnerKartei.Show 1
    Case "NeuerMitarbeiterUneingeschrenkt"
        frmKellnerKartei.Tag = "NeuerMitarbeiterUneingeschrenkt"
        Call frmKellnerKartei.PositionierenUndEinrichtenUneingeschrenkt
        frmKellnerKartei.Show 1
    Case "NeuerMitarbeiterNurPersoenlicheDaten"
        frmKellnerKartei.Tag = "NeuerMitarbeiterNurPersoenlicheDaten"
        Call frmKellnerKartei.PositionierenUndEinrichtenNurPersoenlicheDaten
        frmKellnerKartei.Show 1
    Case "MitarbeiterLoeschen"
        Call frmKellnerKartei.MitarbeiterLoeschen
        Call frmKellner.ListViewKellnerFuelen 'ListViewKellner wird aktualisiert
    Case "MitarbeiterSperren"
         Call frmKellner.ListViewKellnerSpeichern("ListItem", frmKellner.ListViewKellner.SelectedItem.Index, 1, frmKellner.ListViewKellner.SelectedItem.Checked)
    End Select
    Unload Me
 Else
    MsgBox "Ihr Pin-Code ist falsch. Geben Sie bitte den korrekten PIN-Code ein und bestätigen Sie mit OK."
    Me.txtPin2.SetFocus
    Me.txtPin2.Text = ""
 End If

frmRaum.TimerTischauswahl.Enabled = True


End Sub
Function Pin2Abfrage()
Dim objConn As ADODB.Connection
Dim rsPin2Abfrage As ADODB.Recordset

Set objConn = New ADODB.Connection
Set rsPin2Abfrage = New ADODB.Recordset

Dim strPath As String

  On Error GoTo err_Handler

  strPath = App.Path
  If Right$(strPath, 1) <> "\" Then strPath = strPath & "\"

 
  With objConn
    .Provider = "Microsoft Jet 4.0 OLE DB Provider"
    .Properties("Jet OLEDB:Database Password") = VarPasswordDatenbank
    .ConnectionString = "Data Source=" & VarDatenbank
    .CursorLocation = adUseClient
    .Open
  End With


  With rsPin2Abfrage
    .ActiveConnection = objConn
    '.CursorLocation = adUseClient
    .LockType = adLockPessimistic
    .Open "Select *FROM Kellner Where Mitarbeiter ='" & VarKellner & "' and Pin2 ='" & Me.txtPin2.Text & "'"
  End With
  
  If rsPin2Abfrage.EOF Then
   Pin2Abfrage = False
  Else
   Pin2Abfrage = True
  End If




Set rsPin2Abfrage = Nothing
Set objConn = Nothing
exit_Sub:
  On Error GoTo 0
  Exit Function

err_Handler:
  MsgBox "Fehlernummer " & Err.Number & Chr$(13) & Error$(Err), _
            vbCritical, "Fehler"
    
  Resume exit_Sub
Set rsPin2Abfrage = Nothing
Set objConn = Nothing
End Function