WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/製鞋技術管理系統/中皮結構.vb

Option Strict Off
Public Class 中皮結構_中底作法
    Private ReadOnly ds, ds1 As New DataSet
    Private Sub Set_清單()
        中皮_dgv.DataSource = Nothing : ds.Clear()
        中皮_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        中皮_dgv.ColumnHeadersHeight = 25
        中皮_dgv.AllowUserToAddRows = False
        SQL_中皮清單()
        da.Fill(ds) : 中皮_dgv.DataSource = ds.Tables(0) : conn.Close()
        中皮_dgv.Columns(0).FillWeight = 150 : 中皮_dgv.Columns(1).Visible = False : 中皮_dgv.Columns(2).Visible = False
    End Sub
    Private Sub Set_清單1()
        中底_dgv.DataSource = Nothing : ds1.Clear()
        中底_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        中底_dgv.ColumnHeadersHeight = 25
        中底_dgv.AllowUserToAddRows = False
        SQL_中底清單()
        da.Fill(ds1) : 中底_dgv.DataSource = ds1.Tables(0) : conn.Close()
        中底_dgv.Columns(0).FillWeight = 150 : 中底_dgv.Columns(1).Visible = False
    End Sub
    Private Sub 中皮結構_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Set_清單() : Set_清單1()
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 中皮_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            中皮_tb.Text = 中皮_dgv(0, e.RowIndex).Value.ToString : 結構_tb.Text = 中皮_dgv(1, e.RowIndex).Value.ToString : 作法1_tb.Text = 中皮_dgv(2, e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 中底_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            中底_tb.Text = 中底_dgv(0, e.RowIndex).Value.ToString : 作法_tb.Text = 中底_dgv(1, e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        If 中皮_tb.Text = "" Or 結構_tb.Text = "" Or 作法1_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            SQL_查詢中皮結構()
            If dr.Read() Then
                MsgBox("資料重複，請從新輸入或檢查")
                conn.Close() : dr.Close()
            Else
                SQL_新增中皮結構()
                MsgBox("新增完成")
                conn.Close() : dr.Close()
            End If
            Set_清單()
        End If
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        If 中皮_tb.Text = "" Or 結構_tb.Text = "" Or 作法1_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            SQL_修改中皮結構()
            MsgBox("修改完成") : conn.Close() : Set_清單()
        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() : dr.Close()
            MsgBox("刪除完成")
            Set_清單()
        End If
    End Sub
    '-----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 新增1_bt.Click
        If 中底_tb.Text = "" Or 作法_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            SQL_查詢中底()
            If dr.Read() Then
                MsgBox("資料重複，請從新輸入或檢查")
                conn.Close() : dr.Close()
            Else
                SQL_新增中底做法()
                MsgBox("新增完成")
                conn.Close() : dr.Close()
            End If
            Set_清單1()
        End If
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles 修改1_bt.Click
        If 中底_tb.Text = "" Or 作法_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            SQL_更改中底() : dr.Close()
            MsgBox("修改完成") : conn.Close() : Set_清單1()
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 刪除1_bt.Click
        Dim aa As MsgBoxResult
        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            SQL_刪除中底做法()
            dr.Close() : conn.Close()
            MsgBox("刪除完成")
            Set_清單1()
        End If
    End Sub
End Class