[Visual Basic] Private Sub FrmReleaseLogbuch_Load( _
ByVal sender As Object, _
ByVal e As EventArgs _
) Handles _
MyBase.Load
[Visual Basic] Private Sub FrmReleaseLogbuch_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
sec.Set_Form_Security(Me)
If Me.FormReadonly = True Then Me.TSBtnSave.Enabled = False
If Me.TSBtnSave.Enabled = False Or Me.TSBtnSave.Visible = False Then
Me.FormReadonly = True
Me.TSBtnDelete.Enabled = False
Else
Me.FormReadonly = False
End If
Me.cboReleaseArt.DataSource = Me.ApplikationLogbuch.Releasearten
Me.cboReleaseArt.DisplayMember = "Bezeichnung"
Me.cboReleaseArt.ValueMember = "Releaseartnr"
Me.cboTecPerson.DataSource = Me.ApplikationLogbuch.Personen
Me.cboTecPerson.DisplayMember = "Bezeichnung"
Me.cboTecPerson.ValueMember = "Personnr"
Me.cboFachperson.DataSource = Me.ApplikationLogbuch.Personen1
Me.cboFachperson.DisplayMember = "Bezeichnung"
Me.cboFachperson.ValueMember = "Personnr"
Me.cboFreigabePerson.DataSource = Me.ApplikationLogbuch.Personen2
Me.cboFreigabePerson.DisplayMember = "Bezeichnung"
Me.cboFreigabePerson.ValueMember = "Personnr"
Me.AddChanges(Me)
Get_Data(Me.ApplikationLogbuchNr)
If Me.Neuer_Datensatz = True Then
Me.ApplikationLogbuch.Neuer_Datensatz = True
Me.Neuer_Datensatz = False
End If
If Me.FormReadonly = True Then
Me.TSBtnSave.Enabled = False
sec.Set_Form_Readonly(Me)
End If
Refresh_Dokumente()
Me.FormDataChanged = False
End Sub
Plattformen: Windows 98, Windows 2000 SP4, Windows Millennium Edition, Windows Server 2003, Windows XP Media Center Edition, Windows XP Professional x64 Edition, Windows XP SP2, Windows XP Starter Edition