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

Diverses

Browse Source
This commit is contained in:
ms
2020-01-08 14:32:30 +01:00
parent 5f24e2a9e1
commit 46a9991b2a
22 changed files with 1579 additions and 72 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
Dokumentation/Classes/Class1.vb
View File

@@ -7,7 +7,9 @@ Public Class Class1
'Public Shared DBConString As String = "Server=NBMIESENBECK\SPIELWIESE;Initial Catalog=Doku;User ID=sa;Password=verag#3;Connection Timeout=5;"
Public Shared DBConString As String
Public Shared DBConstringDev As String = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
Public Shared DBADMINBuchhaltung As String = "Data Source=192.168.0.94\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
Public Shared DBADMINBuchhaltung As String = "Data Source=BUCHHALTUNG.verag.ost.dmn\SQLEXPRESS;Initial Catalog=ADMIN;Integrated Security=false;User ID=sa;Password=BmWr501956;"
Public Shared DBDoku As String = "Server=buchhaltung.verag.ost.dmn\SQLEXPRESS;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
Public Shared DBDokuTest As String = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
'Public Shared FilePath As String = "\\192.168.0.253\backup\temp_Sebastian\Spielwiese\Doku"
Public Shared FilePath As String ' = "\\192.168.0.90\f\EDV-Wartung\Dokumentation"
Public Shared Absender As String = "Absender Standard"
@@ -51,10 +53,10 @@ Public Class Class1
If (Main.sAppPath Like "*\bin\Debug" Or Startparameter = "debug") And Debugoverride = False Then
DebugMode = True
Class1.DBConString = "Server=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
Class1.DBConString = DBDokuTest '"Server=DEVELOPER.verag.ost.dmn\DEVSQL;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
Class1.FilePath = "\\192.168.0.253\backup\temp_Sebastian\DokuTest"
Else
Class1.DBConString = "Server=buchhaltung.verag.ost.dmn\SQLEXPRESS;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
Class1.DBConString = DBDoku '"Server=buchhaltung.verag.ost.dmn\SQLEXPRESS;Initial Catalog=Doku;User ID=sa;Password=BmWr501956;Connection Timeout=5;"
Class1.FilePath = "\\DEVELOPER.verag.ost.dmn\f\EDV-Wartung\Dokumentation"
End If
End Function

226
Dokumentation/Classes/cDomUser.vb Normal file
View File

@@ -0,0 +1,226 @@
Imports System.Reflection
Public Class cDomUser
Property du_ID As String = ""
Property du_Email_Activated As Boolean = False
Property du_EMail As String = ""
Property du_Vorname As String = ""
Property du_Nachname As String = ""
Property du_Abteilung As String = ""
Property du_TelNummer As String = ""
Property du_DW As String = ""
Property du_Kennwort As String = ""
Property du_Dom As String = ""
Property du_sAMAc As String = ""
Property du_Info As String = ""
Property mit_username As String = ""
Property mit_pwd As String = ""
'-----------------------------------------
Dim SelectItems As String = ""
Public Exist As Boolean = False
Public Sub New()
SelectItems = Selectinator3000(getparameterlistMaster())
' MsgBox(SelectItems)
End Sub
Function getparameterlistMaster() As List(Of SQLVariable)
Dim list As New List(Of SQLVariable)
list.Add(New SQLVariable("du_ID", du_ID))
list.Add(New SQLVariable("du_Email_Activated", du_Email_Activated))
list.Add(New SQLVariable("du_EMail", du_EMail))
list.Add(New SQLVariable("du_Vorname", du_Vorname))
list.Add(New SQLVariable("du_Nachname", du_Nachname))
list.Add(New SQLVariable("du_Abteilung", du_Abteilung))
list.Add(New SQLVariable("du_TelNummer", du_TelNummer))
list.Add(New SQLVariable("du_DW", du_DW))
list.Add(New SQLVariable("du_Kennwort", du_Kennwort))
list.Add(New SQLVariable("du_Dom", du_Dom))
list.Add(New SQLVariable("du_sAMAc", du_sAMAc))
list.Add(New SQLVariable("du_Info", du_Info))
list.Add(New SQLVariable("mit_username", mit_username))
list.Add(New SQLVariable("mit_pwd", mit_pwd))
Return list
End Function
Public Function getDomUser(Filterspalte As String, Filterbegriff As String)
Dim ds As New DataSet
cSQL.SQL2DS("select " & SelectItems & " from [Buchhaltung\sqlexpress].doku.dbo.tbl_domuser as Doku left join [Buchhaltung\sqlexpress].ADMIN.dbo.tblMitarbeiter on mit_AliasAD_Username = du_sAMAc where " & Filterspalte & "= '" & Filterbegriff & "'", ds)
If ds.Tables(0).Rows.Count > 0 Then Exist = True
For Each c As DataColumn In ds.Tables(0).Columns
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(c.ColumnName)
If propInfo IsNot Nothing Then
If Not IsDBNull(c.Table.Rows(0).Item(c)) Then
propInfo.SetValue(Me, c.Table.Rows(0).Item(c))
End If
End If
Next
' MsgBox("hier")
End Function
Public Function getDomUserByID(ID As String)
Dim ds As New DataSet
cSQL.SQL2DS("select " & SelectItems & " from [Buchhaltung\sqlexpress].doku.dbo.tbl_domuser as Doku left join [Buchhaltung\sqlexpress].ADMIN.dbo.tblMitarbeiter on mit_AliasAD_Username = du_sAMAc WHERE du_ID = '" & ID & "'", ds)
If ds.Tables(0).Rows.Count > 0 Then Exist = True
For Each c As DataColumn In ds.Tables(0).Columns
Dim propInfo As PropertyInfo = Me.GetType.GetProperty(c.ColumnName)
If propInfo IsNot Nothing Then
If Not IsDBNull(c.Table.Rows(0).Item(c)) Then
propInfo.SetValue(Me, c.Table.Rows(0).Item(c))
End If
End If
Next
' MsgBox("hier")
End Function
Public Function Save()
If du_sAMAc = "" Or du_Dom = "" Then
MsgBox("Domänen-Benutzer und Domäne sind Pflichtfelder!") : Exit Function
End If
If CheckExist() = True Then
'-------------------------------------------------------------------------Update
Dim update, where As String
Dim list = getparameterlistMaster()
For Each i In list
If i.SQLText = "mit_pwd" Or i.SQLText = "mit_username" Then
ElseIf Not i.SQLText = "du_ID" Then
update &= "[" & i.SQLText & "]='" & i.SQLValue & "',"
Else
where &= "du_ID = '" & i.SQLValue & "'"
End If
Next
update = update.Substring(0, update.Length - 1)
cSQL.UpdateSQL("TbL_DomUser", update, where, Class1.DBDoku)
ElseIf CheckExist() = -1 Then
Exit Function
Else
'-------------------------------------------------------------------------Insert
Dim Spalten As String = ""
Dim Werte As String = ""
Dim InsertString As String = ""
du_ID = Guid.NewGuid().ToString("N")
Dim List As List(Of SQLVariable) = getparameterlistMaster()
For Each i In List
If i.SQLText = "mit_pwd" Or i.SQLText = "mit_username" Then
Else
Spalten &= i.SQLText & ","
Werte &= "'" & i.SQLValue & "',"
End If
Next
Spalten = Spalten.Substring(0, Spalten.Length - 1)
Werte = Werte.Substring(0, Werte.Length - 1)
cSQL.InsertSQL("TbL_DomUser", "(" & Spalten & ") VALUES (" & Werte & ")", Class1.DBDoku)
End If
End Function
Function CheckExist() As Boolean
Dim ds As New DataSet
cSQL.SQL2DS("select * from Doku.dbo.TbL_DomUser where du_ID = '" & du_ID & "'", ds, Class1.DBADMINBuchhaltung)
If ds.Tables(0).Rows.Count > 0 Then
Return True
Else
Dim dsa As New DataSet
cSQL.SQL2DS("select * from Doku.dbo.TbL_DomUser where du_sAMAc = '" & du_sAMAc & "' AND du_Dom = '" & du_Dom & "'", dsa, Class1.DBADMINBuchhaltung)
If dsa.Tables(0).Rows.Count > 0 Then
If MsgBox("Achtung! Die Kombination aus Domäne und Benutzer existiert bereits! Trotzdem speichern?", MsgBoxStyle.YesNo, "Speichern...") = MsgBoxResult.No Then
Return -1
Exit Function
End If
End If
Return False
End If
End Function
Public Function getFromAvisoUser(Optional ByVal AvisoUser As String = "")
If AvisoUser = "" Then
AvisoUser = Me.mit_username
End If
Dim ds As New DataSet
cSQL.SQL2DS("select * from ADMIN.dbo.tblMitarbeiter where mit_username = '" & AvisoUser & "'", ds, Class1.DBADMINBuchhaltung)
If ds.Tables(0).Rows.Count = 0 Then MsgBox("Benutzer nicht gefunden.") : Exit Function
If ds.Tables(0).Rows.Count = 1 Then
du_EMail = Class1.DBNull2emptyString(ds.Tables(0).Rows(0).Item("mit_email"))
If du_EMail.Length > 1 Then du_Email_Activated = True
mit_username = Class1.DBNull2emptyString(ds.Tables(0).Rows(0).Item("mit_username"))
mit_pwd = Class1.DBNull2emptyString(ds.Tables(0).Rows(0).Item("mit_pwd"))
du_Vorname = Class1.DBNull2emptyString(ds.Tables(0).Rows(0).Item("mit_vname"))
du_Nachname = Class1.DBNull2emptyString(ds.Tables(0).Rows(0).Item("mit_nname"))
du_Abteilung = Class1.DBNull2emptyString(ds.Tables(0).Rows(0).Item("mit_abteilung"))
du_TelNummer = Class1.DBNull2emptyString(ds.Tables(0).Rows(0).Item("mit_mobiltel"))
du_DW = Class1.DBNull2emptyString(ds.Tables(0).Rows(0).Item("mit_durchwahl"))
du_Dom = Class1.DBNull2emptyString(ds.Tables(0).Rows(0).Item("mit_aliasad_domain"))
du_sAMAc = Class1.DBNull2emptyString(ds.Tables(0).Rows(0).Item("mit_aliasad_username"))
End If
Exist = True
' MsgBox(du_EMail)
End Function
Public Function getFromAvisoUserLIST(AvisoUser As String)
Dim ds As New DataSet
Dim AvisoUserList As New List(Of cDomUser)
cSQL.SQL2DS("select * from ADMIN.dbo.tblMitarbeiter where mit_username = '" & AvisoUser & "'", ds, Class1.DBADMINBuchhaltung)
For Each row As DataRow In ds.Tables(0).Rows
Dim tempdu As New cDomUser
tempdu.du_EMail = Class1.DBNull2emptyString(row.Item("mit_email"))
If tempdu.du_EMail.Length > 1 Then tempdu.du_Email_Activated = True
tempdu.mit_username = Class1.DBNull2emptyString(row.Item("mit_username"))
tempdu.mit_pwd = Class1.DBNull2emptyString(row.Item("mit_pwd"))
tempdu.du_Vorname = Class1.DBNull2emptyString(row.Item("mit_vname"))
tempdu.du_Nachname = Class1.DBNull2emptyString(row.Item("mit_nname"))
tempdu.du_Abteilung = Class1.DBNull2emptyString(row.Item("mit_abteilung"))
tempdu.du_TelNummer = Class1.DBNull2emptyString(row.Item("mit_mobiltel"))
tempdu.du_DW = Class1.DBNull2emptyString(row.Item("mit_durchwahl"))
tempdu.du_Dom = Class1.DBNull2emptyString(row.Item("mit_aliasad_domain"))
tempdu.du_sAMAc = Class1.DBNull2emptyString(row.Item("mit_aliasad_username"))
AvisoUserList.Add(tempdu)
Next
Return AvisoUserList
End Function
Public Function Selectinator3000(varlist As List(Of SQLVariable)) As String
Dim Ding As String = ""
For Each var In varlist
Ding &= var.SQLText & ", "
Next
Ding = Ding.Substring(0, (Ding.Length - 2))
Return Ding
End Function
Public Function Delete()
If MsgBox("Benutzer " & du_Vorname & " " & du_Nachname & ", " & du_sAMAc & " löschen?", MsgBoxStyle.OkCancel, "Benutzer löschen?") = MsgBoxResult.Ok Then
cSQL.DeleteSQL("Doku.dbo.TbL_DomUser", "du_ID = '" & du_ID & "'", Class1.DBADMINBuchhaltung)
Else
Exit Function
End If
End Function
Public Shared Function Delete(ID As String)
If MsgBox("Benutzer löschen?", MsgBoxStyle.OkCancel, "Benutzer löschen?") = MsgBoxResult.Ok Then
cSQL.DeleteSQL("Doku.dbo.TbL_DomUser", "du_ID = '" & ID & "'", Class1.DBADMINBuchhaltung)
Else
Exit Function
End If
End Function
End Class

