GF-ERP-SYS-SIU/GF00-ERP-SYS/03.倉儲管理系統/倉儲明細表查詢.vb

Public Class 倉儲明細表查詢
    ReadOnly ds1 As New DataSet
    ReadOnly ds As New DataSet
    Private Sub 倉儲明細表查詢_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = ICS_ASMS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        庫存非零_rb.Checked = True : 庫存為零_rb.Checked = False : Set_清單()
    End Sub
    Private Sub Set_清單()
        明細表_dgv.DataSource = Nothing : ds1.Clear()
        明細表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        明細表_dgv.ColumnHeadersHeight = 25
        明細表_dgv.AllowUserToAddRows = False
        明細表_dgv.RowTemplate.Height = 35
        明細表_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        Dim str As String
        If (庫存非零_rb.Checked = True And 庫存為零_rb.Checked = False) Then
            str = "<>"
        ElseIf (庫存非零_rb.Checked = False And 庫存為零_rb.Checked = True) Then
            str = "="
        End If
        SQL_倉儲管理系統_倉儲明細表(str) : da.Fill(ds1) : 明細表_dgv.DataSource = ds1.Tables(0) : conn.Close()
        明細表_dgv.Columns(1).ReadOnly = True : 明細表_dgv.Columns(2).ReadOnly = True : 明細表_dgv.Columns(3).ReadOnly = True
        明細表_dgv.Columns(4).ReadOnly = True

        明細表_dgv.Columns(0).Visible = False : 明細表_dgv.Columns(1).FillWeight = 150 : 明細表_dgv.Columns(2).FillWeight = 60
        明細表_dgv.Columns(3).FillWeight = 100 : 明細表_dgv.Columns(4).FillWeight = 60
        明細表_dgv.Columns(4).DefaultCellStyle.Format = "#,##0"

    End Sub
    Private Sub 明細表_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 明細表_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            PA = 明細表_dgv(0, e.RowIndex).Value.ToString
            Set_清單1()
        End If
    End Sub
    Private Sub Set_清單1()
        明細表1_dgv.DataSource = Nothing : ds.Clear()
        明細表1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        明細表1_dgv.ColumnHeadersHeight = 25
        明細表1_dgv.AllowUserToAddRows = False
        明細表1_dgv.RowTemplate.Height = 35
        明細表1_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        SQL_倉儲管理系統_倉儲明細表明細(PA) : da.Fill(ds) : 明細表1_dgv.DataSource = ds.Tables(0) : conn.Close()
        明細表1_dgv.Columns(1).ReadOnly = True : 明細表1_dgv.Columns(2).ReadOnly = True : 明細表1_dgv.Columns(3).ReadOnly = True
        明細表1_dgv.Columns(0).ReadOnly = True

        明細表1_dgv.Columns(0).FillWeight = 100 : 明細表1_dgv.Columns(1).FillWeight = 100 : 明細表1_dgv.Columns(2).FillWeight = 100
        明細表1_dgv.Columns(3).FillWeight = 100
        明細表1_dgv.Columns(1).DefaultCellStyle.Format = "#,##0" : 明細表1_dgv.Columns(2).DefaultCellStyle.Format = "#,##0"
        PA = ""
    End Sub
    Private Sub 庫存非零_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 庫存非零_rb.Click
        庫存非零_rb.Checked = True : 庫存為零_rb.Checked = False : Set_清單()
    End Sub
    Private Sub 庫存為零_rb_CheckedChanged(sender As Object, e As EventArgs) Handles 庫存為零_rb.Click
        庫存非零_rb.Checked = False : 庫存為零_rb.Checked = True : Set_清單()
    End Sub
End Class