82 lines
3.1 KiB
VB.net
82 lines
3.1 KiB
VB.net
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 |