syssettingdata.vb

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

Option Strict On
Option Explicit On 

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

Namespace Data

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

        Public Const TABLE_NAME As String = "SETTING"
        Public Const COLUMN_ITEM As String = "s_item"
        Public Const COLUMN_VALUE As String = "s_value"

        Public Sub New(ByVal info As SerializationInfo, ByVal context As StreamingContext)
            MyBase.New(info, context)
        End Sub

        Public Sub New()
            MyBase.New()
            BuildDataTable()
        End Sub

        Private Sub BuildDataTable()
            Dim table As DataTable = New DataTable(TABLE_NAME)

            With table.Columns
                .Add(COLUMN_ITEM, GetType(System.String))
                .Add(COLUMN_VALUE, GetType(System.String))
            End With

            Me.Tables.Add(table)
        End Sub

    End Class

End Namespace