商品管理.aspx.vb

ASP,VB.NET写的,用的SQLSERVER数据库,影片超市系统,属于网上购物系统

Public Class 商品管理
    Inherits System.Web.UI.Page

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

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

    End Sub
    Protected WithEvents DataGrid1 As System.Web.UI.WebControls.DataGrid
    Protected WithEvents DropDownList1 As System.Web.UI.WebControls.DropDownList
    Protected WithEvents LinkButton2 As System.Web.UI.WebControls.LinkButton
    Protected WithEvents T2 As System.Web.UI.HtmlControls.HtmlTable
    Protected WithEvents Tbpp As System.Web.UI.WebControls.TextBox
    Protected WithEvents Tbxh As System.Web.UI.WebControls.TextBox
    Protected WithEvents Tbsl As System.Web.UI.WebControls.TextBox
    Protected WithEvents Tbdj As System.Web.UI.WebControls.TextBox
    Protected WithEvents Tbpm As System.Web.UI.WebControls.TextBox

    '注意: 以下占位符声明是 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 dataOP
    Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        '在此处放置初始化页的用户代码

        If Not IsPostBack Then
            Dim ss() As String
            ss = myd.rearr("select 分类名 from 分类")
            DropDownList1.DataSource = ss
            DropDownList1.DataBind()

            DropDownList1.SelectedIndex = 0
            datab("select * from 商品 where 分类='" & DropDownList1.SelectedItem.Text & "'")
            'ss = myd.rearr("select 品名 from 商品")
            'Ddlpm.DataSource = ss
            'Ddlpm.DataBind()

            'Ddlpm.Items.Add("")
            'Ddlpm.SelectedIndex = Ddlpm.Items.Count - 1
        End If
        T2.Rows(0).Cells(1).InnerHtml = DropDownList1.SelectedItem.Text

    End Sub



    Sub datab(ByVal str As String)
        DataGrid1.DataSource = myd.retab(str)
        DataGrid1.DataBind()
    End Sub

    Private Sub DropDownList1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DropDownList1.SelectedIndexChanged
        Dim sqlstr As String
        T2.Rows(0).Cells(1).InnerHtml = DropDownList1.SelectedItem.Text
        sqlstr = "select * from 商品 where 分类='" & DropDownList1.SelectedItem.Text & "'"
        datab(sqlstr)
    End Sub

    Private Sub LinkButton2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles LinkButton2.Click
        Dim str(6) As String

        str(0) = "exec in商品 "
        str(1) = DropDownList1.SelectedItem.Text
        str(2) = Tbpm.Text
        str(3) = Tbpp.Text
        str(4) = Tbxh.Text
        str(5) = Tbdj.Text
        str(6) = Tbsl.Text

        ''判断商品表中有无此商品，如有则数量加，否则插入
        'Dim sqlstr As String
        'sqlstr = "select count(*) from 商品 where 分类='" & str(1) & "' and 品名='" & str(2) & "'"
        'If myd.singlVal(sqlstr) > 0 Then
        '    '则数量加
        '    sqlstr = "update 商品 set 数量=数量+" & str(6) & " where 分类='" & str(1) & "' and 品名='" & str(2) & "'"
        '    myd.exeSQL(sqlstr)
        '    datab("select * from 商品 where 分类='" & DropDownList1.SelectedItem.Text & "'")
        '    Exit Sub  '退出
        'End If

        If myd.exeSQL(str) = False Then
            T2.Rows(0).Cells(1).InnerHtml = "失败！" & myd.ec
            Exit Sub
        End If
        datab("select * from 商品 where 分类='" & DropDownList1.SelectedItem.Text & "'")
    End Sub

    Private Sub DataGrid1_EditCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.EditCommand
        DataGrid1.EditItemIndex = e.Item.ItemIndex
        datab("select * from 商品 where 分类='" & DropDownList1.SelectedItem.Text & "'")
    End Sub

    Private Sub DataGrid1_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.CancelCommand
        DataGrid1.EditItemIndex = -1
        datab("select * from 商品 where 分类='" & DropDownList1.SelectedItem.Text & "'")
    End Sub

    Private Sub DataGrid1_DeleteCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.DeleteCommand
        'Dim index As Integer
        'index = DataGrid1.PageSize * DataGrid1.CurrentPageIndex + e.Item.ItemIndex
        '取主键--ID
        Dim id As String
        id = DataGrid1.DataKeys(e.Item.ItemIndex)

        '构成SQL语句
        Dim str As String
        str = "delete from 商品 where ID=" & id
        Dim aa As New dataOP
        aa.exeSQL(str)
        datab("select * from 商品 where 分类='" & DropDownList1.SelectedItem.Text & "'")
    End Sub


    Private Sub DataGrid1_PageIndexChanged(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridPageChangedEventArgs) Handles DataGrid1.PageIndexChanged
        DataGrid1.CurrentPageIndex = e.NewPageIndex
        datab("select * from 商品 where 分类='" & DropDownList1.SelectedItem.Text & "'")
    End Sub

    Private Sub DataGrid1_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid1.UpdateCommand
        Dim id As String
        id = DataGrid1.DataKeys(e.Item.ItemIndex)

        Dim col1 As String = CType(e.Item.Cells(0).Controls(0), TextBox).Text
        Dim col2 As String = CType(e.Item.Cells(1).Controls(0), TextBox).Text
        Dim col3 As String = CType(e.Item.Cells(2).Controls(0), TextBox).Text
        Dim col4 As String = CType(e.Item.Cells(3).Controls(0), TextBox).Text
        Dim col5 As String = CType(e.Item.Cells(4).Controls(0), TextBox).Text
        Dim col6 As String = CType(e.Item.Cells(5).Controls(0), TextBox).Text

        Dim ucmd As String = "UPDATE 商品 SET 品名='" & col1 & "'," & _
            "品牌='" & col2 & "'," & "型号='" & col3 & "'," & _
            "单价='" & col4 & "'," & "数量=" & col5 & _
            " WHERE ID=" & id
        Dim aa As New dataOP
        If aa.exeSQL(ucmd) = False Then
            Response.Write(aa.ec)
        End If
        DataGrid1.EditItemIndex = -1
        datab("select * from 商品 where 分类='" & DropDownList1.SelectedItem.Text & "'")
    End Sub
End Class