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

Public Class Frm_01HF_orders
    Dim sql As String
    Private Sub Set_清單1()
        Dim ds1 As New DataSet
        dgv_group.DataSource = Nothing : ds1.Clear()
        dgv_group.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        dgv_group.ColumnHeadersHeight = 25 : dgv_group.AllowUserToAddRows = False : dgv_group.RowTemplate.Height = 25
        dgv_group.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        SQL_客戶群組()
        da.Fill(ds1) : dgv_group.DataSource = ds1.Tables(0) : conn.Close()
        dgv_group.Columns(0).FillWeight = 250
        For i As Integer = 0 To dgv_group.Columns.Count - 1 : dgv_group.Columns(i).ReadOnly = True : Next
    End Sub
    Private Sub Set_清單2(位置 As Integer)
        Dim ds1 As New DataSet
        dgv_detail.DataSource = Nothing : ds1.Clear()
        dgv_detail.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        dgv_detail.ColumnHeadersHeight = 25 : dgv_group.AllowUserToAddRows = False : dgv_group.RowTemplate.Height = 25
        dgv_detail.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        Dim 品牌 As String
        If dgv_group.Rows(位置).Cells("品牌").Value = "无品牌" Then : 品牌 = "" : Else : 品牌 = dgv_group.Rows(dgv_group.CurrentCell.RowIndex).Cells("品牌").Value.ToString : End If
        SQL_訂單明細(品牌)
        da.Fill(ds1) : dgv_detail.DataSource = ds1.Tables(0) : conn.Close()
        dgv_detail.Columns(2).FillWeight = 200 : dgv_detail.Columns(3).FillWeight = 300 : dgv_detail.Columns(10).FillWeight = 200
        For i As Integer = 0 To dgv_detail.Columns.Count - 1 : dgv_detail.Columns(i).ReadOnly = True : Next
    End Sub
    Private Sub Set_清單3()
        Dim ds1 As New DataSet
        dgv_work.DataSource = Nothing : ds1.Clear()
        dgv_work.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        dgv_work.ColumnHeadersHeight = 25 : 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 = 120 : dgv_work.Columns(1).FillWeight = 150 : dgv_work.Columns(2).FillWeight = 250
        For i As Integer = 0 To dgv_work.Columns.Count - 1 : dgv_work.Columns(i).ReadOnly = True : Next
    End Sub
    Private Sub Set_清單4(卡号 As String)
        Dim ds1 As New DataSet
        dgv_work1.DataSource = Nothing : ds1.Clear()
        dgv_work1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        dgv_work1.ColumnHeadersHeight = 25 : dgv_work1.AllowUserToAddRows = False : dgv_work1.RowTemplate.Height = 25
        dgv_work1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        SQL_訂單生產(卡号)
        da.Fill(ds1) : dgv_work1.DataSource = ds1.Tables(0) : conn.Close()
        dgv_work1.Columns(0).FillWeight = 140 : dgv_work1.Columns(1).FillWeight = 120 : dgv_work1.Columns(2).FillWeight = 120
        dgv_work1.Columns(3).FillWeight = 120 : dgv_work1.Columns(4).FillWeight = 150 : dgv_work1.Columns(5).FillWeight = 200
        For i As Integer = 0 To dgv_work1.Columns.Count - 1 : dgv_work1.Columns(i).ReadOnly = True : Next
    End Sub
    Private Sub Frm_01HF_orders_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = FrmMDI : Me.WindowState = 2 : Me.AutoScroll = True
        dgv_work.BringToFront()
    End Sub
    Private Sub Frm_01HF_orders_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        Set_清單1() : Set_清單3()
    End Sub
    Private Sub 清dgv_group_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_group.CellClick
        If e.RowIndex = -1 Then : Else : Set_清單2(e.RowIndex) : dgv_work1.DataSource = Nothing : End If
    End Sub
    Private Sub 清dgv_detail_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv_detail.CellClick
        If e.RowIndex = -1 Then : Else : dgv_work1.BringToFront()
            If dgv_detail.Rows(dgv_detail.CurrentCell.RowIndex).Cells("卡号").Value.ToString = "" Then : dgv_work.DataSource = Nothing : Exit Sub : End If
            Set_清單4(dgv_detail.Rows(dgv_detail.CurrentCell.RowIndex).Cells("卡号").Value.ToString)
        End If
    End Sub
    Private Sub 訂單查询_bt_Click(sender As Object, e As EventArgs) Handles 訂單查询_bt.Click
        Set_清單3() : dgv_work.BringToFront()
    End Sub
    Private Sub 生產工單_bt_Click(sender As Object, e As EventArgs) Handles 生產工單_bt.Click
        dgv_work1.BringToFront()
    End Sub
End Class