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.
93 lines
3.2 KiB
93 lines
3.2 KiB
Public Class frmMassnahme
|
|
|
|
Dim Massnahme As New clsPruefschrittMassnahme
|
|
|
|
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_pruefschrittfinding_nr As Integer
|
|
Property Pruefschrittresultatnr As Integer
|
|
Get
|
|
Return m_pruefschrittfinding_nr
|
|
End Get
|
|
Set(value As Integer)
|
|
m_pruefschrittfinding_nr = 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 frmMassnahme_Load(sender As Object, e As EventArgs) Handles MyBase.Load
|
|
Me.cbboxVerantwortlich.DataSource = Massnahme.Verantwortung
|
|
Me.cbboxVerantwortlich.DisplayMember = "Bezeichnung"
|
|
Me.cbboxVerantwortlich.ValueMember = "Verantwortungnr"
|
|
If Key = -1 Then
|
|
Me.cbaktiv.Checked = True
|
|
Else
|
|
Massnahme.Get_Data(Me.Key)
|
|
Me.txtBeschreibung.Text = Massnahme.sBeschreibung.Value
|
|
Me.txtBezeichnung.Text = Massnahme.sKurzbeschreibung.Value
|
|
Me.cbaktiv.Checked = Massnahme.bAktiv.Value = True
|
|
Me.dtTermin.Value = Massnahme.daTermin.Value
|
|
Me.cbboxVerantwortlich.SelectedValue = Massnahme.iVerantwortungNr.Value
|
|
Me.txtResultat.Text = Massnahme.sMassnahmeResultat.Value
|
|
End If
|
|
|
|
If IsReadonly = True Then
|
|
sec.Set_Form_Readonly(Me)
|
|
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
|
|
' Dim Save_Verantwortung As Integer
|
|
Me.DialogResult = DialogResult.OK
|
|
If Me.Key = -1 Then
|
|
Massnahme.Add_New()
|
|
Me.Key = Massnahme.iPruefschrittmassnahmeNr
|
|
' Save_Verantwortung = -1
|
|
Else
|
|
Massnahme.Get_Data(Me.Key)
|
|
' Save_Verantwortung = Massnahme.iVerantwortungNr.Value
|
|
End If
|
|
Massnahme.sKurzbeschreibung = New SqlTypes.SqlString(CType(Me.txtBezeichnung.Text, String))
|
|
Massnahme.sBeschreibung = New SqlTypes.SqlString(CType(Me.txtBeschreibung.Text, String))
|
|
Massnahme.sMassnahmeResultat = New SqlTypes.SqlString(CType(Me.txtResultat.Text, String))
|
|
Massnahme.iPruefschrittfindingnr = New SqlTypes.SqlInt32(CType(Me.m_pruefschrittfinding_nr, Int16))
|
|
Massnahme.bAktiv = New SqlTypes.SqlBoolean(CType(Me.cbaktiv.Checked, Boolean))
|
|
Massnahme.daTermin = New SqlTypes.SqlDateTime(CType(Me.dtTermin.Value, DateTime))
|
|
Massnahme.iVerantwortungNr = New SqlTypes.SqlInt32(CType(Me.cbboxVerantwortlich.SelectedValue, Int32))
|
|
Massnahme.Save_Data()
|
|
|
|
|
|
Me.Close()
|
|
|
|
'mailversand massnahe
|
|
|
|
End Sub
|
|
End Class |