_ Partial Class sfcontainer Inherits System.Windows.Forms.Form 'Das Formular überschreibt den Löschvorgang, um die Komponentenliste zu bereinigen. _ Protected Overrides Sub Dispose(ByVal disposing As Boolean) Try If disposing AndAlso components IsNot Nothing Then components.Dispose() End If Finally MyBase.Dispose(disposing) End Try End Sub 'Wird vom Windows Form-Designer benötigt. Private components As System.ComponentModel.IContainer 'Hinweis: Die folgende Prozedur ist für den Windows Form-Designer erforderlich. 'Das Bearbeiten ist mit dem Windows Form-Designer möglich. 'Das Bearbeiten mit dem Code-Editor ist nicht möglich. _ Private Sub InitializeComponent() Me.ClsStammdaten_Flat_SF1 = New DPM2016.clsStammdaten_Flat_SF() Me.SuspendLayout() ' 'ClsStammdaten_Flat_SF1 ' Me.ClsStammdaten_Flat_SF1.AllowAddNew = True Me.ClsStammdaten_Flat_SF1.Connectionstring = "data source=shu01\shu00;initial catalog=SHUB_PADM;persist security info=false;workstati" & "on id=;packet size=4096;user id=sa;password=*shu29" Me.ClsStammdaten_Flat_SF1.Location = New System.Drawing.Point(12, 23) Me.ClsStammdaten_Flat_SF1.Name = "ClsStammdaten_Flat_SF1" Me.ClsStammdaten_Flat_SF1.Size = New System.Drawing.Size(1266, 701) Me.ClsStammdaten_Flat_SF1.SQL = "" Me.ClsStammdaten_Flat_SF1.TabIndex = 0 Me.ClsStammdaten_Flat_SF1.Tablename = Nothing ' 'sfcontainer ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.ClientSize = New System.Drawing.Size(1326, 736) Me.Controls.Add(Me.ClsStammdaten_Flat_SF1) Me.Name = "sfcontainer" Me.Text = "sfcontainer" Me.ResumeLayout(False) End Sub Friend WithEvents ClsStammdaten_Flat_SF1 As clsStammdaten_Flat_SF End Class