productcontrol.ascx.vb

这是一个订单管理系统

Imports OrderDll

Partial Class ProductControl
    Inherits System.Web.UI.UserControl
    Public strType As String
    Private strId As String

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        If IsPostBack = False Then
            If strType = "ADD" Then
                AddInit()
            ElseIf strType = "EDIT" Then
                EditInit()
            Else
                'ViewInit()
            End If
        End If
        If strType = "VIEW" Then
            ViewInit()
        End If
    End Sub

    Protected Sub btnAct_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnAct.Click
        If strType = "ADD" Then
            Btn_Add()
        Else
            Btn_Edit()
        End If
    End Sub

    Protected Sub Btn_Add()
        Dim cp As New ClassProduct
        If cp.Add(Me.txtProductId.Text, _
            Me.txtProductName.Text, _
            Me.txtUnit.Text, _
            Me.txtStorage.Text.Trim, _
            Me.txtSell.Text, _
            Me.txtCost.Text, _
            Me.txtNumber.Text _
        ) = False Then
            Me.txtProductId.Text = ""
            Me.txtProductName.Text = ""
            Me.txtUnit.Text = ""
            Me.txtStorage.Text = ""
            Me.txtSell.Text = ""
            Me.txtCost.Text = ""
            Me.txtNumber.Text = ""
        End If

    End Sub

    Protected Sub Btn_Edit()
        Dim cp As New ClassProduct
        If cp.Edit(Me.txtProductId.Text, _
           Me.txtProductName.Text, _
           Me.txtUnit.Text, _
           Me.txtStorage.Text.Trim, _
           Me.txtSell.Text, _
           Me.txtCost.Text, _
           Me.txtNumber.Text _
       ) = False Then
            EditInit()
        End If
    End Sub

    Protected Sub AddInit()
        Me.btnAct.Text = "添加"


    End Sub

    Protected Sub EditInit()
        Dim ds As New Data.DataSet
        Dim cp As New ClassProduct
        Me.btnAct.Text = "修改"
        strId = Me.Request.QueryString("PID")
        If strId = "" Then
            Me.Visible = False
            Exit Sub
        End If
        If cp.GetRowById(ds, strId.Replace("'", "''")) = False Then
            Me.txtProductId.Text = strId
            Me.txtProductId.Enabled = False
            Me.txtProductName.Text = ds.Tables(0).Rows(0).Item(1)
            Me.txtUnit.Text = ds.Tables(0).Rows(0).Item(2)
            Me.txtStorage.Text = ds.Tables(0).Rows(0).Item(3).ToString
            Me.txtSell.Text = ds.Tables(0).Rows(0).Item(4).ToString
            Me.txtCost.Text = ds.Tables(0).Rows(0).Item(5).ToString
            Me.txtNumber.Text = ds.Tables(0).Rows(0).Item(6).ToString
        Else
            Me.Visible = False
        End If
    End Sub

    Protected Sub ViewInit()
        Dim ds As New Data.DataSet
        Dim cp As New ClassProduct
        Me.btnAct.Visible = False
        Me.btnCancel.Visible = False
        strId = Me.Request.QueryString("PID")
        If strId = "" Then
            Me.Visible = False
            Exit Sub
        End If
        If cp.GetRowById(ds, strId.Replace("'", "''")) = False Then
            Me.txtProductId.Text = strId
            Me.txtProductName.Text = ds.Tables(0).Rows(0).Item(1)
            Me.txtUnit.Text = ds.Tables(0).Rows(0).Item(2)
            Me.txtStorage.Text = ds.Tables(0).Rows(0).Item(3).ToString
            Me.txtSell.Text = ds.Tables(0).Rows(0).Item(4).ToString
            Me.txtCost.Text = ds.Tables(0).Rows(0).Item(5).ToString
            Me.txtNumber.Text = ds.Tables(0).Rows(0).Item(6).ToString
        Else
            Me.Visible = False
        End If
    End Sub

    Protected Sub btnCancel_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCancel.Click
        Me.Response.Redirect("ProductManager.aspx")
    End Sub
End Class