MS

GUIs.ZooFlow/frmPreSearch.vb

@@ -0,0 +1,21 @@
+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