buy.aspx.vb

asp,vb.net编写,我的毕业设计,简单的网上购书系统,比较主流

Public Class buy
    Inherits System.Web.UI.Page

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

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

    End Sub
    Protected WithEvents Dggwc As System.Web.UI.WebControls.DataGrid
    Protected WithEvents LinkButton1 As System.Web.UI.WebControls.LinkButton
    Protected WithEvents T1 As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid

    '注意: 以下占位符声明是 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
    Dim myd As New main
    Dim gwc As New DataTable
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码
        If Session("gwc") Is Nothing Then
            Dim mycol As New DataColumn
            gwc.Columns.Add("ID", Type.GetType("System.Int16"))
            gwc.Columns.Add("书名", Type.GetType("System.String"))
            gwc.Columns.Add("作者", Type.GetType("System.String"))
            gwc.Columns.Add("报价", Type.GetType("System.Decimal"))
            'gwc.Columns.Add("产品编号", Type.GetType("System.String"))
            Session("gwc") = gwc
        Else
            gwc = Session("gwc")
        End If
        If Not IsPostBack Then
            Dim sqlstr As String
            sqlstr = "select * from 书籍表"
            DataGrid1.DataSource = myd.ReDataSet(sqlstr)
            DataGrid1.DataBind()
        End If
    End Sub
    Sub datab(ByVal str As String)
        DataGrid1.DataSource = myd.retab(str)
        DataGrid1.DataBind()
    End Sub


    Private Sub LinkButton1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton1.Click
        Dggwc.DataSource = Session("gwc")
        Dggwc.DataBind()

        Dim i As Integer
        Dim sum As Decimal
        For i = 0 To Dggwc.Items.Count - 1
            sum = sum + Dggwc.Items.Item(i).Cells(3).Text
        Next
        T1.Rows(4).Cells(0).InnerHtml = "您总共选购了:" & Dggwc.Items.Count & "件,总金额为:" & sum
    End Sub

   
    Private Sub Dggwc_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles Dggwc.DeleteCommand
        Dim index As Integer = e.Item.ItemIndex
        Dim mr As DataRow
        mr = Session("gwc").Rows(index)
        Session("gwc").Rows.Remove(mr)
        Dggwc.DataSource = Session("gwc")
        Dggwc.DataBind()
        If Session("gwc").rows.count = 0 Then
            Session.Remove("gwc")
            T1.Rows(3).Cells(0).InnerHtml = ""
            Exit Sub
        End If
        Dim i As Integer
        Dim sum As Decimal
        For i = 0 To Dggwc.Items.Count - 1
            sum = sum + Dggwc.Items.Item(i).Cells(3).Text
        Next
        T1.Rows(4).Cells(0).InnerHtml = "您总共选购了:" & Dggwc.Items.Count & "件,总金额为:" & sum
    End Sub

    Private Sub DataGrid1_PageIndexChanged(ByVal source As System.Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs)
        DataGrid1.CurrentPageIndex = e.NewPageIndex
        Dim sqlstr As String
        sqlstr = "select * from 书籍表"
        DataGrid1.DataSource = myd.ReDataSet(sqlstr)
        DataGrid1.DataBind()
    End Sub

    Private Sub DataGrid1_SelectedIndexChanged1(ByVal sender As Object, ByVal e As System.EventArgs) Handles DataGrid1.SelectedIndexChanged
        gwc = Session("gwc")
        Dim myr As DataRow
        myr = gwc.NewRow

        myr("ID") = DataGrid1.SelectedItem.Cells(0).Text
        myr("书名") = DataGrid1.SelectedItem.Cells(1).Text
        myr("作者") = DataGrid1.SelectedItem.Cells(3).Text
        myr("报价") = DataGrid1.SelectedItem.Cells(8).Text

        gwc.Rows.Add(myr)

        Session("gwc") = gwc
    End Sub

    Private Sub DataGrid1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DataGrid1.SelectedIndexChanged

    End Sub
End Class