orderform.aspx.vb

来自「Mastering VBNet Include Source Code」· VB 代码 · 共 100 行

Public Class WebForm1
    Inherits System.Web.UI.Page
    Protected WithEvents Label1 As System.Web.UI.WebControls.Label
    Protected WithEvents TextBox1 As System.Web.UI.WebControls.TextBox
    Protected WithEvents SqlConnection1 As System.Data.SqlClient.SqlConnection
    Protected WithEvents DAProducts As System.Data.SqlClient.SqlDataAdapter
    Protected WithEvents SqlSelectCommand1 As System.Data.SqlClient.SqlCommand
    Protected WithEvents DsProducts1 As ProductSearch.DSProducts
    Protected WithEvents bttnSearch As System.Web.UI.WebControls.Button
    Protected WithEvents bttnBasket As System.Web.UI.WebControls.Button
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid

#Region " Web Form Designer Generated Code "

    'This call is required by the Web Form Designer.
    <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent()
        Me.SqlConnection1 = New System.Data.SqlClient.SqlConnection()
        Me.SqlSelectCommand1 = New System.Data.SqlClient.SqlCommand()
        Me.DAProducts = New System.Data.SqlClient.SqlDataAdapter()
        Me.DsProducts1 = New ProductSearch.DSProducts()
        CType(Me.DsProducts1, System.ComponentModel.ISupportInitialize).BeginInit()
        '
        'SqlConnection1
        '
        Me.SqlConnection1.ConnectionString = "data source=(local);initial catalog=Northwind;persist security info=False;user id" & _
        "=sa;workstation id=PROTSERVER;packet size=4096"
        '
        'SqlSelectCommand1
        '
        Me.SqlSelectCommand1.CommandText = "SELECT ProductID, ProductName, QuantityPerUnit, UnitPrice FROM dbo.Products WHERE" & _
        " (ProductName LIKE '%' + @name + '%')"
        Me.SqlSelectCommand1.Connection = Me.SqlConnection1
        Me.SqlSelectCommand1.Parameters.Add(New System.Data.SqlClient.SqlParameter("@name", System.Data.SqlDbType.NVarChar, 40, "ProductName"))
        '
        'DAProducts
        '
        Me.DAProducts.SelectCommand = Me.SqlSelectCommand1
        Me.DAProducts.TableMappings.AddRange(New System.Data.Common.DataTableMapping() {New System.Data.Common.DataTableMapping("Table", "Products", New System.Data.Common.DataColumnMapping() {New System.Data.Common.DataColumnMapping("ProductID", "ProductID"), New System.Data.Common.DataColumnMapping("ProductName", "ProductName"), New System.Data.Common.DataColumnMapping("QuantityPerUnit", "QuantityPerUnit"), New System.Data.Common.DataColumnMapping("UnitPrice", "UnitPrice")})})
        '
        'DsProducts1
        '
        Me.DsProducts1.DataSetName = "DSProducts"
        Me.DsProducts1.Locale = New System.Globalization.CultureInfo("en-US")
        Me.DsProducts1.Namespace = "http://www.tempuri.org/DSProducts.xsd"
        CType(Me.DsProducts1, System.ComponentModel.ISupportInitialize).EndInit()

    End Sub

    Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init
        'CODEGEN: This method call is required by the Web Form Designer
        'Do not modify it using the code editor.
        InitializeComponent()
    End Sub

#End Region

    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'Put user code to initialize the page here
    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnSearch.Click
        DAProducts.SelectCommand.Parameters("@name").Value = TextBox1.Text
        DAProducts.Fill(DsProducts1, "Products")
        DataGrid1.DataSource = DsProducts1.Products
        DataGrid1.DataBind()
        DataGrid1.Visible = True
    End Sub

    Private Sub DataGrid1_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.ItemCommand
        Dim ItemID As Integer
        If e.Item.ItemType = ListItemType.Pager Then Exit Sub
        ItemID = e.Item.Cells(0).Text
        Dim sItemID As String = ItemID
        If Session(sItemID) Is Nothing Then
            Session(sItemID) = 1
        Else
            Session(sItemID) = Session(sItemID) + 1
        End If
        Dim ck As Object
        For Each ck In Session
            Response.Write(ck & " " & Session(ck))
            Response.Write("<BR>")
        Next
    End Sub

    Private Sub bttnBasket_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles bttnBasket.Click
        Response.Redirect("BasketForm.aspx")
    End Sub

    Private Sub DataGrid1_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged
        DsProducts1.Clear()
        DAProducts.SelectCommand.Parameters("@name").Value = TextBox1.Text
        DAProducts.Fill(DsProducts1, "Products")
        DataGrid1.DataSource = DsProducts1.Products
        DataGrid1.CurrentPageIndex = e.NewPageIndex
        DataGrid1.DataBind()
    End Sub

End Class