Initial commit

SW/AssessmentMgmt/Pruefschritt/FrmFinding.vb

@@ -0,0 +1,106 @@
+Public Class FrmFinding
+
+    Dim Finding As New clsFinding
+
+    Dim m_key As Integer
+    Property Key As Integer
+        Get
+            Return m_key
+        End Get
+        Set(value As Integer)
+            m_key = value
+        End Set
+    End Property
+
+    Dim m_pruefschrittresultatnr As Integer
+    Property Pruefschrittresultatnr As Integer
+        Get
+            Return m_pruefschrittresultatnr
+        End Get
+        Set(value As Integer)
+            m_pruefschrittresultatnr = value
+        End Set
+    End Property
+
+    Dim m_isreadonly As Boolean
+    Property ISReadOnly As Boolean
+        Get
+            Return m_isreadonly
+        End Get
+        Set(value As Boolean)
+            m_isreadonly = value
+        End Set
+    End Property
+
+    Dim sec As New Utils.MySecurity
+
+
+
+    Private Sub FrmFinding_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        Me.cbboxkritikalitaet.DataSource = Finding.kritikalitaet
+        Me.cbboxkritikalitaet.DisplayMember = "Bezeichnung"
+        Me.cbboxkritikalitaet.ValueMember = "kritikalitaetnr"
+
+        Me.cbboxauswirkung.DataSource = Finding.auswirkung
+        Me.cbboxauswirkung.DisplayMember = "Bezeichnung"
+        Me.cbboxauswirkung.ValueMember = "Auswirkungnr"
+
+        Me.cbboxWichtigkeit.DataSource = Finding.Wichtigkeit
+        Me.cbboxWichtigkeit.DisplayMember = "Bezeichnung"
+        Me.cbboxWichtigkeit.ValueMember = "WichtigkeitNr"
+
+        If Key = -1 Then
+            Me.cbaktiv.Checked = True
+
+        Else
+            Finding.Get_Data(Me.Key)
+            Me.txtBeschreibung.Text = Finding.sBeschreibung.Value
+            Me.txtBezeichnung.Text = Finding.sBezeichnung.Value
+            Me.cbaktiv.Checked = Finding.bAktiv.Value = True
+            Me.cbboxkritikalitaet.SelectedValue = Me.Finding.iKritikalitaetnr.Value
+            Me.cbboxWichtigkeit.SelectedValue = Me.Finding.iWichtigkeitnr.Value
+            Me.cbboxauswirkung.SelectedValue = Me.Finding.iAuswirkungnr.Value
+
+        End If
+        If ISReadOnly Then
+            sec.Set_Form_Readonly(Me)
+            Me.btnAbbruch.Visible = False
+            Me.btnSave.Visible = False
+
+        End If
+    End Sub
+
+    Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs) Handles TSBtnQuit.Click
+        Me.DialogResult = DialogResult.Abort
+        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
+            Finding.Add_New()
+            Me.Key = Finding.iPruefschrittfindingNr
+        Else
+            Finding.Get_Data(Me.Key)
+        End If
+        Finding.sBezeichnung = New SqlTypes.SqlString(CType(Me.txtBezeichnung.Text, String))
+        Finding.sBeschreibung = New SqlTypes.SqlString(CType(Me.txtBeschreibung.Text, String))
+        Finding.iPruefschrittresultatnr = New SqlTypes.SqlInt32(CType(Me.Pruefschrittresultatnr, Int16))
+        Finding.bAktiv = New SqlTypes.SqlBoolean(CType(Me.cbaktiv.Checked, Boolean))
+        Finding.iAuswirkungnr = New SqlTypes.SqlInt32(CType(Me.cbboxauswirkung.SelectedValue, Int32))
+        Finding.iKritikalitaetnr = New SqlTypes.SqlInt32(CType(Me.cbboxkritikalitaet.SelectedValue, Int32))
+        Finding.iWichtigkeitnr = New SqlTypes.SqlInt32(CType(Me.cbboxWichtigkeit.SelectedValue, Int32))
+
+        Finding.Save_Data()
+        Me.Close()
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        Dim f As New frmFindingHilfe
+        f.Show()
+    End Sub
+End Class