neu

2020-09-23 07:24:25 +02:00
parent 89d8e0a3a8
commit ce31c2c398
84 changed files with 4953 additions and 554 deletions
--- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.Designer.vb
+++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.Designer.vb
@@ -27,13 +27,15 @@ Partial Class frmMessenger_Members
        Dim DataGridViewCellStyle3 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
        Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmMessenger_Members))
        Me.dgvChatMembers = New System.Windows.Forms.DataGridView()
-        Me.clmnMaId = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
-        Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.lbl = New System.Windows.Forms.Label()
+        Me.Button2 = New System.Windows.Forms.Button()
+        Me.Button1 = New System.Windows.Forms.Button()
        Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
        Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnMaId = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnName = New System.Windows.Forms.DataGridViewTextBoxColumn()
+        Me.clmnFirma = New System.Windows.Forms.DataGridViewTextBoxColumn()
        CType(Me.dgvChatMembers, System.ComponentModel.ISupportInitialize).BeginInit()
        Me.SuspendLayout()
        '
@@ -64,6 +66,7 @@ Partial Class frmMessenger_Members
        Me.dgvChatMembers.DefaultCellStyle = DataGridViewCellStyle2
        Me.dgvChatMembers.Location = New System.Drawing.Point(12, 24)
        Me.dgvChatMembers.Name = "dgvChatMembers"
+        Me.dgvChatMembers.ReadOnly = True
        DataGridViewCellStyle3.Alignment = System.Windows.Forms.DataGridViewContentAlignment.MiddleLeft
        DataGridViewCellStyle3.BackColor = System.Drawing.SystemColors.Control
        DataGridViewCellStyle3.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
@@ -77,23 +80,6 @@ Partial Class frmMessenger_Members
        Me.dgvChatMembers.Size = New System.Drawing.Size(327, 323)
        Me.dgvChatMembers.TabIndex = 2
        '
-        'clmnMaId
-        '
-        Me.clmnMaId.HeaderText = "Column1"
-        Me.clmnMaId.Name = "clmnMaId"
-        Me.clmnMaId.Visible = False
-        '
-        'clmnName
-        '
-        Me.clmnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
-        Me.clmnName.HeaderText = "Name"
-        Me.clmnName.Name = "clmnName"
-        '
-        'clmnFirma
-        '
-        Me.clmnFirma.HeaderText = "Firma"
-        Me.clmnFirma.Name = "clmnFirma"
-        '
        'lbl
        '
        Me.lbl.AutoSize = True
@@ -103,6 +89,32 @@ Partial Class frmMessenger_Members
        Me.lbl.TabIndex = 4
        Me.lbl.Text = "Mitglieder:"
        '
+        'Button2
+        '
+        Me.Button2.BackColor = System.Drawing.Color.MediumSeaGreen
+        Me.Button2.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button2.ForeColor = System.Drawing.Color.White
+        Me.Button2.Location = New System.Drawing.Point(268, 353)
+        Me.Button2.Name = "Button2"
+        Me.Button2.Size = New System.Drawing.Size(71, 33)
+        Me.Button2.TabIndex = 5
+        Me.Button2.Text = "+ NEU"
+        Me.Button2.UseVisualStyleBackColor = False
+        Me.Button2.Visible = False
+        '
+        'Button1
+        '
+        Me.Button1.BackColor = System.Drawing.Color.Red
+        Me.Button1.FlatStyle = System.Windows.Forms.FlatStyle.Flat
+        Me.Button1.ForeColor = System.Drawing.Color.White
+        Me.Button1.Location = New System.Drawing.Point(179, 353)
+        Me.Button1.Name = "Button1"
+        Me.Button1.Size = New System.Drawing.Size(83, 33)
+        Me.Button1.TabIndex = 6
+        Me.Button1.Text = "- Entfernen"
+        Me.Button1.UseVisualStyleBackColor = False
+        Me.Button1.Visible = False
+        '
        'DataGridViewTextBoxColumn1
        '
        Me.DataGridViewTextBoxColumn1.HeaderText = "Column1"
@@ -120,12 +132,34 @@ Partial Class frmMessenger_Members
        Me.DataGridViewTextBoxColumn3.HeaderText = "Firma"
        Me.DataGridViewTextBoxColumn3.Name = "DataGridViewTextBoxColumn3"
        '