25
Dokumentation/Classes/cSQL.vb
View File

@@ -2,10 +2,11 @@
Public Class cSQL
Public Shared Sub SQL2DS(ByRef selector As String, ByRef ds As DataSet)
Public Shared Sub SQL2DS(ByRef selector As String, ByRef ds As DataSet, Optional ByRef DBConnect As String = "")
If DBConnect = "" Then DBConnect = Class1.DBConString
Dim con As New SqlConnection
Dim cmd As New SqlCommand
con.ConnectionString = Class1.DBConString
con.ConnectionString = DBConnect 'Class1.DBConString
cmd.Connection = con
Dim dataadapter As New SqlDataAdapter(selector, con)
@@ -14,10 +15,11 @@ Public Class cSQL
con.Close()
End Sub
Public Shared Sub UpdateSQL(ByRef table As String, ByRef values As String, ByRef where As String)
Public Shared Sub UpdateSQL(ByRef table As String, ByRef values As String, ByRef where As String, Optional ByRef DBConnect As String = "")
If DBConnect = "" Then DBConnect = Class1.DBConString
Dim con As New SqlConnection
Dim cmd As New SqlCommand
con.ConnectionString = Class1.DBConString
con.ConnectionString = DBConnect ' Class1.DBConString
cmd.Connection = con
con.Open()
@@ -26,10 +28,11 @@ Public Class cSQL
con.Close()
End Sub
Public Shared Sub InsertSQL(ByRef table As String, ByRef insert As String)
Public Shared Sub InsertSQL(ByRef table As String, ByRef insert As String, Optional ByRef DBConnect As String = "")
If DBConnect = "" Then DBConnect = Class1.DBConString
Dim con As New SqlConnection
Dim cmd As New SqlCommand
con.ConnectionString = Class1.DBConString
con.ConnectionString = DBConnect ' Class1.DBConString
cmd.Connection = con
con.Open()
@@ -38,10 +41,11 @@ Public Class cSQL
con.Close()
End Sub
Public Shared Sub DeleteSQL(ByRef table As String, ByRef where As String)
Public Shared Sub DeleteSQL(ByRef table As String, ByRef where As String, Optional ByRef DBConnect As String = "")
If DBConnect = "" Then DBConnect = Class1.DBConString
Dim con As New SqlConnection
Dim cmd As New SqlCommand
con.ConnectionString = Class1.DBConString
con.ConnectionString = DBConnect ' Class1.DBConString
cmd.Connection = con
con.Open()
@@ -50,10 +54,11 @@ Public Class cSQL
con.Close()
End Sub
Public Shared Sub SQLCommand(command As String)
Public Shared Sub SQLCommand(command As String, Optional ByRef DBConnect As String = "")
If DBConnect = "" Then DBConnect = Class1.DBConString
Dim con As New SqlConnection
Dim cmd As New SqlCommand
con.ConnectionString = Class1.DBConString
con.ConnectionString = DBConnect ' Class1.DBConString
cmd.Connection = con
con.Open()

22
Dokumentation/Dokumentation.vbproj
View File

@@ -153,15 +153,28 @@
<Compile Include="Administration\Standorthinzu.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="Classes\cDomUser.vb" />
<Compile Include="Classes\cEintrag.vb" />
<Compile Include="Classes\cNetzwerk.vb" />
<Compile Include="Classes\cTSUser.vb" />
<Compile Include="uscntr_DomUserList.Designer.vb">
<DependentUpon>uscntr_DomUserList.vb</DependentUpon>
</Compile>
<Compile Include="uscntr_DomUserList.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="frmAllgemeinEintrag.Designer.vb">
<DependentUpon>frmAllgemeinEintrag.vb</DependentUpon>
</Compile>
<Compile Include="frmAllgemeinEintrag.vb">
<SubType>Form</SubType>
</Compile>
<Compile Include="uscntr_DomUser.Designer.vb">
<DependentUpon>uscntr_DomUser.vb</DependentUpon>
</Compile>
<Compile Include="uscntr_DomUser.vb">
<SubType>UserControl</SubType>
</Compile>
<Compile Include="uscntr_TSSitzungen.Designer.vb">
<DependentUpon>uscntr_TSSitzungen.vb</DependentUpon>
</Compile>
@@ -349,6 +362,12 @@
<EmbeddedResource Include="frmAllgemeinEintrag.resx">
<DependentUpon>frmAllgemeinEintrag.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="uscntr_DomUser.resx">
<DependentUpon>uscntr_DomUser.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="uscntr_DomUserList.resx">
<DependentUpon>uscntr_DomUserList.vb</DependentUpon>
</EmbeddedResource>
<EmbeddedResource Include="uscntr_TSSitzungen.resx">
<DependentUpon>uscntr_TSSitzungen.vb</DependentUpon>
</EmbeddedResource>
@@ -450,6 +469,9 @@
<None Include="Resources\Netzwerk20.bmp" />
<None Include="Resources\mail20.png" />
<None Include="Resources\msg.exe" />
<None Include="Resources\ico_putty_exe0001.bmp" />
<None Include="Resources\Admin.PNG" />
<None Include="Resources\Admin20.png" />
<Content Include="Resources\pdf512.png" />
<None Include="Resources\Print.png" />
<None Include="Resources\Print20x20.png" />

51
Dokumentation/Main.Designer.vb generated
View File

