Untitled Page
File: App_Code\Customer.vb
Imports Microsoft.VisualBasic
Public Class Customer
Private _customerID As Integer
Private _companyName As String
Private _contactName As String
Private _contactTitle As String
Public Property CustomerID() As Integer
Get
Return _customerID
End Get
Set(ByVal value As Integer)
_customerID = value
End Set
End Property
Public Property CompanyName() As Integer
Get
Return _companyName
End Get
Set(ByVal value As Integer)
_companyName = value
End Set
End Property
Public Property ContactName() As Integer
Get
Return _contactName
End Get
Set(ByVal value As Integer)
_contactName = value
End Set
End Property
Public Property ContactTitle() As Integer
Get
Return _contactTitle
End Get
Set(ByVal value As Integer)
_contactTitle = value
End Set
End Property
Public Function [Select](ByVal customerID As Integer) As System.Data.DataSet
' You would implement logic here to reterive
' Customer data based on the customerID parameter
Dim ds As New System.Data.DataSet()
ds.Tables.Add(New System.Data.DataTable())
Return ds
End Function
Public Sub Insert(ByVal c As Customer)
' Implement Insert logic
End Sub
Public Sub Update(ByVal c As Customer)
' Implement Update logic
End Sub
Public Sub Delete(ByVal c As Customer)
' Implement Delete logic
End Sub
End Class