Imports VERAG_PROG_ALLGEMEIN
Imports VERAG_PROG_ALLGEMEIN.cMeineFunktionenAVISO

Public Class frmTabelleStandorte

  Public Aktive_Zeile As Integer
  Private StandorteDAL As New cStandorteDAL

  Public Sub New()
    InitializeComponent()
    Icon = GetProgrammIcon()
  End Sub

  Private Sub frmTabelleStandorte_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    Me.CenterToParent()

        btnLöschen.Enabled = VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("Avisodaten_verwalten", Me)


    'Alle Datensätze anzeigen
    Daten_anzeigen()

    'Layout für Grid anpassen
    With gridTabelle
      .Columns(0).Visible = False   'ID wird nicht angezeigt

      .Columns(1).Width = 80
      .Columns(1).HeaderText = "Standort"

      .Columns(2).Width = 100
      .Columns(2).HeaderText = "Standort Beschreibung"

      .Columns(3).Width = 400
      .Columns(3).HeaderText = "Info"

    End With
    Try
      If gridTabelle.RowCount > 0 Then gridTabelle.CurrentRow.Selected = True
    Catch ex As Exception

    End Try

  End Sub


  Public Sub Daten_anzeigen()

    Dim hSelect As String = "SELECT * FROM Standorte "


    If txtSuche.Text.Trim <> "" Then
      hSelect += "WHERE (Standort LIKE '%" & txtSuche.Text & "%' OR " & _
                 "Standort_Text LIKE '%" & txtSuche.Text & "%' OR Info LIKE '%" & txtSuche.Text & "%')"
    End If

    hSelect += " ORDER BY Standort"

    gridTabelle.DataSource = StandorteDAL.Anzeigen_Standorte(hSelect)

    'Anzeige der Anzahl gewählter Datensätze
    cGlobal.AnzahlAuswahl = gridTabelle.RowCount
    lblAnzahl.Text = "Einträge: " & Format(cGlobal.AnzahlAuswahl, "#,##0") & " ausgewählt"

  End Sub

  Private Sub btnAlleAnzeigen_Click(sender As System.Object, e As System.EventArgs) Handles btnAlleAnzeigen.Click
    txtSuche.Text = ""

    Daten_anzeigen()
  End Sub

  Private Sub txtSuche_TextChanged(sender As System.Object, e As System.EventArgs) Handles txtSuche.TextChanged
    Daten_anzeigen()
  End Sub

  Private Sub gridTabelle_DoubleClick(sender As Object, e As System.EventArgs) Handles btnÄndern.Click, gridTabelle.DoubleClick
    If IsNothing(gridTabelle.CurrentRow) Then Exit Sub

    Dim f As New frmEintragStandort
    cGlobal.Aktive_ID = CInt(gridTabelle.Rows(gridTabelle.CurrentRow.Index).Cells("StandortID").Value)
    Aktive_Zeile = gridTabelle.CurrentRow.Index
    f.frmHilf = Me
    f.ShowDialog(Me)

    'falls Änderung, dann die neuen Werte in Grid anzeigen
    If Aktive_Zeile >= 0 Then
      Dim Standort As cStandort = StandorteDAL.LesenStandort(cGlobal.Aktive_ID, "", "")
      If Not IsNothing(Standort) Then
        gridTabelle.Rows(Aktive_Zeile).Cells(1).Value = Standort.Standort
        gridTabelle.Rows(Aktive_Zeile).Cells(2).Value = Standort.Standort_Text
        gridTabelle.Rows(Aktive_Zeile).Cells(3).Value = Standort.Info
      End If
    End If

  End Sub

  Private Sub btnNeu_Click(sender As System.Object, e As System.EventArgs) Handles btnNeu.Click
    Dim f As New frmEintragStandort
    cGlobal.Aktive_ID = 0
    f.frmHilf = Me
    f.ShowDialog(Me)
    Daten_anzeigen()
  End Sub

  Private Sub btnLöschen_Click(sender As System.Object, e As System.EventArgs) Handles btnLöschen.Click
    If IsNothing(gridTabelle.CurrentRow) Then Exit Sub
    cGlobal.Aktive_ID = CInt(gridTabelle.Rows(gridTabelle.CurrentRow.Index).Cells("StandortID").Value)

    Dim antwort As MsgBoxResult = MsgBox("Wollen Sie den Standort '" & CStr(gridTabelle.Rows(gridTabelle.CurrentRow.Index).Cells("Standort").Value) &
                                         "' wirklich löschen?", CType(MsgBoxStyle.YesNo + MsgBoxStyle.Exclamation, MsgBoxStyle),
                                 "Eintrag löschen")
    If antwort = vbNo Then
      Exit Sub
    End If

    StandorteDAL.LöschenStandort(cGlobal.Aktive_ID)

    Daten_anzeigen()
  End Sub

End Class