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.
106 lines
3.6 KiB
106 lines
3.6 KiB
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 |