Daten ab DB laden uns ins Form befüllen
[Visual Basic] Private Sub Get_Data( _
ByVal Applikationnr As Integer _
)
[Visual Basic] Private Sub Get_Data(ByVal Applikationnr As Integer)
Try
Applikation.Get_Applikation(Applikationnr)
Me.txtBezeichnung.Text = Applikation.sBezeichnung.Value
Dim i As Integer = Me.cbboxParentTree.TreeView.Height
Me.cbboxParentTree.TreeView.Height = 0
Me.cbboxParentTree.TreeView.Visible = True
Me.cbboxParentTree.SelectedNode = Me.TreeParent.FindNode(Me.cbboxParentTree.TreeView.Nodes, Applikation.iParentID.Value, "")
Application.DoEvents()
Me.cbboxParentTree.TreeView.Visible = False
Me.cbboxParentTree.TreeView.Height = i
Me.cbboxVerantwortung.SelectedValue = Applikation.iApplikationVerantwortungNr.Value
Me.cbboxTeam.SelectedValue = Applikation.iApplikationTeamnr.Value
Me.cbboxKategorie.SelectedValue = Applikation.iApplikationKategorieNr.Value
Me.cbboxMarktbereich.SelectedValue = Applikation.iMarktbereichnr.Value
Me.txtInaktivseit.Text = Applikation.daInaktivseit.ToString
Me.txtVersion.Text = Applikation.sVersion.Value
Me.cbalsProdukt.Checked = Applikation.bAlsProdukt.Value = True
Me.cbLizenzerfassung.Checked = Applikation.bNurLizenz.Value = True
Me.txtPrioWiederanlauf.Text = Applikation.sPrioWiederanlauf.Value
Me.cboxSecurityLevel.SelectedValue = Applikation.iSecurityLevelNr.Value
Me.cboxRFCBoard.SelectedValue = Applikation.iRfcBoardNr.Value
Me.txterstellt_am.Text = Applikation.daErstellt_am.ToString
Me.txtmutiert_am.Text = Applikation.daMutiert_am.ToString
Me.txtmutierer.Text = Applikation.iMutierer.ToString
Me.cbAktiv.Checked = Applikation.bAktiv.Value = True
Me.cbRAS.Checked = Applikation.bRAS.Value = True
Me.txtDBName.Text = Applikation.sDatenbankname.Value
Me.txtAnzInstallationen.Text = Applikation.sAnzahl_Installationen.Value
Me.txtKurzbeschreibung.Text = Applikation.sKurzbeschreibung.Value
If Microsoft.VisualBasic.Left(Me.txtKurzbeschreibung.Text, 7) = "- Modul" Then
Dim fnt As New Font("Courier New", 8.25)
Me.txtKurzbeschreibung.Font = fnt
End If
Me.cbTicketXPertVerwendung.Checked = Applikation.bTicketXPertVerwendung.Value = True
If Me.cbTicketXPertVerwendung.Checked = False Then
Me.grpTicketXpert.Enabled = False
Else
Me.grpTicketXpert.Enabled = True
End If
Try
Me.cbboxTestaufwand.SelectedValue = Applikation.sTest_Aufwand.Value.ToString
Catch ex As Exception
Me.cbboxTestaufwand.SelectedValue = 1
End Try
Me.txtTestArbeitsplaetze.Text = Applikation.sTest_Arbeitsplaetze.Value
Me.txtAbhaengigkeiten.Text = Applikation.sTest_Abhaengigkeiten.Value
Me.txtBemerkung.Text = Applikation.sTest_Bemerkung.Value
Me.cbWPIAnzeigen.Checked = Applikation.bTicketXPert_WPIAnzeigen.Value = True
Me.txtWPIPreis.Text = Applikation.sTicketXPert_Preis.Value
Me.txtPreisEinmalig.Text = Applikation.sTicketXPert_Preis_Einmalig.Value
Me.cbAMAnzeigen.Checked = Applikation.bTicketXPert_AMAnzeigen.Value = True
Me.cbboxKritikalität.SelectedValue = Applikation.iTicketXPert_ApplikationKritikalitaetTypNr.Value
Me.cbboxSLM.SelectedValue = Applikation.iTicketXPert_ApplikationSMLTypNr.Value
Set_Checkedlistbox(Me.lboxInstalliertauf, Me.Applikation.ApplikationInstallationTyp)
Set_Checkedlistbox(Me.lboxInstalliertals, Me.Applikation.ApplikationInstallationals)
Set_Checkedlistbox(Me.lboxStandardFuer, Me.Applikation.ApplikationInstallationFuer)
Me.cbSensitiveDaten.Checked = Me.Applikation.bSensitiveDaten.Value = True
Me.txtSensitiveDaten.Text = Me.Applikation.sSensitiveDatenBemerkung.Value
Me.cbboxAdministriertdurch.SelectedValue = Me.Applikation.iSensitiveDatenAdministriertdurch.Value
Me.TxtUeberwachung.Text = Me.Applikation.sSensitiveDatenUeberwachungBemerkung.Value
Me.cbboxPeriodizitaet.SelectedValue = Me.Applikation.iSensitiveDatenUeberwachungPeriodizitaet.Value
Me.TxtUser.Text = Me.Applikation.sSensitiveDatenUserBemerkung.Value
Me.TxtAnzComit.Text = Me.Applikation.iSensitiveDatenAnzahlComit.Value
Me.txtAnzExterne.Text = Me.Applikation.iSensitiveDatenAnzahlExterne.Value
Try
Me.cbAktiv.Checked = Applikation.bAktiv.Value = True
Catch ex As Exception
Me.cbAktiv.Checked = True
End Try
If Not Anzeige And Not Me.FormReadonly Then
For Each o As Object In Me.ToolStrip1.Items
If o.GetType.Name = "ToolStripButton" Then
o.Enabled = True
End If
Next
'For Each ctl As ToolStripButton In Me.ToolStrip1.Items
' Try
' ctl.Enabled = True
' Catch
' End Try
'Next
End If
sec.Set_Form_Security(Me)
Me.FormDataChanged = False
Catch ex As Exception
Try
For Each ctl As ToolStripButton In Me.ToolStrip1.Items
ctl.Enabled = False
Next
Catch
End Try
Me.TSBtnQuit.Enabled = True
Me.TSBtnSuche.Enabled = True
End Try
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