728 lines
30 KiB
VB.net
728 lines
30 KiB
VB.net
Imports System.Data.SqlTypes
|
|
|
|
Public Class CtrlServerInventar
|
|
|
|
Dim Server As TKB.VV.Server.clsServerinventar
|
|
Dim sec As TKB.VV.Utils.MySecurity
|
|
|
|
Dim msg As TKB.VV.Utils.MyMessage
|
|
Dim FormReadonly As Boolean = False
|
|
Dim FormDataChanged As Boolean = False
|
|
Dim SpaltenTitel As New TKB.VV.Utils.Tabellenspalte
|
|
Dim isnewServer As Boolean = False
|
|
Dim baseform As Windows.Forms.Form
|
|
Friend selectPoint As New System.Drawing.Point()
|
|
|
|
Dim m_Show_In_Application As Boolean
|
|
Property Show_In_Application As Boolean
|
|
Get
|
|
|
|
End Get
|
|
Set(value As Boolean)
|
|
Me.m_Show_In_Application = value
|
|
If value = True Then
|
|
GRPServer.Width = 160
|
|
GrpApplication.Visible = False
|
|
sec.ControlReadonly(Me)
|
|
End If
|
|
End Set
|
|
End Property
|
|
|
|
#Region "Closing / Check_Changes"
|
|
|
|
Public Sub init(ByRef bform As Windows.Forms.Form)
|
|
Server = New TKB.VV.Server.clsServerinventar
|
|
sec = New TKB.VV.Utils.MySecurity
|
|
msg = New TKB.VV.Utils.MyMessage
|
|
Me.baseform = bform
|
|
End Sub
|
|
''' <summary>
|
|
''' Schliessen des Formulars
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub FormularClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs)
|
|
If Me.FormReadonly = True Then Exit Sub
|
|
If Check_Changes() = False Then
|
|
e.Cancel = True
|
|
Else
|
|
|
|
|
|
Server.dispose()
|
|
Me.Dispose()
|
|
End If
|
|
End Sub
|
|
|
|
''' <summary>
|
|
''' Prüfung, ob Datenänderungen vorgenommen wurden.
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Private Function Check_Changes() As Boolean
|
|
If Me.FormReadonly Then
|
|
Return True
|
|
Exit Function
|
|
End If
|
|
Dim msgres As MsgBoxResult
|
|
If Me.FormDataChanged Then
|
|
msgres = msg.Show_MessageYesNoCancel(3)
|
|
Select Case msgres
|
|
Case MsgBoxResult.Yes
|
|
Save_data()
|
|
Return True
|
|
Case MsgBoxResult.Cancel
|
|
Return False
|
|
Case MsgBoxResult.No
|
|
Me.FormDataChanged = False
|
|
Return True
|
|
End Select
|
|
Else
|
|
Return True
|
|
End If
|
|
End Function
|
|
|
|
#End Region
|
|
|
|
#Region "Eventhandler ChangeEreignisse"
|
|
''' <summary>
|
|
''' Allg Eventhandler für Chanage-Ereignise festlegen
|
|
''' </summary>
|
|
''' <param name="Container"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub AddChanges(ByVal Container As Control)
|
|
Dim l As New List(Of Control)
|
|
Me.GetControl(Me, "*", l)
|
|
Dim evh As EventHandler = AddressOf ChangesMade
|
|
For Each c As Control In l
|
|
If TypeOf c Is TextBox Then
|
|
Dim ctl As TextBox = c
|
|
AddHandler ctl.TextChanged, evh
|
|
End If
|
|
If TypeOf c Is MaskedTextBox Then
|
|
Dim ctl As MaskedTextBox = c
|
|
AddHandler ctl.TextChanged, evh
|
|
End If
|
|
If TypeOf c Is ComboBox Then
|
|
Dim ctl As ComboBox = c
|
|
AddHandler ctl.SelectedValueChanged, evh
|
|
End If
|
|
If TypeOf c Is RichTextBox Then
|
|
Dim ctl As RichTextBox = c
|
|
AddHandler ctl.TextChanged, evh
|
|
End If
|
|
If TypeOf c Is CheckBox Then
|
|
If c.Name <> "cboxNurAktive" Then
|
|
Dim ctl As CheckBox = c
|
|
AddHandler ctl.CheckedChanged, evh
|
|
End If
|
|
End If
|
|
If TypeOf c Is CheckedListBox Then
|
|
Dim ctl As CheckedListBox = c
|
|
AddHandler ctl.ItemCheck, AddressOf ChecketListBoxChange
|
|
End If
|
|
Next
|
|
End Sub
|
|
''' <summary>
|
|
''' Envent-Handler für Change-Ereignisse
|
|
''' </summary>
|
|
''' <param name="sender"></param>
|
|
''' <param name="e"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub ChangesMade(ByVal sender As Object, ByVal e As System.EventArgs)
|
|
Me.FormDataChanged = True
|
|
Dim objtype As System.Type = sender.GetType
|
|
If objtype.Name = "MaskedTextBox" Then
|
|
Dim o As MaskedTextBox = sender
|
|
If o.Text = "01.01.1900" Then o.Text = " . . "
|
|
End If
|
|
End Sub
|
|
Private Sub ChecketListBoxChange(ByVal sender As Object, ByVal e As System.Windows.Forms.ItemCheckEventArgs)
|
|
Me.FormDataChanged = True
|
|
End Sub
|
|
|
|
|
|
''' <summary>
|
|
''' Sucht in den Base-Controls sämtliche Controls mit dem Namen in "Key" (Wildcards * möglich) und listet
|
|
''' die gefundnen Controls in der Liste L zur weiteren Bearbeitung
|
|
''' </summary>
|
|
''' <param name="BaseControl">Base-Contrlo (z.B. aktuelles Formular</param>
|
|
''' <param name="Key">Schlüssel welcher gesucht werden soll</param>
|
|
''' <param name="L">Liste der gefundenen Objekte</param>
|
|
''' <returns>True wenn eines oder mehr Controls gefunden wurden, false wenn kein Control gefunden wurde.
|
|
''' </returns>
|
|
''' <remarks></remarks>
|
|
Private Function GetControl(ByVal BaseControl As Control, ByVal Key As String, ByRef L As List(Of Control), Optional ByVal ReturnAtFirstElement As Boolean = False) As Boolean
|
|
If L Is Nothing Then L = New List(Of Control)
|
|
Dim Gut As Boolean
|
|
Dim ReturnFlag As Boolean = False
|
|
If Key IsNot Nothing Then Key = Key.ToLower
|
|
|
|
If BaseControl.HasChildren = True Then
|
|
For Each ctl As Control In BaseControl.Controls
|
|
Gut = False
|
|
If Key Is Nothing Then
|
|
Gut = True
|
|
Else
|
|
If ctl.Name.Length >= Key.Length Then
|
|
Key = Key.ToLower
|
|
If Key.StartsWith("*") Then
|
|
If Key.Substring(1) = ctl.Name.ToLower.Substring(ctl.Name.Length - (Key.Length - 1), Key.Length - 1) Then Gut = True
|
|
ElseIf Key.EndsWith("*") Then
|
|
If Key.Substring(0, Key.Length - 1) = ctl.Name.ToLower.Substring(0, Key.Length - 1) Then Gut = True
|
|
Else
|
|
If Key = ctl.Name.ToLower Then Gut = True
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
If Gut = True Then
|
|
L.Add(ctl)
|
|
If ReturnAtFirstElement = True Then ReturnFlag = True
|
|
End If
|
|
If ReturnFlag = False Then
|
|
Call GetControl(ctl, Key, L)
|
|
End If
|
|
Next
|
|
End If
|
|
|
|
If L.Count - 1 > -1 Then
|
|
Return True
|
|
Else
|
|
Return False
|
|
End If
|
|
End Function
|
|
#End Region
|
|
|
|
#Region "Formular"
|
|
Public Sub Load()
|
|
Me.cbboxUmgebung.DataSource = Server.Umgebung
|
|
Me.cbboxUmgebung.DisplayMember = "Bezeichnung"
|
|
Me.cbboxUmgebung.ValueMember = "Server_UmgebungNr"
|
|
|
|
Me.cbboxOS.DataSource = Server.OS
|
|
Me.cbboxOS.DisplayMember = "Bezeichnung"
|
|
Me.cbboxOS.ValueMember = "Server_OSNr"
|
|
|
|
Me.cbboxOSLevel.DataSource = Server.OSLevel
|
|
Me.cbboxOSLevel.DisplayMember = "Bezeichnung"
|
|
Me.cbboxOSLevel.ValueMember = "Server_OSLevelNr"
|
|
|
|
Me.cbboxBackupLoesung.DataSource = Server.Backup
|
|
Me.cbboxBackupLoesung.DisplayMember = "Bezeichnung"
|
|
Me.cbboxBackupLoesung.ValueMember = "Server_Backup_Loesungnr"
|
|
|
|
Me.cbboxBackupRetention.DataSource = Server.Retention
|
|
Me.cbboxBackupRetention.DisplayMember = "Bezeichnung"
|
|
Me.cbboxBackupRetention.ValueMember = "Server_Backup_RetentionNr"
|
|
|
|
Me.cbboxDB.DataSource = Server.db
|
|
Me.cbboxDB.DisplayMember = "Bezeichnung"
|
|
Me.cbboxDB.ValueMember = "Server_DBNr"
|
|
|
|
Me.cbboxDBBackupLoesung.DataSource = Server.dbBackup
|
|
Me.cbboxDBBackupLoesung.DisplayMember = "Bezeichnung"
|
|
Me.cbboxDBBackupLoesung.ValueMember = "Server_DB_Backup_LoesungNr"
|
|
|
|
Me.cbboxDBBackupRetention.DataSource = Server.dbRetention
|
|
Me.cbboxDBBackupRetention.DisplayMember = "Bezeichnung"
|
|
Me.cbboxDBBackupRetention.ValueMember = "Server_DB_Backup_RetentionNr"
|
|
|
|
Me.cbboxStandort.DataSource = Server.Standort
|
|
Me.cbboxStandort.DisplayMember = "Bezeichnung"
|
|
Me.cbboxStandort.ValueMember = "Server_StandortNr"
|
|
|
|
Me.cbboxKategorie.DataSource = Server.Kategorie
|
|
Me.cbboxKategorie.DisplayMember = "Bezeichnung"
|
|
Me.cbboxKategorie.ValueMember = "Server_KategorieNr"
|
|
|
|
|
|
Me.cbboxWeiteresTyp1.DataSource = Server.Weiteres_Typ1
|
|
Me.cbboxWeiteresTyp1.DisplayMember = "Bezeichnung"
|
|
Me.cbboxWeiteresTyp1.ValueMember = "Server_Weiteres_TypNr"
|
|
Me.cbboxWeiteresTyp2.DataSource = Server.Weiteres_Typ2
|
|
Me.cbboxWeiteresTyp2.DisplayMember = "Bezeichnung"
|
|
Me.cbboxWeiteresTyp2.ValueMember = "Server_Weiteres_TypNr"
|
|
Me.cbboxWeiteresTyp3.DataSource = Server.Weiteres_Typ3
|
|
Me.cbboxWeiteresTyp3.DisplayMember = "Bezeichnung"
|
|
Me.cbboxWeiteresTyp3.ValueMember = "Server_Weiteres_TypNr"
|
|
Me.cbboxWeiteresTyp4.DataSource = Server.Weiteres_Typ4
|
|
Me.cbboxWeiteresTyp4.DisplayMember = "Bezeichnung"
|
|
Me.cbboxWeiteresTyp4.ValueMember = "Server_Weiteres_TypNr"
|
|
Me.cbboxWeiteresTyp5.DataSource = Server.Weiteres_Typ5
|
|
Me.cbboxWeiteresTyp5.DisplayMember = "Bezeichnung"
|
|
Me.cbboxWeiteresTyp5.ValueMember = "Server_Weiteres_TypNr"
|
|
|
|
Me.cbboxWeiteresBackupLoesung1.DataSource = Server.Weiteres_Backup_Loesung1
|
|
Me.cbboxWeiteresBackupLoesung1.DisplayMember = "Bezeichnung"
|
|
Me.cbboxWeiteresBackupLoesung1.ValueMember = "Server_Weiteres_Backup_LoesungNr"
|
|
Me.cbboxWeiteresBackupLoesung2.DataSource = Server.Weiteres_Backup_Loesung2
|
|
Me.cbboxWeiteresBackupLoesung2.DisplayMember = "Bezeichnung"
|
|
Me.cbboxWeiteresBackupLoesung2.ValueMember = "Server_Weiteres_Backup_LoesungNr"
|
|
Me.cbboxWeiteresBackupLoesung3.DataSource = Server.Weiteres_Backup_Loesung3
|
|
Me.cbboxWeiteresBackupLoesung3.DisplayMember = "Bezeichnung"
|
|
Me.cbboxWeiteresBackupLoesung3.ValueMember = "Server_Weiteres_Backup_LoesungNr"
|
|
Me.cbboxWeiteresBackupLoesung4.DataSource = Server.Weiteres_Backup_Loesung4
|
|
Me.cbboxWeiteresBackupLoesung4.DisplayMember = "Bezeichnung"
|
|
Me.cbboxWeiteresBackupLoesung4.ValueMember = "Server_Weiteres_Backup_LoesungNr"
|
|
Me.cbboxWeiteresBackupLoesung5.DataSource = Server.Weiteres_Backup_Loesung5
|
|
Me.cbboxWeiteresBackupLoesung5.DisplayMember = "Bezeichnung"
|
|
Me.cbboxWeiteresBackupLoesung5.ValueMember = "Server_Weiteres_Backup_LoesungNr"
|
|
|
|
Me.cbboxWeiteresRetention1.DataSource = Server.Weiteres_Retention1
|
|
Me.cbboxWeiteresRetention1.DisplayMember = "Bezeichnung"
|
|
Me.cbboxWeiteresRetention1.ValueMember = "Server_Weiteres_RetentionNr"
|
|
Me.cbboxWeiteresRetention2.DataSource = Server.Weiteres_Retention2
|
|
Me.cbboxWeiteresRetention2.DisplayMember = "Bezeichnung"
|
|
Me.cbboxWeiteresRetention2.ValueMember = "Server_Weiteres_RetentionNr"
|
|
Me.cbboxWeiteresRetention3.DataSource = Server.Weiteres_Retention3
|
|
Me.cbboxWeiteresRetention3.DisplayMember = "Bezeichnung"
|
|
Me.cbboxWeiteresRetention3.ValueMember = "Server_Weiteres_RetentionNr"
|
|
Me.cbboxWeiteresRetention4.DataSource = Server.Weiteres_Retention4
|
|
Me.cbboxWeiteresRetention4.DisplayMember = "Bezeichnung"
|
|
Me.cbboxWeiteresRetention4.ValueMember = "Server_Weiteres_RetentionNr"
|
|
Me.cbboxWeiteresRetention5.DataSource = Server.Weiteres_Retention5
|
|
Me.cbboxWeiteresRetention5.DisplayMember = "Bezeichnung"
|
|
Me.cbboxWeiteresRetention5.ValueMember = "Server_Weiteres_RetentionNr"
|
|
|
|
Server.Load_tree(Me.TVServer, 0)
|
|
Me.TVServer.ExpandAll()
|
|
'Me.TVServer.SelectedNode = Me.TVServer.Nodes(0).Nodes(0)
|
|
|
|
End Sub
|
|
|
|
Private Sub TSBtnQuit_Click(sender As Object, e As EventArgs)
|
|
'e.Close()
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Daten"
|
|
''' <summary>
|
|
''' Daten ab DB laden uns ins Form befüllen
|
|
''' </summary>
|
|
''' <param name="Vertragselementnr"></param>
|
|
''' <remarks></remarks>
|
|
Private Sub Init_Controls()
|
|
Me.txtBezeichnung.Text = ""
|
|
Me.txtBeschreibung.Text = ""
|
|
Me.cbboxUmgebung.SelectedValue = -1
|
|
Me.cbboxOS.SelectedValue = -1
|
|
Me.cbboxOSLevel.SelectedValue = -1
|
|
|
|
Me.cbboxBackupLoesung.SelectedValue = -1
|
|
Me.cbboxBackupRetention.SelectedValue = -1
|
|
Me.txtBakup.Text = ""
|
|
|
|
Me.cbboxDB.SelectedValue = -1
|
|
Me.txtDB.Text = ""
|
|
|
|
Me.cbboxDBBackupLoesung.SelectedValue = 1
|
|
Me.cbboxDBBackupRetention.SelectedValue = -1
|
|
Me.txtdbbackup.Text = ""
|
|
|
|
Me.cbboxStandort.SelectedValue = -1
|
|
Me.txtStandort.Text = ""
|
|
|
|
Me.cbboxKategorie.SelectedValue = -1
|
|
|
|
Me.cbboxWeiteresTyp1.SelectedValue = 1
|
|
Me.cbboxWeiteresTyp2.SelectedValue = 1
|
|
Me.cbboxWeiteresTyp3.SelectedValue = 1
|
|
Me.cbboxWeiteresTyp4.SelectedValue = 1
|
|
Me.cbboxWeiteresTyp5.SelectedValue = 1
|
|
|
|
Me.cbboxWeiteresBackupLoesung1.SelectedValue = 1
|
|
Me.cbboxWeiteresBackupLoesung2.SelectedValue = 1
|
|
Me.cbboxWeiteresBackupLoesung3.SelectedValue = 1
|
|
Me.cbboxWeiteresBackupLoesung4.SelectedValue = 1
|
|
Me.cbboxWeiteresBackupLoesung5.SelectedValue = 1
|
|
|
|
Me.cbboxWeiteresRetention1.SelectedValue = 1
|
|
Me.cbboxWeiteresRetention2.SelectedValue = 1
|
|
Me.cbboxWeiteresRetention3.SelectedValue = 1
|
|
Me.cbboxWeiteresRetention4.SelectedValue = 1
|
|
Me.cbboxWeiteresRetention5.SelectedValue = 1
|
|
|
|
Me.txtWeiteres1.Text = ""
|
|
Me.txtWeiteres2.Text = ""
|
|
Me.txtWeiteres3.Text = ""
|
|
Me.txtWeiteres4.Text = ""
|
|
Me.txtWeiteres5.Text = ""
|
|
|
|
|
|
Me.txtmutierer.Text = ""
|
|
Me.cbaktiv.Checked = True
|
|
Me.txterstellt_am.Text = ""
|
|
Me.txtmutiert_am.Text = ""
|
|
'ec.Set_Form_Security(Me)
|
|
|
|
Me.GrpDB.Height = 42
|
|
Me.grpWeiteres.Height = 42
|
|
|
|
|
|
End Sub
|
|
Private Sub Get_Data(ByVal Servernr As Integer)
|
|
Try
|
|
init_Controls()
|
|
|
|
|
|
Server.Get_Server(Servernr)
|
|
Me.txtBezeichnung.Text = Server.sBezeichnung.Value
|
|
Me.txtBeschreibung.Text = Server.sBeschreibung.Value
|
|
Me.cbboxUmgebung.SelectedValue = Server.iServer_UmgebungNr.Value
|
|
Me.cbboxOS.SelectedValue = Server.iServer_OSNr.Value
|
|
Me.cbboxOSLevel.SelectedValue = Server.iServer_OSLevelNr.Value
|
|
|
|
Me.cbboxBackupLoesung.SelectedValue = Server.iServer_Backup_LoesungNr.Value
|
|
Me.cbboxBackupRetention.SelectedValue = Server.iServer_Backup_RetentionNr.Value
|
|
Me.txtBakup.Text = Server.sServer_Backup_Bemerkung.Value
|
|
|
|
Me.cbboxDB.SelectedValue = Server.iServer_DBNr.Value
|
|
Me.txtDB.Text = Server.sServer_DB_Bemerkung.Value
|
|
|
|
Me.cbboxDBBackupLoesung.SelectedValue = Server.iServer_DB_Backup_LoesungNr.Value
|
|
Me.cbboxDBBackupRetention.SelectedValue = Server.iServer_DB_Backup_RetentionNr.Value
|
|
Me.txtdbbackup.Text = Server.sServer_DB_Backup_Bemerkung
|
|
|
|
Me.cbboxStandort.SelectedValue = Server.iServer_StandortNr.Value
|
|
Me.txtStandort.Text = Server.sServer_Stanmdort_Bemerkung.Value
|
|
|
|
Me.cbboxKategorie.SelectedValue = Server.iServer_KategorieNr.Value
|
|
|
|
Me.cbboxWeiteresTyp1.SelectedValue = Server.iServer_Weiteres_TypNr1.Value
|
|
Me.cbboxWeiteresTyp2.SelectedValue = Server.iServer_Weiteres_TypNr2.Value
|
|
Me.cbboxWeiteresTyp3.SelectedValue = Server.iServer_Weiteres_TypNr3.Value
|
|
Me.cbboxWeiteresTyp4.SelectedValue = Server.iServer_Weiteres_TypNr4.Value
|
|
Me.cbboxWeiteresTyp5.SelectedValue = Server.iServer_Weiteres_TypNr5.Value
|
|
|
|
Me.cbboxWeiteresBackupLoesung1.SelectedValue = Server.iServer_Weiteres_Backup_LoesungNr1.Value
|
|
Me.cbboxWeiteresBackupLoesung2.SelectedValue = Server.iServer_Weiteres_Backup_LoesungNr2.Value
|
|
Me.cbboxWeiteresBackupLoesung3.SelectedValue = Server.iServer_Weiteres_Backup_LoesungNr3.Value
|
|
Me.cbboxWeiteresBackupLoesung4.SelectedValue = Server.iServer_Weiteres_Backup_LoesungNr4.Value
|
|
Me.cbboxWeiteresBackupLoesung5.SelectedValue = Server.iServer_Weiteres_Backup_LoesungNr5.Value
|
|
|
|
Me.cbboxWeiteresRetention1.SelectedValue = Server.iServer_Weiteres_RetentionNr1.Value
|
|
Me.cbboxWeiteresRetention2.SelectedValue = Server.iServer_Weiteres_RetentionNr2.Value
|
|
Me.cbboxWeiteresRetention3.SelectedValue = Server.iServer_Weiteres_RetentionNr3.Value
|
|
Me.cbboxWeiteresRetention4.SelectedValue = Server.iServer_Weiteres_RetentionNr4.Value
|
|
Me.cbboxWeiteresRetention5.SelectedValue = Server.iServer_Weiteres_RetentionNr5.Value
|
|
|
|
Me.txtWeiteres1.Text = Server.sServer_Weiteres_Bemerkung1.Value
|
|
Me.txtWeiteres2.Text = Server.sServer_Weiteres_Bemerkung2.Value
|
|
Me.txtWeiteres3.Text = Server.sServer_Weiteres_Bemerkung3.Value
|
|
Me.txtWeiteres4.Text = Server.sServer_Weiteres_Bemerkung4.Value
|
|
Me.txtWeiteres5.Text = Server.sServer_Weiteres_Bemerkung5.Value
|
|
|
|
|
|
Me.txtmutierer.Text = Server.MutiererText
|
|
Me.cbaktiv.Checked = Server.bAktiv.Value = True
|
|
Me.txterstellt_am.Text = Server.daErstellt_am.Value
|
|
Me.txtmutiert_am.Text = Server.daMutiert_am.Value
|
|
'ec.Set_Form_Security(Me)
|
|
refresh_applikation(Servernr)
|
|
|
|
If Me.cbboxDB.SelectedValue = 1 Then Me.GrpDB.Height = 42 Else Me.GrpDB.Height = 185
|
|
If Me.cbboxWeiteresTyp1.SelectedValue <> 1 Or Me.cbboxWeiteresTyp2.SelectedValue <> 1 Or Me.cbboxWeiteresTyp3.SelectedValue <> 1 Or Me.cbboxWeiteresTyp4.SelectedValue <> 1 Or Me.cbboxWeiteresTyp5.SelectedValue <> 1 Then
|
|
Me.grpWeiteres.Height = 190
|
|
Else
|
|
Me.grpWeiteres.Height = 42
|
|
End If
|
|
|
|
|
|
|
|
Me.FormDataChanged = False
|
|
|
|
Catch ex As Exception
|
|
If Me.cbboxDB.SelectedValue = 1 Then Me.GrpDB.Height = 42 Else Me.GrpDB.Height = 185
|
|
If Me.cbboxWeiteresTyp1.SelectedValue <> 1 Or Me.cbboxWeiteresTyp2.SelectedValue <> 1 Or Me.cbboxWeiteresTyp3.SelectedValue <> 1 Or Me.cbboxWeiteresTyp4.SelectedValue <> 1 Or Me.cbboxWeiteresTyp5.SelectedValue <> 1 Then
|
|
Me.grpWeiteres.Height = 190
|
|
Else
|
|
Me.grpWeiteres.Height = 42
|
|
End If
|
|
' MsgBox(ex.Message)
|
|
' Try
|
|
' For Each ctl As ToolStripButton In Me.ToolStrip1.Items
|
|
' ctl.Enabled = False
|
|
' Next
|
|
' Catch
|
|
' End Try
|
|
'Me.TSBtnQuit.Enabled = True
|
|
End Try
|
|
Me.FormDataChanged = False
|
|
|
|
End Sub
|
|
|
|
Private Sub Set_Checkedlistbox(ByRef clb As CheckedListBox, ByRef data As DataTable)
|
|
Dim i As Integer
|
|
For i = 0 To clb.Items.Count - 1
|
|
clb.SetItemCheckState(i, CheckState.Unchecked)
|
|
Next
|
|
|
|
Dim chk As Integer = 0
|
|
Dim ii As Integer
|
|
Dim oc As CheckedListBox.ObjectCollection = clb.Items
|
|
For i = 0 To data.Rows.Count - 1
|
|
For ii = 0 To oc.Count - 1
|
|
If oc.Item(ii).item(0) = data.Rows(i).Item(2) Then
|
|
clb.SetItemCheckState(ii, CheckState.Checked)
|
|
End If
|
|
Next
|
|
Next
|
|
|
|
|
|
End Sub
|
|
''' <summary>
|
|
''' Daten ab Form speichern
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Private Sub Save_data()
|
|
|
|
Server.sBezeichnung = New SqlString(CType(Me.txtBezeichnung.Text, String))
|
|
Server.iServer_UmgebungNr = New SqlInt32(CType(Me.cbboxUmgebung.SelectedValue, Int32))
|
|
Server.iServer_OSNr = New SqlInt32(CType(Me.cbboxOS.SelectedValue, Int32))
|
|
Server.iServer_OSLevelNr = New SqlInt32(CType(Me.cbboxOSLevel.SelectedValue, Int32))
|
|
Server.sBeschreibung = New SqlString(CType(Me.txtBeschreibung.Text, String))
|
|
|
|
Server.iServer_Backup_LoesungNr = New SqlInt32(CType(Me.cbboxBackupLoesung.SelectedValue, Int32))
|
|
Server.iServer_Backup_RetentionNr = New SqlInt32(CType(Me.cbboxBackupRetention.SelectedValue, Int32))
|
|
Server.sServer_Backup_Bemerkung = New SqlString(CType(Me.txtBakup.Text, String))
|
|
|
|
Server.iServer_DBNr = New SqlInt32(CType(Me.cbboxDB.SelectedValue, Int32))
|
|
Server.sServer_DB_Bemerkung = New SqlString(CType(Me.txtDB.Text, String))
|
|
|
|
Server.iServer_DB_Backup_LoesungNr = New SqlInt32(CType(Me.cbboxDBBackupLoesung.SelectedValue, Int32))
|
|
Server.iServer_DB_Backup_RetentionNr = New SqlInt32(CType(Me.cbboxDBBackupRetention.SelectedValue, Int32))
|
|
Server.sServer_DB_Backup_Bemerkung = New SqlString(CType(Me.txtdbbackup.Text, String))
|
|
|
|
Server.iServer_StandortNr = New SqlInt32(CType(Me.cbboxStandort.SelectedValue, Int32))
|
|
Server.sServer_Stanmdort_Bemerkung = New SqlString(CType(Me.txtStandort.Text, String))
|
|
|
|
Server.iServer_KategorieNr = New SqlInt32(CType(Me.cbboxKategorie.SelectedValue, Int32))
|
|
|
|
Server.iServer_Weiteres_TypNr1 = New SqlInt32(CType(Me.cbboxWeiteresTyp1.SelectedValue, Int32))
|
|
Server.iServer_Weiteres_TypNr2 = New SqlInt32(CType(Me.cbboxWeiteresTyp2.SelectedValue, Int32))
|
|
Server.iServer_Weiteres_TypNr3 = New SqlInt32(CType(Me.cbboxWeiteresTyp3.SelectedValue, Int32))
|
|
Server.iServer_Weiteres_TypNr4 = New SqlInt32(CType(Me.cbboxWeiteresTyp4.SelectedValue, Int32))
|
|
Server.iServer_Weiteres_TypNr5 = New SqlInt32(CType(Me.cbboxWeiteresTyp5.SelectedValue, Int32))
|
|
|
|
Server.iServer_Weiteres_Backup_LoesungNr1 = New SqlInt32(CType(Me.cbboxWeiteresBackupLoesung1.SelectedValue, Int32))
|
|
Server.iServer_Weiteres_Backup_LoesungNr2 = New SqlInt32(CType(Me.cbboxWeiteresBackupLoesung2.SelectedValue, Int32))
|
|
Server.iServer_Weiteres_Backup_LoesungNr3 = New SqlInt32(CType(Me.cbboxWeiteresBackupLoesung3.SelectedValue, Int32))
|
|
Server.iServer_Weiteres_Backup_LoesungNr4 = New SqlInt32(CType(Me.cbboxWeiteresBackupLoesung4.SelectedValue, Int32))
|
|
Server.iServer_Weiteres_Backup_LoesungNr5 = New SqlInt32(CType(Me.cbboxWeiteresBackupLoesung5.SelectedValue, Int32))
|
|
|
|
Server.iServer_Weiteres_RetentionNr1 = New SqlInt32(CType(Me.cbboxWeiteresRetention1.SelectedValue, Int32))
|
|
Server.iServer_Weiteres_RetentionNr2 = New SqlInt32(CType(Me.cbboxWeiteresRetention2.SelectedValue, Int32))
|
|
Server.iServer_Weiteres_RetentionNr3 = New SqlInt32(CType(Me.cbboxWeiteresRetention3.SelectedValue, Int32))
|
|
Server.iServer_Weiteres_RetentionNr4 = New SqlInt32(CType(Me.cbboxWeiteresRetention4.SelectedValue, Int32))
|
|
Server.iServer_Weiteres_RetentionNr5 = New SqlInt32(CType(Me.cbboxWeiteresRetention5.SelectedValue, Int32))
|
|
|
|
Server.sServer_Weiteres_Bemerkung1 = New SqlString(CType(Me.txtWeiteres1.Text, String))
|
|
Server.sServer_Weiteres_Bemerkung2 = New SqlString(CType(Me.txtWeiteres2.Text, String))
|
|
Server.sServer_Weiteres_Bemerkung3 = New SqlString(CType(Me.txtWeiteres3.Text, String))
|
|
Server.sServer_Weiteres_Bemerkung4 = New SqlString(CType(Me.txtWeiteres4.Text, String))
|
|
Server.sServer_Weiteres_Bemerkung5 = New SqlString(CType(Me.txtWeiteres5.Text, String))
|
|
|
|
Server.bAktiv = New SqlBoolean(CType(Me.cbaktiv.Checked, Boolean))
|
|
|
|
Me.txtmutierer.Text = Server.MutiererText
|
|
Me.cbaktiv.Checked = Server.bAktiv.Value = True
|
|
Me.txterstellt_am.Text = Server.daErstellt_am.Value
|
|
Me.txtmutiert_am.Text = Server.daMutiert_am.Value
|
|
|
|
Server.Save_Data()
|
|
Me.FormDataChanged = False
|
|
End Sub
|
|
|
|
Private Function Get_CheckedItems(ByRef clb As CheckedListBox) As String
|
|
Dim i As Integer = 0
|
|
Dim s As String = ""
|
|
For i = 1 To clb.CheckedItems.Count
|
|
s = s + clb.CheckedItems(i).ToString
|
|
|
|
Next
|
|
Return s
|
|
End Function
|
|
|
|
Public Function Refresh_Application(ByRef applid As Integer)
|
|
Init_Controls()
|
|
Server.refresh_Server(applid, Me.TVServer)
|
|
End Function
|
|
|
|
#End Region
|
|
|
|
#Region "Security"
|
|
''' <summary>
|
|
''' Laden der Securitylevel-Daten in die Combobox
|
|
''' </summary>
|
|
''' <remarks></remarks>
|
|
Private Sub Load_Securitylevel()
|
|
Dim seclevel As New TKB.VV.DB.clsSecurityLevel
|
|
Dim secleveldata As New DataTable
|
|
|
|
seclevel.cpMainConnectionProvider = Globals.conn
|
|
Globals.conn.OpenConnection()
|
|
secleveldata = seclevel.SelectAll
|
|
Globals.conn.CloseConnection(True)
|
|
|
|
' Me.cboxSecurityLevel.DataSource = secleveldata
|
|
' Me.cboxSecurityLevel.DisplayMember = "Bezeichnung"
|
|
' Me.cboxSecurityLevel.ValueMember = "SecurityLevelNr"
|
|
|
|
seclevel.Dispose()
|
|
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "Public Methoths"
|
|
Public Sub Add_New()
|
|
If Me.Check_Changes = False Then Exit Sub
|
|
Me.Get_Data(Me.Server.Add_New)
|
|
Dim sk As Integer = Server.iServerInventarNr.Value
|
|
Me.isnewServer = True
|
|
Server.Load_tree(Me.TVServer, 0)
|
|
Server.FindByTag(Me.TVServer, sk.ToString)
|
|
'Me.TVServer.SelectedNode = Server.FindNode(Me.TVServer.Nodes, Me.Server.iServerInventarNr.Value, "*** Neues Element ***")
|
|
End Sub
|
|
|
|
Public Sub Save()
|
|
Dim tn As New TreeNode
|
|
tn = TVServer.SelectedNode
|
|
Me.Save_data()
|
|
Server.Load_tree(Me.TVServer, 0)
|
|
Me.TVServer.ExpandAll()
|
|
Me.TVServer.SelectedNode = Server.FindNode(Me.TVServer.Nodes, tn.Tag, tn.Text)
|
|
End Sub
|
|
|
|
Public Sub Delete()
|
|
If msg.Show_MessageYesNo(7) Then
|
|
Server.Delete_Server_Applikation(Me.TVServer.SelectedNode.Tag, -1)
|
|
Server.Delete_Server(Me.TVServer.SelectedNode.Tag)
|
|
End If
|
|
Me.Save_data()
|
|
Server.Load_tree(Me.TVServer, 0)
|
|
Me.TVServer.ExpandAll()
|
|
Server.Select_First_Datanode(Me.TVServer)
|
|
End Sub
|
|
|
|
|
|
Private Sub TVServer_AfterSelect(sender As Object, e As TreeViewEventArgs) Handles TVServer.AfterSelect
|
|
Try
|
|
Me.Init_Controls()
|
|
If Me.TVServer.SelectedNode.Tag > 0 And Me.TVServer.SelectedNode.Tag < 10000 Then Me.RefreshData(Me.TVServer.SelectedNode.Tag)
|
|
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub RefreshData(id As Integer)
|
|
Me.Get_Data(id)
|
|
End Sub
|
|
|
|
#End Region
|
|
|
|
#Region "Treehandling"
|
|
|
|
|
|
Private Sub TVApplikation_DragDrop(sender As Object, e As DragEventArgs) Handles TVApplikation.DragDrop
|
|
If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", True) Then
|
|
Dim SourceNode As TreeNode
|
|
SourceNode = CType(e.Data.GetData("System.Windows.Forms.TreeNode"), TreeNode)
|
|
Server.insert_server_applikation(Me.TVServer.SelectedNode.Tag, SourceNode.Tag)
|
|
refresh_applikation(Me.TVServer.SelectedNode.Tag)
|
|
End If
|
|
End Sub
|
|
|
|
|
|
Private Sub TVApplikation_DragEnter1(sender As Object, e As DragEventArgs) Handles TVApplikation.DragEnter
|
|
If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", True) Then
|
|
|
|
'TreeNode found allow move effect
|
|
e.Effect = DragDropEffects.Move
|
|
Else
|
|
'No TreeNode found, prevent move
|
|
e.Effect = DragDropEffects.None
|
|
End If
|
|
End Sub
|
|
|
|
Private Sub TVApplikation_DragOver(sender As Object, e As DragEventArgs) Handles TVApplikation.DragOver
|
|
If e.Data.GetDataPresent("System.Windows.Forms.TreeNode", True) = False Then Exit Sub
|
|
e.Effect = DragDropEffects.Move
|
|
End Sub
|
|
|
|
Sub refresh_applikation(ByVal servernr As Integer)
|
|
Try
|
|
Server.refresh_applikation(servernr, TVApplikation)
|
|
Catch
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub ApplikationAnzeigenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ApplikationAnzeigenToolStripMenuItem.Click
|
|
Try
|
|
Dim f As New frmApplikation(TVApplikation.SelectedNode.Tag, False)
|
|
f.MdiParent = baseform.MdiParent
|
|
f.Show()
|
|
Catch ex As Exception
|
|
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub EintragLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles EintragLöschenToolStripMenuItem.Click
|
|
If MsgBox("Eintrag wirklich löschen?", vbYesNo + MsgBoxStyle.Question) = MsgBoxResult.Yes Then
|
|
Server.Delete_Server_Applikation(Me.TVServer.SelectedNode.Tag, Me.TVApplikation.SelectedNode.Tag)
|
|
refresh_applikation(Me.TVServer.SelectedNode.Tag)
|
|
End If
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "Open/Close Details"
|
|
|
|
Private Sub btnDBOpen_Click(sender As Object, e As EventArgs) Handles btnDBOpen.Click
|
|
Me.GrpDB.Height = 190
|
|
End Sub
|
|
|
|
Private Sub btnDBClose_Click(sender As Object, e As EventArgs) Handles btnDBClose.Click
|
|
Me.GrpDB.Height = 42
|
|
End Sub
|
|
|
|
Private Sub btnWeitersClose_Click(sender As Object, e As EventArgs) Handles btnWeitersClose.Click
|
|
Me.grpWeiteres.Height = 42
|
|
End Sub
|
|
|
|
Private Sub btnWeiteresOpen_Click(sender As Object, e As EventArgs) Handles btnWeiteresOpen.Click
|
|
Me.grpWeiteres.Height = 190
|
|
End Sub
|
|
#End Region
|
|
|
|
#Region "Mausevents"
|
|
Private Sub TVServer_MouseDown(sender As Object, e As MouseEventArgs) Handles TVServer.MouseDown
|
|
Try
|
|
Dim mouseEvents As MouseEventArgs
|
|
mouseEvents = e
|
|
selectPoint.Y = mouseEvents.Y
|
|
selectPoint.X = mouseEvents.X
|
|
Me.TVServer.SelectedNode = Me.TVServer.GetNodeAt(selectPoint)
|
|
|
|
Catch ex As Exception
|
|
'MsgBox(ex.Message)
|
|
End Try
|
|
End Sub
|
|
|
|
Private Sub TVApplikation_MouseDown(sender As Object, e As MouseEventArgs) Handles TVApplikation.MouseDown
|
|
Try
|
|
Dim mouseEvents As MouseEventArgs
|
|
mouseEvents = e
|
|
selectPoint.Y = mouseEvents.Y
|
|
selectPoint.X = mouseEvents.X
|
|
Me.TVApplikation.SelectedNode = Me.TVApplikation.GetNodeAt(selectPoint)
|
|
|
|
Catch ex As Exception
|
|
'MsgBox(ex.Message)
|
|
End Try
|
|
End Sub
|
|
#End Region
|
|
End Class
|
|
|
|
|