VERSION 5.00
Object = "{831FDD16-0C5C-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX"
Begin VB.Form frmkarteAuswahl 
   BorderStyle     =   0  'Kein
   Caption         =   "Form1"
   ClientHeight    =   3660
   ClientLeft      =   45
   ClientTop       =   435
   ClientWidth     =   8145
   BeginProperty Font 
      Name            =   "Tahoma"
      Size            =   12
      Charset         =   0
      Weight          =   400
      Underline       =   0   'False
      Italic          =   0   'False
      Strikethrough   =   0   'False
   EndProperty
   LinkTopic       =   "Form1"
   MDIChild        =   -1  'True
   ScaleHeight     =   3660
   ScaleWidth      =   8145
   ShowInTaskbar   =   0   'False
   Begin MSComctlLib.TreeView TreeViewWarengruppe 
      Height          =   2850
      Left            =   600
      TabIndex        =   0
      Top             =   480
      Width           =   3225
      _ExtentX        =   5689
      _ExtentY        =   5027
      _Version        =   393217
      LineStyle       =   1
      Style           =   7
      Appearance      =   1
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   10.5
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
   End
   Begin MSComctlLib.ListView ListViewArtikelgruppe 
      Height          =   3285
      Left            =   4080
      TabIndex        =   1
      Top             =   180
      Width           =   3735
      _ExtentX        =   6588
      _ExtentY        =   5794
      LabelWrap       =   -1  'True
      HideSelection   =   -1  'True
      _Version        =   393217
      ForeColor       =   -2147483640
      BackColor       =   -2147483643
      BorderStyle     =   1
      Appearance      =   1
      BeginProperty Font {0BE35203-8F91-11CE-9DE3-00AA004BB851} 
         Name            =   "Tahoma"
         Size            =   12
         Charset         =   0
         Weight          =   400
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      NumItems        =   0
   End
   Begin VB.Shape shpkarteAuswahl 
      BackColor       =   &H80000013&
      BackStyle       =   1  'Undurchsichtig
      BorderColor     =   &H80000003&
      BorderWidth     =   2
      FillColor       =   &H000000FF&
      Height          =   1260
      Left            =   0
      Top             =   0
      Width           =   1695
   End
End
Attribute VB_Name = "frmkarteAuswahl"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'====================== FORMULAR EREIGNISSE ===================
'==============================================================
Private Sub Form_Initialize()
mdlVerwalltung.KarteAuswahl
frmkarteAuswahl.Warengruppe
End Sub
'====================== TreeViewWarengruppe EREIGNISSE ===================
'=========================================================================
Private Sub TreeViewWarengruppe_BeforeLabelEdit(Cancel As Integer)
For I = 1 To 5
 SendKeys "{ESC}"
Next I
End Sub
Private Sub TreeViewWarengruppe_LostFocus()
TreeViewWarengruppe.SelectedItem.BackColor = &H8000000D
End Sub
Private Sub TreeViewWarengruppe_NodeClick(ByVal Node As MSComctlLib.Node)
For I = 1 To TreeViewWarengruppe.Nodes.Count
      ' Alle Knoten durchlaufen lassen
       TreeViewWarengruppe.Nodes(I).BackColor = &H80000005
       TreeViewWarengruppe.Nodes(I).ForeColor = &H80000012
   Next I
Call Me.Artikelgruppe(TreeViewWarengruppe.SelectedItem.Text)
End Sub
'====================== ListViewArtikelgruppe ===================
'=========================================================================
Private Sub ListViewArtikelgruppe_BeforeLabelEdit(Cancel As Integer)
For I = 1 To 5
 SendKeys "{ESC}"
Next I
End Sub
Private Sub ListViewArtikelgruppe_DblClick()
frmTastenMenu2.txtPLU.Text = ListViewArtikelgruppe.SelectedItem.Text
Call frmTastenMenu2.DatenFinden
End Sub

