producing.aspx.vb

这是一个订单管理系统

Imports OrderDll

Partial Class Producing
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Me.ProductControl1.strType = "VIEW"
        Dim strID As String = Me.Request.QueryString("PID")
        If strID = "" Then
            Me.btnUpdate.Enabled = False
            Me.Calendar1.Enabled = False
            Me.TextBox1.Enabled = False
        End If
    End Sub

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

    Protected Sub btnUpdate_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnUpdate.Click
        Dim cp As New ClassProducing
        Dim strID As String
        Dim pdate As String
        strID = Me.Request.QueryString("PID").Replace("'", "''")
        If strID = "" Then
            Exit Sub
        End If
        If Me.TextBox1.Text.Trim = "" Or TextBox1.Text.Trim = "0" Then
            TextBox1.Focus()
            Exit Sub
        End If
        If Me.Calendar1.SelectedDate.Equals(New Date(1, 1, 1)) Then
            Calendar1.Focus()
            Exit Sub
        End If
        With Me.Calendar1.SelectedDate
            pdate = .ToShortDateString
        End With
        If cp.Update(strID, pdate, TextBox1.Text) = False Then
            Me.Calendar1.SelectedDate = Today
            Me.TextBox1.Text = "0"
        End If
    End Sub
End Class