This commit is contained in:
Digital Data - Marlon Schreiber 2018-04-24 14:08:21 +02:00
parent 632ebf9662
commit 0443e0cdce
3 changed files with 19 additions and 7 deletions

View File

@ -26,7 +26,7 @@ Partial Class frmConnection
Dim GEANDERTWERLabel As System.Windows.Forms.Label
Dim GEAENDERTWANNLabel 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()
Dim DataGridViewCellStyle2 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()
@ -128,6 +128,7 @@ Partial Class frmConnection
'
'txtBezeichnung
'
Me.txtBezeichnung.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONNECTIONBindingSource, "BEZEICHNUNG", True))
Me.txtBezeichnung.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtBezeichnung.Location = New System.Drawing.Point(231, 36)
Me.txtBezeichnung.Name = "txtBezeichnung"
@ -208,6 +209,7 @@ Partial Class frmConnection
'
'txtPassword
'
Me.txtPassword.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONNECTIONBindingSource, "PASSWORD", True))
Me.txtPassword.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtPassword.Location = New System.Drawing.Point(230, 136)
Me.txtPassword.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
@ -215,10 +217,12 @@ Partial Class frmConnection
Me.txtPassword.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.txtPassword.Size = New System.Drawing.Size(137, 25)
Me.txtPassword.TabIndex = 7
Me.txtPassword.UseSystemPasswordChar = True
Me.txtPassword.Visible = False
'
'txtUserId
'
Me.txtUserId.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONNECTIONBindingSource, "USERNAME", True))
Me.txtUserId.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtUserId.Location = New System.Drawing.Point(14, 136)
Me.txtUserId.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
@ -262,6 +266,7 @@ Partial Class frmConnection
'
'cmbDbArt
'
Me.cmbDbArt.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONNECTIONBindingSource, "SQL_PROVIDER", True))
Me.cmbDbArt.DropDownStyle = System.Windows.Forms.ComboBoxStyle.DropDownList
Me.cmbDbArt.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmbDbArt.FormattingEnabled = True
@ -284,6 +289,7 @@ Partial Class frmConnection
'
'txtDatasource2
'
Me.txtDatasource2.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONNECTIONBindingSource, "DATENBANK", True))
Me.txtDatasource2.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDatasource2.Location = New System.Drawing.Point(231, 86)
Me.txtDatasource2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
@ -425,8 +431,8 @@ Partial Class frmConnection
'
Me.TBPM_CONNECTIONDataGridView.AllowUserToAddRows = False
Me.TBPM_CONNECTIONDataGridView.AllowUserToDeleteRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua
Me.TBPM_CONNECTIONDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1
DataGridViewCellStyle2.BackColor = System.Drawing.Color.Aqua
Me.TBPM_CONNECTIONDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.TBPM_CONNECTIONDataGridView.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _
Or System.Windows.Forms.AnchorStyles.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@ -500,6 +506,7 @@ Partial Class frmConnection
'
'txtDatasource1
'
Me.txtDatasource1.DataBindings.Add(New System.Windows.Forms.Binding("Text", Me.TBPM_CONNECTIONBindingSource, "SERVER", True))
Me.txtDatasource1.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.txtDatasource1.Location = New System.Drawing.Point(14, 86)
Me.txtDatasource1.Name = "txtDatasource1"
@ -529,11 +536,10 @@ Partial Class frmConnection
Me.grpbx_ConnAdd.Controls.Add(Me.txtBezeichnung)
Me.grpbx_ConnAdd.Location = New System.Drawing.Point(15, 28)
Me.grpbx_ConnAdd.Name = "grpbx_ConnAdd"
Me.grpbx_ConnAdd.Size = New System.Drawing.Size(540, 208)
Me.grpbx_ConnAdd.Size = New System.Drawing.Size(781, 256)
Me.grpbx_ConnAdd.TabIndex = 61
Me.grpbx_ConnAdd.TabStop = False
Me.grpbx_ConnAdd.Text = "Definition Verbindung:"
Me.grpbx_ConnAdd.Visible = False
'
'btnadd
'

View File

@ -126,6 +126,12 @@
<metadata name="TBPM_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>179, 17</value>
</metadata>
<metadata name="TBPM_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>179, 17</value>
</metadata>
<metadata name="DD_DMSLiteDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>
<metadata name="DD_DMSLiteDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value>
</metadata>

View File

@ -201,7 +201,7 @@ Public Class frmConnection
Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
TBPM_CONNECTIONBindingSource.AddNew()
Me.grpbx_ConnAdd.Visible = True
' Me.grpbx_ConnAdd.Visible = True
End Sub
Private Sub btnadd_Click(sender As Object, e As EventArgs) Handles btnadd.Click
@ -224,7 +224,7 @@ Public Class frmConnection
End Sub
Private Sub TBPM_CONNECTIONDataGridView_SelectionChanged(sender As Object, e As EventArgs) Handles TBPM_CONNECTIONDataGridView.SelectionChanged
grpbx_ConnAdd.Visible = False
' grpbx_ConnAdd.Visible = False
End Sub
Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click