From 0443e0cdce72c36113570ab8635d529bb19d220b Mon Sep 17 00:00:00 2001 From: Digital Data - Marlon Schreiber Date: Tue, 24 Apr 2018 14:08:21 +0200 Subject: [PATCH] MS --- app/DD_PM_WINDREAM/frmConnection.Designer.vb | 16 +++++++++++----- app/DD_PM_WINDREAM/frmConnection.resx | 6 ++++++ app/DD_PM_WINDREAM/frmConnection.vb | 4 ++-- 3 files changed, 19 insertions(+), 7 deletions(-) diff --git a/app/DD_PM_WINDREAM/frmConnection.Designer.vb b/app/DD_PM_WINDREAM/frmConnection.Designer.vb index c1154da..86efb85 100644 --- a/app/DD_PM_WINDREAM/frmConnection.Designer.vb +++ b/app/DD_PM_WINDREAM/frmConnection.Designer.vb @@ -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 ' diff --git a/app/DD_PM_WINDREAM/frmConnection.resx b/app/DD_PM_WINDREAM/frmConnection.resx index e99f58f..8d3a902 100644 --- a/app/DD_PM_WINDREAM/frmConnection.resx +++ b/app/DD_PM_WINDREAM/frmConnection.resx @@ -126,6 +126,12 @@ 179, 17 + + 179, 17 + + + 17, 17 + 17, 17 diff --git a/app/DD_PM_WINDREAM/frmConnection.vb b/app/DD_PM_WINDREAM/frmConnection.vb index b876f6b..77e45e7 100644 --- a/app/DD_PM_WINDREAM/frmConnection.vb +++ b/app/DD_PM_WINDREAM/frmConnection.vb @@ -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