customer.vb

来自「對c#初學者參考..為課題asp.net 2.0教材代碼」· VB 代码 · 共 68 行

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