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