Public Class frmVorgabeDefinition

    Dim Vorgabedefinition As New clsVorgabeDefinition

    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_VorgabeID As Integer
    Property VorgabeID As Integer
        Get
            Return m_VorgabeID
        End Get
        Set(value As Integer)
            m_VorgabeID = value
        End Set
    End Property

    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
        Me.Close()
    End Sub

    Private Sub btnAbbruch_Click(sender As Object, e As EventArgs) Handles btnAbbruch.Click
        Me.DialogResult = DialogResult.Abort
    End Sub

    Private Sub btnSave_Click(sender As Object, e As EventArgs) Handles btnSave.Click
        Me.DialogResult = DialogResult.OK
        If Me.Key = -1 Then
            Vorgabedefinition.Add_New()
            Me.Key = Vorgabedefinition.iVorgabeDefinitionNr
        Else
            Vorgabedefinition.Get_Data(Me.Key)
        End If
        Vorgabedefinition.sDefinition = New SqlTypes.SqlString(CType(Me.txtDefinition.Text, String))
        Vorgabedefinition.sBemerkungen = New SqlTypes.SqlString(CType(Me.txtBemerkung.Text, String))
        Vorgabedefinition.daGueltig_bis = New SqlTypes.SqlDateTime(CType(Me.dtGueltigbis.Value, DateTime))
        Vorgabedefinition.iVorgabeNr = New SqlTypes.SqlInt32(CType(Me.VorgabeID, Int16))
        Vorgabedefinition.bAktiv = New SqlTypes.SqlBoolean(CType(Me.cbaktiv.Checked, Boolean))
        Vorgabedefinition.sBezeichnung = New SqlTypes.SqlString(CType(Me.txtBezeichnung.Text, String))
        Vorgabedefinition.Save_Data()
        Me.Close()
    End Sub

    Private Sub frmVorgabeDefinition_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If Me.Key > 0 Then
            Vorgabedefinition.Get_Data(Me.Key)
            Me.txtDefinition.Text = Vorgabedefinition.sDefinition.Value.ToString
            Me.txtBemerkung.Text = Vorgabedefinition.sBemerkungen.Value.ToString
            Me.dtGueltigbis.Value = Vorgabedefinition.daGueltig_bis.Value
            Me.cbaktiv.Checked = Vorgabedefinition.bAktiv.Value = True
            Me.txtBezeichnung.Text = Vorgabedefinition.sBezeichnung.Value.ToString
        Else
            Me.cbaktiv.Checked = True
            Me.dtGueltigbis.Value = "31.12.2099"
        End If
    End Sub
End Class