Daten ab DB laden uns ins Form befüllen
[Visual Basic] Private Sub Get_Data( _
ByVal Dokumentnr As Integer _
)
[Visual Basic] Private Sub Get_Data(ByVal Dokumentnr As Integer)
Try
Dokument.Get_Dokumenttypen()
Dokument.Get_Dokument(Dokumentnr)
Me.txtBezeichnung.Text = Dokument.sBezeichnung.Value
Me.cboxDokumenttyp.SelectedValue = Dokument.iDokumenttypNr.Value
Me.txtBeschreibung.Text = Dokument.sBeschreibung.Value
Me.txtVersion.Text = Dokument.sVersion.ToString
Me.txtVersionsdatum.Text = Dokument.daVersionsdatum.ToString
Me.txtDateiname.Text = Dokument.sFilename.Value
If Me.txtDateiname.Text <> "" Then Me.btnDokumentAnzeigen.Enabled = True Else Me.btnDokumentAnzeigen.Enabled = False
Me.txtDateiname.ReadOnly = True
Me.SaveFileName = Me.txtDateiname.Text
Me.txtOriginalFilename_incl_path.Text = Dokument.sOriginalFilename_incl_Path.Value
Me.txtErstellt_am.Text = Dokument.daErstellt_am.ToString
Me.txtMutiert_am.Text = Dokument.daMutiert_am.ToString
Me.txtMutierer.Text = Dokument.iMutierer.Value
Try
Me.cbaktiv.Checked = Dokument.bAktiv.Value = True
Catch ex As Exception
Me.cbaktiv.Checked = True
End Try
If Not Anzeige Then
For Each ctl As ToolStripButton In Me.ToolStrip1.Items
ctl.Enabled = True
Next
End If
sec.Set_Form_Security(Me)
Me.FormDataChanged = False
Catch ex As Exception
For Each ctl As ToolStripButton In Me.ToolStrip1.Items
ctl.Enabled = False
Next
Me.TSBtnQuit.Enabled = True
Me.TSBtnSuche.Enabled = True
End Try
Ablage_Orte_Aktualisieren()
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