Chat, divers
This commit is contained in:
200
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_SonstigeNEW.vb
Normal file
200
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger_SonstigeNEW.vb
Normal file
@@ -0,0 +1,200 @@
|
||||
Imports System.Windows.Forms
|
||||
|
||||
Public Class frmMessenger_SonstigeNEW
|
||||
|
||||
Dim SQL As New SQL
|
||||
Dim CHAT As New cMessenger.cMessenger_Chat
|
||||
|
||||
Dim loaded = False
|
||||
Public chat_id As Integer = -1
|
||||
|
||||
Sub New(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 New()
|
||||
InitializeComponent()
|
||||
|
||||
End Sub
|
||||
'Sub initDGV()
|
||||
' With dgvChatMembers
|
||||
' .Rows.Clear()
|
||||
|
||||
' For Each MB In CHAT.CHAT_MEMBERS
|
||||
' Dim MA As New cMitarbeiter(MB.chatMb_maId)
|
||||
' .Rows.Add({MB.chatMb_maId, MA.Fullname, If(MA.mit_firma = "ALL", MA.mit_FirmaHaupt, MA.mit_firma)})
|
||||
' Next
|
||||
' .ClearSelection()
|
||||
' End With
|
||||
'End Sub
|
||||
|
||||
Private Sub frmMessenger_Members_Load(sender As Object, e As EventArgs) Handles Me.Load
|
||||
|
||||
cboArt.Items.Clear()
|
||||
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("UMFRAGE", "UMFRAGE"))
|
||||
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("MITTEILUNG", "MITTEILUNG"))
|
||||
cboArt.Items.Add(New VERAG_PROG_ALLGEMEIN.MyListItem("ARBEITSANWEISUNG", "ARBEITSANWEISUNG"))
|
||||
|
||||
If CHAT.chat_id > 0 Then
|
||||
MyTextBox1.Text = CHAT.chat_name
|
||||
Button7.Enabled = False
|
||||
cboArt.Enabled = False
|
||||
|
||||
Else
|
||||
|
||||
|
||||
Button3.Enabled = False
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub Button7_Click(sender As Object, e As EventArgs) Handles Button7.Click
|
||||
lblErrArt.Visible = False
|
||||
lblErrName.Visible = False
|
||||
If cboArt._value = "" Then lblErrArt.Visible = True : Exit Sub
|
||||
If MyTextBox1.Text = "" Then lblErrName.Visible = True : Exit Sub
|
||||
|
||||
|
||||
CHAT.chat_art = cboArt._value
|
||||
CHAT.chat_name = MyTextBox1.Text
|
||||
CHAT.chat_freigegeben = False
|
||||
CHAT.chat_erstelltMaId = VERAG_PROG_ALLGEMEIN.cAllgemein.USRID
|
||||
|
||||
|
||||
If CHAT.SAVE(False) Then
|
||||
initMain()
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Sub initMain()
|
||||
If CHAT Is Nothing Then Exit Sub
|
||||
initDGVMembers()
|
||||
|
||||
Select Case CHAT.chat_art
|
||||
Case "UMFRAGE"
|
||||
Dim usrcntl As New usrCntlMessenger_Umfrage
|
||||
|
||||
usrcntl.setValues(CHAT)
|
||||
|
||||
|
||||
pnlMain.Controls.Clear()
|
||||
usrcntl.Dock = DockStyle.Fill
|
||||
pnlMain.Controls.Add(usrcntl)
|
||||
Case "MITTEILUNG"
|
||||
Dim usrcntl As New usrCntlMessenger_Mitteilung
|
||||
|
||||
usrcntl.setValues(CHAT)
|
||||
|
||||
|
||||
pnlMain.Controls.Clear()
|
||||
usrcntl.Dock = DockStyle.Fill
|
||||
pnlMain.Controls.Add(usrcntl)
|
||||
|
||||
End Select
|
||||
End Sub
|
||||
|
||||
Private Sub Button8_Click(sender As Object, e As EventArgs) Handles Button8.Click
|
||||
SAVE_ME
|
||||
End Sub
|
||||
Sub SAVE_ME()
|
||||
If CHAT Is Nothing Then Exit Sub
|
||||
If pnlMain.Controls.Count = 0 Then Exit Sub
|
||||
|
||||
Select Case CHAT.chat_art
|
||||
Case "UMFRAGE"
|
||||
Dim usrcntl As usrCntlMessenger_Umfrage = DirectCast(pnlMain.Controls(0), usrCntlMessenger_Umfrage)
|
||||
|
||||
CHAT.chat_name = MyTextBox1.Text
|
||||
CHAT = usrcntl.getValues(CHAT)
|
||||
|
||||
CHAT.SAVE(True)
|
||||
|
||||
Case "MITTEILUNG"
|
||||
Dim usrcntl As usrCntlMessenger_Mitteilung = DirectCast(pnlMain.Controls(0), usrCntlMessenger_Mitteilung)
|
||||
|
||||
CHAT.chat_name = MyTextBox1.Text
|
||||
CHAT = usrcntl.getValues(CHAT)
|
||||
|
||||
CHAT.SAVE(True)
|
||||
|
||||
End Select
|
||||
End Sub
|
||||
Sub initDGVMembers()
|
||||
With dgvChatMembers
|
||||
.Rows.Clear()
|
||||
|
||||
For Each MB In CHAT.CHAT_MEMBERS
|
||||
Dim MA As New cMitarbeiter(MB.chatMb_maId)
|
||||
.Rows.Add({MB.chatMb_maId, MA.Fullname, If(MA.mit_firma = "ALL", MA.mit_FirmaHaupt, MA.mit_firma)})
|
||||
Next
|
||||
.ClearSelection()
|
||||
End With
|
||||
End Sub
|
||||
|
||||
Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
|
||||
Dim f As New frmMessenger_NeuerChat(CHAT)
|
||||
f.ShowDialog()
|
||||
initDGVMembers()
|
||||
End Sub
|
||||
|
||||
Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.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
|
||||
initDGVMembers()
|
||||
End If
|
||||
Next
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
|
||||
|
||||
CHAT.chat_freigegeben = 1
|
||||
CHAT.chat_aktiv = 1
|
||||
|
||||
|
||||
If Not CHAT.chat_aktiv Then MsgBox("Chat inaktiv!") : Exit Sub
|
||||
|
||||
If CHAT.SAVE(True) Then
|
||||
|
||||
Dim MSG As New VERAG_PROG_ALLGEMEIN.cMessenger.cMessenger_ChatMessages(CHAT.chat_id, VERAG_PROG_ALLGEMEIN.cAllgemein.USRID)
|
||||
MSG.chatMg_text = ""
|
||||
MSG.chatMg_type = CHAT.chat_art
|
||||
MSG.chatMg_maName = VERAG_PROG_ALLGEMEIN.cAllgemein.MITARBEITER.Fullname
|
||||
MSG.chatMg_maFirma = VERAG_PROG_ALLGEMEIN.cAllgemein.FIRMA
|
||||
|
||||
If MSG.SAVE(True, CHAT.CHAT_MEMBERS) Then
|
||||
|
||||
Me.Close()
|
||||
End If
|
||||
|
||||
End If
|
||||
|
||||
|
||||
End Sub
|
||||
|
||||
Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
|
||||
CHAT.chat_freigegeben = False
|
||||
CHAT.chat_aktiv = False
|
||||
If CHAT.SAVE(True) Then
|
||||
Me.Close()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user