Three Tier Code Generator For ASP.NET

'**==========================================================================================
'**
'** FILE  : User.vb
'** Author: Stevan Rodrigues
'**
'**==========================================================================================
'**
'** (c) The contents of this file , and of any file or document derived from it , are copyright 
'** to Webchamps . Unlicensed alteration, change or copying in any form, 
'** whether written, by photocopy, by print or by any other methods of reproduction is 
'** strictly prohibited.
'**
'**==========================================================================================
Imports System
Imports Company.ThreeTierDemoVB.Components.Interface
Imports WebChamps.Components.Parent
'*********************************************************************
'
' Company.ThreeTierDemoVB.Components.Business Namespace
'
'*********************************************************************
Namespace Company.ThreeTierDemoVB.Components.Business
	'*********************************************************************
	'
	' Class: User
	'
 	'Description: Business object to maintain 	records
 	' of Users_Tb within database.
	'
	'*********************************************************************
	Public Class User
		Inherits BusinessObject
		Implements IUser
		Private _UserId As Int32
		Private _FirstName As string
		Private _LastName As string
		Private _Email As string
		Private _Comments As string

		Public Sub New()
		End Sub

		Public Sub New(ByVal ParamUserId As Int32)
		Dim MsDataReader As System.Data.SqlClient.SqlDataReader
			_UserId = ParamUserId
			MsDataReader = Company.ThreeTierDemoVB.Components.Data.User.SelectUser(ParamUserId)
			If MsDataReader.Read() Then
				_FirstName = System.Convert.ToString(MsDataReader("FirstName"))
				_LastName = System.Convert.ToString(MsDataReader("LastName"))
				_Email = System.Convert.ToString(MsDataReader("Email"))
				_Comments = System.Convert.ToString(MsDataReader("Comments"))
			End If 
			MsDataReader.Close()
		End Sub

		Public Property UserId() As Int32 Implements IUser.UserId
			Get
				Return _UserId
			End Get
			Set(ByVal Value As Int32)
				_UserId = Value
			End Set
		End Property

		Public Property FirstName() As string Implements IUser.FirstName
			Get
				Return _FirstName
			End Get
			Set(ByVal Value As string)
				_FirstName = Value
			End Set
		End Property

		Public Property LastName() As string Implements IUser.LastName
			Get
				Return _LastName
			End Get
			Set(ByVal Value As string)
				_LastName = Value
			End Set
		End Property

		Public Property Email() As string Implements IUser.Email
			Get
				Return _Email
			End Get
			Set(ByVal Value As string)
				_Email = Value
			End Set
		End Property

		Public Property Comments() As string Implements IUser.Comments
			Get
				Return _Comments
			End Get
			Set(ByVal Value As string)
				_Comments = Value
			End Set
		End Property

		Public Function Add(ByVal Username As String) As Int32
			Try
				Return Company.ThreeTierDemoVB.Components.Data.User.AddUser(Me, Username)
			Catch ex As WebChamps.Components.Web.AppException
				Return -1
			Catch ex As System.Exception
				Throw New WebChamps.Components.Web.AppException("An error occurred while executing the Company.ThreeTierDemoVB.Components.Business.User.Add", ex)

			Finally
				'Some action
			End Try

		End Function

		Public Function Update(ByVal Username As String) As Int32
			Try
				Return Company.ThreeTierDemoVB.Components.Data.User.UpdateUser(Me, Username)
			Catch ex As WebChamps.Components.Web.AppException
				Return -1
			Catch ex As System.Exception
				Throw New WebChamps.Components.Web.AppException("An error occurred while executing the Company.ThreeTierDemoVB.Components.Business.User.Update", ex)

			Finally
				'Some action
			End Try

		End Function

		Public Function Delete(ByVal Username As String) As Int32
			Try
				Return Company.ThreeTierDemoVB.Components.Data.User.DeleteUser(_UserId, Username)
			Catch ex As WebChamps.Components.Web.AppException
				Return -1
			Catch ex As System.Exception
				Throw New WebChamps.Components.Web.AppException("An error occurred while executing the Company.ThreeTierDemoVB.Components.Business.User.Delete", ex)

			Finally
				'Some action
			End Try

		End Function

		Public Function ShowAll() As System.Data.DataSet
			Try
				Return Company.ThreeTierDemoVB.Components.Data.User.ShowUser()
			Catch ex As WebChamps.Components.Web.AppException
				Return Nothing
			Catch ex As System.Exception
				Throw New WebChamps.Components.Web.AppException("An error occurred while executing the Company.ThreeTierDemoVB.Components.Business.User.ShowAll", ex)

			Finally
				'Some action
			End Try

		End Function

	End Class


End Namespace