Initial commit

SW/AssessmentMgmt/Vorgabe/frmVorgabeDefinition.vb

@@ -0,0 +1,64 @@
+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