einzelner Knoten sichern
[Visual Basic] Private Sub ListNodeSave( _
ByVal tn As TreeNode, _
ByRef isort As Integer _
)
[Visual Basic] Private Sub ListNodeSave(ByVal tn As TreeNode, ByRef isort As Integer)
Dim dbkey As New TKB.VV.DB.clsMyKey_Tabelle()
Dim t As DataTable
Dim key As Long
Dim i As Integer
Dim ftop, fleft, fheight, fwidth As Integer
Dim sDomaintable As String = ""
Dim sKeyfields As String = ""
Dim sysadmfnkt As New TKB.VV.DB.clsSysadminfunktion
dbkey.cpMainConnectionProvider = conn
sysadmfnkt.cpMainConnectionProvider = conn
If tn.Tag <> 0 Then
sysadmfnkt.iSysadminfnktnr = New SqlInt32(CType(tn.Tag, Int32))
sysadmfnkt.SelectOne()
ftop = sysadmfnkt.iFtop.Value
fleft = sysadmfnkt.iFleft.Value
fwidth = sysadmfnkt.iFwidth.Value
fheight = sysadmfnkt.iFheight.Value
sDomaintable = sysadmfnkt.sDomaintable.Value
sKeyfields = sysadmfnkt.sKeyFields.Value
End If
sysadmfnkt.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
sysadmfnkt.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
sysadmfnkt.sBezeichnung = New SqlString(CType(tn.Text, String))
sysadmfnkt.sBeschreibung = New SqlString(CType("", String))
sysadmfnkt.iParentID = New SqlInt32(CType(tn.Parent.Tag, Int32))
sysadmfnkt.iImageIndex = New SqlInt32(CType(tn.ImageIndex, Int32))
sysadmfnkt.iImageIndexOpen = New SqlInt32(CType(tn.SelectedImageIndex, Int32))
sysadmfnkt.iSort = New SqlInt32(CType(isort, Int32))
sysadmfnkt.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
sysadmfnkt.bAktiv = New SqlBoolean(CType(True, Boolean))
sysadmfnkt.iSprache = New SqlInt32(CType(1, Int32))
sysadmfnkt.iMandantnr = New SqlInt32(CType(Globals.clsmitarbeiter.iMandantnr.Value, Int32))
sysadmfnkt.iFtop = New SqlInt32(CType(ftop, Int32))
sysadmfnkt.iFleft = New SqlInt32(CType(fleft, Int32))
sysadmfnkt.iFwidth = New SqlInt32(CType(fwidth, Int32))
sysadmfnkt.iFheight = New SqlInt32(CType(fheight, Int32))
sysadmfnkt.sDomaintable = New SqlString(CType(sDomaintable, String))
sysadmfnkt.sKeyFields = New SqlString(CType(sKeyfields, String))
If tn.Tag <> 0 Then
sysadmfnkt.iSysadminfnktnr = New SqlInt32(CType(tn.Tag, Int32))
sysadmfnkt.Update()
Else
key = dbkey.get_dbkey("sysadminfunktion")
conn.OpenConnection()
sysadmfnkt.iSysadminfnktnr = New SqlInt32(CType(key, Int32))
sysadmfnkt.Insert()
tn.Tag = key
End If
For i = 1 To itodelete
sysadmfnkt.iSysadminfnktnr = New SqlInt32(CType(todelete(i), Int32))
t = sysadmfnkt.SelectOne
If t.Rows.Count > 0 Then
sysadmfnkt.Delete()
End If
Next
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