Projektdateien hinzufügen.

2019-08-08 09:19:41 +02:00
parent d3677973e6
commit 009bb01027
573 changed files with 166751 additions and 0 deletions
--- a/Aviso/frmWarenbezeichnungBegriffe.vb
+++ b/Aviso/frmWarenbezeichnungBegriffe.vb
@@ -0,0 +1,82 @@
+Public Class frmWarenbezeichnungBegriffe
+    Public WB As VERAG_PROG_ALLGEMEIN.cWarenbezeichnungBegriffe = Nothing
+
+    Dim SQL As New VERAG_PROG_ALLGEMEIN.SQL
+
+    Private Sub frmWarenbezeichnungBegriffe_Load(sender As Object, e As EventArgs) Handles Me.Load
+        initDGV()
+        If VERAG_PROG_ALLGEMEIN.cBerechtignunen.CHECK_BERECHTIGUNG_bool("ZOLL_WarenbegriffeBearbeiten", Me) Then
+            Button1.Visible = True
+            Button2.Visible = True
+            Button3.Visible = True
+        End If
+        txtSuche.Focus()
+    End Sub
+
+
+    Sub initDGV()
+        With dgvWB
+            .Columns.Clear()
+            Dim where = ""
+            If txtSuche.Text <> "" Then
+                where &= " AND (wb_Begriff LIKE '%" & txtSuche.Text & "%' OR wb_beispiele LIKE '%" & txtSuche.Text & "%') "
+            End If
+
+            .DataSource = SQL.loadDgvBySql("SELECT wb_id, wb_Begriff, wb_beispiele FROM tblWarenbezeichnungBegriffe  WHERE 1=1 " & where & " Order By wb_begriff", "FMZOLL")
+            If .ColumnCount > 0 Then
+                .Columns("wb_id").Visible = False
+                .Columns("wb_Begriff").HeaderText = "Begriff"
+                .Columns("wb_Begriff").Width = 250
+                .Columns("wb_beispiele").HeaderText = "Beispiele"
+                .Columns("wb_beispiele").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
+                .ClearSelection()
+            End If
+        End With
+    End Sub
+
+    Sub selectWB()
+        If dgvWB.SelectedRows.Count > 0 Then
+            WB = New VERAG_PROG_ALLGEMEIN.cWarenbezeichnungBegriffe(dgvWB.SelectedRows(0).Cells("wb_id").Value)
+            Me.DialogResult = Windows.Forms.DialogResult.OK
+            Me.Close()
+        End If
+    End Sub
+    Private Sub btnSpeichern_Click(sender As Object, e As EventArgs) Handles btnSpeichern.Click
+        selectWB()
+    End Sub
+
+    Private Sub dgvWB_DoubleClick(sender As Object, e As EventArgs) Handles dgvWB.DoubleClick
+        selectWB()
+    End Sub
+    Private Sub dgvWB_DoubleClick2(sender As Object, e As EventArgs) Handles dgvWB.CellContentDoubleClick
+        selectWB()
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim f As New frmWarenbezeichnungBegriffeEdit
+        f.ShowDialog(Me)
+        initDGV()
+    End Sub
+
+    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
+        If dgvWB.SelectedRows.Count > 0 Then
+            Dim f As New frmWarenbezeichnungBegriffeEdit(dgvWB.SelectedRows(0).Cells("wb_id").Value)
+            f.ShowDialog(Me)
+            initDGV()
+        End If
+    End Sub
+
+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        If dgvWB.SelectedRows.Count > 0 Then
+            If vbYes = MsgBox("Möchten Sie den Eintrag wirklich löschen?", vbYesNoCancel) Then
+                WB = New VERAG_PROG_ALLGEMEIN.cWarenbezeichnungBegriffe(dgvWB.SelectedRows(0).Cells("wb_id").Value)
+                WB.DELETE()
+                initDGV()
+            End If
+        End If
+    End Sub
+
+    Private Sub txtSuche_TextChanged(sender As Object, e As EventArgs) Handles txtSuche.TextChanged
+        initDGV()
+    End Sub
+End Class