WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/09、請採購管理系統/供應商_一般物料.vb

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_讀取供應商料表清單()
        列印用SQL = SQL1
        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 = 120
        明細_dgv.Columns(9).FillWeight = 120 : 明細_dgv.Columns(10).FillWeight = 120 : 明細_dgv.Columns(11).FillWeight = 120
        明細_dgv.Columns(12).FillWeight = 120
        明細_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
        供應商簡稱_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 供應商_一般物料_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        格式設定1() : 讀取供應商料表() : Set_grid()
        If CC(6) = False Then : 新增_bt.Enabled = False : 修改_bt.Enabled = False : End If
        If CC(7) = False Then : 刪除_bt.Enabled = False : End If
        If CC(8) = False Then : 列印成EXCEL_bt.Enabled = False : End If
    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 : 公司傳真3_tb.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
        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 = "" : 公司傳真3_tb.Text = "" : 聯繫人1電話_tb.Text = "" : 聯繫人2電話_tb.Text = ""
        聯繫人1_tb.Text = "" : 聯繫人2_tb.Text = "" : 聯繫人3_tb.Text = "" : 聯繫人1職稱_tb.Text = "" : 聯繫人2職稱_tb.Text = "" : 聯繫人3職稱_tb.Text = ""
        聯繫人3電話_tb.Text = "" : 聯繫人1信箱_tb.Text = "" : 聯繫人2信箱_tb.Text = "" : 聯繫人3信箱_tb.Text = ""

        SQL_查詢最後一碼()
        If dr.Read() Then : 供應商編號_tb.Text = dr("供應商編碼").ToString : Else : 供應商編號_tb.Text = "CU0000" : End If
        conn.Close()

        Dim NUM1 As Integer
        NUM1 = Double.Parse(Strings.Right(供應商編號_tb.Text, 4)) + 1
        If NUM1 < 10 Then : 供應商編號_tb.Text = "CU" & "000" & NUM1
        ElseIf NUM1 > 9 And NUM1 < 100 Then : 供應商編號_tb.Text = "CU" & "00" & NUM1
        ElseIf NUM1 > 99 And NUM1 < 1000 Then : 供應商編號_tb.Text = "CU" & "0" & NUM1
        ElseIf NUM1 > 999 Then : 供應商編號_tb.Text = "CU" & NUM1
        End If
        格式設定2()
        確認新增_bt.Enabled = True : 新增_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()
        End If
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        SQL_更改供應商清單_一般物料()
        conn.Close()
        Set_日期格式轉換()
        MsgBox("修改完成")
        讀取供應商料表() : Set_grid()
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        SQL_刪除供應商清單() : conn.Close()
        Dim aa As MsgBoxResult
        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            Set_日期格式轉換()
            MsgBox("刪除完成")
            讀取供應商料表() : Set_grid()
        End If
    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
End Class