edv/Doku
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

123

Browse Source
This commit is contained in:
ms
2019-05-07 17:02:34 +02:00
parent b2f61df354
commit f2d5c20559
46 changed files with 7788 additions and 275 deletions
Download Patch File Download Diff File Expand all files Collapse all files

423
Dokumentation/Main.vb
View File

@@ -1,10 +1,4 @@
Imports System.Data.SqlClient
'Imports System.IO
'Imports System.Runtime.InteropServices
'Imports System.Text
Imports System.Reflection
Public Class Main
Public con As New SqlConnection
@@ -22,18 +16,24 @@ Public Class Main
Public Neu, geaendert As Boolean
Public Debug As Boolean
Public Suchbegriff As String
Public Shared SucheAktiv As Boolean = False
Public Tabelle As String
Public DHCPRefresh As Boolean = True
Public sAppPath As String = Application.StartupPath
Public Updatequelle As String = "\\192.168.0.91\f\Programme\Doku\"
Private Version As String = My.Resources.Version
Public Shared SelectedDGVIndex As Integer
Public Shared FirstDisplayedDGVEntry As Integer
Public printds As DataSet = Nothing
Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
Class1.EnableDoubleBuffered(DgVMain)
Me.KeyPreview = True
'MsgBox(sAppPath)
@@ -69,8 +69,6 @@ Public Class Main
End With
End If
EnableDoubleBuffered(DgVMain)
End Sub
''LISTEN
@@ -164,17 +162,10 @@ Public Class Main
Public Function LstStandortLoad()
Dim ds As New DataSet()
Dim dt As New DataTable()
dbload()
Dim dataadapter As New SqlDataAdapter("SELECT NWSTANDORT from TbL_Netzwerke where main='True' order by NWSTANDORT", con)
LstStandort.Items.Clear()
SQL.SQL2DS("SELECT NWSTANDORT from TbL_Netzwerke where main='True' order by NWSTANDORT", ds)
Try
con.Open()
dataadapter.Fill(ds)
'DgVMain.DataSource = ds.Tables(0)
For Each dr As DataRow In ds.Tables(0).Rows
LstStandort.Items.Add(dr.Item(0))
Next
@@ -182,29 +173,20 @@ Public Class Main
Catch ex As Exception
MsgBox("DataadapterFill LstStandOrtLoad(): " & ex.Message)
End Try
con.Close()
'LstStandort.SelectedIndex = 0
LstStandort.SelectedItem = "Verag_SUB"
Dim dsa As New DataSet()
Dim da_allgemein As New SqlDataAdapter("select distinct Rubrik from tbl_allgemein", con)
SQL.SQL2DS("select distinct Rubrik from tbl_allgemein", dsa)
LstAllgemein.Items.Clear()
Try
con.Open()
da_allgemein.Fill(dsa)
'DgVMain.DataSource = ds.Tables(0)
For Each dr As DataRow In dsa.Tables(0).Rows
LstAllgemein.Items.Add(dr.Item(0))
Next
Catch ex As Exception
MsgBox("DataadapterFill LstStandOrtLoad(): " & ex.Message)
End Try
con.Close()
End Function
Public Function TypeFilter()
@@ -241,17 +223,12 @@ Public Class Main
Public Function LstNetzwerkLoad()
Dim ds As New DataSet()
Dim dt As New DataTable()
Dim Standort As String = LstStandort.SelectedItem
dbload()
Dim dataadapter As New SqlDataAdapter("select NETNAME from TbL_Netzwerke where NWSTANDORT='" & Standort & "' ORDER BY NETNAME", con)
SQL.SQL2DS("select NETNAME from TbL_Netzwerke where NWSTANDORT='" & Standort & "' ORDER BY NETNAME", ds)
LstNetzwerk.Items.Clear()
Try
con.Open()
dataadapter.Fill(ds)
'DgVMain.DataSource = ds.Tables(0)
For Each dr As DataRow In ds.Tables(0).Rows
LstNetzwerk.Items.Add(dr.Item(0))
Next
@@ -259,7 +236,6 @@ Public Class Main
Catch ex As Exception
'MsgBox("DataadapterFill LstNwerkload(): " & ex.Message)
End Try
con.Close()
LstNetzwerk.SelectedItem = "Intern"
Try
' LstNetzwerk.SetSelected(0, True)
@@ -305,27 +281,22 @@ Public Class Main
Public Function dgvload(tabelle As String)
Dim ds As New DataSet()
Dim dt As New DataTable()
Dim Standort As String = LstStandort.SelectedItem
Dim Netzwerk As String = LstNetzwerk.SelectedItem
Try
con.Open()
If tabelle = "TbL_Netzwerkclients" Then
If ChkFreieHosts.Checked Then
Dim dataadapter As New SqlDataAdapter("select * from " & tabelle & " where NWSTANDORT='" & Standort & "' AND NETNAME='" & Netzwerk & "' order by host", con)
dataadapter.Fill(ds)
SQL.SQL2DS("select * from " & tabelle & " where NWSTANDORT='" & Standort & "' AND NETNAME='" & Netzwerk & "' order by host", ds)
dgvfill(ds, "Netzwerk")
Else
Dim dataadapter As New SqlDataAdapter("select * from " & tabelle & " where NWSTANDORT='" & Standort & "' AND NETNAME='" & Netzwerk & "' AND FQDN is not NUll order by host", con)
dataadapter.Fill(ds)
SQL.SQL2DS("select * from " & tabelle & " where NWSTANDORT='" & Standort & "' AND NETNAME='" & Netzwerk & "' AND FQDN is not NUll order by host", ds)
dgvfill(ds, "Netzwerk")
End If
ElseIf tabelle = "TbL_Allgemein" Then
Dim dataadapter As New SqlDataAdapter("select * from " & tabelle & " WHERE Rubrik = '" & LstAllgemein.SelectedItem & "'", con)
dataadapter.Fill(ds)
SQL.SQL2DS("select * from " & tabelle & " WHERE Rubrik = '" & LstAllgemein.SelectedItem & "'", ds)
dgvfill(ds, "Allgemein")
End If
@@ -333,11 +304,10 @@ Public Class Main
'MsgBox("DataadapterFill dgvload(): " & ex.Message)
End Try
con.Close()
NetzwerkInfoAnzeige()
End Function
Public Function dgvload_filter(suchbegriff As String)
Public Function dgvload_filter(suchbegriff As String, Optional ByVal DHCPRefresh As Boolean = True)
Dim starttime As Date = DateTime.Now
Dim endtime As Date
Dim ds As New DataSet()
@@ -355,11 +325,11 @@ Public Class Main
'''SUCHPARAMETER DEFINIEREN'''
If LstType.SelectedItem = "" Then
Suchparameter = "(Type LIKE'" & suchbegriff & "'OR FQDN LIKE'" & suchbegriff & "'OR QINFO LIKE'" & suchbegriff & "'OR Modell LIKE'" & suchbegriff & "'OR IPAdresse LIKE'" & suchbegriff & "')"
Suchparameter = "(Type LIKE'" & suchbegriff & "'OR FQDN LIKE'" & suchbegriff & "'OR QINFO LIKE'" & suchbegriff & "'OR Modell LIKE'" & suchbegriff & "'OR IPAdresse LIKE'" & suchbegriff & " 'OR Standort LIKE'" & suchbegriff & "')"
ElseIf LstType.SelectedItem = "ohne" Then
Suchparameter = "TYPE = '' AND (Type LIKE'" & suchbegriff & "'OR FQDN LIKE'" & suchbegriff & "'OR QINFO LIKE'" & suchbegriff & "'OR IPAdresse LIKE'" & suchbegriff & "'OR Modell LIKE'" & suchbegriff & "')"
Suchparameter = "TYPE = '' AND (Type LIKE'" & suchbegriff & "'OR FQDN LIKE'" & suchbegriff & "'OR QINFO LIKE'" & suchbegriff & "'OR IPAdresse LIKE'" & suchbegriff & "'OR Modell LIKE'" & suchbegriff & "'OR Standort LIKE'" & suchbegriff & "')"
Else
Suchparameter = "TYPE = '" & LstType.SelectedItem & "' AND (Type LIKE'" & suchbegriff & "'OR FQDN LIKE'" & suchbegriff & "'OR QINFO LIKE'" & suchbegriff & "'OR IPAdresse LIKE'" & suchbegriff & "'OR Modell LIKE'" & suchbegriff & "')"
Suchparameter = "TYPE = '" & LstType.SelectedItem & "' AND (Type LIKE'" & suchbegriff & "'OR FQDN LIKE'" & suchbegriff & "'OR QINFO LIKE'" & suchbegriff & "'OR IPAdresse LIKE'" & suchbegriff & "'OR Modell LIKE'" & suchbegriff & "'OR Standort LIKE'" & suchbegriff & "')"
End If
If Not ChkFreieHosts.Checked Then
@@ -370,7 +340,7 @@ Public Class Main
'''ABFRAGE DEFINIEREN'''
'''
'Dim SelSQL4DGV As String = "*"
Dim SelSQL4DGV As String = "FQDN, IPAdresse, Modell, Standort, Type, Seriennummer, QINFO, Info, DHCP, Host"
Dim SelSQL4DGV As String = "FQDN, IPAdresse, Modell, Standort, Type, Seriennummer, QINFO, Info, DHCP, Host, Link"
If ChKZugangsdaten.Checked Then
SelSQL4DGV &= ", Benutzer, Passwort"
End If
@@ -378,28 +348,21 @@ Public Class Main
'''ABFRAGE RADIOBUTTONS + SUCHPARAMETER'''
If RadGlobal.Checked Then
Dim dataadapter As New SqlDataAdapter("select " & SelSQL4DGV & " from TbL_Netzwerkclients where " & Suchparameter & " order by host", con)
con.Open()
dataadapter.Fill(ds)
ElseIf RadNurNetzwerk.Checked Then
Dim dataadapter As New SqlDataAdapter("select " & SelSQL4DGV & " from TbL_Netzwerkclients where NWSTANDORT = '" & Standort & "' AND NETNAME ='" & Netzwerk & "' AND " & Suchparameter & " order by host", con)
con.Open()
dataadapter.Fill(ds)
ElseIf RadStandort.Checked Then
Dim dataadapter As New SqlDataAdapter("select " & SelSQL4DGV & " from TbL_Netzwerkclients where NWSTANDORT = '" & Standort & "' AND " & Suchparameter & " order by host", con)
con.Open()
dataadapter.Fill(ds)
ElseIf suchbegriff = "" Then
Dim dataadapter As New SqlDataAdapter("select " & SelSQL4DGV & " from TbL_Netzwerkclients order by host", con)
con.Open()
dataadapter.Fill(ds)
End If
con.Close()
SQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients where " & Suchparameter & " order by host", ds)
ElseIf RadNurNetzwerk.Checked Then
SQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients where NWSTANDORT = '" & Standort & "' AND NETNAME ='" & Netzwerk & "' AND " & Suchparameter & " order by host", ds)
ElseIf RadStandort.Checked Then
SQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients where NWSTANDORT = '" & Standort & "' AND " & Suchparameter & " order by host", ds)
ElseIf suchbegriff = "" Then
SQL.SQL2DS("select " & SelSQL4DGV & " from TbL_Netzwerkclients order by host", ds)
End If
Try
endtime = DateTime.Now
LblDebugInfo.Text = "dgvload: " & ((endtime - starttime).Milliseconds) & vbCrLf
''--------------------------------------------------------------------------------------------------------/START// Abfrage DHCP Clients
Try
endtime = DateTime.Now
LblDebugInfo.Text = "dgvload: " & ((endtime - starttime).Milliseconds) & vbCrLf
''--------------------------------------------------------------------------------------------------------/START// Abfrage DHCP Clients
If DHCPRefresh = True And SucheAktiv = False Then
con.Open()
cmd.CommandText = "SELECT DHCPAbfragen FROM Tbl_Netzwerke WHERE NWSTANDORT = '" & Standort & "' AND NETNAME ='" & Netzwerk & "'"
reader = cmd.ExecuteReader()
@@ -416,19 +379,21 @@ Public Class Main
Else
End If
End If
' DHCPRefresh = False
End If
''--------------------------------------------------------------------------------------------------------/Ende// Abfrage DHCP Clients
dgvfill(ds, "Netzwerk")
Dim endtimedgvfill As Date = Date.Now
LblDebugInfo.Text &= "dgvfill: " & ((endtimedgvfill - starttime).Milliseconds) & vbCrLf
Catch ex As Exception
MsgBox("dgvload_filter(): " & ex.Message)
End Try
''--------------------------------------------------------------------------------------------------------/Ende// Abfrage DHCP Clients
dgvfill(ds, "Netzwerk")
Dim endtimedgvfill As Date = Date.Now
LblDebugInfo.Text &= "dgvfill: " & ((endtimedgvfill - starttime).Milliseconds) & vbCrLf
Catch ex As Exception
MsgBox("dgvload_filter(): " & ex.Message)
End Try
con.Close()
NetzwerkInfoAnzeige()
Else
Suchparameter = "(TITEL LIKE'" & suchbegriff & "'OR INFO LIKE'" & suchbegriff & "'OR LINK LIKE'" & suchbegriff & "')"
con.Close()
NetzwerkInfoAnzeige()
Else
Suchparameter = "(TITEL LIKE'" & suchbegriff & "'OR INFO LIKE'" & suchbegriff & "'OR LINK LIKE'" & suchbegriff & "')"
Dim dataadapter As New SqlDataAdapter("select * from TbL_Allgemein where " & Suchparameter & "", con)
con.Open()
dataadapter.Fill(ds)
@@ -437,75 +402,91 @@ Public Class Main
dgvfill(ds, "Allgemein")
' MsgBox("keine Wahl")
End If
printds = ds
End Function
Public Function dgvfill(ds As DataSet, design As String)
Dim starttime As Date = DateTime.Now
Dim endtime As Date
Dim endtime As New Date
If design = "Netzwerk" Then
Try
With DgVMain
.DataSource = ds.Tables(0)
If ChkKompAnsicht.Checked Then
.DefaultCellStyle.WrapMode = DataGridViewTriState.False
.AutoSizeRowsMode = 0 'DataGridViewAutoSizeColumnsMode.ColumnHeader
'MsgBox(DgVMain.AutoSizeRowsMode)
Else
.DefaultCellStyle.WrapMode = DataGridViewTriState.True
.AutoSizeRowsMode = DataGridViewAutoSizeColumnsMode.AllCells
End If
If TxtSuche.Text = "" And LstType.SelectedItem = "" Then
.RowsDefaultCellStyle.BackColor = Color.White
SucheAktiv = False
Else
.RowsDefaultCellStyle.BackColor = Color.AntiqueWhite
SucheAktiv = True
End If
' MsgBox(SucheAktiv)
.RowHeadersVisible = True
With DgVMain
.DataSource = ds.Tables(0)
If ChkKompAnsicht.Checked Then
.DefaultCellStyle.WrapMode = DataGridViewTriState.False
.AutoSizeRowsMode = 0 'DataGridViewAutoSizeColumnsMode.ColumnHeader
'MsgBox(DgVMain.AutoSizeRowsMode)
Else
.DefaultCellStyle.WrapMode = DataGridViewTriState.True
.AutoSizeRowsMode = DataGridViewAutoSizeColumnsMode.AllCells
End If
If TxtSuche.Text = "" And LstType.SelectedItem = "" Then
.RowsDefaultCellStyle.BackColor = Color.White
Else
.RowsDefaultCellStyle.BackColor = Color.AntiqueWhite
End If
.Columns("FQDN").DisplayIndex = 0
.Columns("FQDN").HeaderText = "Name / FQDN"
.RowHeadersVisible = True
.Columns("IPAdresse").DisplayIndex = 1
.Columns("IPAdresse").AutoSizeMode = DataGridViewAutoSizeColumnMode.AllCells
' .Columns("IPAdresse").AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
.Columns("FQDN").DisplayIndex = 0
.Columns("FQDN").HeaderText = "Name / FQDN"
.Columns("Modell").DisplayIndex = 2
.Columns("IPAdresse").DisplayIndex = 1
.Columns("IPAdresse").AutoSizeMode = DataGridViewAutoSizeColumnMode.DisplayedCells
.Columns("Standort").DisplayIndex = 3
.Columns("Modell").DisplayIndex = 2
.Columns("TYPE").DisplayIndex = 4
.Columns("TYPE").HeaderText = "Gerätetype"
.Columns("Standort").DisplayIndex = 3
.Columns("Seriennummer").DisplayIndex = 5
.Columns("TYPE").DisplayIndex = 4
.Columns("TYPE").HeaderText = "Gerätetype"
.Columns("QINFO").HeaderText = "Quick-Info"
.Columns("Seriennummer").DisplayIndex = 5
' .Columns("NWSTANDORT").DisplayIndex = 8
.Columns("QINFO").HeaderText = "Quick-Info"
'If ChKZugangsdaten.Checked = False Then
' .Columns("Benutzer").Visible = False
' .Columns("Passwort").Visible = False
'ElseIf ChKZugangsdaten.Checked = True Then
' .Columns("Benutzer").Visible = True
' .Columns("Benutzer").DisplayIndex = 6
' .Columns("Passwort").Visible = True
' .Columns("Passwort").DisplayIndex = 7
'End If
' .Columns("NWSTANDORT").DisplayIndex = 8
'' .Columns("NETNAME").Visible = False
'.Columns("Netzwerk").Visible = False
.Columns("DHCP").Visible = False
'.Columns("MAC").Visible = False
.Columns("LINK").Visible = False
'.Columns("Linked").Visible = False
'.Columns("Linked").DisplayIndex = 9
'.Columns("LinkedWith").Visible = False
'' .Columns("AddIp").Visible = False
.Columns("HOST").Visible = False
'' .Columns("NWSTANDORT").Visible = False
'.Columns("Info").Width = 250
'If ChKZugangsdaten.Checked = False Then
' .Columns("Benutzer").Visible = False
' .Columns("Passwort").Visible = False
'ElseIf ChKZugangsdaten.Checked = True Then
' .Columns("Benutzer").Visible = True
' .Columns("Benutzer").DisplayIndex = 6
' .Columns("Passwort").Visible = True
' .Columns("Passwort").DisplayIndex = 7
'End If
'.Sort(DgVMain.Columns("Host"), System.ComponentModel.ListSortDirection.Ascending)
End With
Catch ex As Exception
MsgBox("With DGV: " & ex.Message)
End Try
'' .Columns("NETNAME").Visible = False
'.Columns("Netzwerk").Visible = False
.Columns("DHCP").Visible = False
'.Columns("MAC").Visible = False
'.Columns("LINK").Visible = False
'.Columns("Linked").Visible = False
'.Columns("Linked").DisplayIndex = 9
'.Columns("LinkedWith").Visible = False
'' .Columns("AddIp").Visible = False
.Columns("HOST").Visible = False
'' .Columns("NWSTANDORT").Visible = False
'.Columns("Info").Width = 250
'.Sort(DgVMain.Columns("Host"), System.ComponentModel.ListSortDirection.Ascending)
End With
If SelectedDGVIndex < DgVMain.Rows.Count - 1 Then
DgVMain.ClearSelection()
DgVMain.Rows(SelectedDGVIndex).Selected = True
DgVMain.FirstDisplayedScrollingRowIndex = FirstDisplayedDGVEntry
Else
DgVMain.Rows(0).Selected = True
End If
''--------------------------------------------------------------------------------------------------------/START//Farbig hervorheben, Check DHCP Filter
@@ -570,10 +551,12 @@ Public Class Main
End With
End If
End Function
Private Sub CmdTest_Click(sender As Object, e As EventArgs) Handles CmdTest.Click
dgvload_filter(Suchbegriff)
frmHostBearbeiten.IP = (DgVMain.CurrentRow.Cells("IPAdresse").Value)
frmHostBearbeiten.Show()
End Sub
Private Sub CMdTest2_Click(sender As Object, e As EventArgs) Handles CMdTest2.Click
@@ -631,26 +614,26 @@ Public Class Main
LblUhrzeit.Text = Date.Now
End Sub
Private Sub DgVMain_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DgVMain.CellContentDoubleClick
'MsgBox(DgVMain.CurrentRow.Cells("HOST").Value)
werbinich()
If Tabelle = "TbL_Netzwerkclients" Then
'Private Sub DgVMain_CellContentDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles DgVMain.CellContentDoubleClick, DgVMain.CellDoubleClick
' 'MsgBox(DgVMain.CurrentRow.Cells("HOST").Value)
' werbinich()
' If Tabelle = "TbL_Netzwerkclients" Then
If LstStandort.SelectedItem = "" Then
LblUhrzeit.Text = "Kein Standort ausgewählt!"
Exit Sub
End If
If LstNetzwerk.SelectedItem = "" Then
LblUhrzeit.Text = "Kein Netzwerk ausgewählt!"
Exit Sub
End If
Class1.Absender = "Main"
HostBearbeiten.Show()
ElseIf Tabelle = "TbL_Allgemein" Then
EintragBearbeiten.Show()
End If
' If LstStandort.SelectedItem = "" Then
' LblUhrzeit.Text = "Kein Standort ausgewählt!"
' Exit Sub
' End If
' If LstNetzwerk.SelectedItem = "" Then
' LblUhrzeit.Text = "Kein Netzwerk ausgewählt!"
' Exit Sub
' End If
' Class1.Absender = "Main"
' HostBearbeiten.Show()
' ElseIf Tabelle = "TbL_Allgemein" Then
' EintragBearbeiten.Show()
' End If
End Sub
'End Sub
Private Sub CmdNetzwerkbearbeiten_Click(sender As Object, e As EventArgs) Handles CmdNetzwerkbearbeiten.Click
werbinich()
@@ -671,9 +654,12 @@ Public Class Main
End Sub
Private Sub TxtSuche_TextChanged(sender As Object, e As EventArgs) Handles TxtSuche.TextChanged, RadNurNetzwerk.CheckedChanged, RadGlobal.CheckedChanged, RadStandort.CheckedChanged, LstType.SelectedIndexChanged, TxtSuche.MouseClick
If TxtSuche.TextLength < 1 Then
If TxtSuche.TextLength < 1 And LstType.SelectedItem = "" Then
Suchbegriff = "%%"
dgvload_filter(Suchbegriff)
ElseIf TxtSuche.TextLength < 1 And Not LstType.SelectedItem = "" Then
ChkDHCPClients.Checked = False
dgvload_filter(Suchbegriff)
Else
Suchbegriff = "%" & Class1.hochkomma(TxtSuche.Text) & "%"
ChkDHCPClients.Checked = False
@@ -684,10 +670,25 @@ Public Class Main
TypeFilter()
End Sub
Private Sub DgvMainContextMenuItemHost_Click(sender As Object, e As EventArgs) Handles DgvMainContextMenuItemHost.Click, CmDBearbeiten.Click
werbinich()
StartHostBearbeiten()
Private Sub DgvMainContextMenuItemHost_Click(sender As Object, e As EventArgs) Handles DgvMainContextMenuItemHost.Click, CmDBearbeiten.Click, DgVMain.CellDoubleClick, DgVMain.RowHeaderMouseDoubleClick
If Tabelle = "TbL_Netzwerkclients" Then
Try
frmHostBearbeiten.IP = (DgVMain.CurrentRow.Cells("IPAdresse").Value)
Catch
frmHostBearbeiten.IP = (DgVMain.Rows(0).Cells("IPAdresse").Value)
End Try
frmHostBearbeiten.Show()
ElseIf Tabelle = "TbL_Allgemein" Then
Dim Eintrag As New EintragBearbeiten
Eintrag.Titel = Class1.DBNull2emptyString((DgVMain.CurrentRow.Cells("Titel").Value))
If Class1.DBNull2emptyString((DgVMain.CurrentRow.Cells("Rubrik").Value)) = "" Then
Eintrag.rubrik = Class1.DBNull2emptyString((DgVMain.Rows(0).Cells("Rubrik").Value))
Else
Eintrag.rubrik = Class1.DBNull2emptyString((DgVMain.CurrentRow.Cells("Rubrik").Value))
End If
Eintrag.Show()
End If
End Sub
Public Function StartHostBearbeiten()
@@ -730,59 +731,16 @@ Public Class Main
Private Sub DgvMainContextMenuItemPutty_Click(sender As Object, e As EventArgs)
werbinich()
startputty()
Ext_Programme.startputty(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
End Sub
Private Sub DgvMainContextMenuItemLink_Click(sender As Object, e As EventArgs) Handles DgvMainContextMenuItemLink.Click, CmdLink.Click
werbinich()
startlink()
Ext_Programme.startlink(DgVMain.CurrentRow.Cells("Link").Value)
End Sub
Public Function startlink()
Dim URL As String
Try
URL = DgVMain.CurrentRow.Cells("Link").Value
If URL.Contains("http") Or URL.Contains("https") Then
Process.Start(DgVMain.CurrentRow.Cells("Link").Value)
ElseIf URL = "" Then
Exit Function
Else
Dim mstsc As New Process
mstsc.StartInfo.FileName = "mstsc.exe"
mstsc.StartInfo.Arguments = " /v: " & DgVMain.CurrentRow.Cells("Link").Value
mstsc.Start()
End If
' Process.Start("mstsc.exe", "/v: dc01")
Catch ex As Exception
'MsgBox(ex.Message)
End Try
End Function
Public Function startputty()
Dim MainIP As String = Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value)
Dim Benutzer, Passwort As String
Class1.GetUserPasswort(MainIP, Benutzer, Passwort)
Try
Dim putty As New Process
putty.StartInfo.FileName = "putty.exe"
If Benutzer = "" And Passwort = "" Then
putty.StartInfo.Arguments = DgVMain.CurrentRow.Cells("IPAdresse").Value
Else
putty.StartInfo.Arguments = DgVMain.CurrentRow.Cells("IPAdresse").Value & " -l " & Benutzer & " -pw " & Passwort
End If
putty.Start()
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
Private Sub CmdPutty_Click(sender As Object, e As EventArgs) Handles CmdPutty.Click, PuttyToolStripMenuItem.Click
startputty()
Ext_Programme.startputty(Class1.MainHost(DgVMain.CurrentRow.Cells("IPAdresse").Value))
End Sub
Private Sub ChkTools_CheckedChanged(sender As Object, e As EventArgs) Handles ChkTools.CheckedChanged
@@ -794,10 +752,7 @@ Public Class Main
End Sub
Private Sub CmdPing_Click(sender As Object, e As EventArgs) Handles CmdPing.Click, PingToolStripMenuItem.Click
Dim ping As New Process
ping.StartInfo.FileName = "cmd.exe"
ping.StartInfo.Arguments = " /k ping " & DgVMain.CurrentRow.Cells("IPAdresse").Value
ping.Start()
Ext_Programme.pingip(DgVMain.CurrentRow.Cells("IPAdresse").Value)
End Sub
Private Sub CmdFiles_Click(sender As Object, e As EventArgs) Handles CmdFiles.Click, DateienToolStripMenuItem.Click
@@ -931,7 +886,11 @@ Public Class Main
Private Sub AnsichtDruckenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles AnsichtDruckenToolStripMenuItem.Click
PrintDGV.Print_DataGridView(DgVMain)
' PrintDGV.Print_DataGridView(DgVMain)
Dim Print As New frmPrint
Print.DruckeZugangsdaten = ChKZugangsdaten.Checked
Print.ds = printds
Print.Show()
End Sub
Public Function neuerEintrag()
@@ -949,10 +908,12 @@ Public Class Main
Class1.Absender = "Main"
HostBearbeiten.Show()
ElseIf Tabelle = "TbL_Allgemein" Then
SenderTitel = ""
SenderRubrik = LstAllgemein.SelectedItem
'SenderTitel = ""
'SenderRubrik = LstAllgemein.SelectedItem
Neu = True
EintragBearbeiten.Show()
Dim EintragNeu As New EintragBearbeiten
EintragNeu.rubrik = Class1.DBNull2emptyString((DgVMain.Rows(0).Cells("Rubrik").Value))
EintragNeu.Show()
End If
End Function
@@ -1037,7 +998,7 @@ Public Class Main
Else
LblInfo.Text = ""
If starter = "ImProgramm" Then
MsgBox("Keine neuen Updates verfügbar.")
If MsgBox("Keine neuen Updates verfügbar. Trotzdem ausführen?", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then StartUpdate()
Else
End If
@@ -1068,28 +1029,30 @@ Public Class Main
CheckUpdate("Timer")
End Sub
Public Sub EnableDoubleBuffered(ByVal dgv As DataGridView)
Dim dgvType As Type = dgv.[GetType]()
Dim pi As PropertyInfo = dgvType.GetProperty("DoubleBuffered",
BindingFlags.Instance Or BindingFlags.NonPublic)
pi.SetValue(dgv, True, Nothing)
Private Sub DgVMain_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DgVMain.CellClick
SelectedDGVIndex = DgVMain.CurrentRow.Index
FirstDisplayedDGVEntry = DgVMain.FirstDisplayedScrollingRowIndex
End Sub
Private Sub ObjektLöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ObjektLöschenToolStripMenuItem.Click
If Tabelle = "TbL_Netzwerkclients" Then
Dim ds As New DataSet
Dim IP As String = DgVMain.CurrentRow.Cells("IPAdresse").Value
Dim da As New SqlDataAdapter("SELECT * FROM TbL_Netzwerkclients WHERE LinkedWith ='" & IP & "'", con)
Dim linked As Boolean = False
Dim Standort, Netzwerkname As String
Dim slavenetzwerke As String = ""
Dim NetzID As String = DgVMain.CurrentRow.Cells("NWStandort").Value & "_" & DgVMain.CurrentRow.Cells("NETNAME").Value
Dim Host As String = DgVMain.CurrentRow.Cells("Host").Value
Dim netzwerk As String = DgVMain.CurrentRow.Cells("Netzwerk").Value
Dim NetzID As String
Dim IP As String = DgVMain.CurrentRow.Cells("IPAdresse").Value
Dim Host As String = DgVMain.CurrentRow.Cells("Host").Value
Dim netzwerk As String = Class1.IP2ShortNW(IP)
Class1.ip2netname(IP, Standort, Netzwerkname)
NetzID = Standort & "_" & Netzwerkname
Dim da As New SqlDataAdapter("SELECT * FROM TbL_Netzwerkclients WHERE LinkedWith ='" & IP & "'", con)
da.Fill(ds)
Dim i As Integer = 0
For Each dr As DataRow In ds.Tables(0).Rows
@@ -1098,18 +1061,21 @@ Public Class Main
Next
con.Close()
If DgVMain.CurrentRow.Cells("Linked").Value = "1" Then
If Class1.IsLinked(IP) = "1" Then
linked = True
End If
If MessageBox.Show("Eintrag >>" & Host & "<< wirklich löschen?", "Hosteintrag löschen", MessageBoxButtons.OKCancel) = DialogResult.OK Then
If MsgBox("Eintrag >>" & Host & "<< wirklich löschen?", MessageBoxButtons.OKCancel + MsgBoxStyle.DefaultButton2, "Hosteintrag löschen") = DialogResult.OK Then
Me.Cursor = Cursors.WaitCursor
Try
con.Open()
cmd.CommandText = "SELECT * FROM TbL_Netzwerkclients WHERE LinkedWith ='" & IP & "'"
cmd.ExecuteNonQuery()
reader = cmd.ExecuteReader()
If reader.Read Then
Me.Cursor = Cursors.Default
If MsgBox("Dieser Eintrag ist ein Master-Eintrag (Linked). Es werden sämtliche Slave-Einträge" & vbCrLf & slavenetzwerke & " ebenfalls gelöscht. Fortfahren?", MsgBoxStyle.OkCancel) = MsgBoxResult.Ok Then
Me.Cursor = Cursors.WaitCursor
con.Close()
con.Open()
cmd.CommandText = "DELETE TbL_Netzwerkclients WHERE LinkedWith ='" & IP & "'"
@@ -1128,6 +1094,7 @@ Public Class Main
Catch ex As Exception
MsgBox(ex.Message)
End Try
Me.Cursor = Cursors.Default
con.Close()
ElseIf DialogResult.Cancel Then
con.Close()
@@ -1135,6 +1102,7 @@ Public Class Main
End If
If linked = False Then
If MsgBox("Dazugehörigen Ordner im Dateisystem löschen?", MessageBoxButtons.YesNo + MsgBoxStyle.DefaultButton2, "Dateien löschen") = DialogResult.Yes Then
Me.Cursor = Cursors.WaitCursor
Dim path As String = Class1.FilePath & "\" & NetzID & "\" & Host
Try
If IO.Directory.Exists(path) Then
@@ -1153,6 +1121,7 @@ Public Class Main
ElseIf DialogResult.No Then
Exit Sub
End If
Me.Cursor = Cursors.Default
End If
Class1.RefillNW(netzwerk)
@@ -1196,4 +1165,4 @@ Public Class Main
End Class
'1208