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 GEANDERTWERLabel As System.Windows.Forms.Label
Dim GEAENDERTWANNLabel 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 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.chkOR_ohne_TNS = New System.Windows.Forms.CheckBox()
Me.Chckwin_aut = New System.Windows.Forms.CheckBox() Me.Chckwin_aut = New System.Windows.Forms.CheckBox()
Me.txtBezeichnung = New System.Windows.Forms.TextBox() Me.txtBezeichnung = New System.Windows.Forms.TextBox()
@ -128,6 +128,7 @@ Partial Class frmConnection
' '
'txtBezeichnung '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.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.Location = New System.Drawing.Point(231, 36)
Me.txtBezeichnung.Name = "txtBezeichnung" Me.txtBezeichnung.Name = "txtBezeichnung"
@ -208,6 +209,7 @@ Partial Class frmConnection
' '
'txtPassword '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.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.Location = New System.Drawing.Point(230, 136)
Me.txtPassword.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) 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.PasswordChar = Global.Microsoft.VisualBasic.ChrW(42)
Me.txtPassword.Size = New System.Drawing.Size(137, 25) Me.txtPassword.Size = New System.Drawing.Size(137, 25)
Me.txtPassword.TabIndex = 7 Me.txtPassword.TabIndex = 7
Me.txtPassword.UseSystemPasswordChar = True
Me.txtPassword.Visible = False Me.txtPassword.Visible = False
' '
'txtUserId '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.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.Location = New System.Drawing.Point(14, 136)
Me.txtUserId.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) Me.txtUserId.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4)
@ -262,6 +266,7 @@ Partial Class frmConnection
' '
'cmbDbArt '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.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.Font = New System.Drawing.Font("Segoe UI", 9.75!, System.Drawing.FontStyle.Regular, System.Drawing.GraphicsUnit.Point, CType(0, Byte))
Me.cmbDbArt.FormattingEnabled = True Me.cmbDbArt.FormattingEnabled = True
@ -284,6 +289,7 @@ Partial Class frmConnection
' '
'txtDatasource2 '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.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.Location = New System.Drawing.Point(231, 86)
Me.txtDatasource2.Margin = New System.Windows.Forms.Padding(3, 4, 3, 4) 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.AllowUserToAddRows = False
Me.TBPM_CONNECTIONDataGridView.AllowUserToDeleteRows = False Me.TBPM_CONNECTIONDataGridView.AllowUserToDeleteRows = False
DataGridViewCellStyle1.BackColor = System.Drawing.Color.Aqua DataGridViewCellStyle2.BackColor = System.Drawing.Color.Aqua
Me.TBPM_CONNECTIONDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle1 Me.TBPM_CONNECTIONDataGridView.AlternatingRowsDefaultCellStyle = DataGridViewCellStyle2
Me.TBPM_CONNECTIONDataGridView.Anchor = CType((((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Bottom) _ 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.Left) _
Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
@ -500,6 +506,7 @@ Partial Class frmConnection
' '
'txtDatasource1 '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.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.Location = New System.Drawing.Point(14, 86)
Me.txtDatasource1.Name = "txtDatasource1" Me.txtDatasource1.Name = "txtDatasource1"
@ -529,11 +536,10 @@ Partial Class frmConnection
Me.grpbx_ConnAdd.Controls.Add(Me.txtBezeichnung) Me.grpbx_ConnAdd.Controls.Add(Me.txtBezeichnung)
Me.grpbx_ConnAdd.Location = New System.Drawing.Point(15, 28) Me.grpbx_ConnAdd.Location = New System.Drawing.Point(15, 28)
Me.grpbx_ConnAdd.Name = "grpbx_ConnAdd" 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.TabIndex = 61
Me.grpbx_ConnAdd.TabStop = False Me.grpbx_ConnAdd.TabStop = False
Me.grpbx_ConnAdd.Text = "Definition Verbindung:" Me.grpbx_ConnAdd.Text = "Definition Verbindung:"
Me.grpbx_ConnAdd.Visible = False
' '
'btnadd '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"> <metadata name="TBPM_CONNECTIONBindingSource.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>179, 17</value> <value>179, 17</value>
</metadata> </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"> <metadata name="DD_DMSLiteDataSet.TrayLocation" type="System.Drawing.Point, System.Drawing, Version=4.0.0.0, Culture=neutral, PublicKeyToken=b03f5f7f11d50a3a">
<value>17, 17</value> <value>17, 17</value>
</metadata> </metadata>

View File

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