MS

app/DD_PM_WINDREAM/frmConnection.vb

@@ -2,6 +2,10 @@
 Public Class frmConnection
     Dim formloaded As Boolean = False
     Private Sub cmbDbArt_SelectedIndexChanged(sender As System.Object, e As System.EventArgs) Handles cmbDbArt.SelectedIndexChanged
+        load_controls
+
+    End Sub
+    Sub load_controls()
         If Me.cmbDbArt.SelectedIndex <> -1 And formloaded = True Then
             Chckwin_aut.Visible = False
             chkOR_ohne_TNS.Visible = False
@@ -48,8 +52,8 @@ Public Class frmConnection
                 Case "ODBC"
                     Me.lblDataSource.Text = "DSN*:"
                     Me.txtDatasource1.ReadOnly = False
-                    Me.txtDataSource1.BackColor = System.Drawing.SystemColors.Window
-                    Me.txtDataSource1.Text = ""
+                    Me.txtDatasource1.BackColor = System.Drawing.SystemColors.Window
+                    Me.txtDatasource1.Text = ""
                     Me.btnMdbLocation.Visible = False
                     Me.btnMdbLöschen.Visible = False
                     Me.lblUserId.Text = "UserId:"
@@ -76,9 +80,7 @@ Public Class frmConnection
             Me.txtUserId.Visible = False
             Me.txtPassword.Visible = False
         End If
-
     End Sub
-
     Private Sub btnCheck_Con_Click(sender As System.Object, e As System.EventArgs) Handles btnCheck_Con.Click
         Try
             If Me.cmbDbArt.SelectedIndex <> -1 Then
@@ -131,19 +133,19 @@ Public Class frmConnection
         End Try
     End Sub
 
-    Private Sub TBPM_CONNECTIONBindingNavigatorSaveItem_Click(sender As System.Object, e As System.EventArgs) Handles TBPM_CONNECTIONBindingNavigatorSaveItem.Click
+    Private Sub TBDD_CONNECTIONBindingNavigatorSaveItem_Click(sender As System.Object, e As System.EventArgs) Handles TBDD_CONNECTIONBindingNavigatorSaveItem.Click
         Try
-            Me.TBPM_CONNECTIONBindingSource.EndEdit()
+            Me.TBDD_CONNECTIONBindingSource.EndEdit()
             If DD_DMSLiteDataSet.TBDD_CONNECTION.GetChanges Is Nothing = False Then
                 Me.GEANDERTWERTextBox.Text = Environment.UserName
-                Me.TBPM_CONNECTIONBindingSource.EndEdit()
+                Me.TBDD_CONNECTIONBindingSource.EndEdit()
                 Me.TBDD_CONNECTIONTableAdapter.Update(DD_DMSLiteDataSet.TBDD_CONNECTION)
                 MsgBox("Änderungen wurden erfolgreich gespeichert!", MsgBoxStyle.Information)
             End If
         Catch ex As Exception
             MsgBox("Fehler beim Speichern: " & vbNewLine & ex.Message, MsgBoxStyle.Exclamation)
         End Try
-       
+
     End Sub
 
     Private Sub frmConnection_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
@@ -157,7 +159,7 @@ Public Class frmConnection
     Sub load_connections()
         Try
             Me.TBDD_CONNECTIONTableAdapter.Fill(Me.DD_DMSLiteDataSet.TBDD_CONNECTION)
-            TBPM_CONNECTIONDataGridView.AutoResizeColumns()
+            TBDD_CONNECTIONDataGridView.AutoResizeColumns()
         Catch ex As Exception
             MsgBox("Fehler bei Connections laden: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
@@ -178,14 +180,15 @@ Public Class frmConnection
 
     Private Sub frmConnection_Shown(sender As Object, e As EventArgs) Handles Me.Shown
         formloaded = True
+        load_controls()
     End Sub
 
-    Private Sub TBPM_CONNECTIONBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBPM_CONNECTIONBindingSource.AddingNew
+    Private Sub TBDD_CONNECTIONBindingSource_AddingNew(sender As Object, e As System.ComponentModel.AddingNewEventArgs) Handles TBDD_CONNECTIONBindingSource.AddingNew
         DD_DMSLiteDataSet.TBDD_CONNECTION.ERSTELLTWERColumn.DefaultValue = Environment.UserName
     End Sub
 
-    Private Sub TBPM_CONNECTIONBindingSource_PositionChanged(sender As Object, e As EventArgs) Handles TBPM_CONNECTIONBindingSource.PositionChanged
-       
+    Private Sub TBDD_CONNECTIONBindingSource_PositionChanged(sender As Object, e As EventArgs) Handles TBDD_CONNECTIONBindingSource.PositionChanged
+        load_controls()
     End Sub
 
     Private Sub chkOR_ohne_TNS_CheckedChanged(sender As Object, e As EventArgs) Handles chkOR_ohne_TNS.CheckedChanged
@@ -200,7 +203,7 @@ Public Class frmConnection
     End Sub
 
     Private Sub ToolStripButton1_Click(sender As Object, e As EventArgs) Handles ToolStripButton1.Click
-        TBPM_CONNECTIONBindingSource.AddNew()
+        TBDD_CONNECTIONBindingSource.AddNew()
         ' Me.grpbx_ConnAdd.Visible = True
     End Sub
 
@@ -223,15 +226,15 @@ Public Class frmConnection
         load_connections()
     End Sub
 
-    Private Sub TBPM_CONNECTIONDataGridView_SelectionChanged(sender As Object, e As EventArgs) Handles TBPM_CONNECTIONDataGridView.SelectionChanged
+    Private Sub TBDD_CONNECTIONDataGridView_SelectionChanged(sender As Object, e As EventArgs) Handles TBDD_CONNECTIONDataGridView.SelectionChanged
         ' grpbx_ConnAdd.Visible = False
     End Sub
 
     Private Sub ToolStripButton2_Click(sender As Object, e As EventArgs) Handles ToolStripButton2.Click
         Try
             Dim i, ID As Integer
-            i = TBPM_CONNECTIONDataGridView.CurrentRow.Index
-            ID = TBPM_CONNECTIONDataGridView.Item(0, i).Value
+            i = TBDD_CONNECTIONDataGridView.CurrentRow.Index
+            ID = TBDD_CONNECTIONDataGridView.Item(0, i).Value
             If ID > 0 Then
                 Dim result As MsgBoxResult = MsgBox("Wollen Sie die Connection wirklich löschen?", MsgBoxStyle.YesNo, "Bestätigung erforderlich:")
                 ' wenn Löschen ja
@@ -244,4 +247,8 @@ Public Class frmConnection
             MsgBox("Fehler bei Löschen Connection: " & vbNewLine & ex.Message, MsgBoxStyle.Critical)
         End Try
     End Sub
+
+    Private Sub btnMdbLöschen_Click(sender As Object, e As EventArgs) Handles btnMdbLöschen.Click
+
+    End Sub
 End Class