@@ -26,6 +26,7 @@ Partial Class Main
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(Main))
Me.Panel2 = New System.Windows.Forms.Panel()
Me.Panel4 = New System.Windows.Forms.Panel()
Me.btnBenutzerverwaltung = New System.Windows.Forms.Button()
Me.LblDEBUGMODE = New System.Windows.Forms.Label()
Me.LblVersion = New System.Windows.Forms.Label()
Me.LblInfo = New System.Windows.Forms.Label()
@@ -85,6 +86,7 @@ Partial Class Main
Me.SMBToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.DgvMainContextMenuItemLink = New System.Windows.Forms.ToolStripMenuItem()
Me.IPAdresseInZwischenablageToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.TeamviewerVerbindenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator3 = New System.Windows.Forms.ToolStripSeparator()
Me.ObjektLöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ToolStripSeparator2 = New System.Windows.Forms.ToolStripSeparator()
@@ -103,7 +105,6 @@ Partial Class Main
Me.TimerUpdate = New System.Windows.Forms.Timer(Me.components)
Me.TimerWillkommen = New System.Windows.Forms.Timer(Me.components)
Me.panTSSitzungen = New System.Windows.Forms.Panel()
Me.TeamviewerVerbindenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel2.SuspendLayout()
Me.Panel4.SuspendLayout()
Me.PanType.SuspendLayout()
@@ -149,6 +150,20 @@ Partial Class Main
Me.Panel4.Size = New System.Drawing.Size(1309, 106)
Me.Panel4.TabIndex = 14
'
'btnBenutzerverwaltung
'
Me.btnBenutzerverwaltung.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnBenutzerverwaltung.FlatAppearance.MouseOverBackColor = System.Drawing.Color.FromArgb(CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer), CType(CType(224, Byte), Integer))
Me.btnBenutzerverwaltung.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnBenutzerverwaltung.Image = Global.Dokumentation.My.Resources.Resources.Admin20
Me.btnBenutzerverwaltung.ImageAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnBenutzerverwaltung.Location = New System.Drawing.Point(25, 670)
Me.btnBenutzerverwaltung.Name = "btnBenutzerverwaltung"
Me.btnBenutzerverwaltung.Size = New System.Drawing.Size(151, 28)
Me.btnBenutzerverwaltung.TabIndex = 20
Me.btnBenutzerverwaltung.Text = "Benutzerverwaltung"
Me.btnBenutzerverwaltung.UseVisualStyleBackColor = False
'
'LblDEBUGMODE
'
Me.LblDEBUGMODE.AutoSize = True
@@ -408,6 +423,7 @@ Partial Class Main
'Panel3
'
Me.Panel3.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.Panel3.Controls.Add(Me.btnBenutzerverwaltung)
Me.Panel3.Controls.Add(Me.chkTSSitzungen)
Me.Panel3.Controls.Add(Me.lblCount)
Me.Panel3.Controls.Add(Me.btnNeu)
@@ -426,13 +442,13 @@ Partial Class Main
Me.Panel3.Dock = System.Windows.Forms.DockStyle.Left
Me.Panel3.Location = New System.Drawing.Point(0, 130)
Me.Panel3.Name = "Panel3"
Me.Panel3.Size = New System.Drawing.Size(200, 790)
Me.Panel3.Size = New System.Drawing.Size(200, 854)
Me.Panel3.TabIndex = 2
'
'chkTSSitzungen
'
Me.chkTSSitzungen.AutoSize = True
Me.chkTSSitzungen.Location = New System.Drawing.Point(25, 680)
Me.chkTSSitzungen.Location = New System.Drawing.Point(25, 744)
Me.chkTSSitzungen.Name = "chkTSSitzungen"
Me.chkTSSitzungen.Size = New System.Drawing.Size(157, 17)
Me.chkTSSitzungen.TabIndex = 19
@@ -442,7 +458,7 @@ Partial Class Main
'lblCount
'
Me.lblCount.AutoSize = True
Me.lblCount.Location = New System.Drawing.Point(12, 768)
Me.lblCount.Location = New System.Drawing.Point(12, 832)
Me.lblCount.Name = "lblCount"
Me.lblCount.Size = New System.Drawing.Size(45, 13)
Me.lblCount.TabIndex = 18
@@ -573,7 +589,7 @@ Partial Class Main
'ChkTools
'
Me.ChkTools.AutoSize = True
Me.ChkTools.Location = New System.Drawing.Point(25, 726)
Me.ChkTools.Location = New System.Drawing.Point(25, 790)
Me.ChkTools.Name = "ChkTools"
Me.ChkTools.Size = New System.Drawing.Size(107, 17)
Me.ChkTools.TabIndex = 10
@@ -597,7 +613,7 @@ Partial Class Main
'ChKZugangsdaten
'
Me.ChKZugangsdaten.AutoSize = True
Me.ChKZugangsdaten.Location = New System.Drawing.Point(25, 703)
Me.ChKZugangsdaten.Location = New System.Drawing.Point(25, 767)
Me.ChKZugangsdaten.Name = "ChKZugangsdaten"
Me.ChKZugangsdaten.Size = New System.Drawing.Size(141, 17)
Me.ChKZugangsdaten.TabIndex = 4
@@ -665,14 +681,14 @@ Partial Class Main
Me.DgVMain.Name = "DgVMain"
Me.DgVMain.ReadOnly = True
Me.DgVMain.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.DgVMain.Size = New System.Drawing.Size(1016, 690)
Me.DgVMain.Size = New System.Drawing.Size(1016, 754)
Me.DgVMain.TabIndex = 3
'
'DGVMainContext
'
Me.DGVMainContext.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.DgvMainContextMenuItemHost, Me.ErstellenToolStripMenuItem, Me.DateienToolStripMenuItem, Me.SMBToolStripMenuItem, Me.DgvMainContextMenuItemLink, Me.IPAdresseInZwischenablageToolStripMenuItem, Me.TeamviewerVerbindenToolStripMenuItem, Me.ToolStripSeparator3, Me.ObjektLöschenToolStripMenuItem, Me.ToolStripSeparator2, Me.NetzwerkdateienToolStripMenuItem, Me.ToolsToolStripMenuItem})
Me.DGVMainContext.Name = "ContextMenuStrip2"
Me.DGVMainContext.Size = New System.Drawing.Size(230, 258)
Me.DGVMainContext.Size = New System.Drawing.Size(230, 236)
'
'DgvMainContextMenuItemHost
'
@@ -710,6 +726,12 @@ Partial Class Main
Me.IPAdresseInZwischenablageToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
Me.IPAdresseInZwischenablageToolStripMenuItem.Text = "IP Adresse in Zwischenablage"
'
'TeamviewerVerbindenToolStripMenuItem
'
Me.TeamviewerVerbindenToolStripMenuItem.Name = "TeamviewerVerbindenToolStripMenuItem"
Me.TeamviewerVerbindenToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
Me.TeamviewerVerbindenToolStripMenuItem.Text = "Teamviewer verbinden"
'
'ToolStripSeparator3
'
Me.ToolStripSeparator3.Name = "ToolStripSeparator3"
@@ -768,7 +790,7 @@ Partial Class Main
Me.PanTools.Controls.Add(Me.CmdTest)
Me.PanTools.Controls.Add(Me.CMdTest2)
Me.PanTools.Dock = System.Windows.Forms.DockStyle.Bottom
Me.PanTools.Location = New System.Drawing.Point(200, 820)
Me.PanTools.Location = New System.Drawing.Point(200, 884)
Me.PanTools.Name = "PanTools"
Me.PanTools.Size = New System.Drawing.Size(1016, 100)
Me.PanTools.TabIndex = 4
@@ -842,21 +864,15 @@ Partial Class Main
Me.panTSSitzungen.Dock = System.Windows.Forms.DockStyle.Right
Me.panTSSitzungen.Location = New System.Drawing.Point(1216, 130)
Me.panTSSitzungen.Name = "panTSSitzungen"
Me.panTSSitzungen.Size = New System.Drawing.Size(365, 790)
Me.panTSSitzungen.Size = New System.Drawing.Size(365, 854)
Me.panTSSitzungen.TabIndex = 5
Me.panTSSitzungen.Visible = False
'
'TeamviewerVerbindenToolStripMenuItem
'
Me.TeamviewerVerbindenToolStripMenuItem.Name = "TeamviewerVerbindenToolStripMenuItem"
Me.TeamviewerVerbindenToolStripMenuItem.Size = New System.Drawing.Size(229, 22)
Me.TeamviewerVerbindenToolStripMenuItem.Text = "Teamviewer verbinden"
'
'Main
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1581, 920)
Me.ClientSize = New System.Drawing.Size(1581, 984)
Me.Controls.Add(Me.DgVMain)
Me.Controls.Add(Me.PanTools)
Me.Controls.Add(Me.panTSSitzungen)
@@ -970,4 +986,5 @@ Partial Class Main
Friend WithEvents panTSSitzungen As Panel
Friend WithEvents chkTSSitzungen As CheckBox
Friend WithEvents TeamviewerVerbindenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents btnBenutzerverwaltung As Button
End Class

3
Dokumentation/Main.resx
View File

@@ -292,6 +292,9 @@
<metadata name="TimerWillkommen.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>788, 17</value>
</metadata>
<metadata name="$this.TrayHeight" type="System.Int32, mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089">
<value>59</value>
</metadata>
<data name="$this.Icon" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>
AAABAAEAgIAAAAAAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMAAAAAAAAAAAAAAAAAAAAAA

69
Dokumentation/Main.vb
View File

@@ -617,10 +617,8 @@ Public Class Main
End Function
Private Sub CmdTest_Click(sender As Object, e As EventArgs) Handles CmdTest.Click
'cFolder.netdelete("10.4.3.17")
End Sub
Function GetUsersInGroup(ByVal groupname As String, Optional ByVal LDAP As String = "LDAP://DC=VERAG,DC=OST,DC=DMN") As List(Of String)
Dim Userlist As New List(Of String)
@@ -637,10 +635,43 @@ Public Class Main
Return Userlist
End Function
Private Sub CmdTest_Click(sender As Object, e As EventArgs) Handles CmdTest.Click
Dim frm As New frmLeer
frm.Text = "Benutzerverwaltung"
Dim usrcntrl As New uscntr_DomUser
usrcntrl.Dock = DockStyle.Fill : frm.PanMain.Controls.Add(usrcntrl)
frm.Size = usrcntrl.Size
frm.Show()
AddHandler frm.FormClosing, Function()
End Function
End Sub
Private Sub CMdTest2_Click(sender As Object, e As EventArgs) Handles CMdTest2.Click
Dim test As New Object
Dim testuser As New cBenutzer
testuser.FillFromDC("CN=S-1-5-21-585332750-1805456821-3920631953-1235,CN=ForeignSecurityPrincipals,DC=verag,DC=ost,DC=dmn")
Dim testuser As New cDomUser
testuser.getDomUser("mit_email", "ms@verag.ag")
Dim frm As New frmLeer
frm.Text = "Benutzerverwaltung"
Dim usrcntrl As New uscntr_DomUser
usrcntrl.DomUser = testuser
usrcntrl.Dock = DockStyle.Fill : frm.PanMain.Controls.Add(usrcntrl)
frm.Size = usrcntrl.Size
frm.Show()
AddHandler frm.FormClosing, Function()
End Function
End Sub
Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
Dim test As New cDomUser
test.getDomUserByID("7a5ea2da4ec34c74b3145bf090b39631")
MsgBox(test.du_Nachname)
End Sub
Public Function GetDHCPClients(Netzwerk As String, DHCPServer As String, Fill As Boolean, ByRef ds As DataSet)
@@ -1194,7 +1225,6 @@ Public Class Main
Neu = True
Dim frm As New frmAllgemeinEintrag
frm.Text = "Neuer Eintrag"
'Eintrag.Titel = Class1.DBNull2emptyString((DgVMain.CurrentRow.Cells("Titel").Value))
If Class1.DBNull2emptyString((DgVMain.CurrentRow.Cells("Rubrik").Value)) = "" Then
frm.Eintrag.rubrik = Class1.DBNull2emptyString((DgVMain.Rows(0).Cells("Rubrik").Value))
Else
@@ -1223,15 +1253,8 @@ Public Class Main
frm.Show()
End Sub
Private Sub btnTest3_Click(sender As Object, e As EventArgs) Handles btnTest3.Click
panTSSitzungen.Controls.Clear()
Dim dingsi As New uscntr_TSSitzungen
' Threading.Thread.Sleep(2000)
panTSSitzungen.Controls.Add(dingsi)
End Sub
Private Sub ToolStripMenuItemINFO_Click(sender As Object, e As EventArgs) Handles ToolStripMenuItemINFO.Click
Dim frm As New frmLeer
frm.Text = "INFO"
@@ -1296,6 +1319,24 @@ Public Class Main
End If
End Sub
Private Sub btnBenutzerverwaltung_Click(sender As Object, e As EventArgs) Handles btnBenutzerverwaltung.Click
Dim frm As New frmLeer
frm.Text = "Benutzerverwaltung"
Dim usrcntrl As New uscntr_DomUserList
usrcntrl.Dock = DockStyle.Fill : frm.PanMain.Controls.Add(usrcntrl)
frm.Size = usrcntrl.Size
frm.Show()
AddHandler frm.FormClosing, Function()
End Function
End Sub
Private Sub DgVMain_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles DgVMain.CellContentClick
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

