WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/02、成本管理系統/成本資料庫管理.vb

Option Strict Off
Public Class 成本資料庫管理
    Private ReadOnly ds As New DataSet : ReadOnly ds1, ds2, ds3, ds4, ds5 As New DataSet
    Private Sub Set_訂單清單()
        表單1_dgv.DataSource = Nothing : ds.Clear()
        表單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        表單1_dgv.ColumnHeadersHeight = 25
        表單1_dgv.AllowUserToAddRows = False
        SQL_成本資料庫管理表單()
        da.Fill(ds) : 表單1_dgv.DataSource = ds.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_grid()
        表單1_dgv.Columns(0).Visible = False : 表單1_dgv.Columns(1).Visible = False : 表單1_dgv.Columns(2).Visible = False : 表單1_dgv.Columns(3).Visible = False
        表單1_dgv.Columns(4).Visible = False : 表單1_dgv.Columns(5).Visible = False : 表單1_dgv.Columns(6).Visible = False : 表單1_dgv.Columns(7).Visible = False
        表單1_dgv.Columns(8).Visible = False : 表單1_dgv.Columns(9).Visible = False : 表單1_dgv.Columns(10).Visible = False : 表單1_dgv.Columns(11).Visible = False
        表單1_dgv.Columns(12).Visible = False : 表單1_dgv.Columns(13).Visible = False : 表單1_dgv.Columns(18).Visible = False : 表單1_dgv.Columns(19).Visible = False
        表單1_dgv.Columns(20).Visible = False : 表單1_dgv.Columns(21).Visible = False : 表單1_dgv.Columns(24).Visible = False : 表單1_dgv.Columns(25).Visible = False
        表單1_dgv.Columns(26).Visible = False : 表單1_dgv.Columns(27).Visible = False : 表單1_dgv.Columns(28).Visible = False : 表單1_dgv.Columns(29).Visible = False
        表單1_dgv.Columns(30).Visible = False : 表單1_dgv.Columns(31).Visible = False : 表單1_dgv.Columns(34).Visible = False
        表單1_dgv.Columns(14).Width = 85 : 表單1_dgv.Columns(15).Width = 85 : 表單1_dgv.Columns(16).Width = 85 : 表單1_dgv.Columns(17).Width = 85
        表單1_dgv.Columns(22).Width = 85 : 表單1_dgv.Columns(23).Width = 85 : 表單1_dgv.Columns(32).Width = 85 : 表單1_dgv.Columns(33).Width = 110
    End Sub
    Private Sub 成本資料庫管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        年份_cb.Text = Year(Today)
        Set_訂單清單() : Set_grid()
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年份_cb.SelectedIndexChanged
        Set_訂單清單() : Set_grid()
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 表單1_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            利潤表流水號_tb.Text = 表單1_dgv(33, e.RowIndex).Value.ToString
            表單2_dgv.DataSource = Nothing : ds1.Clear()
            表單2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            表單2_dgv.ColumnHeadersHeight = 25
            表單2_dgv.AllowUserToAddRows = False
            SQL_訂單價格利潤明細表()
            da.Fill(ds1) : 表單2_dgv.DataSource = ds1.Tables(0) : conn.Close()

            訂單流水號_tb.Text = 表單2_dgv(1, 0).Value.ToString : 資料流水號_tb.Text = 表單2_dgv(0, 0).Value.ToString

            表單3_dgv.DataSource = Nothing : ds2.Clear()
            表單3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            表單3_dgv.ColumnHeadersHeight = 25
            表單3_dgv.AllowUserToAddRows = False
            SQL_訂單價格利潤明細表1()
            da.Fill(ds2) : 表單3_dgv.DataSource = ds2.Tables(0) : conn.Close()

            表單4_dgv.DataSource = Nothing : ds3.Clear()
            表單4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            表單4_dgv.ColumnHeadersHeight = 25
            表單4_dgv.AllowUserToAddRows = False
            SQL_訂單控制表單1()
            da.Fill(ds3) : 表單4_dgv.DataSource = ds3.Tables(0) : conn.Close()

            表單5_dgv.DataSource = Nothing : ds4.Clear()
            表單5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            表單5_dgv.ColumnHeadersHeight = 25
            表單5_dgv.AllowUserToAddRows = False
            SQL_訂單明細表()
            da.Fill(ds4) : 表單5_dgv.DataSource = ds4.Tables(0) : conn.Close()

            表單6_dgv.DataSource = Nothing : ds5.Clear()
            表單6_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            表單6_dgv.ColumnHeadersHeight = 25
            表單6_dgv.AllowUserToAddRows = False
            SQL_訂單控制表()
            da.Fill(ds5) : 表單6_dgv.DataSource = ds5.Tables(0) : conn.Close()
            表單2_dgv.Columns(0).Width = 90 : 表單2_dgv.Columns(1).Width = 80 : 表單2_dgv.Columns(2).Width = 120 : 表單2_dgv.Columns(3).Width = 70 : 表單2_dgv.Columns(4).Width = 80
            表單3_dgv.Columns(0).Width = 90 : 表單3_dgv.Columns(1).Width = 90 : 表單3_dgv.Columns(2).Width = 120 : 表單3_dgv.Columns(3).Width = 70 : 表單3_dgv.Columns(4).Width = 90
            表單3_dgv.Columns(5).Width = 90 : 表單3_dgv.Columns(6).Width = 80 : 表單3_dgv.Columns(7).Width = 70
            表單4_dgv.Columns(0).Width = 90 : 表單4_dgv.Columns(1).Width = 70 : 表單4_dgv.Columns(2).Width = 120 : 表單4_dgv.Columns(3).Width = 90 : 表單4_dgv.Columns(4).Width = 80
            表單4_dgv.Columns(5).Width = 70
            表單5_dgv.Columns(0).Width = 80 : 表單5_dgv.Columns(1).Width = 105 : 表單5_dgv.Columns(2).Width = 80 : 表單5_dgv.Columns(3).Width = 90 : 表單5_dgv.Columns(4).Width = 90
            表單5_dgv.Columns(5).Width = 90 : 表單5_dgv.Columns(6).Width = 70
            表單6_dgv.Columns(0).Width = 90 : 表單6_dgv.Columns(1).Width = 70 : 表單6_dgv.Columns(2).Width = 120 : 表單6_dgv.Columns(3).Width = 90 : 表單6_dgv.Columns(4).Width = 80
            表單6_dgv.Columns(5).Width = 70
        End If
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        Dim aa As MsgBoxResult
        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            SQL_刪除訂單價格利潤明細表() : conn.Close()
            Set_訂單清單() : Set_grid()
            利潤表流水號_tb.Text = "" : 訂單流水號_tb.Text = "" : 資料流水號_tb.Text = ""
            表單2_dgv.DataSource = Nothing : 表單3_dgv.DataSource = Nothing : 表單4_dgv.DataSource = Nothing : 表單5_dgv.DataSource = Nothing : 表單6_dgv.DataSource = Nothing
        End If
        MsgBox("刪除完成")
    End Sub
End Class