个性化的分页实例

最新推荐文章于 2025-06-30 10:51:04 发布

最新推荐文章于 2025-06-30 10:51:04 发布 · 110 阅读

文章标签：

导读：
　　注意：本文的源程序代码用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">http://study.qqcf.com/web/224/24042.htm</a> </linkbutton>