32
Dokumentation/My Project/Resources.Designer.vb generated
View File

@@ -60,6 +60,26 @@ Namespace My.Resources
End Set
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Admin() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Admin", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property Admin20() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("Admin20", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -80,6 +100,16 @@ Namespace My.Resources
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
Friend ReadOnly Property ico_putty_exe0001() As System.Drawing.Bitmap
Get
Dim obj As Object = ResourceManager.GetObject("ico_putty_exe0001", resourceCulture)
Return CType(obj,System.Drawing.Bitmap)
End Get
End Property
'''<summary>
''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap.
'''</summary>
@@ -199,7 +229,7 @@ Namespace My.Resources
End Property
'''<summary>
''' Sucht eine lokalisierte Zeichenfolge, die 0.0.1.44 ähnelt.
''' Sucht eine lokalisierte Zeichenfolge, die 0.0.1.47 ähnelt.
'''</summary>
Friend ReadOnly Property Version() As String
Get

23
Dokumentation/My Project/Resources.resx
View File

@@ -127,8 +127,14 @@
<data name="Bearbeiten20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Bearbeiten20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="mail20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mail20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Version" xml:space="preserve">
<value>0.0.1.44</value>
<value>0.0.1.47</value>
</data>
<data name="Link" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Print20x20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Print20x20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
@@ -136,6 +142,9 @@
<data name="Netzwerk20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Netzwerk20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="ico_putty_exe0001" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\ico_putty_exe0001.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Programmname" xml:space="preserve">
<value>Dokumentation</value>
</data>
@@ -148,8 +157,8 @@
<data name="pdf512" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\pdf512.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="Link" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="msg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\msg.exe;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</data>
<data name="Programmcode" xml:space="preserve">
<value>DOKU</value>
@@ -157,10 +166,10 @@
<data name="Link1" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Link.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="mail20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\mail20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
<data name="Admin" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Admin.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
<data name="msg" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\msg.exe;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
<data name="Admin20" type="System.Resources.ResXFileRef, System.Windows.Forms">
<value>..\Resources\Admin20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a</value>
</data>
</root>

BIN
Dokumentation/Resources/Admin.PNG Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 20 KiB

BIN
Dokumentation/Resources/Admin20.png Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 536 B

BIN
Dokumentation/Resources/ico_putty_exe0001.bmp Normal file
View File

Binary file not shown.
Side by Side

After

Width:  |  Height:  |  Size: 4.1 KiB

43
Dokumentation/frmHostBearbeiten.Designer.vb generated
View File

@@ -72,6 +72,8 @@ Partial Class frmHostBearbeiten
Me.CmdDelete = New System.Windows.Forms.Button()
Me.TxtBenutzername = New System.Windows.Forms.TextBox()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.cmdPutty = New System.Windows.Forms.Button()
Me.cmdTVConnect = New System.Windows.Forms.Button()
Me.txtTeamviewer = New System.Windows.Forms.TextBox()
Me.Label12 = New System.Windows.Forms.Label()
Me.txtTVKennwort = New System.Windows.Forms.TextBox()
@@ -84,7 +86,6 @@ Partial Class frmHostBearbeiten
Me.PanFirewall = New System.Windows.Forms.Panel()
Me.PanSlaves = New System.Windows.Forms.Panel()
Me.PanNavTop = New System.Windows.Forms.Panel()
Me.cmdTVConnect = New System.Windows.Forms.Button()
Me.ContextMenuStrip2.SuspendLayout()
Me.ContextMenuStrip1.SuspendLayout()
Me.Panel1.SuspendLayout()
@@ -526,6 +527,7 @@ Partial Class frmHostBearbeiten
'
'Panel1
'
Me.Panel1.Controls.Add(Me.cmdPutty)
Me.Panel1.Controls.Add(Me.cmdTVConnect)
Me.Panel1.Controls.Add(Me.txtTeamviewer)
Me.Panel1.Controls.Add(Me.Label12)
@@ -578,6 +580,31 @@ Partial Class frmHostBearbeiten
Me.Panel1.Size = New System.Drawing.Size(643, 460)
Me.Panel1.TabIndex = 137
'
'cmdPutty
'
Me.cmdPutty.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.cmdPutty.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.cmdPutty.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cmdPutty.Image = Global.Dokumentation.My.Resources.Resources.ico_putty_exe0001
Me.cmdPutty.Location = New System.Drawing.Point(231, 340)
Me.cmdPutty.Name = "cmdPutty"
Me.cmdPutty.Size = New System.Drawing.Size(32, 32)
Me.cmdPutty.TabIndex = 146
Me.cmdPutty.UseVisualStyleBackColor = False
'
'cmdTVConnect
'
Me.cmdTVConnect.BackColor = System.Drawing.Color.SkyBlue
Me.cmdTVConnect.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.cmdTVConnect.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cmdTVConnect.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmdTVConnect.Location = New System.Drawing.Point(231, 378)
Me.cmdTVConnect.Name = "cmdTVConnect"
Me.cmdTVConnect.Size = New System.Drawing.Size(75, 20)
Me.cmdTVConnect.TabIndex = 145
Me.cmdTVConnect.Text = "Verb."
Me.cmdTVConnect.UseVisualStyleBackColor = False
'
'txtTeamviewer
'
Me.txtTeamviewer.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
@@ -699,19 +726,6 @@ Partial Class frmHostBearbeiten
Me.PanNavTop.Size = New System.Drawing.Size(309, 32)
Me.PanNavTop.TabIndex = 141
'
'cmdTVConnect
'
Me.cmdTVConnect.BackColor = System.Drawing.Color.SkyBlue
Me.cmdTVConnect.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.cmdTVConnect.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cmdTVConnect.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmdTVConnect.Location = New System.Drawing.Point(231, 378)
Me.cmdTVConnect.Name = "cmdTVConnect"
Me.cmdTVConnect.Size = New System.Drawing.Size(75, 20)
Me.cmdTVConnect.TabIndex = 145
Me.cmdTVConnect.Text = "Verb."
Me.cmdTVConnect.UseVisualStyleBackColor = False
'
'frmHostBearbeiten
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
@@ -802,4 +816,5 @@ Partial Class frmHostBearbeiten
Friend WithEvents Label13 As Label
Friend WithEvents chkTeamViewerKennwortAnzeigen As CheckBox
Friend WithEvents cmdTVConnect As Button
Friend WithEvents cmdPutty As Button
End Class

6
Dokumentation/frmHostBearbeiten.vb
View File

@@ -37,6 +37,8 @@
txtTeamviewer.Text = host.TeamviewerID
txtTVKennwort.Text = host.TeamviewerKennwort
Me.Text = host.FQDN
Dim ds As New DataSet
cHost.getSlaves(host.IPAdresse, ds)
If ds.Tables(0).Rows.Count > 0 Then
@@ -375,4 +377,8 @@
Private Sub cmdTVConnect_Click(sender As Object, e As EventArgs) Handles cmdTVConnect.Click
Ext_Programme.StartTeamviewer(txtTeamviewer.Text, txtTVKennwort.Text)
End Sub
Private Sub cmdPutty_Click(sender As Object, e As EventArgs) Handles cmdPutty.Click
Ext_Programme.startputty(Class1.MainHost(TxtIP.Text))
End Sub
End Class

376
Dokumentation/uscntr_DomUser.Designer.vb generated Normal file
View File

