WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/10、基本資料管理系統/FACTORY_資料管理.vb

Option Strict Off
Public Class FACTORY_資料管理
    Private ReadOnly ds As New DataSet
    Dim OO As Boolean
    Private Sub Set_FACTORY清單()
        主表單_dgv.DataSource = Nothing : ds.Clear()
        主表單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        主表單_dgv.ColumnHeadersHeight = 25
        主表單_dgv.AllowUserToAddRows = False
        SQL_FACTORY_資料管理清單()
        da.Fill(ds) : 主表單_dgv.DataSource = ds.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_grid1()
        主表單_dgv.Columns(0).FillWeight = 125 : 主表單_dgv.Columns(1).FillWeight = 300 : 主表單_dgv.Columns(2).FillWeight = 885
    End Sub
    Private Sub FACTORY_資料管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        FormBorderStyle = FormBorderStyle.SizableToolWindow : ControlBox = False
        Set_FACTORY清單() : Set_grid1()
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 主表單_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            FactoryCode_tb.Text = 主表單_dgv(0, e.RowIndex).Value.ToString : VendorName_tb.Text = 主表單_dgv(1, e.RowIndex).Value.ToString
            備註_tb.Text = 主表單_dgv(2, e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 關閉_bt.Click
        Me.Close()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        If FactoryCode_tb.Text <> "" Then
            SQL_工廠控制表3()
            If dr.Read() Then
                OO = True : MsgBox("資料重複") : conn.Close() : Exit Sub
            Else
                OO = False
            End If : conn.Close()
            If OO = False Then
                SQL_新增工廠控制表() : conn.Close()
            End If
            Set_FACTORY清單() : Set_grid1()
            MsgBox("新增完成")
        Else
            MsgBox("Key index 不可空白")
        End If
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        If FactoryCode_tb.Text <> "" Then
            SQL_修改供應商資料() : conn.Close()
            Set_FACTORY清單() : Set_grid1()
            MsgBox("修改完成")
        Else
            MsgBox("Key index 不可空白")
        End If
    End Sub
    Private Sub Button3_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_FACTORY清單() : Set_grid1()
            MsgBox("刪除完成")
        End If
    End Sub
End Class