datagrid分页问题(前后跳页)《控件版》

<script type="text/javascript"> </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
<script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
  • 把它定义在用户控件中的。在。ASCX中写的。

    在CSDN上看了很多的DATAGRID分页问题,当然DATAGRID有自己的分页项,功能是很有限的,我也在CSDN上看了很多自己分页的代码,发现都是用C#写的,我写了一个用ASP。NET中VB语言写的。以下代码供大家参考。

    HTML代码:

    <%@ Control Language="vb" AutoEventWireup="false" Codebehind="DataGridPage.ascx.vb" Inherits="datagridfenye.DataGridPage" TargetSchema="http://schemas.microsoft.com/intellisense/ie5" %>
    <LINK href="../css/style.css" type="text/css" rel="stylesheet">
    <FONT face="MS UI Gothic"></FONT>
    <asp:panel id="divPanel" ForeColor="Blue" CssClass="font2" HorizontalAlign="Left" Width="84.16%"
    runat="server" Visible="True">
    <asp:Button id="btnNavFirst" runat="server" BorderStyle="Ridge" Text="初頁" CommandName="FIRST"
    BorderWidth="1px" CausesValidation="False" BackColor="#E0E0E0" Font-Size="XX-Small"></asp:Button>
    <asp:Button id="btnNavPrevious" runat="server" BorderStyle="Ridge" Text="前頁" CommandName="PREVIOUS"
    BorderWidth="1px" CausesValidation="False" BackColor="#E0E0E0" Font-Size="XX-Small"></asp:Button>
    <asp:Button id="btnNavNext" runat="server" BorderStyle="Ridge" Text="次頁" CommandName="NEXT"
    BorderWidth="1px" CausesValidation="False" BackColor="#E0E0E0" Font-Size="XX-Small"></asp:Button>
    <asp:Button id="btnNavLast" runat="server" BorderStyle="Ridge" Text="末頁" CommandName="LAST"
    BorderWidth="1px" CausesValidation="False" BackColor="#E0E0E0" Font-Size="XX-Small"></asp:Button><INPUT id="hdRowCount" style="WIDTH: 43px; HEIGHT: 22px" type="hidden" size="1" name="Hidden1"
    runat="server"> <INPUT id="hdCurrentIndex" style="WIDTH: 48px; HEIGHT: 22px" type="hidden" size="2" value="0"
    name="Hidden1" runat="server">
    <asp:Label id="LabelMsg" ForeColor="Blue" Width="232px" runat="server"></asp:Label>GOTO
    <asp:TextBox id="tbPage" Width="31px" runat="server"></asp:TextBox>
    <asp:Label id="LabelMsg2" ForeColor="Blue" runat="server">頁</asp:Label>
    <asp:Button id="btnNavGo" runat="server" BorderStyle="Ridge" Text="確定" CommandName="GO" BorderWidth="1px"
    CausesValidation="False" BackColor="#E0E0E0" Font-Size="XX-Small"></asp:Button></asp:panel>


    WEB代码:

    Imports System
    Imports System.Data
    Imports System.Drawing
    Imports System.Text
    Imports System.Web
    Imports System.Web.UI.WebControls
    Imports System.Web.UI.HtmlControls
    Public Delegate Sub BindDataDelegate()
    Public Class DataGridPage

    Inherits System.Web.UI.UserControl

    #Region " Web フォーム デザイナで生成されたコード "

    'この呼び出しは Web フォーム デザイナで必要です。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub

    Public binddata1 As BindDataDelegate
    Private _dg As DataGrid
    Private _autohidden As Boolean = True
    Private _pagesize As Integer = 10
    Private _itemcount As Integer = 0
    Private _dispStyle As Integer = 1
    Protected WithEvents LabelMsg As System.Web.UI.WebControls.Label
    Protected WithEvents btnNavFirst As System.Web.UI.WebControls.Button
    Protected WithEvents btnNavPrevious As System.Web.UI.WebControls.Button
    Protected WithEvents btnNavNext As System.Web.UI.WebControls.Button
    Protected WithEvents btnNavLast As System.Web.UI.WebControls.Button
    Protected WithEvents tbPage As System.Web.UI.WebControls.TextBox
    Protected WithEvents LabelMsg2 As System.Web.UI.WebControls.Label
    Protected WithEvents btnNavGo As System.Web.UI.WebControls.Button
    Protected WithEvents divPanel As System.Web.UI.WebControls.Panel
    Protected WithEvents hdRowCount As System.Web.UI.HtmlControls.HtmlInputHidden
    Protected WithEvents hdCurrentIndex As System.Web.UI.HtmlControls.HtmlInputHidden

    'メモ : 次のプレースホルダ宣言は Web フォーム デザイナで必要です。
    '削除および移動しないでください。
    Private designerPlaceholderDeclaration As System.Object

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
    ' CODEGEN: このメソッド呼び出しは Web フォーム デザイナで必要です。
    ' コード エディタを使って変更しないでください。
    InitializeComponent()
    AddHandler Me.Load, AddressOf Page_Load

    End Sub

    #End Region

    Public Property Target() As DataGrid

    Get
    Return _dg
    End Get
    Set(ByVal Value As DataGrid)
    _dg = Value
    End Set
    End Property
    Public Property AutoHidden() As Boolean

    Get
    Return _autohidden
    End Get
    Set(ByVal Value As Boolean)
    _autohidden = Value
    End Set
    End Property

    Public Property PageSize() As Integer

    Get
    Return _pagesize
    End Get
    Set(ByVal Value As Integer)
    _pagesize = Value
    End Set
    End Property
    Public Property ItemCount() As Integer

    Get
    Return _itemcount
    End Get
    Set(ByVal Value As Integer)
    _itemcount = Value
    End Set
    End Property

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    ' ページを初期化するユーザー コードをここに挿入します。

    End Sub
    Public Sub SetTarget(ByVal adg As DataGrid, ByRef aBindData1 As BindDataDelegate)

    _dg = adg

    binddata1 = aBindData1

    AddHandler btnNavFirst.Click, AddressOf NavigationButtonClick
    AddHandler btnNavPrevious.Click, AddressOf NavigationButtonClick
    AddHandler btnNavNext.Click, AddressOf NavigationButtonClick
    AddHandler btnNavLast.Click, AddressOf NavigationButtonClick
    AddHandler btnNavGo.Click, AddressOf NavigationButtonClick
    AddHandler _dg.DataBinding, AddressOf zxDataBinding
    binddata1()
    End Sub
    Public Sub SetStyle(ByVal aPageSize As Integer, ByVal aAutoHidden As Boolean, ByVal aDispStyle As Integer)

    _pagesize = aPageSize
    _autohidden = aAutoHidden
    _dispStyle = aDispStyle

    divPanel.Visible = Not aAutoHidden
    End Sub
    Public Sub SetStyle(ByVal aPageSize As Integer, ByVal aAutoHidden As Boolean)
    SetStyle(aPageSize, aAutoHidden, 1)
    End Sub
    Public Sub SetStyle(ByVal aPageSize As Integer)
    SetStyle(aPageSize, True)
    End Sub
    Public Sub NavigationButtonClick(ByVal sender As Object, ByVal e As System.EventArgs)
    Dim direction As String
    direction = sender.CommandName

    Select Case (direction.ToUpper())

    Case ("FIRST")
    _dg.CurrentPageIndex = 0

    Case ("PREVIOUS")
    _dg.CurrentPageIndex = Math.Max(_dg.CurrentPageIndex - 1, 0)

    Case ("NEXT")
    _dg.CurrentPageIndex = Math.Min(_dg.CurrentPageIndex + 1, _dg.PageCount - 1)

    Case ("LAST")
    _dg.CurrentPageIndex = Math.Max(_dg.PageCount - 1, 0)

    Case ("GO")
    Try
    _dg.CurrentPageIndex = Math.Min(_dg.PageCount - 1, CInt(tbPage.Text) - 1)
    tbPage.Text = ""
    Catch
    tbPage.Text = ""
    End Try

    End Select

    binddata1()

    End Sub
    Public Sub zxDataBinding(ByVal sender As Object, ByVal e As System.EventArgs)

    Dim newCount As Integer = 0
    Dim PageCount As Integer = 0

    If (_dg.DataSource Is "null") Then

    SetButtonState(0)
    Exit Sub
    End If
    If (_dg.DataSource.GetType().ToString().ToLower() = "system.data.datatable") Then

    newCount = _dg.DataSource.Rows.Count

    ElseIf (_dg.DataSource.GetType().ToString().ToLower() = "system.data.dataview") Then

    newCount = _dg.DataSource.Count

    ElseIf (_dg.DataSource.GetType().ToString().ToLower() = "system.data.dataset") Then

    newCount = _dg.DataSource.Tables(0).Rows.Count
    End If

    If (newCount > 0) Then
    PageCount = CInt((newCount - 1) / _pagesize)
    If (_dg.CurrentPageIndex > PageCount - 1) Then
    _dg.CurrentPageIndex = PageCount - 1
    End If
    Else

    PageCount = 0
    _dg.CurrentPageIndex = 0

    End If

    Select Case (_dispStyle)

    Case 1
    LabelMsg.Text = "共" + PageCount.ToString() + "頁 第" + (_dg.CurrentPageIndex + 1).ToString() + "頁"
    LabelMsg.Text += " 總記?數:" + newCount.ToString() + ""

    Case 2
    LabelMsg.Text = (_dg.CurrentPageIndex + 1).ToString() + "/" + PageCount.ToString() + "頁"
    LabelMsg.Text += " 總數:" + newCount.ToString()

    End Select

    If (_autohidden) Then

    divPanel.Visible = ((newCount - 1) / _pagesize > 0)

    Else

    divPanel.Visible = True

    End If

    SetButtonState(PageCount)
    End Sub
    Public Sub SetButtonState(ByVal _PageCount As Integer)

    btnNavFirst.Enabled = (_dg.CurrentPageIndex > 0)
    btnNavPrevious.Enabled = (_dg.CurrentPageIndex > 0)
    btnNavNext.Enabled = (_dg.CurrentPageIndex < _PageCount - 1)
    btnNavLast.Enabled = (_dg.CurrentPageIndex < _PageCount - 1)
    End Sub


    End Class



    seover="window.status='正文--datagrid分页问题(前后跳页)《控件版》';return true">
  • </script> <script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
    <script type="text/javascript"> </script><script type="text/javascript" src="http://pagead2.googlesyndication.com/pagead/show_ads.js"> </script>