+        'clmnMaId
+        '
+        Me.clmnMaId.HeaderText = "Column1"
+        Me.clmnMaId.Name = "clmnMaId"
+        Me.clmnMaId.ReadOnly = True
+        Me.clmnMaId.Visible = False
+        '
+        'clmnName
+        '
+        Me.clmnName.AutoSizeMode = System.Windows.Forms.DataGridViewAutoSizeColumnMode.Fill
+        Me.clmnName.HeaderText = "Name"
+        Me.clmnName.Name = "clmnName"
+        Me.clmnName.ReadOnly = True
+        '
+        'clmnFirma
+        '
+        Me.clmnFirma.HeaderText = "Firma"
+        Me.clmnFirma.Name = "clmnFirma"
+        Me.clmnFirma.ReadOnly = True
+        '
        'frmMessenger_Members
        '
        Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!)
        Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
        Me.BackColor = System.Drawing.Color.White
-        Me.ClientSize = New System.Drawing.Size(347, 353)
+        Me.ClientSize = New System.Drawing.Size(347, 394)
+        Me.Controls.Add(Me.Button1)
+        Me.Controls.Add(Me.Button2)
        Me.Controls.Add(Me.lbl)
        Me.Controls.Add(Me.dgvChatMembers)
        Me.Icon = CType(resources.GetObject("$this.Icon"), System.Drawing.Icon)
@@ -145,4 +179,6 @@ Partial Class frmMessenger_Members
    Friend WithEvents DataGridViewTextBoxColumn1 As Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn2 As Windows.Forms.DataGridViewTextBoxColumn
    Friend WithEvents DataGridViewTextBoxColumn3 As Windows.Forms.DataGridViewTextBoxColumn
+    Friend WithEvents Button2 As Windows.Forms.Button
+    Friend WithEvents Button1 As Windows.Forms.Button
 End Class
--- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.vb
+++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_Members.vb
@@ -30,6 +30,10 @@ Public Class frmMessenger_Members

    Private Sub frmMessenger_Members_Load(sender As Object, e As EventArgs) Handles Me.Load
        initDGV()
+        If CHAT.chat_erstelltMaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Or VERAG_PROG_ALLGEMEIN.cAllgemein.USRID = 4 Then
+            Button1.Visible = True
+            Button2.Visible = True
+        End If
    End Sub

    Private Sub dgvChatMembers_CellDoubleClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgvChatMembers.CellDoubleClick, dgvChatMembers.CellContentDoubleClick
@@ -40,4 +44,30 @@ Public Class frmMessenger_Members
        End If
    End Sub

+    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
+        Dim f As New frmMessenger_NeuerChat(CHAT)
+        f.ShowDialog()
+        initDGV()
+    End Sub
+
+    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
+        If dgvChatMembers.SelectedRows.Count > 1 Then
+            Dim ol As New List(Of Object)
+            For Each r As DataGridViewRow In dgvChatMembers.SelectedRows
+                If r.Cells("clmnMaId").Value <> VERAG_PROG_ALLGEMEIN.cAllgemein.USRID Then
+                    For Each MB In CHAT.CHAT_MEMBERS
+                        If r.Cells("clmnMaId").Value = MB.chatMb_maId Then
+                            ol.Add(MB)
+                        End If
+                    Next
+                End If
+            Next
+            For Each o In ol
+                CHAT.CHAT_MEMBERS.Remove(o)
+                If CHAT.SAVE_MEMBERS() Then
+                    initDGV()
+                End If
+            Next
+        End If
+    End Sub
 End Class
--- a/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.vb
+++ b/VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_NeuerChat.vb
@@ -3,10 +3,29 @@
 Public Class frmMessenger_NeuerChat

    Dim SQL As New SQL
-
+    Dim CHAT As cMessenger.cMessenger_Chat = Nothing
    Dim loaded = False
    Public chat_id As Integer = -1

+    Sub New()
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
+
+    Sub New(CHAT As cMessenger.cMessenger_Chat)
+
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+        Me.CHAT = CHAT
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+
+    End Sub
+
    Sub initDGV()
        If Not loaded Then Exit Sub
        With dgvMitarbeiter
