Me.dgdOrderList.HeaderForeColor = System.Drawing.SystemColors.ControlText
        Me.dgdOrderList.Location = New System.Drawing.Point(8, 176)
        Me.dgdOrderList.Name = "dgdOrderList"
        Me.dgdOrderList.Size = New System.Drawing.Size(642, 120)
        Me.dgdOrderList.TabIndex = 57
        '
        'lblRateValue
        '
        Me.lblRateValue.Location = New System.Drawing.Point(512, 17)
        Me.lblRateValue.Name = "lblRateValue"
        Me.lblRateValue.Size = New System.Drawing.Size(40, 16)
        Me.lblRateValue.TabIndex = 66
        Me.lblRateValue.Text = "17"
        '
        'lblRateText
        '
        Me.lblRateText.Location = New System.Drawing.Point(456, 17)
        Me.lblRateText.Name = "lblRateText"
        Me.lblRateText.Size = New System.Drawing.Size(40, 16)
        Me.lblRateText.TabIndex = 65
        Me.lblRateText.Text = "稅率"
        '
        'txbTax
        '
        Me.txbTax.Location = New System.Drawing.Point(376, 13)
        Me.txbTax.Name = "txbTax"
        Me.txbTax.ReadOnly = True
        Me.txbTax.Size = New System.Drawing.Size(48, 21)
        Me.txbTax.TabIndex = 64
        Me.txbTax.Text = "0"
        '
        'txbWithoutTax
        '
        Me.txbWithoutTax.Location = New System.Drawing.Point(248, 13)
        Me.txbWithoutTax.Name = "txbWithoutTax"
        Me.txbWithoutTax.ReadOnly = True
        Me.txbWithoutTax.Size = New System.Drawing.Size(48, 21)
        Me.txbWithoutTax.TabIndex = 63
        Me.txbWithoutTax.Text = "0"
        '
        'txbTotal
        '
        Me.txbTotal.Location = New System.Drawing.Point(88, 13)
        Me.txbTotal.Name = "txbTotal"
        Me.txbTotal.ReadOnly = True
        Me.txbTotal.Size = New System.Drawing.Size(48, 21)
        Me.txbTotal.TabIndex = 60
        Me.txbTotal.Text = "0"
        '
        'lblTax
        '
        Me.lblTax.Location = New System.Drawing.Point(336, 18)
        Me.lblTax.Name = "lblTax"
        Me.lblTax.Size = New System.Drawing.Size(32, 16)
        Me.lblTax.TabIndex = 62
        Me.lblTax.Text = "稅額"
        '
        'lblWithoutTax
        '
        Me.lblWithoutTax.Location = New System.Drawing.Point(168, 18)
        Me.lblWithoutTax.Name = "lblWithoutTax"
        Me.lblWithoutTax.Size = New System.Drawing.Size(72, 11)
        Me.lblWithoutTax.TabIndex = 61
        Me.lblWithoutTax.Text = "不含稅金額"
        '
        'lblTotal
        '
        Me.lblTotal.Location = New System.Drawing.Point(16, 18)
        Me.lblTotal.Name = "lblTotal"
        Me.lblTotal.Size = New System.Drawing.Size(56, 16)
        Me.lblTotal.TabIndex = 59
        Me.lblTotal.Text = "合計金額"
        '
        'grbTax
        '
        Me.grbTax.Anchor = CType(((System.Windows.Forms.AnchorStyles.Bottom Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.grbTax.Controls.Add(Me.lblWithoutTax)
        Me.grbTax.Controls.Add(Me.txbTax)
        Me.grbTax.Controls.Add(Me.lblTotal)
        Me.grbTax.Controls.Add(Me.lblRateValue)
        Me.grbTax.Controls.Add(Me.lblRateText)
        Me.grbTax.Controls.Add(Me.txbWithoutTax)
        Me.grbTax.Controls.Add(Me.txbTotal)
        Me.grbTax.Controls.Add(Me.lblTax)
        Me.grbTax.Location = New System.Drawing.Point(8, 296)
        Me.grbTax.Name = "grbTax"
        Me.grbTax.Size = New System.Drawing.Size(640, 40)
        Me.grbTax.TabIndex = 67
        Me.grbTax.TabStop = False
        '
        'grbOrderList
        '
        Me.grbOrderList.Anchor = CType(((System.Windows.Forms.AnchorStyles.Top Or System.Windows.Forms.AnchorStyles.Left) _
                    Or System.Windows.Forms.AnchorStyles.Right), System.Windows.Forms.AnchorStyles)
        Me.grbOrderList.Controls.Add(Me.txbSupplyId)
        Me.grbOrderList.Controls.Add(Me.txbSupplyName)
        Me.grbOrderList.Controls.Add(Me.txbListMaker)
        Me.grbOrderList.Controls.Add(Me.txbOrderDate)
        Me.grbOrderList.Controls.Add(Me.lblSupplyName)
        Me.grbOrderList.Controls.Add(Me.linklbSupply)
        Me.grbOrderList.Controls.Add(Me.lblSupplyId)
        Me.grbOrderList.Controls.Add(Me.lblWorker)
        Me.grbOrderList.Controls.Add(Me.lblListMaker)
        Me.grbOrderList.Controls.Add(Me.lblOrderDate)
        Me.grbOrderList.Controls.Add(Me.cbbWorker)
        Me.grbOrderList.Location = New System.Drawing.Point(8, 30)
        Me.grbOrderList.Name = "grbOrderList"
        Me.grbOrderList.Size = New System.Drawing.Size(640, 64)
        Me.grbOrderList.TabIndex = 68
        Me.grbOrderList.TabStop = False
        Me.grbOrderList.Text = "進貨單"
        '
        'txbSupplyId
        '
        Me.txbSupplyId.Location = New System.Drawing.Point(80, 32)
        Me.txbSupplyId.Name = "txbSupplyId"
        Me.txbSupplyId.Size = New System.Drawing.Size(96, 21)
        Me.txbSupplyId.TabIndex = 34
        Me.txbSupplyId.Text = ""
        '
        'txbSupplyName
        '
        Me.txbSupplyName.Location = New System.Drawing.Point(241, 32)
        Me.txbSupplyName.Name = "txbSupplyName"
        Me.txbSupplyName.ReadOnly = True
        Me.txbSupplyName.Size = New System.Drawing.Size(96, 21)
        Me.txbSupplyName.TabIndex = 32
        Me.txbSupplyName.Text = ""
        '
        'txbListMaker
        '
        Me.txbListMaker.Location = New System.Drawing.Point(241, 8)
        Me.txbListMaker.Name = "txbListMaker"
        Me.txbListMaker.Size = New System.Drawing.Size(96, 21)
        Me.txbListMaker.TabIndex = 29
        Me.txbListMaker.Text = ""
        '
        'txbOrderDate
        '
        Me.txbOrderDate.Location = New System.Drawing.Point(80, 8)
        Me.txbOrderDate.Name = "txbOrderDate"
        Me.txbOrderDate.Size = New System.Drawing.Size(96, 21)
        Me.txbOrderDate.TabIndex = 27
        Me.txbOrderDate.Text = ""
        '
        'lblSupplyName
        '
        Me.lblSupplyName.Location = New System.Drawing.Point(176, 39)
        Me.lblSupplyName.Name = "lblSupplyName"
        Me.lblSupplyName.Size = New System.Drawing.Size(72, 16)
        Me.lblSupplyName.TabIndex = 35
        Me.lblSupplyName.Text = "供貨商名稱"
        '
        'linklbSupply
        '
        Me.linklbSupply.Location = New System.Drawing.Point(348, 39)
        Me.linklbSupply.Name = "linklbSupply"
        Me.linklbSupply.Size = New System.Drawing.Size(32, 16)
        Me.linklbSupply.TabIndex = 33
        Me.linklbSupply.TabStop = True
        Me.linklbSupply.Text = "選擇"
        '
        'lblSupplyId
        '
        Me.lblSupplyId.Location = New System.Drawing.Point(24, 39)
        Me.lblSupplyId.Name = "lblSupplyId"
        Me.lblSupplyId.Size = New System.Drawing.Size(56, 16)
        Me.lblSupplyId.TabIndex = 31
        Me.lblSupplyId.Text = "供貨商號"
        '
        'lblWorker
        '
        Me.lblWorker.Location = New System.Drawing.Point(344, 15)
        Me.lblWorker.Name = "lblWorker"
        Me.lblWorker.Size = New System.Drawing.Size(43, 17)
        Me.lblWorker.TabIndex = 30
        Me.lblWorker.Text = "業(yè)務(wù)員"
        '
        'lblListMaker
        '
        Me.lblListMaker.Location = New System.Drawing.Point(199, 15)
        Me.lblListMaker.Name = "lblListMaker"
        Me.lblListMaker.Size = New System.Drawing.Size(48, 17)
        Me.lblListMaker.TabIndex = 28
        Me.lblListMaker.Text = "制單人"
        '
        'lblOrderDate
        '
        Me.lblOrderDate.Location = New System.Drawing.Point(24, 16)
        Me.lblOrderDate.Name = "lblOrderDate"
        Me.lblOrderDate.Size = New System.Drawing.Size(56, 17)
        Me.lblOrderDate.TabIndex = 26
        Me.lblOrderDate.Text = "進貨日期"
        '
        'frmOrderList
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.ClientSize = New System.Drawing.Size(656, 341)
        Me.Controls.Add(Me.grbOrderList)
        Me.Controls.Add(Me.grbTax)
        Me.Controls.Add(Me.grbOrderListDetail)
        Me.Controls.Add(Me.ToolBar1)
        Me.Controls.Add(Me.dgdOrderList)
        Me.Name = "frmOrderList"
        Me.Text = "進貨單"
        Me.grbOrderListDetail.ResumeLayout(False)
        CType(Me.dgdOrderList, System.ComponentModel.ISupportInitialize).EndInit()
        Me.grbTax.ResumeLayout(False)
        Me.grbOrderList.ResumeLayout(False)
        Me.ResumeLayout(False)

    End Sub

#End Region
    Public Sub New(ByVal sUserName As String)
        MyBase.New()

        '該調(diào)用是 Windows 窗體設(shè)計器所必需的。
        InitializeComponent()

        '在 InitializeComponent() 調(diào)用之后添加任何初始化
        UserName = sUserName

    End Sub

    Private Sub linklbSupply_LinkClicked(ByVal sender As Object, _
    ByVal e As LinkLabelLinkClickedEventArgs) _
    Handles linklbSupply.LinkClicked
        Try
            '新建一個frmSupplyInfo類的對象
            Dim dlgSupply As frmSupplyInfo = New frmSupplyInfo
            dlgSupply.bClose = True
            '顯示對話框
            dlgSupply.tbbSave.Enabled = False
            dlgSupply.tbbDel.Enabled = False
            dlgSupply.ShowDialog()
            '返回選中的供貨商
            Dim result() As String = dlgSupply.SetInfo().Split("|")
            '根據(jù)選中的供貨商設(shè)置TextBox
            txbSupplyId.Text = result(0)
            txbSupplyName.Text = result(1)
        Catch ex As Exception
            MessageBox.Show("錯誤")
        End Try
    End Sub

    Private Sub btnAdd_Click(ByVal sender As Object, _
    ByVal e As System.EventArgs) Handles btnAdd.Click
        '驗證添加的數(shù)據(jù)是否又錯誤
        If Me.ValidateNew() = False Then
            MessageBox.Show("數(shù)據(jù)錯誤")
            Exit Sub
        End If
        '添加新的數(shù)據(jù)行
        Dim dr As DataRow = Me.dtOrderList.NewRow
        dr("貨號") = Me.txbGoodsId.Text.Trim
        dr("品名") = Me.txbGoodsName.Text.Trim()
        dr("數(shù)量") = Me.txbGoodsCount.Text.Trim
        dr("單位") = Me.txbGoodsUnit.Text.Trim
        dr("單價") = Me.txbPrice.Text.Trim
        dr("倉庫") = Me.cbbDepotId.SelectedItem("倉庫名")
        Try
            '計算稅率
            Dim total As Integer = _
            CInt(Me.txbPrice.Text.Trim) * _
            CInt(Me.txbGoodsCount.Text.Trim)
            Dim rate As Integer = CInt(Me.lblRateValue.Text.Trim)
            dr("稅價合計") = total.ToString
            dr("稅率") = Me.lblRateValue.Text.Trim
            dr("稅額") = (total - total / (1 + rate / 100)).ToString("f")
            dr("不含稅價") = (total / (1 + rate / 100)).ToString("f")
            Me.dtOrderList.Rows.Add(dr)
            SetTaxForAdd(CInt(Me.txbPrice.Text.Trim) * _
            CInt(Me.txbGoodsCount.Text.Trim))
        Catch ex As Exception
            MessageBox.Show("數(shù)據(jù)格式不正確")
        End Try
        Clear()
    End Sub

    Private Sub frmOrderList_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
        txbListMaker.Text = UserName
        txbOrderDate.Text = Date.Now.ToShortDateString
        Dim db As DataBase = New DataBase
        '為cbbWorker下拉列表框設(shè)置數(shù)據(jù)源
        cbbWorker.DataSource = _
        db.RunSelectSQL("select 業(yè)務(wù)員號,姓名 from 業(yè)務(wù)員清單")
        cbbWorker.ValueMember = "業(yè)務(wù)員號"
        cbbWorker.DisplayMember = "姓名"
        '為cbbDepotId下拉列表框設(shè)置數(shù)據(jù)源
        cbbDepotId.DataSource = _
        db.RunSelectSQL("select 倉庫號,倉庫名 from 倉庫清單")
        cbbDepotId.ValueMember = "倉庫號"
        cbbDepotId.DisplayMember = "倉庫名"
        db.Dispose()
        '新建表
        dtOrderList = New DataTable
        With dtOrderList.Columns
            .Add("貨號", Type.GetType("System.String"))
            .Add("品名", Type.GetType("System.String"))
            .Add("數(shù)量", Type.GetType("System.String"))
            .Add("單位", Type.GetType("System.String"))
            .Add("單價", Type.GetType("System.String"))
            .Add("倉庫", Type.GetType("System.String"))
            .Add("稅價合計", Type.GetType("System.String"))
            .Add("稅率", Type.GetType("System.String"))
            .Add("稅額", Type.GetType("System.String"))
            .Add("不含稅價", Type.GetType("System.String"))
        End With
        Dim ts As New DataGridTableStyle
        Dim aColumnTextColumn As DataGridTextBoxColumn
        Dim numCols As Integer = dtOrderList.Columns.Count
        Dim i As Integer
        For i = 0 To numCols - 1
            aColumnTextColumn = New DataGridTextBoxColumn
            With aColumnTextColumn
                .MappingName = dtOrderList.Columns(i).ColumnName
                .HeaderText = dtOrderList.Columns(i).ColumnName
                .NullText = ""
            End With
            ts.GridColumnStyles.Add(aColumnTextColumn)
        Next
        ts.MappingName = dtOrderList.TableName
        ts.ReadOnly = True
        ts.AllowSorting = False
        dgdOrderList.TableStyles.Add(ts)