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