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

neu

Browse Source
This commit is contained in:
Andreas Luxbauer
2020-03-26 22:23:21 +01:00
parent ffde29023a
commit 4a358d43fd
5 changed files with 85 additions and 42 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
VERAG_PROG_ALLGEMEIN/Messenger/frmMessenger.vb
View File

@@ -83,7 +83,7 @@ Public Class frmMessenger
.DataSource = SQL.loadDgvBySql("SELECT [chat_id],CASE WHEN chat_name<>'' THEN chat_name ELSE (SELECT TOP 1 mit_vname + ' ' + mit_nname FROM tblMessenger_ChatMembers INNER JOIN tblMitarbeiter ON mit_id=chatMb_maId where chatMb_chatId=chat_id AND chatMb_maId <>" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ") END as chat_name
,(SELECT REPLACE(COUNT(*),'0','') FROM tblMessenger_ChatMessages INNER JOIN tblMessenger_ChatMessageStatus ON chatMgSt_chatMsgId=chatMg_id WHERE [chat_id]=chatMg_chatId AND chatMgSt_MaId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & " AND chatMgSt_gelesen=0) as ungelesen
FROM [tblMessenger_Chat] WHERE (SELECT COUNT(*) FROM tblMessenger_ChatMembers WHERE chatMB_chatId=chat_id AND chatMB_maId=" & VERAG_PROG_ALLGEMEIN.cAllgemein.USRID & ")>0
AND chat_aktiv='" & (Not cbxInaktiveChats.Checked) & "' ORDER BY chat_id", "ADMIN")
AND chat_aktiv='" & (Not cbxInaktiveChats.Checked) & "' ORDER BY chat_id DESC", "ADMIN")
If .Columns.Count = 0 Then Exit Sub
@@ -593,7 +593,7 @@ Public Class frmMessenger
Private Sub dgvChats_CellMouseClick(sender As Object, e As DataGridViewCellMouseEventArgs) Handles dgvChats.CellMouseClick
If e.Button = MouseButtons.Right Then
If e.RowIndex > 0 Then
If e.RowIndex >= 0 Then
If dgvChats.Rows.Count > 0 Then
'Dim chatId = dgvChats.Rows(e.RowIndex).Cells("chat_id").Value
@@ -644,7 +644,8 @@ Public Class frmMessenger
End Sub
Private Sub pic_Click(sender As Object, e As EventArgs) Handles pic.Click
If InputBox("Whoami?", "¿").ToLower = "easteregg" Then
Dim codewort = InputBox("Whoami?", "¿").ToLower
If codewort = "easteregg" Or codewort = "osterhase" Then
cMitarbeiter.UPDATE_EASTEREGG(True)
cAllgemein.MITARBEITER.LOAD(cAllgemein.USRID)