pageparameter.vb

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

Option Explicit On 

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

Namespace Data

    <System.ComponentModel.DesignerCategory("Code"), SerializableAttribute()> _
    Public Class PageParameter

        Private _role As Boolean
        Private _length As Int32
        Private _pagecount As Int32
        Public _AllCount As Int32

        Public CurrentPage As Int32
        Public Order As String

        Public Sub New()
            _role = True
            CurrentPage = 0
            _AllCount = 0
            _pagecount = 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 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 _pagecount
            End Get
        End Property

        Public Property AllCount() As Int32
            Get
                Return _AllCount
            End Get
            Set(ByVal Value As Int32)
                _AllCount = Value
                _pagecount = (_AllCount + _length - 1) \ _length
            End Set
        End Property

    End Class

End Namespace