buybook.aspx.vb

asp做的网上书店销售系统数据库采用sqlserver

Imports System.Data.SqlClient
Public Class BuyBook
    Inherits System.Web.UI.Page
    Protected WithEvents DpClassList As System.Web.UI.WebControls.DropDownList
    Protected WithEvents txtAuthor As System.Web.UI.WebControls.TextBox
    Protected WithEvents txtPublish As System.Web.UI.WebControls.TextBox
    Protected WithEvents SearchBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents SearchPanel As System.Web.UI.WebControls.Panel
    Protected WithEvents ChangeBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents ViewCarBtn As System.Web.UI.WebControls.LinkButton
    Protected WithEvents BookDBGrd 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
            If Session("UserInfo") Is Nothing Then
                BookDBGrd.Columns(2).Visible = False
                ViewCarBtn.Visible = False
            End If
            BindDropDownList()
            BindDataGrid()
        End If
    End Sub

    '=============================================================
    ' 函 数 名：BindDropDownList
    ' 功能描述：绑定DropDownList下拉列表数据显示
    ' 输入参数：无
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================
    Private Sub BindDropDownList()
        Dim ds As DataSet = New DataSet()
        Dim sqlstr As String = "select * from Class "
        Try
            Dim myAdapter As SqlDataAdapter = New SqlDataAdapter(sqlstr, myconn)
            myconn.Open()
            myAdapter.Fill(ds)
            DpClassList.DataTextField = "ClassName"
            DpClassList.DataValueField = "ClassID"
            DpClassList.DataSource = ds.Tables(0).DefaultView
            DpClassList.DataBind()
            DpClassList.Items.Insert(0, "----选择类别-----")
        Catch
            Response.Write(sqlstr)
            Response.End()
        Finally
            myconn.Close()
        End Try
    End Sub
    '=============================================================
    ' 函 数 名：EidtImg
    ' 功能描述：编辑图片显示路径
    ' 输入参数：Img：数据库保存的图片名称
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================

    Public Function EidtImg(ByVal Img As String) As String
        If Img = "" Then
            Return ""
        Else
            Return Server.MapPath("..\SysUser\Pic\").ToString + Img
        End If
    End Function
    '=============================================================
    ' 函 数 名：BindDataGrid
    ' 功能描述：绑定DataGrid数据显示
    ' 输入参数：无
    ' 返 回 值：无
    ' 创建日期：2004-8-12
    ' 修改日期：2004-8-12
    ' 作    者：
    ' 附加说明：
    '==============================================================

    Private Sub BindDataGrid()
        Dim sqlstr As String = "select * from Book "
        Dim ds As DataSet = New DataSet()
        Try
            Dim myAdapter As SqlDataAdapter = New SqlDataAdapter(sqlstr, myconn)
            myconn.Open()
            myAdapter.Fill(ds)
            BookDBGrd.DataSource = ds.Tables(0).DefaultView
            BookDBGrd.DataBind()
        Catch
            Response.Write(sqlstr)
            Response.End()
        Finally
            myconn.Close()
        End Try

    End Sub

    Private Sub ChangeBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ChangeBtn.Click
        If ChangeBtn.Text = "显示查询面板" Then
            ChangeBtn.Text = "隐藏查询面板"
            SearchPanel.Visible = True
        Else
            ChangeBtn.Text = "显示查询面板"
            SearchPanel.Visible = False
        End If

    End Sub

    Private Sub ViewCarBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ViewCarBtn.Click
        Response.Write("<script>window.open('ViewCar.aspx','','toolbar=yes, status=yes,menubar=yes, scrollbars=yes,resizable=yes,width=300,height=200,left=100,top=0');</script>")
    End Sub

    Private Sub SearchBtn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchBtn.Click
        Dim sqlstr As String = " where 1=1 "
        If DpClassList.SelectedIndex <> 0 Then
            sqlstr += " and ClassID=" + DpClassList.Items(DpClassList.SelectedIndex).Value
        End If

        If txtAuthor.Text.ToString.Trim <> "" Then
            sqlstr += " and Author like '%" + txtAuthor.Text.ToString.Trim + "%'"
        End If

        If txtPublish.Text.ToString.Trim <> "" Then
            sqlstr += " and Publish like '%" + txtPublish.Text.ToString.Trim + "%'"
        End If
        sqlstr = "select * from Book " + sqlstr
        Dim ds As DataSet = New DataSet()
        Try
            Dim myAdapter As SqlDataAdapter = New SqlDataAdapter(sqlstr, myconn)
            myconn.Open()
            myAdapter.Fill(ds)
            BookDBGrd.DataSource = ds.Tables(0).DefaultView
            BookDBGrd.DataBind()
        Catch
            Response.Write(sqlstr)
            Response.End()
        Finally
            myconn.Close()
        End Try
    End Sub

    Private Sub BookDBGrd_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles BookDBGrd.PageIndexChanged
        BookDBGrd.CurrentPageIndex = e.NewPageIndex
        BookDBGrd.DataBind()
    End Sub

    Private Sub BookDBGrd_ItemCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles BookDBGrd.ItemCommand
        If e.CommandName = "Buy" Then
            Dim OrderList As ArrayList = New ArrayList()
            If Not Session("BookCar") Is Nothing Then
                OrderList = CType(Session("BookCar"), ArrayList)
            End If
            Dim lbTemp As Label
            Dim obj As Order = New Order()

            lbTemp = CType(BookDBGrd.Items(e.Item.ItemIndex).Cells(1).FindControl("lbBookID"), Label)
            obj.BookID = lbTemp.Text.ToString

            lbTemp = CType(BookDBGrd.Items(e.Item.ItemIndex).Cells(1).FindControl("lbBookName"), Label)
            obj.BookName = lbTemp.Text.ToString

            lbTemp = CType(BookDBGrd.Items(e.Item.ItemIndex).Cells(1).FindControl("lbPrice"), Label)
            obj.Price = lbTemp.Text
            obj.BookNum = 1
            obj.TotalCharge = obj.BookNum * obj.Price
            Dim objControl As OrderControl = New OrderControl()
            OrderList = objControl.AddOrder(obj, OrderList)
            Session("BookCar") = OrderList
        End If
    End Sub
End Class