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.
64 lines
2.4 KiB
64 lines
2.4 KiB
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 |