HF-MIS-SYS--LEEHSIEHJUI/WindowsApp1/01、業務管理/Frm_00_Ship.vb

Public Class Frm_00_Ship
    Private Sub Set_清單1()
        Dim ds1 As New DataSet
        dgv_cust.DataSource = Nothing : ds1.Clear()
        dgv_cust.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        dgv_cust.ColumnHeadersHeight = 30 : dgv_cust.AllowUserToAddRows = False : dgv_cust.RowTemplate.Height = 25
        dgv_cust.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        SQL_銷售客戶()
        da.Fill(ds1) : dgv_cust.DataSource = ds1.Tables(0) : conn.Close()
        dgv_cust.Columns(1).FillWeight = 250
        For i As Integer = 0 To dgv_cust.Columns.Count - 1 : dgv_cust.Columns(i).ReadOnly = True : Next
        With dgv_cust.Columns(2).DefaultCellStyle
            .Format = "n1"
            .Alignment = DataGridViewContentAlignment.MiddleRight
        End With
    End Sub
    Private Sub Set_清單2()
        Dim ds1 As New DataSet
        dgv_sum.DataSource = Nothing : ds1.Clear()
        dgv_sum.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        dgv_sum.ColumnHeadersHeight = 30 : dgv_sum.AllowUserToAddRows = False : dgv_sum.RowTemplate.Height = 25
        dgv_sum.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        SQL_銷售客戶_尺數()
        da.Fill(ds1) : dgv_sum.DataSource = ds1.Tables(0) : conn.Close()
        dgv_sum.Columns(0).FillWeight = 250
        For i As Integer = 0 To dgv_sum.Columns.Count - 1 : dgv_sum.Columns(i).ReadOnly = True : Next
        With dgv_sum.Columns(1).DefaultCellStyle
            .Format = "n1"
            .Alignment = DataGridViewContentAlignment.MiddleRight
        End With
    End Sub
    Private Sub Set_清單3(條件 As String)
        Dim ds1 As New DataSet
        dgv_detail.DataSource = Nothing : ds1.Clear()
        dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        dgv_detail.ColumnHeadersHeight = 30 : dgv_detail.AllowUserToAddRows = False : dgv_detail.RowTemplate.Height = 25
        dgv_detail.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        SQL_銷售客戶_出貨明細(條件)
        da.Fill(ds1) : dgv_detail.DataSource = ds1.Tables(0) : conn.Close()
        dgv_detail.Columns(1).FillWeight = 250 : dgv_detail.Columns(2).FillWeight = 120 : dgv_detail.Columns(4).FillWeight = 80
        dgv_detail.Columns(5).FillWeight = 120 : dgv_detail.Columns(7).FillWeight = 250 : dgv_detail.Columns(8).FillWeight = 150
        For i As Integer = 0 To dgv_detail.Columns.Count - 1 : dgv_detail.Columns(i).ReadOnly = True : Next
        With dgv_detail.Columns(6).DefaultCellStyle
            .Format = "n1"
            .Alignment = DataGridViewContentAlignment.MiddleRight
        End With
    End Sub
    Private Sub Set_清單4(流程卡号 As String)
        Dim ds1 As New DataSet
        dgv_work.DataSource = Nothing : ds1.Clear()
        dgv_work.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        dgv_work.ColumnHeadersHeight = 30 : dgv_work.AllowUserToAddRows = False : dgv_work.RowTemplate.Height = 25
        dgv_work.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        SQL_銷售客戶_生產明細(流程卡号)
        da.Fill(ds1) : dgv_work.DataSource = ds1.Tables(0) : conn.Close()
        dgv_work.Columns(0).FillWeight = 140 : dgv_work.Columns(1).FillWeight = 100 : dgv_work.Columns(2).FillWeight = 80
        dgv_work.Columns(3).FillWeight = 120 : dgv_work.Columns(4).FillWeight = 320 : dgv_work.Columns(5).FillWeight = 280
        For i As Integer = 0 To dgv_work.Columns.Count - 1 : dgv_work.Columns(i).ReadOnly = True : Next
    End Sub
    Private Sub Frm_00_Ship_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = FrmMDI : Me.WindowState = 2 : Me.AutoScroll = True
    End Sub
    Private Sub Frm_00_Ship_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        Set_清單1() : Set_清單2() : Set_清單3("")
    End Sub
    Private Sub dgv_detail_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_detail.CellClick
        If e.RowIndex = -1 Then : Else
            Set_清單4(dgv_detail.Rows(dgv_detail.CurrentCell.RowIndex).Cells("流程卡号").Value.ToString)
        End If
    End Sub
    Private Sub dgv_sum_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_sum.CellClick
        If e.RowIndex = -1 Then : Else
            Set_清單3("WHERE     cust LIKE N'" & dgv_sum.Rows(dgv_sum.CurrentCell.RowIndex).Cells("客户").Value.ToString & "' ")
        End If
    End Sub
    Private Sub dgv_cust_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_cust.CellClick
        If e.RowIndex = -1 Then : Else
            Set_清單3("WHERE     cust LIKE N'" & dgv_cust.Rows(dgv_cust.CurrentCell.RowIndex).Cells("客户").Value.ToString & "' AND  
                                 date = '" & dgv_cust.Rows(dgv_cust.CurrentCell.RowIndex).Cells("出货日期").Value & "' ")
        End If
    End Sub
End Class