<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" > <head id="Head1" runat="server"> <title>Enter New Employees</title> <script runat="server"> Private EmployeeList As List(Of Employee)
Protected Sub Page_Load() If Not IsPostBack Then EmployeeList = New List(Of Employee) EmployeeList.Add(New Employee(1, "Jump", "Dan")) EmployeeList.Add(New Employee(2, "Kirwan", "Yvette")) ViewState("EmployeeList") = EmployeeList Else EmployeeList = CType(ViewState("EmployeeList"), List(Of Employee)) End If
EmployeesGridView.DataSource = EmployeeList EmployeesGridView.DataBind() End Sub
Protected Sub InsertButton_Click(ByVal sender As Object, ByVal e As EventArgs) If String.IsNullOrEmpty(FirstNameTextBox.Text) Or _ String.IsNullOrEmpty(LastNameTextBox.Text) Then Return
Dim employeeID As Integer = EmployeeList(EmployeeList.Count - 1).EmployeeID + 1
Dim lastName As String = Server.HtmlEncode(FirstNameTextBox.Text) Dim firstName As String = Server.HtmlEncode(LastNameTextBox.Text)
EmployeesGridView.DataBind() EmployeesGridView.PageIndex = EmployeesGridView.PageCount End Sub
Protected Sub CancelButton_Click(ByVal sender As Object, ByVal e As EventArgs) FirstNameTextBox.Text = String.Empty LastNameTextBox.Text = String.Empty End Sub
<Serializable()> _ Public Class Employee Private _employeeID As Integer Private _lastName As String Private _firstName As String
Public ReadOnly Property EmployeeID() As Integer Get Return _employeeID End Get End Property
Public ReadOnly Property LastName() As String Get Return _lastName End Get End Property
Public ReadOnly Property FirstName() As String Get Return _firstName End Get End Property
Public Sub New(ByVal employeeID As Integer, ByVal lastName As String, ByVal firstName As String) _employeeID = employeeID _lastName = lastName _firstName = firstName End Sub End Class