Monorepo/GUIs.ZooFlow/Administration/frmSQLDesigner.vb

Imports DevExpress.XtraEditors
Imports DevExpress.XtraEditors.Repository
Imports DigitalData.Modules.Database

Public Class frmSQLDesigner
    Dim CurrentPosition As Integer = 0
    Dim CurrentPlaceholders As New Placeholders()
    Dim CurrentTableType As String
    Dim AtPlaceholderPattern As String = "\[%{1}[a-zA-Z0-9\!\$\&\/\(\)\=\?\,\.\-\;\:_öÖüÜäÄ\#\'\+\*\~\{\}\@\€\<\>\ ]+]{1}" '"\[%[0-9A-Za-z_-]{1,}\]"
    Public Class Placeholders
        Public Property RecordId As Integer
        Public Property ParentRecordId As Integer
        Public Property FormId As Integer
    End Class

    Public Property SQLCommand() As String
        Get
            Return SQL_COMMANDTextBox.Text
        End Get
        Set(value As String)
            SQL_COMMANDTextBox.Text = value
        End Set
    End Property

    Public Property ConnectionID
    Public AutoAttributID
    Public Property DesignType As String
    Private IndicesMan As New List(Of Indice_Man)()
    Public Class Indice_Man
        Public Property ID() As Integer
        Public Property Indice_name() As String

    End Class

    Private Sub frmSQLDesigner_Load(sender As Object, e As EventArgs) Handles Me.Load
        Dim oSQL
        bsiInfo.Visibility = DevExpress.XtraBars.BarItemVisibility.Never

        If DesignType = "GI_ATTRIBUTE_MAN" Then
            EnDisable_Man_Attribute(False)
        Else
            EnDisable_Man_Attribute(True)
            oSQL = "Select * From TBDD_INDEX_MAN WHERE ACTIVE = 1"
            Dim oDT = My.DatabaseECM.GetDatatable(oSQL)
            cmbAttributeMan.DataSource = oDT
            cmbAttributeMan.DisplayMember = oDT.Columns("WD_INDEX").ColumnName

            oSQL = $"Select * From TBDD_INDEX_AUTOM WHERE ACTIVE = 1 AND GUID <> {AutoAttributID}"
            Dim oDTAA = My.DatabaseECM.GetDatatable(oSQL)
            cmbAttributeAuto.DataSource = oDTAA
            cmbAttributeAuto.DisplayMember = oDTAA.Columns("INDEXNAME").ColumnName
            EnDisable_Auto_Attribute(True)

        End If
        If DesignType = "SQL_OVERVIEW" Then
            cmbConnection.Enabled = False
            'btnShowConnections.Enabled = False
        Else
            cmbConnection.Enabled = True
            oSQL = "SELECT GUID, Bezeichnung FROM TBDD_CONNECTION WHERE AKTIV = 1"
            Dim oDT As DataTable = My.DatabaseECM.GetDatatable(oSQL)
            cmbConnection.DataSource = oDT
            cmbConnection.DisplayMember = oDT.Columns("Bezeichnung").ColumnName
            cmbConnection.ValueMember = oDT.Columns("GUID").ColumnName


            IndicesMan.Add(New Indice_Man() With {.ID = 1, .Indice_name = "Manually"})

            'bind the lookup editor to the list
            Dim oLU As RepositoryItemLookUpEdit = RepositoryItemLookUpEdit3
            oLU.DataSource = oDT

            oLU.DisplayMember = oDT.Columns("Bezeichnung").ColumnName
            oLU.ValueMember = oDT.Columns("GUID").ColumnName
            ' Enable the "best-fit" functionality mode in which columns have proportional widths and the popup window is resized to fit all the columns.
            oLU.BestFitMode = DevExpress.XtraEditors.Controls.BestFitMode.BestFitResizePopup
            ' Specify the dropdown height.
            oLU.DropDownRows = oDT.Rows.Count

            ' Enable the automatic completion feature. In this mode, when the dropdown is closed, 
            ' the text in the edit box is automatically completed if it matches a DisplayMember field value of one of dropdown rows. 
            oLU.SearchMode = DevExpress.XtraEditors.Controls.SearchMode.AutoComplete
            ' Specify the column against which an incremental search is performed in SearchMode.AutoComplete and SearchMode.OnlyInPopup modes
            oLU.AutoSearchColumnIndex = 1
            If Not IsNothing(ConnectionID) Then
                If IsNumeric(ConnectionID) Then
                    cmbConnection.SelectedValue = ConnectionID
                End If

            End If

            'btnShowConnections.Enabled = True
        End If

    End Sub
    Private Sub SQL_COMMANDTextBox_TextChanged(sender As Object, e As EventArgs) Handles SQL_COMMANDTextBox.TextChanged, SQL_COMMANDTextBox.Click
        CurrentPosition = SQL_COMMANDTextBox.SelectionStart

        If SQL_COMMANDTextBox.Text.Trim().Count = 0 Then
            dgvPlaceholders.Enabled = False
        Else
            dgvPlaceholders.Enabled = True
        End If

        CheckForPlaceholders()
    End Sub
    Sub EnDisable_Man_Attribute(bool As Boolean)
        lblAttributeMan.Visible = bool
        cmbAttributeMan.Visible = bool
        btnAddAttributeMan.Visible = bool
    End Sub
    Sub EnDisable_Auto_Attribute(bool As Boolean)
        lblAttributeAuto.Visible = bool
        cmbAttributeAuto.Visible = bool
        btnAddAttributeAuto.Visible = bool
    End Sub
    Private Sub CheckForPlaceholders()
        Dim text As String = SQL_COMMANDTextBox.Text
        dgvPlaceholders.Rows.Clear()

        Dim patterns As List(Of clsPatterns.Pattern) = clsPatterns.GetAllPatterns(text)

        For Each pattern In patterns
            dgvPlaceholders.Rows.Add({pattern.ToString, ""})
        Next

        'Dim count As Integer = 0
        'Dim text As String = Me.Value
        'Dim atPlaceholderRegex = New Regex(AtPlaceholderPattern, RegexOptions.IgnoreCase)
        'Dim matches As MatchCollection = atPlaceholderRegex.Matches(text)
        'dgvPlaceholders.Rows.Clear()
        'For Each match As Match In matches
        '    dgvPlaceholders.Rows.Add({match.Value, ""})
        'Next
    End Sub
    Private Sub InsertAtSelection(str As String)
        Dim altePosition As Integer = SQL_COMMANDTextBox.SelectionStart()
        SQL_COMMANDTextBox.Text = SQL_COMMANDTextBox.Text.Insert(altePosition, str)
        SQL_COMMANDTextBox.SelectionStart = altePosition + str.Length
    End Sub


    Private Sub btnAddAttributeMan_Click(sender As Object, e As EventArgs) Handles btnAddAttributeMan.Click
        If cmbAttributeMan.SelectedIndex <> -1 Then
            Dim value As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_ATTR_MAN, cmbAttributeMan.Text)
            InsertAtSelection(value)
        End If
    End Sub

    Private Sub btnAddStatic_Click(sender As Object, e As EventArgs) Handles btnAddStatic.Click
        If cmbStatic.SelectedIndex <> -1 Then
            Dim value As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_INT, cmbStatic.Text)
            InsertAtSelection(value)
        End If
    End Sub

    Private Sub btnAddUser_Click(sender As Object, e As EventArgs) Handles btnAddUser.Click
        If cmbUser.SelectedIndex <> -1 Then
            Dim value As String = clsPatterns.WrapPatternValue(clsPatterns.PATTERN_USER, cmbUser.Text)
            InsertAtSelection(value)
        End If
    End Sub

    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick
        Try
            Dim query As String = SQL_COMMANDTextBox.Text

            For Each row As DataGridViewRow In dgvPlaceholders.Rows
                Dim placeholder As String = row.Cells(0).Value
                Dim replacement As String = row.Cells(1).Value

                ' Wenn Ersetzung ausgefüllt wurde, Platzhalter damit ersetzen
                If Not String.IsNullOrEmpty(replacement) Then
                    Dim pattern As New clsPatterns.Pattern(placeholder)

                    query = clsPatterns.ReplacePattern(query, pattern.Type, replacement)
                Else
                    MsgBox("Bitte geben Sie für den Platzhalter " & placeholder & " einen Wert an!", MsgBoxStyle.Exclamation, "Fehlende Platzhalter Ersetzung")
                    Exit Sub
                End If
            Next
            'MsgBox(cmbConnection.SelectedValue)
            Dim oconString = My.DatabaseECM.Get_ConnectionStringforID(cmbConnection.SelectedValue)
            'MsgBox(oconString)
            Dim decryptedConString = MSSQLServer.DecryptConnectionString(oconString)
            'MsgBox(decryptedConString)
            Dim oDT = My.DatabaseECM.GetDatatableWithConnection(query, decryptedConString)


            If oDT IsNot Nothing Then
                GridControl1.DataSource = Nothing
                GridControl1.DataSource = oDT
            End If
        Catch ex As Exception
            MsgBox(ex.Message, MsgBoxStyle.Critical)
        End Try
    End Sub

    Private Sub BarButtonItem2_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem2.ItemClick
        SQLCommand = SQL_COMMANDTextBox.Text
        ConnectionID = cmbConnection.SelectedValue
        Me.Close()
    End Sub

    Private Sub Label2_Click(sender As Object, e As EventArgs) Handles Label2.Click

    End Sub
End Class