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 form designer generation engine created a Save method to deserializes a business object from the form.
Instate of consuming the automatically generated OnChangeEventHandler you can use the boolean IsDirty property to verify that the user has made changes to the Form. 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 _IsDirty As Boolean
Private _IsInitializing As Boolean
Private _EmployeesRowData As suite4.net.Northwind.EmployeesRow
Public Sub New()
MyBase.New()
Me.InitializeComponent()
End Sub ' end Public Sub New()
Public Property IsDirty As Boolean
Get
Return Me._IsDirty
End Get
Set
Me._IsDirty = value
End Set
End Property 'end Public Property IsDirty As Boolean
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
Public Event MakeDirtyEvent
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 Save()
If Me._IsDirty Then
If (Not(Me._EmployeesRowData) Is Nothing) Then
Me._EmployeesRowData.FirstName = Me.txtFirstName.Text
Me._EmployeesRowData.Title = Me.txtTitle.Text
Me._EmployeesRowData.PostalCode = Me.txtPostalCode.Text
Me._EmployeesRowData.HomePhone = Me.txtHomePhone_.Text
Me._EmployeesRowData.Country = Me.txtCountry.Text
Me._EmployeesRowData.Region = Me.txtRegion.Text
Me._EmployeesRowData.Notes = Me.txtNotes.Text
Me._EmployeesRowData.TitleOfCourtesy = Me.txtTitleOfCourtesy.Text
Me._EmployeesRowData.City = Me.txtCity.Text
Me._EmployeesRowData.LastName = Me.txtLastName.Text
Me._EmployeesRowData.HomePhone = Me.txtWorkFax_.Text
Me._EmployeesRowData.HomePhone = Me.txtWorkEmail.Text
Me._EmployeesRowData.Extension = Me.txtExtension.Text
Me._EmployeesRowData.PhotoPath = Me.txtPhotoPath.Text
Me._EmployeesRowData.HomePhone = Me.txtHomeEmail.Text
'Please tpye your own Exception messages here.
Try
Me._EmployeesRowData.ReportsTo = Integer.Parse(Me.txtReportsTo.Text)
Catch ex As System.Exception
End Try 'end Try
Me._EmployeesRowData.HomePhone = Me.txtWorkPhone_.Text
'Please tpye your own Exception messages here.
Try
Me._EmployeesRowData.EmployeeID = Integer.Parse(Me.txtEmployeeID.Text)
Catch ex As System.Exception
End Try 'end Try
Me._EmployeesRowData.Address = Me.txtStreet.Text
End If 'end If (Not(Me._EmployeesRowData) Is Nothing) Then
Me._IsDirty = false
End If 'end If Me._IsDirty Then
End Sub ' end Public Sub Save()
Public Sub Reset()
Me.txtFirstName.Text = Nothing
Me.txtTitle.Text = Nothing
Me.txtPostalCode.Text = Nothing
Me.txtHomePhone_.Text = Nothing
Me.txtCountry.Text = Nothing
Me.txtRegion.Text = Nothing
Me.txtNotes.Text = Nothing
Me.txtTitleOfCourtesy.Text = Nothing
Me.txtCity.Text = Nothing
Me.txtLastName.Text = Nothing
Me.txtWorkFax_.Text = Nothing
Me.txtWorkEmail.Text = Nothing
Me.txtExtension.Text = Nothing
Me.txtPhotoPath.Text = Nothing
Me.txtHomeEmail.Text = Nothing
Me.txtReportsTo.Text = Nothing
Me.txtWorkPhone_.Text = Nothing
Me.txtEmployeeID.Text = Nothing
Me.txtStreet.Text = Nothing
End Sub ' end Public Sub Reset()
Public Sub InitializeDataSource(ByVal employeesRowData As suite4.net.Northwind.EmployeesRow)
Me.SuspendLayout()
Me.Save()
Me._IsInitializing = true
Me.Reset()
Me._EmployeesRowData = employeesRowData
If (Not(Me._EmployeesRowData) Is Nothing) Then
Me.txtFirstName.Text = Me._EmployeesRowData.FirstName
Me.txtTitle.Text = Me._EmployeesRowData.Title
Me.txtPostalCode.Text = Me._EmployeesRowData.PostalCode
Me.txtHomePhone_.Text = Me._EmployeesRowData.HomePhone
Me.txtCountry.Text = Me._EmployeesRowData.Country
Me.txtRegion.Text = Me._EmployeesRowData.Region
Me.txtNotes.Text = Me._EmployeesRowData.Notes
Me.txtTitleOfCourtesy.Text = Me._EmployeesRowData.TitleOfCourtesy
Me.txtCity.Text = Me._EmployeesRowData.City
Me.txtLastName.Text = Me._EmployeesRowData.LastName
Me.txtWorkFax_.Text = Me._EmployeesRowData.HomePhone
Me.txtWorkEmail.Text = Me._EmployeesRowData.HomePhone
Me.txtExtension.Text = Me._EmployeesRowData.Extension
Me.txtPhotoPath.Text = Me._EmployeesRowData.PhotoPath
Me.txtHomeEmail.Text = Me._EmployeesRowData.HomePhone
Me.txtReportsTo.Text = Me._EmployeesRowData.ReportsTo.ToString
Me.txtWorkPhone_.Text = Me._EmployeesRowData.HomePhone
Me.txtEmployeeID.Text = Me._EmployeesRowData.EmployeeID.ToString
Me.txtStreet.Text = Me._EmployeesRowData.Address
End If 'end If (Not(Me._EmployeesRowData) Is Nothing) Then
Me.ResumeLayout(false)
Me._IsInitializing = false
Me._IsDirty = false
End Sub ' end Public Sub InitializeDataSource(ByVal employeesRowData As suite4.net.Northwind.EmployeesRow)
Protected Overridable Sub OnChangeEventHandler(ByVal sender As System.Object, ByVal e As System.EventArgs)
If ((Me._IsDirty <> true) AndAlso (Me._IsInitializing <> true)) Then
Me._IsDirty = true
If (Not(Me.MakeDirtyEvent) Is Nothing) Then
Me.MakeDirtyEvent(Me, New System.EventArgs ())
End If 'end If (Not(Me.MakeDirtyEvent) Is Nothing) Then
End If 'end If ((Me._IsDirty <> true) AndAlso (Me._IsInitializing <> true)) Then
End Sub ' end Protected Overridable Sub OnChangeEventHandler(ByVal sender As System.Object, ByVal e As System.EventArgs)
Private Sub InitializeEvents()
AddHandler Me.txtFirstName.TextChanged, AddressOf Me.OnChangeEventHandler
AddHandler Me.txtTitle.TextChanged, AddressOf Me.OnChangeEventHandler
AddHandler Me.txtPostalCode.TextChanged, AddressOf Me.OnChangeEventHandler
AddHandler Me.txtHomePhone_.TextChanged, AddressOf Me.OnChangeEventHandler
AddHandler Me.txtCountry.TextChanged, AddressOf Me.OnChangeEventHandler
AddHandler Me.txtRegion.TextChanged, AddressOf Me.OnChangeEventHandler
AddHandler Me.txtNotes.TextChanged, AddressOf Me.OnChangeEventHandler
AddHandler Me.txtTitleOfCourtesy.TextChanged, AddressOf Me.OnChangeEventHandler
AddHandler Me.txtCity.TextChanged, AddressOf Me.OnChangeEventHandler
AddHandler Me.txtLastName.TextChanged, AddressOf Me.OnChangeEventHandler
AddHandler Me.txtWorkFax_.TextChanged, AddressOf Me.OnChangeEventHandler
AddHandler Me.txtWorkEmail.TextChanged, AddressOf Me.OnChangeEventHandler
AddHandler Me.txtExtension.TextChanged, AddressOf Me.OnChangeEventHandler
AddHandler Me.txtPhotoPath.TextChanged, AddressOf Me.OnChangeEventHandler
AddHandler Me.txtHomeEmail.TextChanged, AddressOf Me.OnChangeEventHandler
AddHandler Me.txtReportsTo.TextChanged, AddressOf Me.OnChangeEventHandler
AddHandler Me.txtWorkPhone_.TextChanged, AddressOf Me.OnChangeEventHandler
AddHandler Me.txtEmployeeID.TextChanged, AddressOf Me.OnChangeEventHandler
AddHandler Me.txtStreet.TextChanged, AddressOf Me.OnChangeEventHandler
End Sub ' end Private Sub InitializeEvents()
End Class ' end Public Class ScreenShots
End Namespace ' end Namespace suite4.net