@@ -0,0 +1,376 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()> _
Partial Class uscntr_DomUser
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()> _
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()> _
Private Sub InitializeComponent()
Me.cmdSave = New System.Windows.Forms.Button()
Me.TxtAvisoBenutzername = New System.Windows.Forms.TextBox()
Me.Label7 = New System.Windows.Forms.Label()
Me.TxtAvisoKennwort = New System.Windows.Forms.TextBox()
Me.Label6 = New System.Windows.Forms.Label()
Me.ChkKennwortAnzeigen = New System.Windows.Forms.CheckBox()
Me.txtDomKennwort = New System.Windows.Forms.TextBox()
Me.fu = New System.Windows.Forms.Label()
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
Me.txtEMailAdresse = New System.Windows.Forms.TextBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.txtVorname = New System.Windows.Forms.TextBox()
Me.Label3 = New System.Windows.Forms.Label()
Me.txtNachname = New System.Windows.Forms.TextBox()
Me.asdgdhfdehdh = New System.Windows.Forms.Label()
Me.txtDomaene = New System.Windows.Forms.TextBox()
Me.dsagg = New System.Windows.Forms.Label()
Me.txtBenutzer = New System.Windows.Forms.TextBox()
Me.Label9 = New System.Windows.Forms.Label()
Me.ddddd = New System.Windows.Forms.Label()
Me.chkEMailAktiv = New System.Windows.Forms.CheckBox()
Me.btnLoadFromAviso = New System.Windows.Forms.Button()
Me.txtInfo = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.ListDomUser = New System.Windows.Forms.ListBox()
Me.btnSchliessen = New System.Windows.Forms.Button()
Me.SuspendLayout()
'
'cmdSave
'
Me.cmdSave.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.cmdSave.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.cmdSave.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cmdSave.Location = New System.Drawing.Point(447, 219)
Me.cmdSave.Name = "cmdSave"
Me.cmdSave.Size = New System.Drawing.Size(96, 23)
Me.cmdSave.TabIndex = 15
Me.cmdSave.Text = "Speichern"
Me.cmdSave.UseVisualStyleBackColor = False
'
'TxtAvisoBenutzername
'
Me.TxtAvisoBenutzername.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
Me.TxtAvisoBenutzername.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
Me.TxtAvisoBenutzername.Location = New System.Drawing.Point(345, 37)
Me.TxtAvisoBenutzername.Margin = New System.Windows.Forms.Padding(8, 3, 8, 3)
Me.TxtAvisoBenutzername.Name = "TxtAvisoBenutzername"
Me.TxtAvisoBenutzername.Size = New System.Drawing.Size(222, 20)
Me.TxtAvisoBenutzername.TabIndex = 1
'
'Label7
'
Me.Label7.AutoSize = True
Me.Label7.Location = New System.Drawing.Point(342, 21)
Me.Label7.Name = "Label7"
Me.Label7.Size = New System.Drawing.Size(104, 13)
Me.Label7.TabIndex = 140
Me.Label7.Text = "Aviso-Benutzername"
'
'TxtAvisoKennwort
'
Me.TxtAvisoKennwort.Location = New System.Drawing.Point(345, 76)
Me.TxtAvisoKennwort.Margin = New System.Windows.Forms.Padding(8, 3, 8, 3)
Me.TxtAvisoKennwort.Name = "TxtAvisoKennwort"
Me.TxtAvisoKennwort.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.TxtAvisoKennwort.Size = New System.Drawing.Size(300, 20)
Me.TxtAvisoKennwort.TabIndex = 3
'
'Label6
'
Me.Label6.AutoSize = True
Me.Label6.Location = New System.Drawing.Point(342, 60)
Me.Label6.Name = "Label6"
Me.Label6.Size = New System.Drawing.Size(81, 13)
Me.Label6.TabIndex = 141
Me.Label6.Text = "Aviso-Kennwort"
'
'ChkKennwortAnzeigen
'
Me.ChkKennwortAnzeigen.AutoSize = True
Me.ChkKennwortAnzeigen.Location = New System.Drawing.Point(471, 59)
Me.ChkKennwortAnzeigen.Name = "ChkKennwortAnzeigen"
Me.ChkKennwortAnzeigen.Size = New System.Drawing.Size(70, 17)
Me.ChkKennwortAnzeigen.TabIndex = 138
Me.ChkKennwortAnzeigen.Text = "Anzeigen"
Me.ChkKennwortAnzeigen.UseVisualStyleBackColor = True
'
'txtDomKennwort
'
Me.txtDomKennwort.Location = New System.Drawing.Point(8, 193)
Me.txtDomKennwort.Margin = New System.Windows.Forms.Padding(8, 3, 8, 3)
Me.txtDomKennwort.Name = "txtDomKennwort"
Me.txtDomKennwort.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.txtDomKennwort.Size = New System.Drawing.Size(300, 20)
Me.txtDomKennwort.TabIndex = 11
'
'fu
'
Me.fu.AutoSize = True
Me.fu.Location = New System.Drawing.Point(5, 177)
Me.fu.Name = "fu"
Me.fu.Size = New System.Drawing.Size(52, 13)
Me.fu.TabIndex = 144
Me.fu.Text = "Kennwort"
'
'CheckBox1
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Location = New System.Drawing.Point(63, 176)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(70, 17)
Me.CheckBox1.TabIndex = 10
Me.CheckBox1.Text = "Anzeigen"
Me.CheckBox1.UseVisualStyleBackColor = True
'
'txtEMailAdresse
'
Me.txtEMailAdresse.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
Me.txtEMailAdresse.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
Me.txtEMailAdresse.Enabled = False
Me.txtEMailAdresse.Location = New System.Drawing.Point(8, 36)
Me.txtEMailAdresse.Margin = New System.Windows.Forms.Padding(8, 3, 8, 3)
Me.txtEMailAdresse.Name = "txtEMailAdresse"
Me.txtEMailAdresse.Size = New System.Drawing.Size(244, 20)
Me.txtEMailAdresse.TabIndex = 5
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(5, 21)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(77, 13)
Me.Label2.TabIndex = 146
Me.Label2.Text = "E-Mail-Adresse"
'
'txtVorname
'
Me.txtVorname.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
Me.txtVorname.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
Me.txtVorname.Location = New System.Drawing.Point(8, 76)
Me.txtVorname.Margin = New System.Windows.Forms.Padding(8, 3, 8, 3)
Me.txtVorname.Name = "txtVorname"
Me.txtVorname.Size = New System.Drawing.Size(300, 20)
Me.txtVorname.TabIndex = 6
'
'Label3
'
Me.Label3.AutoSize = True
Me.Label3.Location = New System.Drawing.Point(5, 60)
Me.Label3.Name = "Label3"
Me.Label3.Size = New System.Drawing.Size(49, 13)
Me.Label3.TabIndex = 148
Me.Label3.Text = "Vorname"
'
'txtNachname
'
Me.txtNachname.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
Me.txtNachname.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
Me.txtNachname.Location = New System.Drawing.Point(8, 115)
Me.txtNachname.Margin = New System.Windows.Forms.Padding(8, 3, 8, 3)
Me.txtNachname.Name = "txtNachname"
Me.txtNachname.Size = New System.Drawing.Size(300, 20)
Me.txtNachname.TabIndex = 7
'
'asdgdhfdehdh
'
Me.asdgdhfdehdh.AutoSize = True
Me.asdgdhfdehdh.Location = New System.Drawing.Point(5, 99)
Me.asdgdhfdehdh.Name = "asdgdhfdehdh"
Me.asdgdhfdehdh.Size = New System.Drawing.Size(59, 13)
Me.asdgdhfdehdh.TabIndex = 150
Me.asdgdhfdehdh.Text = "Nachname"
'
'txtDomaene
'
Me.txtDomaene.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
Me.txtDomaene.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
Me.txtDomaene.Location = New System.Drawing.Point(8, 154)
Me.txtDomaene.Margin = New System.Windows.Forms.Padding(8, 3, 8, 3)
Me.txtDomaene.Name = "txtDomaene"
Me.txtDomaene.Size = New System.Drawing.Size(133, 20)
Me.txtDomaene.TabIndex = 8
'
'dsagg
'
Me.dsagg.AutoSize = True
Me.dsagg.Location = New System.Drawing.Point(5, 138)
Me.dsagg.Name = "dsagg"
Me.dsagg.Size = New System.Drawing.Size(47, 13)
Me.dsagg.TabIndex = 152
Me.dsagg.Text = "Domäne"
'
'txtBenutzer
'
Me.txtBenutzer.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
Me.txtBenutzer.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
Me.txtBenutzer.Location = New System.Drawing.Point(160, 154)
Me.txtBenutzer.Margin = New System.Windows.Forms.Padding(8, 3, 8, 3)
Me.txtBenutzer.Name = "txtBenutzer"
Me.txtBenutzer.Size = New System.Drawing.Size(148, 20)
Me.txtBenutzer.TabIndex = 9
'
'Label9
'
Me.Label9.AutoSize = True
Me.Label9.Font = New System.Drawing.Font("Microsoft Sans Serif", 9.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.Label9.Location = New System.Drawing.Point(144, 156)
Me.Label9.Name = "Label9"
Me.Label9.Size = New System.Drawing.Size(13, 16)
Me.Label9.TabIndex = 156
Me.Label9.Text = "\"
'
'ddddd
'
Me.ddddd.AutoSize = True
Me.ddddd.Location = New System.Drawing.Point(157, 138)
Me.ddddd.Name = "ddddd"
Me.ddddd.Size = New System.Drawing.Size(75, 13)
Me.ddddd.TabIndex = 157
Me.ddddd.Text = "Benutzername"
'
'chkEMailAktiv
'
Me.chkEMailAktiv.AutoSize = True
Me.chkEMailAktiv.Location = New System.Drawing.Point(258, 39)
Me.chkEMailAktiv.Name = "chkEMailAktiv"
Me.chkEMailAktiv.Size = New System.Drawing.Size(50, 17)
Me.chkEMailAktiv.TabIndex = 4
Me.chkEMailAktiv.Text = "Aktiv"
Me.chkEMailAktiv.UseVisualStyleBackColor = True
'
'btnLoadFromAviso
'
Me.btnLoadFromAviso.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnLoadFromAviso.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.btnLoadFromAviso.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnLoadFromAviso.Font = New System.Drawing.Font("Microsoft Sans Serif", 6.75!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnLoadFromAviso.Location = New System.Drawing.Point(573, 37)
Me.btnLoadFromAviso.Name = "btnLoadFromAviso"
Me.btnLoadFromAviso.Size = New System.Drawing.Size(72, 20)
Me.btnLoadFromAviso.TabIndex = 2
Me.btnLoadFromAviso.Text = "Laden"
Me.btnLoadFromAviso.TextImageRelation = System.Windows.Forms.TextImageRelation.ImageAboveText
Me.btnLoadFromAviso.UseVisualStyleBackColor = False
'
'txtInfo
'
Me.txtInfo.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest
Me.txtInfo.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.CustomSource
Me.txtInfo.Location = New System.Drawing.Point(345, 115)
Me.txtInfo.Margin = New System.Windows.Forms.Padding(8, 3, 8, 3)
Me.txtInfo.Multiline = True
Me.txtInfo.Name = "txtInfo"
Me.txtInfo.Size = New System.Drawing.Size(300, 98)
Me.txtInfo.TabIndex = 12
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(342, 99)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(28, 13)
Me.Label1.TabIndex = 161
Me.Label1.Text = " Info"
'
'ListDomUser
'
Me.ListDomUser.FormattingEnabled = True
Me.ListDomUser.Location = New System.Drawing.Point(345, 56)
Me.ListDomUser.Name = "ListDomUser"
Me.ListDomUser.Size = New System.Drawing.Size(222, 69)
Me.ListDomUser.TabIndex = 162
Me.ListDomUser.Visible = False
'
'btnSchliessen
'
Me.btnSchliessen.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.btnSchliessen.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.btnSchliessen.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.btnSchliessen.Location = New System.Drawing.Point(549, 219)
Me.btnSchliessen.Name = "btnSchliessen"
Me.btnSchliessen.Size = New System.Drawing.Size(96, 23)
Me.btnSchliessen.TabIndex = 163
Me.btnSchliessen.Text = "Schließen"
Me.btnSchliessen.UseVisualStyleBackColor = False
'
'uscntr_DomUser
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSize = True
Me.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.Controls.Add(Me.btnSchliessen)
Me.Controls.Add(Me.ListDomUser)
Me.Controls.Add(Me.txtInfo)
Me.Controls.Add(Me.Label1)
Me.Controls.Add(Me.btnLoadFromAviso)
Me.Controls.Add(Me.chkEMailAktiv)
Me.Controls.Add(Me.ddddd)
Me.Controls.Add(Me.Label9)
Me.Controls.Add(Me.txtBenutzer)
Me.Controls.Add(Me.txtDomaene)
Me.Controls.Add(Me.dsagg)
Me.Controls.Add(Me.txtNachname)
Me.Controls.Add(Me.asdgdhfdehdh)
Me.Controls.Add(Me.txtVorname)
Me.Controls.Add(Me.Label3)
Me.Controls.Add(Me.txtEMailAdresse)
Me.Controls.Add(Me.Label2)
Me.Controls.Add(Me.txtDomKennwort)
Me.Controls.Add(Me.fu)
Me.Controls.Add(Me.CheckBox1)
Me.Controls.Add(Me.TxtAvisoBenutzername)
Me.Controls.Add(Me.Label7)
Me.Controls.Add(Me.TxtAvisoKennwort)
Me.Controls.Add(Me.Label6)
Me.Controls.Add(Me.ChkKennwortAnzeigen)
Me.Controls.Add(Me.cmdSave)
Me.Name = "uscntr_DomUser"
Me.Size = New System.Drawing.Size(678, 498)
Me.ResumeLayout(False)
Me.PerformLayout()
End Sub
Friend WithEvents cmdSave As Button
Friend WithEvents TxtAvisoBenutzername As TextBox
Friend WithEvents Label7 As Label
Friend WithEvents TxtAvisoKennwort As TextBox
Friend WithEvents Label6 As Label
Friend WithEvents ChkKennwortAnzeigen As CheckBox
Friend WithEvents txtDomKennwort As TextBox
Friend WithEvents fu As Label
Friend WithEvents CheckBox1 As CheckBox
Friend WithEvents txtEMailAdresse As TextBox
Friend WithEvents Label2 As Label
Friend WithEvents txtVorname As TextBox
Friend WithEvents Label3 As Label
Friend WithEvents txtNachname As TextBox
Friend WithEvents asdgdhfdehdh As Label
Friend WithEvents dsagg As Label
Friend WithEvents txtBenutzer As TextBox
Friend WithEvents Label9 As Label
Friend WithEvents ddddd As Label
Friend WithEvents txtDomaene As TextBox
Friend WithEvents chkEMailAktiv As CheckBox
Friend WithEvents btnLoadFromAviso As Button
Friend WithEvents txtInfo As TextBox
Friend WithEvents Label1 As Label
Friend WithEvents ListDomUser As ListBox
Friend WithEvents btnSchliessen As Button
End Class

120
Dokumentation/uscntr_DomUser.resx Normal file
View File

@@ -0,0 +1,120 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
</root>

99
Dokumentation/uscntr_DomUser.vb Normal file
View File

@@ -0,0 +1,99 @@
Public Class uscntr_DomUser
Dim DomList As New List(Of cDomUser)
Property DomUser As New cDomUser
Private Sub uscntr_DomUser_Load(sender As Object, e As EventArgs) Handles Me.Load
FillForm()
End Sub
Function FillForm()
If DomUser.Exist Then
TxtAvisoBenutzername.Text = DomUser.mit_username
TxtAvisoKennwort.Text = DomUser.mit_pwd
txtBenutzer.Text = DomUser.du_sAMAc
txtEMailAdresse.Text = DomUser.du_EMail
txtVorname.Text = DomUser.du_Vorname
txtNachname.Text = DomUser.du_Nachname
txtDomaene.Text = DomUser.du_Dom
chkEMailAktiv.Checked = DomUser.du_Email_Activated
txtInfo.Text = DomUser.du_Info
txtDomKennwort.Text = DomUser.du_Kennwort
txtEMailAdresse.Enabled = DomUser.du_Email_Activated
End If
End Function
Function FillDomUser()
DomUser.mit_username = TxtAvisoBenutzername.Text
DomUser.mit_pwd = TxtAvisoKennwort.Text
DomUser.du_sAMAc = txtBenutzer.Text
DomUser.du_Vorname = txtVorname.Text
DomUser.du_Nachname = txtNachname.Text
DomUser.du_Kennwort = txtDomKennwort.Text
DomUser.du_Dom = txtDomaene.Text
DomUser.du_Email_Activated = chkEMailAktiv.Checked
DomUser.du_EMail = txtEMailAdresse.Text
DomUser.du_Info = txtInfo.Text
End Function
Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox1.CheckedChanged
If CheckBox1.Checked Then
txtDomKennwort.PasswordChar = ""
Else
txtDomKennwort.PasswordChar = "*"
End If
End Sub
Private Sub ChkKennwortAnzeigen_CheckedChanged(sender As Object, e As EventArgs) Handles ChkKennwortAnzeigen.CheckedChanged
If ChkKennwortAnzeigen.Checked Then
TxtAvisoKennwort.PasswordChar = ""
Else
TxtAvisoKennwort.PasswordChar = "*"
End If
End Sub
Private Sub chkEMailAktiv_CheckedChanged(sender As Object, e As EventArgs) Handles chkEMailAktiv.CheckedChanged
If chkEMailAktiv.Checked Then
txtEMailAdresse.Enabled = True
Else
txtEMailAdresse.Enabled = False
End If
End Sub
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles btnLoadFromAviso.Click
DomList.Clear()
DomUser = New cDomUser
DomUser.getFromAvisoUser(TxtAvisoBenutzername.Text)
DomList = DomUser.getFromAvisoUserLIST(TxtAvisoBenutzername.Text)
If DomList.Count = 1 Then
FillForm()
Else
ListDomUser.Items.Clear()
For Each domu As cDomUser In DomList
ListDomUser.Items.Add(domu.du_Dom & "\" & domu.du_sAMAc)
Next
ListDomUser.Visible = True
End If
End Sub
Private Sub cmdSave_Click(sender As Object, e As EventArgs) Handles cmdSave.Click
FillDomUser()
DomUser.Save()
End Sub
Private Sub ListDomUser_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ListDomUser.SelectedIndexChanged, ListDomUser.MouseClick
DomUser = DomList.Item(ListDomUser.SelectedIndex)
DomUser.Exist = True
ListDomUser.Visible = False
FillForm()
End Sub
Private Sub btnSchliessen_Click(sender As Object, e As EventArgs) Handles btnSchliessen.Click
cmdSave.PerformClick()
ParentForm.Close()
End Sub
End Class

227
Dokumentation/uscntr_DomUserList.Designer.vb generated Normal file
View File

@@ -0,0 +1,227 @@
<Global.Microsoft.VisualBasic.CompilerServices.DesignerGenerated()>
Partial Class uscntr_DomUserList
Inherits System.Windows.Forms.UserControl
'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen.
<System.Diagnostics.DebuggerNonUserCode()>
Protected Overrides Sub Dispose(ByVal disposing As Boolean)
Try
If disposing AndAlso components IsNot Nothing Then
components.Dispose()
End If
Finally
MyBase.Dispose(disposing)
End Try
End Sub
'Wird vom Windows Form-Designer benötigt.
Private components As System.ComponentModel.IContainer
'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich.
'Das Bearbeiten ist mit dem Windows Form-Designer möglich.
'Das Bearbeiten mit dem Code-Editor ist nicht möglich.
<System.Diagnostics.DebuggerStepThrough()>
Private Sub InitializeComponent()
Me.components = New System.ComponentModel.Container()
Me.Panel1 = New System.Windows.Forms.Panel()
Me.cmdNeu = New System.Windows.Forms.Button()
Me.cmdReset = New System.Windows.Forms.Button()
Me.CheckBox1 = New System.Windows.Forms.CheckBox()
Me.Label2 = New System.Windows.Forms.Label()
Me.TextBox1 = New System.Windows.Forms.TextBox()
Me.Label1 = New System.Windows.Forms.Label()
Me.cbDomain = New System.Windows.Forms.ComboBox()
Me.Panel2 = New System.Windows.Forms.Panel()
Me.dgvListUser = New System.Windows.Forms.DataGridView()
Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.LöschenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.labAnzahl = New System.Windows.Forms.Label()
Me.ContextMenuStrip2 = New System.Windows.Forms.ContextMenuStrip(Me.components)
Me.ExportToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Panel1.SuspendLayout()
Me.Panel2.SuspendLayout()
CType(Me.dgvListUser, System.ComponentModel.ISupportInitialize).BeginInit()
Me.ContextMenuStrip1.SuspendLayout()
Me.ContextMenuStrip2.SuspendLayout()
Me.SuspendLayout()
'
'Panel1
'
Me.Panel1.BackColor = System.Drawing.SystemColors.GradientInactiveCaption
Me.Panel1.ContextMenuStrip = Me.ContextMenuStrip2
Me.Panel1.Controls.Add(Me.labAnzahl)
Me.Panel1.Controls.Add(Me.cmdNeu)
Me.Panel1.Controls.Add(Me.cmdReset)
Me.Panel1.Controls.Add(Me.CheckBox1)
Me.Panel1.Controls.Add(Me.Label2)
Me.Panel1.Controls.Add(Me.TextBox1)
Me.Panel1.Controls.Add(Me.Label1)
Me.Panel1.Controls.Add(Me.cbDomain)
Me.Panel1.Dock = System.Windows.Forms.DockStyle.Top
Me.Panel1.Location = New System.Drawing.Point(0, 0)
Me.Panel1.Name = "Panel1"
Me.Panel1.Size = New System.Drawing.Size(678, 100)
Me.Panel1.TabIndex = 0
'
'cmdNeu
'
Me.cmdNeu.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.cmdNeu.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.cmdNeu.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cmdNeu.Location = New System.Drawing.Point(501, 51)
Me.cmdNeu.Name = "cmdNeu"
Me.cmdNeu.Size = New System.Drawing.Size(96, 23)
Me.cmdNeu.TabIndex = 138
Me.cmdNeu.Text = "Neu"
Me.cmdNeu.UseVisualStyleBackColor = False
'
'cmdReset
'
Me.cmdReset.BackColor = System.Drawing.SystemColors.ControlLightLight
Me.cmdReset.FlatAppearance.BorderColor = System.Drawing.Color.DimGray
Me.cmdReset.FlatStyle = System.Windows.Forms.FlatStyle.Flat
Me.cmdReset.Location = New System.Drawing.Point(346, 51)
Me.cmdReset.Name = "cmdReset"
Me.cmdReset.Size = New System.Drawing.Size(96, 23)
Me.cmdReset.TabIndex = 137
Me.cmdReset.Text = "Reset"
Me.cmdReset.UseVisualStyleBackColor = False
'
'CheckBox1
'
Me.CheckBox1.AutoSize = True
Me.CheckBox1.Location = New System.Drawing.Point(13, 57)
Me.CheckBox1.Name = "CheckBox1"
Me.CheckBox1.Size = New System.Drawing.Size(100, 17)
Me.CheckBox1.TabIndex = 4
Me.CheckBox1.Text = "nur E-Mail Aktiv"
Me.CheckBox1.UseVisualStyleBackColor = True
'
'Label2
'
Me.Label2.AutoSize = True
Me.Label2.Location = New System.Drawing.Point(10, 30)
Me.Label2.Name = "Label2"
Me.Label2.Size = New System.Drawing.Size(41, 13)
Me.Label2.TabIndex = 3
Me.Label2.Text = "Suche:"
'
'TextBox1
'
Me.TextBox1.Location = New System.Drawing.Point(62, 27)
Me.TextBox1.Margin = New System.Windows.Forms.Padding(8)
Me.TextBox1.Name = "TextBox1"
Me.TextBox1.Size = New System.Drawing.Size(158, 20)
Me.TextBox1.TabIndex = 2
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(228, 10)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(50, 13)
Me.Label1.TabIndex = 1
Me.Label1.Text = "Domäne:"
'
'cbDomain
'
Me.cbDomain.FormattingEnabled = True
Me.cbDomain.Location = New System.Drawing.Point(231, 26)
Me.cbDomain.Name = "cbDomain"
Me.cbDomain.Size = New System.Drawing.Size(211, 21)
Me.cbDomain.TabIndex = 0
'
'Panel2
'
Me.Panel2.Controls.Add(Me.dgvListUser)
Me.Panel2.Dock = System.Windows.Forms.DockStyle.Fill
Me.Panel2.Location = New System.Drawing.Point(0, 100)
Me.Panel2.Name = "Panel2"
Me.Panel2.Size = New System.Drawing.Size(678, 398)
Me.Panel2.TabIndex = 1
'
'dgvListUser
'
Me.dgvListUser.AllowUserToAddRows = False
Me.dgvListUser.AllowUserToDeleteRows = False
Me.dgvListUser.AllowUserToResizeRows = False
Me.dgvListUser.ContextMenuStrip = Me.ContextMenuStrip1
Me.dgvListUser.Dock = System.Windows.Forms.DockStyle.Fill
Me.dgvListUser.Location = New System.Drawing.Point(0, 0)
Me.dgvListUser.MultiSelect = False
Me.dgvListUser.Name = "dgvListUser"
Me.dgvListUser.ReadOnly = True
Me.dgvListUser.RowHeadersVisible = False
Me.dgvListUser.SelectionMode = System.Windows.Forms.DataGridViewSelectionMode.FullRowSelect
Me.dgvListUser.Size = New System.Drawing.Size(678, 398)
Me.dgvListUser.TabIndex = 0
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.LöschenToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(119, 26)
'
'LöschenToolStripMenuItem
'
Me.LöschenToolStripMenuItem.Name = "LöschenToolStripMenuItem"
Me.LöschenToolStripMenuItem.Size = New System.Drawing.Size(118, 22)
Me.LöschenToolStripMenuItem.Text = "Löschen"
'
'labAnzahl
'
Me.labAnzahl.AutoSize = True
Me.labAnzahl.Location = New System.Drawing.Point(535, 10)
Me.labAnzahl.Name = "labAnzahl"
Me.labAnzahl.Size = New System.Drawing.Size(39, 13)
Me.labAnzahl.TabIndex = 139
Me.labAnzahl.Text = "Label3"
'
'ContextMenuStrip2
'
Me.ContextMenuStrip2.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.ExportToolStripMenuItem})
Me.ContextMenuStrip2.Name = "ContextMenuStrip2"
Me.ContextMenuStrip2.Size = New System.Drawing.Size(181, 48)
'
'ExportToolStripMenuItem
'
Me.ExportToolStripMenuItem.Name = "ExportToolStripMenuItem"
Me.ExportToolStripMenuItem.Size = New System.Drawing.Size(180, 22)
Me.ExportToolStripMenuItem.Text = "Export"
'
'uscntr_DomUserList
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.AutoSize = True
Me.Controls.Add(Me.Panel2)
Me.Controls.Add(Me.Panel1)
Me.MinimumSize = New System.Drawing.Size(678, 498)
Me.Name = "uscntr_DomUserList"
Me.Size = New System.Drawing.Size(678, 498)
Me.Panel1.ResumeLayout(False)
Me.Panel1.PerformLayout()
Me.Panel2.ResumeLayout(False)
CType(Me.dgvListUser, System.ComponentModel.ISupportInitialize).EndInit()
Me.ContextMenuStrip1.ResumeLayout(False)
Me.ContextMenuStrip2.ResumeLayout(False)
Me.ResumeLayout(False)
End Sub
Friend WithEvents Panel1 As Panel
Friend WithEvents Panel2 As Panel
Friend WithEvents dgvListUser As DataGridView
Friend WithEvents Label1 As Label
Friend WithEvents cbDomain As ComboBox
Friend WithEvents Label2 As Label
Friend WithEvents TextBox1 As TextBox
Friend WithEvents CheckBox1 As CheckBox
Friend WithEvents cmdNeu As Button
Friend WithEvents cmdReset As Button
Friend WithEvents ContextMenuStrip1 As ContextMenuStrip
Friend WithEvents LöschenToolStripMenuItem As ToolStripMenuItem
Friend WithEvents labAnzahl As Label
Friend WithEvents ContextMenuStrip2 As ContextMenuStrip
Friend WithEvents ExportToolStripMenuItem As ToolStripMenuItem
End Class

126
Dokumentation/uscntr_DomUserList.resx Normal file
View File

@@ -0,0 +1,126 @@
<?xml version="1.0" encoding="utf-8"?>
<root>
<!--
Microsoft ResX Schema
Version 2.0
The primary goals of this format is to allow a simple XML format
that is mostly human readable. The generation and parsing of the
various data types are done through the TypeConverter classes
associated with the data types.
Example:
... ado.net/XML headers & schema ...
<resheader name="resmimetype">text/microsoft-resx</resheader>
<resheader name="version">2.0</resheader>
<resheader name="reader">System.Resources.ResXResourceReader, System.Windows.Forms, ...</resheader>
<resheader name="writer">System.Resources.ResXResourceWriter, System.Windows.Forms, ...</resheader>
<data name="Name1"><value>this is my long string</value><comment>this is a comment</comment></data>
<data name="Color1" type="System.Drawing.Color, System.Drawing">Blue</data>
<data name="Bitmap1" mimetype="application/x-microsoft.net.object.binary.base64">
<value>[base64 mime encoded serialized .NET Framework object]</value>
</data>
<data name="Icon1" type="System.Drawing.Icon, System.Drawing" mimetype="application/x-microsoft.net.object.bytearray.base64">
<value>[base64 mime encoded string representing a byte array form of the .NET Framework object]</value>
<comment>This is a comment</comment>
</data>
There are any number of "resheader" rows that contain simple
name/value pairs.
Each data row contains a name, and value. The row also contains a
type or mimetype. Type corresponds to a .NET class that support
text/value conversion through the TypeConverter architecture.
Classes that don't support this are serialized and stored with the
mimetype set.
The mimetype is used for serialized objects, and tells the
ResXResourceReader how to depersist the object. This is currently not
extensible. For a given mimetype the value must be set accordingly:
Note - application/x-microsoft.net.object.binary.base64 is the format
that the ResXResourceWriter will generate, however the reader can
read any of the formats listed below.
mimetype: application/x-microsoft.net.object.binary.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Binary.BinaryFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.soap.base64
value : The object must be serialized with
: System.Runtime.Serialization.Formatters.Soap.SoapFormatter
: and then encoded with base64 encoding.
mimetype: application/x-microsoft.net.object.bytearray.base64
value : The object must be serialized into a byte array
: using a System.ComponentModel.TypeConverter
: and then encoded with base64 encoding.
-->
<xsd:schema id="root" xmlns="" xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns:msdata="urn:schemas-microsoft-com:xml-msdata">
<xsd:import namespace="http://www.w3.org/XML/1998/namespace" />
<xsd:element name="root" msdata:IsDataSet="true">
<xsd:complexType>
<xsd:choice maxOccurs="unbounded">
<xsd:element name="metadata">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" />
</xsd:sequence>
<xsd:attribute name="name" use="required" type="xsd:string" />
<xsd:attribute name="type" type="xsd:string" />
<xsd:attribute name="mimetype" type="xsd:string" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="assembly">
<xsd:complexType>
<xsd:attribute name="alias" type="xsd:string" />
<xsd:attribute name="name" type="xsd:string" />
</xsd:complexType>
</xsd:element>
<xsd:element name="data">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
<xsd:element name="comment" type="xsd:string" minOccurs="0" msdata:Ordinal="2" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" msdata:Ordinal="1" />
<xsd:attribute name="type" type="xsd:string" msdata:Ordinal="3" />
<xsd:attribute name="mimetype" type="xsd:string" msdata:Ordinal="4" />
<xsd:attribute ref="xml:space" />
</xsd:complexType>
</xsd:element>
<xsd:element name="resheader">
<xsd:complexType>
<xsd:sequence>
<xsd:element name="value" type="xsd:string" minOccurs="0" msdata:Ordinal="1" />
</xsd:sequence>
<xsd:attribute name="name" type="xsd:string" use="required" />
</xsd:complexType>
</xsd:element>
</xsd:choice>
</xsd:complexType>
</xsd:element>
</xsd:schema>
<resheader name="resmimetype">
<value>text/microsoft-resx</value>
</resheader>
<resheader name="version">
<value>2.0</value>
</resheader>
<resheader name="reader">
<value>System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<resheader name="writer">
<value>System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089</value>
</resheader>
<metadata name="ContextMenuStrip2.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>174, 17</value>
</metadata>
<metadata name="ContextMenuStrip1.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
</root>

139
Dokumentation/uscntr_DomUserList.vb Normal file
View File

@@ -0,0 +1,139 @@
Imports System.Windows.Forms
Public Class uscntr_DomUserList
Private Sub uscntr_DomUserList_Load(sender As Object, e As EventArgs) Handles Me.Load
Class1.EnableDoubleBuffered(dgvListUser)
LoadDomains()
LoadDGV()
End Sub
Function LoadDomains()
Dim ds As New DataSet
cSQL.SQL2DS("select distinct du_dom from Doku.dbo.TbL_DomUser order by du_dom", ds, Class1.DBDoku)
cbDomain.Items.Add("*")
For Each row As DataRow In ds.Tables(0).Rows
cbDomain.Items.Add(row.Item(0).ToString)
Next
End Function
Function LoadDGV(Optional ByVal ReturnDataTable As Boolean = False)
Dim ds As New DataSet
cSQL.SQL2DS("select * from Doku.dbo.TbL_DomUser " & ReturnOfTheWhere() & " ORDER BY du_nachname", ds, Class1.DBDoku)
With dgvListUser
.DefaultCellStyle.BackColor = Color.White
.AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
.DataSource = ds.Tables(0)
For Each col As DataGridViewColumn In dgvListUser.Columns
col.Visible = False
Next
.Columns("du_Vorname").Visible = True
.Columns("du_Vorname").HeaderText = "Vorname"
.Columns("du_Nachname").Visible = True
.Columns("du_Nachname").HeaderText = "Nachname"
.Columns("du_email").Visible = True
.Columns("du_email").HeaderText = "E-Mail"
.Columns("du_email_Activated").Visible = True
.Columns("du_email_Activated").HeaderText = "EA"
.Columns("du_email_Activated").Width = 40
.Columns("du_dom").Visible = True
.Columns("du_dom").HeaderText = "Domäne"
.Columns("du_sAMAc").Visible = True
.Columns("du_sAMAc").HeaderText = "Benutzername"
.Columns("du_Info").Visible = True
.Columns("du_Info").HeaderText = "Info"
.Columns("du_Info").AutoSizeMode = DataGridViewAutoSizeColumnMode.Fill
End With
If ReturnDataTable = True Then Return ds.Tables(0)
labAnzahl.Text = "Anzahl der Einträge: " & dgvListUser.Rows.Count
End Function
Private Sub dgvListUser_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvListUser.CellDoubleClick 'dgvListUser.CellContentDoubleClick ', dgvListUser.CellDoubleClick
Dim testuser As New cDomUser
testuser.getDomUser("du_ID", dgvListUser.CurrentRow.Cells("du_ID").Value)
If Application.OpenForms().OfType(Of uscntr_DomUser).Any Then Exit Sub
Dim frm As New frmLeer
frm.Text = testuser.du_sAMAc
Dim usrcntrl As New uscntr_DomUser
usrcntrl.DomUser = testuser
usrcntrl.Dock = DockStyle.Fill : frm.PanMain.Controls.Add(usrcntrl)
frm.Size = usrcntrl.Size
Me.Parent.Enabled = False
AddHandler frm.FormClosing, Function()
Me.Parent.Enabled = True
BringToFront()
LoadDGV()
End Function
frm.ShowDialog()
End Sub
Function ReturnOfTheWhere()
Dim Dom As String = cbDomain.SelectedItem
If Dom = "*" Or Dom = "" Then Dom = "%%"
Dim MailEn As String = ""
If CheckBox1.CheckState = CheckState.Checked Then
MailEn = "AND du_Email_Activated = 'True'"
ElseIf CheckBox1.CheckState = CheckState.Unchecked Then
MailEn = ""
End If
Dim ding As String = "WHERE (du_Email LIKE '%{0}%' OR du_Vorname LIKE '%{0}%' OR du_Nachname LIKE '%{0}%' OR du_sAMAc LIKE '%{0}%' OR du_Info LIKE '%{0}%') AND du_Dom LIKE '%{1}%' {2}"
Return String.Format(ding, TextBox1.Text, Dom, MailEn)
End Function
Private Sub cmdNeu_Click(sender As Object, e As EventArgs) Handles cmdNeu.Click
Dim frm As New frmLeer
frm.Text = "neuer Benutzer"
Dim usrcntrl As New uscntr_DomUser
usrcntrl.Dock = DockStyle.Fill : frm.PanMain.Controls.Add(usrcntrl)
frm.Size = usrcntrl.Size
AddHandler frm.FormClosing, Function()
Me.Parent.Enabled = True
BringToFront()
LoadDGV()
End Function
frm.ShowDialog()
End Sub
Private Sub cbDomain_SelectedIndexChanged(sender As Object, e As EventArgs) Handles cbDomain.SelectedIndexChanged, TextBox1.TextChanged, CheckBox1.CheckedChanged
LoadDGV()
End Sub
Private Sub cmdReset_Click(sender As Object, e As EventArgs) Handles cmdReset.Click
TextBox1.Text = ""
cbDomain.SelectedItem = "*"
End Sub
Private Sub LöschenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles LöschenToolStripMenuItem.Click
Dim domdom As New cDomUser
domdom.getDomUserByID(dgvListUser.SelectedRows.Item(0).Cells(0).Value) '(dgvListUser.SelectedRows.Item("du_ID").ToString)
' MsgBox(domdom.du_Nachname)
domdom.Delete()
LoadDGV()
End Sub
Private Sub ExportToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ExportToolStripMenuItem.Click
Class1.datatable_2_csv_export(LoadDGV(True))
End Sub
End Class

20
Dokumentation/uscntr_TSSitzungen.Designer.vb generated
View File

@@ -28,6 +28,7 @@ Partial Class uscntr_TSSitzungen
Me.VerbindenMitTeamVToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.NachrichtSendenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.UpdateToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.ProfildatenÖffnenExplorerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem()
Me.Timer1 = New System.Windows.Forms.Timer(Me.components)
Me.Panel1 = New System.Windows.Forms.Panel()
Me.lblAnzahl = New System.Windows.Forms.Label()
@@ -66,31 +67,37 @@ Partial Class uscntr_TSSitzungen
'
'ContextMenuStrip1
'
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VerbindenMitTeamVToolStripMenuItem, Me.NachrichtSendenToolStripMenuItem, Me.UpdateToolStripMenuItem})
Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.VerbindenMitTeamVToolStripMenuItem, Me.NachrichtSendenToolStripMenuItem, Me.UpdateToolStripMenuItem, Me.ProfildatenÖffnenExplorerToolStripMenuItem})
Me.ContextMenuStrip1.Name = "ContextMenuStrip1"
Me.ContextMenuStrip1.Size = New System.Drawing.Size(190, 70)
Me.ContextMenuStrip1.Size = New System.Drawing.Size(225, 92)
'
'VerbindenMitTeamVToolStripMenuItem
'
Me.VerbindenMitTeamVToolStripMenuItem.Name = "VerbindenMitTeamVToolStripMenuItem"
Me.VerbindenMitTeamVToolStripMenuItem.Size = New System.Drawing.Size(189, 22)
Me.VerbindenMitTeamVToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
Me.VerbindenMitTeamVToolStripMenuItem.Text = "Verbinden mit TeamV."
'
'NachrichtSendenToolStripMenuItem
'
Me.NachrichtSendenToolStripMenuItem.Name = "NachrichtSendenToolStripMenuItem"
Me.NachrichtSendenToolStripMenuItem.Size = New System.Drawing.Size(189, 22)
Me.NachrichtSendenToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
Me.NachrichtSendenToolStripMenuItem.Text = "Nachricht senden"
'
'UpdateToolStripMenuItem
'
Me.UpdateToolStripMenuItem.Name = "UpdateToolStripMenuItem"
Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(189, 22)
Me.UpdateToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
Me.UpdateToolStripMenuItem.Text = "Update"
'
'ProfildatenÖffnenExplorerToolStripMenuItem
'
Me.ProfildatenÖffnenExplorerToolStripMenuItem.Name = "ProfildatenÖffnenExplorerToolStripMenuItem"
Me.ProfildatenÖffnenExplorerToolStripMenuItem.Size = New System.Drawing.Size(224, 22)
Me.ProfildatenÖffnenExplorerToolStripMenuItem.Text = "Profildaten öffnen (Explorer)"
'
'Timer1
'
Me.Timer1.Interval = 10000
Me.Timer1.Interval = 600000
'
'Panel1
'
@@ -277,4 +284,5 @@ Partial Class uscntr_TSSitzungen
Friend WithEvents VerbindenMitTeamVToolStripMenuItem As ToolStripMenuItem
Friend WithEvents btnClient As Button
Friend WithEvents btnSitzung As Button
Friend WithEvents ProfildatenÖffnenExplorerToolStripMenuItem As ToolStripMenuItem
End Class

