个性化的分页实例
Author: 刀锋 &;nbspFrom:Internet
注意：本文的源程序代码用VB和C#同时进行说明。
我们所知道的分页程序一般都是简单地通过修改DataGrid的属性来实现分页，这样做的最大好处就是简单，用户根本不用知道分页是如何产生的。但它同样有缺点，不能按照用户的需要产生相应的样式。要得到个性化的分页，就必须自己动手编写代码。下面来看一个功能更为强大的分页实例——个性化的分页功能实现。
完整的程序代码如下：
<%@Page Language="VB"%>
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.OleDb"%>
<html>
<script language="VB" runat="server">
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.PageCount - 1)) then
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
</script>
<body>
<h3><font face="Verdana">个性化的分页实例</font></h3>
<form runat=server>
<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">
</ASP:DataGrid>
<p>
<asp:LinkButton id="btnFirst" runat="server"
Text="首页"
CommandArgument="0"
ForeColor="navy"
Font-Name="verdana" Font-size="8pt"
/>
<asp:LinkButton id="btnPrev" runat="server"
Text="前页"
CommandArgument="prev"
ForeColor="navy"
Font-Name="verdana" Font-size="8pt"
/>
<asp:LinkButton id="btnNext" runat="server"
Text="后页"
CommandArgument="next"
ForeColor="navy"
Font-Name="verdana" Font-size="8pt"
/>
<asp:LinkButton id="btnLast" runat="server"
Text="末页"
CommandArgument="last"
ForeColor="navy"
Font-Name="verdana" Font-size="8pt"
/>
<p>
<asp:Checkbox id="chk1" runat="server"
Text="显示内置的页数"
Font-Name="Verdana"
Font-Size="8pt"
AutoPostBack="true"/>
<p>
<table bgcolor="#eeeeee" cellpadding="6"><tr><td nowrap><font face="Verdana" size="-2">
<asp:Label id="lblCurrentIndex" runat="server" /><br>
<asp:Label id="lblPageCount" runat="server" /><br>
</font></td></tr></table>
</form>
</body>
</html>
上面程序中的DataGrid控制元件的布置标记并没有什么特别之处，通过布置4个LinkButton控制元件来实现个性化分页，例如：
<asp:LinkButton id="btnFirst" runat="server"
Text="首页"
CommandArgument="0"
ForeColor="navy"
Font-Name="verdana" Font-size="8pt"
/>
可以看出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.PageCount - 1)) then
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小于PageCount则有下一页，如果CurrentPageIndex大于0则表示有前一页。
下面是Grid1_Page事件处理程序，主要操作是调用BindGrid函数，将数据交给DataGrid显示。
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
对应的C#代码如下（grid9.aspx）：
<%@Page Language="C#"%>
<%@Import Namespace="System.Data"%>
<%@Import Namespace="System.Data.OleDb"%>
<html>
<script language="C#" runat="server">
void Page_Load(Object sender, EventArgs e)
{
//判断是否隐藏PagerStyle-Mode
if (chk1.Checked)
{
Grid1.PagerStyle.Visible=true;
}
else
{
Grid1.PagerStyle.Visible=false;
}
BindGrid();
}
void BindGrid()
{
String Provider,DataBase,ConnStr,SQL;
//第一步: 进行数据库的链接
Provider="Microsoft.Jet.OLEDB.4.0;";
DataBase=Server.MapPath("Sample.mdb");
ConnStr="Provider=" Provider "Data Source=" DataBase;
//第二步：执行SQL指令，选出记录集合
OleDbDataAdapter Cmd;
Cmd=new OleDbDataAdapter("Select * From 学生成绩表",ConnStr);
DataSet ds=new DataSet();
Cmd.Fill(ds,"学生成绩表");
//第三步：将数据集合同DataGrid结合在一起
Grid1.DataSource=ds.Tables["学生成绩表"].DefaultView;
Grid1.DataBind();
ShowStats();
}
void PagerButtonClick(Object sender, EventArgs e)
{
//获得LinkButton的参数值
String arg = ((LinkButton)sender).CommandArgument;
switch(arg)
{
case ("next"):
if (Grid1.CurrentPageIndex < (Grid1.PageCount - 1))
Grid1.CurrentPageIndex ;
break;
case ("prev"):
if (Grid1.CurrentPageIndex > 0)
Grid1.CurrentPageIndex --;
break;
case ("last"):
Grid1.CurrentPageIndex = (Grid1.PageCount - 1);
break;
default:
//本页值
Grid1.CurrentPageIndex = int.Parse(arg);
break;
}
BindGrid();
}
void Grid1_Page(Object sender, DataGridPageChangedEventArgs e)
{
//处理按下数字的方法
BindGrid();
}
void ShowStats()
{
//显示页面信息
lblCurrentIndex.Text = "当前页数为： " ((int)Grid1.CurrentPageIndex 1);
lblPageCount.Text = "总页数是： " Grid1.PageCount;
}
</script>
<body>
<h3><font face="Verdana">个性化的分页实例</font></h3>
<form runat=server>
<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">
</ASP:DataGrid>
<p>
<asp:LinkButton id="btnFirst" runat="server"
Text="首页"
CommandArgument="0"
ForeColor="navy"
Font-Name="verdana" Font-size="8pt"
/>
<asp:LinkButton id="btnPrev" runat="server"
Text="前页"
CommandArgument="prev"
ForeColor="navy"
Font-Name="verdana" Font-size="8pt"
/>
<asp:LinkButton id="btnNext" runat="server"
Text="后页"
CommandArgument="next"
ForeColor="navy"
Font-Name="verdana" Font-size="8pt"
/>
<asp:LinkButton id="btnLast" runat="server"
Text="末页"
CommandArgument="last"
ForeColor="navy"
Font-Name="verdana" Font-size="8pt"
/>
<p>
<asp:Checkbox id="chk1" runat="server"
Text="显示内置的页数"
Font-Name="Verdana"
Font-Size="8pt"
AutoPostBack="true"/>
<p>
<table bgcolor="#eeeeee" cellpadding="6"><tr><td nowrap><font face="Verdana" size="-2">
<asp:Label id="lblCurrentIndex" runat="server"/><br>
<asp:Label id="lblPageCount" runat="server"/><br>
</font></td></tr></table>
</form>
</body>
</html>
(2005-5-04:05:28)
| 感谢原创者的辛勤劳动，希望对您有所帮助，转载请注明原出处。 |
