Initial commit

SW/AssessmentMgmt/Vorgabe/frmNeuerVorgabeEintrag.vb

@@ -0,0 +1,117 @@
+Imports System.Data.SqlClient
+Imports System.Data.SqlDbType
+
+Public Class frmNeuerVorgabeEintrag
+
+    Dim vorgabe As New clsVorgabe
+
+    Dim mKey As Integer
+    Property Key As Integer
+        Get
+            Return mKey
+        End Get
+        Set(value As Integer)
+            mKey = value
+        End Set
+    End Property
+
+    Dim m_tree As New DevComponents.AdvTree.AdvTree
+    Property Tree As DevComponents.AdvTree.AdvTree
+        Get
+            Return m_tree
+        End Get
+        Set(value As DevComponents.AdvTree.AdvTree)
+            m_tree = value
+        End Set
+    End Property
+
+    Dim m_selectednode As DevComponents.AdvTree.Node
+    Property SelectedNode As DevComponents.AdvTree.Node
+        Get
+            Return m_selectednode
+
+        End Get
+        Set(value As DevComponents.AdvTree.Node)
+            m_selectednode = value
+        End Set
+    End Property
+
+    Dim m_parentnode As DevComponents.AdvTree.Node
+    Property Parentnode As DevComponents.AdvTree.Node
+        Get
+            Return m_parentnode
+        End Get
+        Set(value As DevComponents.AdvTree.Node)
+            m_parentnode = value
+        End Set
+    End Property
+
+    Sub New()
+        InitializeComponent()
+        Me.TreeVorgabe.ImageList = Globals.GueltigImages
+    End Sub
+
+    Private Sub frmNeuerVorgabeintrag_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.TreeVorgabe.Nodes.Clear()
+        For i As Integer = 0 To Me.Tree.Nodes.Count - 1
+            Me.TreeVorgabe.Nodes.Add(Me.Tree.Nodes(i))
+        Next i
+        Me.TreeVorgabe.SelectedNode = Me.SelectedNode
+        If Me.Key > -1 Then
+            Me.TreeVorgabe.SelectedNode = Me.TreeVorgabe.SelectedNode.Parent
+        End If
+        If m_parentnode IsNot Nothing Then
+            Me.TreeVorgabe.SelectedNode = Me.Parentnode
+        End If
+        If Me.TreeVorgabe.SelectedNode Is Nothing Then
+            Me.txtKapitelnr.Enabled = False
+        End If
+        Me.dtGueltigbis.Value = "31.12.2099"
+        Me.txtKapitelnr.Focus()
+        If Me.Key > -1 Then
+            vorgabe.Get_Data(Me.Key)
+            Me.txtKapitelnr.Text = vorgabe.sKapitelNr.Value.ToString
+            Me.txtKapitel.Text = vorgabe.sKapitel.Value.ToString
+            Try
+                Me.dtGueltigbis.Value = vorgabe.daGueltig_Bis.Value
+            Catch
+                Me.dtGueltigbis.Value = "31.12.2099"
+            End Try
+
+        End If
+    End Sub
+
+    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
+
+
+        If Me.Key = -1 Then
+            vorgabe.Add_New()
+            Me.Key = vorgabe.iVorgabeID.Value
+        Else
+            vorgabe.Get_Data(Me.Key)
+            If Me.Key = Me.TreeVorgabe.SelectedNode.Tag Then
+                MsgBox("Das übergeordnete Element ist ungültig. Bitte korrigieren.", vbExclamation)
+                Exit Sub
+            End If
+        End If
+        Me.DialogResult = DialogResult.OK
+        vorgabe.sKapitel = New SqlTypes.SqlString(CType(Me.txtKapitel.Text, String))
+        vorgabe.sKapitelNr = New SqlTypes.SqlString(CType(Me.txtKapitelnr.Text, String))
+        vorgabe.daGueltig_Bis = New SqlTypes.SqlDateTime(CType(Me.dtGueltigbis.Value, DateTime))
+        If Me.txtKapitelnr.Enabled = False Then
+        Else
+            vorgabe.iParentID = New SqlTypes.SqlInt32(CType(Me.TreeVorgabe.SelectedNode.Tag, Int32))
+        End If
+        vorgabe.Save_Data()
+        Me.Close()
+    End Sub
+
+    Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
+        Me.DialogResult = DialogResult.Abort
+        Me.Close()
+    End Sub
+
+    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
+        btnAbbruch_Click(sender, e)
+    End Sub
+End Class