36
Dokumentation/uscntr_TSSitzungen.vb
View File

@@ -1,6 +1,8 @@
Public Class uscntr_TSSitzungen
Dim Client As Boolean = False
Dim SelectedIndex As Integer = 0
Dim StartIndex As Integer = 0
Private Sub uscntr_TSSitzungen_Load(sender As Object, e As EventArgs) Handles Me.Load
Class1.EnableDoubleBuffered(dgvTSSitzungen)
@@ -13,6 +15,8 @@
cSQL.SQL2DS("SELECT * FROM TbL_TSSitzungen WHERE Name LIKE '" & ReturnOfTheWhere() & "' OR TSServer LIKE '" & ReturnOfTheWhere() & "' ORDER BY NAME", ds)
With dgvTSSitzungen
.DefaultCellStyle.BackColor = Color.White
.AlternatingRowsDefaultCellStyle.BackColor = Color.AliceBlue
.RowHeadersVisible = False
.DataSource = ds.Tables(0)
.Columns("Domain").Visible = False
@@ -50,6 +54,12 @@
End If
Try
dgvTSSitzungen.Rows(SelectedIndex).Selected = True
dgvTSSitzungen.FirstDisplayedScrollingRowIndex = StartIndex
Catch ex As Exception
MsgBox(ex.Message)
End Try
End Function
@@ -142,4 +152,30 @@
cmdNachricht.Enabled = Not Client
Load2DGV()
End Sub
Private Sub ProfildatenÖffnenExplorerToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ProfildatenÖffnenExplorerToolStripMenuItem.Click
Dim Username As String = dgvTSSitzungen.CurrentRow.Cells("BenutzerAnmeldeName").Value
Dim Server As String = dgvTSSitzungen.CurrentRow.Cells("TSServer").Value & "." & dgvTSSitzungen.CurrentRow.Cells("Domain").Value
Dim temp As String = Username
Do Until temp.Substring(0, 1) = "\"
temp = temp.Substring(1, temp.Length - 1)
Loop
Username = temp.Substring(1, temp.Length - 1)
Dim Path As String = "\\" & Server & "\C$\Users\" & Username
IO.Directory.CreateDirectory(Path)
Process.Start(Path)
End Sub
Private Sub dgvTSSitzungen_CellContentClick_1(sender As Object, e As DataGridViewCellEventArgs) Handles dgvTSSitzungen.CellContentClick, dgvTSSitzungen.CellClick
SelectIndexes()
End Sub
Private Sub DGVScroll() Handles dgvTSSitzungen.Scroll
SelectIndexes()
End Sub
Function SelectIndexes()
SelectedIndex = dgvTSSitzungen.CurrentRow.Index
StartIndex = dgvTSSitzungen.FirstDisplayedScrollingRowIndex
End Function
End Class