HX-PGS-ERP-SYS-SIU/06、業務管理系統/客戶資料表.vb

Option Strict Off
Public Class 客戶資料表
    Dim ds8 As New DataSet
    Dim 對話框(5) As String
    Private Sub 讀取客戶料表()
        Dim ds As New DataSet : 廠商清單_dgv.DataSource = Nothing : ds.Clear()
        廠商清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        廠商清單_dgv.ColumnHeadersHeight = 25 : 廠商清單_dgv.AllowUserToAddRows = False : 廠商清單_dgv.RowTemplate.Height = 35

        SQL_客戶資料表_清單()
        列印用SQL = SQL1 : da.Fill(ds) : 廠商清單_dgv.DataSource = ds.Tables(0)
        廠商清單_dgv.Columns(0).FillWeight = 40 : 廠商清單_dgv.Columns(1).FillWeight = 60 : 廠商清單_dgv.Columns(2).FillWeight = 150
        廠商清單_dgv.Columns(3).FillWeight = 80 : 廠商清單_dgv.Columns(4).FillWeight = 200 : 廠商清單_dgv.Columns(5).FillWeight = 80
        廠商清單_dgv.Columns(6).FillWeight = 100 : 廠商清單_dgv.Columns(7).FillWeight = 80 : 廠商清單_dgv.Columns(8).FillWeight = 100
        廠商清單_dgv.Columns(9).FillWeight = 100 : 廠商清單_dgv.Columns(10).FillWeight = 80 : 廠商清單_dgv.Columns(11).FillWeight = 100
        廠商清單_dgv.Columns(12).FillWeight = 100 : 廠商清單_dgv.Columns(13).Visible = False

        For I As Integer = 0 To 12 : 廠商清單_dgv.Columns(I).ReadOnly = True : Next
        For I As Integer = 0 To 廠商清單_dgv.Rows.Count - 1 : 廠商清單_dgv("NO.", I).Value = I + 1 : Next
    End Sub
    Private Sub 格式設定1()
        供應商編號_tb.Enabled = False : 確認新增_bt.Enabled = False : 新增_bt.Enabled = True
        If 深色風格 = False Then
            簡稱_lb.ForeColor = Color.Black : 客戶_lb.ForeColor = Color.Black : 公司地址_lb.ForeColor = Color.Black : 公司電話1_lb.ForeColor = Color.Black
            負責人_lb.ForeColor = Color.Black
        Else
            簡稱_lb.ForeColor = Color.White : 客戶_lb.ForeColor = Color.White : 公司地址_lb.ForeColor = Color.White : 公司電話1_lb.ForeColor = Color.White
            負責人_lb.ForeColor = Color.White
        End If
    End Sub
    Private Sub 格式設定2()
        If 深色風格 = False Then
            簡稱_lb.ForeColor = Color.Red : 客戶_lb.ForeColor = Color.Red : 公司地址_lb.ForeColor = Color.Red : 公司電話1_lb.ForeColor = Color.Red : 負責人_lb.ForeColor = Color.Red
        Else
            簡稱_lb.ForeColor = Color.LightPink : 客戶_lb.ForeColor = Color.LightPink : 公司地址_lb.ForeColor = Color.LightPink : 公司電話1_lb.ForeColor = Color.LightPink
            負責人_lb.ForeColor = Color.LightPink
        End If
    End Sub
    Private Sub 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        Me.Text = 系統語言字典("H001-165-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言)
        公司地址_lb.Text = 系統語言字典("H402-100-" & 語言) : 公司電話1_lb.Text = 系統語言字典("H402-101-" & 語言) : 客戶_lb.Text = 系統語言字典("H402-102-" & 語言)
        客戶編號_lb.Text = 系統語言字典("H402-103-" & 語言) : 負責人_lb.Text = 系統語言字典("H402-104-" & 語言) : 負責人電話_lb.Text = 系統語言字典("H402-105-" & 語言)
        表頭(53) = 系統語言字典("H402-106-" & 語言) : 表頭(52) = 系統語言字典("H402-107-" & 語言) : 表頭(51) = 系統語言字典("H402-108-" & 語言)
        表頭(145) = 系統語言字典("H402-109-" & 語言) : 表頭(146) = 系統語言字典("H402-110-" & 語言) : 表頭(59) = 系統語言字典("H402-111-" & 語言)
        表頭(148) = 系統語言字典("H402-112-" & 語言) : 表頭(147) = 系統語言字典("H402-113-" & 語言) : 表頭(60) = 系統語言字典("H402-114-" & 語言)
        表頭(150) = 系統語言字典("H402-115-" & 語言) : 表頭(149) = 系統語言字典("H402-116-" & 語言) : 表頭(50) = 系統語言字典("H402-117-" & 語言)
        對話框(0) = 系統語言字典("H402-118-" & 語言) : 對話框(1) = 系統語言字典("H402-119-" & 語言) : 對話框(2) = 系統語言字典("H402-120-" & 語言)
        對話框(3) = 系統語言字典("H402-121-" & 語言) : 對話框(4) = 系統語言字典("H402-122-" & 語言) : 對話框(5) = 系統語言字典("H402-123-" & 語言)
        聯繫人1_lb.Text = 系統語言字典("H402-124-" & 語言) : 聯繫人2_lb.Text = 系統語言字典("H402-125-" & 語言) : 聯繫人信箱1_lb.Text = 系統語言字典("H402-126-" & 語言)
        聯繫人信箱2_lb.Text = 系統語言字典("H402-127-" & 語言) : 聯繫人電話1_lb.Text = 系統語言字典("H402-128-" & 語言) : 聯繫人電話2_lb.Text = 系統語言字典("H402-129-" & 語言)
        簡稱_lb.Text = 系統語言字典("H402-130-" & 語言)
    End Sub
    Private Sub 查詢_bt_MouseEnter(sender As Object, e As EventArgs) Handles 查詢_bt.MouseEnter
        ToolTip1.SetToolTip(Me.查詢_bt, 系統語言字典("G000-113-" & 語言))
    End Sub
    Private Sub 新增_bt_MouseEnter(sender As Object, e As EventArgs) Handles 新增_bt.MouseEnter
        ToolTip1.SetToolTip(Me.新增_bt, 系統語言字典("G000-109-" & 語言))
    End Sub
    Private Sub 確認新增_bt_MouseEnter(sender As Object, e As EventArgs) Handles 確認新增_bt.MouseEnter
        ToolTip1.SetToolTip(Me.確認新增_bt, 系統語言字典("H605-101-" & 語言))
    End Sub
    Private Sub 修改_bt_MouseEnter(sender As Object, e As EventArgs) Handles 修改_bt.MouseEnter
        ToolTip1.SetToolTip(Me.修改_bt, 系統語言字典("G000-111-" & 語言))
    End Sub
    Private Sub 圖檔入系統_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除_bt.MouseEnter
        ToolTip1.SetToolTip(Me.刪除_bt, 系統語言字典("G000-112-" & 語言))
    End Sub
    Private Sub 類別管理_cb_下拉表單資料載入()
        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 = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        風格() : H(402) = True : 介面 = "H402" : 語言轉換讀取() : 顯示說明(999, True)
        格式設定1() : 讀取客戶料表() : 類別管理_cb_下拉表單資料載入()
        Panel1.SendToBack()
        MyMod.清單字體大小調整()
        廠商清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 客戶資料表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(402) = False : MyMod.虛擬桌面開啟()
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 廠商清單_dgv_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("流水號", e.RowIndex).Value.ToString : 客戶名稱_tb.Text = 廠商清單_dgv(表頭(51), e.RowIndex).Value.ToString
            地址_tb.Text = 廠商清單_dgv(表頭(52), e.RowIndex).Value.ToString : 電話1_tb.Text = 廠商清單_dgv(表頭(53), e.RowIndex).Value.ToString
            負責人_tb.Text = 廠商清單_dgv(表頭(145), e.RowIndex).Value.ToString : 聯繫人1_tb.Text = 廠商清單_dgv(表頭(59), e.RowIndex).Value.ToString
            聯繫人2_tb.Text = 廠商清單_dgv(表頭(60), e.RowIndex).Value.ToString : 聯繫電話1_tb.Text = 廠商清單_dgv(表頭(147), e.RowIndex).Value.ToString
            聯繫電話2_tb.Text = 廠商清單_dgv(表頭(149), e.RowIndex).Value.ToString : 信箱1_tb.Text = 廠商清單_dgv(表頭(148), e.RowIndex).Value.ToString
            信箱2_tb.Text = 廠商清單_dgv(表頭(150), e.RowIndex).Value.ToString : 客戶簡稱_cb.Text = 廠商清單_dgv(表頭(50), e.RowIndex).Value.ToString
            負責人電話_tb.Text = 廠商清單_dgv(表頭(146), e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        客戶名稱_tb.Text = "" : 地址_tb.Text = "" : 電話1_tb.Text = "" : 聯繫人1_tb.Text = "" : 聯繫人2_tb.Text = "" : 聯繫電話1_tb.Text = "" : 聯繫電話2_tb.Text = ""
        信箱1_tb.Text = "" : 信箱2_tb.Text = ""

        SQL_客戶資料表_最後一筆資料()
        If dr.Read() Then : 供應商編號_tb.Text = dr("流水號").ToString : Else : 供應商編號_tb.Text = "CL000" : End If : conn.Close()
        Dim NUM1 As Integer
        NUM1 = Double.Parse(Strings.Right(供應商編號_tb.Text, 3)) + 1
        If NUM1 < 10 Then : 供應商編號_tb.Text = "CL" & "00" & NUM1
        ElseIf NUM1 > 9 And NUM1 < 100 Then : 供應商編號_tb.Text = "CL" & "0" & NUM1
        ElseIf NUM1 > 99 Then : 供應商編號_tb.Text = "CL" & NUM1 : End If
        格式設定2() : 確認新增_bt.Enabled = True : 新增_bt.Enabled = False
    End Sub
    Private Sub 確認新增_bt_Click(sender As Object, e As EventArgs) Handles 確認新增_bt.Click
        If 客戶名稱_tb.Text = "" Or 地址_tb.Text = "" Or 電話1_tb.Text = "" Then : MGB(對話框(0), 1)
        Else : SQL_客戶資料表_新增() : conn.Close() : MGB(對話框(1), 1) : 格式設定1() : 讀取客戶料表() : End If
    End Sub
    Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        SQL_客戶資料表_修改() : conn.Close() : MGB(對話框(2), 1) : 讀取客戶料表()
    End Sub
    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        MGB(對話框(3), 2) : If 訊息回應 = "YES" Then : SQL_客戶資料表_刪除() : conn.Close() : MGB(對話框(4), 1) : 讀取客戶料表() : End If
    End Sub
    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        INB(對話框(5)) : PA = 訊息回應 : 讀取客戶料表() : PA = ""
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H402" : 語言轉換讀取() : 讀取客戶料表()
    End Sub
    Private Sub 客戶資料表設定_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        MyMod.清單字體大小調整()
        廠商清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 客戶簡稱_cb_Click(sender As Object, e As EventArgs) Handles 客戶簡稱_cb.Click
        CB選擇清單(客戶簡稱_cb, 客戶簡稱_cb.Text)
    End Sub

    Private Sub 風格()
        If 深色風格 = False Then
            Me.BackColor = SystemColors.Control
            簡稱_lb.ForeColor = Color.Black : 客戶_lb.ForeColor = Color.Black : 客戶編號_lb.ForeColor = Color.Black : 公司電話1_lb.ForeColor = Color.Black
            負責人_lb.ForeColor = Color.Black : 負責人電話_lb.ForeColor = Color.Black : 公司地址_lb.ForeColor = Color.Black : 聯繫人1_lb.ForeColor = Color.Black
            聯繫人2_lb.ForeColor = Color.Black : 聯繫人電話1_lb.ForeColor = Color.Black : 聯繫人電話2_lb.ForeColor = Color.Black : 聯繫人信箱1_lb.ForeColor = Color.Black
            聯繫人信箱2_lb.ForeColor = Color.Black

            客戶簡稱_cb.BackColor = Color.White : 客戶簡稱_cb.ForeColor = Color.Black : 供應商編號_tb.BackColor = Color.White : 供應商編號_tb.ForeColor = Color.Black
            電話1_tb.BackColor = Color.White : 電話1_tb.ForeColor = Color.Black : 負責人_tb.BackColor = Color.White : 負責人_tb.ForeColor = Color.Black
            負責人電話_tb.BackColor = Color.White : 負責人電話_tb.ForeColor = Color.Black : 地址_tb.BackColor = Color.White : 地址_tb.ForeColor = Color.Black
            客戶名稱_tb.BackColor = Color.White : 客戶名稱_tb.ForeColor = Color.Black : 聯繫人1_tb.BackColor = Color.White : 聯繫人1_tb.ForeColor = Color.Black
            語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black : 聯繫人2_tb.BackColor = Color.White : 聯繫人2_tb.ForeColor = Color.Black
            聯繫電話1_tb.BackColor = Color.White : 聯繫電話1_tb.ForeColor = Color.Black : 信箱1_tb.BackColor = Color.White : 信箱1_tb.ForeColor = Color.Black
            聯繫電話2_tb.BackColor = Color.White : 聯繫電話2_tb.ForeColor = Color.Black : 信箱2_tb.BackColor = Color.White : 信箱2_tb.ForeColor = Color.Black

            刪除_bt.BackColor = Color.White : 修改_bt.BackColor = Color.White : 確認新增_bt.BackColor = Color.White : 新增_bt.BackColor = Color.White : 查詢_bt.BackColor = Color.White

            廠商清單_dgv.EnableHeadersVisualStyles = True : 廠商清單_dgv.BackgroundColor = Color.White : 廠商清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            廠商清單_dgv.DefaultCellStyle.BackColor = Color.White : 廠商清單_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            Me.BackColor = Color.Black
            簡稱_lb.ForeColor = Color.White : 客戶_lb.ForeColor = Color.White : 客戶編號_lb.ForeColor = Color.White : 公司電話1_lb.ForeColor = Color.White
            負責人_lb.ForeColor = Color.White : 負責人電話_lb.ForeColor = Color.White : 公司地址_lb.ForeColor = Color.White : 聯繫人1_lb.ForeColor = Color.White
            聯繫人2_lb.ForeColor = Color.White : 聯繫人電話1_lb.ForeColor = Color.White : 聯繫人電話2_lb.ForeColor = Color.White : 聯繫人信箱1_lb.ForeColor = Color.White
            聯繫人信箱2_lb.ForeColor = Color.White

            客戶簡稱_cb.BackColor = Color.DimGray : 客戶簡稱_cb.ForeColor = Color.White : 供應商編號_tb.BackColor = Color.DimGray : 供應商編號_tb.ForeColor = Color.White
            電話1_tb.BackColor = Color.DimGray : 電話1_tb.ForeColor = Color.White : 負責人_tb.BackColor = Color.DimGray : 負責人_tb.ForeColor = Color.White
            負責人電話_tb.BackColor = Color.DimGray : 負責人電話_tb.ForeColor = Color.White : 地址_tb.BackColor = Color.DimGray : 地址_tb.ForeColor = Color.White
            客戶名稱_tb.BackColor = Color.DimGray : 客戶名稱_tb.ForeColor = Color.White : 聯繫人1_tb.BackColor = Color.DimGray : 聯繫人1_tb.ForeColor = Color.White
            語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White : 聯繫人2_tb.BackColor = Color.DimGray : 聯繫人2_tb.ForeColor = Color.White
            聯繫電話1_tb.BackColor = Color.DimGray : 聯繫電話1_tb.ForeColor = Color.White : 信箱1_tb.BackColor = Color.DimGray : 信箱1_tb.ForeColor = Color.White
            聯繫電話2_tb.BackColor = Color.DimGray : 聯繫電話2_tb.ForeColor = Color.White : 信箱2_tb.BackColor = Color.DimGray : 信箱2_tb.ForeColor = Color.White

            刪除_bt.BackColor = Color.DimGray : 修改_bt.BackColor = Color.DimGray : 確認新增_bt.BackColor = Color.DimGray : 新增_bt.BackColor = Color.DimGray : 查詢_bt.BackColor = Color.DimGray

            廠商清單_dgv.EnableHeadersVisualStyles = False : 廠商清單_dgv.BackgroundColor = Color.DimGray : 廠商清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            廠商清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black
            廠商清單_dgv.DefaultCellStyle.BackColor = Color.Black : 廠商清單_dgv.DefaultCellStyle.ForeColor = Color.White
        End If
    End Sub
End Class