MS ConnectionForm

This commit is contained in:
Digital Data - Marlon Schreiber
2018-06-12 11:45:23 +02:00
parent 60891b9721
commit 72c71ae651
7 changed files with 222 additions and 197 deletions

View File

@@ -25,11 +25,14 @@ Partial Class frmConnection
Me.components = New System.ComponentModel.Container()
Dim GEANDERTWERLabel As System.Windows.Forms.Label
Dim GEAENDERTWANNLabel As System.Windows.Forms.Label
Dim GUIDLabel As System.Windows.Forms.Label
Dim resources As System.ComponentModel.ComponentResourceManager = New System.ComponentModel.ComponentResourceManager(GetType(frmConnection))
Dim DataGridViewCellStyle1 As System.Windows.Forms.DataGridViewCellStyle = New System.Windows.Forms.DataGridViewCellStyle()
Me.chkOR_ohne_TNS = New System.Windows.Forms.CheckBox()
Me.Chckwin_aut = New System.Windows.Forms.CheckBox()
Me.txtBezeichnung = New System.Windows.Forms.TextBox()
Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet()
Me.Label1 = New System.Windows.Forms.Label()
Me.btnCheck_Con = New System.Windows.Forms.Button()
Me.lblDatasource2 = New System.Windows.Forms.Label()
@@ -53,15 +56,11 @@ Partial Class frmConnection
Me.BindingNavigatorMoveNextItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorMoveLastItem = New System.Windows.Forms.ToolStripButton()
Me.BindingNavigatorSeparator2 = New System.Windows.Forms.ToolStripSeparator()
Me.ToolStripButton3 = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton1 = New System.Windows.Forms.ToolStripButton()
Me.TBDD_CONNECTIONBindingNavigatorSaveItem = New System.Windows.Forms.ToolStripButton()
Me.ToolStripButton2 = New System.Windows.Forms.ToolStripButton()
Me.TBDD_CONNECTIONDataGridView = New System.Windows.Forms.DataGridView()
Me.GEANDERTWERTextBox = New System.Windows.Forms.TextBox()
Me.btnadd = New System.Windows.Forms.Button()
Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox()
Me.TBDD_CONNECTIONBindingSource = New System.Windows.Forms.BindingSource(Me.components)
Me.DD_DMSLiteDataSet = New DD_PM_WINDREAM.DD_DMSLiteDataSet()
Me.DataGridViewTextBoxColumn1 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn2 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn3 = New System.Windows.Forms.DataGridViewTextBoxColumn()
@@ -70,16 +69,20 @@ Partial Class frmConnection
Me.DataGridViewTextBoxColumn6 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewTextBoxColumn8 = New System.Windows.Forms.DataGridViewTextBoxColumn()
Me.DataGridViewCheckBoxColumn1 = New System.Windows.Forms.DataGridViewCheckBoxColumn()
Me.GEANDERTWERTextBox = New System.Windows.Forms.TextBox()
Me.GEAENDERTWANNTextBox = New System.Windows.Forms.TextBox()
Me.SERVERTextBox = New System.Windows.Forms.TextBox()
Me.GUIDTextBox = New System.Windows.Forms.TextBox()
Me.TableAdapterManager = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TableAdapterManager()
Me.TBDD_CONNECTIONTableAdapter = New DD_PM_WINDREAM.DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter()
Me.txtDatasource1 = New System.Windows.Forms.TextBox()
GEANDERTWERLabel = New System.Windows.Forms.Label()
GEAENDERTWANNLabel = New System.Windows.Forms.Label()
GUIDLabel = New System.Windows.Forms.Label()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_CONNECTIONBindingNavigator, System.ComponentModel.ISupportInitialize).BeginInit()
Me.TBDD_CONNECTIONBindingNavigator.SuspendLayout()
CType(Me.TBDD_CONNECTIONDataGridView, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).BeginInit()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).BeginInit()
Me.SuspendLayout()
'
'GEANDERTWERLabel
@@ -100,6 +103,15 @@ Partial Class frmConnection
GEAENDERTWANNLabel.TabIndex = 62
GEAENDERTWANNLabel.Text = "wann:"
'
'GUIDLabel
'
GUIDLabel.AutoSize = True
GUIDLabel.Location = New System.Drawing.Point(529, 36)
GUIDLabel.Name = "GUIDLabel"
GUIDLabel.Size = New System.Drawing.Size(25, 16)
GUIDLabel.TabIndex = 64
GUIDLabel.Text = "ID:"
'
'chkOR_ohne_TNS
'
Me.chkOR_ohne_TNS.AutoSize = True
@@ -119,7 +131,7 @@ Partial Class frmConnection
Me.Chckwin_aut.Location = New System.Drawing.Point(12, 191)
Me.Chckwin_aut.Name = "Chckwin_aut"
Me.Chckwin_aut.Size = New System.Drawing.Size(180, 20)
Me.Chckwin_aut.TabIndex = 44
Me.Chckwin_aut.TabIndex = 8
Me.Chckwin_aut.Text = "Windows-Authentifizierung"
Me.Chckwin_aut.UseVisualStyleBackColor = True
Me.Chckwin_aut.Visible = False
@@ -131,7 +143,17 @@ Partial Class frmConnection
Me.txtBezeichnung.Location = New System.Drawing.Point(232, 53)
Me.txtBezeichnung.Name = "txtBezeichnung"
Me.txtBezeichnung.Size = New System.Drawing.Size(294, 23)
Me.txtBezeichnung.TabIndex = 41
Me.txtBezeichnung.TabIndex = 1
'
'TBDD_CONNECTIONBindingSource
'
Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION"
Me.TBDD_CONNECTIONBindingSource.DataSource = Me.DD_DMSLiteDataSet
'
'DD_DMSLiteDataSet
'
Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet"
Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'Label1
'
@@ -152,7 +174,7 @@ Partial Class frmConnection
Me.btnCheck_Con.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.btnCheck_Con.Name = "btnCheck_Con"
Me.btnCheck_Con.Size = New System.Drawing.Size(152, 28)
Me.btnCheck_Con.TabIndex = 39
Me.btnCheck_Con.TabIndex = 7
Me.btnCheck_Con.Text = "Test DB-Verbindung"
Me.btnCheck_Con.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnCheck_Con.UseVisualStyleBackColor = True
@@ -190,7 +212,7 @@ Partial Class frmConnection
Me.btnMdbLocation.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.btnMdbLocation.Name = "btnMdbLocation"
Me.btnMdbLocation.Size = New System.Drawing.Size(29, 26)
Me.btnMdbLocation.TabIndex = 32
Me.btnMdbLocation.TabIndex = 4
Me.btnMdbLocation.Text = "..."
Me.btnMdbLocation.UseVisualStyleBackColor = True
Me.btnMdbLocation.Visible = False
@@ -204,7 +226,7 @@ Partial Class frmConnection
Me.txtPassword.Name = "txtPassword"
Me.txtPassword.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.txtPassword.Size = New System.Drawing.Size(137, 23)
Me.txtPassword.TabIndex = 7
Me.txtPassword.TabIndex = 6
Me.txtPassword.UseSystemPasswordChar = True
Me.txtPassword.Visible = False
'
@@ -216,7 +238,7 @@ Partial Class frmConnection
Me.txtUserId.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.txtUserId.Name = "txtUserId"
Me.txtUserId.Size = New System.Drawing.Size(200, 23)
Me.txtUserId.TabIndex = 6
Me.txtUserId.TabIndex = 5
Me.txtUserId.Visible = False
'
'lblPassword
@@ -263,7 +285,7 @@ Partial Class frmConnection
Me.cmbDbArt.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.cmbDbArt.Name = "cmbDbArt"
Me.cmbDbArt.Size = New System.Drawing.Size(210, 24)
Me.cmbDbArt.TabIndex = 1
Me.cmbDbArt.TabIndex = 0
'
'lblDatenbanktyp
'
@@ -283,7 +305,7 @@ Partial Class frmConnection
Me.txtDatasource2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.txtDatasource2.Name = "txtDatasource2"
Me.txtDatasource2.Size = New System.Drawing.Size(259, 23)
Me.txtDatasource2.TabIndex = 35
Me.txtDatasource2.TabIndex = 3
Me.txtDatasource2.Visible = False
'
'TBDD_CONNECTIONBindingNavigator
@@ -293,7 +315,7 @@ Partial Class frmConnection
Me.TBDD_CONNECTIONBindingNavigator.CountItem = Me.BindingNavigatorCountItem
Me.TBDD_CONNECTIONBindingNavigator.CountItemFormat = "von {0} Connections"
Me.TBDD_CONNECTIONBindingNavigator.DeleteItem = Nothing
Me.TBDD_CONNECTIONBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.ToolStripButton1, Me.TBDD_CONNECTIONBindingNavigatorSaveItem, Me.ToolStripButton2})
Me.TBDD_CONNECTIONBindingNavigator.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.BindingNavigatorMoveFirstItem, Me.BindingNavigatorMovePreviousItem, Me.BindingNavigatorSeparator, Me.BindingNavigatorPositionItem, Me.BindingNavigatorCountItem, Me.BindingNavigatorSeparator1, Me.BindingNavigatorMoveNextItem, Me.BindingNavigatorMoveLastItem, Me.BindingNavigatorSeparator2, Me.ToolStripButton3, Me.ToolStripButton1, Me.TBDD_CONNECTIONBindingNavigatorSaveItem, Me.ToolStripButton2})
Me.TBDD_CONNECTIONBindingNavigator.Location = New System.Drawing.Point(0, 0)
Me.TBDD_CONNECTIONBindingNavigator.MoveFirstItem = Me.BindingNavigatorMoveFirstItem
Me.TBDD_CONNECTIONBindingNavigator.MoveLastItem = Me.BindingNavigatorMoveLastItem
@@ -301,7 +323,7 @@ Partial Class frmConnection
Me.TBDD_CONNECTIONBindingNavigator.MovePreviousItem = Me.BindingNavigatorMovePreviousItem
Me.TBDD_CONNECTIONBindingNavigator.Name = "TBDD_CONNECTIONBindingNavigator"
Me.TBDD_CONNECTIONBindingNavigator.PositionItem = Me.BindingNavigatorPositionItem
Me.TBDD_CONNECTIONBindingNavigator.Size = New System.Drawing.Size(1132, 25)
Me.TBDD_CONNECTIONBindingNavigator.Size = New System.Drawing.Size(1154, 25)
Me.TBDD_CONNECTIONBindingNavigator.TabIndex = 53
Me.TBDD_CONNECTIONBindingNavigator.Text = "BindingNavigator1"
'
@@ -372,6 +394,14 @@ Partial Class frmConnection
Me.BindingNavigatorSeparator2.Name = "BindingNavigatorSeparator2"
Me.BindingNavigatorSeparator2.Size = New System.Drawing.Size(6, 25)
'
'ToolStripButton3
'
Me.ToolStripButton3.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.refresh_16xLG
Me.ToolStripButton3.ImageTransparentColor = System.Drawing.Color.Magenta
Me.ToolStripButton3.Name = "ToolStripButton3"
Me.ToolStripButton3.Size = New System.Drawing.Size(95, 22)
Me.ToolStripButton3.Text = "Aktualisieren"
'
'ToolStripButton1
'
Me.ToolStripButton1.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.add
@@ -411,53 +441,12 @@ Partial Class frmConnection
Me.TBDD_CONNECTIONDataGridView.ColumnHeadersHeightSizeMode = System.Windows.Forms.DataGridViewColumnHeadersHeightSizeMode.AutoSize
Me.TBDD_CONNECTIONDataGridView.Columns.AddRange(New System.Windows.Forms.DataGridViewColumn() {Me.DataGridViewTextBoxColumn1, Me.DataGridViewTextBoxColumn2, Me.DataGridViewTextBoxColumn3, Me.DataGridViewTextBoxColumn4, Me.DataGridViewTextBoxColumn5, Me.DataGridViewTextBoxColumn6, Me.DataGridViewTextBoxColumn8, Me.DataGridViewCheckBoxColumn1})
Me.TBDD_CONNECTIONDataGridView.DataSource = Me.TBDD_CONNECTIONBindingSource
Me.TBDD_CONNECTIONDataGridView.Location = New System.Drawing.Point(15, 303)
Me.TBDD_CONNECTIONDataGridView.Location = New System.Drawing.Point(12, 276)
Me.TBDD_CONNECTIONDataGridView.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.TBDD_CONNECTIONDataGridView.Name = "TBDD_CONNECTIONDataGridView"
Me.TBDD_CONNECTIONDataGridView.Size = New System.Drawing.Size(1111, 316)
Me.TBDD_CONNECTIONDataGridView.Size = New System.Drawing.Size(1133, 316)
Me.TBDD_CONNECTIONDataGridView.TabIndex = 53
'
'GEANDERTWERTextBox
'
Me.GEANDERTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEANDERTWER", True))
Me.GEANDERTWERTextBox.Location = New System.Drawing.Point(12, 246)
Me.GEANDERTWERTextBox.Name = "GEANDERTWERTextBox"
Me.GEANDERTWERTextBox.ReadOnly = True
Me.GEANDERTWERTextBox.Size = New System.Drawing.Size(147, 23)
Me.GEANDERTWERTextBox.TabIndex = 57
'
'btnadd
'
Me.btnadd.Font = New System.Drawing.Font("Tahoma", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.btnadd.Image = Global.DD_PM_WINDREAM.My.Resources.Resources.add
Me.btnadd.ImageAlign = System.Drawing.ContentAlignment.MiddleLeft
Me.btnadd.Location = New System.Drawing.Point(231, 185)
Me.btnadd.Name = "btnadd"
Me.btnadd.Size = New System.Drawing.Size(295, 30)
Me.btnadd.TabIndex = 60
Me.btnadd.Text = "Verbindung hinzufügen"
Me.btnadd.TextAlign = System.Drawing.ContentAlignment.MiddleRight
Me.btnadd.UseVisualStyleBackColor = True
'
'GEAENDERTWANNTextBox
'
Me.GEAENDERTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEAENDERTWANN", True))
Me.GEAENDERTWANNTextBox.Location = New System.Drawing.Point(165, 246)
Me.GEAENDERTWANNTextBox.Name = "GEAENDERTWANNTextBox"
Me.GEAENDERTWANNTextBox.ReadOnly = True
Me.GEAENDERTWANNTextBox.Size = New System.Drawing.Size(155, 23)
Me.GEAENDERTWANNTextBox.TabIndex = 63
'
'TBDD_CONNECTIONBindingSource
'
Me.TBDD_CONNECTIONBindingSource.DataMember = "TBDD_CONNECTION"
Me.TBDD_CONNECTIONBindingSource.DataSource = Me.DD_DMSLiteDataSet
'
'DD_DMSLiteDataSet
'
Me.DD_DMSLiteDataSet.DataSetName = "DD_DMSLiteDataSet"
Me.DD_DMSLiteDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema
'
'DataGridViewTextBoxColumn1
'
Me.DataGridViewTextBoxColumn1.DataPropertyName = "GUID"
@@ -507,6 +496,41 @@ Partial Class frmConnection
Me.DataGridViewCheckBoxColumn1.HeaderText = "Aktiv"
Me.DataGridViewCheckBoxColumn1.Name = "DataGridViewCheckBoxColumn1"
'
'GEANDERTWERTextBox
'
Me.GEANDERTWERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEANDERTWER", True))
Me.GEANDERTWERTextBox.Location = New System.Drawing.Point(12, 246)
Me.GEANDERTWERTextBox.Name = "GEANDERTWERTextBox"
Me.GEANDERTWERTextBox.ReadOnly = True
Me.GEANDERTWERTextBox.Size = New System.Drawing.Size(147, 23)
Me.GEANDERTWERTextBox.TabIndex = 57
'
'GEAENDERTWANNTextBox
'
Me.GEAENDERTWANNTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GEAENDERTWANN", True))
Me.GEAENDERTWANNTextBox.Location = New System.Drawing.Point(165, 246)
Me.GEAENDERTWANNTextBox.Name = "GEAENDERTWANNTextBox"
Me.GEAENDERTWANNTextBox.ReadOnly = True
Me.GEAENDERTWANNTextBox.Size = New System.Drawing.Size(155, 23)
Me.GEAENDERTWANNTextBox.TabIndex = 63
'
'SERVERTextBox
'
Me.SERVERTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "SERVER", True))
Me.SERVERTextBox.Location = New System.Drawing.Point(15, 103)
Me.SERVERTextBox.Name = "SERVERTextBox"
Me.SERVERTextBox.Size = New System.Drawing.Size(210, 23)
Me.SERVERTextBox.TabIndex = 2
'
'GUIDTextBox
'
Me.GUIDTextBox.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "GUID", True))
Me.GUIDTextBox.Location = New System.Drawing.Point(532, 53)
Me.GUIDTextBox.Name = "GUIDTextBox"
Me.GUIDTextBox.ReadOnly = True
Me.GUIDTextBox.Size = New System.Drawing.Size(72, 23)
Me.GUIDTextBox.TabIndex = 65
'
'TableAdapterManager
'
Me.TableAdapterManager.BackupDataSetBeforeUpdate = False
@@ -528,21 +552,14 @@ Partial Class frmConnection
'
Me.TBDD_CONNECTIONTableAdapter.ClearBeforeFill = True
'
'txtDatasource1
'
Me.txtDatasource1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBDD_CONNECTIONBindingSource, "SERVER", True))
Me.txtDatasource1.Location = New System.Drawing.Point(15, 103)
Me.txtDatasource1.Name = "txtDatasource1"
Me.txtDatasource1.Size = New System.Drawing.Size(210, 23)
Me.txtDatasource1.TabIndex = 65
'
'frmConnection
'
Me.AutoScaleDimensions = New System.Drawing.SizeF(7.0!, 16.0!)
Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font
Me.ClientSize = New System.Drawing.Size(1132, 619)
Me.Controls.Add(Me.txtDatasource1)
Me.Controls.Add(Me.btnadd)
Me.ClientSize = New System.Drawing.Size(1154, 619)
Me.Controls.Add(GUIDLabel)
Me.Controls.Add(Me.GUIDTextBox)
Me.Controls.Add(Me.SERVERTextBox)
Me.Controls.Add(GEAENDERTWANNLabel)
Me.Controls.Add(Me.lblDatenbanktyp)
Me.Controls.Add(Me.txtUserId)
@@ -569,12 +586,12 @@ Partial Class frmConnection
Me.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
Me.Name = "frmConnection"
Me.Text = "Verwaltung der Connections"
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_CONNECTIONBindingNavigator, System.ComponentModel.ISupportInitialize).EndInit()
Me.TBDD_CONNECTIONBindingNavigator.ResumeLayout(False)
Me.TBDD_CONNECTIONBindingNavigator.PerformLayout()
CType(Me.TBDD_CONNECTIONDataGridView, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.TBDD_CONNECTIONBindingSource, System.ComponentModel.ISupportInitialize).EndInit()
CType(Me.DD_DMSLiteDataSet, System.ComponentModel.ISupportInitialize).EndInit()
Me.ResumeLayout(False)
Me.PerformLayout()
@@ -620,9 +637,10 @@ Partial Class frmConnection
Friend WithEvents DataGridViewTextBoxColumn8 As System.Windows.Forms.DataGridViewTextBoxColumn
Friend WithEvents DataGridViewCheckBoxColumn1 As System.Windows.Forms.DataGridViewCheckBoxColumn
Friend WithEvents ToolStripButton1 As System.Windows.Forms.ToolStripButton
Friend WithEvents btnadd As System.Windows.Forms.Button
Friend WithEvents GEAENDERTWANNTextBox As System.Windows.Forms.TextBox
Friend WithEvents ToolStripButton2 As System.Windows.Forms.ToolStripButton
Friend WithEvents TBDD_CONNECTIONTableAdapter As DD_DMSLiteDataSetTableAdapters.TBDD_CONNECTIONTableAdapter
Friend WithEvents txtDatasource1 As TextBox
Friend WithEvents SERVERTextBox As TextBox
Friend WithEvents ToolStripButton3 As ToolStripButton
Friend WithEvents GUIDTextBox As TextBox
End Class