| This sample page shows the output of the code generation engines for binding a business object to form control properties using manual assignment. To initialize the data source (business object) properties to the form or usercontrol call the InitializeDataSource method with a business object instance. The class has a property to access the datasource named EmployeesRowData. The generated class is based on the northwind employee table. In this sample all datasource properties are assigned to a TextBox or DateTimePicker. |
|
' <autogenerated> ' This code was generated by form.suite4.net. ' ' ' Changes to this file may cause incorrect behavior and will be lost if ' the code is regenerated. ' </autogenerated> '------------------------------------------------------------------------------ Option Strict Off Option Explicit On Imports System Imports System.Windows.Forms Namespace suite4.net Public Class ScreenShots Inherits System.Windows.Forms.Form Private txtFirstName As System.Windows.Forms.TextBox Private txtTitle As System.Windows.Forms.TextBox Private lblWorkEmail As System.Windows.Forms.Label Private txtPostalCode As System.Windows.Forms.TextBox Private tabTabControl1 As System.Windows.Forms.TabControl Private lblFirstName As System.Windows.Forms.Label Private dtpHireDate As System.Windows.Forms.DateTimePicker Private lblWorkFax_ As System.Windows.Forms.Label Private Picture As System.Windows.Forms.TabPage Private lblpriv_Email As System.Windows.Forms.Label Private txtHomePhone_ As System.Windows.Forms.TextBox Private dtpBirthDate As System.Windows.Forms.DateTimePicker Private txtCountry As System.Windows.Forms.TextBox Private Address As System.Windows.Forms.GroupBox Private lblBirthDate As System.Windows.Forms.Label Private txtRegion As System.Windows.Forms.TextBox Private txtNotes As System.Windows.Forms.TextBox Private txtTitleOfCourtesy As System.Windows.Forms.TextBox Private txtCity As System.Windows.Forms.TextBox Private txtLastName As System.Windows.Forms.TextBox Private txtWorkFax_ As System.Windows.Forms.TextBox Private txtWorkEmail As System.Windows.Forms.TextBox Private lblHireDate As System.Windows.Forms.Label Private lblCountry As System.Windows.Forms.Label Private txtExtension As System.Windows.Forms.TextBox Private txtPhotoPath As System.Windows.Forms.TextBox Private lblStreet As System.Windows.Forms.Label Private lblNotes As System.Windows.Forms.Label Private txtHomeEmail As System.Windows.Forms.TextBox Private txtReportsTo As System.Windows.Forms.TextBox Private lblReportsTo As System.Windows.Forms.Label Private txtWorkPhone_ As System.Windows.Forms.TextBox Private txtEmployeeID As System.Windows.Forms.TextBox Private lblRegion As System.Windows.Forms.Label Private Name_Address As System.Windows.Forms.TabPage Private lblpriv_Phone_ As System.Windows.Forms.Label Private Communication As System.Windows.Forms.TabPage Private lblTitle As System.Windows.Forms.Label Private lblPostalCode As System.Windows.Forms.Label Private lblEmployeeID As System.Windows.Forms.Label Private Security As System.Windows.Forms.TabPage Private lblLastName As System.Windows.Forms.Label Private picPictureBox1 As System.Windows.Forms.PictureBox Private lblTitleOfCourtesy As System.Windows.Forms.Label Private lblExt_ As System.Windows.Forms.Label Private lblPhotoPath As System.Windows.Forms.Label Private lblWorkPhone_ As System.Windows.Forms.Label Private lblCity As System.Windows.Forms.Label Private txtStreet As System.Windows.Forms.TextBox Private _EmployeesRowData As suite4.net.Northwind.EmployeesRow Public Sub New() MyBase.New() Me.InitializeComponent() End Sub ' end Public Sub New() Public Overridable Property EmployeesRowData As suite4.net.Northwind.EmployeesRow Get Return Me._EmployeesRowData End Get Set Me._EmployeesRowData = value Me.InitializeDataSource(Me._EmployeesRowData) End Set End Property 'end Public Overridable Property EmployeesRowData As suite4.net.Northwind.EmployeesRow Private Sub InitializeComponent() Dim resources As System.Resources.ResourceManager = New System.Resources.ResourceManager (GetType(ScreenShots)) Me.txtFirstName = New System.Windows.Forms.TextBox () Me.txtTitle = New System.Windows.Forms.TextBox () Me.lblWorkEmail = New System.Windows.Forms.Label () Me.txtPostalCode = New System.Windows.Forms.TextBox () Me.tabTabControl1 = New System.Windows.Forms.TabControl () Me.lblFirstName = New System.Windows.Forms.Label () Me.dtpHireDate = New System.Windows.Forms.DateTimePicker () Me.lblWorkFax_ = New System.Windows.Forms.Label () Me.Picture = New System.Windows.Forms.TabPage () Me.lblpriv_Email = New System.Windows.Forms.Label () Me.txtHomePhone_ = New System.Windows.Forms.TextBox () Me.dtpBirthDate = New System.Windows.Forms.DateTimePicker () Me.txtCountry = New System.Windows.Forms.TextBox () Me.Address = New System.Windows.Forms.GroupBox () Me.lblBirthDate = New System.Windows.Forms.Label () Me.txtRegion = New System.Windows.Forms.TextBox () Me.txtNotes = New System.Windows.Forms.TextBox () Me.txtTitleOfCourtesy = New System.Windows.Forms.TextBox () Me.txtCity = New System.Windows.Forms.TextBox () Me.txtLastName = New System.Windows.Forms.TextBox () Me.txtWorkFax_ = New System.Windows.Forms.TextBox () Me.txtWorkEmail = New System.Windows.Forms.TextBox () Me.lblHireDate = New System.Windows.Forms.Label () Me.lblCountry = New System.Windows.Forms.Label () Me.txtExtension = New System.Windows.Forms.TextBox () Me.txtPhotoPath = New System.Windows.Forms.TextBox () Me.lblStreet = New System.Windows.Forms.Label () Me.lblNotes = New System.Windows.Forms.Label () Me.txtHomeEmail = New System.Windows.Forms.TextBox () Me.txtReportsTo = New System.Windows.Forms.TextBox () Me.lblReportsTo = New System.Windows.Forms.Label () Me.txtWorkPhone_ = New System.Windows.Forms.TextBox () Me.txtEmployeeID = New System.Windows.Forms.TextBox () Me.lblRegion = New System.Windows.Forms.Label () Me.Name_Address = New System.Windows.Forms.TabPage () Me.lblpriv_Phone_ = New System.Windows.Forms.Label () Me.Communication = New System.Windows.Forms.TabPage () Me.lblTitle = New System.Windows.Forms.Label () Me.lblPostalCode = New System.Windows.Forms.Label () Me.lblEmployeeID = New System.Windows.Forms.Label () Me.Security = New System.Windows.Forms.TabPage () Me.lblLastName = New System.Windows.Forms.Label () Me.picPictureBox1 = New System.Windows.Forms.PictureBox () Me.lblTitleOfCourtesy = New System.Windows.Forms.Label () Me.lblExt_ = New System.Windows.Forms.Label () Me.lblPhotoPath = New System.Windows.Forms.Label () Me.lblWorkPhone_ = New System.Windows.Forms.Label () Me.lblCity = New System.Windows.Forms.Label () Me.txtStreet = New System.Windows.Forms.TextBox () Me.tabTabControl1.SuspendLayout() Me.Picture.SuspendLayout() Me.Address.SuspendLayout() Me.Name_Address.SuspendLayout() Me.Communication.SuspendLayout() Me.Security.SuspendLayout() Me.SuspendLayout() ' 'txtFirstName ' Me.txtFirstName.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte)) Me.txtFirstName.ForeColor = System.Drawing.Color.Black Me.txtFirstName.Location = New System.Drawing.Point (88, 88) Me.txtFirstName.MaxLength = 50 Me.txtFirstName.Name = "txtFirstName" Me.txtFirstName.Size = New System.Drawing.Size (166, 20) Me.txtFirstName.TabIndex = 11 Me.txtFirstName.Text = "FirstName" ' 'txtTitle ' Me.txtTitle.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte)) Me.txtTitle.ForeColor = System.Drawing.Color.Black Me.txtTitle.Location = New System.Drawing.Point (88, 16) Me.txtTitle.MaxLength = 30 Me.txtTitle.Name = "txtTitle" Me.txtTitle.Size = New System.Drawing.Size (96, 20) Me.txtTitle.TabIndex = 5 Me.txtTitle.Text = "Title" ' 'lblWorkEmail ' Me.lblWorkEmail.AutoSize = true Me.lblWorkEmail.Location = New System.Drawing.Point (8, 66) Me.lblWorkEmail.Name = "lblWorkEmail" Me.lblWorkEmail.Size = New System.Drawing.Size (61, 16) Me.lblWorkEmail.TabIndex = 8 Me.lblWorkEmail.Text = "Work email" Me.lblWorkEmail.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'txtPostalCode ' Me.txtPostalCode.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte)) Me.txtPostalCode.ForeColor = System.Drawing.Color.Black Me.txtPostalCode.Location = New System.Drawing.Point (80, 66) Me.txtPostalCode.MaxLength = 50 Me.txtPostalCode.Name = "txtPostalCode" Me.txtPostalCode.Size = New System.Drawing.Size (160, 20) Me.txtPostalCode.TabIndex = 18 Me.txtPostalCode.Text = "PostalCode" ' 'tabTabControl1 ' Me.tabTabControl1.Controls.Add(Me.Name_Address) Me.tabTabControl1.Controls.Add(Me.Communication) Me.tabTabControl1.Controls.Add(Me.Security) Me.tabTabControl1.Controls.Add(Me.Picture) Me.tabTabControl1.Location = New System.Drawing.Point (8, 40) Me.tabTabControl1.Name = "tabTabControl1" Me.tabTabControl1.SelectedIndex = 0 Me.tabTabControl1.Size = New System.Drawing.Size (272, 288) Me.tabTabControl1.TabIndex = 7 Me.tabTabControl1.Text = "" ' 'lblFirstName ' Me.lblFirstName.AutoSize = true Me.lblFirstName.Location = New System.Drawing.Point (8, 88) Me.lblFirstName.Name = "lblFirstName" Me.lblFirstName.Size = New System.Drawing.Size (56, 16) Me.lblFirstName.TabIndex = 10 Me.lblFirstName.Text = "FirstName" Me.lblFirstName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'dtpHireDate ' Me.dtpHireDate.Format = System.Windows.Forms.DateTimePickerFormat.Custom Me.dtpHireDate.Location = New System.Drawing.Point (80, 38) Me.dtpHireDate.Name = "dtpHireDate" Me.dtpHireDate.Size = New System.Drawing.Size (136, 20) Me.dtpHireDate.TabIndex = 6 ' 'lblWorkFax_ ' Me.lblWorkFax_.AutoSize = true Me.lblWorkFax_.Location = New System.Drawing.Point (8, 42) Me.lblWorkFax_.Name = "lblWorkFax_" Me.lblWorkFax_.Size = New System.Drawing.Size (62, 16) Me.lblWorkFax_.TabIndex = 6 Me.lblWorkFax_.Text = "Work Fax #" Me.lblWorkFax_.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'Picture ' Me.Picture.Controls.Add(Me.picPictureBox1) Me.Picture.Controls.Add(Me.txtPhotoPath) Me.Picture.Controls.Add(Me.lblPhotoPath) Me.Picture.Location = New System.Drawing.Point (4, 22) Me.Picture.Name = "Picture" Me.Picture.Size = New System.Drawing.Size (264, 262) Me.Picture.TabIndex = 3 Me.Picture.Text = "Picture" ' 'lblpriv_Email ' Me.lblpriv_Email.AutoSize = true Me.lblpriv_Email.Location = New System.Drawing.Point (8, 114) Me.lblpriv_Email.Name = "lblpriv_Email" Me.lblpriv_Email.Size = New System.Drawing.Size (56, 16) Me.lblpriv_Email.TabIndex = 12 Me.lblpriv_Email.Text = "priv. email" Me.lblpriv_Email.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'txtHomePhone_ ' Me.txtHomePhone_.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte)) Me.txtHomePhone_.ForeColor = System.Drawing.Color.Black Me.txtHomePhone_.Location = New System.Drawing.Point (88, 88) Me.txtHomePhone_.MaxLength = 50 Me.txtHomePhone_.Name = "txtHomePhone_" Me.txtHomePhone_.Size = New System.Drawing.Size (96, 20) Me.txtHomePhone_.TabIndex = 11 Me.txtHomePhone_.Text = "Home Phone #" ' 'dtpBirthDate ' Me.dtpBirthDate.Format = System.Windows.Forms.DateTimePickerFormat.Custom Me.dtpBirthDate.Location = New System.Drawing.Point (80, 9) Me.dtpBirthDate.Name = "dtpBirthDate" Me.dtpBirthDate.Size = New System.Drawing.Size (136, 20) Me.dtpBirthDate.TabIndex = 4 ' 'txtCountry ' Me.txtCountry.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte)) Me.txtCountry.ForeColor = System.Drawing.Color.Black Me.txtCountry.Location = New System.Drawing.Point (80, 114) Me.txtCountry.MaxLength = 50 Me.txtCountry.Name = "txtCountry" Me.txtCountry.Size = New System.Drawing.Size (160, 20) Me.txtCountry.TabIndex = 22 Me.txtCountry.Text = "Country" ' 'Address ' Me.Address.Controls.Add(Me.txtCountry) Me.Address.Controls.Add(Me.lblCountry) Me.Address.Controls.Add(Me.txtRegion) Me.Address.Controls.Add(Me.lblRegion) Me.Address.Controls.Add(Me.txtPostalCode) Me.Address.Controls.Add(Me.lblPostalCode) Me.Address.Controls.Add(Me.txtCity) Me.Address.Controls.Add(Me.lblCity) Me.Address.Controls.Add(Me.txtStreet) Me.Address.Controls.Add(Me.lblStreet) Me.Address.Location = New System.Drawing.Point (8, 116) Me.Address.Name = "Address" Me.Address.Size = New System.Drawing.Size (248, 141) Me.Address.TabIndex = 12 Me.Address.TabStop = false Me.Address.Text = "Address" ' 'lblBirthDate ' Me.lblBirthDate.Location = New System.Drawing.Point (8, 8) Me.lblBirthDate.Name = "lblBirthDate" Me.lblBirthDate.Size = New System.Drawing.Size (56, 23) Me.lblBirthDate.TabIndex = 3 Me.lblBirthDate.Text = "BirthDate" Me.lblBirthDate.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'txtRegion ' Me.txtRegion.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte)) Me.txtRegion.ForeColor = System.Drawing.Color.Black Me.txtRegion.Location = New System.Drawing.Point (80, 90) Me.txtRegion.MaxLength = 50 Me.txtRegion.Name = "txtRegion" Me.txtRegion.Size = New System.Drawing.Size (160, 20) Me.txtRegion.TabIndex = 20 Me.txtRegion.Text = "Region" ' 'txtNotes ' Me.txtNotes.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte)) Me.txtNotes.ForeColor = System.Drawing.Color.Black Me.txtNotes.Location = New System.Drawing.Point (8, 104) Me.txtNotes.MaxLength = 50 Me.txtNotes.Multiline = true Me.txtNotes.Name = "txtNotes" Me.txtNotes.Size = New System.Drawing.Size (248, 152) Me.txtNotes.TabIndex = 10 Me.txtNotes.Text = "Notes" ' 'txtTitleOfCourtesy ' Me.txtTitleOfCourtesy.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte)) Me.txtTitleOfCourtesy.ForeColor = System.Drawing.Color.Black Me.txtTitleOfCourtesy.Location = New System.Drawing.Point (88, 40) Me.txtTitleOfCourtesy.MaxLength = 30 Me.txtTitleOfCourtesy.Name = "txtTitleOfCourtesy" Me.txtTitleOfCourtesy.Size = New System.Drawing.Size (96, 20) Me.txtTitleOfCourtesy.TabIndex = 7 Me.txtTitleOfCourtesy.TabStop = false Me.txtTitleOfCourtesy.Text = "TitleOfCourtesy" ' 'txtCity ' Me.txtCity.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte)) Me.txtCity.ForeColor = System.Drawing.Color.Black Me.txtCity.Location = New System.Drawing.Point (80, 42) Me.txtCity.MaxLength = 50 Me.txtCity.Name = "txtCity" Me.txtCity.Size = New System.Drawing.Size (160, 20) Me.txtCity.TabIndex = 16 Me.txtCity.Text = "City" ' 'txtLastName ' Me.txtLastName.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte)) Me.txtLastName.ForeColor = System.Drawing.Color.Black Me.txtLastName.Location = New System.Drawing.Point (88, 64) Me.txtLastName.MaxLength = 50 Me.txtLastName.Name = "txtLastName" Me.txtLastName.Size = New System.Drawing.Size (166, 20) Me.txtLastName.TabIndex = 9 Me.txtLastName.Text = "LastName" ' 'txtWorkFax_ ' Me.txtWorkFax_.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte)) Me.txtWorkFax_.ForeColor = System.Drawing.Color.Black Me.txtWorkFax_.Location = New System.Drawing.Point (88, 40) Me.txtWorkFax_.MaxLength = 50 Me.txtWorkFax_.Name = "txtWorkFax_" Me.txtWorkFax_.Size = New System.Drawing.Size (96, 20) Me.txtWorkFax_.TabIndex = 7 Me.txtWorkFax_.Text = "Work Fax #" ' 'txtWorkEmail ' Me.txtWorkEmail.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte)) Me.txtWorkEmail.ForeColor = System.Drawing.Color.Black Me.txtWorkEmail.Location = New System.Drawing.Point (88, 64) Me.txtWorkEmail.MaxLength = 50 Me.txtWorkEmail.Name = "txtWorkEmail" Me.txtWorkEmail.Size = New System.Drawing.Size (96, 20) Me.txtWorkEmail.TabIndex = 9 Me.txtWorkEmail.Text = "Work email" ' 'lblHireDate ' Me.lblHireDate.Location = New System.Drawing.Point (8, 40) Me.lblHireDate.Name = "lblHireDate" Me.lblHireDate.Size = New System.Drawing.Size (56, 16) Me.lblHireDate.TabIndex = 5 Me.lblHireDate.Text = "HireDate" Me.lblHireDate.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'lblCountry ' Me.lblCountry.AutoSize = true Me.lblCountry.Location = New System.Drawing.Point (8, 116) Me.lblCountry.Name = "lblCountry" Me.lblCountry.Size = New System.Drawing.Size (44, 16) Me.lblCountry.TabIndex = 21 Me.lblCountry.Text = "Country" Me.lblCountry.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'txtExtension ' Me.txtExtension.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte)) Me.txtExtension.ForeColor = System.Drawing.Color.Black Me.txtExtension.Location = New System.Drawing.Point (216, 16) Me.txtExtension.MaxLength = 50 Me.txtExtension.Name = "txtExtension" Me.txtExtension.Size = New System.Drawing.Size (40, 20) Me.txtExtension.TabIndex = 5 Me.txtExtension.Text = "Extension" ' 'txtPhotoPath ' Me.txtPhotoPath.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte)) Me.txtPhotoPath.ForeColor = System.Drawing.Color.Black Me.txtPhotoPath.Location = New System.Drawing.Point (64, 6) Me.txtPhotoPath.MaxLength = 50 Me.txtPhotoPath.Name = "txtPhotoPath" Me.txtPhotoPath.Size = New System.Drawing.Size (192, 20) Me.txtPhotoPath.TabIndex = 5 Me.txtPhotoPath.Text = "PhotoPath" ' 'lblStreet ' Me.lblStreet.AutoSize = true Me.lblStreet.Location = New System.Drawing.Point (8, 20) Me.lblStreet.Name = "lblStreet" Me.lblStreet.Size = New System.Drawing.Size (34, 16) Me.lblStreet.TabIndex = 13 Me.lblStreet.Text = "Street" Me.lblStreet.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'lblNotes ' Me.lblNotes.Location = New System.Drawing.Point (8, 88) Me.lblNotes.Name = "lblNotes" Me.lblNotes.Size = New System.Drawing.Size (56, 16) Me.lblNotes.TabIndex = 9 Me.lblNotes.Text = "Notes" Me.lblNotes.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'txtHomeEmail ' Me.txtHomeEmail.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte)) Me.txtHomeEmail.ForeColor = System.Drawing.Color.Black Me.txtHomeEmail.Location = New System.Drawing.Point (88, 112) Me.txtHomeEmail.MaxLength = 50 Me.txtHomeEmail.Name = "txtHomeEmail" Me.txtHomeEmail.Size = New System.Drawing.Size (96, 20) Me.txtHomeEmail.TabIndex = 13 Me.txtHomeEmail.Text = "Home email" ' 'txtReportsTo ' Me.txtReportsTo.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte)) Me.txtReportsTo.ForeColor = System.Drawing.Color.Black Me.txtReportsTo.Location = New System.Drawing.Point (80, 62) Me.txtReportsTo.MaxLength = 50 Me.txtReportsTo.Name = "txtReportsTo" Me.txtReportsTo.Size = New System.Drawing.Size (176, 20) Me.txtReportsTo.TabIndex = 8 Me.txtReportsTo.Text = "ReportsTo" ' 'lblReportsTo ' Me.lblReportsTo.Location = New System.Drawing.Point (8, 64) Me.lblReportsTo.Name = "lblReportsTo" Me.lblReportsTo.Size = New System.Drawing.Size (72, 16) Me.lblReportsTo.TabIndex = 7 Me.lblReportsTo.Text = "ReportsTo" Me.lblReportsTo.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'txtWorkPhone_ ' Me.txtWorkPhone_.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte)) Me.txtWorkPhone_.ForeColor = System.Drawing.Color.Black Me.txtWorkPhone_.Location = New System.Drawing.Point (88, 16) Me.txtWorkPhone_.MaxLength = 50 Me.txtWorkPhone_.Name = "txtWorkPhone_" Me.txtWorkPhone_.Size = New System.Drawing.Size (96, 20) Me.txtWorkPhone_.TabIndex = 3 Me.txtWorkPhone_.Text = "Work Phone #" ' 'txtEmployeeID ' Me.txtEmployeeID.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte)) Me.txtEmployeeID.ForeColor = System.Drawing.Color.Black Me.txtEmployeeID.Location = New System.Drawing.Point (88, 11) Me.txtEmployeeID.MaxLength = 12 Me.txtEmployeeID.Name = "txtEmployeeID" Me.txtEmployeeID.ReadOnly = true Me.txtEmployeeID.Size = New System.Drawing.Size (96, 20) Me.txtEmployeeID.TabIndex = 1 Me.txtEmployeeID.Text = "EmployeeID" ' 'lblRegion ' Me.lblRegion.AutoSize = true Me.lblRegion.Location = New System.Drawing.Point (8, 92) Me.lblRegion.Name = "lblRegion" Me.lblRegion.Size = New System.Drawing.Size (40, 16) Me.lblRegion.TabIndex = 19 Me.lblRegion.Text = "Region" Me.lblRegion.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'Name_Address ' Me.Name_Address.Controls.Add(Me.txtTitleOfCourtesy) Me.Name_Address.Controls.Add(Me.lblTitleOfCourtesy) Me.Name_Address.Controls.Add(Me.txtTitle) Me.Name_Address.Controls.Add(Me.lblTitle) Me.Name_Address.Controls.Add(Me.Address) Me.Name_Address.Controls.Add(Me.txtFirstName) Me.Name_Address.Controls.Add(Me.lblFirstName) Me.Name_Address.Controls.Add(Me.txtLastName) Me.Name_Address.Controls.Add(Me.lblLastName) Me.Name_Address.Location = New System.Drawing.Point (4, 22) Me.Name_Address.Name = "Name_Address" Me.Name_Address.Size = New System.Drawing.Size (264, 262) Me.Name_Address.TabIndex = 3 Me.Name_Address.Text = "Name/Address" ' 'lblpriv_Phone_ ' Me.lblpriv_Phone_.AutoSize = true Me.lblpriv_Phone_.Location = New System.Drawing.Point (8, 90) Me.lblpriv_Phone_.Name = "lblpriv_Phone_" Me.lblpriv_Phone_.Size = New System.Drawing.Size (71, 16) Me.lblpriv_Phone_.TabIndex = 10 Me.lblpriv_Phone_.Text = "priv. Phone #" Me.lblpriv_Phone_.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'Communication ' Me.Communication.Controls.Add(Me.txtExtension) Me.Communication.Controls.Add(Me.txtHomeEmail) Me.Communication.Controls.Add(Me.txtHomePhone_) Me.Communication.Controls.Add(Me.lblpriv_Email) Me.Communication.Controls.Add(Me.lblpriv_Phone_) Me.Communication.Controls.Add(Me.txtWorkEmail) Me.Communication.Controls.Add(Me.txtWorkFax_) Me.Communication.Controls.Add(Me.lblWorkEmail) Me.Communication.Controls.Add(Me.lblWorkFax_) Me.Communication.Controls.Add(Me.txtWorkPhone_) Me.Communication.Controls.Add(Me.lblWorkPhone_) Me.Communication.Controls.Add(Me.lblExt_) Me.Communication.Location = New System.Drawing.Point (4, 22) Me.Communication.Name = "Communication" Me.Communication.Size = New System.Drawing.Size (264, 262) Me.Communication.TabIndex = 1 Me.Communication.Text = "Communication" ' 'lblTitle ' Me.lblTitle.AutoSize = true Me.lblTitle.Location = New System.Drawing.Point (8, 16) Me.lblTitle.Name = "lblTitle" Me.lblTitle.Size = New System.Drawing.Size (26, 16) Me.lblTitle.TabIndex = 4 Me.lblTitle.Text = "Title" Me.lblTitle.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'lblPostalCode ' Me.lblPostalCode.AutoSize = true Me.lblPostalCode.Location = New System.Drawing.Point (8, 68) Me.lblPostalCode.Name = "lblPostalCode" Me.lblPostalCode.Size = New System.Drawing.Size (63, 16) Me.lblPostalCode.TabIndex = 17 Me.lblPostalCode.Text = "PostalCode" Me.lblPostalCode.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'lblEmployeeID ' Me.lblEmployeeID.AutoSize = true Me.lblEmployeeID.Location = New System.Drawing.Point (16, 13) Me.lblEmployeeID.Name = "lblEmployeeID" Me.lblEmployeeID.Size = New System.Drawing.Size (66, 16) Me.lblEmployeeID.TabIndex = 0 Me.lblEmployeeID.Text = "EmployeeID" Me.lblEmployeeID.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'Security ' Me.Security.Controls.Add(Me.txtNotes) Me.Security.Controls.Add(Me.txtReportsTo) Me.Security.Controls.Add(Me.lblNotes) Me.Security.Controls.Add(Me.lblReportsTo) Me.Security.Controls.Add(Me.dtpHireDate) Me.Security.Controls.Add(Me.lblHireDate) Me.Security.Controls.Add(Me.dtpBirthDate) Me.Security.Controls.Add(Me.lblBirthDate) Me.Security.Location = New System.Drawing.Point (4, 22) Me.Security.Name = "Security" Me.Security.Size = New System.Drawing.Size (264, 262) Me.Security.TabIndex = 2 Me.Security.Text = "Security" ' 'lblLastName ' Me.lblLastName.AutoSize = true Me.lblLastName.Location = New System.Drawing.Point (8, 64) Me.lblLastName.Name = "lblLastName" Me.lblLastName.Size = New System.Drawing.Size (56, 16) Me.lblLastName.TabIndex = 8 Me.lblLastName.Text = "LastName" Me.lblLastName.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'picPictureBox1 ' Me.picPictureBox1.Image = CType(resources.GetObject("picPictureBox1.Image"), System.Drawing.Image) Me.picPictureBox1.Location = New System.Drawing.Point (48, 40) Me.picPictureBox1.Name = "picPictureBox1" Me.picPictureBox1.Size = New System.Drawing.Size (168, 208) Me.picPictureBox1.TabIndex = 6 Me.picPictureBox1.TabStop = false Me.picPictureBox1.Text = "" ' 'lblTitleOfCourtesy ' Me.lblTitleOfCourtesy.AutoSize = true Me.lblTitleOfCourtesy.Location = New System.Drawing.Point (8, 40) Me.lblTitleOfCourtesy.Name = "lblTitleOfCourtesy" Me.lblTitleOfCourtesy.Size = New System.Drawing.Size (83, 16) Me.lblTitleOfCourtesy.TabIndex = 6 Me.lblTitleOfCourtesy.Text = "TitleOfCourtesy" Me.lblTitleOfCourtesy.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'lblExt_ ' Me.lblExt_.Location = New System.Drawing.Point (192, 16) Me.lblExt_.Name = "lblExt_" Me.lblExt_.Size = New System.Drawing.Size (24, 20) Me.lblExt_.TabIndex = 4 Me.lblExt_.Text = "Ext." Me.lblExt_.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'lblPhotoPath ' Me.lblPhotoPath.Location = New System.Drawing.Point (8, 8) Me.lblPhotoPath.Name = "lblPhotoPath" Me.lblPhotoPath.Size = New System.Drawing.Size (64, 16) Me.lblPhotoPath.TabIndex = 4 Me.lblPhotoPath.Text = "PhotoPath" Me.lblPhotoPath.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'lblWorkPhone_ ' Me.lblWorkPhone_.AutoSize = true Me.lblWorkPhone_.Location = New System.Drawing.Point (8, 18) Me.lblWorkPhone_.Name = "lblWorkPhone_" Me.lblWorkPhone_.Size = New System.Drawing.Size (76, 16) Me.lblWorkPhone_.TabIndex = 2 Me.lblWorkPhone_.Text = "Work Phone #" Me.lblWorkPhone_.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'lblCity ' Me.lblCity.AutoSize = true Me.lblCity.Location = New System.Drawing.Point (8, 44) Me.lblCity.Name = "lblCity" Me.lblCity.Size = New System.Drawing.Size (24, 16) Me.lblCity.TabIndex = 15 Me.lblCity.Text = "City" Me.lblCity.TextAlign = System.Drawing.ContentAlignment.MiddleLeft ' 'txtStreet ' Me.txtStreet.BackColor = System.Drawing.Color.FromArgb(CType(255, Byte), CType(255, Byte), CType(192, Byte)) Me.txtStreet.ForeColor = System.Drawing.Color.Black Me.txtStreet.Location = New System.Drawing.Point (80, 18) Me.txtStreet.MaxLength = 50 Me.txtStreet.Name = "txtStreet" Me.txtStreet.Size = New System.Drawing.Size (160, 20) Me.txtStreet.TabIndex = 14 Me.txtStreet.Text = "Street" ' 'ScreenShots ' Me.AutoScaleBaseSize = New System.Drawing.Size (5, 13) Me.ClientSize = New System.Drawing.Size (296, 342) Me.Controls.Add(Me.txtEmployeeID) Me.Controls.Add(Me.lblEmployeeID) Me.Controls.Add(Me.tabTabControl1) Me.Name = "ScreenShots" Me.Text = "Form1" Me.tabTabControl1.ResumeLayout(false) Me.Picture.ResumeLayout(false) Me.Address.ResumeLayout(false) Me.Name_Address.ResumeLayout(false) Me.Communication.ResumeLayout(false) Me.Security.ResumeLayout(false) Me.ResumeLayout(false) End Sub ' end Private Sub InitializeComponent() Public Sub InitializeDataSource(ByVal employeesRowData As suite4.net.Northwind.EmployeesRow) Me.SuspendLayout() 'Clear DataBindings for all components. Me.txtFirstName.DataBindings.Clear() Me.txtTitle.DataBindings.Clear() Me.txtPostalCode.DataBindings.Clear() Me.txtHomePhone_.DataBindings.Clear() Me.txtCountry.DataBindings.Clear() Me.txtRegion.DataBindings.Clear() Me.txtNotes.DataBindings.Clear() Me.txtTitleOfCourtesy.DataBindings.Clear() Me.txtCity.DataBindings.Clear() Me.txtLastName.DataBindings.Clear() Me.txtWorkFax_.DataBindings.Clear() Me.txtWorkEmail.DataBindings.Clear() Me.txtExtension.DataBindings.Clear() Me.txtPhotoPath.DataBindings.Clear() Me.txtHomeEmail.DataBindings.Clear() Me.txtReportsTo.DataBindings.Clear() Me.txtWorkPhone_.DataBindings.Clear() Me.txtEmployeeID.DataBindings.Clear() Me.txtStreet.DataBindings.Clear() Me._EmployeesRowData = employeesRowData If (Not(Me._EmployeesRowData) Is Nothing) Then Me.txtFirstName.DataBindings.Add("Text", Me._EmployeesRowData, "FirstName") Me.txtTitle.DataBindings.Add("Text", Me._EmployeesRowData, "Title") Me.txtPostalCode.DataBindings.Add("Text", Me._EmployeesRowData, "PostalCode") Me.txtHomePhone_.DataBindings.Add("Text", Me._EmployeesRowData, "HomePhone") Me.txtCountry.DataBindings.Add("Text", Me._EmployeesRowData, "Country") Me.txtRegion.DataBindings.Add("Text", Me._EmployeesRowData, "Region") Me.txtNotes.DataBindings.Add("Text", Me._EmployeesRowData, "Notes") Me.txtTitleOfCourtesy.DataBindings.Add("Text", Me._EmployeesRowData, "TitleOfCourtesy") Me.txtCity.DataBindings.Add("Text", Me._EmployeesRowData, "City") Me.txtLastName.DataBindings.Add("Text", Me._EmployeesRowData, "LastName") Me.txtWorkFax_.DataBindings.Add("Text", Me._EmployeesRowData, "HomePhone") Me.txtWorkEmail.DataBindings.Add("Text", Me._EmployeesRowData, "HomePhone") Me.txtExtension.DataBindings.Add("Text", Me._EmployeesRowData, "Extension") Me.txtPhotoPath.DataBindings.Add("Text", Me._EmployeesRowData, "PhotoPath") Me.txtHomeEmail.DataBindings.Add("Text", Me._EmployeesRowData, "HomePhone") Me.txtReportsTo.DataBindings.Add("Text", Me._EmployeesRowData, "ReportsTo") Me.txtWorkPhone_.DataBindings.Add("Text", Me._EmployeesRowData, "HomePhone") Me.txtEmployeeID.DataBindings.Add("Text", Me._EmployeesRowData, "EmployeeID") Me.txtStreet.DataBindings.Add("Text", Me._EmployeesRowData, "Address") End If 'end If (Not(Me._EmployeesRowData) Is Nothing) Then Me.ResumeLayout(false) End Sub ' end Public Sub InitializeDataSource(ByVal employeesRowData As suite4.net.Northwind.EmployeesRow) End Class ' end Public Class ScreenShots End Namespace ' end Namespace suite4.net