Public Class Customer
Public Sub New()
End Sub
Public Sub New(ByVal Company, ByVal City, ByVal State)
Me.Company = Company
Me.City = City
Me.State = State
End Sub
Private _Company As String
Public Property Company()
Get
Return _Company
End Get
Set(ByVal value)
_Company = value
End Set
End Property
Private _City As String
Public Property City()
Get
Return _City
End Get
Set(ByVal value)
_City = value
End Set
End Property
Private _State As String
Public Property State()
Get
Return _State
End Get
Set(ByVal value)
_State = value
End Set
End Property
Public Shared Function GetCustomer() As DataTable
End Function
Public Shared Sub InsertUpdateCustomer(ByVal customer As Customer)
End Sub
End Class