WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/07、樣品訂單管理系統/樣品進度表FOR METOO PA...

Option Strict Off
Public Class 樣品進度表FOR_METOO_PAG導入
    Private ReadOnly ds As New DataSet
    Dim N1 As Integer = 0
    Private Sub Set_清單()
        主表單_dgv.DataSource = Nothing : ds.Clear()
        主表單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        主表單_dgv.ColumnHeadersHeight = 25
        主表單_dgv.AllowUserToAddRows = False
        SQL_樣品進度控制表METOO專用()
        da.Fill(ds) : 主表單_dgv.DataSource = ds.Tables(0) : conn.Close() : Set_grid()
    End Sub
    Private Sub Set_grid()
        主表單_dgv.Columns(0).Width = 40 : 主表單_dgv.Columns(1).Visible = False : 主表單_dgv.Columns(2).Visible = False : 主表單_dgv.Columns(3).Visible = False
        主表單_dgv.Columns(4).Width = 150 : 主表單_dgv.Columns(5).Width = 80 : 主表單_dgv.Columns(6).Width = 70 : 主表單_dgv.Columns(7).Width = 320
        主表單_dgv.Columns(8).Width = 320
        主表單_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        N1 = 1
        For i As Integer = 0 To 主表單_dgv.Rows.Count - 1
            If i = 主表單_dgv.Rows.Count - 1 Then
                主表單_dgv.Rows(i).Cells("序號").Value = N1.ToString
                Exit For
            Else
                If 主表單_dgv(4, i).Value.ToString <> 主表單_dgv(4, i + 1).Value.ToString Then
                    主表單_dgv.Rows(i).Cells("序號").Value = N1.ToString
                    N1 += 1
                Else
                    主表單_dgv.Rows(i).Cells("序號").Value = N1.ToString
                End If
            End If
        Next
    End Sub
    Private Sub ComboBox7下拉表單資料載入()
        SQL_季節清單()
        SEASON_cb.Items.Clear() : While (dr.Read()) : SEASON_cb.Items.Add(dr("SEASON")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox2下拉表單資料載入()
        SQL_客戶簡稱()
        CUST_cb.Items.Clear() : While (dr.Read()) : CUST_cb.Items.Add(dr("客戶簡稱")) : End While : conn.Close()
    End Sub
    Private Sub 樣品進度表FOR_METOO_PAG導入_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
        ComboBox7下拉表單資料載入() : ComboBox2下拉表單資料載入()
    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(4, e.RowIndex).Value.ToString <> 主表單_dgv(4, 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 ComboBox7_SelectedIndexChanged(sender As Object, e As EventArgs) Handles SEASON_cb.SelectedIndexChanged
        If SEASON_cb.Text = "" Or CUST_cb.Text = "" Then : Else : Set_清單() : End If
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles CUST_cb.SelectedIndexChanged
        If SEASON_cb.Text = "" Or CUST_cb.Text = "" Then : Else : Set_清單() : End If
    End Sub
End Class