You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
713 lines
30 KiB
713 lines
30 KiB
Imports C1.Win.C1TrueDBGrid
|
|
Imports System
|
|
Imports System.Data
|
|
Imports System.Data.SqlTypes
|
|
Imports System.Data.SqlClient
|
|
Namespace TKB.VV.Server
|
|
|
|
|
|
Public Class clsServerinventar
|
|
Inherits TKB.VV.DB.clsServer_Inventar
|
|
|
|
Private Stammdaten As New TKB.VV.Stammdaten.clsStammdaten
|
|
Dim mMutierer As String
|
|
Public Umgebung As New DataTable
|
|
Public Kategorie As New DataTable
|
|
Public OS As New DataTable
|
|
Public OSLevel As New DataTable
|
|
Public Backup As New DataTable
|
|
Public Retention As New DataTable
|
|
Public db As New DataTable
|
|
Public dbBackup As New DataTable
|
|
Public dbRetention As New DataTable
|
|
Public Standort As New DataTable
|
|
Public Weiteres_Typ1 As DataTable
|
|
Public Weiteres_Typ2 As DataTable
|
|
Public Weiteres_Typ3 As DataTable
|
|
Public Weiteres_Typ4 As DataTable
|
|
Public Weiteres_Typ5 As DataTable
|
|
Public Weiteres_Backup_Loesung1 As DataTable
|
|
Public Weiteres_Backup_Loesung2 As DataTable
|
|
Public Weiteres_Backup_Loesung3 As DataTable
|
|
Public Weiteres_Backup_Loesung4 As DataTable
|
|
Public Weiteres_Backup_Loesung5 As DataTable
|
|
Public Weiteres_Retention1 As DataTable
|
|
Public Weiteres_Retention2 As DataTable
|
|
Public Weiteres_Retention3 As DataTable
|
|
Public Weiteres_Retention4 As DataTable
|
|
Public Weiteres_Retention5 As DataTable
|
|
Public Tree_Data_For_Search As New DataTable
|
|
Public Betriebsprovider As New DataTable
|
|
|
|
|
|
|
|
|
|
|
|
|
|
Property MutiererText() As String
|
|
Get
|
|
Return mMutierer
|
|
End Get
|
|
Set(ByVal value As String)
|
|
mMutierer = value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_applfilter As Integer
|
|
Property Applfilter As Integer
|
|
Get
|
|
Return m_applfilter
|
|
End Get
|
|
Set(value As Integer)
|
|
m_applfilter = value
|
|
End Set
|
|
End Property
|
|
|
|
Dim m_filter As Integer
|
|
Property filter As Boolean
|
|
Get
|
|
Return m_filter
|
|
End Get
|
|
Set(value As Boolean)
|
|
m_filter = value
|
|
End Set
|
|
End Property
|
|
|
|
Sub New()
|
|
Umgebung = Stammdaten.Get_Stammdaten("Server_Umgebung", "Bezeichnung")
|
|
Kategorie = Stammdaten.Get_Stammdaten("Server_Kategorie", "Bezeichnung")
|
|
OS = Stammdaten.Get_Stammdaten("Server_OS", "Bezeichnung")
|
|
OSLevel = Stammdaten.Get_Stammdaten("Server_OSLevel", "Bezeichnung")
|
|
Backup = Stammdaten.Get_Stammdaten("Server_Backup_Loesung", "Bezeichnung")
|
|
Retention = Stammdaten.Get_Stammdaten("Server_Backup_Retention", "Bezeichnung")
|
|
db = Stammdaten.Get_Stammdaten("Server_DB", "Bezeichnung")
|
|
dbBackup = Stammdaten.Get_Stammdaten("Server_DB_Backup_Loesung", "Bezeichnung")
|
|
dbRetention = Stammdaten.Get_Stammdaten("Server_DB_Backup_Retention", "Bezeichnung")
|
|
Standort = Stammdaten.Get_Stammdaten("Server_Standort", "Bezeichnung")
|
|
Weiteres_Typ1 = Stammdaten.Get_Stammdaten("Server_Weiteres_Typ", "Bezeichnung")
|
|
Weiteres_Typ2 = Stammdaten.Get_Stammdaten("Server_Weiteres_Typ", "Bezeichnung")
|
|
Weiteres_Typ3 = Stammdaten.Get_Stammdaten("Server_Weiteres_Typ", "Bezeichnung")
|
|
Weiteres_Typ4 = Stammdaten.Get_Stammdaten("Server_Weiteres_Typ", "Bezeichnung")
|
|
Weiteres_Typ5 = Stammdaten.Get_Stammdaten("Server_Weiteres_Typ", "Bezeichnung")
|
|
Weiteres_Backup_Loesung1 = Stammdaten.Get_Stammdaten("Server_Weiteres_Backup_Loesung", "Bezeichnung")
|
|
Weiteres_Backup_Loesung2 = Stammdaten.Get_Stammdaten("Server_Weiteres_Backup_Loesung", "Bezeichnung")
|
|
Weiteres_Backup_Loesung3 = Stammdaten.Get_Stammdaten("Server_Weiteres_Backup_Loesung", "Bezeichnung")
|
|
Weiteres_Backup_Loesung4 = Stammdaten.Get_Stammdaten("Server_Weiteres_Backup_Loesung", "Bezeichnung")
|
|
Weiteres_Backup_Loesung5 = Stammdaten.Get_Stammdaten("Server_Weiteres_Backup_Loesung", "Bezeichnung")
|
|
Weiteres_Retention1 = Stammdaten.Get_Stammdaten("Server_Weiteres_Retention", "Bezeichnung")
|
|
Weiteres_Retention2 = Stammdaten.Get_Stammdaten("Server_Weiteres_Retention", "Bezeichnung")
|
|
Weiteres_Retention3 = Stammdaten.Get_Stammdaten("Server_Weiteres_Retention", "Bezeichnung")
|
|
Weiteres_Retention4 = Stammdaten.Get_Stammdaten("Server_Weiteres_Retention", "Bezeichnung")
|
|
Weiteres_Retention5 = Stammdaten.Get_Stammdaten("Server_Weiteres_Retention", "Bezeichnung")
|
|
Betriebsprovider = Stammdaten.Get_Stammdaten("Server_Provider", "Bezeichnung")
|
|
|
|
End Sub
|
|
Public Overloads Sub dispose()
|
|
MyBase.Dispose()
|
|
Try
|
|
|
|
Umgebung.Dispose()
|
|
Kategorie.Dispose()
|
|
OS.Dispose()
|
|
OSLevel.Dispose()
|
|
Backup.Dispose()
|
|
Retention.Dispose()
|
|
db.Dispose()
|
|
dbBackup.Dispose()
|
|
dbRetention.Dispose()
|
|
Standort.Dispose()
|
|
Weiteres_Backup_Loesung1.Dispose()
|
|
Weiteres_Backup_Loesung2.Dispose()
|
|
Weiteres_Backup_Loesung3.Dispose()
|
|
Weiteres_Backup_Loesung4.Dispose()
|
|
Weiteres_Backup_Loesung5.Dispose()
|
|
Weiteres_Retention1.Dispose()
|
|
Weiteres_Retention2.Dispose()
|
|
Weiteres_Retention3.Dispose()
|
|
Weiteres_Retention4.Dispose()
|
|
Weiteres_Retention5.Dispose()
|
|
Weiteres_Typ1.Dispose()
|
|
Weiteres_Typ2.Dispose()
|
|
Weiteres_Typ3.Dispose()
|
|
Weiteres_Typ4.Dispose()
|
|
Weiteres_Typ5.Dispose()
|
|
Betriebsprovider.Dispose()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
|
|
Public Function Get_Server(ByVal Nr As Integer)
|
|
Me.cpMainConnectionProvider = Globals.conn
|
|
Me.iServerInventarNr = New SqlInt32(CType(Nr, Int32))
|
|
Globals.conn.OpenConnection()
|
|
Me.SelectOne()
|
|
Me.MutiererText = Get_Mutierer(Me.iMutierer.Value)
|
|
Globals.conn.CloseConnection(True)
|
|
|
|
End Function
|
|
|
|
Public Function Save_Data() As Integer
|
|
Me.cpMainConnectionProvider = Globals.conn
|
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
|
|
Globals.conn.OpenConnection()
|
|
Me.Update()
|
|
Globals.conn.CloseConnection(True)
|
|
Return Me.iServerInventarNr.Value
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Mutierer auslesen
|
|
''' </summary>
|
|
''' <returns></returns>
|
|
''' <remarks></remarks>
|
|
Public Function Get_Mutierer(ByVal nr As Integer) As String
|
|
Dim ma As New TKB.VV.DB.clsMitarbeiter
|
|
Dim dt As New DataTable
|
|
Dim Retvalue As String
|
|
ma.cpMainConnectionProvider = Globals.conn
|
|
ma.iMitarbeiternr = New SqlInt32(CType(nr, Int32))
|
|
dt = ma.SelectOne()
|
|
If dt.Rows.Count = 0 Then
|
|
Retvalue = ("{" + nr.ToString + "}")
|
|
Else
|
|
Retvalue = ma.sName.ToString + " " + ma.sVorname.ToString + ", " + ma.sTgnummer.ToString
|
|
End If
|
|
ma.Dispose()
|
|
dt.Dispose()
|
|
Return Retvalue
|
|
End Function
|
|
|
|
''' <summary>
|
|
''' Löschen eines Datensatzes erstellen.
|
|
''' </summary>
|
|
''' <param name="Basenr"></param>
|
|
''' <returns></returns>
|
|
''' <remarks></remarks>
|
|
Public Function Delete_Server(Optional ByVal Basenr As Integer = 0) As Integer
|
|
If Basenr <> 0 Then
|
|
Get_Server(Basenr)
|
|
End If
|
|
Me.cpMainConnectionProvider = Globals.conn
|
|
Me.bAktiv = New SqlBoolean(CType(False, Boolean))
|
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
|
|
Globals.conn.OpenConnection()
|
|
Me.Update()
|
|
Globals.conn.CloseConnection(True)
|
|
End Function
|
|
''' <summary>
|
|
''' Löschen eines Datensatzes .
|
|
''' </summary>
|
|
''' <param name="Basenr"></param>
|
|
''' <returns></returns>
|
|
''' <remarks></remarks>
|
|
Public Overloads Function Delete(Optional ByVal Basenr As Integer = 0) As Integer
|
|
If Basenr <> 0 Then
|
|
Get_Server(Basenr)
|
|
End If
|
|
Me.cpMainConnectionProvider = Globals.conn
|
|
Globals.conn.OpenConnection()
|
|
MyBase.Delete()
|
|
Globals.conn.CloseConnection(True)
|
|
End Function
|
|
''' <summary>
|
|
''' Neue Kuendigungsfrist einfügen
|
|
''' </summary>
|
|
''' <returns></returns>
|
|
''' <remarks></remarks>
|
|
Public Function Add_New(Optional ByVal Parentid As Integer = 0) As Integer
|
|
Dim db As New TKB.VV.DB.clsMyKey_Tabelle
|
|
db.cpMainConnectionProvider = Globals.conn
|
|
Dim newkey = db.get_dbkey("Server_Inventar")
|
|
db.Dispose()
|
|
Me.iServerInventarNr = New SqlInt32(CType(newkey, Int32))
|
|
Me.sBezeichnung = New SqlString(CType("*** Neues Element ***", String))
|
|
Me.sBeschreibung = New SqlString(CType("", String))
|
|
Me.iParentID = New SqlInt32(CType(0, Int32))
|
|
Me.bAktiv = New SqlBoolean(CType(True, Boolean))
|
|
Me.daErstellt_am = New SqlDateTime(CType(Now, DateTime))
|
|
Me.daMutiert_am = New SqlDateTime(CType(Now, DateTime))
|
|
Me.iMutierer = New SqlInt32(CType(Globals.clsmitarbeiter.iMitarbeiternr.Value, Int32))
|
|
Me.iServer_UmgebungNr = New SqlInt32(CType(1, Int32))
|
|
Me.iServer_KategorieNr = New SqlInt32(CType(1, Int32))
|
|
Me.iServer_OSNr = New SqlInt32(CType(1, Int32))
|
|
Me.iServer_OSLevelNr = New SqlInt32(CType(1, Int32))
|
|
Me.sBemerkung_OS = New SqlString(CType("", String))
|
|
Me.iServer_Backup_LoesungNr = New SqlInt32(CType(1, Int32))
|
|
Me.iServer_Backup_RetentionNr = New SqlInt32(CType(1, Int32))
|
|
Me.sServer_Backup_Bemerkung = New SqlString(CType("", String))
|
|
Me.iServer_DBNr = New SqlInt32(CType(1, Int32))
|
|
Me.sServer_DB_Bemerkung = New SqlString(CType("", String))
|
|
Me.iServer_DB_Backup_LoesungNr = New SqlInt32(CType(1, Int32))
|
|
Me.iServer_DB_Backup_RetentionNr = New SqlInt32(CType(1, Int32))
|
|
Me.sServer_DB_Backup_Bemerkung = New SqlString(CType("", String))
|
|
Me.iServer_StandortNr = New SqlInt32(CType(1, Int32))
|
|
Me.sServer_Stanmdort_Bemerkung = New SqlString(CType("", String))
|
|
Me.iServer_Weiteres_Backup_LoesungNr1 = New SqlInt32(CType(1, Int32))
|
|
Me.iServer_Weiteres_Backup_LoesungNr2 = New SqlInt32(CType(1, Int32))
|
|
Me.iServer_Weiteres_Backup_LoesungNr3 = New SqlInt32(CType(1, Int32))
|
|
Me.iServer_Weiteres_Backup_LoesungNr4 = New SqlInt32(CType(1, Int32))
|
|
Me.iServer_Weiteres_Backup_LoesungNr5 = New SqlInt32(CType(1, Int32))
|
|
Me.iServer_Weiteres_TypNr1 = New SqlInt32(CType(1, Int32))
|
|
Me.iServer_Weiteres_TypNr2 = New SqlInt32(CType(1, Int32))
|
|
Me.iServer_Weiteres_TypNr3 = New SqlInt32(CType(1, Int32))
|
|
Me.iServer_Weiteres_TypNr4 = New SqlInt32(CType(1, Int32))
|
|
Me.iServer_Weiteres_TypNr5 = New SqlInt32(CType(1, Int32))
|
|
Me.iServer_Weiteres_RetentionNr1 = New SqlInt32(CType(1, Int32))
|
|
Me.iServer_Weiteres_RetentionNr2 = New SqlInt32(CType(1, Int32))
|
|
Me.iServer_Weiteres_RetentionNr3 = New SqlInt32(CType(1, Int32))
|
|
Me.iServer_Weiteres_RetentionNr4 = New SqlInt32(CType(1, Int32))
|
|
Me.iServer_Weiteres_RetentionNr5 = New SqlInt32(CType(1, Int32))
|
|
Me.sServer_Weiteres_Bemerkung1 = New SqlString(CType("", String))
|
|
Me.sServer_Weiteres_Bemerkung2 = New SqlString(CType("", String))
|
|
Me.sServer_Weiteres_Bemerkung3 = New SqlString(CType("", String))
|
|
Me.sServer_Weiteres_Bemerkung4 = New SqlString(CType("", String))
|
|
Me.sServer_Weiteres_Bemerkung5 = New SqlString(CType("", String))
|
|
Me.iServer_ProviderNr = New SqlInt32(CType(0, Int32))
|
|
Me.sRZ_Betreiber_Standort = New SqlString(CType("", String))
|
|
|
|
|
|
Me.cpMainConnectionProvider = Globals.conn
|
|
If Parentid <> 0 Then
|
|
Me.iParentID = New SqlInt32(CType(Parentid, Int32))
|
|
End If
|
|
Globals.conn.OpenConnection()
|
|
Me.Insert()
|
|
Globals.conn.CloseConnection(True)
|
|
|
|
Return newkey
|
|
End Function
|
|
|
|
Dim treedata As New DataSet
|
|
Public Function Load_tree(ByRef tree As TreeView, Optional fnkt As Integer = 0)
|
|
tree.Nodes.Clear()
|
|
Load_Treedata(fnkt)
|
|
|
|
If Not (treedata Is Nothing) Then
|
|
Dim oView As DataView = treedata.Tables(0).DefaultView
|
|
Dim oTable As DataTable = oView.Table
|
|
Dim oDS As DataSet = New DataSet()
|
|
oDS.Tables.Add(oTable.Copy())
|
|
|
|
If oDS.Relations.Contains("SelfRefenceRelation") = False Then
|
|
oDS.Relations.Add("SelfRefenceRelation", _
|
|
oDS.Tables(0).Columns("mainkey"), _
|
|
oDS.Tables(0).Columns("Parentid"))
|
|
End If
|
|
oTable.Dispose()
|
|
oTable = Nothing
|
|
|
|
LoadTreeView(oDS, tree)
|
|
oDS.Dispose()
|
|
oDS = Nothing
|
|
End If
|
|
Select_First_Datanode(tree)
|
|
End Function
|
|
|
|
Public Function Load_tree_filter(ByRef tree As TreeView, ByVal treedata As DataSet)
|
|
tree.Nodes.Clear()
|
|
|
|
If Not (treedata Is Nothing) Then
|
|
Dim oView As DataView = treedata.Tables(0).DefaultView
|
|
Dim oTable As DataTable = oView.Table
|
|
Dim oDS As DataSet = New DataSet()
|
|
oDS.Tables.Add(oTable.Copy())
|
|
|
|
If oDS.Relations.Contains("SelfRefenceRelation") = False Then
|
|
oDS.Relations.Add("SelfRefenceRelation", _
|
|
oDS.Tables(0).Columns("mainkey"), _
|
|
oDS.Tables(0).Columns("Parentid"))
|
|
End If
|
|
oTable.Dispose()
|
|
oTable = Nothing
|
|
|
|
LoadTreeView(oDS, tree)
|
|
oDS.Dispose()
|
|
oDS = Nothing
|
|
End If
|
|
Select_First_Datanode(tree)
|
|
End Function
|
|
|
|
|
|
|
|
Sub Load_Treedata(ByVal fnkt As Integer)
|
|
|
|
treedata.Tables.Clear()
|
|
Dim selectcommand As New SqlCommand
|
|
Dim connection As New SqlConnection()
|
|
Dim da As New SqlDataAdapter("", connection)
|
|
|
|
selectcommand.CommandText = "sp_ServerInventar"
|
|
selectcommand.Parameters.Add("@Fnkt", SqlDbType.Int)
|
|
selectcommand.Parameters(0).Value = fnkt
|
|
selectcommand.CommandType = CommandType.StoredProcedure
|
|
selectcommand.Connection = connection
|
|
Try
|
|
connection.ConnectionString = Globals.sConnectionString
|
|
connection.Open()
|
|
da.SelectCommand = selectcommand
|
|
da.Fill(treedata, "Tree")
|
|
|
|
Me.Tree_Data_For_Search = treedata.Tables(0).Copy
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
Finally
|
|
connection.Close()
|
|
da.Dispose()
|
|
selectcommand.Dispose()
|
|
End Try
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Tree aufbauen
|
|
''' </summary>
|
|
''' <param name="oDS"></param>
|
|
''' <param name="oTreeview"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub LoadTreeView(ByVal oDS As DataSet, ByRef oTreeview As TreeView)
|
|
'Dim oTreeView As TreeView = New TreeView()
|
|
Dim oDataRow As DataRow
|
|
For Each oDataRow In oDS.Tables(0).Rows
|
|
If Not oDataRow.IsNull("Parentid") Then
|
|
If oDataRow.Item("Parentid") = 0 Then
|
|
'If oDataRow.IsNull("Parentid") Then
|
|
Dim oNode As New TreeNode()
|
|
oNode.Text = Trim(oDataRow("Bezeichnung").ToString())
|
|
oNode.Tag = oDataRow("Mainkey").ToString
|
|
oNode.ImageIndex = oDataRow("ImageIndex")
|
|
oNode.SelectedImageIndex = oDataRow("ImageIndex")
|
|
oNode.StateImageIndex = oDataRow("ImageIndex")
|
|
'Dim fnt_Strikeout As Font
|
|
'If oDataRow("AKTIV") = 0 Then
|
|
' fnt_Strikeout = New System.Drawing.Font(oTreeview.Font.FontFamily, oTreeview.Font.Size, FontStyle.Strikeout)
|
|
' oNode.NodeFont = fnt_strikeout
|
|
|
|
'End If
|
|
oTreeview.Nodes.Add(oNode)
|
|
RecursivelyLoadTree(oDataRow, oNode, oTreeview)
|
|
End If
|
|
End If
|
|
Next oDataRow
|
|
oDS.Dispose()
|
|
oDS = Nothing
|
|
End Sub
|
|
''' <summary>
|
|
''' Child-Nodes hinzufügen
|
|
''' </summary>
|
|
''' <param name="oDataRow"></param>
|
|
''' <param name="oNode"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub RecursivelyLoadTree(ByVal oDataRow As DataRow, ByRef oNode As TreeNode, ByRef tv As TreeView)
|
|
Dim oChildRow As DataRow
|
|
For Each oChildRow In oDataRow.GetChildRows("SelfRefenceRelation")
|
|
Dim oChildNode As New TreeNode()
|
|
oChildNode.Text = Trim(oChildRow("Bezeichnung").ToString())
|
|
oChildNode.Tag = oChildRow("Mainkey").ToString()
|
|
oChildNode.ImageIndex = oChildRow("ImageIndex")
|
|
oChildNode.SelectedImageIndex = oChildRow("ImageIndex")
|
|
oChildNode.StateImageIndex = oChildRow("ImageIndex")
|
|
'If oChildRow("AKTIV") = 0 Then
|
|
'Dim fnt_Strikeout As Font
|
|
'If oChildRow("AKTIV") = 0 Then
|
|
' fnt_Strikeout = New System.Drawing.Font(tv.Font.FontFamily, tv.Font.Size, FontStyle.Strikeout)
|
|
' oChildNode.NodeFont = fnt_Strikeout
|
|
|
|
'End If
|
|
'End If
|
|
oNode.Nodes.Add(oChildNode)
|
|
RecursivelyLoadTree(oChildRow, oChildNode, tv)
|
|
Next oChildRow
|
|
End Sub
|
|
|
|
|
|
Public Sub insert_server_applikation(ByVal servernr As Integer, ByVal applnr As Integer)
|
|
Dim sqlcmd As New SqlCommand
|
|
Dim connection As New SqlConnection()
|
|
Dim da As New SqlDataAdapter("", connection)
|
|
|
|
sqlcmd.CommandText = "sp_get_set_server_applikation"
|
|
sqlcmd.Parameters.Add("@serverapplnr", SqlDbType.Int)
|
|
sqlcmd.Parameters.Add("@servernr", SqlDbType.Int)
|
|
sqlcmd.Parameters.Add("@applnr", SqlDbType.Int)
|
|
sqlcmd.Parameters.Add("@bemerkung", SqlDbType.VarChar)
|
|
sqlcmd.Parameters.Add("@mitarbeiternr", SqlDbType.Int)
|
|
sqlcmd.Parameters.Add("@fnkt", SqlDbType.Int)
|
|
sqlcmd.Parameters(0).Value = 0
|
|
sqlcmd.Parameters(1).Value = servernr
|
|
sqlcmd.Parameters(2).Value = applnr
|
|
sqlcmd.Parameters(3).Value = ""
|
|
sqlcmd.Parameters(4).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
sqlcmd.Parameters(5).Value = 2
|
|
sqlcmd.CommandType = CommandType.StoredProcedure
|
|
sqlcmd.Connection = connection
|
|
Try
|
|
connection.ConnectionString = Globals.sConnectionString
|
|
connection.Open()
|
|
sqlcmd.ExecuteNonQuery()
|
|
connection.Close()
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
|
|
End Sub
|
|
|
|
Public Sub refresh_applikation(servernr As Integer, ByRef tree As Windows.Forms.TreeView)
|
|
tree.Nodes.Clear()
|
|
Dim treedata1 As New DataSet
|
|
Dim sqlcmd As New SqlCommand
|
|
Dim connection As New SqlConnection()
|
|
Dim da As New SqlDataAdapter("", connection)
|
|
|
|
sqlcmd.CommandText = "sp_get_set_server_applikation"
|
|
sqlcmd.Parameters.Add("@serverapplnr", SqlDbType.Int)
|
|
sqlcmd.Parameters.Add("@servernr", SqlDbType.Int)
|
|
sqlcmd.Parameters.Add("@applnr", SqlDbType.Int)
|
|
sqlcmd.Parameters.Add("@bemerkung", SqlDbType.VarChar)
|
|
sqlcmd.Parameters.Add("@mitarbeiternr", SqlDbType.Int)
|
|
sqlcmd.Parameters.Add("@fnkt", SqlDbType.Int)
|
|
sqlcmd.Parameters(0).Value = 0
|
|
sqlcmd.Parameters(1).Value = servernr
|
|
sqlcmd.Parameters(2).Value = 0
|
|
sqlcmd.Parameters(3).Value = ""
|
|
sqlcmd.Parameters(4).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
sqlcmd.Parameters(5).Value = 1
|
|
sqlcmd.CommandType = CommandType.StoredProcedure
|
|
sqlcmd.Connection = connection
|
|
Try
|
|
connection.ConnectionString = Globals.sConnectionString
|
|
connection.Open()
|
|
da.SelectCommand = sqlcmd
|
|
da.Fill(treedata1, "Tree")
|
|
connection.Close()
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
|
|
For Each r As DataRow In treedata1.Tables(0).Rows
|
|
If (Me.Applfilter = 0 And r("imageindex") = 0) Or (Me.Applfilter = 1 And r("imageindex") = 1) Or Me.Applfilter = 2 Then
|
|
Dim tn As New TreeNode
|
|
tn = tree.Nodes.Add(r("Bezeichnung"))
|
|
tn.Tag = r("ApplikationNr")
|
|
tn.ImageIndex = r("imageindex")
|
|
tn.SelectedImageIndex = r("imageindex")
|
|
tn.StateImageIndex = r("imageindex")
|
|
End If
|
|
Next
|
|
|
|
End Sub
|
|
|
|
Public Sub refresh_Server(Applikationnr As Integer, ByRef tree As Windows.Forms.TreeView)
|
|
tree.Nodes.Clear()
|
|
Dim treedata1 As New DataSet
|
|
Dim sqlcmd As New SqlCommand
|
|
Dim connection As New SqlConnection()
|
|
Dim da As New SqlDataAdapter("", connection)
|
|
|
|
sqlcmd.CommandText = "sp_get_set_server_applikation"
|
|
sqlcmd.Parameters.Add("@serverapplnr", SqlDbType.Int)
|
|
sqlcmd.Parameters.Add("@servernr", SqlDbType.Int)
|
|
sqlcmd.Parameters.Add("@applnr", SqlDbType.Int)
|
|
sqlcmd.Parameters.Add("@bemerkung", SqlDbType.VarChar)
|
|
sqlcmd.Parameters.Add("@mitarbeiternr", SqlDbType.Int)
|
|
sqlcmd.Parameters.Add("@fnkt", SqlDbType.Int)
|
|
sqlcmd.Parameters(0).Value = 0
|
|
sqlcmd.Parameters(1).Value = 0
|
|
sqlcmd.Parameters(2).Value = Applikationnr
|
|
sqlcmd.Parameters(3).Value = ""
|
|
sqlcmd.Parameters(4).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
sqlcmd.Parameters(5).Value = 3
|
|
sqlcmd.CommandType = CommandType.StoredProcedure
|
|
sqlcmd.Connection = connection
|
|
Try
|
|
connection.ConnectionString = Globals.sConnectionString
|
|
connection.Open()
|
|
da.SelectCommand = sqlcmd
|
|
da.Fill(treedata1, "Tree")
|
|
connection.Close()
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
|
|
|
|
|
|
tree.Nodes.Clear()
|
|
If Not (treedata1 Is Nothing) Then
|
|
Dim oView As DataView = treedata1.Tables(0).DefaultView
|
|
Dim oTable As DataTable = oView.Table
|
|
Dim oDS As DataSet = New DataSet()
|
|
oDS.Tables.Add(oTable.Copy())
|
|
|
|
If oDS.Relations.Contains("SelfRefenceRelation") = False Then
|
|
oDS.Relations.Add("SelfRefenceRelation", _
|
|
oDS.Tables(0).Columns("mainkey"), _
|
|
oDS.Tables(0).Columns("Parentid"))
|
|
End If
|
|
oTable.Dispose()
|
|
oTable = Nothing
|
|
|
|
LoadTreeView(oDS, tree)
|
|
oDS.Dispose()
|
|
oDS = Nothing
|
|
End If
|
|
tree.ExpandAll()
|
|
Select_First_Datanode(tree)
|
|
|
|
|
|
End Sub
|
|
|
|
Public Sub Delete_Server_Applikation(ByVal Servernr As Integer, ByVal Applikationnr As Integer)
|
|
Dim treedata1 As New DataSet
|
|
Dim sqlcmd As New SqlCommand
|
|
Dim connection As New SqlConnection()
|
|
Dim da As New SqlDataAdapter("", connection)
|
|
|
|
sqlcmd.CommandText = "sp_get_set_server_applikation"
|
|
sqlcmd.Parameters.Add("@serverapplnr", SqlDbType.Int)
|
|
sqlcmd.Parameters.Add("@servernr", SqlDbType.Int)
|
|
sqlcmd.Parameters.Add("@applnr", SqlDbType.Int)
|
|
sqlcmd.Parameters.Add("@bemerkung", SqlDbType.VarChar)
|
|
sqlcmd.Parameters.Add("@mitarbeiternr", SqlDbType.Int)
|
|
sqlcmd.Parameters.Add("@fnkt", SqlDbType.Int)
|
|
sqlcmd.Parameters(0).Value = 0
|
|
sqlcmd.Parameters(1).Value = Servernr
|
|
sqlcmd.Parameters(2).Value = Applikationnr
|
|
sqlcmd.Parameters(3).Value = ""
|
|
sqlcmd.Parameters(4).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
sqlcmd.Parameters(5).Value = 4
|
|
If Applikationnr = -1 Then sqlcmd.Parameters(5).Value = 5
|
|
sqlcmd.CommandType = CommandType.StoredProcedure
|
|
sqlcmd.Connection = connection
|
|
Try
|
|
connection.ConnectionString = Globals.sConnectionString
|
|
connection.Open()
|
|
sqlcmd.ExecuteNonQuery()
|
|
connection.Close()
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Public Sub Activate_Server_Application(ByVal key As Integer)
|
|
Dim treedata1 As New DataSet
|
|
Dim sqlcmd As New SqlCommand
|
|
Dim connection As New SqlConnection()
|
|
Dim da As New SqlDataAdapter("", connection)
|
|
|
|
sqlcmd.CommandText = "sp_get_set_server_applikation"
|
|
sqlcmd.Parameters.Add("@serverapplnr", SqlDbType.Int)
|
|
sqlcmd.Parameters.Add("@servernr", SqlDbType.Int)
|
|
sqlcmd.Parameters.Add("@applnr", SqlDbType.Int)
|
|
sqlcmd.Parameters.Add("@bemerkung", SqlDbType.VarChar)
|
|
sqlcmd.Parameters.Add("@mitarbeiternr", SqlDbType.Int)
|
|
sqlcmd.Parameters.Add("@fnkt", SqlDbType.Int)
|
|
sqlcmd.Parameters(0).Value = key
|
|
sqlcmd.Parameters(1).Value = 0
|
|
sqlcmd.Parameters(2).Value = 0
|
|
sqlcmd.Parameters(3).Value = ""
|
|
sqlcmd.Parameters(4).Value = Globals.clsmitarbeiter.iMitarbeiternr.Value
|
|
sqlcmd.Parameters(5).Value = 6
|
|
|
|
sqlcmd.CommandType = CommandType.StoredProcedure
|
|
sqlcmd.Connection = connection
|
|
Try
|
|
connection.ConnectionString = Globals.sConnectionString
|
|
connection.Open()
|
|
sqlcmd.ExecuteNonQuery()
|
|
connection.Close()
|
|
Catch ex As Exception
|
|
MsgBox(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
|
|
|
|
Public Function FindNode(ByVal _nodeCollection As TreeNodeCollection, ByVal SearchVal As Integer, ByVal SearchString As String) As TreeNode
|
|
Dim tmpNode As TreeNode
|
|
For Each _child As TreeNode In _nodeCollection
|
|
If _child.Tag = SearchVal Then
|
|
|
|
Return _child
|
|
End If
|
|
tmpNode = FindNode(_child.Nodes, SearchVal, SearchString)
|
|
If Not tmpNode Is Nothing Then
|
|
Return tmpNode
|
|
End If
|
|
Next
|
|
Return Nothing
|
|
End Function
|
|
|
|
Public Sub FindByText(ByRef tree As TreeView, ByVal Searchtext As String)
|
|
Dim nodes As TreeNodeCollection = tree.Nodes
|
|
Dim n As TreeNode
|
|
For Each n In nodes
|
|
FindRecursive(n, Searchtext, tree)
|
|
Next
|
|
End Sub
|
|
|
|
Public Sub FindByTag(ByRef tree As TreeView, ByVal Searchtext As String)
|
|
Dim nodes As TreeNodeCollection = tree.Nodes
|
|
Dim n As TreeNode
|
|
For Each n In nodes
|
|
FindRecursive_tag(n, Searchtext, tree)
|
|
Next
|
|
End Sub
|
|
|
|
Private Sub FindRecursive_tag(ByVal tNode As TreeNode, ByVal Searchtext As String, ByRef tree As TreeView)
|
|
Dim tn As TreeNode
|
|
For Each tn In tNode.Nodes
|
|
' if the text properties match, color the item
|
|
If tn.Tag = Searchtext Then
|
|
tree.SelectedNode = tn
|
|
End If
|
|
FindRecursive_tag(tn, Searchtext, tree)
|
|
Next
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Private Sub FindRecursive(ByVal tNode As TreeNode, ByVal Searchtext As String, ByRef tree As TreeView)
|
|
Dim tn As TreeNode
|
|
For Each tn In tNode.Nodes
|
|
' if the text properties match, color the item
|
|
If tn.Text = Searchtext Then
|
|
tree.SelectedNode = tn
|
|
End If
|
|
FindRecursive(tn, Searchtext, tree)
|
|
Next
|
|
|
|
End Sub
|
|
|
|
|
|
|
|
Public Function Select_First_Datanode(ByRef tree As TreeView)
|
|
Try
|
|
Dim tn As New TreeNode
|
|
Dim tnok As New TreeNode
|
|
tn = tree.Nodes(0)
|
|
Try
|
|
For i As Integer = 1 To 100
|
|
tnok = tn
|
|
tn = tn.Nodes(0)
|
|
Next
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
tree.SelectedNode = tnok
|
|
Catch
|
|
End Try
|
|
|
|
End Function
|
|
End Class
|
|
|
|
|
|
|
|
End Namespace
|
|
|