ticket.vb

来自「我基于.netframwork1.0开发的一个B/S网络店铺（会员）销售管理系统」· VB 代码 · 共 40 行

Option Strict On
Option Explicit On 

Imports System
Imports System.Data
Imports System.Runtime.Serialization

Namespace Data

    <System.ComponentModel.DesignerCategory("Code"), SerializableAttribute()> _
    Public Class Ticket
        Inherits DataSet

        Public Const TABLE_TITLE As String = "title"
        Public Const TABLE_ITEM As String = "item"

        Public Const ITEM_CODE As String = "code"
        Public Const ITEM_SHOPNAME As String = "shop"
        Public Const ITEM_OPERATORNAME As String = "operator"
        Public Const ITEM_DATE As String = "date"

        Public Sub New()
            MyBase.New()
            MyBase.Tables.Add(Ticket.TABLE_TITLE)
            MyBase.Tables.Add(Ticket.TABLE_ITEM)
        End Sub

        Public ReadOnly Property Item(ByVal Name As String) As Object
            Get
                With MyBase.Tables(Ticket.TABLE_TITLE).Rows
                    If .Count = 1 Then
                        Return .Item(0).Item(Name)
                    End If
                End With
            End Get
        End Property

    End Class
End Namespace