个性化的分页实例

导读：

　　注意：本文的源程序代码用VB和C#同时进行说明。

　　我们所知道的分页程序一般都是简单地通过修改DataGrid的属性来实现分页，这样做的最大好处就是简单，用户根本不用知道分页是如何产生的。但它同样有缺点，不能按照用户的需要产生相应的样式。要得到个性化的分页，就必须自己动手编写代码。下面来看一个功能更为强大的分页实例——个性化的分页功能实现。

　　完整的程序代码如下：

　　Sub Page_Load(Sender As Object,e As EventArgs)

　　'判断是否隐藏PagerStyle-Mode

　　if (chk1.Checked) then

　　Grid1.PagerStyle.Visible=true

　　else

　　Grid1.PagerStyle.Visible=false

　　end if

　　BindGrid

　　End Sub

　　Sub BindGrid()

　　Dim Provider,DataBase,ConnStr,SQL As String

　　'第一步: 进行数据库的链接

　　Provider="Microsoft.Jet.OLEDB.4.0;"

　　DataBase=Server.MapPath("Sample.mdb")

　　ConnStr="Provider="+Provider+"Data Source="+DataBase

　　'第二步：执行SQL指令，选出记录集合

　　Dim Cmd As OleDbDataAdapter

　　Cmd=New OleDbDataAdapter("Select * From 学生成绩表",ConnStr)

　　Dim ds As DataSet=New DataSet()

　　Cmd.Fill(ds,"学生成绩表")

　　'第三步：将数据集合同DataGrid结合在一起

　　Grid1.DataSource=ds.Tables("学生成绩表").DefaultView

　　Grid1.DataBind()

　　ShowStats()

　　End Sub

　　Sub PagerButtonClick(Sender As Object,e As EventArgs)

　　'获得LinkButton的参数值

　　Dim arg As String =CType(Sender,LinkButton).CommandArgument

　　Select Case arg

　　case ("next")

