historyorder.aspx.vb

网上售书系统v-1 SQL数据库 ASP.NET开发环境

Imports System.Data.SqlClient
Public Class HistoryOrder
    Inherits System.Web.UI.Page
    Protected WithEvents OrderDBGrd As System.Web.UI.WebControls.DataGrid


    Private connstr As String = System.Configuration.ConfigurationSettings.AppSettings("ConnectionString").ToString.Trim
    Private myconn As SqlConnection = New SqlConnection(connstr)

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

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

    End Sub

    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
            BindData()
        End If
    End Sub

    '=============================================================
    ' 函 数 名：BindData
    ' 功能描述：对DataGrid进行数据绑定
    ' 输入参数：无
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明： 
    '==============================================================
    Private Sub BindData()
        Dim user As UserInfo = CType(Session("UserInfo"), UserInfo)
        Dim ds As DataSet = New DataSet()
        Dim sqlstr As String = "select * from Orders ,Book where Orders.BookID=Book.BookID and Orders.UserID= " + user.UserId.ToString
        Try
            Dim myAdapter As SqlDataAdapter = New SqlDataAdapter(sqlstr, myconn)
            myconn.Open()
            myAdapter.Fill(ds)
            OrderDBGrd.DataSource = ds.Tables(0).DefaultView
            OrderDBGrd.DataBind()

        Catch
            Response.Write(sqlstr)
            Response.End()
        Finally
            myconn.Close()
        End Try

    End Sub

    Private Sub OrderDBGrd_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles OrderDBGrd.PageIndexChanged
        OrderDBGrd.CurrentPageIndex = e.NewPageIndex
        BindData()
    End Sub
End Class