在ASP.Net中创建动态表格(2)
点击次数：30 次 发布日期：2008-11-26 14:44:42 作者：源代码网
|
源代码网推荐 源代码网推荐 序列的第一步展示了一个页面，其中包含单独一个 DataGrid 控件，用于显示来自数据源的一个只读图书列表。 源代码网推荐 源代码网推荐 
源代码网推荐 源代码网推荐 图 2. 完成第 1 步后的页面 源代码网推荐 源代码网推荐 DataGrid 声明来自: 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 ＜%@ ReGISter TagPrefix="cr" Namespace="CrystalDecisions.Web" Assembly="CrystalDecisions.Web" %＞ 源代码网推荐 ＜%@ Page Language="VB" AutoEventWireup="false" Codebehind="Borrow.ASPx.vb" Inherits="borrrow.Borrow"%＞ 源代码网推荐 ＜%@ Register TagPrefix="cr" Namespace="CrystalDecisions.Web" Assembly="CrystalDecisions.Web" %＞ 源代码网推荐 ＜!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"＞ 源代码网推荐 ＜HTML＞ 源代码网推荐 ＜HEAD＞ 源代码网推荐 ＜title＞档案、图书流通管理＜/title＞ 源代码网推荐 ＜meta content="Microsoft Visual Studio.net 7.0" name="GENERATOR"＞ 源代码网推荐 ＜meta content="Visual Basic 7.0" name="CODE_LANGUAGE"＞ 源代码网推荐 ＜meta content="JavaScript" name="vs_defaultClientScript"＞ 源代码网推荐 ＜meta content="http://schemas.microsoft.com/intellisense/ie5" name="vs_targetSchema"＞ 源代码网推荐 ＜/HEAD＞ 源代码网推荐 ＜body bgColor="beige" MS_POSITIONING="GridLayout"＞ 源代码网推荐 ＜form id="Form1" method="post" runat="server"＞ 源代码网推荐 ＜asp:label id="Label14" style="Z-INDEX: 101; LEFT: 100px; POSITION: absolute; TOP: -50px" runat="server" Width="47px" Height="18px"＞＜/asp:label＞ 源代码网推荐 ＜asp:linkbutton id="LinkFind" style="Z-INDEX: 105; LEFT: 361px; POSITION: absolute; TOP: 182px" runat="server" Width="33px" Height="22px" ToolTip="按此进行查询" ForeColor="#0000C0"＞查询＜/asp:linkbutton＞ 源代码网推荐 ＜TABLE style="Z-INDEX: 104; LEFT: 133px; WIDTH: 637px; POSITION: absolute; TOP: 75px; HEIGHT: 74px" cellSpacing="1" cellPadding="1" width="637" border="1"＞ 源代码网推荐 ＜TR＞ 源代码网推荐 ＜TD style="WIDTH: 92px"＞ 源代码网推荐 ＜asp:label id="lblFind1" runat="server" ForeColor="Green"＞检索号＜/asp:label＞ 源代码网推荐 ＜/TD＞ 源代码网推荐 ＜TD style="WIDTH: 196px"＞ 源代码网推荐 ＜asp:textbox id="txtFind1" runat="server" Width="199px" Height="26px"＞＜/asp:textbox＞ 源代码网推荐 ＜/TD＞ 源代码网推荐 ＜TD style="WIDTH: 83px"＞ 源代码网推荐 ＜asp:label id="lblFind4" runat="server" ForeColor="Green"＞标准号＜/asp:label＞ 源代码网推荐 ＜/TD＞ 源代码网推荐 ＜TD＞ 源代码网推荐 ＜asp:textbox id="txtFind4" runat="server" Width="243px" Height="26px"＞＜/asp:textbox＞ 源代码网推荐 ＜/TD＞ 源代码网推荐 ＜/TR＞ 源代码网推荐 ＜TR＞ 源代码网推荐 ＜TD style="WIDTH: 92px"＞ 源代码网推荐 ＜asp:label id="lblFind2" runat="server" ForeColor="Green"＞标准书号＜/asp:label＞ 源代码网推荐 ＜/TD＞ 源代码网推荐 ＜TD style="WIDTH: 196px"＞ 源代码网推荐 ＜asp:textbox id="txtFind2" runat="server" Width="199px" Height="26px"＞＜/asp:textbox＞ 源代码网推荐 ＜/TD＞ 源代码网推荐 ＜TD style="WIDTH: 83px"＞ 源代码网推荐 ＜asp:label id="lblFind5" runat="server" ForeColor="Green"＞分类号＜/asp:label＞ 源代码网推荐 ＜/TD＞ 源代码网推荐 ＜TD＞ 源代码网推荐 ＜asp:textbox id="txtFind5" runat="server" Width="243px" Height="26px"＞＜/asp:textbox＞ 源代码网推荐 ＜/TD＞ 源代码网推荐 ＜/TR＞ 源代码网推荐 ＜TR＞ 源代码网推荐 ＜TD style="WIDTH: 92px"＞ 源代码网推荐 ＜asp:label id="lblFind3" runat="server" ForeColor="Green"＞图书名称＜/asp:label＞ 源代码网推荐 ＜/TD＞ 源代码网推荐 ＜TD style="WIDTH: 196px"＞ 源代码网推荐 ＜asp:textbox id="txtFind3" runat="server" Width="199px" Height="26px"＞＜/asp:textbox＞ 源代码网推荐 ＜/TD＞ 源代码网推荐 ＜TD style="WIDTH: 83px"＞ 源代码网推荐 ＜asp:label id="lblFind6" runat="server" ForeColor="Green"＞检索号＜/asp:label＞ 源代码网推荐 ＜/TD＞ 源代码网推荐 ＜TD＞ 源代码网推荐 ＜asp:textbox id="txtFind6" runat="server" Width="242px" Height="26px"＞＜/asp:textbox＞ 源代码网推荐 ＜/TD＞ 源代码网推荐 ＜/TR＞ 源代码网推荐 ＜/TABLE＞ 源代码网推荐 ＜asp:datagrid id="DataGrid1" style="Z-INDEX: 102; LEFT: 129px; POSITION: absolute; TOP: 213px" runat="server" Width="1600px" Height="325px" AlternatingItemStyle-Wrap="False" CellPadding="4" BorderWidth="1px" BorderStyle="None" BorderColor="#CC9966" BackColor="White" AllowPaging="True" ToolTip="可按选择按钮选择所要借阅的图书、资料"＞ 源代码网推荐 ＜FooterStyle Wrap="False" ForeColor="#330099" BackColor="#FFFFCC"＞＜/FooterStyle＞ 源代码网推荐 ＜HeaderStyle Font-Bold="True" Wrap="False" HorizontalAlign="Left" ForeColor="#FFFFCC" BackColor="#990000"＞＜/HeaderStyle＞ 源代码网推荐 ＜PagerStyle HorizontalAlign="Center" ForeColor="#330099" BackColor="#FFFFCC" Wrap="False" Mode="NumericPages"＞＜/PagerStyle＞ 源代码网推荐 ＜SelectedItemStyle Font-Bold="True" Wrap="False" ForeColor="#9900FF" BackColor="#FFCC66"＞＜/SelectedItemStyle＞ 源代码网推荐 ＜EditItemStyle Wrap="False"＞＜/EditItemStyle＞ 源代码网推荐 ＜AlternatingItemStyle Wrap="False"＞＜/AlternatingItemStyle＞ 源代码网推荐 ＜ItemStyle Wrap="False" ForeColor="#CC9900" BackColor="White"＞＜/ItemStyle＞ 源代码网推荐 ＜Columns＞ 源代码网推荐 ＜asp:ButtonColumn Text="查阅" HeaderText="选择" CommandName="Select" ItemStyle-ForeColor="#3366CC"＞＜/asp:ButtonColumn＞ 源代码网推荐 ＜/Columns＞ 源代码网推荐 ＜/asp:datagrid＞ 源代码网推荐 ＜asp:LinkButton id="LinkSumit" style="Z-INDEX: 109; LEFT: 816px; POSITION: absolute; TOP: 184px" runat="server" Width="42px" Height="18px" ToolTip="可按此把借阅信息传入管理人员" ForeColor="#0000C0"＞提交＜/asp:LinkButton＞ 源代码网推荐 ＜asp:Label id="Label1" style="Z-INDEX: 110; LEFT: 138px; POSITION: absolute; TOP: 186px" runat="server" ForeColor="#C00000"＞你已经选择了该行!＜/asp:Label＞ 源代码网推荐 ＜/form＞ 源代码网推荐 ＜/body＞ 源代码网推荐 ＜/HTML＞ 源代码网推荐 源代码网推荐 源代码网推荐 上面的代码展示 DataGrid，该控件的各种属性已经过声明设定。 DataGrid 控件与其它 Web 控件如 Font、BackColor、ForeColor 和 BorderWidth 共享一组公用的样式属性。另外， DataGrid 提供仅适用于表的属性如 CellPadding。最后， DataGrid 提供附加的样式属性，这些样式属性影响其中各项目和列如 HeaderStyle、ItemStyle 和 AlternatingItemStyle 的表示。这些样式属性用于创建丰富多采且极富魅力的数据视觉效果。 源代码网推荐 源代码网推荐 DataGrid 支持从其所绑定的数据源自动生成列的功能。在本例中， AutoGenerateColumns 属性已被设定为 true。因此必须借助要展示的列集对 Columns 集合进行绑定。从而可以更多地控制表现效果，诸如列的次序和标头以及与每列对应的样式。这一步中所定义的列均为 BoundColumns，从而可以通过其 DataField 属性，绑定到数据源的单独一个字段。您在以后步骤中可以看到， DataGrid 允许选择各种各样类型的列。 源代码网推荐 源代码网推荐 下面的类包含支持本页面的代码。 源代码网推荐 源代码网推荐 Step1Page.vb: 源代码网推荐 源代码网推荐 源代码网推荐 Imports System.DBNull 源代码网推荐 Imports System.Data 源代码网推荐 Imports System.Data.SqlClient 源代码网推荐 Imports System.Data.OleDb 源代码网推荐 Imports System.DateTime 源代码网推荐 Imports DataAccess 源代码网推荐 源代码网推荐 Public Class Borrow 源代码网推荐 Inherits System.Web.UI.Page 源代码网推荐 Public DB As New OleDataAccess() 源代码网推荐 Dim myDataSet As New DataSet() 源代码网推荐 源代码网推荐 Dim SelectTable As New DataTable() 源代码网推荐 Dim SelectView As New DataView() 源代码网推荐 … 源代码网推荐 Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 源代码网推荐 Dim info As String, time 源代码网推荐 If Not Page.IsPostBack Then 源代码网推荐 If Now.Hour ＞= 6 And Now.Hour ＜ 12 Then 源代码网推荐 info = "早上好！！" 源代码网推荐 ElseIf Now.Hour ＞ 12 And Now.Hour ＜ 18 Then 源代码网推荐 info = "下午好！！" 源代码网推荐 Else 源代码网推荐 info = "晚上好！！" 源代码网推荐 End If 源代码网推荐 Dim Counter As Int16 源代码网推荐 Counter = Application("Counter") 源代码网推荐 lblInfo.Text = Application("UserName") + "," + info + Chr(13) + "欢迎你前来借阅 。." + Chr(10) + "你是第" + Counter.ToString + "位来访者！" 源代码网推荐 源代码网推荐 End If 源代码网推荐 If IsNothing(Session("mTable")) Then 源代码网推荐 SelectTable = CreateTable() 源代码网推荐 Session("mTable") = SelectTable 源代码网推荐 SetText() 源代码网推荐 Else 源代码网推荐 SelectTable = Session("mTable") 源代码网推荐 End If 源代码网推荐 End Sub 源代码网推荐 Private Function CreateTable() As DataTable 源代码网推荐 Dim dt As New DataTable() 源代码网推荐 Dim dr As DataRow 源代码网推荐 dt.Columns.Add(New DataColumn("ID", GetType(String))) 源代码网推荐 dt.Columns.Add(New DataColumn("Name", GetType(String))) 源代码网推荐 " dt.Columns(0).ColumnName = "系号" 源代码网推荐 " dt.Columns(1).ColumnName = "名称" 源代码网推荐 Return dt 源代码网推荐 End Function 源代码网推荐 End Class 源代码网推荐 源代码网推荐 源代码网推荐 源代码网推荐 该类超越 Page 的 OnLoad 方法 (类似于实施 Page_Load)，将 建立一个临时表并巧妙地利用Session在加载页面时保证仅执行一次。与其它一般页面一样，确定来访者人数. 做人要厚道，请注明转自酷网动力(www.ASPCOOL.COM)。 源代码网推荐 源代码网供稿. |
