modityquantity.vb

来自「This program is designed for a menu orde」· VB 代码 · 共 74 行

Public Class ModityQuantity

    Public Food As String
    Public Price As String
    Public Nums As String
    Public Totals As String
    Public ProductId As String
    Dim First As Boolean

    Public Sub New(ByVal PFirst As Boolean, ByVal PFood As String, ByVal PPrice As String, ByVal PNums As String, ByVal PProductId As String)

        InitializeComponent()

        First = PFirst
        Food = PFood
        Price = PPrice
        Nums = PNums
        ProductId = PProductId

    End Sub

    Private Sub ModityQuantity_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

        txtProductName.Text = Food
        txtPrice.Text = Price
        nudNums.Value = Nums
        txtTotals.Text = Nums * Price
        txtProductId.Text = ProductId

    End Sub

    ' 數量變更
    Private Sub nudNums_ValueChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles nudNums.ValueChanged

        Dim NNums As Integer = Convert.ToInt16(nudNums.Value)
        Dim NPrice As String = Price
        Dim NTotals As Integer = NNums * NPrice

        Nums = NNums
        Totals = Totals

        txtTotals.Text = NTotals

    End Sub

    '確定
    Private Sub MenuOK_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuOK.Click

        Dim NNums As Integer
        Dim NPrice As Integer
        Dim NTotals As Integer

        NNums = Convert.ToInt16(nudNums.Value)
        NPrice = txtPrice.Text
        NTotals = txtTotals.Text

        Nums = NNums
        Totals = NTotals

        If First = True Then
            MessageBox.Show(" 產品名稱:" + Food + vbCrLf + " 數量:" + Nums + vbCrLf + " 小計:" + Totals, "修改數量成功")
        Else
            MessageBox.Show(" 產品名稱:" + Food + vbCrLf + " 數量:" + Nums + vbCrLf + " 小計:" + Totals, "新增成功")
        End If
        Me.Close()

    End Sub

    '取消
    Private Sub MenuCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuCancel.Click
        Me.Close()
    End Sub

End Class