ClipboardWatcher/app/DD_Clipboard_Searcher/frmAdministration.vb

Imports DD_LIB_Standards
Public Class frmAdministration

    Class ProfileType
        Public Name As String
        Public Id As Int16

        Public Overrides Function ToString() As String
            Return Name
        End Function
    End Class

    Dim PID As Integer
    Private Sub TBCW_PROFILESBindingNavigatorSaveItem_Click(sender As Object, e As EventArgs) Handles TBCW_PROFILESBindingNavigatorSaveItem.Click
        Save_Profile()

        Me.TableAdapterManager.UpdateAll(Me.MyDataset)

    End Sub
    Sub Load_Profiles()
        Try
            TBCW_PROFILESTableAdapter.Connection.ConnectionString = MyConnectionString
            TBCW_PROFILESTableAdapter.Fill(Me.MyDataset.TBCW_PROFILES)
        Catch ex As Exception
            MsgBox("Unexpected Error in Load Profiles: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Sub Save_Profile()
        Try
            Me.TBCW_PROFILESBindingSource.EndEdit()
            If Not IsNothing(MyDataset.TBCW_PROFILES.GetChanges) Then
                Me.CHANGED_WHOTextBox.Text = Environment.UserName
                Me.TBCW_PROFILESBindingSource.EndEdit()
                Me.TBCW_PROFILESTableAdapter.Update(MyDataset.TBCW_PROFILES)
                Status_Changed("Profil gespeichert - " & Now.ToString, Color.Yellow)
            Else
                Status_Changed("Keine Änderung - " & Now.ToString, Color.Transparent)
            End If
        Catch ex As Exception
            MsgBox("Unexpected Error in Save Profile: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Private Sub frmAdministration_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Load_Profiles()

        PROFILE_TYPEComboBox.DataSource = New List(Of ProfileType) From {
            New ProfileType() With {.Id = 0, .Name = "Daten und Dokumente"},
            New ProfileType() With {.Id = 1, .Name = "Nur Dokumente"},
            New ProfileType() With {.Id = 2, .Name = "Nur Daten"}
        }

        lbllicenseCount.Text = LICENSE_COUNT
        If LICENSE_DATE.ToString.Contains("2099") Then
            lblLicenseDate.Text = "Unlimited"
        Else
            lblLicenseDate.Text = LICENSE_DATE
        End If

    End Sub
    Sub Status_Changed(text As String, col As System.Drawing.Color)
        statuslabel.Text = text
        statuslabel.BackColor = col
    End Sub

    Private Sub TBCW_PROFILESBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBCW_PROFILESBindingSource.AddingNew
        MyDataset.TBCW_PROFILES.ADDED_WHOColumn.DefaultValue = Environment.UserName
    End Sub

    Private Sub btnaddSearch_Click(sender As Object, e As EventArgs) Handles btnaddSearch.Click
        If Not Me.WD_SEARCHTextBox.Text = "" Then
            Me.OFDWindreamsuche.FileName = Me.WD_SEARCHTextBox.Text
        End If

        If Me.OFDWindreamsuche.ShowDialog = System.Windows.Forms.DialogResult.OK Then
            Me.WD_SEARCHTextBox.Text = Me.OFDWindreamsuche.FileName
        End If
    End Sub

    Private Sub GUIDTextBox_TextChanged(sender As Object, e As EventArgs) Handles GUIDTextBox.TextChanged

        If GUIDTextBox.Text <> "" Then
            Refresh_Profile_user()
            Refresh_Free_Users(GUIDTextBox.Text)
            Load_Profile_Process()
        End If

    End Sub
    Sub Refresh_Profile_user()
        Try
            Try
                Dim ID = CInt(GUIDTextBox.Text)
            Catch ex As Exception
                Exit Sub
            End Try
            Me.VWUSER_PROFILETableAdapter.Connection.ConnectionString = MyConnectionString
            Me.VWUSER_PROFILETableAdapter.Fill(Me.MyDataset.VWUSER_PROFILE, GUIDTextBox.Text)
        Catch ex As Exception
            MsgBox("Unexpected Error in Refresh Profile User: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try

    End Sub

    Private Sub btnAddUser2Profile_Click(sender As Object, e As EventArgs) Handles btnAddUser2Profile.Click
        Try
            Try
                Dim i As Integer = CInt(GUIDTextBox.Text)
            Catch ex As Exception
                Exit Sub
            End Try
            For Each row As DataRow In MyDataset.TBWH_User.Rows
                If row.Item(0) = CBool(True) Then
                    Dim insert = String.Format("INSERT INTO TBCW_USER_PROFILE (PROFILE_ID,USER_ID) VALUES ({0},{1})", GUIDTextBox.Text, row.Item(5))
                    If clsDatabase.Execute_non_Query(insert) = False Then
                        MsgBox("Could not insert the User-Definition....Check the logfile!", MsgBoxStyle.Exclamation)
                    End If
                End If
            Next
            For Each row As DataRow In MyDataset.TBWH_User.Rows
                row.Item(0) = CBool(False)
            Next
            If GUIDTextBox.Text <> "" Then
                Refresh_Free_Users(GUIDTextBox.Text)
                Refresh_Profile_user()
            End If

        Catch ex As Exception
            MsgBox("Unexpected Error while adding user-rights: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub
    Sub Refresh_Free_Users(PROFILE_ID As Integer)

        Dim Sql = String.Format("SELECT DISTINCT * FROM VWDD_USER_MODULE_CW WHERE GUID NOT IN (SELECT USER_ID FROM TBCW_USER_PROFILE WHERE PROFILE_ID = {0}) ORDER BY USERNAME", PROFILE_ID)


        Dim DT_USER = clsDatabase.Return_Datatable(Sql)
        Try
            MyDataset.TBWH_User.Clear()

            For Each row As DataRow In DT_USER.Rows
                Dim newUserRow As MyDataset.TBWH_UserRow
                newUserRow = MyDataset.TBWH_User.NewTBWH_UserRow
                newUserRow.Username = row.Item("USERNAME")
                newUserRow.Surname = row.Item("NAME")
                newUserRow.Prename = row.Item("PRENAME")
                Try
                    newUserRow.Email = row.Item("EMAIL")
                Catch ex As Exception
                    newUserRow.Email = ""
                End Try

                newUserRow.ID = row.Item("GUID")
                MyDataset.TBWH_User.Rows.Add(newUserRow)
                ' chklbxUserForGroup.Items.Add(New MyListBoxItem() With {.Text = row.Item(1), .ExtraData = row.Item(0)})
            Next
        Catch ex As Exception
            MsgBox("Unexpected Error in Refresh_Free_Users: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try

    End Sub

    Private Sub btndeleteUserConstructorRel_Click(sender As Object, e As EventArgs) Handles btndeleteUserConstructorRel.Click
        Try
            Dim ID = GridViewProfileUser.GetFocusedRowCellValue(GridViewProfileUser.Columns("GUID"))
            Try
                Dim I As Integer = CInt(ID)
            Catch ex As Exception
                Exit Sub
            End Try
            Dim del = String.Format("DELETE FROM TBCW_USER_PROFILE WHERE GUID = {0}", ID)
            If clsDatabase.Execute_non_Query(del) = True Then
                Refresh_Profile_user()
                If GUIDTextBox.Text <> "" Then
                    Refresh_Free_Users(GUIDTextBox.Text)
                End If

            End If
        Catch ex As Exception
            MsgBox("Unexpected Error in deleting ProfileUserRelation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub chkRunwindowCheck_CheckedChanged(sender As Object, e As EventArgs)

    End Sub

    Private Sub TimerTest_Tick(sender As Object, e As EventArgs) Handles TimerTest.Tick
        clsWINDOWSApi.Get_ForegroundWindow_Info()
        If PID <> CurrPROC_PID And CurrPROC_Name <> "DD_Clipboard_Watcher" Then
            lblprocessCheckActive.Visible = True
            PID = CurrPROC_PID
            txtPID.Text = CurrPROC_PID
            txtProcessName.Text = CurrPROC_Name
        Else
            lblprocessCheckActive.Visible = False
        End If
    End Sub

    Private Sub Load_Profile_Process()
        Try
            If IsNothing(GUIDTextBox.Text) Or GUIDTextBox.Text = "" Then
                Exit Sub
            End If
            Me.TBCW_PROFILE_PROCESSTableAdapter.Connection.ConnectionString = MyConnectionString
            Me.TBCW_PROFILE_PROCESSTableAdapter.Fill(Me.MyDataset.TBCW_PROFILE_PROCESS, GUIDTextBox.Text)
        Catch ex As System.Exception
            MsgBox("Unexpected Error in Load_Profile_Process: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try

    End Sub

    Private Sub btnLinkProcessPRofile_Click(sender As Object, e As EventArgs) Handles btnLinkProcessPRofile.Click
        Try
            If txtProcessName.Text <> "" Then
                Dim insert = String.Format("INSERT INTO TBCW_PROFILE_PROCESS (PROFILE_ID,PROC_NAME,ADDED_WHO) VALUES ({0},'{1}','{2}')", GUIDTextBox.Text, txtProcessName.Text, Environment.UserName)
                If clsDatabase.Execute_non_Query(insert) = False Then
                    MsgBox("Could not insert the Process-Profile-Link....Check the logfile!", MsgBoxStyle.Exclamation)
                End If
            End If
            Load_Profile_Process()
            clsHotkey.Refresh_Profile_Links()
        Catch ex As Exception
            MsgBox("Unexpected Error while adding Process-Profile-link: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub btndeleteProcessProfileLink_Click(sender As Object, e As EventArgs) Handles btndeleteProcessProfileLink.Click
        Try
            Dim ID = GridViewProcessProfile.GetFocusedRowCellValue(GridViewProcessProfile.Columns("GUID"))
            Try
                Dim I As Integer = CInt(ID)
            Catch ex As Exception
                Exit Sub
            End Try
            Dim del = String.Format("DELETE FROM TBCW_PROFILE_PROCESS WHERE GUID = {0}", ID)
            If clsDatabase.Execute_non_Query(del) = True Then
                Load_Profile_Process()
            End If
        Catch ex As Exception
            MsgBox("Unexpected Error in deleting ProfileProcess-Relation: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub btnStartStopProcess_Click(sender As Object, e As EventArgs) Handles btnStartStopProcess.Click
        If btnStartStopProcess.Text = "Starte Aktive Fenster-Auswahl" Then
            Me.Cursor = Cursors.WaitCursor
            txtPID.Text = ""
            txtProcessName.Text = ""
            TimerTest.Start()
            btnStartStopProcess.Text = "Stoppe Auswertung Fenster"
            Status_Changed("Auswertung von aktivem Fenster läuft! Wechseln Sie durch die aktiven Anwendungen!", Color.Orange)
        Else
            Me.Cursor = Cursors.Default
            TimerTest.Stop()
            btnStartStopProcess.Text = "Starte Aktive Fenster-Auswahl"
            Status_Changed("", Color.Transparent)
        End If
    End Sub

    Private Sub WD_SEARCHTextBox_MouseHover(sender As Object, e As EventArgs) Handles WD_SEARCHTextBox.MouseHover
        ToolTip1.SetToolTip(WD_SEARCHTextBox, "Replace patterns for string fields: " & vbNewLine & "@Clipboard" & vbNewLine & "@CLIPBOARD" & vbNewLine & "@Zwischenablage" &
                            vbNewLine & "Replace patterns for integer fields: " & vbNewLine & "123456789" & vbNewLine & "4711")
        ToolTip1.ToolTipTitle = "Replace patterns:"
        ToolTip1.IsBalloon = True
        ToolTip1.ToolTipIcon = ToolTipIcon.Info
        ToolTip1.UseAnimation = True
    End Sub

    Private Sub frmAdministration_Shown(sender As Object, e As EventArgs) Handles Me.Shown
        If GUIDTextBox.Text = "" Then
            Refresh_Free_Users(0)
        End If
    End Sub

    Private Sub BindingNavigatorDeleteItem_Click(sender As Object, e As EventArgs) Handles BindingNavigatorDeleteItem.Click
        Dim swl = String.Format("EXEC PRCW_DELETE_PROFILE {0}", GUIDTextBox.Text)
        Dim result As MsgBoxResult = MsgBox("Sind Sie sicher, dass Sie das Profil löschen wollen?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
        ' wenn Speichern ja
        If result = MsgBoxResult.Yes Then
            If clsDatabase.Execute_non_Query(swl) = True Then
                Load_Profiles()
            End If
        End If


    End Sub

    Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
        Load_Profiles()
        Refresh_Profile_user()
        Try
            Dim ID = CInt(GUIDTextBox.Text)
        Catch ex As Exception
            Exit Sub
        End Try
        Refresh_Free_Users(GUIDTextBox.Text)
    End Sub
End Class