gridpage.vb

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

Option Strict On
Option Explicit On 

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

Namespace Data

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

        Private _role As Boolean
        Private _length As Int32

        Public Number As Int32
        Public AllCount As Int32
        Public Order As String

        Public Sub New()
            MyBase.New()
            _role = True
            Number = 0
            AllCount = 0
            Order = ""
            _length = 10
        End Sub

        Public Property OrderRole() As String
            Get
                If _role Then
                    Return "升序"
                Else
                    Return "降序"
                End If
            End Get
            Set(ByVal Value As String)
                _role = Not (Value = "降序")
            End Set
        End Property

        Public Property BOrderRole() As Boolean
            Get
                Return _role
            End Get
            Set(ByVal Value As Boolean)
                _role = Value
            End Set
        End Property

        Public ReadOnly Property Length() As Int32
            Get
                Return MyBase.Tables(0).Rows.Count
            End Get
        End Property

        Public Property Size() As Int32
            Get
                Return _length
            End Get
            Set(ByVal value As Int32)
                _length = value
            End Set
        End Property


        Public ReadOnly Property PageCount() As Int32
            Get
                Return (AllCount + _length - 1) \ _length
            End Get
        End Property
    End Class

End Namespace