　　if (Grid1.CurrentPageIndex 　　Grid1.CurrentPageIndex +=1

　　end if

　　case ("prev")

　　if (Grid1.CurrentPageIndex > 0) then

　　Grid1.CurrentPageIndex -=1

　　end if

　　case ("last")

　　Grid1.CurrentPageIndex = (Grid1.PageCount - 1)

　　case else

　　'本页值

　　Grid1.CurrentPageIndex = CInt(arg)

　　End Select

　　BindGrid

　　End Sub

　　Sub Grid1_Page(sender As Object, e As DataGridPageChangedEventArgs)

　　'处理按下数字的方法

　　BindGrid

　　End Sub

　　Sub ShowStats()

　　'显示页面信息

　　lblCurrentIndex.Text = "当前页数为： " &(Grid1.CurrentPageIndex+1)

　　lblPageCount.Text = "总页数是： " &Grid1.PageCount

　　End Sub

个性化的分页实例

<?XML:NAMESPACE PREFIX = ASP /><datagrid id="Grid1" runat="server"> AllowPaging="True" PageSize="5" PagerStyle-Mode="NumericPages" PagerStyle-HorizontalAlign="Right" OnPageIndexChanged="Grid1_Page" BorderColor="black" BorderWidth="1" GridLines="Both" CellPadding="3" CellSpacing="0" Font-Name="Verdana" Font-Size="8pt" HeaderStyle-BackColor="#aaaadd" AlternatingItemStyle-BackColor="#eeeeee" AutoGenerateColumns="true">　　AllowPaging="True" 　　PageSize="5" 　　PagerStyle-Mode="NumericPages" 　　PagerStyle-HorizontalAlign="Right" 　　OnPageIndexChanged="Grid1_Page" 　　BorderColor="black" 　　BorderWidth="1" 　　GridLines="Both" 　　CellPadding="3" 　　CellSpacing="0" 　　Font-Name="Verdana" 　　Font-Size="8pt" 　　HeaderStyle-BackColor="#aaaadd" 　　AlternatingItemStyle-BackColor="#eeeeee" 　　AutoGenerateColumns="true"> 　　</datagrid>

<linkbutton id="btnFirst" runat="server"> Text="首页" CommandArgument="0" ForeColor="navy" Font-Name="verdana" Font-size="8pt" OnClick="PagerButtonClick"/>　　Text="首页" 　　CommandArgument="0" 　　ForeColor="navy" 　　Font-Name="verdana" Font-size="8pt" 　　OnClick="PagerButtonClick"/> 　　 　　<linkbutton id="btnPrev" runat="server"> Text="前页" CommandArgument="prev" ForeColor="navy" Font-Name="verdana" Font-size="8pt" OnClick="PagerButtonClick"/>　　Text="前页" 　　CommandArgument="prev" 　　ForeColor="navy" 　　Font-Name="verdana" Font-size="8pt" 　　OnClick="PagerButtonClick"/> 　　 　　<linkbutton id="btnNext" runat="server"> Text="后页" CommandArgument="next" ForeColor="navy" Font-Name="verdana" Font-size="8pt" OnClick="PagerButtonClick"/>　　Text="后页" 　　CommandArgument="next" 　　ForeColor="navy" 　　Font-Name="verdana" Font-size="8pt" 　　OnClick="PagerButtonClick"/> 　　 　　<linkbutton id="btnLast" runat="server"> Text="末页" CommandArgument="last" ForeColor="navy" Font-Name="verdana" Font-size="8pt" OnClick="PagerButtonClick"/>　　Text="末页" 　　CommandArgument="last" 　　ForeColor="navy" 　　Font-Name="verdana" Font-size="8pt" 　　OnClick="PagerButtonClick"/> 　　 　　<checkbox id="chk1" runat="server"> Text="显示内置的页数" Font-Name="Verdana" Font-Size="8pt" AutoPostBack="true"/>　　Text="显示内置的页数" 　　Font-Name="Verdana" 　　Font-Size="8pt" 　　AutoPostBack="true"/> 　　 　　 <table bgcolor="#eeeeee" cellpadding="6"><tr><td nowrap> 　　<label id="lblCurrentIndex" runat="server"></label> 　　<label id="lblPageCount" runat="server"></label> 　　</td></tr></table> 　　</checkbox></linkbutton></linkbutton></linkbutton></linkbutton>

　　上面程序中的DataGrid控制元件的布置标记并没有什么特别之处，通过布置4个LinkButton控制元件来实现个性化分页，例如：

<linkbutton id="btnFirst" runat="server"> Text="首页" CommandArgument="0" ForeColor="navy" Font-Name="verdana" Font-size="8pt" OnClick="PagerButtonClick"/>　　Text="首页" 　　CommandArgument="0" 　　ForeColor="navy" 　　Font-Name="verdana" Font-size="8pt" 　　OnClick="PagerButtonClick"/> 　　可以看出LinkButton的OnClick触发的是PagerButtonClick事件，程序代码如下： 　　Sub PagerButtonClick(Sender As Object,e As EventArgs) 　　'获得LinkButton的参数值 　　Dim arg As String =CType(Sender,LinkButton).CommandArgument 　　Select Case arg 　　case ("next") 　　if (Grid1.CurrentPageIndex 　　Grid1.CurrentPageIndex +=1 　　end if 　　case ("prev") 　　if (Grid1.CurrentPageIndex > 0) then 　　Grid1.CurrentPageIndex -=1 　　end if 　　case ("last") 　　Grid1.CurrentPageIndex = (Grid1.PageCount - 1) 　　case else 　　'本页值 　　Grid1.CurrentPageIndex = CInt(arg) 　　End Select 　　BindGrid 　　End Sub 　　在这个事件处理程序之中，取得LinkButton的参数值，求出Grid1的当前页面索引值。操作的也只是DataGrid的CurrentPageIndex属性。如果CurrentPageIndex小于Pag 本文转自 <a href="http://study.qqcf.com/web/224/24042.htm" target="_blank" rel="external nofollow" >http://study.qqcf.com/web/224/24042.htm</a> </linkbutton>

个性化的分页实例

个性化的分页实例

继续阅读

十大酷炫屌的图像悬停特效

如何存取图片到数据库(SQL Server)

前后端分离之跨域问题

在一个非套接字上尝试了一个操作

Oracle的基本操作

门户通专访月光博客：第一博客是如何打造成的

何为全栈工程师？你是否应该成为一名全栈工程师？

如何成为一名.net 工程师?

SQL优化SQL语句优化的目的

JAVA高效编程指南

关于SQL语言

SQL语言基础：常用的数据查询语句

配置网页内容访问

neo4j之cypher使用文档

GridView终极用法(一)

sqlServer根据经纬查距离