'====================== PROZEDUREN ===================
'=====================================================
'---------Tabelle Warengruppe abfragen-------------
Sub Warengruppe()
Dim objConn As ADODB.Connection
Dim rsWarengruppe As ADODB.Recordset
Set objConn = New ADODB.Connection
Set rsWarengruppe = 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 rsWarengruppe
    .ActiveConnection = objConn
    .CursorLocation = adUseClient
    .LockType = adLockOptimistic
    .Source = "Select *FROM Warengruppe ORDER BY ID"
    .Open
  
   End With
 
 TreeViewWarengruppe.Nodes.Clear
 'TreeViewWarengruppe.Nodes.Add , , "C", "Alle Warengruppe"

 TreeViewWarengruppe.Nodes.Add , , "G", "Getränke"
 
 TreeViewWarengruppe.Nodes.Add , , "S", "Speise"

  While Not rsWarengruppe.EOF
     If rsWarengruppe.Fields("IDWG").Value = "Getränke" Then
       TreeViewWarengruppe.Nodes.Add "G", tvwChild, , rsWarengruppe.Fields("WG").Value
    Else
     TreeViewWarengruppe.Nodes.Add "S", tvwChild, , rsWarengruppe.Fields("WG").Value
    End If
     rsWarengruppe.MoveNext
  Wend
 
 

Set rsWarengruppe = Nothing
Set objConn = Nothing
exit_Sub:
  On Error GoTo 0
  Exit Sub

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


End Sub
'---------Tabelle Artikelgruppe abfragen-------------
Sub Artikelgruppe(VarWG)
Dim objConn As ADODB.Connection
Dim rsArtikelgruppe As ADODB.Recordset

Set objConn = New ADODB.Connection
Set rsArtikelgruppe = 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 rsArtikelgruppe
    .ActiveConnection = objConn
    '.CursorLocation = adUseClient
    .LockType = adLockPessimistic
    .Open "SELECT WG,PLU,Gericht,EPREIS FROM Artikelgruppe where WG = '" & VarWG & "'"
  End With
  
   ' Erstellen einer Variablen zum Hinzufügen
   ' von ListItem-Objekten.
   Dim itmX As ListItem
ListViewArtikelgruppe.ColumnHeaders.Clear
ListViewArtikelgruppe.ListItems.Clear
 ' Hinzufügen der Spaltenköpfe. Die Breite der
   ' Spalten entspricht der Breite des Steuerelements
   ' dividiert durch die Anzahl der Spalten.
   ListViewArtikelgruppe.ColumnHeaders.Add , , "PLU", ListViewArtikelgruppe.Width / 8
   ListViewArtikelgruppe.ColumnHeaders.Add , , "Gericht", ListViewArtikelgruppe.Width / 2 'lvwColumnCenter
   ListViewArtikelgruppe.ColumnHeaders.Add , , "E-Preis", ListViewArtikelgruppe.Width / 6 'lvwColumnCenter
   ListViewArtikelgruppe.ColumnHeaders.Item(3).Alignment = lvwColumnRight
   ' View-Eigenschaft auf ReportKellnerBericht setzen.
   ListViewArtikelgruppe.View = lvwReport
    ListViewArtikelgruppe.GridLines = True
   ListViewArtikelgruppe.FullRowSelect = True


   ' Solange der aktuelle Datensatz nicht dem letzten
   ' Datensatz entspricht, werden weiter
   ' ListItem-Objekte hinzugefügt.
   ' Für Text des ListItem-Objekts wird das Feld
   ' "Name" verwendet.
   ' Für Unterelement 1 des ListItem-Objekts wird das
   ' Feld "Vorname" verwendet.
   ' Für Unterelement 2 des ListItem-Objekts wird das
   ' Feld "Year Born" verwendet.

   
   While Not rsArtikelgruppe.EOF
     
      Set itmX = ListViewArtikelgruppe.ListItems.Add(, , rsArtikelgruppe.Fields("PLU").Value)
      itmX.Tag = itmX.Index
      ' Wenn das Feld "Name" ungleich Null ist,
      ' Unterelement 1 auf dieses Feld setzen.

      If Not IsNull(rsArtikelgruppe.Fields("Gericht").Value) Then
         itmX.SubItems(1) = rsArtikelgruppe.Fields("Gericht").Value
      End If
      ' Wenn das Feld "Year Born" ungleich Null ist,
      ' Unterelement 2 auf dieses Feld setzen.
      If Not IsNull(rsArtikelgruppe.Fields("EPREIS").Value) Then
         itmX.SubItems(2) = Format(rsArtikelgruppe.Fields("EPREIS").Value, "##.00")
      'itmX.SubItems(2).Text =
     'ListViewArtikelgruppe.ListItems.Item(1).ListSubItems(2).Text = Format(rsArtikelgruppe.Fields("EPREIS").Value, "###,##0.00")
      End If
      rsArtikelgruppe.MoveNext   ' Nächster Datensatz.
   Wend

Set rsArtikelgruppe = Nothing
Set objConn = Nothing
exit_Sub:
  On Error GoTo 0
  Exit Sub

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

End Sub