Imports DigitalData.Modules.Logging
Public Class frmPreSearch
    Private Logger As Logger
    Public Sub New()
        ' Dieser Aufruf ist für den Designer erforderlich.
        InitializeComponent()
        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
        Logger = My.LogConfig.GetLogger()

    End Sub
    Private Sub frmPreSearch_Load(sender As Object, e As EventArgs) Handles Me.Load
        RibbonControl1.ColorScheme = DevExpress.XtraBars.Ribbon.RibbonControlColorScheme.Red
        Dim oSQL = $"SELECT * FROM VWIDB_SEARCH_LANDING"
        Dim oDTLanding As DataTable = My.DatabaseIDB.GetDatatable(oSQL)
        GridControl1.DataSource = oDTLanding
    End Sub

    Private Sub BarButtonItem1_ItemClick(sender As Object, e As DevExpress.XtraBars.ItemClickEventArgs) Handles BarButtonItem1.ItemClick

    End Sub
End Class