用户控件的使用(一)

Posted on 2004-11-17 15:38  生活即技术  阅读(477)  评论(0)  编辑  收藏  举报
功能实现了用控件中的Datalis在t前台页面 UserControls.aspx显示数据
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="UserControls_.aspx.vb" Inherits="Data.UserControls_"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
    <HEAD>
        <title>UserControls_</title>
        <meta name="GENERATOR" content="Microsoft Visual Studio .NET 7.1">
        <meta name="CODE_LANGUAGE" content="Visual Basic .NET 7.1">
        <meta name="vs_defaultClientScript" content="JavaScript">
        <meta name="vs_targetSchema" content="http://schemas.microsoft.com/intellisense/ie5">
    </HEAD>
    <body MS_POSITIONING="GridLayout">
        <form id="Form1" method="post" runat="server">
          <table><tr><td>
          <!-- begin  -->
          <%@ Register TagPrefix="My" tagname="user"  Src="MyControl_.ascx" %>
          <My:user id="tt111" runat="server"></My:user>
          <!--end new --></td></tr></table>    
            <FONT face="宋体"></FONT>
        </form>
    </body>
</HTML>
用户控件页MyControl_.ascx
Public Class MyControl
    Inherits System.Web.UI.UserControl

#Region " Web 窗体设计器生成的代码 "

    '该调用是 Web 窗体设计器所必需的。
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()

    End Sub
    Protected WithEvents DataList1 As System.Web.UI.WebControls.DataList

    '注意: 以下占位符声明是 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()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        If Not IsPostBack Then
            DataList1.DataSource = Databind_(0).Tables("user_login")
            DataList1.DataBind()
        End If
    End Sub
    Function Databind_(ByVal StartIndex) As System.Data.DataSet
        Dim Sqlstr As String = "server=(local);database=Achem56;uid=sa;pwd="
        Dim Sql As String = "select   id,uname from user_login  "
        Dim Sqlconn As New System.Data.SqlClient.SqlConnection(Sqlstr)
        Dim Sqlcmd As New System.Data.SqlClient.SqlDataAdapter(Sql, Sqlconn)
        Dim SqlDataSet As New DataSet
        Sqlcmd.Fill(SqlDataSet, StartIndex, 10, "user_login")
        Return SqlDataSet
    End Function
end class
用户控件很管有用的，你可以封装一些操作，增加主件的的重复使用性