Update 20240102

DPM2016/frmMain.vb

@@ -55,13 +55,19 @@ Public Class frmMain
     End Sub
     Private Sub frmMain_Load(sender As Object, e As EventArgs) Handles MyBase.Load
         If My.Settings.SoftwareType = "PADM" Then Me.TarifToolStripMenuItem.Text = "Artikel"
+        Try
+            Me.Width = My.Settings.MainWindowSizeWith
+            Me.Height = My.Settings.MainWindowSizeHeight
+        Catch ex As Exception
+
+        End Try
         AddHandler DevComponents.DotNetBar.LocalizationKeys.LocalizeString, AddressOf LocalizeString
         Dim args As String() = Environment.GetCommandLineArgs()
         Try
             If args(1) = "dmstest" Then
                 My.Settings.TempPath = Application.StartupPath + "\Demo\"
                 My.Settings.DocArchivPath = Application.StartupPath + "\Demo"
-                My.Settings.ConnectionString = "data source=shu00;initial catalog=shub_padm;;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29"
+                My.Settings.ConnectionString = "data source=shu01\shu00;initial catalog=shub_padm;;persist security info=false;workstation id=;packet size=4096;user id=sa;password=*shu29"
                 Dim db As New clsDB
 
                 db.Get_Spaltendata()
@@ -687,6 +693,14 @@ Public Class frmMain
         f.Show()
     End Sub
 
+    Private Sub Label1_Click(sender As Object, e As EventArgs) Handles Label1.Click
+        Dim f As New sfcontainer
+        sfcontainer.ClsStammdaten_Flat_SF1.Connectionstring = My.Settings.ConnectionString
+        sfcontainer.ClsStammdaten_Flat_SF1.Tablename = "Anrede"
+        sfcontainer.ClsStammdaten_Flat_SF1.get_data()
+        sfcontainer.Show()
+    End Sub
+
 
     'Private Sub SecurityObjekteToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles SecurityObjekteToolStripMenuItem.Click
     '    Dim formselector As New frmFormSelector