WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/06、製鞋技術管理系統/型體控制表.vb

Option Strict Off
Public Class 型體控制表
    Private ReadOnly ds, ds1 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
        SOL_清單()
        da.Fill(ds) : 清單1_dgv.DataSource = ds.Tables(0) : conn.Close()
        清單1_dgv.Columns(0).FillWeight = 150
    End Sub
    Private Sub Set_清單1()
        清單2_dgv.DataSource = Nothing : ds1.Clear()
        清單2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單2_dgv.ColumnHeadersHeight = 25
        清單2_dgv.AllowUserToAddRows = False
        SOL_清單1()
        da.Fill(ds1) : 清單2_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單2_dgv.Columns(0).Width = 60 : 清單2_dgv.Columns(1).Width = 250 : 清單2_dgv.Columns(2).Width = 350
        For i As Integer = 0 To 清單2_dgv.Rows.Count - 1
            清單2_dgv(0, i).Value = i + 1
        Next
    End Sub
    Private Sub 型體控制表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        FormBorderStyle = FormBorderStyle.SizableToolWindow : ControlBox = True
        客戶簡稱_tb.Enabled = False : TextBox4.Visible = False : TextBox5.Visible = False
        Set_清單()
        If CC(15) = False Then : 新增_bt.Enabled = False : 修改_bt.Enabled = False : End If
        If CC(16) = False Then : 刪除_bt.Enabled = False : End If
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 清單1_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            客戶簡稱_tb.Text = 清單1_dgv(0, e.RowIndex).Value.ToString
            Set_清單1()
        End If
    End Sub
    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 清單2_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            型體號碼_tb.Text = 清單2_dgv(1, e.RowIndex).Value.ToString : 型體名稱_tb.Text = 清單2_dgv(2, e.RowIndex).Value.ToString
            TextBox4.Text = 清單2_dgv(1, e.RowIndex).Value.ToString : TextBox5.Text = 清單2_dgv(2, e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 新增客戶清單_bt.Click
        清單修改.Close() : 客戶清單修改 = True : 清單修改.ShowDialog() : 客戶清單修改 = False : Set_清單()
    End Sub
    Private Sub Button9_Click(sender As Object, e As EventArgs) Handles 搜尋_bt.Click
        PA = InputBox("請輸入要查詢的關鍵字") : Set_清單() : PA = ""
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 搜尋1_bt.Click
        PA = InputBox("請輸入要查詢的關鍵字")
        清單2_dgv.DataSource = Nothing : ds1.Clear()
        清單2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單2_dgv.ColumnHeadersHeight = 25
        清單2_dgv.AllowUserToAddRows = False
        SOL_清單1()
        da.Fill(ds1) : 清單2_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單2_dgv.Columns(0).Width = 60 : 清單2_dgv.Columns(1).Width = 250 : 清單2_dgv.Columns(2).Width = 350
        For i As Integer = 0 To 清單2_dgv.Rows.Count - 1
            清單2_dgv(0, i).Value = i + 1
        Next
        PA = ""
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        If 客戶簡稱_tb.Text = "" Or 型體號碼_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            SQL_查詢資料重複()
            If dr.Read() Then
                MsgBox("資料重複，請從新輸入或檢查")
                conn.Close()
            Else
                SQL_新增型體控制表()
                MsgBox("新增完成")
                conn.Close()
            End If
        End If
        Set_清單1()
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        If 客戶簡稱_tb.Text = "" Or 型體號碼_tb.Text = "" Or 型體名稱_tb.Text = "" Then
            MsgBox("資料有缺或有誤，請重新檢查")
        Else
            SQL_更改型體控制表()
            MsgBox("修改完成")
            conn.Close()
        End If
        Set_清單1()
    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_刪除型體控制表()
            MsgBox("刪除完成")
            conn.Close()
        End If

        Set_清單1()
    End Sub
End Class