_ Partial Class frmPerson 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.components = New System.ComponentModel.Container() Me.TableLayoutPanel1 = New System.Windows.Forms.TableLayoutPanel() Me.OK_Button = New System.Windows.Forms.Button() Me.Cancel_Button = New System.Windows.Forms.Button() Me.TableLayoutPanel2 = New System.Windows.Forms.TableLayoutPanel() Me.Label1 = New System.Windows.Forms.Label() Me.Label2 = New System.Windows.Forms.Label() Me.Label3 = New System.Windows.Forms.Label() Me.Label4 = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.Label7 = New System.Windows.Forms.Label() Me.Label8 = New System.Windows.Forms.Label() Me.Label9 = New System.Windows.Forms.Label() Me.Label10 = New System.Windows.Forms.Label() Me.Label11 = New System.Windows.Forms.Label() Me.Label12 = New System.Windows.Forms.Label() Me.txtID = New System.Windows.Forms.TextBox() Me.txtNachname = New System.Windows.Forms.TextBox() Me.txtVorname = New System.Windows.Forms.TextBox() Me.txtStrasse = New System.Windows.Forms.TextBox() Me.txtPLZ = New System.Windows.Forms.TextBox() Me.txtOrt = New System.Windows.Forms.TextBox() Me.txtTelefon = New System.Windows.Forms.TextBox() Me.txtEmail = New System.Windows.Forms.TextBox() Me.txtAnmerkung = New System.Windows.Forms.TextBox() Me.chkStammgast = New System.Windows.Forms.CheckBox() Me.chkBlacklist = New System.Windows.Forms.CheckBox() Me.GästeBindingSource = New System.Windows.Forms.BindingSource(Me.components) Me.GästeDataSet = New Gästeliste.GästeDataSet() Me.cboLand = New System.Windows.Forms.ComboBox() Me.TableLayoutPanel1.SuspendLayout() Me.TableLayoutPanel2.SuspendLayout() CType(Me.GästeBindingSource, System.ComponentModel.ISupportInitialize).BeginInit() CType(Me.GästeDataSet, System.ComponentModel.ISupportInitialize).BeginInit() Me.SuspendLayout() ' 'TableLayoutPanel1 ' Me.TableLayoutPanel1.Anchor = CType((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles) Me.TableLayoutPanel1.ColumnCount = 2 Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) Me.TableLayoutPanel1.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) Me.TableLayoutPanel1.Controls.Add(Me.OK_Button, 0, 0) Me.TableLayoutPanel1.Controls.Add(Me.Cancel_Button, 1, 0) Me.TableLayoutPanel1.Location = New System.Drawing.Point(182, 450) Me.TableLayoutPanel1.Name = "TableLayoutPanel1" Me.TableLayoutPanel1.RowCount = 1 Me.TableLayoutPanel1.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 50.0!)) Me.TableLayoutPanel1.Size = New System.Drawing.Size(146, 29) Me.TableLayoutPanel1.TabIndex = 0 ' 'OK_Button ' Me.OK_Button.Anchor = System.Windows.Forms.AnchorStyles.None Me.OK_Button.Location = New System.Drawing.Point(3, 3) Me.OK_Button.Name = "OK_Button" Me.OK_Button.Size = New System.Drawing.Size(67, 23) Me.OK_Button.TabIndex = 0 Me.OK_Button.Text = "OK" ' 'Cancel_Button ' Me.Cancel_Button.Anchor = System.Windows.Forms.AnchorStyles.None Me.Cancel_Button.DialogResult = System.Windows.Forms.DialogResult.Cancel Me.Cancel_Button.Location = New System.Drawing.Point(76, 3) Me.Cancel_Button.Name = "Cancel_Button" Me.Cancel_Button.Size = New System.Drawing.Size(67, 23) Me.Cancel_Button.TabIndex = 1 Me.Cancel_Button.Text = "Abbrechen" ' 'TableLayoutPanel2 ' Me.TableLayoutPanel2.ColumnCount = 2 Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 29.51807!)) Me.TableLayoutPanel2.ColumnStyles.Add(New System.Windows.Forms.ColumnStyle(System.Windows.Forms.SizeType.Percent, 70.48193!)) Me.TableLayoutPanel2.Controls.Add(Me.Label1, 0, 1) Me.TableLayoutPanel2.Controls.Add(Me.Label2, 0, 0) Me.TableLayoutPanel2.Controls.Add(Me.Label3, 0, 2) Me.TableLayoutPanel2.Controls.Add(Me.Label4, 0, 3) Me.TableLayoutPanel2.Controls.Add(Me.Label5, 0, 4) Me.TableLayoutPanel2.Controls.Add(Me.Label6, 0, 5) Me.TableLayoutPanel2.Controls.Add(Me.Label7, 0, 6) Me.TableLayoutPanel2.Controls.Add(Me.Label8, 0, 7) Me.TableLayoutPanel2.Controls.Add(Me.Label9, 0, 8) Me.TableLayoutPanel2.Controls.Add(Me.Label10, 0, 9) Me.TableLayoutPanel2.Controls.Add(Me.Label11, 0, 10) Me.TableLayoutPanel2.Controls.Add(Me.Label12, 0, 11) Me.TableLayoutPanel2.Controls.Add(Me.txtID, 1, 0) Me.TableLayoutPanel2.Controls.Add(Me.txtNachname, 1, 1) Me.TableLayoutPanel2.Controls.Add(Me.txtVorname, 1, 2) Me.TableLayoutPanel2.Controls.Add(Me.txtStrasse, 1, 3) Me.TableLayoutPanel2.Controls.Add(Me.txtPLZ, 1, 4) Me.TableLayoutPanel2.Controls.Add(Me.txtOrt, 1, 5) Me.TableLayoutPanel2.Controls.Add(Me.txtTelefon, 1, 7) Me.TableLayoutPanel2.Controls.Add(Me.txtEmail, 1, 8) Me.TableLayoutPanel2.Controls.Add(Me.txtAnmerkung, 1, 9) Me.TableLayoutPanel2.Controls.Add(Me.chkStammgast, 1, 10) Me.TableLayoutPanel2.Controls.Add(Me.chkBlacklist, 1, 11) Me.TableLayoutPanel2.Controls.Add(Me.cboLand, 1, 6) Me.TableLayoutPanel2.Dock = System.Windows.Forms.DockStyle.Top Me.TableLayoutPanel2.Location = New System.Drawing.Point(0, 0) Me.TableLayoutPanel2.Name = "TableLayoutPanel2" Me.TableLayoutPanel2.RowCount = 12 Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 6.8!)) Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 6.8!)) Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 6.8!)) Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 6.8!)) Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 6.8!)) Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 6.8!)) Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 6.8!)) Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 6.8!)) Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 6.8!)) Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 25.2!)) Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 6.8!)) Me.TableLayoutPanel2.RowStyles.Add(New System.Windows.Forms.RowStyle(System.Windows.Forms.SizeType.Percent, 6.8!)) Me.TableLayoutPanel2.Size = New System.Drawing.Size(340, 430) Me.TableLayoutPanel2.TabIndex = 1 ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.Location = New System.Drawing.Point(3, 29) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(59, 13) Me.Label1.TabIndex = 0 Me.Label1.Text = "Nachname" ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.Location = New System.Drawing.Point(3, 0) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(18, 13) Me.Label2.TabIndex = 0 Me.Label2.Text = "ID" ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.Location = New System.Drawing.Point(3, 58) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(49, 13) Me.Label3.TabIndex = 0 Me.Label3.Text = "Vorname" ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.Location = New System.Drawing.Point(3, 87) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(38, 13) Me.Label4.TabIndex = 0 Me.Label4.Text = "Straße" ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.Location = New System.Drawing.Point(3, 116) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(27, 13) Me.Label5.TabIndex = 0 Me.Label5.Text = "PLZ" ' 'Label6 ' Me.Label6.AutoSize = True Me.Label6.Location = New System.Drawing.Point(3, 145) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(80, 13) Me.Label6.TabIndex = 0 Me.Label6.Text = "Ort / Gemeinde" ' 'Label7 ' Me.Label7.AutoSize = True Me.Label7.Location = New System.Drawing.Point(3, 174) Me.Label7.Name = "Label7" Me.Label7.Size = New System.Drawing.Size(67, 13) Me.Label7.TabIndex = 0 Me.Label7.Text = "Land / Staat" ' 'Label8 ' Me.Label8.AutoSize = True Me.Label8.Location = New System.Drawing.Point(3, 203) Me.Label8.Name = "Label8" Me.Label8.Size = New System.Drawing.Size(43, 13) Me.Label8.TabIndex = 0 Me.Label8.Text = "Telefon" ' 'Label9 ' Me.Label9.AutoSize = True Me.Label9.Location = New System.Drawing.Point(3, 232) Me.Label9.Name = "Label9" Me.Label9.Size = New System.Drawing.Size(32, 13) Me.Label9.TabIndex = 0 Me.Label9.Text = "Email" ' 'Label10 ' Me.Label10.AutoSize = True Me.Label10.Location = New System.Drawing.Point(3, 261) Me.Label10.Name = "Label10" Me.Label10.Size = New System.Drawing.Size(61, 13) Me.Label10.TabIndex = 0 Me.Label10.Text = "Anmerkung" ' 'Label11 ' Me.Label11.AutoSize = True Me.Label11.Location = New System.Drawing.Point(3, 369) Me.Label11.Name = "Label11" Me.Label11.Size = New System.Drawing.Size(59, 13) Me.Label11.TabIndex = 0 Me.Label11.Text = "Stammgast" ' 'Label12 ' Me.Label12.AutoSize = True Me.Label12.Location = New System.Drawing.Point(3, 398) Me.Label12.Name = "Label12" Me.Label12.Size = New System.Drawing.Size(79, 13) Me.Label12.TabIndex = 0 Me.Label12.Text = "Schwarze Liste" ' 'txtID ' Me.txtID.Dock = System.Windows.Forms.DockStyle.Fill Me.txtID.Location = New System.Drawing.Point(103, 3) Me.txtID.Name = "txtID" Me.txtID.ReadOnly = True Me.txtID.Size = New System.Drawing.Size(234, 20) Me.txtID.TabIndex = 1 ' 'txtNachname ' Me.txtNachname.Dock = System.Windows.Forms.DockStyle.Fill Me.txtNachname.Location = New System.Drawing.Point(103, 32) Me.txtNachname.Name = "txtNachname" Me.txtNachname.Size = New System.Drawing.Size(234, 20) Me.txtNachname.TabIndex = 1 ' 'txtVorname ' Me.txtVorname.Dock = System.Windows.Forms.DockStyle.Fill Me.txtVorname.Location = New System.Drawing.Point(103, 61) Me.txtVorname.Name = "txtVorname" Me.txtVorname.Size = New System.Drawing.Size(234, 20) Me.txtVorname.TabIndex = 1 ' 'txtStrasse ' Me.txtStrasse.Dock = System.Windows.Forms.DockStyle.Fill Me.txtStrasse.Location = New System.Drawing.Point(103, 90) Me.txtStrasse.Name = "txtStrasse" Me.txtStrasse.Size = New System.Drawing.Size(234, 20) Me.txtStrasse.TabIndex = 1 ' 'txtPLZ ' Me.txtPLZ.Dock = System.Windows.Forms.DockStyle.Fill Me.txtPLZ.Location = New System.Drawing.Point(103, 119) Me.txtPLZ.Name = "txtPLZ" Me.txtPLZ.Size = New System.Drawing.Size(234, 20) Me.txtPLZ.TabIndex = 1 ' 'txtOrt ' Me.txtOrt.Dock = System.Windows.Forms.DockStyle.Fill Me.txtOrt.Location = New System.Drawing.Point(103, 148) Me.txtOrt.Name = "txtOrt" Me.txtOrt.Size = New System.Drawing.Size(234, 20) Me.txtOrt.TabIndex = 1 ' 'txtTelefon ' Me.txtTelefon.Dock = System.Windows.Forms.DockStyle.Fill Me.txtTelefon.Location = New System.Drawing.Point(103, 206) Me.txtTelefon.Name = "txtTelefon" Me.txtTelefon.Size = New System.Drawing.Size(234, 20) Me.txtTelefon.TabIndex = 1 ' 'txtEmail ' Me.txtEmail.Dock = System.Windows.Forms.DockStyle.Fill Me.txtEmail.Location = New System.Drawing.Point(103, 235) Me.txtEmail.Name = "txtEmail" Me.txtEmail.Size = New System.Drawing.Size(234, 20) Me.txtEmail.TabIndex = 1 ' 'txtAnmerkung ' Me.txtAnmerkung.Dock = System.Windows.Forms.DockStyle.Fill Me.txtAnmerkung.Location = New System.Drawing.Point(103, 264) Me.txtAnmerkung.Multiline = True Me.txtAnmerkung.Name = "txtAnmerkung" Me.txtAnmerkung.Size = New System.Drawing.Size(234, 102) Me.txtAnmerkung.TabIndex = 1 ' 'chkStammgast ' Me.chkStammgast.AutoSize = True Me.chkStammgast.Dock = System.Windows.Forms.DockStyle.Fill Me.chkStammgast.Location = New System.Drawing.Point(103, 372) Me.chkStammgast.Name = "chkStammgast" Me.chkStammgast.Size = New System.Drawing.Size(234, 23) Me.chkStammgast.TabIndex = 2 Me.chkStammgast.UseVisualStyleBackColor = True ' 'chkBlacklist ' Me.chkBlacklist.AutoSize = True Me.chkBlacklist.Dock = System.Windows.Forms.DockStyle.Fill Me.chkBlacklist.Location = New System.Drawing.Point(103, 401) Me.chkBlacklist.Name = "chkBlacklist" Me.chkBlacklist.Size = New System.Drawing.Size(234, 26) Me.chkBlacklist.TabIndex = 2 Me.chkBlacklist.UseVisualStyleBackColor = True ' 'GästeBindingSource ' Me.GästeBindingSource.DataMember = "Gäste" Me.GästeBindingSource.DataSource = Me.GästeDataSet ' 'GästeDataSet ' Me.GästeDataSet.DataSetName = "GästeDataSet" Me.GästeDataSet.SchemaSerializationMode = System.Data.SchemaSerializationMode.IncludeSchema ' 'cboLand ' Me.cboLand.AutoCompleteMode = System.Windows.Forms.AutoCompleteMode.Suggest Me.cboLand.AutoCompleteSource = System.Windows.Forms.AutoCompleteSource.ListItems Me.cboLand.DataBindings.Add(New System.Windows.Forms.Binding("SelectedValue", Me.GästeBindingSource, "Land", True)) Me.cboLand.Dock = System.Windows.Forms.DockStyle.Fill Me.cboLand.FormattingEnabled = True Me.cboLand.Items.AddRange(New Object() {"Deutschland", "Österreich", "Schweiz", "Niederlande"}) Me.cboLand.Location = New System.Drawing.Point(103, 177) Me.cboLand.Name = "cboLand" Me.cboLand.Size = New System.Drawing.Size(234, 21) Me.cboLand.TabIndex = 3 Me.cboLand.Text = "Deutschland" ' 'frmPerson ' Me.AcceptButton = Me.OK_Button Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.CancelButton = Me.Cancel_Button Me.ClientSize = New System.Drawing.Size(340, 491) Me.Controls.Add(Me.TableLayoutPanel2) Me.Controls.Add(Me.TableLayoutPanel1) Me.FormBorderStyle = System.Windows.Forms.FormBorderStyle.FixedDialog Me.MaximizeBox = False Me.MinimizeBox = False Me.Name = "frmPerson" Me.ShowInTaskbar = False Me.StartPosition = System.Windows.Forms.FormStartPosition.CenterParent Me.Text = "frmPerson" Me.TableLayoutPanel1.ResumeLayout(False) Me.TableLayoutPanel2.ResumeLayout(False) Me.TableLayoutPanel2.PerformLayout() CType(Me.GästeBindingSource, System.ComponentModel.ISupportInitialize).EndInit() CType(Me.GästeDataSet, System.ComponentModel.ISupportInitialize).EndInit() Me.ResumeLayout(False) End Sub Friend WithEvents TableLayoutPanel1 As System.Windows.Forms.TableLayoutPanel Friend WithEvents OK_Button As System.Windows.Forms.Button Friend WithEvents Cancel_Button As System.Windows.Forms.Button Friend WithEvents TableLayoutPanel2 As TableLayoutPanel Friend WithEvents Label1 As Label Friend WithEvents Label2 As Label Friend WithEvents Label3 As Label Friend WithEvents Label4 As Label Friend WithEvents Label5 As Label Friend WithEvents Label6 As Label Friend WithEvents Label7 As Label Friend WithEvents Label8 As Label Friend WithEvents Label9 As Label Friend WithEvents Label10 As Label Friend WithEvents Label11 As Label Friend WithEvents Label12 As Label Friend WithEvents txtID As TextBox Friend WithEvents txtNachname As TextBox Friend WithEvents txtVorname As TextBox Friend WithEvents txtStrasse As TextBox Friend WithEvents txtPLZ As TextBox Friend WithEvents txtOrt As TextBox Friend WithEvents txtTelefon As TextBox Friend WithEvents txtEmail As TextBox Friend WithEvents txtAnmerkung As TextBox Friend WithEvents chkStammgast As CheckBox Friend WithEvents chkBlacklist As CheckBox Friend WithEvents GästeBindingSource As BindingSource Friend WithEvents GästeDataSet As GästeDataSet Friend WithEvents cboLand As ComboBox End Class