Initial commit

2020-10-21 10:44:38 +02:00
commit 039adbbadf
1125 changed files with 854026 additions and 0 deletions
--- a/.svn/pristine/19/190649864a49e5946a5f5d0218a07b317679fc35.svn-base
+++ b/.svn/pristine/19/190649864a49e5946a5f5d0218a07b317679fc35.svn-base
@@ -0,0 +1,99 @@
+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