TestGUI: update test gui

Controls.SQLEditor/frmSQLResult.vb

@@ -0,0 +1,15 @@
+Public Class frmSQLResult
+    Private ReadOnly Table As DataTable
+
+    Public Sub New(pTable As DataTable)
+        ' Dieser Aufruf ist für den Designer erforderlich.
+        InitializeComponent()
+
+        ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu.
+        Table = pTable
+    End Sub
+
+    Private Sub frmSQLResult_Load(sender As Object, e As EventArgs) Handles MyBase.Load
+        GridControlResult.DataSource = Table
+    End Sub
+End Class