深度学习是机器学习的一个子领域,它基于人工神经网络的研究,特别是利用多层次的神经网络来进行学习和模式识别。深度学习模型能够学习数据的高层次特征,这些特征对于图像和语音识别、自然语言处理、医学图像分析等应用至关重要。以下是深度学习的一些关键概念和组成部分: 1. **神经网络(Neural Networks)**:深度学习的基础是人工神经网络,它是由多个层组成的网络结构,包括输入层、隐藏层和输出层。每个层由多个神经元组成,神经元之间通过权重连接。 2. **前馈神经网络(Feedforward Neural Networks)**:这是最常见的神经网络类型,信息从输入层流向隐藏层,最终到达输出层。 3. **卷积神经网络(Convolutional Neural Networks, CNNs)**:这种网络特别适合处理具有网格结构的数据,如图像。它们使用卷积层来提取图像的特征。 4. **循环神经网络(Recurrent Neural Networks, RNNs)**:这种网络能够处理序列数据,如时间序列或自然语言,因为它们具有记忆功能,能够捕捉数据中的时间依赖性。 5. **长短期记忆网络(Long Short-Term Memory, LSTM)**:LSTM 是一种特殊的 RNN,它能够学习长期依赖关系,非常适合复杂的序列预测任务。 6. **生成对抗网络(Generative Adversarial Networks, GANs)**:由两个网络组成,一个生成器和一个判别器,它们相互竞争,生成器生成数据,判别器评估数据的真实性。 7. **深度学习框架**:如 TensorFlow、Keras、PyTorch 等,这些框架提供了构建、训练和部署深度学习模型的工具和库。 8. **激活函数(Activation Functions)**:如 ReLU、Sigmoid、Tanh 等,它们在神经网络中用于添加非线性,使得网络能够学习复杂的函数。 9. **损失函数(Loss Functions)**:用于评估模型的预测与真实值之间的差异,常见的损失函数包括均方误差(MSE)、交叉熵(Cross-Entropy)等。 10. **优化算法(Optimization Algorithms)**:如梯度下降(Gradient Descent)、随机梯度下降(SGD)、Adam 等,用于更新网络权重,以最小化损失函数。 11. **正则化(Regularization)**:技术如 Dropout、L1/L2 正则化等,用于防止模型过拟合。 12. **迁移学习(Transfer Learning)**:利用在一个任务上训练好的模型来提高另一个相关任务的性能。 深度学习在许多领域都取得了显著的成就,但它也面临着一些挑战,如对大量数据的依赖、模型的解释性差、计算资源消耗大等。研究人员正在不断探索新的方法来解决这些问题
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值