Doppelklick auf einen Eintrag: Es wird geprüft, ob in der Tabelle SysadminFunktion im Attribut DomainTable einen Wert vorhanden ist. Sofern dies der Fall ist, wird der generelle Domain-Table-Editor aufgerufen
[Visual Basic] Private Sub SysMenuTree_DoubleClick( _
ByVal sender As Object, _
ByVal e As EventArgs _
) Handles _
SysMenuTree.DoubleClick
[Visual Basic] Private Sub SysMenuTree_DoubleClick(ByVal sender As Object, ByVal e As System.EventArgs) Handles SysMenuTree.DoubleClick
Dim sysadmfnkt As New TKB.VV.DB.clsSysadminfunktion
Dim wert As String
wert = Me.SysMenuTree.SelectedNode.Tag
If IsNumeric(wert) Then
sysadmfnkt.iSysadminfnktnr = New SqlInt32(CType(wert, Int32))
sysadmfnkt.cpMainConnectionProvider = Globals.conn
Globals.conn.OpenConnection()
sysadmfnkt.SelectOne()
Globals.conn.CloseConnection(True)
If sysadmfnkt.sDomaintable.Value.IndexOf(";") > -1 Then
'Verbindungseditor
Dim s As String = sysadmfnkt.sDomaintable.Value
Dim sArray() As String = s.Split(";")
Dim f As New FrmVerbindungEditor(sArray(0), sArray(1), sArray(2), sysadmfnkt.iSysadminfnktnr.Value)
f.Width = sysadmfnkt.iFwidth.Value
f.Height = sysadmfnkt.iFheight.Value
f.Top = sysadmfnkt.iFtop.Value
f.Left = sysadmfnkt.iFleft.Value
f.MdiParent = Me.MdiParent
f.Text = "Verbindungseditor: " + Me.SysMenuTree.SelectedNode.Text
f.Show()
Else
'20090810 - Externe Tabellen mit dem Domaineditor mutieren
If sysadmfnkt.sDomaintable.Value.IndexOf(":") > -1 Then
Dim s As String = sysadmfnkt.sDomaintable.Value
Dim sarray() As String = s.Split(":")
Dim ofile As System.IO.File
Dim oread As System.IO.StreamReader
Dim scstring As String
oread = ofile.OpenText(Application.StartupPath + "\" + sarray(0))
sCString = oread.ReadLine
scstring = Crypto.DecryptText(scstring, "HutterundMueller")
scstring = Microsoft.VisualBasic.Left(scstring, Len(scstring) - 1)
oread.Close()
Dim f As New frmDomainEditorExtTables(sarray(1), scstring)
f.MdiParent = Me.MdiParent
f.Text = "TicketXPert-Tabelle:" + sarray(1)
f.Show()
Else
'Einzelne Domaintable
If sysadmfnkt.sDomaintable.Value = "SLAKatalog" Then
Dim f As New frmSLAKatalog
f.MdiParent = Me.MdiParent
f.Show()
Exit Sub
End If
If sysadmfnkt.sDomaintable.Value = "Gremienverwaltung" Then
Dim f As New frmGremienverwaltung
f.MdiParent = Me.MdiParent
f.Show()
Exit Sub
End If
If sysadmfnkt.sDomaintable.Value = "ToolTip-Editor" Then
Dim f As New FrmToolTipEditor
f.MdiParent = Me.MdiParent
f.Show()
Exit Sub
End If
If sysadmfnkt.sDomaintable.Value <> "" Then
Dim f As New frmDomainEditor(sysadmfnkt.sDomaintable.Value)
f.MdiParent = Me.MdiParent
f.Width = sysadmfnkt.iFwidth.Value
f.Height = sysadmfnkt.iFheight.Value
f.Top = sysadmfnkt.iFtop.Value
f.Left = sysadmfnkt.iFleft.Value
f.Text = "Tabellen-Editor: " + Me.SysMenuTree.SelectedNode.Text
f.Show()
End If
End If
End If
sysadmfnkt.Dispose()
End If
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