Partial Class PatientDetailsFirma Inherits System.Windows.Forms.UserControl 'UserControl ü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.chkMail_Kommunikation = New System.Windows.Forms.CheckBox() Me.Label4 = New System.Windows.Forms.Label() Me.txtZSR = New System.Windows.Forms.TextBox() Me.txtGLN = New System.Windows.Forms.TextBox() Me.lblGLN = New System.Windows.Forms.Label() Me.cbtxtboxKanton = New System.Windows.Forms.ComboBox() Me.Label3 = New System.Windows.Forms.Label() Me.dtgueltigbis = New System.Windows.Forms.DateTimePicker() Me.dtGueltigab = New System.Windows.Forms.DateTimePicker() Me.dtgebdat = New System.Windows.Forms.DateTimePicker() Me.txtMutierer = New System.Windows.Forms.TextBox() Me.txtMutiert_am = New System.Windows.Forms.TextBox() Me.txtErstellt_am = New System.Windows.Forms.TextBox() Me.Label18 = New System.Windows.Forms.Label() Me.Label17 = New System.Windows.Forms.Label() Me.Label16 = New System.Windows.Forms.Label() Me.Label15 = New System.Windows.Forms.Label() Me.Label14 = New System.Windows.Forms.Label() Me.Label13 = New System.Windows.Forms.Label() Me.chklbAdresstyp = New System.Windows.Forms.CheckedListBox() Me.txtBemerkung = New System.Windows.Forms.TextBox() Me.Label2 = New System.Windows.Forms.Label() Me.Label1 = New System.Windows.Forms.Label() Me.txtFaxG = New System.Windows.Forms.TextBox() Me.txtName = New System.Windows.Forms.TextBox() Me.lbltelg = New System.Windows.Forms.Label() Me.lblName = New System.Windows.Forms.Label() Me.txtTelg = New System.Windows.Forms.TextBox() Me.txtVorname = New System.Windows.Forms.TextBox() Me.lblahv = New System.Windows.Forms.Label() Me.txtahvnr = New System.Windows.Forms.TextBox() Me.lblVorname = New System.Windows.Forms.Label() Me.lblBeruf = New System.Windows.Forms.Label() Me.txtBeruf = New System.Windows.Forms.TextBox() Me.txtCOAdresse = New System.Windows.Forms.TextBox() Me.lblArbeitgeber = New System.Windows.Forms.Label() Me.lblCO = New System.Windows.Forms.Label() Me.txtStrasse = New System.Windows.Forms.TextBox() Me.lblSprache = New System.Windows.Forms.Label() Me.lblStrasse = New System.Windows.Forms.Label() Me.txtPLZ = New System.Windows.Forms.TextBox() Me.lblStatus = New System.Windows.Forms.Label() Me.lblPLZOrt = New System.Windows.Forms.Label() Me.lblBriefanrede = New System.Windows.Forms.Label() Me.txtOrt = New System.Windows.Forms.TextBox() Me.txtBriefanrede = New System.Windows.Forms.TextBox() Me.lblGebDat = New System.Windows.Forms.Label() Me.lblGeschlecht = New System.Windows.Forms.Label() Me.txttelp = New System.Windows.Forms.TextBox() Me.lblInternet = New System.Windows.Forms.Label() Me.lblTelefon = New System.Windows.Forms.Label() Me.txtWeb = New System.Windows.Forms.TextBox() Me.txtFaxp = New System.Windows.Forms.TextBox() Me.lblemail = New System.Windows.Forms.Label() Me.lblFaxP = New System.Windows.Forms.Label() Me.txtE_Mail = New System.Windows.Forms.TextBox() Me.txtNatel = New System.Windows.Forms.TextBox() Me.lblMobile = New System.Windows.Forms.Label() Me.txtnrprivat = New System.Windows.Forms.TextBox() Me.lblNr = New System.Windows.Forms.Label() Me.lblAnrede = New System.Windows.Forms.Label() Me.lblTitel = New System.Windows.Forms.Label() Me.Label5 = New System.Windows.Forms.Label() Me.Label6 = New System.Windows.Forms.Label() Me.ContextMenuStrip1 = New System.Windows.Forms.ContextMenuStrip(Me.components) Me.NeuerAnsprechpartnerToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.BearbeitenToolStripMenuItem = New System.Windows.Forms.ToolStripMenuItem() Me.ClsStammdaten_flat1 = New DPM2016.clsStammdaten_flat() Me.cbboxNRArbeitgeber = New DPM2016.MyCombobox() Me.cbboxGeschlecht = New DPM2016.MyCombobox() Me.cbboxSprache = New DPM2016.MyCombobox() Me.cbboxStatus = New DPM2016.MyCombobox() Me.cbboxNRTitel = New DPM2016.MyCombobox() Me.cbboxNrAnrede = New DPM2016.MyCombobox() Me.ContextMenuStrip1.SuspendLayout() Me.SuspendLayout() ' 'chkMail_Kommunikation ' Me.chkMail_Kommunikation.AutoSize = True Me.chkMail_Kommunikation.Enabled = False Me.chkMail_Kommunikation.Location = New System.Drawing.Point(854, 234) Me.chkMail_Kommunikation.Name = "chkMail_Kommunikation" Me.chkMail_Kommunikation.Size = New System.Drawing.Size(15, 14) Me.chkMail_Kommunikation.TabIndex = 280 Me.chkMail_Kommunikation.UseVisualStyleBackColor = True Me.chkMail_Kommunikation.Visible = False ' 'Label4 ' Me.Label4.AutoSize = True Me.Label4.BackColor = System.Drawing.Color.Transparent Me.Label4.Enabled = False Me.Label4.Location = New System.Drawing.Point(730, 223) Me.Label4.Name = "Label4" Me.Label4.Size = New System.Drawing.Size(101, 13) Me.Label4.TabIndex = 279 Me.Label4.Text = "Mail-Kommunikation" Me.Label4.Visible = False ' 'txtZSR ' Me.txtZSR.Enabled = False Me.txtZSR.Location = New System.Drawing.Point(860, 270) Me.txtZSR.Name = "txtZSR" Me.txtZSR.Size = New System.Drawing.Size(8, 20) Me.txtZSR.TabIndex = 237 Me.txtZSR.Visible = False ' 'txtGLN ' Me.txtGLN.Enabled = False Me.txtGLN.Location = New System.Drawing.Point(830, 268) Me.txtGLN.Name = "txtGLN" Me.txtGLN.Size = New System.Drawing.Size(8, 20) Me.txtGLN.TabIndex = 236 Me.txtGLN.Visible = False ' 'lblGLN ' Me.lblGLN.AutoSize = True Me.lblGLN.BackColor = System.Drawing.Color.Transparent Me.lblGLN.Enabled = False Me.lblGLN.Location = New System.Drawing.Point(754, 274) Me.lblGLN.Name = "lblGLN" Me.lblGLN.Size = New System.Drawing.Size(56, 13) Me.lblGLN.TabIndex = 278 Me.lblGLN.Text = "GLN/ZSR" Me.lblGLN.Visible = False ' 'cbtxtboxKanton ' Me.cbtxtboxKanton.FormattingEnabled = True Me.cbtxtboxKanton.Items.AddRange(New Object() {"AG", "AR", "AI", "BL", "BS", "BE", "FR", "GE", "GL", "GR", "JU", "LU", "NE", "NW", "OW", "SG", "SH", "SZ", "SO", "TG", "TI", "UR", "VD", "VS", "ZG", "ZH"}) Me.cbtxtboxKanton.Location = New System.Drawing.Point(79, 169) Me.cbtxtboxKanton.Name = "cbtxtboxKanton" Me.cbtxtboxKanton.Size = New System.Drawing.Size(228, 21) Me.cbtxtboxKanton.TabIndex = 222 ' 'Label3 ' Me.Label3.AutoSize = True Me.Label3.BackColor = System.Drawing.Color.Transparent Me.Label3.Location = New System.Drawing.Point(8, 173) Me.Label3.Name = "Label3" Me.Label3.Size = New System.Drawing.Size(41, 13) Me.Label3.TabIndex = 277 Me.Label3.Text = "Kanton" ' 'dtgueltigbis ' Me.dtgueltigbis.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.dtgueltigbis.Location = New System.Drawing.Point(388, 62) Me.dtgueltigbis.Name = "dtgueltigbis" Me.dtgueltigbis.Size = New System.Drawing.Size(135, 20) Me.dtgueltigbis.TabIndex = 241 ' 'dtGueltigab ' Me.dtGueltigab.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.dtGueltigab.Location = New System.Drawing.Point(388, 36) Me.dtGueltigab.Name = "dtGueltigab" Me.dtGueltigab.Size = New System.Drawing.Size(135, 20) Me.dtGueltigab.TabIndex = 240 ' 'dtgebdat ' Me.dtgebdat.Enabled = False Me.dtgebdat.Format = System.Windows.Forms.DateTimePickerFormat.[Short] Me.dtgebdat.Location = New System.Drawing.Point(809, 386) Me.dtgebdat.Name = "dtgebdat" Me.dtgebdat.Size = New System.Drawing.Size(59, 20) Me.dtgebdat.TabIndex = 223 Me.dtgebdat.Visible = False ' 'txtMutierer ' Me.txtMutierer.Location = New System.Drawing.Point(388, 170) Me.txtMutierer.Name = "txtMutierer" Me.txtMutierer.ReadOnly = True Me.txtMutierer.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.txtMutierer.Size = New System.Drawing.Size(135, 20) Me.txtMutierer.TabIndex = 276 ' 'txtMutiert_am ' Me.txtMutiert_am.Location = New System.Drawing.Point(388, 146) Me.txtMutiert_am.Name = "txtMutiert_am" Me.txtMutiert_am.ReadOnly = True Me.txtMutiert_am.Size = New System.Drawing.Size(135, 20) Me.txtMutiert_am.TabIndex = 275 ' 'txtErstellt_am ' Me.txtErstellt_am.Location = New System.Drawing.Point(388, 124) Me.txtErstellt_am.Name = "txtErstellt_am" Me.txtErstellt_am.ReadOnly = True Me.txtErstellt_am.Size = New System.Drawing.Size(135, 20) Me.txtErstellt_am.TabIndex = 274 ' 'Label18 ' Me.Label18.AutoSize = True Me.Label18.BackColor = System.Drawing.Color.Transparent Me.Label18.Location = New System.Drawing.Point(322, 170) Me.Label18.Name = "Label18" Me.Label18.Size = New System.Drawing.Size(45, 13) Me.Label18.TabIndex = 273 Me.Label18.Text = "Mutierer" ' 'Label17 ' Me.Label17.AutoSize = True Me.Label17.BackColor = System.Drawing.Color.Transparent Me.Label17.Location = New System.Drawing.Point(322, 148) Me.Label17.Name = "Label17" Me.Label17.Size = New System.Drawing.Size(56, 13) Me.Label17.TabIndex = 272 Me.Label17.Text = "Mutiert am" ' 'Label16 ' Me.Label16.AutoSize = True Me.Label16.BackColor = System.Drawing.Color.Transparent Me.Label16.Location = New System.Drawing.Point(323, 127) Me.Label16.Name = "Label16" Me.Label16.Size = New System.Drawing.Size(55, 13) Me.Label16.TabIndex = 271 Me.Label16.Text = "Erstellt am" ' 'Label15 ' Me.Label15.AutoSize = True Me.Label15.BackColor = System.Drawing.Color.Transparent Me.Label15.Location = New System.Drawing.Point(322, 64) Me.Label15.Name = "Label15" Me.Label15.Size = New System.Drawing.Size(50, 13) Me.Label15.TabIndex = 270 Me.Label15.Text = "Gültig bis" ' 'Label14 ' Me.Label14.AutoSize = True Me.Label14.BackColor = System.Drawing.Color.Transparent Me.Label14.Location = New System.Drawing.Point(322, 40) Me.Label14.Name = "Label14" Me.Label14.Size = New System.Drawing.Size(49, 13) Me.Label14.TabIndex = 269 Me.Label14.Text = "Gültig ab" ' 'Label13 ' Me.Label13.AutoSize = True Me.Label13.BackColor = System.Drawing.Color.Transparent Me.Label13.Location = New System.Drawing.Point(529, 36) Me.Label13.Name = "Label13" Me.Label13.Size = New System.Drawing.Size(53, 13) Me.Label13.TabIndex = 268 Me.Label13.Text = "Adresstyp" ' 'chklbAdresstyp ' Me.chklbAdresstyp.FormattingEnabled = True Me.chklbAdresstyp.Items.AddRange(New Object() {"Patient", "Garant", "Zahnarzt", "Ges. Vertreter", "Hausarzt", "Behandler", "DH-Patient", "Nicht annehmen", "Nicht aufbieten", "Betreibung vorhanden"}) Me.chklbAdresstyp.Location = New System.Drawing.Point(595, 40) Me.chklbAdresstyp.Name = "chklbAdresstyp" Me.chklbAdresstyp.Size = New System.Drawing.Size(120, 49) Me.chklbAdresstyp.TabIndex = 243 ' 'txtBemerkung ' Me.txtBemerkung.Location = New System.Drawing.Point(388, 231) Me.txtBemerkung.Multiline = True Me.txtBemerkung.Name = "txtBemerkung" Me.txtBemerkung.Size = New System.Drawing.Size(326, 101) Me.txtBemerkung.TabIndex = 242 ' 'Label2 ' Me.Label2.AutoSize = True Me.Label2.BackColor = System.Drawing.Color.Transparent Me.Label2.Location = New System.Drawing.Point(322, 234) Me.Label2.Name = "Label2" Me.Label2.Size = New System.Drawing.Size(61, 13) Me.Label2.TabIndex = 267 Me.Label2.Text = "Bemerkung" ' 'Label1 ' Me.Label1.AutoSize = True Me.Label1.BackColor = System.Drawing.Color.Transparent Me.Label1.Enabled = False Me.Label1.Location = New System.Drawing.Point(754, 326) Me.Label1.Name = "Label1" Me.Label1.Size = New System.Drawing.Size(38, 13) Me.Label1.TabIndex = 266 Me.Label1.Text = "Fax G." Me.Label1.Visible = False ' 'txtFaxG ' Me.txtFaxG.Enabled = False Me.txtFaxG.Location = New System.Drawing.Point(830, 322) Me.txtFaxG.Name = "txtFaxG" Me.txtFaxG.Size = New System.Drawing.Size(38, 20) Me.txtFaxG.TabIndex = 239 Me.txtFaxG.Visible = False ' 'txtName ' Me.txtName.Location = New System.Drawing.Point(79, 39) Me.txtName.Name = "txtName" Me.txtName.Size = New System.Drawing.Size(228, 20) Me.txtName.TabIndex = 216 ' 'lbltelg ' Me.lbltelg.AutoSize = True Me.lbltelg.BackColor = System.Drawing.Color.Transparent Me.lbltelg.Enabled = False Me.lbltelg.Location = New System.Drawing.Point(754, 300) Me.lbltelg.Name = "lbltelg" Me.lbltelg.Size = New System.Drawing.Size(57, 13) Me.lbltelg.TabIndex = 265 Me.lbltelg.Text = "Telefon G." Me.lbltelg.Visible = False ' 'lblName ' Me.lblName.AutoSize = True Me.lblName.BackColor = System.Drawing.Color.Transparent Me.lblName.Location = New System.Drawing.Point(8, 42) Me.lblName.Name = "lblName" Me.lblName.Size = New System.Drawing.Size(67, 13) Me.lblName.TabIndex = 247 Me.lblName.Text = "Firma Zeile 1" ' 'txtTelg ' Me.txtTelg.Enabled = False Me.txtTelg.Location = New System.Drawing.Point(830, 296) Me.txtTelg.Name = "txtTelg" Me.txtTelg.Size = New System.Drawing.Size(38, 20) Me.txtTelg.TabIndex = 238 Me.txtTelg.Visible = False ' 'txtVorname ' Me.txtVorname.Location = New System.Drawing.Point(79, 63) Me.txtVorname.Name = "txtVorname" Me.txtVorname.Size = New System.Drawing.Size(228, 20) Me.txtVorname.TabIndex = 217 ' 'lblahv ' Me.lblahv.AutoSize = True Me.lblahv.BackColor = System.Drawing.Color.Transparent Me.lblahv.Enabled = False Me.lblahv.Location = New System.Drawing.Point(754, 417) Me.lblahv.Name = "lblahv" Me.lblahv.Size = New System.Drawing.Size(43, 13) Me.lblahv.TabIndex = 264 Me.lblahv.Text = "AHV-Nr" Me.lblahv.Visible = False ' 'txtahvnr ' Me.txtahvnr.Enabled = False Me.txtahvnr.Location = New System.Drawing.Point(830, 413) Me.txtahvnr.Name = "txtahvnr" Me.txtahvnr.Size = New System.Drawing.Size(38, 20) Me.txtahvnr.TabIndex = 235 Me.txtahvnr.Visible = False ' 'lblVorname ' Me.lblVorname.AutoSize = True Me.lblVorname.BackColor = System.Drawing.Color.Transparent Me.lblVorname.Location = New System.Drawing.Point(8, 66) Me.lblVorname.Name = "lblVorname" Me.lblVorname.Size = New System.Drawing.Size(39, 13) Me.lblVorname.TabIndex = 248 Me.lblVorname.Text = "Zeile 2" ' 'lblBeruf ' Me.lblBeruf.AutoSize = True Me.lblBeruf.BackColor = System.Drawing.Color.Transparent Me.lblBeruf.Enabled = False Me.lblBeruf.Location = New System.Drawing.Point(754, 391) Me.lblBeruf.Name = "lblBeruf" Me.lblBeruf.Size = New System.Drawing.Size(32, 13) Me.lblBeruf.TabIndex = 263 Me.lblBeruf.Text = "Beruf" Me.lblBeruf.Visible = False ' 'txtBeruf ' Me.txtBeruf.Enabled = False Me.txtBeruf.Location = New System.Drawing.Point(830, 387) Me.txtBeruf.Name = "txtBeruf" Me.txtBeruf.Size = New System.Drawing.Size(38, 20) Me.txtBeruf.TabIndex = 234 Me.txtBeruf.Visible = False ' 'txtCOAdresse ' Me.txtCOAdresse.Location = New System.Drawing.Point(79, 91) Me.txtCOAdresse.Name = "txtCOAdresse" Me.txtCOAdresse.Size = New System.Drawing.Size(228, 20) Me.txtCOAdresse.TabIndex = 218 ' 'lblArbeitgeber ' Me.lblArbeitgeber.AutoSize = True Me.lblArbeitgeber.BackColor = System.Drawing.Color.Transparent Me.lblArbeitgeber.Enabled = False Me.lblArbeitgeber.Location = New System.Drawing.Point(754, 365) Me.lblArbeitgeber.Name = "lblArbeitgeber" Me.lblArbeitgeber.Size = New System.Drawing.Size(61, 13) Me.lblArbeitgeber.TabIndex = 262 Me.lblArbeitgeber.Text = "Arbeitgeber" Me.lblArbeitgeber.Visible = False ' 'lblCO ' Me.lblCO.AutoSize = True Me.lblCO.BackColor = System.Drawing.Color.Transparent Me.lblCO.Location = New System.Drawing.Point(8, 94) Me.lblCO.Name = "lblCO" Me.lblCO.Size = New System.Drawing.Size(39, 13) Me.lblCO.TabIndex = 249 Me.lblCO.Text = "Zeile 3" ' 'txtStrasse ' Me.txtStrasse.Location = New System.Drawing.Point(79, 118) Me.txtStrasse.Name = "txtStrasse" Me.txtStrasse.Size = New System.Drawing.Size(228, 20) Me.txtStrasse.TabIndex = 219 ' 'lblSprache ' Me.lblSprache.AutoSize = True Me.lblSprache.BackColor = System.Drawing.Color.Transparent Me.lblSprache.Enabled = False Me.lblSprache.Location = New System.Drawing.Point(754, 338) Me.lblSprache.Name = "lblSprache" Me.lblSprache.Size = New System.Drawing.Size(47, 13) Me.lblSprache.TabIndex = 261 Me.lblSprache.Text = "Sprache" Me.lblSprache.Visible = False ' 'lblStrasse ' Me.lblStrasse.AutoSize = True Me.lblStrasse.BackColor = System.Drawing.Color.Transparent Me.lblStrasse.Location = New System.Drawing.Point(8, 122) Me.lblStrasse.Name = "lblStrasse" Me.lblStrasse.Size = New System.Drawing.Size(42, 13) Me.lblStrasse.TabIndex = 250 Me.lblStrasse.Text = "Strasse" ' 'txtPLZ ' Me.txtPLZ.Location = New System.Drawing.Point(79, 144) Me.txtPLZ.Name = "txtPLZ" Me.txtPLZ.Size = New System.Drawing.Size(48, 20) Me.txtPLZ.TabIndex = 220 ' 'lblStatus ' Me.lblStatus.AutoSize = True Me.lblStatus.BackColor = System.Drawing.Color.Transparent Me.lblStatus.Location = New System.Drawing.Point(322, 90) Me.lblStatus.Name = "lblStatus" Me.lblStatus.Size = New System.Drawing.Size(37, 13) Me.lblStatus.TabIndex = 260 Me.lblStatus.Text = "Status" ' 'lblPLZOrt ' Me.lblPLZOrt.AutoSize = True Me.lblPLZOrt.BackColor = System.Drawing.Color.Transparent Me.lblPLZOrt.Location = New System.Drawing.Point(8, 148) Me.lblPLZOrt.Name = "lblPLZOrt" Me.lblPLZOrt.Size = New System.Drawing.Size(46, 13) Me.lblPLZOrt.TabIndex = 251 Me.lblPLZOrt.Text = "PLZ/Ort" ' 'lblBriefanrede ' Me.lblBriefanrede.AutoSize = True Me.lblBriefanrede.BackColor = System.Drawing.Color.Transparent Me.lblBriefanrede.Enabled = False Me.lblBriefanrede.Location = New System.Drawing.Point(730, 418) Me.lblBriefanrede.Name = "lblBriefanrede" Me.lblBriefanrede.Size = New System.Drawing.Size(65, 13) Me.lblBriefanrede.TabIndex = 259 Me.lblBriefanrede.Text = "Brief-Anrede" Me.lblBriefanrede.Visible = False ' 'txtOrt ' Me.txtOrt.Location = New System.Drawing.Point(133, 144) Me.txtOrt.Name = "txtOrt" Me.txtOrt.Size = New System.Drawing.Size(174, 20) Me.txtOrt.TabIndex = 221 ' 'txtBriefanrede ' Me.txtBriefanrede.Enabled = False Me.txtBriefanrede.Location = New System.Drawing.Point(809, 414) Me.txtBriefanrede.Name = "txtBriefanrede" Me.txtBriefanrede.Size = New System.Drawing.Size(62, 20) Me.txtBriefanrede.TabIndex = 230 Me.txtBriefanrede.Visible = False ' 'lblGebDat ' Me.lblGebDat.AutoSize = True Me.lblGebDat.BackColor = System.Drawing.Color.Transparent Me.lblGebDat.Enabled = False Me.lblGebDat.Location = New System.Drawing.Point(748, 387) Me.lblGebDat.Name = "lblGebDat" Me.lblGebDat.Size = New System.Drawing.Size(44, 13) Me.lblGebDat.TabIndex = 252 Me.lblGebDat.Text = "GebDat" Me.lblGebDat.Visible = False ' 'lblGeschlecht ' Me.lblGeschlecht.AutoSize = True Me.lblGeschlecht.BackColor = System.Drawing.Color.Transparent Me.lblGeschlecht.Enabled = False Me.lblGeschlecht.Location = New System.Drawing.Point(754, 356) Me.lblGeschlecht.Name = "lblGeschlecht" Me.lblGeschlecht.Size = New System.Drawing.Size(61, 13) Me.lblGeschlecht.TabIndex = 258 Me.lblGeschlecht.Text = "Geschlecht" Me.lblGeschlecht.Visible = False ' 'txttelp ' Me.txttelp.Location = New System.Drawing.Point(79, 202) Me.txttelp.Name = "txttelp" Me.txttelp.Size = New System.Drawing.Size(228, 20) Me.txttelp.TabIndex = 224 ' 'lblInternet ' Me.lblInternet.AutoSize = True Me.lblInternet.BackColor = System.Drawing.Color.Transparent Me.lblInternet.Location = New System.Drawing.Point(8, 309) Me.lblInternet.Name = "lblInternet" Me.lblInternet.Size = New System.Drawing.Size(43, 13) Me.lblInternet.TabIndex = 257 Me.lblInternet.Text = "Internet" ' 'lblTelefon ' Me.lblTelefon.AutoSize = True Me.lblTelefon.BackColor = System.Drawing.Color.Transparent Me.lblTelefon.Location = New System.Drawing.Point(8, 205) Me.lblTelefon.Name = "lblTelefon" Me.lblTelefon.Size = New System.Drawing.Size(43, 13) Me.lblTelefon.TabIndex = 253 Me.lblTelefon.Text = "Telefon" ' 'txtWeb ' Me.txtWeb.Location = New System.Drawing.Point(79, 306) Me.txtWeb.Name = "txtWeb" Me.txtWeb.Size = New System.Drawing.Size(228, 20) Me.txtWeb.TabIndex = 228 ' 'txtFaxp ' Me.txtFaxp.Location = New System.Drawing.Point(79, 228) Me.txtFaxp.Name = "txtFaxp" Me.txtFaxp.Size = New System.Drawing.Size(228, 20) Me.txtFaxp.TabIndex = 225 ' 'lblemail ' Me.lblemail.AutoSize = True Me.lblemail.BackColor = System.Drawing.Color.Transparent Me.lblemail.Location = New System.Drawing.Point(8, 283) Me.lblemail.Name = "lblemail" Me.lblemail.Size = New System.Drawing.Size(36, 13) Me.lblemail.TabIndex = 256 Me.lblemail.Text = "E-Mail" ' 'lblFaxP ' Me.lblFaxP.AutoSize = True Me.lblFaxP.BackColor = System.Drawing.Color.Transparent Me.lblFaxP.Location = New System.Drawing.Point(8, 231) Me.lblFaxP.Name = "lblFaxP" Me.lblFaxP.Size = New System.Drawing.Size(24, 13) Me.lblFaxP.TabIndex = 254 Me.lblFaxP.Text = "Fax" ' 'txtE_Mail ' Me.txtE_Mail.Location = New System.Drawing.Point(79, 280) Me.txtE_Mail.Name = "txtE_Mail" Me.txtE_Mail.Size = New System.Drawing.Size(228, 20) Me.txtE_Mail.TabIndex = 227 ' 'txtNatel ' Me.txtNatel.Location = New System.Drawing.Point(79, 254) Me.txtNatel.Name = "txtNatel" Me.txtNatel.Size = New System.Drawing.Size(228, 20) Me.txtNatel.TabIndex = 226 ' 'lblMobile ' Me.lblMobile.AutoSize = True Me.lblMobile.BackColor = System.Drawing.Color.Transparent Me.lblMobile.Location = New System.Drawing.Point(8, 257) Me.lblMobile.Name = "lblMobile" Me.lblMobile.Size = New System.Drawing.Size(38, 13) Me.lblMobile.TabIndex = 255 Me.lblMobile.Text = "Mobile" ' 'txtnrprivat ' Me.txtnrprivat.Font = New System.Drawing.Font("Microsoft Sans Serif", 8.25!, System.Drawing.FontStyle.Bold, System.Drawing.GraphicsUnit.Point, CType(0, Byte)) Me.txtnrprivat.Location = New System.Drawing.Point(79, 15) Me.txtnrprivat.Name = "txtnrprivat" Me.txtnrprivat.ReadOnly = True Me.txtnrprivat.RightToLeft = System.Windows.Forms.RightToLeft.Yes Me.txtnrprivat.Size = New System.Drawing.Size(48, 20) Me.txtnrprivat.TabIndex = 213 ' 'lblNr ' Me.lblNr.AutoSize = True Me.lblNr.BackColor = System.Drawing.Color.Transparent Me.lblNr.Location = New System.Drawing.Point(8, 18) Me.lblNr.Name = "lblNr" Me.lblNr.Size = New System.Drawing.Size(21, 13) Me.lblNr.TabIndex = 244 Me.lblNr.Text = "Nr." ' 'lblAnrede ' Me.lblAnrede.AutoSize = True Me.lblAnrede.BackColor = System.Drawing.Color.Transparent Me.lblAnrede.Location = New System.Drawing.Point(560, 117) Me.lblAnrede.Name = "lblAnrede" Me.lblAnrede.Size = New System.Drawing.Size(41, 13) Me.lblAnrede.TabIndex = 245 Me.lblAnrede.Text = "Anrede" Me.lblAnrede.Visible = False ' 'lblTitel ' Me.lblTitel.AutoSize = True Me.lblTitel.BackColor = System.Drawing.Color.Transparent Me.lblTitel.Location = New System.Drawing.Point(579, 144) Me.lblTitel.Name = "lblTitel" Me.lblTitel.Size = New System.Drawing.Size(27, 13) Me.lblTitel.TabIndex = 246 Me.lblTitel.Text = "Titel" Me.lblTitel.Visible = False ' 'Label5 ' Me.Label5.AutoSize = True Me.Label5.BackColor = System.Drawing.Color.Transparent Me.Label5.Location = New System.Drawing.Point(8, 345) Me.Label5.Name = "Label5" Me.Label5.Size = New System.Drawing.Size(55, 13) Me.Label5.TabIndex = 282 Me.Label5.Text = "Ansprech-" ' 'Label6 ' Me.Label6.AutoSize = True Me.Label6.BackColor = System.Drawing.Color.Transparent Me.Label6.Location = New System.Drawing.Point(8, 362) Me.Label6.Name = "Label6" Me.Label6.Size = New System.Drawing.Size(41, 13) Me.Label6.TabIndex = 283 Me.Label6.Text = "Partner" ' 'ContextMenuStrip1 ' Me.ContextMenuStrip1.Items.AddRange(New System.Windows.Forms.ToolStripItem() {Me.NeuerAnsprechpartnerToolStripMenuItem, Me.BearbeitenToolStripMenuItem}) Me.ContextMenuStrip1.Name = "ContextMenuStrip1" Me.ContextMenuStrip1.Size = New System.Drawing.Size(198, 48) ' 'NeuerAnsprechpartnerToolStripMenuItem ' Me.NeuerAnsprechpartnerToolStripMenuItem.Name = "NeuerAnsprechpartnerToolStripMenuItem" Me.NeuerAnsprechpartnerToolStripMenuItem.Size = New System.Drawing.Size(197, 22) Me.NeuerAnsprechpartnerToolStripMenuItem.Text = "Neuer Ansprechpartner" ' 'BearbeitenToolStripMenuItem ' Me.BearbeitenToolStripMenuItem.Name = "BearbeitenToolStripMenuItem" Me.BearbeitenToolStripMenuItem.Size = New System.Drawing.Size(197, 22) Me.BearbeitenToolStripMenuItem.Text = "Bearbeiten" ' 'ClsStammdaten_flat1 ' Me.ClsStammdaten_flat1.AllowAddNew = True Me.ClsStammdaten_flat1.Connectionstring = "data source=shu00;initial catalog=SHUB_PADM;persist security info=false;workstati" & "on id=;packet size=4096;user id=sa;password=*shu29" Me.ClsStammdaten_flat1.ContextMenuStrip = Me.ContextMenuStrip1 Me.ClsStammdaten_flat1.Location = New System.Drawing.Point(79, 336) Me.ClsStammdaten_flat1.Name = "ClsStammdaten_flat1" Me.ClsStammdaten_flat1.Size = New System.Drawing.Size(634, 178) Me.ClsStammdaten_flat1.SQL = "" Me.ClsStammdaten_flat1.TabIndex = 281 Me.ClsStammdaten_flat1.Tablename = Nothing ' 'cbboxNRArbeitgeber ' Me.cbboxNRArbeitgeber.Dataselection = Nothing Me.cbboxNRArbeitgeber.Displaymember = Nothing Me.cbboxNRArbeitgeber.Enabled = False Me.cbboxNRArbeitgeber.Location = New System.Drawing.Point(830, 359) Me.cbboxNRArbeitgeber.Name = "cbboxNRArbeitgeber" Me.cbboxNRArbeitgeber.Size = New System.Drawing.Size(38, 21) Me.cbboxNRArbeitgeber.TabIndex = 233 Me.cbboxNRArbeitgeber.Table = Nothing Me.cbboxNRArbeitgeber.TableAlias = "" Me.cbboxNRArbeitgeber.Valuemember = Nothing Me.cbboxNRArbeitgeber.Visible = False ' 'cbboxGeschlecht ' Me.cbboxGeschlecht.Dataselection = Nothing Me.cbboxGeschlecht.Displaymember = Nothing Me.cbboxGeschlecht.Enabled = False Me.cbboxGeschlecht.Location = New System.Drawing.Point(830, 352) Me.cbboxGeschlecht.Name = "cbboxGeschlecht" Me.cbboxGeschlecht.Size = New System.Drawing.Size(38, 21) Me.cbboxGeschlecht.TabIndex = 229 Me.cbboxGeschlecht.Table = Nothing Me.cbboxGeschlecht.TableAlias = "" Me.cbboxGeschlecht.Valuemember = Nothing Me.cbboxGeschlecht.Visible = False ' 'cbboxSprache ' Me.cbboxSprache.Dataselection = Nothing Me.cbboxSprache.Displaymember = Nothing Me.cbboxSprache.Enabled = False Me.cbboxSprache.Location = New System.Drawing.Point(830, 333) Me.cbboxSprache.Name = "cbboxSprache" Me.cbboxSprache.Size = New System.Drawing.Size(38, 21) Me.cbboxSprache.TabIndex = 232 Me.cbboxSprache.Table = Nothing Me.cbboxSprache.TableAlias = "" Me.cbboxSprache.Valuemember = Nothing Me.cbboxSprache.Visible = False ' 'cbboxStatus ' Me.cbboxStatus.Dataselection = Nothing Me.cbboxStatus.Displaymember = Nothing Me.cbboxStatus.Location = New System.Drawing.Point(388, 88) Me.cbboxStatus.Name = "cbboxStatus" Me.cbboxStatus.Size = New System.Drawing.Size(135, 21) Me.cbboxStatus.TabIndex = 231 Me.cbboxStatus.Table = Nothing Me.cbboxStatus.TableAlias = "" Me.cbboxStatus.Valuemember = Nothing ' 'cbboxNRTitel ' Me.cbboxNRTitel.Dataselection = Nothing Me.cbboxNRTitel.Displaymember = Nothing Me.cbboxNRTitel.Location = New System.Drawing.Point(611, 142) Me.cbboxNRTitel.Name = "cbboxNRTitel" Me.cbboxNRTitel.Size = New System.Drawing.Size(103, 21) Me.cbboxNRTitel.TabIndex = 215 Me.cbboxNRTitel.Table = Nothing Me.cbboxNRTitel.TableAlias = "" Me.cbboxNRTitel.Valuemember = Nothing Me.cbboxNRTitel.Visible = False ' 'cbboxNrAnrede ' Me.cbboxNrAnrede.Dataselection = Nothing Me.cbboxNrAnrede.Displaymember = Nothing Me.cbboxNrAnrede.Location = New System.Drawing.Point(631, 114) Me.cbboxNrAnrede.Name = "cbboxNrAnrede" Me.cbboxNrAnrede.Size = New System.Drawing.Size(88, 21) Me.cbboxNrAnrede.TabIndex = 214 Me.cbboxNrAnrede.Table = Nothing Me.cbboxNrAnrede.TableAlias = "" Me.cbboxNrAnrede.Valuemember = Nothing Me.cbboxNrAnrede.Visible = False ' 'PatientDetailsFirma ' Me.AutoScaleDimensions = New System.Drawing.SizeF(6.0!, 13.0!) Me.AutoScaleMode = System.Windows.Forms.AutoScaleMode.Font Me.Controls.Add(Me.Label6) Me.Controls.Add(Me.Label5) Me.Controls.Add(Me.ClsStammdaten_flat1) Me.Controls.Add(Me.chkMail_Kommunikation) Me.Controls.Add(Me.Label4) Me.Controls.Add(Me.txtZSR) Me.Controls.Add(Me.txtGLN) Me.Controls.Add(Me.lblGLN) Me.Controls.Add(Me.cbtxtboxKanton) Me.Controls.Add(Me.Label3) Me.Controls.Add(Me.cbboxNRArbeitgeber) Me.Controls.Add(Me.cbboxGeschlecht) Me.Controls.Add(Me.cbboxSprache) Me.Controls.Add(Me.cbboxStatus) Me.Controls.Add(Me.cbboxNRTitel) Me.Controls.Add(Me.cbboxNrAnrede) Me.Controls.Add(Me.dtgueltigbis) Me.Controls.Add(Me.dtGueltigab) Me.Controls.Add(Me.dtgebdat) Me.Controls.Add(Me.txtMutierer) Me.Controls.Add(Me.txtMutiert_am) Me.Controls.Add(Me.txtErstellt_am) Me.Controls.Add(Me.Label18) Me.Controls.Add(Me.Label17) Me.Controls.Add(Me.Label16) Me.Controls.Add(Me.Label15) Me.Controls.Add(Me.Label14) Me.Controls.Add(Me.Label13) Me.Controls.Add(Me.chklbAdresstyp) Me.Controls.Add(Me.txtBemerkung) Me.Controls.Add(Me.Label2) Me.Controls.Add(Me.Label1) Me.Controls.Add(Me.txtFaxG) Me.Controls.Add(Me.txtName) Me.Controls.Add(Me.lbltelg) Me.Controls.Add(Me.lblName) Me.Controls.Add(Me.txtTelg) Me.Controls.Add(Me.txtVorname) Me.Controls.Add(Me.lblahv) Me.Controls.Add(Me.txtahvnr) Me.Controls.Add(Me.lblVorname) Me.Controls.Add(Me.lblBeruf) Me.Controls.Add(Me.txtBeruf) Me.Controls.Add(Me.txtCOAdresse) Me.Controls.Add(Me.lblArbeitgeber) Me.Controls.Add(Me.lblCO) Me.Controls.Add(Me.txtStrasse) Me.Controls.Add(Me.lblSprache) Me.Controls.Add(Me.lblStrasse) Me.Controls.Add(Me.txtPLZ) Me.Controls.Add(Me.lblStatus) Me.Controls.Add(Me.lblPLZOrt) Me.Controls.Add(Me.lblBriefanrede) Me.Controls.Add(Me.txtOrt) Me.Controls.Add(Me.txtBriefanrede) Me.Controls.Add(Me.lblGebDat) Me.Controls.Add(Me.lblGeschlecht) Me.Controls.Add(Me.txttelp) Me.Controls.Add(Me.lblInternet) Me.Controls.Add(Me.lblTelefon) Me.Controls.Add(Me.txtWeb) Me.Controls.Add(Me.txtFaxp) Me.Controls.Add(Me.lblemail) Me.Controls.Add(Me.lblFaxP) Me.Controls.Add(Me.txtE_Mail) Me.Controls.Add(Me.txtNatel) Me.Controls.Add(Me.lblMobile) Me.Controls.Add(Me.txtnrprivat) Me.Controls.Add(Me.lblNr) Me.Controls.Add(Me.lblAnrede) Me.Controls.Add(Me.lblTitel) Me.Margin = New System.Windows.Forms.Padding(2) Me.Name = "PatientDetailsFirma" Me.Size = New System.Drawing.Size(729, 535) Me.ContextMenuStrip1.ResumeLayout(False) Me.ResumeLayout(False) Me.PerformLayout() End Sub Friend WithEvents chkMail_Kommunikation As CheckBox Friend WithEvents Label4 As Label Friend WithEvents txtZSR As TextBox Friend WithEvents txtGLN As TextBox Friend WithEvents lblGLN As Label Friend WithEvents cbtxtboxKanton As ComboBox Friend WithEvents Label3 As Label Friend WithEvents cbboxNRArbeitgeber As MyCombobox Friend WithEvents cbboxGeschlecht As MyCombobox Friend WithEvents cbboxSprache As MyCombobox Friend WithEvents cbboxStatus As MyCombobox Friend WithEvents cbboxNRTitel As MyCombobox Friend WithEvents cbboxNrAnrede As MyCombobox Friend WithEvents dtgueltigbis As DateTimePicker Friend WithEvents dtGueltigab As DateTimePicker Friend WithEvents dtgebdat As DateTimePicker Friend WithEvents txtMutierer As TextBox Friend WithEvents txtMutiert_am As TextBox Friend WithEvents txtErstellt_am As TextBox Friend WithEvents Label18 As Label Friend WithEvents Label17 As Label Friend WithEvents Label16 As Label Friend WithEvents Label15 As Label Friend WithEvents Label14 As Label Friend WithEvents Label13 As Label Friend WithEvents chklbAdresstyp As CheckedListBox Friend WithEvents txtBemerkung As TextBox Friend WithEvents Label2 As Label Friend WithEvents Label1 As Label Friend WithEvents txtFaxG As TextBox Friend WithEvents txtName As TextBox Friend WithEvents lbltelg As Label Friend WithEvents lblName As Label Friend WithEvents txtTelg As TextBox Friend WithEvents txtVorname As TextBox Friend WithEvents lblahv As Label Friend WithEvents txtahvnr As TextBox Friend WithEvents lblVorname As Label Friend WithEvents lblBeruf As Label Friend WithEvents txtBeruf As TextBox Friend WithEvents txtCOAdresse As TextBox Friend WithEvents lblArbeitgeber As Label Friend WithEvents lblCO As Label Friend WithEvents txtStrasse As TextBox Friend WithEvents lblSprache As Label Friend WithEvents lblStrasse As Label Friend WithEvents txtPLZ As TextBox Friend WithEvents lblStatus As Label Friend WithEvents lblPLZOrt As Label Friend WithEvents lblBriefanrede As Label Friend WithEvents txtOrt As TextBox Friend WithEvents txtBriefanrede As TextBox Friend WithEvents lblGebDat As Label Friend WithEvents lblGeschlecht As Label Friend WithEvents txttelp As TextBox Friend WithEvents lblInternet As Label Friend WithEvents lblTelefon As Label Friend WithEvents txtWeb As TextBox Friend WithEvents txtFaxp As TextBox Friend WithEvents lblemail As Label Friend WithEvents lblFaxP As Label Friend WithEvents txtE_Mail As TextBox Friend WithEvents txtNatel As TextBox Friend WithEvents lblMobile As Label Friend WithEvents txtnrprivat As TextBox Friend WithEvents lblNr As Label Friend WithEvents lblAnrede As Label Friend WithEvents lblTitel As Label Friend WithEvents ClsStammdaten_flat1 As clsStammdaten_flat Friend WithEvents Label5 As Label Friend WithEvents Label6 As Label Friend WithEvents ContextMenuStrip1 As ContextMenuStrip Friend WithEvents NeuerAnsprechpartnerToolStripMenuItem As ToolStripMenuItem Friend WithEvents BearbeitenToolStripMenuItem As ToolStripMenuItem End Class