@@ -36,7 +55,12 @@ Public Class frmMessenger_NeuerChat
        MyComboBox1.changeItem("")
        loaded = True
        initDGV()
-
+        If CHAT IsNot Nothing Then
+            Me.Text = "Neue Benutzer hinzufügen"
+            Me.MyTextBox2.Text = CHAT.chat_name
+            Me.MyTextBox2.Enabled = False
+            btn.Text = "Hinzufügen"
+        End If
    End Sub

    Private Sub MyTextBox1_TextChanged(sender As Object, e As EventArgs) Handles MyTextBox1.TextChanged
@@ -91,37 +115,52 @@ Public Class frmMessenger_NeuerChat


    Private Sub btn_Click(sender As Object, e As EventArgs) Handles btn.Click
-
-        If MyTextBox2.Enabled And MyTextBox2.Text = "" Then
-            MsgBox("Chat-Name eingeben!")
-            Exit Sub
-        End If
        If dgvChatMembers.Rows.Count = 0 Then
            MsgBox("Mitglieder eingeben!")
            Exit Sub
        End If

-        Dim chatName = If(MyTextBox2.Enabled, MyTextBox2.Text, "")
+        If CHAT IsNot Nothing Then

-        Dim MB_LIST As New List(Of Integer)
-        For Each r As DataGridViewRow In dgvChatMembers.Rows
-            MB_LIST.Add(r.Cells("clmnMaId").Value)
-        Next
-        If chatName = "" And MB_LIST.Count = 1 Then
-            If VERAG_PROG_ALLGEMEIN.cMessenger.CHECK_EXISTS(MB_LIST(0), chat_id) Then
-                If vbYes <> MsgBox("Ein Chat mit diesem Mitarbetier existiert bereits. Möchten Sie wirklich einen neuen öffnen?", vbYesNoCancel) Then
-                    Me.DialogResult = DialogResult.OK
-                    Me.Close()
-                    Exit Sub
+            For Each r As DataGridViewRow In dgvChatMembers.Rows
+                Dim MB As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMembers(CHAT.chat_id, r.Cells("clmnMaId").Value)
+                MB.chatMb_maId = r.Cells("clmnMaId").Value
+                CHAT.CHAT_MEMBERS.Add(MB)
+            Next
+
+            If CHAT.SAVE_MEMBERS Then
+                Me.Close()
+            End If
+
+        Else
+
+            If MyTextBox2.Enabled And MyTextBox2.Text = "" Then
+                MsgBox("Chat-Name eingeben!")
+                Exit Sub
+            End If
+
+            Dim chatName = If(MyTextBox2.Enabled, MyTextBox2.Text, "")
+
+            Dim MB_LIST As New List(Of Integer)
+            For Each r As DataGridViewRow In dgvChatMembers.Rows
+                MB_LIST.Add(r.Cells("clmnMaId").Value)
+            Next
+            If chatName = "" And MB_LIST.Count = 1 Then
+                If VERAG_PROG_ALLGEMEIN.cMessenger.CHECK_EXISTS(MB_LIST(0), chat_id) Then
+                    If vbYes <> MsgBox("Ein Chat mit diesem Mitarbetier existiert bereits. Möchten Sie wirklich einen neuen öffnen?", vbYesNoCancel) Then
+                        Me.DialogResult = DialogResult.OK
+                        Me.Close()
+                        Exit Sub
+                    End If
                End If
            End If
-        End If
-        MB_LIST.Add(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) 'Selbst!
+            MB_LIST.Add(VERAG_PROG_ALLGEMEIN.cAllgemein.USRID) 'Selbst!

-        Dim CHAT As cMessenger.cMessenger_Chat = Nothing
-        If VERAG_PROG_ALLGEMEIN.cMessenger.GEN_NEW_CHAT(chatName, MB_LIST, CHAT) Then
-            If CHAT IsNot Nothing Then chat_id = CHAT.chat_id
-            Me.Close()
+            Dim CHAT As cMessenger.cMessenger_Chat = Nothing
+            If VERAG_PROG_ALLGEMEIN.cMessenger.GEN_NEW_CHAT(chatName, MB_LIST, CHAT) Then
+                If CHAT IsNot Nothing Then chat_id = CHAT.chat_id
+                Me.Close()
+            End If
        End If

    End Sub