From 71f307d50a17faa9fca7f0ea1dd15f14faa6dded Mon Sep 17 00:00:00 2001 From: Jonathan Jenne Date: Mon, 15 Jun 2020 15:45:27 +0200 Subject: [PATCH] SQLEditor: Init --- SQLEditor/My Project/licenses.licx | 2 + SQLEditor/SQLEditor.vbproj | 34 +++ SQLEditor/frmSQLEditor.Designer.vb | 265 +++++++++++++++++- SQLEditor/frmSQLEditor.resx | 159 +++++++++++ SQLEditor/frmSQLEditor.vb | 43 ++- SQLEditor/packages.config | 4 + SQLEditorTest/App.config | 6 + SQLEditorTest/Form1.Designer.vb | 38 +++ SQLEditorTest/Form1.resx | 120 ++++++++ SQLEditorTest/Form1.vb | 15 + .../My Project/Application.Designer.vb | 38 +++ SQLEditorTest/My Project/Application.myapp | 11 + SQLEditorTest/My Project/AssemblyInfo.vb | 35 +++ .../My Project/Resources.Designer.vb | 62 ++++ SQLEditorTest/My Project/Resources.resx | 117 ++++++++ SQLEditorTest/My Project/Settings.Designer.vb | 73 +++++ SQLEditorTest/My Project/Settings.settings | 7 + SQLEditorTest/SQLEditorTest.vbproj | 138 +++++++++ 18 files changed, 1162 insertions(+), 5 deletions(-) create mode 100644 SQLEditor/My Project/licenses.licx create mode 100644 SQLEditor/frmSQLEditor.resx create mode 100644 SQLEditor/packages.config create mode 100644 SQLEditorTest/App.config create mode 100644 SQLEditorTest/Form1.Designer.vb create mode 100644 SQLEditorTest/Form1.resx create mode 100644 SQLEditorTest/Form1.vb create mode 100644 SQLEditorTest/My Project/Application.Designer.vb create mode 100644 SQLEditorTest/My Project/Application.myapp create mode 100644 SQLEditorTest/My Project/AssemblyInfo.vb create mode 100644 SQLEditorTest/My Project/Resources.Designer.vb create mode 100644 SQLEditorTest/My Project/Resources.resx create mode 100644 SQLEditorTest/My Project/Settings.Designer.vb create mode 100644 SQLEditorTest/My Project/Settings.settings create mode 100644 SQLEditorTest/SQLEditorTest.vbproj diff --git a/SQLEditor/My Project/licenses.licx b/SQLEditor/My Project/licenses.licx new file mode 100644 index 00000000..d7eba39b --- /dev/null +++ b/SQLEditor/My Project/licenses.licx @@ -0,0 +1,2 @@ +DevExpress.XtraEditors.ComboBoxEdit, DevExpress.XtraEditors.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a +DevExpress.XtraGrid.GridControl, DevExpress.XtraGrid.v19.2, Version=19.2.3.0, Culture=neutral, PublicKeyToken=b88d1754d700e49a diff --git a/SQLEditor/SQLEditor.vbproj b/SQLEditor/SQLEditor.vbproj index 11c59862..7aa18685 100644 --- a/SQLEditor/SQLEditor.vbproj +++ b/SQLEditor/SQLEditor.vbproj @@ -46,9 +46,28 @@ On + + + + + + + + + + + ..\packages\NLog.4.7.2\lib\net45\NLog.dll + + + + + + + + @@ -94,6 +113,10 @@ + + frmSQLEditor.vb + + VbMyResourcesResXFileCodeGenerator Resources.Designer.vb @@ -111,9 +134,20 @@ My Settings.Designer.vb + + + + {903B2D7D-3B80-4BE9-8713-7447B704E1B0} + Logging + + + {7c3b0c7e-59fe-4e1a-a655-27ae119f9444} + Patterns + + \ No newline at end of file diff --git a/SQLEditor/frmSQLEditor.Designer.vb b/SQLEditor/frmSQLEditor.Designer.vb index 8fa5948f..1601d9d0 100644 --- a/SQLEditor/frmSQLEditor.Designer.vb +++ b/SQLEditor/frmSQLEditor.Designer.vb @@ -1,6 +1,6 @@  _ Partial Class frmSQLEditor - Inherits System.Windows.Forms.Form + Inherits DevExpress.XtraEditors.XtraForm 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. _ @@ -22,9 +22,266 @@ Partial Class frmSQLEditor 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() - components = New System.ComponentModel.Container + Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmSQLEditor)) + Me.MemoEdit1 = New DevExpress.XtraEditors.MemoEdit() + Me.SimpleButton1 = New DevExpress.XtraEditors.SimpleButton() + Me.gridResult = New DevExpress.XtraGrid.GridControl() + Me.GridView1 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.gridPlaceholders = New DevExpress.XtraGrid.GridControl() + Me.GridView2 = New DevExpress.XtraGrid.Views.Grid.GridView() + Me.colPlaceholder = New DevExpress.XtraGrid.Columns.GridColumn() + Me.colReplacement = New DevExpress.XtraGrid.Columns.GridColumn() + Me.SplitContainerControl1 = New DevExpress.XtraEditors.SplitContainerControl() + Me.ComboBoxEdit1 = New DevExpress.XtraEditors.ComboBoxEdit() + Me.Label1 = New System.Windows.Forms.Label() + Me.ComboBoxEdit2 = New DevExpress.XtraEditors.ComboBoxEdit() + Me.Label2 = New System.Windows.Forms.Label() + Me.ComboBoxEdit3 = New DevExpress.XtraEditors.ComboBoxEdit() + Me.Label3 = New System.Windows.Forms.Label() + Me.ComboBoxEdit4 = New DevExpress.XtraEditors.ComboBoxEdit() + Me.Label4 = New System.Windows.Forms.Label() + Me.cmbConnections = New DevExpress.XtraEditors.ComboBoxEdit() + Me.Label5 = New System.Windows.Forms.Label() + CType(Me.MemoEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gridResult, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.gridPlaceholders, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SplitContainerControl1.SuspendLayout() + CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ComboBoxEdit2.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ComboBoxEdit3.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.ComboBoxEdit4.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + CType(Me.cmbConnections.Properties, System.ComponentModel.ISupportInitialize).BeginInit() + Me.SuspendLayout() + ' + 'MemoEdit1 + ' + Me.MemoEdit1.Location = New System.Drawing.Point(12, 94) + Me.MemoEdit1.Name = "MemoEdit1" + Me.MemoEdit1.Properties.Appearance.Font = New System.Drawing.Font("Consolas", 8.25!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.MemoEdit1.Properties.Appearance.Options.UseFont = True + Me.MemoEdit1.Size = New System.Drawing.Size(776, 173) + Me.MemoEdit1.TabIndex = 0 + ' + 'SimpleButton1 + ' + Me.SimpleButton1.ImageOptions.SvgImage = CType(resources.GetObject("SimpleButton1.ImageOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.SimpleButton1.ImageOptions.SvgImageSize = New System.Drawing.Size(20, 20) + Me.SimpleButton1.Location = New System.Drawing.Point(641, 443) + Me.SimpleButton1.Name = "SimpleButton1" + Me.SimpleButton1.Size = New System.Drawing.Size(147, 34) + Me.SimpleButton1.TabIndex = 1 + Me.SimpleButton1.Text = "Speichern" + ' + 'gridResult + ' + Me.gridResult.Dock = System.Windows.Forms.DockStyle.Fill + Me.gridResult.Location = New System.Drawing.Point(0, 0) + Me.gridResult.MainView = Me.GridView1 + Me.gridResult.Name = "gridResult" + Me.gridResult.Size = New System.Drawing.Size(370, 160) + Me.gridResult.TabIndex = 2 + Me.gridResult.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1}) + ' + 'GridView1 + ' + Me.GridView1.GridControl = Me.gridResult + Me.GridView1.Name = "GridView1" + Me.GridView1.OptionsView.ShowGroupPanel = False + ' + 'gridPlaceholders + ' + Me.gridPlaceholders.Dock = System.Windows.Forms.DockStyle.Fill + Me.gridPlaceholders.Location = New System.Drawing.Point(0, 0) + Me.gridPlaceholders.MainView = Me.GridView2 + Me.gridPlaceholders.Name = "gridPlaceholders" + Me.gridPlaceholders.Size = New System.Drawing.Size(396, 160) + Me.gridPlaceholders.TabIndex = 2 + Me.gridPlaceholders.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView2}) + ' + 'GridView2 + ' + Me.GridView2.Columns.AddRange(New DevExpress.XtraGrid.Columns.GridColumn() {Me.colPlaceholder, Me.colReplacement}) + Me.GridView2.GridControl = Me.gridPlaceholders + Me.GridView2.Name = "GridView2" + Me.GridView2.OptionsView.ShowGroupPanel = False + ' + 'colPlaceholder + ' + Me.colPlaceholder.Caption = "Platzhalter" + Me.colPlaceholder.Name = "colPlaceholder" + Me.colPlaceholder.Visible = True + Me.colPlaceholder.VisibleIndex = 0 + ' + 'colReplacement + ' + Me.colReplacement.Caption = "Ersetzung" + Me.colReplacement.Name = "colReplacement" + Me.colReplacement.Visible = True + Me.colReplacement.VisibleIndex = 1 + ' + 'SplitContainerControl1 + ' + Me.SplitContainerControl1.Location = New System.Drawing.Point(12, 277) + Me.SplitContainerControl1.Name = "SplitContainerControl1" + Me.SplitContainerControl1.Panel1.Controls.Add(Me.gridPlaceholders) + Me.SplitContainerControl1.Panel1.Text = "Panel1" + Me.SplitContainerControl1.Panel2.Controls.Add(Me.gridResult) + Me.SplitContainerControl1.Panel2.Text = "Panel2" + Me.SplitContainerControl1.Size = New System.Drawing.Size(776, 160) + Me.SplitContainerControl1.SplitterPosition = 396 + Me.SplitContainerControl1.TabIndex = 3 + ' + 'ComboBoxEdit1 + ' + Me.ComboBoxEdit1.Location = New System.Drawing.Point(572, 66) + Me.ComboBoxEdit1.Name = "ComboBoxEdit1" + Me.ComboBoxEdit1.Properties.Appearance.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ComboBoxEdit1.Properties.Appearance.Options.UseFont = True + Me.ComboBoxEdit1.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Plus)}) + Me.ComboBoxEdit1.Size = New System.Drawing.Size(215, 22) + Me.ComboBoxEdit1.TabIndex = 4 + ' + 'Label1 + ' + Me.Label1.AutoSize = True + Me.Label1.Location = New System.Drawing.Point(569, 50) + Me.Label1.Name = "Label1" + Me.Label1.Size = New System.Drawing.Size(101, 13) + Me.Label1.TabIndex = 5 + Me.Label1.Text = "Anwendungsdaten:" + ' + 'ComboBoxEdit2 + ' + Me.ComboBoxEdit2.Location = New System.Drawing.Point(351, 66) + Me.ComboBoxEdit2.Name = "ComboBoxEdit2" + Me.ComboBoxEdit2.Properties.Appearance.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ComboBoxEdit2.Properties.Appearance.Options.UseFont = True + Me.ComboBoxEdit2.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Plus)}) + Me.ComboBoxEdit2.Size = New System.Drawing.Size(215, 22) + Me.ComboBoxEdit2.TabIndex = 4 + ' + 'Label2 + ' + Me.Label2.AutoSize = True + Me.Label2.Location = New System.Drawing.Point(348, 50) + Me.Label2.Name = "Label2" + Me.Label2.Size = New System.Drawing.Size(95, 13) + Me.Label2.TabIndex = 5 + Me.Label2.Text = "Umgebungsdaten:" + ' + 'ComboBoxEdit3 + ' + Me.ComboBoxEdit3.Location = New System.Drawing.Point(572, 25) + Me.ComboBoxEdit3.Name = "ComboBoxEdit3" + Me.ComboBoxEdit3.Properties.Appearance.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ComboBoxEdit3.Properties.Appearance.Options.UseFont = True + Me.ComboBoxEdit3.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Plus)}) + Me.ComboBoxEdit3.Size = New System.Drawing.Size(215, 22) + Me.ComboBoxEdit3.TabIndex = 4 + ' + 'Label3 + ' + Me.Label3.AutoSize = True + Me.Label3.Location = New System.Drawing.Point(569, 9) + Me.Label3.Name = "Label3" + Me.Label3.Size = New System.Drawing.Size(177, 13) + Me.Label3.TabIndex = 5 + Me.Label3.Text = "Indexe (Zur Laufzeit ausgewertet):" + ' + 'ComboBoxEdit4 + ' + Me.ComboBoxEdit4.Location = New System.Drawing.Point(351, 25) + Me.ComboBoxEdit4.Name = "ComboBoxEdit4" + Me.ComboBoxEdit4.Properties.Appearance.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) + Me.ComboBoxEdit4.Properties.Appearance.Options.UseFont = True + Me.ComboBoxEdit4.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo), New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Plus)}) + Me.ComboBoxEdit4.Size = New System.Drawing.Size(215, 22) + Me.ComboBoxEdit4.TabIndex = 4 + ' + 'Label4 + ' + Me.Label4.AutoSize = True + Me.Label4.Location = New System.Drawing.Point(348, 9) + Me.Label4.Name = "Label4" + Me.Label4.Size = New System.Drawing.Size(182, 13) + Me.Label4.TabIndex = 5 + Me.Label4.Text = "Controls (zur Laufzeit ausgewertet):" + ' + 'cmbConnections + ' + Me.cmbConnections.Location = New System.Drawing.Point(12, 66) + Me.cmbConnections.Name = "cmbConnections" + Me.cmbConnections.Properties.Buttons.AddRange(New DevExpress.XtraEditors.Controls.EditorButton() {New DevExpress.XtraEditors.Controls.EditorButton(DevExpress.XtraEditors.Controls.ButtonPredefines.Combo)}) + Me.cmbConnections.Size = New System.Drawing.Size(170, 20) + Me.cmbConnections.TabIndex = 6 + ' + 'Label5 + ' + Me.Label5.AutoSize = True + Me.Label5.Location = New System.Drawing.Point(9, 50) + Me.Label5.Name = "Label5" + Me.Label5.Size = New System.Drawing.Size(121, 13) + Me.Label5.TabIndex = 5 + Me.Label5.Text = "Datenbank-Verbindung:" + ' + 'frmSQLEditor + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font - Me.ClientSize = New System.Drawing.Size(800, 450) - Me.Text = "frmSQLEditor" + Me.ClientSize = New System.Drawing.Size(800, 489) + Me.Controls.Add(Me.cmbConnections) + Me.Controls.Add(Me.Label4) + Me.Controls.Add(Me.Label5) + Me.Controls.Add(Me.Label2) + Me.Controls.Add(Me.Label3) + Me.Controls.Add(Me.Label1) + Me.Controls.Add(Me.ComboBoxEdit4) + Me.Controls.Add(Me.ComboBoxEdit2) + Me.Controls.Add(Me.ComboBoxEdit3) + Me.Controls.Add(Me.ComboBoxEdit1) + Me.Controls.Add(Me.SplitContainerControl1) + Me.Controls.Add(Me.SimpleButton1) + Me.Controls.Add(Me.MemoEdit1) + Me.IconOptions.SvgImage = CType(resources.GetObject("frmSQLEditor.IconOptions.SvgImage"), DevExpress.Utils.Svg.SvgImage) + Me.Name = "frmSQLEditor" + Me.Text = "SQL-Editor" + CType(Me.MemoEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gridResult, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView1, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.gridPlaceholders, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.GridView2, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.SplitContainerControl1, System.ComponentModel.ISupportInitialize).EndInit() + Me.SplitContainerControl1.ResumeLayout(False) + CType(Me.ComboBoxEdit1.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ComboBoxEdit2.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ComboBoxEdit3.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.ComboBoxEdit4.Properties, System.ComponentModel.ISupportInitialize).EndInit() + CType(Me.cmbConnections.Properties, System.ComponentModel.ISupportInitialize).EndInit() + Me.ResumeLayout(False) + Me.PerformLayout() + End Sub + + Friend WithEvents MemoEdit1 As DevExpress.XtraEditors.MemoEdit + Friend WithEvents SimpleButton1 As DevExpress.XtraEditors.SimpleButton + Friend WithEvents gridResult As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView1 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents gridPlaceholders As DevExpress.XtraGrid.GridControl + Friend WithEvents GridView2 As DevExpress.XtraGrid.Views.Grid.GridView + Friend WithEvents SplitContainerControl1 As DevExpress.XtraEditors.SplitContainerControl + Friend WithEvents colPlaceholder As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents colReplacement As DevExpress.XtraGrid.Columns.GridColumn + Friend WithEvents ComboBoxEdit1 As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents Label1 As Label + Friend WithEvents ComboBoxEdit2 As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents Label2 As Label + Friend WithEvents ComboBoxEdit3 As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents Label3 As Label + Friend WithEvents ComboBoxEdit4 As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents Label4 As Label + Friend WithEvents cmbConnections As DevExpress.XtraEditors.ComboBoxEdit + Friend WithEvents Label5 As Label End Class diff --git a/SQLEditor/frmSQLEditor.resx b/SQLEditor/frmSQLEditor.resx new file mode 100644 index 00000000..9b081d08 --- /dev/null +++ b/SQLEditor/frmSQLEditor.resx @@ -0,0 +1,159 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAO4BAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iU2F2ZSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAgMzIg + MzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cjwvc3R5 + bGU+DQogIDxwYXRoIGQ9Ik0yNyw0aC0zdjEwSDhWNEg1QzQuNCw0LDQsNC40LDQsNXYyMmMwLDAuNiww + LjQsMSwxLDFoMjJjMC42LDAsMS0wLjQsMS0xVjVDMjgsNC40LDI3LjYsNCwyNyw0eiBNMjQsMjRIOHYt + NiAgaDE2VjI0eiBNMTAsNHY4aDEwVjRIMTB6IE0xNCwxMGgtMlY2aDJWMTB6IiBjbGFzcz0iQmxhY2si + IC8+DQo8L3N2Zz4L + + + + + AAEAAAD/////AQAAAAAAAAAMAgAAAFlEZXZFeHByZXNzLkRhdGEudjE5LjIsIFZlcnNpb249MTkuMi4z + LjAsIEN1bHR1cmU9bmV1dHJhbCwgUHVibGljS2V5VG9rZW49Yjg4ZDE3NTRkNzAwZTQ5YQUBAAAAHURl + dkV4cHJlc3MuVXRpbHMuU3ZnLlN2Z0ltYWdlAQAAAAREYXRhBwICAAAACQMAAAAPAwAAAF4DAAAC77u/ + PD94bWwgdmVyc2lvbj0nMS4wJyBlbmNvZGluZz0nVVRGLTgnPz4NCjxzdmcgeD0iMHB4IiB5PSIwcHgi + IHZpZXdCb3g9IjAgMCAzMiAzMiIgdmVyc2lvbj0iMS4xIiB4bWxucz0iaHR0cDovL3d3dy53My5vcmcv + MjAwMC9zdmciIHhtbG5zOnhsaW5rPSJodHRwOi8vd3d3LnczLm9yZy8xOTk5L3hsaW5rIiB4bWw6c3Bh + Y2U9InByZXNlcnZlIiBpZD0iTGF5ZXJfMSIgc3R5bGU9ImVuYWJsZS1iYWNrZ3JvdW5kOm5ldyAwIDAg + MzIgMzIiPg0KICA8c3R5bGUgdHlwZT0idGV4dC9jc3MiPgoJLkJsYWNre2ZpbGw6IzcyNzI3Mjt9Cgku + WWVsbG93e2ZpbGw6I0ZGQjExNTt9CgkuQmx1ZXtmaWxsOiMxMTc3RDc7fQoJLkdyZWVue2ZpbGw6IzAz + OUMyMzt9CgkuUmVke2ZpbGw6I0QxMUMxQzt9CgkuV2hpdGV7ZmlsbDojRkZGRkZGO30KCS5zdDB7b3Bh + Y2l0eTowLjc1O30KCS5zdDF7b3BhY2l0eTowLjU7fQoJLnN0MntvcGFjaXR5OjAuMjU7fQo8L3N0eWxl + Pg0KICA8ZyBpZD0iRGF0YXNvdXJjZSI+DQogICAgPHBhdGggZD0iTTYsNmgxMnYySDZWNnogTTE0LDI0 + SDRWMmgxNnYxMC4yYzAuNi0wLjEsMS4zLTAuMiwyLTAuMlYxYzAtMC41LTAuNS0xLTEtMUgzQzIuNSww + LDIsMC41LDIsMXYyNCAgIGMwLDAuNSwwLjUsMSwxLDFoMTFWMjR6IE02LDIwaDh2LTJINlYyMHogTTYs + MTZoOC4yYzAuMi0wLjgsMC43LTEuNCwxLjUtMkg2VjE2eiIgY2xhc3M9IkJsYWNrIiAvPg0KICAgIDxw + YXRoIGQ9Ik0xOCwxMkg2di0yaDEyVjEyeiBNMjMsMTRjLTMuOSwwLTcsMS4zLTcsM3YxMmMwLDEuNywz + LjEsMyw3LDNzNy0xLjMsNy0zVjE3QzMwLDE1LjMsMjYuOSwxNCwyMywxNHoiIGNsYXNzPSJZZWxsb3ci + IC8+DQogIDwvZz4NCjwvc3ZnPgs= + + + \ No newline at end of file diff --git a/SQLEditor/frmSQLEditor.vb b/SQLEditor/frmSQLEditor.vb index 8bec02d1..33c10009 100644 --- a/SQLEditor/frmSQLEditor.vb +++ b/SQLEditor/frmSQLEditor.vb @@ -1,3 +1,44 @@ -Public Class frmSQLEditor +Imports DigitalData.Modules.Logging +Public Class frmSQLEditor + Private ReadOnly _LogConfig As LogConfig + Private ReadOnly _Logger As Logger + Private ReadOnly _Connections As DataTable + + Public Sub New(LogConfig As LogConfig, DatatableConnections As DataTable) + ' Dieser Aufruf ist für den Designer erforderlich. + InitializeComponent() + + ' Fügen Sie Initialisierungen nach dem InitializeComponent()-Aufruf hinzu. + _LogConfig = LogConfig + _Logger = LogConfig.GetLogger() + _Connections = DatatableConnections + End Sub + + Private Sub frmSQLEditor_Load(sender As Object, e As EventArgs) Handles MyBase.Load + LoadConnections() + End Sub + + Private Sub LoadConnections() + Try + For Each oRow As DataRow In _Connections.Rows + cmbConnections.Properties.Items.Add( + New Connection() With { + .Name = oRow.Item("BEZEICHNUNG"), + .Value = oRow.Item("GUID") + }) + Next + Catch ex As Exception + _Logger.Error(ex) + End Try + End Sub + + Private Class Connection + Public Property Value + Public Property Name + + Public Overrides Function ToString() As String + Return Name + End Function + End Class End Class \ No newline at end of file diff --git a/SQLEditor/packages.config b/SQLEditor/packages.config new file mode 100644 index 00000000..1baeaab3 --- /dev/null +++ b/SQLEditor/packages.config @@ -0,0 +1,4 @@ + + + + \ No newline at end of file diff --git a/SQLEditorTest/App.config b/SQLEditorTest/App.config new file mode 100644 index 00000000..ffaf5407 --- /dev/null +++ b/SQLEditorTest/App.config @@ -0,0 +1,6 @@ + + + + + + \ No newline at end of file diff --git a/SQLEditorTest/Form1.Designer.vb b/SQLEditorTest/Form1.Designer.vb new file mode 100644 index 00000000..88a5a083 --- /dev/null +++ b/SQLEditorTest/Form1.Designer.vb @@ -0,0 +1,38 @@ + _ +Partial Class Form1 + Inherits System.Windows.Forms.Form + + 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. + _ + Protected Overrides Sub Dispose(ByVal disposing As Boolean) + Try + If disposing AndAlso components IsNot Nothing Then + components.Dispose() + End If + Finally + MyBase.Dispose(disposing) + End Try + End Sub + + 'Wird vom Windows Form-Designer benötigt. + Private components As System.ComponentModel.IContainer + + 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. + 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. + 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. + _ + Private Sub InitializeComponent() + Me.SuspendLayout() + ' + 'Form1 + ' + Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) + Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font + Me.ClientSize = New System.Drawing.Size(800, 450) + Me.Name = "Form1" + Me.Text = "Form1" + Me.ResumeLayout(False) + + End Sub + +End Class diff --git a/SQLEditorTest/Form1.resx b/SQLEditorTest/Form1.resx new file mode 100644 index 00000000..1af7de15 --- /dev/null +++ b/SQLEditorTest/Form1.resx @@ -0,0 +1,120 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SQLEditorTest/Form1.vb b/SQLEditorTest/Form1.vb new file mode 100644 index 00000000..138bcd46 --- /dev/null +++ b/SQLEditorTest/Form1.vb @@ -0,0 +1,15 @@ +Imports DigitalData.Controls.SQLEditor +Imports DigitalData.Modules.Logging +Imports DigitalData.Modules.Database + +Public Class Form1 + Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load + Dim oLogCOnfig As New LogConfig(LogConfig.PathType.Temp, Nothing, Nothing, Nothing, Nothing) + Dim oConnString = MSSQLServer.GetConnectionString("SDD-VMP04-SQL17\DD_DEVELOP01", "DD_ECM_TEST", "sa", "dd") + Dim oDatabase As New MSSQLServer(oLogCOnfig, oConnString) + Dim oConnections As DataTable = oDatabase.GetDatatable("SELECT * FROM TBDD_CONNECTION") + Dim oEditor As New frmSQLEditor(oLogCOnfig, oConnections) + + oEditor.Show() + End Sub +End Class diff --git a/SQLEditorTest/My Project/Application.Designer.vb b/SQLEditorTest/My Project/Application.Designer.vb new file mode 100644 index 00000000..fa332de2 --- /dev/null +++ b/SQLEditorTest/My Project/Application.Designer.vb @@ -0,0 +1,38 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + 'NOTE: This file is auto-generated; do not modify it directly. To make changes, + ' or if you encounter build errors in this file, go to the Project Designer + ' (go to Project Properties or double-click the My Project node in + ' Solution Explorer), and make changes on the Application tab. + ' + Partial Friend Class MyApplication + + _ + Public Sub New() + MyBase.New(Global.Microsoft.VisualBasic.ApplicationServices.AuthenticationMode.Windows) + Me.IsSingleInstance = false + Me.EnableVisualStyles = true + Me.SaveMySettingsOnExit = true + Me.ShutDownStyle = Global.Microsoft.VisualBasic.ApplicationServices.ShutdownMode.AfterMainFormCloses + End Sub + + _ + Protected Overrides Sub OnCreateMainForm() + Me.MainForm = Global.SQLEditorTest.Form1 + End Sub + End Class +End Namespace diff --git a/SQLEditorTest/My Project/Application.myapp b/SQLEditorTest/My Project/Application.myapp new file mode 100644 index 00000000..1243847f --- /dev/null +++ b/SQLEditorTest/My Project/Application.myapp @@ -0,0 +1,11 @@ + + + true + Form1 + false + 0 + true + 0 + 0 + true + diff --git a/SQLEditorTest/My Project/AssemblyInfo.vb b/SQLEditorTest/My Project/AssemblyInfo.vb new file mode 100644 index 00000000..5a0f6e8f --- /dev/null +++ b/SQLEditorTest/My Project/AssemblyInfo.vb @@ -0,0 +1,35 @@ +Imports System +Imports System.Reflection +Imports System.Runtime.InteropServices + +' Allgemeine Informationen über eine Assembly werden über die folgenden +' Attribute gesteuert. Ändern Sie diese Attributwerte, um die Informationen zu ändern, +' die einer Assembly zugeordnet sind. + +' Werte der Assemblyattribute überprüfen + + + + + + + + + + +'Die folgende GUID wird für die typelib-ID verwendet, wenn dieses Projekt für COM verfügbar gemacht wird. + + +' Versionsinformationen für eine Assembly bestehen aus den folgenden vier Werten: +' +' Hauptversion +' Nebenversion +' Buildnummer +' Revision +' +' Sie können alle Werte angeben oder Standardwerte für die Build- und Revisionsnummern verwenden, +' indem Sie "*" wie unten gezeigt eingeben: +' + + + diff --git a/SQLEditorTest/My Project/Resources.Designer.vb b/SQLEditorTest/My Project/Resources.Designer.vb new file mode 100644 index 00000000..3ddc0f13 --- /dev/null +++ b/SQLEditorTest/My Project/Resources.Designer.vb @@ -0,0 +1,62 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My.Resources + + 'This class was auto-generated by the StronglyTypedResourceBuilder + 'class via a tool like ResGen or Visual Studio. + 'To add or remove a member, edit your .ResX file then rerun ResGen + 'with the /str option, or rebuild your VS project. + ''' + ''' A strongly-typed resource class, for looking up localized strings, etc. + ''' + _ + Friend Module Resources + + Private resourceMan As Global.System.Resources.ResourceManager + + Private resourceCulture As Global.System.Globalization.CultureInfo + + ''' + ''' Returns the cached ResourceManager instance used by this class. + ''' + _ + Friend ReadOnly Property ResourceManager() As Global.System.Resources.ResourceManager + Get + If Object.ReferenceEquals(resourceMan, Nothing) Then + Dim temp As Global.System.Resources.ResourceManager = New Global.System.Resources.ResourceManager("SQLEditorTest.Resources", GetType(Resources).Assembly) + resourceMan = temp + End If + Return resourceMan + End Get + End Property + + ''' + ''' Overrides the current thread's CurrentUICulture property for all + ''' resource lookups using this strongly typed resource class. + ''' + _ + Friend Property Culture() As Global.System.Globalization.CultureInfo + Get + Return resourceCulture + End Get + Set(ByVal value As Global.System.Globalization.CultureInfo) + resourceCulture = value + End Set + End Property + End Module +End Namespace diff --git a/SQLEditorTest/My Project/Resources.resx b/SQLEditorTest/My Project/Resources.resx new file mode 100644 index 00000000..af7dbebb --- /dev/null +++ b/SQLEditorTest/My Project/Resources.resx @@ -0,0 +1,117 @@ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + text/microsoft-resx + + + 2.0 + + + System.Resources.ResXResourceReader, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + + System.Resources.ResXResourceWriter, System.Windows.Forms, Version=2.0.0.0, Culture=neutral, PublicKeyToken=b77a5c561934e089 + + \ No newline at end of file diff --git a/SQLEditorTest/My Project/Settings.Designer.vb b/SQLEditorTest/My Project/Settings.Designer.vb new file mode 100644 index 00000000..28331798 --- /dev/null +++ b/SQLEditorTest/My Project/Settings.Designer.vb @@ -0,0 +1,73 @@ +'------------------------------------------------------------------------------ +' +' This code was generated by a tool. +' Runtime Version:4.0.30319.42000 +' +' Changes to this file may cause incorrect behavior and will be lost if +' the code is regenerated. +' +'------------------------------------------------------------------------------ + +Option Strict On +Option Explicit On + + +Namespace My + + _ + Partial Friend NotInheritable Class MySettings + Inherits Global.System.Configuration.ApplicationSettingsBase + + Private Shared defaultInstance As MySettings = CType(Global.System.Configuration.ApplicationSettingsBase.Synchronized(New MySettings), MySettings) + +#Region "My.Settings Auto-Save Functionality" +#If _MyType = "WindowsForms" Then + Private Shared addedHandler As Boolean + + Private Shared addedHandlerLockObject As New Object + + _ + Private Shared Sub AutoSaveSettings(ByVal sender As Global.System.Object, ByVal e As Global.System.EventArgs) + If My.Application.SaveMySettingsOnExit Then + My.Settings.Save() + End If + End Sub +#End If +#End Region + + Public Shared ReadOnly Property [Default]() As MySettings + Get + +#If _MyType = "WindowsForms" Then + If Not addedHandler Then + SyncLock addedHandlerLockObject + If Not addedHandler Then + AddHandler My.Application.Shutdown, AddressOf AutoSaveSettings + addedHandler = True + End If + End SyncLock + End If +#End If + Return defaultInstance + End Get + End Property + End Class +End Namespace + +Namespace My + + _ + Friend Module MySettingsProperty + + _ + Friend ReadOnly Property Settings() As Global.SQLEditorTest.My.MySettings + Get + Return Global.SQLEditorTest.My.MySettings.Default + End Get + End Property + End Module +End Namespace diff --git a/SQLEditorTest/My Project/Settings.settings b/SQLEditorTest/My Project/Settings.settings new file mode 100644 index 00000000..85b890b3 --- /dev/null +++ b/SQLEditorTest/My Project/Settings.settings @@ -0,0 +1,7 @@ + + + + + + + diff --git a/SQLEditorTest/SQLEditorTest.vbproj b/SQLEditorTest/SQLEditorTest.vbproj new file mode 100644 index 00000000..f4b286d8 --- /dev/null +++ b/SQLEditorTest/SQLEditorTest.vbproj @@ -0,0 +1,138 @@ + + + + + Debug + AnyCPU + {4B0AED11-31C4-431A-B488-72392B63E6E6} + WinExe + SQLEditorTest.My.MyApplication + SQLEditorTest + SQLEditorTest + 512 + WindowsForms + v4.7.2 + true + true + + + AnyCPU + true + full + true + true + bin\Debug\ + SQLEditorTest.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + AnyCPU + pdbonly + false + true + true + bin\Release\ + SQLEditorTest.xml + 42016,41999,42017,42018,42019,42032,42036,42020,42021,42022 + + + On + + + Binary + + + Off + + + On + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + Form + + + Form1.vb + Form + + + + True + Application.myapp + + + True + True + Resources.resx + + + True + Settings.settings + True + + + + + Form1.vb + + + VbMyResourcesResXFileCodeGenerator + Resources.Designer.vb + My.Resources + Designer + + + + + MyApplicationCodeGenerator + Application.Designer.vb + + + SettingsSingleFileGenerator + My + Settings.Designer.vb + + + + + + {eaf0ea75-5fa7-485d-89c7-b2d843b03a96} + Database + + + {903B2D7D-3B80-4BE9-8713-7447B704E1B0} + Logging + + + {e707bf50-6799-42b2-869f-e10641d51219} + SQLEditor + + + + \ No newline at end of file