diff --git a/Dokumentation/Classes/Class1.vb b/Dokumentation/Classes/Class1.vb index 7c1286f..98d5eb7 100644 --- a/Dokumentation/Classes/Class1.vb +++ b/Dokumentation/Classes/Class1.vb @@ -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 diff --git a/Dokumentation/Classes/cDomUser.vb b/Dokumentation/Classes/cDomUser.vb new file mode 100644 index 0000000..45b52a0 --- /dev/null +++ b/Dokumentation/Classes/cDomUser.vb @@ -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 diff --git a/Dokumentation/Classes/cSQL.vb b/Dokumentation/Classes/cSQL.vb index 5d0a670..506bd91 100644 --- a/Dokumentation/Classes/cSQL.vb +++ b/Dokumentation/Classes/cSQL.vb @@ -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() diff --git a/Dokumentation/Dokumentation.vbproj b/Dokumentation/Dokumentation.vbproj index 3d83cf7..19965ad 100644 --- a/Dokumentation/Dokumentation.vbproj +++ b/Dokumentation/Dokumentation.vbproj @@ -153,15 +153,28 @@ Form + + + uscntr_DomUserList.vb + + + UserControl + frmAllgemeinEintrag.vb Form + + uscntr_DomUser.vb + + + UserControl + uscntr_TSSitzungen.vb @@ -349,6 +362,12 @@ frmAllgemeinEintrag.vb + + uscntr_DomUser.vb + + + uscntr_DomUserList.vb + uscntr_TSSitzungen.vb @@ -450,6 +469,9 @@ + + + diff --git a/Dokumentation/Main.Designer.vb b/Dokumentation/Main.Designer.vb index 3526c1e..fae766a 100644 --- a/Dokumentation/Main.Designer.vb +++ b/Dokumentation/Main.Designer.vb @@ -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 diff --git a/Dokumentation/Main.resx b/Dokumentation/Main.resx index 0752b29..5be7f88 100644 --- a/Dokumentation/Main.resx +++ b/Dokumentation/Main.resx @@ -292,6 +292,9 @@ 788, 17 + + 59 + AAABAAEAgIAAAAAAGAAoyAAAFgAAACgAAACAAAAAAAEAAAEAGAAAAAAAAMAAAAAAAAAAAAAAAAAAAAAA diff --git a/Dokumentation/Main.vb b/Dokumentation/Main.vb index ebcf49c..96db6a8 100644 --- a/Dokumentation/Main.vb +++ b/Dokumentation/Main.vb @@ -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 diff --git a/Dokumentation/My Project/Resources.Designer.vb b/Dokumentation/My Project/Resources.Designer.vb index a8b8540..95df627 100644 --- a/Dokumentation/My Project/Resources.Designer.vb +++ b/Dokumentation/My Project/Resources.Designer.vb @@ -60,6 +60,26 @@ Namespace My.Resources End Set End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -80,6 +100,16 @@ Namespace My.Resources End Get End Property + ''' + ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. + ''' + 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 + ''' ''' Sucht eine lokalisierte Ressource vom Typ System.Drawing.Bitmap. ''' @@ -199,7 +229,7 @@ Namespace My.Resources End Property ''' - ''' Sucht eine lokalisierte Zeichenfolge, die 0.0.1.44 ähnelt. + ''' Sucht eine lokalisierte Zeichenfolge, die 0.0.1.47 ähnelt. ''' Friend ReadOnly Property Version() As String Get diff --git a/Dokumentation/My Project/Resources.resx b/Dokumentation/My Project/Resources.resx index a3cdcd6..a481caf 100644 --- a/Dokumentation/My Project/Resources.resx +++ b/Dokumentation/My Project/Resources.resx @@ -127,8 +127,14 @@ ..\Resources\Bearbeiten20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\mail20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + - 0.0.1.44 + 0.0.1.47 + + + ..\Resources\Link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a ..\Resources\Print20x20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a @@ -136,6 +142,9 @@ ..\Resources\Netzwerk20.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\ico_putty_exe0001.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + Dokumentation @@ -148,8 +157,8 @@ ..\Resources\pdf512.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\Link.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\msg.exe;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 DOKU @@ -157,10 +166,10 @@ ..\Resources\Link.bmp;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\mail20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a + + ..\Resources\Admin.PNG;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a - - ..\Resources\msg.exe;System.Byte[], mscorlib, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + ..\Resources\Admin20.png;System.Drawing.Bitmap, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a \ No newline at end of file diff --git a/Dokumentation/Resources/Admin.PNG b/Dokumentation/Resources/Admin.PNG new file mode 100644 index 0000000..6d11e91 Binary files /dev/null and b/Dokumentation/Resources/Admin.PNG differ diff --git a/Dokumentation/Resources/Admin20.png b/Dokumentation/Resources/Admin20.png new file mode 100644 index 0000000..b03c5d9 Binary files /dev/null and b/Dokumentation/Resources/Admin20.png differ diff --git a/Dokumentation/Resources/ico_putty_exe0001.bmp b/Dokumentation/Resources/ico_putty_exe0001.bmp new file mode 100644 index 0000000..1e14e1c Binary files /dev/null and b/Dokumentation/Resources/ico_putty_exe0001.bmp differ diff --git a/Dokumentation/frmHostBearbeiten.Designer.vb b/Dokumentation/frmHostBearbeiten.Designer.vb index f7cbf16..f3e637e 100644 --- a/Dokumentation/frmHostBearbeiten.Designer.vb +++ b/Dokumentation/frmHostBearbeiten.Designer.vb @@ -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 diff --git a/Dokumentation/frmHostBearbeiten.vb b/Dokumentation/frmHostBearbeiten.vb index 1c11884..43cadb1 100644 --- a/Dokumentation/frmHostBearbeiten.vb +++ b/Dokumentation/frmHostBearbeiten.vb @@ -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 \ No newline at end of file diff --git a/Dokumentation/uscntr_DomUser.Designer.vb b/Dokumentation/uscntr_DomUser.Designer.vb new file mode 100644 index 0000000..9ca6fb2 --- /dev/null +++ b/Dokumentation/uscntr_DomUser.Designer.vb @@ -0,0 +1,376 @@ + _ +Partial Class uscntr_DomUser + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + 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. + _ + 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 diff --git a/Dokumentation/uscntr_DomUser.resx b/Dokumentation/uscntr_DomUser.resx new file mode 100644 index 0000000..1af7de1 --- /dev/null +++ b/Dokumentation/uscntr_DomUser.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/Dokumentation/uscntr_DomUser.vb b/Dokumentation/uscntr_DomUser.vb new file mode 100644 index 0000000..1e47cbf --- /dev/null +++ b/Dokumentation/uscntr_DomUser.vb @@ -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 diff --git a/Dokumentation/uscntr_DomUserList.Designer.vb b/Dokumentation/uscntr_DomUserList.Designer.vb new file mode 100644 index 0000000..c261f4a --- /dev/null +++ b/Dokumentation/uscntr_DomUserList.Designer.vb @@ -0,0 +1,227 @@ + +Partial Class uscntr_DomUserList + Inherits System.Windows.Forms.UserControl + + 'UserControl überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + + 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. + + 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 diff --git a/Dokumentation/uscntr_DomUserList.resx b/Dokumentation/uscntr_DomUserList.resx new file mode 100644 index 0000000..fc9df5e --- /dev/null +++ b/Dokumentation/uscntr_DomUserList.resx @@ -0,0 +1,126 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + 174, 17 + + + 17, 17 + + \ No newline at end of file diff --git a/Dokumentation/uscntr_DomUserList.vb b/Dokumentation/uscntr_DomUserList.vb new file mode 100644 index 0000000..c81a39d --- /dev/null +++ b/Dokumentation/uscntr_DomUserList.vb @@ -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 diff --git a/Dokumentation/uscntr_TSSitzungen.Designer.vb b/Dokumentation/uscntr_TSSitzungen.Designer.vb index a236a37..73c0b85 100644 --- a/Dokumentation/uscntr_TSSitzungen.Designer.vb +++ b/Dokumentation/uscntr_TSSitzungen.Designer.vb @@ -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 diff --git a/Dokumentation/uscntr_TSSitzungen.vb b/Dokumentation/uscntr_TSSitzungen.vb index 2456be1..c99359f 100644 --- a/Dokumentation/uscntr_TSSitzungen.vb +++ b/Dokumentation/uscntr_TSSitzungen.vb @@ -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