HF-MIS-SYS--LEEHSIEHJUI/WindowsApp1/02、皮料管理/Frm_00_InProcess.vb

Public Class Frm_00_InProcess
    Dim colorArray(10) As Color
    Private Sub Set_清單1(條件 As String)
        Dim ds1 As New DataSet
        dgv1.DataSource = Nothing : ds1.Clear()
        dgv1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        dgv1.ColumnHeadersHeight = 30 : dgv1.AllowUserToAddRows = False : dgv1.RowTemplate.Height = 30
        dgv1.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        SQL_在製品_主表(條件)
        da.Fill(ds1) : dgv1.DataSource = ds1.Tables(0) : conn.Close()
        dgv1.Columns(0).FillWeight = 200
        For i As Integer = 0 To dgv1.Columns.Count - 1 : dgv1.Columns(i).ReadOnly = True : Next
    End Sub
    Private Sub Set_清單2(條件 As String)
        Dim ds1 As New DataSet
        dgv2.DataSource = Nothing : ds1.Clear()
        dgv2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        dgv2.ColumnHeadersHeight = 30 : dgv2.AllowUserToAddRows = False : dgv2.RowTemplate.Height = 30
        dgv2.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        SQL_在製品_明細1(條件)
        da.Fill(ds1) : dgv2.DataSource = ds1.Tables(0) : conn.Close()
        dgv2.Columns(1).FillWeight = 200
        For i As Integer = 0 To dgv2.Columns.Count - 1 : dgv2.Columns(i).ReadOnly = True : Next
    End Sub
    Private Sub Set_清單3(條件 As String)
        Dim ds1 As New DataSet
        dgv3.DataSource = Nothing : ds1.Clear()
        dgv3.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        dgv3.ColumnHeadersHeight = 30 : dgv3.AllowUserToAddRows = False : dgv3.RowTemplate.Height = 30
        dgv3.SelectionMode = DataGridViewSelectionMode.FullRowSelect
        SQL_在製品_明細2(條件)
        da.Fill(ds1) : dgv3.DataSource = ds1.Tables(0) : conn.Close()
        dgv3.Columns(0).FillWeight = 100 : dgv3.Columns(1).FillWeight = 180 : dgv3.Columns(2).FillWeight = 350
        dgv3.Columns(3).FillWeight = 100 : dgv3.Columns(4).FillWeight = 100 : dgv3.Columns(5).FillWeight = 100
        dgv3.Columns(6).FillWeight = 100 : dgv3.Columns(7).FillWeight = 120
        For i As Integer = 0 To dgv3.Columns.Count - 1 : dgv3.Columns(i).ReadOnly = True : Next
    End Sub
    Private Sub Frm_00_InProcess_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_InProcess_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        Set_清單1("")
    End Sub
    Private Sub dgv1_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv1.CellClick
        If e.RowIndex = -1 Then : Else
            If 客戶編碼_tb.Text = "" Then
                Set_清單2("AND  material_category_name = N'" & dgv1.Rows(e.RowIndex).Cells("material_category_name").Value & "'")
            Else
                Set_清單2("AND  material_category_name = N'" & dgv1.Rows(e.RowIndex).Cells("material_category_name").Value & "' AND material_number like N'%" & 客戶編碼_tb.Text & "%'")
            End If
        End If
    End Sub
    Private Sub dgv2_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles dgv2.CellClick
        If e.RowIndex = -1 Then : Else
            Set_清單3(dgv2.Rows(e.RowIndex).Cells("material_number").Value)
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 名称查询_bt.Click  '--查询品名
        Set_清單1("AND material_category_name like N'%" & 名稱查詢_tb.Text & "%'")
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 客戶編碼_bt.Click  '--客户查询
        Set_清單1("AND material_category_name like N'%" & 名稱查詢_tb.Text & "%' and material_number like N'%" & 客戶編碼_tb.Text & "%'")
    End Sub
End Class