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.
117 lines
3.7 KiB
117 lines
3.7 KiB
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 |