Use Database from Monorepo, Add initial ODBC Support

This commit is contained in:
Jonathan Jenne
2019-08-06 15:41:02 +02:00
parent 6e6a483602
commit 43d3ba5ef2
15 changed files with 237 additions and 364 deletions

View File

@@ -62,11 +62,13 @@ Partial Class frmConnection
Me.BarButtonAdd = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonDelete = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonSave = New DevExpress.XtraBars.BarButtonItem()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.RibbonPage1 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.RibbonPageGroup1 = New DevExpress.XtraBars.Ribbon.RibbonPageGroup()
Me.RibbonStatusBar1 = New DevExpress.XtraBars.Ribbon.RibbonStatusBar()
Me.RibbonPage2 = New DevExpress.XtraBars.Ribbon.RibbonPage()
Me.BarButtonItem1 = New DevExpress.XtraBars.BarButtonItem()
Me.ODBCServerTextBox = New System.Windows.Forms.ComboBox()
Me.Label1 = New System.Windows.Forms.Label()
BEZEICHNUNGLabel = New System.Windows.Forms.Label()
SQL_PROVIDERLabel = New System.Windows.Forms.Label()
SERVERLabel = New System.Windows.Forms.Label()
@@ -129,9 +131,9 @@ Partial Class frmConnection
USERNAMELabel.AutoSize = True
USERNAMELabel.Location = New System.Drawing.Point(14, 123)
USERNAMELabel.Name = "USERNAMELabel"
USERNAMELabel.Size = New System.Drawing.Size(65, 13)
USERNAMELabel.Size = New System.Drawing.Size(76, 13)
USERNAMELabel.TabIndex = 10
USERNAMELabel.Text = "USERNAME:"
USERNAMELabel.Text = "Benutzername"
'
'PASSWORDLabel
'
@@ -200,10 +202,12 @@ Partial Class frmConnection
'
Me.SplitContainerControl1.Dock = System.Windows.Forms.DockStyle.Fill
Me.SplitContainerControl1.IsSplitterFixed = True
Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 122)
Me.SplitContainerControl1.Location = New System.Drawing.Point(0, 125)
Me.SplitContainerControl1.Name = "SplitContainerControl1"
Me.SplitContainerControl1.Panel1.Controls.Add(Me.GridControl1)
Me.SplitContainerControl1.Panel1.Text = "Panel1"
Me.SplitContainerControl1.Panel2.Controls.Add(Me.Label1)
Me.SplitContainerControl1.Panel2.Controls.Add(Me.ODBCServerTextBox)
Me.SplitContainerControl1.Panel2.Controls.Add(Me.chkWinAuth)
Me.SplitContainerControl1.Panel2.Controls.Add(GUIDLabel)
Me.SplitContainerControl1.Panel2.Controls.Add(Me.GUIDTextBox)
@@ -230,7 +234,7 @@ Partial Class frmConnection
Me.SplitContainerControl1.Panel2.Controls.Add(GEAENDERTWANNLabel)
Me.SplitContainerControl1.Panel2.Controls.Add(Me.GEAENDERTWANNDateTimePicker)
Me.SplitContainerControl1.Panel2.Text = "Panel2"
Me.SplitContainerControl1.Size = New System.Drawing.Size(714, 376)
Me.SplitContainerControl1.Size = New System.Drawing.Size(714, 383)
Me.SplitContainerControl1.SplitterPosition = 241
Me.SplitContainerControl1.TabIndex = 0
Me.SplitContainerControl1.Text = "SplitContainerControl1"
@@ -242,7 +246,7 @@ Partial Class frmConnection
Me.GridControl1.Location = New System.Drawing.Point(0, 0)
Me.GridControl1.MainView = Me.GridView1
Me.GridControl1.Name = "GridControl1"
Me.GridControl1.Size = New System.Drawing.Size(241, 376)
Me.GridControl1.Size = New System.Drawing.Size(241, 383)
Me.GridControl1.TabIndex = 0
Me.GridControl1.ViewCollection.AddRange(New DevExpress.XtraGrid.Views.Base.BaseView() {Me.GridView1})
'
@@ -282,7 +286,7 @@ Partial Class frmConnection
'chkWinAuth
'
Me.chkWinAuth.AutoSize = True
Me.chkWinAuth.Location = New System.Drawing.Point(223, 181)
Me.chkWinAuth.Location = New System.Drawing.Point(223, 179)
Me.chkWinAuth.Name = "chkWinAuth"
Me.chkWinAuth.Size = New System.Drawing.Size(154, 17)
Me.chkWinAuth.TabIndex = 31
@@ -295,6 +299,7 @@ Partial Class frmConnection
Me.GUIDTextBox.Enabled = False
Me.GUIDTextBox.Location = New System.Drawing.Point(17, 19)
Me.GUIDTextBox.Name = "GUIDTextBox"
Me.GUIDTextBox.ReadOnly = True
Me.GUIDTextBox.Size = New System.Drawing.Size(200, 21)
Me.GUIDTextBox.TabIndex = 29
'
@@ -312,7 +317,7 @@ Partial Class frmConnection
Me.SQL_PROVIDERComboBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "SQL_PROVIDER", True))
Me.SQL_PROVIDERComboBox.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.SQL_PROVIDERComboBox.FormattingEnabled = True
Me.SQL_PROVIDERComboBox.Items.AddRange(New Object() {"MS-SQL", "ORACLE"})
Me.SQL_PROVIDERComboBox.Items.AddRange(New Object() {"MS-SQL", "ORACLE", "ODBC"})
Me.SQL_PROVIDERComboBox.Location = New System.Drawing.Point(17, 59)
Me.SQL_PROVIDERComboBox.Name = "SQL_PROVIDERComboBox"
Me.SQL_PROVIDERComboBox.Size = New System.Drawing.Size(200, 21)
@@ -425,7 +430,7 @@ Partial Class frmConnection
Me.RibbonControl1.Pages.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPage() {Me.RibbonPage1})
Me.RibbonControl1.ShowApplicationButton = DevExpress.Utils.DefaultBoolean.[False]
Me.RibbonControl1.ShowPageHeadersMode = DevExpress.XtraBars.Ribbon.ShowPageHeadersMode.Hide
Me.RibbonControl1.Size = New System.Drawing.Size(714, 122)
Me.RibbonControl1.Size = New System.Drawing.Size(714, 125)
Me.RibbonControl1.StatusBar = Me.RibbonStatusBar1
'
'BarButtonAdd
@@ -452,6 +457,14 @@ Partial Class frmConnection
Me.BarButtonSave.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonSave.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonSave.Name = "BarButtonSave"
'
'BarButtonItem1
'
Me.BarButtonItem1.Caption = "Verbindungstest"
Me.BarButtonItem1.Id = 4
Me.BarButtonItem1.ImageOptions.Image = CType(resources.GetObject("BarButtonItem1.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem1.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem1.Name = "BarButtonItem1"
'
'RibbonPage1
'
Me.RibbonPage1.Groups.AddRange(New DevExpress.XtraBars.Ribbon.RibbonPageGroup() {Me.RibbonPageGroup1})
@@ -469,23 +482,32 @@ Partial Class frmConnection
'
'RibbonStatusBar1
'
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 498)
Me.RibbonStatusBar1.Location = New System.Drawing.Point(0, 508)
Me.RibbonStatusBar1.Name = "RibbonStatusBar1"
Me.RibbonStatusBar1.Ribbon = Me.RibbonControl1
Me.RibbonStatusBar1.Size = New System.Drawing.Size(714, 31)
Me.RibbonStatusBar1.Size = New System.Drawing.Size(714, 21)
'
'RibbonPage2
'
Me.RibbonPage2.Name = "RibbonPage2"
Me.RibbonPage2.Text = "RibbonPage2"
'
'BarButtonItem1
'ODBCServerTextBox
'
Me.BarButtonItem1.Caption = "Verbindungstest"
Me.BarButtonItem1.Id = 4
Me.BarButtonItem1.ImageOptions.Image = CType(resources.GetObject("BarButtonItem1.ImageOptions.Image"), System.Drawing.Image)
Me.BarButtonItem1.ImageOptions.LargeImage = CType(resources.GetObject("BarButtonItem1.ImageOptions.LargeImage"), System.Drawing.Image)
Me.BarButtonItem1.Name = "BarButtonItem1"
Me.ODBCServerTextBox.FormattingEnabled = True
Me.ODBCServerTextBox.Location = New System.Drawing.Point(223, 19)
Me.ODBCServerTextBox.Name = "ODBCServerTextBox"
Me.ODBCServerTextBox.Size = New System.Drawing.Size(200, 21)
Me.ODBCServerTextBox.TabIndex = 32
'
'Label1
'
Me.Label1.AutoSize = True
Me.Label1.Location = New System.Drawing.Point(220, 3)
Me.Label1.Name = "Label1"
Me.Label1.Size = New System.Drawing.Size(101, 13)
Me.Label1.TabIndex = 33
Me.Label1.Text = "ODBC Verbindung *"
'
'frmConnection
'
@@ -495,7 +517,7 @@ Partial Class frmConnection
Me.Controls.Add(Me.SplitContainerControl1)
Me.Controls.Add(Me.RibbonStatusBar1)
Me.Controls.Add(Me.RibbonControl1)
Me.MinimumSize = New System.Drawing.Size(724, 451)
Me.MinimumSize = New System.Drawing.Size(716, 451)
Me.Name = "frmConnection"
Me.Ribbon = Me.RibbonControl1
Me.ShowIcon = False
@@ -544,4 +566,6 @@ Partial Class frmConnection
Friend WithEvents BarButtonSave As DevExpress.XtraBars.BarButtonItem
Friend WithEvents GUIDTextBox As TextBox
Friend WithEvents BarButtonItem1 As DevExpress.XtraBars.BarButtonItem
Friend WithEvents ODBCServerTextBox As ComboBox
Friend WithEvents Label1 As Label
End Class