WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/09、請採購管理系統/供應商管理(製鞋樣�...

Option Strict Off
Public Class 供應商管理_製鞋樣品
    Private ReadOnly ds As New DataSet
    Private Sub 讀取供應商料表()
        明細_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()
    End Sub
    Private Sub Set_grid()
        明細_dgv.Columns(0).FillWeight = 80 : 明細_dgv.Columns(1).FillWeight = 90 : 明細_dgv.Columns(2).FillWeight = 200
        明細_dgv.Columns(3).FillWeight = 400 : 明細_dgv.Columns(4).FillWeight = 120 : 明細_dgv.Columns(5).FillWeight = 120
        明細_dgv.Columns(6).FillWeight = 120 : 明細_dgv.Columns(7).FillWeight = 120 : 明細_dgv.Columns(8).FillWeight = 110
        明細_dgv.Columns(9).FillWeight = 110 : 明細_dgv.Columns(10).FillWeight = 110 : 明細_dgv.Columns(11).FillWeight = 110
        明細_dgv.Columns(12).FillWeight = 110 : 明細_dgv.Columns(22).FillWeight = 50
        明細_dgv.Columns(13).Visible = False : 明細_dgv.Columns(14).Visible = False : 明細_dgv.Columns(15).Visible = False
        明細_dgv.Columns(16).Visible = False : 明細_dgv.Columns(17).Visible = False : 明細_dgv.Columns(18).Visible = False
        明細_dgv.Columns(19).Visible = False : 明細_dgv.Columns(20).Visible = False : 明細_dgv.Columns(21).Visible = False
    End Sub
    Private Sub 格式設定1()
        供應商編號_tb.Enabled = False : 確認新增_bt.Enabled = False : 新增_bt.Enabled = True : 修改_bt.Enabled = True : 修改存檔_bt.Enabled = False : 刪除_bt.Enabled = True
        供應商簡稱_lb.ForeColor = Color.Black : 公司名_lb.ForeColor = Color.Black : 公司地址_lb.ForeColor = Color.Black : 公司電話1_lb.ForeColor = Color.Black : 公司傳真1_lb.ForeColor = Color.Black
    End Sub
    Private Sub 格式設定2()
        供應商簡稱_lb.ForeColor = Color.Red : 公司名_lb.ForeColor = Color.Red : 公司地址_lb.ForeColor = Color.Red : 公司電話1_lb.ForeColor = Color.Red : 公司傳真1_lb.ForeColor = Color.Red
    End Sub
    Private Sub Set_日期格式轉換()
        DTP = Format(Today(), "yyyy/MM/dd") & "-" & Format(TimeOfDay(), "HH:mm:ss")
    End Sub
    Private Sub ComboBox1下拉表單資料載入()
        SQL_廠商下拉清單()
        廠商類別_cb.Items.Clear()
        While (dr.Read()) : 廠商類別_cb.Items.Add(dr("廠商類別")) : End While : conn.Close()
    End Sub
    Private Sub 供應商管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        ComboBox1下拉表單資料載入() : 格式設定1() : 讀取供應商料表() : Set_grid()
        供應商簡稱_tb.Enabled = False : 公司名_tb.Enabled = False : 公司地址_tb.Enabled = False : 公司電話1_tb.Enabled = False : 公司電話2_tb.Enabled = False : 公司電話3_tb.Enabled = False : 公司傳真1_tb.Enabled = False
        公司傳真2_tb.Enabled = False : 廠商類別_cb.Enabled = False : 聯繫人1_tb.Enabled = False : 聯繫人2_tb.Enabled = False : 聯繫人3_tb.Enabled = False : 聯繫人1職稱_tb.Enabled = False : 聯繫人2職稱_tb.Enabled = False
        聯繫人3職稱_tb.Enabled = False : 聯繫人1電話_tb.Enabled = False : 聯繫人2電話_tb.Enabled = False : 聯繫人3電話_tb.Enabled = False : 聯繫人1信箱_tb.Enabled = False : 聯繫人2信箱_tb.Enabled = False : 聯繫人3信箱_tb.Enabled = False
    End Sub
    Private Sub DataGridView1_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.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
            公司名_tb.Text = 明細_dgv(2, e.RowIndex).Value.ToString : 公司地址_tb.Text = 明細_dgv(3, e.RowIndex).Value.ToString
            公司電話1_tb.Text = 明細_dgv(4, e.RowIndex).Value.ToString : 公司電話2_tb.Text = 明細_dgv(5, e.RowIndex).Value.ToString
            公司電話3_tb.Text = 明細_dgv(6, e.RowIndex).Value.ToString : 公司傳真1_tb.Text = 明細_dgv(7, e.RowIndex).Value.ToString
            公司傳真2_tb.Text = 明細_dgv(8, e.RowIndex).Value.ToString : 廠商類別_cb.Text = 明細_dgv(9, e.RowIndex).Value.ToString
            聯繫人1_tb.Text = 明細_dgv(10, e.RowIndex).Value.ToString : 聯繫人2_tb.Text = 明細_dgv(11, e.RowIndex).Value.ToString
            聯繫人3_tb.Text = 明細_dgv(12, e.RowIndex).Value.ToString : 聯繫人1職稱_tb.Text = 明細_dgv(13, e.RowIndex).Value.ToString
            聯繫人2職稱_tb.Text = 明細_dgv(14, e.RowIndex).Value.ToString : 聯繫人3職稱_tb.Text = 明細_dgv(15, e.RowIndex).Value.ToString
            聯繫人1電話_tb.Text = 明細_dgv(16, e.RowIndex).Value.ToString : 聯繫人2電話_tb.Text = 明細_dgv(17, e.RowIndex).Value.ToString
            聯繫人3電話_tb.Text = 明細_dgv(18, e.RowIndex).Value.ToString : 聯繫人1信箱_tb.Text = 明細_dgv(19, e.RowIndex).Value.ToString
            聯繫人2信箱_tb.Text = 明細_dgv(20, e.RowIndex).Value.ToString : 聯繫人3信箱_tb.Text = 明細_dgv(21, e.RowIndex).Value.ToString
            停用_ch.Checked = 明細_dgv(22, e.RowIndex).Value
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        供應商簡稱_tb.Text = "" : 公司名_tb.Text = "" : 公司地址_tb.Text = "" : 公司電話1_tb.Text = "" : 公司電話2_tb.Text = "" : 公司電話3_tb.Text = "" : 公司傳真1_tb.Text = "" : 公司傳真2_tb.Text = "" : 廠商類別_cb.Text = ""
        聯繫人1_tb.Text = "" : 聯繫人2_tb.Text = "" : 聯繫人3_tb.Text = "" : 聯繫人1職稱_tb.Text = "" : 聯繫人2職稱_tb.Text = "" : 聯繫人3職稱_tb.Text = "" : 聯繫人1電話_tb.Text = "" : 聯繫人2電話_tb.Text = ""
        聯繫人3電話_tb.Text = "" : 聯繫人1信箱_tb.Text = "" : 聯繫人2信箱_tb.Text = "" : 聯繫人3信箱_tb.Text = ""
        供應商簡稱_tb.Enabled = True : 公司名_tb.Enabled = True : 公司地址_tb.Enabled = True : 公司電話1_tb.Enabled = True : 公司電話2_tb.Enabled = True : 公司電話3_tb.Enabled = True : 公司傳真1_tb.Enabled = True
        公司傳真2_tb.Enabled = True : 廠商類別_cb.Enabled = True : 聯繫人1_tb.Enabled = True : 聯繫人2_tb.Enabled = True : 聯繫人3_tb.Enabled = True : 聯繫人1職稱_tb.Enabled = True : 聯繫人2職稱_tb.Enabled = True
        聯繫人3職稱_tb.Enabled = True : 聯繫人1電話_tb.Enabled = True : 聯繫人2電話_tb.Enabled = True : 聯繫人3電話_tb.Enabled = True : 聯繫人1信箱_tb.Enabled = True : 聯繫人2信箱_tb.Enabled = True : 聯繫人3信箱_tb.Enabled = True
        明細_dgv.Enabled = False
        SQL_查詢供應商編碼()
        If dr.Read() Then : 供應商編號_tb.Text = dr("供應商編碼").ToString : Else : 供應商編號_tb.Text = "SU0000" : End If
        conn.Close()
        Dim NUM1 As Integer
        NUM1 = Double.Parse(Strings.Right(供應商編號_tb.Text, 4)) + 1
        If NUM1 < 10 Then : 供應商編號_tb.Text = "SU" & "000" & NUM1
        ElseIf NUM1 > 9 And NUM1 < 100 Then : 供應商編號_tb.Text = "SU" & "00" & NUM1
        ElseIf NUM1 > 99 And NUM1 < 1000 Then : 供應商編號_tb.Text = "SU" & "0" & NUM1
        ElseIf NUM1 > 999 Then : 供應商編號_tb.Text = "SU" & NUM1
        End If
        格式設定2()
        確認新增_bt.Enabled = True : 新增_bt.Enabled = False : 修改_bt.Enabled = False : 修改存檔_bt.Enabled = False : 刪除_bt.Enabled = False
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 確認新增_bt.Click
        If 供應商簡稱_tb.Text = "" Or 公司名_tb.Text = "" Or 公司地址_tb.Text = "" Or 公司電話1_tb.Text = "" Or 公司傳真1_tb.Text = "" Then
            MsgBox("紅色字體處為必填項，不可空白")
        Else
            SQL_新增供應商清單() : conn.Close()
            MsgBox("新增完成")
            格式設定1()
            讀取供應商料表() : Set_grid()
            供應商簡稱_tb.Enabled = False : 公司名_tb.Enabled = False : 公司地址_tb.Enabled = False : 公司電話1_tb.Enabled = False : 公司電話2_tb.Enabled = False : 公司電話3_tb.Enabled = False
            公司傳真1_tb.Enabled = False : 公司傳真2_tb.Enabled = False : 廠商類別_cb.Enabled = False : 聯繫人1_tb.Enabled = False : 聯繫人2_tb.Enabled = False : 聯繫人3_tb.Enabled = False
            聯繫人1職稱_tb.Enabled = False : 聯繫人2職稱_tb.Enabled = False : 聯繫人3職稱_tb.Enabled = False : 聯繫人1電話_tb.Enabled = False : 聯繫人2電話_tb.Enabled = False : 聯繫人3電話_tb.Enabled = False
            聯繫人1信箱_tb.Enabled = False : 聯繫人2信箱_tb.Enabled = False : 聯繫人3信箱_tb.Enabled = False
            明細_dgv.Enabled = True
        End If
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 修改存檔_bt.Click
        SQL_修改供應商清單() : conn.Close()
        Set_日期格式轉換() : 格式設定1()
        MsgBox("修改完成")
        讀取供應商料表() : Set_grid()
        供應商簡稱_tb.Enabled = False : 公司名_tb.Enabled = False : 公司地址_tb.Enabled = False : 公司電話1_tb.Enabled = False : 公司電話2_tb.Enabled = False : 公司電話3_tb.Enabled = False
        公司傳真1_tb.Enabled = False : 公司傳真2_tb.Enabled = False : 廠商類別_cb.Enabled = False : 聯繫人1_tb.Enabled = False : 聯繫人2_tb.Enabled = False : 聯繫人3_tb.Enabled = False
        聯繫人1職稱_tb.Enabled = False : 聯繫人2職稱_tb.Enabled = False : 聯繫人3職稱_tb.Enabled = False : 聯繫人1電話_tb.Enabled = False : 聯繫人2電話_tb.Enabled = False : 聯繫人3電話_tb.Enabled = False
        聯繫人1信箱_tb.Enabled = False : 聯繫人2信箱_tb.Enabled = False : 聯繫人3信箱_tb.Enabled = False
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        SQL_查詢廠商()
        If dr.Read() Then
            MsgBox("該廠商已經有資料引用不可刪除?")
        Else
            conn.Close()
            Dim aa As MsgBoxResult
            aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
            If aa = MsgBoxResult.Ok Then
                SQL_刪除供應商清單1()
                conn.Close()
                Set_日期格式轉換()
                MsgBox("刪除完成")
                讀取供應商料表() : Set_grid()
            End If
        End If : conn.Close()
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        PA = InputBox("請輸入要查詢的供應商資料") : 讀取供應商料表() : Set_grid() : PA = ""
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles 列印成EXCEL_bt.Click
        列印_供應商資料表.Show()
    End Sub
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        確認新增_bt.Enabled = False : 新增_bt.Enabled = False : 修改_bt.Enabled = False : 修改存檔_bt.Enabled = True : 刪除_bt.Enabled = False
        公司名_tb.Enabled = True : 公司地址_tb.Enabled = True : 公司電話1_tb.Enabled = True : 公司電話2_tb.Enabled = True : 公司電話3_tb.Enabled = True : 公司傳真1_tb.Enabled = True
        公司傳真2_tb.Enabled = True : 廠商類別_cb.Enabled = True : 聯繫人1_tb.Enabled = True : 聯繫人2_tb.Enabled = True : 聯繫人3_tb.Enabled = True : 聯繫人1職稱_tb.Enabled = True : 聯繫人2職稱_tb.Enabled = True
        聯繫人3職稱_tb.Enabled = True : 聯繫人1電話_tb.Enabled = True : 聯繫人2電話_tb.Enabled = True : 聯繫人3電話_tb.Enabled = True : 聯繫人1信箱_tb.Enabled = True : 聯繫人2信箱_tb.Enabled = True : 聯繫人3信箱_tb.Enabled = True
    End Sub
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles 新增供應商類別_bt.Click
        清單修改.Close() : 廠商類別修改 = True : 清單修改.ShowDialog() : ComboBox1下拉表單資料載入() : 廠商類別修改 = False
    End Sub
End Class