You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
99 lines
3.2 KiB
99 lines
3.2 KiB
Imports System.Data
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
Public Class frmKategorie
|
|
|
|
Dim Kategorie As New clsKategorie
|
|
Dim KategorieTree As New clsKategorieTree
|
|
|
|
Dim m_kategorienr As Integer
|
|
Property Kategorienr As Integer
|
|
Get
|
|
Return m_kategorienr
|
|
End Get
|
|
Set(value As Integer)
|
|
m_kategorienr = value
|
|
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_parent As Integer
|
|
Property ParentID As Integer
|
|
Get
|
|
Return m_parent
|
|
End Get
|
|
Set(value As Integer)
|
|
m_parent = value
|
|
End Set
|
|
End Property
|
|
|
|
Private Sub frmKategorie_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
KategorieTree.Load_Treeview(Me.TreeKategorie)
|
|
If m_kategorienr <> 0 Then
|
|
Kategorie.Get_Data(Me.m_kategorienr)
|
|
Get_Data()
|
|
Else
|
|
Me.TreeKategorie.SelectedNode = KategorieTree.FindNode(Me.TreeKategorie.Nodes, Me.ParentID, Me.ParentID)
|
|
Me.txtStrukturNr.Text = ""
|
|
Me.txtKategorie.Text = ""
|
|
Me.txtBeschreibung.Text = ""
|
|
|
|
|
|
End If
|
|
|
|
|
|
End Sub
|
|
|
|
Private Sub Get_Data()
|
|
Me.txtStrukturNr.Text = Kategorie.sBeschreibung.Value.ToString
|
|
If Kategorie.sBeschreibung_Lang.IsNull Then
|
|
Me.txtBeschreibung.Text = ""
|
|
Else
|
|
Me.txtBeschreibung.Text = Kategorie.sBeschreibung_Lang.Value.ToString
|
|
End If
|
|
Me.txtKategorie.Text = Kategorie.sBezeichnung.Value.ToString
|
|
Me.TreeKategorie.SelectedNode = KategorieTree.FindNode(Me.TreeKategorie.Nodes, Me.Kategorienr, Me.Kategorienr)
|
|
If Not IsNothing(Me.TreeKategorie.SelectedNode.Parent) Then
|
|
Me.TreeKategorie.SelectedNode = Me.TreeKategorie.SelectedNode.Parent
|
|
End If
|
|
|
|
End Sub
|
|
|
|
Private Sub Save_Data()
|
|
If Me.Kategorienr = 0 Then
|
|
Me.Kategorienr = Kategorie.Add_New
|
|
Kategorie.Get_Data(Me.Kategorienr)
|
|
End If
|
|
Kategorie.sBeschreibung = New SqlString(CType(Me.txtStrukturNr.Text, String))
|
|
Kategorie.sBeschreibung_Lang = New SqlString(CType(Me.txtBeschreibung.Text, String))
|
|
Kategorie.sBezeichnung = New SqlString(CType(Me.txtKategorie.Text, String))
|
|
If Me.Kategorienr = Me.TreeKategorie.SelectedNode.Tag Then
|
|
'keine Änderung
|
|
Else
|
|
Kategorie.iParentid = New SqlInt32(Me.TreeKategorie.SelectedNode.Tag)
|
|
End If
|
|
If chkroot.Checked = True Then
|
|
Kategorie.iParentid = New SqlInt32(CType(0, Int32))
|
|
End If
|
|
Kategorie.Save_Data()
|
|
End Sub
|
|
|
|
Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
|
|
Save_Data()
|
|
Me.DialogResult = Windows.Forms.DialogResult.OK
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
|
|
btnAbbruch_Click(sender, e)
|
|
End Sub
|
|
|
|
Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
|
|
Me.DialogResult = Windows.Forms.DialogResult.Cancel
|
|
Me.Close()
|
|
End Sub
|
|
|
|
Private Sub BeendenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles BeendenToolStripMenuItem.Click
|
|
Me.Close()
|
|
End Sub
|
|
End Class |