GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/06.業務管理系統/客戶資料表.vb

Public Class 客戶資料表
    ReadOnly ds8 As New DataSet
    ReadOnly 對話框(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).Visible = False : 廠商清單_dgv.Columns(2).FillWeight = 100
        廠商清單_dgv.Columns(3).FillWeight = 100 : 廠商清單_dgv.Columns(4).FillWeight = 300 : 廠商清單_dgv.Columns(5).Visible = False
        廠商清單_dgv.Columns(6).Visible = False : 廠商清單_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 : 廠商清單_dgv.Columns(14).Visible = 100

        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
        客戶_lb.ForeColor = Color.Black : 公司地址_lb.ForeColor = Color.Black : 公司電話1_lb.ForeColor = Color.Black
    End Sub
    Private Sub 格式設定2()
        客戶_lb.ForeColor = Color.Red : 公司地址_lb.ForeColor = Color.Red : 公司電話1_lb.ForeColor = Color.Red
    End Sub
    Private Sub 類別管理_cb_下拉表單資料載入()
        SQL_客戶資料表簡稱_下拉清單() : 客戶簡稱_cb.Items.Clear()
        While (dr.Read()) : 客戶簡稱_cb.Items.Add(dr("簡稱")) : End While : conn.Close()
    End Sub
    Private Sub 載入系統語言()
        If 系統語言 = "繁體中文" Then
            Me.Text = "客戶資料表"
            客戶編號_lb.Text = "客戶編號"
            簡稱_lb.Text = "簡稱"
            公司電話1_lb.Text = "客 戶 電 話"
            客戶_lb.Text = "客 戶 名 稱"
            公司地址_lb.Text = "客戶地址"
            負責人電話_lb.Text = "負責人電話"
            負責人_lb.Text = "負責人"
            聯繫人1_lb.Text = "聯繫人1"
            聯繫人2_lb.Text = "聯繫人2"
            聯繫人電話1_lb.Text = "聯繫人電話1"
            聯繫人電話2_lb.Text = "聯繫人電話2"
            聯繫人信箱1_lb.Text = "聯繫人信箱1"
            聯繫人信箱2_lb.Text = "聯繫人信箱2"
            表頭(49) = ""
            表頭(50) = "簡稱"
            表頭(51) = "客戶名稱"
            表頭(52) = "地址"
            表頭(53) = "客戶電話"
            表頭(145) = "負責人"
            表頭(146) = "負責人電話"
            表頭(59) = "聯繫人1"
            表頭(147) = "聯繫人電話1"
            表頭(148) = "聯繫人信箱1"
            表頭(60) = "聯繫人2"
            表頭(149) = "聯繫人電話2"
            表頭(150) = "聯繫人信箱2"
            對話框(0) = "請檢查客戶名稱/電話/地址"
            對話框(1) = "存檔完成"
            對話框(2) = "修改完成"
            對話框(3) = "是否要刪除這筆資料?"
            對話框(4) = "刪除完成"
            對話框(5) = "請輸入關鍵字"
        Else
            Me.Text = "Data Pelanggan"
            客戶編號_lb.Text = "No. Pelanggan"
            簡稱_lb.Text = " Akronim"
            公司電話1_lb.Text = "TEL Perusahaan"
            客戶_lb.Text = " Nama Perusahaan"
            公司地址_lb.Text = "Alamat Perusahaan"
            負責人電話_lb.Text = "Penanggung Jawab TEL"
            負責人_lb.Text = "Penanggung Jawab"
            聯繫人1_lb.Text = "Kontak Person 1"
            聯繫人2_lb.Text = "Kontak Person 2"
            聯繫人電話1_lb.Text = "TEL Kontak 1"
            聯繫人電話2_lb.Text = "TEL Kontak 2"
            聯繫人信箱1_lb.Text = "Hubungi Kotak Surat 1"
            聯繫人信箱2_lb.Text = "Hubungi Kotak Surat 2"
            查詢_bt.Text = "Cari"
            新增_bt.Text = "Menambahkan"
            確認新增_bt.Text = "Konfirmasi untuk Menambahkan"
            修改_bt.Text = "Ubah Arsip"
            刪除_bt.Text = "Menghapus"
            表頭(49) = ""
            表頭(50) = "Akronim"
            表頭(51) = "Nama Perusahaan"
            表頭(52) = "Alamat"
            表頭(53) = "Perusahaan TEL"
            表頭(145) = "Penanggung Jawab"
            表頭(146) = "Penanggung Jawab TEL"
            表頭(59) = "Kontak Person 1"
            表頭(147) = "TEL Kontak 1"
            表頭(148) = "Hubungi Kotak Surat 1"
            表頭(60) = "Kontak Person 2"
            表頭(149) = "TEL Kontak 2"
            表頭(150) = "Hubungi Kotak Surat 2"
            對話框(0) = "Silakan periksa nama/telepon/alamat pelanggan."
            對話框(1) = "Arsip selesai."
            對話框(2) = "Modifikasi selesai."
            對話框(3) = "Apakah Anda ingin menghapus data ini?"
            對話框(4) = "Hapus selesai."
            對話框(5) = "Silakan masukkan kata kunci."
        End If
    End Sub

    Private Sub 客戶資料表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = ICS_ASMS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        介面 = "H402" : 載入系統語言()
        格式設定1() : 讀取客戶料表() : 類別管理_cb_下拉表單資料載入()
        語轉扭_bt.Visible = False
        MyModule1.清單字體大小調整()
        廠商清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", ICS_ASMS_ERP_SYS.字體_NUD.Value)
    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 = "" : 客戶車號_tb.Text = ""
        SQL_客戶資料表_最後一筆資料()
        If dr.Read() Then : 供應商編號_tb.Text = dr("流水號").ToString : Else : 供應商編號_tb.Text = "CL00000" : End If
        conn.Close()
        Dim NUM1 As Integer
        NUM1 = Double.Parse(Strings.Right(供應商編號_tb.Text, 5)) + 1
        If NUM1 < 10 Then : 供應商編號_tb.Text = "CL" & "0000" & NUM1
        ElseIf NUM1 > 9 And NUM1 < 100 Then : 供應商編號_tb.Text = "CL" & "000" & NUM1
        ElseIf NUM1 > 99 And NUM1 < 1000 Then : 供應商編號_tb.Text = "CL" & "00" & NUM1
        ElseIf NUM1 > 999 And NUM1 < 10000 Then : 供應商編號_tb.Text = "CL" & "0" & NUM1
        ElseIf NUM1 > 9999 And NUM1 < 100000 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
            MsgBox(對話框(0))
        Else
            SQL_客戶資料表_新增() : conn.Close() : MsgBox(對話框(1)) '對話框(1) 
            格式設定1() : 讀取客戶料表()
        End If
    End Sub
    Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        SQL_客戶資料表_修改() : conn.Close() : MsgBox(對話框(2)) '對話框(2)
        讀取客戶料表()
    End Sub
    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        Dim aa As MsgBoxResult = MsgBox(對話框(3), MsgBoxStyle.OkCancel) '對話框(3)
        If aa = MsgBoxResult.Ok Then
            SQL_客戶資料表_刪除() : conn.Close() : MsgBox(對話框(4)) '對話框(4)
            讀取客戶料表()
        End If
    End Sub
    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        CHB("請輸入關鍵字。") : 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
        MyModule1.清單字體大小調整()
        廠商清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", ICS_ASMS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 查詢_bt_MouseEnter(sender As Object, e As EventArgs) Handles 查詢_bt.MouseEnter
        ToolTip1.SetToolTip(Me.查詢_bt, "查詢")
    End Sub
    Private Sub 新增_bt_MouseEnter(sender As Object, e As EventArgs) Handles 新增_bt.MouseEnter
        ToolTip1.SetToolTip(Me.新增_bt, "新增準備")
    End Sub
    Private Sub 確認新增_bt_MouseEnter(sender As Object, e As EventArgs) Handles 確認新增_bt.MouseEnter
        ToolTip1.SetToolTip(Me.確認新增_bt, "確認新增")
    End Sub
    Private Sub 修改_bt_MouseEnter(sender As Object, e As EventArgs) Handles 修改_bt.MouseEnter
        ToolTip1.SetToolTip(Me.修改_bt, "修改存檔")
    End Sub
    Private Sub 刪除_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除_bt.MouseEnter
        ToolTip1.SetToolTip(Me.刪除_bt, "刪除")
    End Sub

    Private Sub Button1_Click(sender As Object, e As EventArgs) 
        SQL_客戶資料表_清單()
    End Sub
End Class