WINPROFIT-ERP-SYS
/
WINPROFIT-ERP-SYS-LEEHSIEHJUI


			
							12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697
							Option Strict Off
Public Class CXL訂單紀錄表
    Private ReadOnly ds As New DataSet
    Dim 已超出 As Boolean
    Private Sub Set_清單3()
        主表單_dgv.DataSource = Nothing : ds.Clear()
        主表單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        主表單_dgv.ColumnHeadersHeight = 25
        主表單_dgv.AllowUserToAddRows = False
        SQL_CXL訂單紀錄表單()
        da.Fill(ds) : 主表單_dgv.DataSource = ds.Tables(0) : conn.Close()

        主表單_dgv.Columns(0).Width = 140 : 主表單_dgv.Columns(1).Width = 80 : 主表單_dgv.Columns(2).Width = 140 : 主表單_dgv.Columns(3).Width = 130 : 主表單_dgv.Columns(4).Width = 140
        主表單_dgv.Columns(5).Width = 90 : 主表單_dgv.Columns(6).Width = 60 : 主表單_dgv.Columns(7).Width = 90 : 主表單_dgv.Columns(8).Width = 100 : 主表單_dgv.Columns(9).Width = 100
        主表單_dgv.Columns(10).Width = 90 : 主表單_dgv.Columns(11).Width = 90 : 主表單_dgv.Columns(12).Width = 140 : 主表單_dgv.Columns(13).Width = 90 : 主表單_dgv.Columns(14).Width = 130
        主表單_dgv.Columns(15).Width = 140 : 主表單_dgv.Columns(16).Width = 120
        主表單_dgv.Columns(17).Visible = False : 主表單_dgv.Columns(18).Visible = False
        主表單_dgv.Columns(19).Visible = False : 主表單_dgv.Columns(20).Visible = False : 主表單_dgv.Columns(21).Visible = False : 主表單_dgv.Columns(22).Visible = False
        主表單_dgv.Columns(23).Visible = False : 主表單_dgv.Columns(24).Visible = False : 主表單_dgv.Columns(25).Visible = False : 主表單_dgv.Columns(26).Visible = False
        主表單_dgv.Columns(27).Visible = False : 主表單_dgv.Columns(28).Visible = False : 主表單_dgv.Columns(29).Visible = False : 主表單_dgv.Columns(30).Visible = False
        主表單_dgv.Columns(31).Visible = False : 主表單_dgv.Columns(32).Visible = False : 主表單_dgv.Columns(33).Visible = False : 主表單_dgv.Columns(34).Visible = False
        主表單_dgv.Columns(35).Visible = False : 主表單_dgv.Columns(36).Visible = False : 主表單_dgv.Columns(37).Visible = False : 主表單_dgv.Columns(38).Visible = False
        主表單_dgv.Columns(39).Visible = False : 主表單_dgv.Columns(40).Visible = False : 主表單_dgv.Columns(41).Visible = False : 主表單_dgv.Columns(42).Visible = False
        主表單_dgv.Columns(43).Visible = False : 主表單_dgv.Columns(44).Visible = False : 主表單_dgv.Columns(45).Visible = False : 主表單_dgv.Columns(46).Visible = False
        主表單_dgv.Columns(47).Visible = False : 主表單_dgv.Columns(48).Visible = False : 主表單_dgv.Columns(49).Visible = False : 主表單_dgv.Columns(50).Visible = False
        主表單_dgv.Columns(51).Visible = False : 主表單_dgv.Columns(52).Visible = False : 主表單_dgv.Columns(53).Visible = False : 主表單_dgv.Columns(54).Visible = False
        主表單_dgv.Columns(55).Visible = False : 主表單_dgv.Columns(56).Visible = False : 主表單_dgv.Columns(57).Visible = False : 主表單_dgv.Columns(58).Visible = False
        主表單_dgv.Columns(7).DefaultCellStyle.Format = "#,##0" : 主表單_dgv.Columns(10).DefaultCellStyle.Format = "#,##0.00" : 主表單_dgv.Columns(11).DefaultCellStyle.Format = "#,##0.00"
        主表單_dgv.Columns(7).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 主表單_dgv.Columns(10).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        主表單_dgv.Columns(11).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        主表單_dgv.Columns(7).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight : 主表單_dgv.Columns(10).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        主表單_dgv.Columns(11).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
    End Sub
    Private Sub CXL訂單紀錄表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WINPROFIT_ERP_SYS.WindowState = 2 : Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        Set_清單3()
    End Sub
    Private Sub DataGridView1_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 主表單_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = 主表單_dgv.Rows.Count - 1 Then
            Exit Sub
        Else
            If 主表單_dgv(0, e.RowIndex).Value.ToString <> 主表單_dgv(0, e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(主表單_dgv.RowHeadersVisible, 主表單_dgv.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 主表單_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 主表單_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 主表單_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            單號_tb.Text = 主表單_dgv.Rows(e.RowIndex).Cells("訂單流水號").Value
        End If
    End Sub
    Private Sub Button30_Click(sender As Object, e As EventArgs) Handles 開啟訂單明細表_bt.Click
        If 單號_tb.Text = "" Then
            MsgBox("請先選擇訂單資料")
        Else
            PA = 單號_tb.Text
            量產訂單明細表.Show() : 量產訂單明細表.WindowState = 2
        End If
    End Sub
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles 搜尋_bt.Click
        PA = InputBox("請輸入要查詢的關鍵字") : Set_清單3() : PA = ""
    End Sub


    Private Sub 主表單_dgv_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 主表單_dgv.MouseUp
        If 主表單_dgv.SelectedCells.Count = 1 Then
            已超出 = False
        End If
        If 主表單_dgv.SelectedCells.Count > 0 Then
            '設定滑鼠點擊DGV時候的範圍，超出範圍時有可能不是數字所以不計算
            If 主表單_dgv.SelectedCells(0).ColumnIndex = 7 Or 主表單_dgv.SelectedCells(0).ColumnIndex = 11 Then
                If 已超出 = False Then
                    Dim x As Double = 0
                    For i As Integer = 0 To 主表單_dgv.SelectedCells.Count - 1
                        ' 主表單_dgv.SelectedCells.Item(i).ColumnIndex + 8 是因為該DGV顯示項與計算像剛好差8格，使用時要注意可直接計算的不需要加數字。
                        x += Val(主表單_dgv.Rows(主表單_dgv.SelectedCells.Item(i).RowIndex).Cells(主表單_dgv.SelectedCells.Item(i).ColumnIndex).Value)
                    Next i
                    '將計算好的資料放置到指定的控件中
                    加總_tb.Text = Strings.Format(x, "#,##0")
                    WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(x, "#,##0")
                Else
                    加總_tb.Text = Strings.Format(0, "#,##0")
                    WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
                End If
            Else
                已超出 = True
                加總_tb.Text = Strings.Format(0, "#,##0")
                WINPROFIT_ERP_SYS.合計_TSSL.Text = "合計 : " & Strings.Format(0, "#,##0")
            End If
        End If
    End Sub
End Class