MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/業務系統管理/客戶資料管理.vb

Option Strict Off
Public Class 客戶資料管理
    ReadOnly ds As New DataSet
    Dim EDR As Integer = 0 : Dim ESTR As String
    Private Sub Set_客戶清單()
        客戶清單_dgv.DataSource = Nothing : ds.Clear() : 客戶清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing : 客戶清單_dgv.ColumnHeadersHeight = 50
        客戶清單_dgv.AllowUserToAddRows = False : 客戶清單_dgv.ClipboardCopyMode = DataGridViewClipboardCopyMode.EnableWithoutHeaderText : 客戶清單_dgv.MultiSelect = True
        SQL_客戶資料管理清單()
        da.Fill(ds) : 客戶清單_dgv.DataSource = ds.Tables(0) : conn.Close()

        客戶清單_dgv.Columns(0).Visible = False : 客戶清單_dgv.Columns(1).Width = 150 : 客戶清單_dgv.Columns(2).Width = 100 : 客戶清單_dgv.Columns(3).Width = 258
        客戶清單_dgv.Columns(4).Width = 50 : 客戶清單_dgv.Columns(5).Width = 250 : 客戶清單_dgv.Columns(6).Width = 60 : 客戶清單_dgv.Columns(7).Width = 60
        客戶清單_dgv.Columns(8).Width = 120 : 客戶清單_dgv.Columns(9).Width = 120 : 客戶清單_dgv.Columns(10).Width = 120 : 客戶清單_dgv.Columns(11).Width = 90
        客戶清單_dgv.Columns(12).Width = 150 : 客戶清單_dgv.Columns(13).Width = 250 : 客戶清單_dgv.Columns(14).Width = 50 : 客戶清單_dgv.Columns(15).Width = 60
        客戶清單_dgv.Columns(16).Width = 120 : 客戶清單_dgv.Columns(17).Width = 70 : 客戶清單_dgv.Columns(18).Width = 50 : 客戶清單_dgv.Columns(19).Width = 60
        客戶清單_dgv.Columns(20).Width = 80 : 客戶清單_dgv.Columns(21).Width = 250 : 客戶清單_dgv.Columns(22).Width = 50

        客戶清單_dgv.Columns(15).DefaultCellStyle.Format = "#,##0" : 客戶清單_dgv.Columns(18).DefaultCellStyle.Format = "#,##0"
        客戶清單_dgv.Columns(15).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 客戶清單_dgv.Columns(15).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight
        客戶清單_dgv.Columns(18).DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight : 客戶清單_dgv.Columns(18).HeaderCell.Style.Alignment = DataGridViewContentAlignment.MiddleRight

        客戶清單_dgv.Columns(0).Frozen = True : 客戶清單_dgv.Columns(1).Frozen = True

        If 模式一_bt.Enabled = False Then : 格式1_縮小()
        Else : 格式2_放大() : 可全選_ch.Checked = True : 可全選_ch.Checked = True : 客戶清單_dgv.EditMode = DataGridViewEditMode.EditOnKeystrokeOrF2 : End If
    End Sub
    Private Sub DataGridView1多行列貼上()
        Dim i, j As Integer : Dim pRow, pCol As Integer : Dim selectedCellCount As Integer : Dim startRow, startCol, endRow, endCol As Integer
        Dim pasteText, strline, strVal As String : Dim strlines, vals As String() : Dim pasteData(,) As String
        ' 当前单元格是否选择的判断
        If 客戶清單_dgv.CurrentCell Is Nothing Then : Return : End If
        Dim insertRowIndex As Integer = 客戶清單_dgv.CurrentCell.RowIndex
        ' 获取DataGridView选择区域，并计算要复制的行列开始、结束位置
        startRow = 9999 : startCol = 9999 : endRow = 0 : endCol = 0
        selectedCellCount = 客戶清單_dgv.GetCellCount(DataGridViewElementStates.Selected)
        For i = 0 To selectedCellCount - 1
            startRow = Math.Min(客戶清單_dgv.SelectedCells(i).RowIndex, startRow) : startCol = Math.Min(客戶清單_dgv.SelectedCells(i).ColumnIndex, startCol)
            endRow = Math.Max(客戶清單_dgv.SelectedCells(i).RowIndex, endRow) : endCol = Math.Max(客戶清單_dgv.SelectedCells(i).ColumnIndex, endCol)
        Next
        ' 获取剪切板的内容，并按行分割
        pasteText = Clipboard.GetText()
        If String.IsNullOrEmpty(pasteText) Then : Return : End If
        pasteText = pasteText.Replace(vbCrLf, vbLf)
        Dim unused As String()
        ReDim unused(0) : strlines = pasteText.Split(vbLf) : pRow = strlines.Length : pCol = 0      '行数

        For Each strline In strlines
            Dim unused2 As String()
            ReDim unused2(0)
            vals = strline.Split(New Char() {vbTab, vbCr, vbNullChar, vbNullString}, 256, StringSplitOptions.RemoveEmptyEntries) ' 按Tab分割数据
            pCol = Math.Max(vals.Length, pCol) '列数
        Next
        ReDim pasteData(pRow, pCol) : pasteText = Clipboard.GetText() : pasteText = pasteText.Replace(vbCrLf, vbLf)
        Dim unused1 As String()
        ReDim unused1(0) : strlines = pasteText.Split(vbLf) : i = 1
        For Each strline In strlines
            j = 1
            Dim unused3 As String()
            ReDim unused3(0) : strline.TrimEnd(New Char() {vbLf}) : vals = strline.Split(New Char() {vbTab, vbCr, vbNullChar, vbNullString}, 256, StringSplitOptions.RemoveEmptyEntries)
            For Each strVal In vals : pasteData(i, j) = strVal : j += 1 : Next : i += 1
        Next
        Dim flag As Boolean = False
        For j = 1 To pCol : If pasteData(pRow, j) <> "" Then : flag = True : Exit For : End If : Next
        If flag = False Then : pRow = Math.Max(pRow - 1, 0) : End If
        For i = 1 To endRow - startRow + 1
            Dim row As DataGridViewRow = 客戶清單_dgv.Rows(i + startRow - 1)
            If i <= pRow Then : For j = 1 To endCol - startCol + 1 : If j <= pCol Then : row.Cells(j + startCol - 1).Value = pasteData(i, j) : Else : Exit For : End If : Next
            Else : Exit For : End If
        Next
        'DataGridView1貼上資料後去除雙引號()
    End Sub
    Private Sub ComboBox1下拉表單資料載入()
        PA = "%%" : SQL_付款方式查詢()
        付款方式_cb.Items.Clear() : While (dr.Read()) : 付款方式_cb.Items.Add(dr("付款方式")) : End While : conn.Close() : PA = ""
    End Sub
    Private Sub 格式1_縮小()
        客戶清單_dgv.Columns(13).Visible = False
        客戶清單_dgv.Columns(19).Visible = False : 客戶清單_dgv.Columns(20).Visible = False : 客戶清單_dgv.Columns(21).Visible = False : 客戶清單_dgv.Columns(22).Visible = False
        客戶清單_dgv.Columns(1).ReadOnly = True : 客戶清單_dgv.Columns(2).ReadOnly = True : 客戶清單_dgv.Columns(3).ReadOnly = True : 客戶清單_dgv.Columns(4).ReadOnly = True
        客戶清單_dgv.Columns(5).ReadOnly = True : 客戶清單_dgv.Columns(6).ReadOnly = True : 客戶清單_dgv.Columns(7).ReadOnly = True : 客戶清單_dgv.Columns(8).ReadOnly = True
        客戶清單_dgv.Columns(9).ReadOnly = True : 客戶清單_dgv.Columns(10).ReadOnly = True : 客戶清單_dgv.Columns(11).ReadOnly = True : 客戶清單_dgv.Columns(12).ReadOnly = True
        客戶清單_dgv.Columns(13).ReadOnly = True : 客戶清單_dgv.Columns(14).ReadOnly = True : 客戶清單_dgv.Columns(15).ReadOnly = True : 客戶清單_dgv.Columns(16).ReadOnly = True
        客戶清單_dgv.Columns(17).ReadOnly = True : 客戶清單_dgv.Columns(18).ReadOnly = True : 客戶清單_dgv.Columns(19).ReadOnly = True : 客戶清單_dgv.Columns(20).ReadOnly = True
        客戶清單_dgv.Columns(21).ReadOnly = True : 客戶清單_dgv.Columns(22).ReadOnly = True
    End Sub
    Private Sub 格式2_放大()
        客戶清單_dgv.Columns(13).Visible = True
        客戶清單_dgv.Columns(19).Visible = True : 客戶清單_dgv.Columns(20).Visible = True : 客戶清單_dgv.Columns(21).Visible = True : 客戶清單_dgv.Columns(22).Visible = True
        客戶清單_dgv.Columns(1).ReadOnly = False : 客戶清單_dgv.Columns(2).ReadOnly = False : 客戶清單_dgv.Columns(3).ReadOnly = False : 客戶清單_dgv.Columns(4).ReadOnly = False
        客戶清單_dgv.Columns(5).ReadOnly = False : 客戶清單_dgv.Columns(6).ReadOnly = False : 客戶清單_dgv.Columns(7).ReadOnly = False : 客戶清單_dgv.Columns(8).ReadOnly = False
        客戶清單_dgv.Columns(9).ReadOnly = False : 客戶清單_dgv.Columns(10).ReadOnly = False : 客戶清單_dgv.Columns(11).ReadOnly = False : 客戶清單_dgv.Columns(12).ReadOnly = False
        客戶清單_dgv.Columns(13).ReadOnly = False : 客戶清單_dgv.Columns(14).ReadOnly = False : 客戶清單_dgv.Columns(15).ReadOnly = False : 客戶清單_dgv.Columns(16).ReadOnly = False
        客戶清單_dgv.Columns(17).ReadOnly = False : 客戶清單_dgv.Columns(18).ReadOnly = False : 客戶清單_dgv.Columns(19).ReadOnly = False : 客戶清單_dgv.Columns(20).ReadOnly = False
        客戶清單_dgv.Columns(21).ReadOnly = False : 客戶清單_dgv.Columns(22).ReadOnly = False
    End Sub
    Private Sub 客戶資料管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        ComboBox1下拉表單資料載入()
        Set_客戶清單()
        編號_tb.Enabled = False : 付款編號_tb.Visible = False : 模式一_bt.Enabled = False : 模式二_bt.Enabled = True
        格式1_縮小() : If gUserName = "李協叡" Then : 資料刪除ToolStripMenuItem.Enabled = True : Else : 資料刪除ToolStripMenuItem.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.Rows(e.RowIndex).Cells("編號").Value.ToString : 店名_tb.Text = 客戶清單_dgv.Rows(e.RowIndex).Cells("店名").Value.ToString
            簡稱_tb.Text = 客戶清單_dgv.Rows(e.RowIndex).Cells("簡稱").Value.ToString : 店面地址_tb.Text = 客戶清單_dgv.Rows(e.RowIndex).Cells("店面地址").Value.ToString
            店面地址郵號_tb.Text = 客戶清單_dgv.Rows(e.RowIndex).Cells("店面地址郵遞區號").Value.ToString : 送貨地址_tb.Text = 客戶清單_dgv.Rows(e.RowIndex).Cells("送貨地址").Value.ToString
            負責人_tb.Text = 客戶清單_dgv.Rows(e.RowIndex).Cells("負責人").Value.ToString : 聯絡人_tb.Text = 客戶清單_dgv.Rows(e.RowIndex).Cells("聯絡人").Value.ToString
            電話_tb.Text = 客戶清單_dgv.Rows(e.RowIndex).Cells("電話").Value.ToString : 手機_tb.Text = 客戶清單_dgv.Rows(e.RowIndex).Cells("手機").Value.ToString
            傳真_tb.Text = 客戶清單_dgv.Rows(e.RowIndex).Cells("傳真").Value.ToString : 統編_tb.Text = 客戶清單_dgv.Rows(e.RowIndex).Cells("統編").Value.ToString
            發票抬頭_tb.Text = 客戶清單_dgv.Rows(e.RowIndex).Cells("發票抬頭").Value.ToString : 發票地址_tb.Text = 客戶清單_dgv.Rows(e.RowIndex).Cells("發票地址").Value.ToString
            發票地址郵號_tb.Text = 客戶清單_dgv.Rows(e.RowIndex).Cells("發票地址郵遞區號").Value.ToString : 發票額度_tb.Text = 客戶清單_dgv.Rows(e.RowIndex).Cells("發票額度").Value.ToString
            LineID_tb.Text = 客戶清單_dgv.Rows(e.RowIndex).Cells("LineID").Value.ToString : 付款方式_cb.Text = 客戶清單_dgv.Rows(e.RowIndex).Cells("付款方式").Value.ToString
            折扣_tb.Text = 客戶清單_dgv.Rows(e.RowIndex).Cells("折扣").Value.ToString : 負責業務_tb.Text = 客戶清單_dgv.Rows(e.RowIndex).Cells("負責業務").Value.ToString
            備註_tb.Text = 客戶清單_dgv.Rows(e.RowIndex).Cells("備註").Value.ToString
            If 客戶清單_dgv.Rows(e.RowIndex).Cells("建立日期").Value = "" Then : Else : 建立日期_dtp.Value = 客戶清單_dgv.Rows(e.RowIndex).Cells("建立日期").Value.ToString : End If
            發票額度_tb.Text = Strings.Format(Val(發票額度_tb.Text), "#,##0") : 折扣_tb.Text = Strings.Format(Val(折扣_tb.Text), "#,##0")
        End If
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 付款方式_cb.SelectedIndexChanged
        PA1 = 付款方式_cb.Text : SQL_付款方式_編號()
        If dr.Read() Then : 付款編號_tb.Text = dr("編號") : End If : conn.Close()
    End Sub
    Private Sub Button8_Click(sender As Object, e As EventArgs) Handles 模式一_bt.Click
        模式一_bt.Enabled = False : 模式二_bt.Enabled = True : 格式1_縮小()
    End Sub
    Private Sub Button7_Click(sender As Object, e As EventArgs) Handles 模式二_bt.Click
        模式一_bt.Enabled = True : 模式二_bt.Enabled = False : 格式2_放大()
        可全選_ch.Checked = True : 可全選_ch.Checked = True : 客戶清單_dgv.EditMode = DataGridViewEditMode.EditOnKeystrokeOrF2
    End Sub
    Private Sub CheckBox1_CheckedChanged(sender As Object, e As EventArgs) Handles 可全選_ch.Click
        If 可全選_ch.Checked = False Then
            可全選_ch.Checked = False : 客戶清單_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        Else
            可全選_ch.Checked = True : 客戶清單_dgv.EditMode = DataGridViewEditMode.EditOnKeystrokeOrF2
        End If
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 關鍵字查詢_bt.Click
        PA = InputBox("請輸入要查詢的關鍵字") : Set_客戶清單() : PA = ""
    End Sub
    Private Sub Set_日期格式轉換()
        建立日期_dtp.Value = Today() : DTP1 = Format(建立日期_dtp.Value, "yyyy/MM/dd")
    End Sub
    Private Sub 新增1()
        '----------------------自动生成流水号-------------------------------------------------------------------------
        SQL_客戶資料管理流水號最後一筆()
        If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("編號").ToString, 8)) : Else : EDR = 0 : End If : conn.Close() : EDR += 1
        If EDR < 10 Then : ESTR = "CI" & "0000000" & EDR
        ElseIf EDR > 9 And EDR < 100 Then : ESTR = "CI" & "000000" & EDR
        ElseIf EDR > 99 And EDR < 1000 Then : ESTR = "CI" & "00000" & EDR
        ElseIf EDR > 999 And EDR < 10000 Then : ESTR = "CI" & "0000" & EDR
        ElseIf EDR > 9999 And EDR < 100000 Then : ESTR = "CI" & "000" & EDR
        ElseIf EDR > 99999 And EDR < 100000 Then : ESTR = "CI" & "00" & EDR
        ElseIf EDR > 999999 And EDR < 1000000 Then : ESTR = "CI" & "0" & EDR
        ElseIf EDR > 9999999 Then : ESTR = "CI" & EDR : End If : 編號_tb.Text = ESTR
    End Sub
    Private Sub 新增2()
        '----------------------新增一笔资料------------------------------------------------------------------------------
        Set_日期格式轉換() : PA1 = ESTR : PA2 = DTP1 : SQL_客戶資料管理新增() : conn.Close()
    End Sub
    Private Sub 存檔1()
        For i As Integer = 0 To 客戶清單_dgv.Rows.Count - 1
            資料數 = 客戶清單_dgv.Rows.Count : MyModule1.進度條()
            PA1 = 客戶清單_dgv.Rows(i).Cells("店名").Value : PA2 = 客戶清單_dgv.Rows(i).Cells("簡稱").Value : PA3 = 客戶清單_dgv.Rows(i).Cells("店面地址").Value
            PA4 = 客戶清單_dgv.Rows(i).Cells("店面地址郵遞區號").Value : PA5 = 客戶清單_dgv.Rows(i).Cells("送貨地址").Value : PA6 = 客戶清單_dgv.Rows(i).Cells("負責人").Value
            PA7 = 客戶清單_dgv.Rows(i).Cells("聯絡人").Value : PA8 = 客戶清單_dgv.Rows(i).Cells("電話").Value : PA9 = 客戶清單_dgv.Rows(i).Cells("手機").Value
            PA10 = 客戶清單_dgv.Rows(i).Cells("傳真").Value : PA11 = 客戶清單_dgv.Rows(i).Cells("統編").Value : PA12 = 客戶清單_dgv.Rows(i).Cells("發票抬頭").Value
            PA13 = 客戶清單_dgv.Rows(i).Cells("發票地址").Value : PA14 = 客戶清單_dgv.Rows(i).Cells("發票地址郵遞區號").Value : NU1 = 客戶清單_dgv.Rows(i).Cells("發票額度").Value
            PA15 = 客戶清單_dgv.Rows(i).Cells("LineID").Value : PA16 = 客戶清單_dgv.Rows(i).Cells("付款編碼").Value : NU2 = 客戶清單_dgv.Rows(i).Cells("折扣").Value
            PA17 = 客戶清單_dgv.Rows(i).Cells("負責業務").Value : PA18 = 客戶清單_dgv.Rows(i).Cells("建立日期").Value : PA19 = 客戶清單_dgv.Rows(i).Cells("備註").Value
            PA = 客戶清單_dgv.Rows(i).Cells("編號").Value
            SQL_客戶資料管理修改() : conn.Close()
        Next : MAOJI_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
    End Sub
    Private Sub 存檔2()
        If 編號_tb.Text = "" Then : Else
            DTP1 = Format(建立日期_dtp.Value, "yyyy/MM/dd")
            PA1 = 店名_tb.Text : PA2 = 簡稱_tb.Text : PA3 = 店面地址_tb.Text : PA4 = 店面地址郵號_tb.Text : PA5 = 送貨地址_tb.Text : PA6 = 負責人_tb.Text : PA7 = 聯絡人_tb.Text : PA8 = 電話_tb.Text
            PA9 = 手機_tb.Text : PA10 = 傳真_tb.Text : PA11 = 統編_tb.Text : PA12 = 發票抬頭_tb.Text : PA13 = 發票地址_tb.Text : PA14 = 發票地址郵號_tb.Text
            If 發票額度_tb.Text = "" Then : NU1 = 0 : Else : NU1 = 發票額度_tb.Text : End If
            PA15 = LineID_tb.Text : PA16 = 付款編號_tb.Text
            If 折扣_tb.Text = "" Then : NU2 = 0 : Else : NU2 = 折扣_tb.Text : End If
            PA17 = 負責業務_tb.Text : PA18 = DTP1 : PA19 = 備註_tb.Text : PA = 編號_tb.Text
            SQL_客戶資料管理修改() : conn.Close()
        End If
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles 新增一筆空白資料_bt.Click
        存檔1() : 新增1()
        ComboBox1下拉表單資料載入()
        店名_tb.Text = "" : 簡稱_tb.Text = "" : 店面地址_tb.Text = "" : 店面地址郵號_tb.Text = "" : 送貨地址_tb.Text = "" : 負責人_tb.Text = "" : 聯絡人_tb.Text = "" : 電話_tb.Text = ""
        手機_tb.Text = "" : 傳真_tb.Text = "" : 統編_tb.Text = "" : 發票抬頭_tb.Text = "" : 發票地址_tb.Text = "" : 發票地址郵號_tb.Text = "" : 發票額度_tb.Text = "" : LineID_tb.Text = ""
        折扣_tb.Text = "" : 負責業務_tb.Text = "" : 備註_tb.Text = "" : 付款編號_tb.Text = ""
        新增2() : Set_客戶清單()
    End Sub
    Private Sub 單筆存檔_bt_Click(sender As Object, e As EventArgs) Handles 單筆存檔_bt.Click
        If IsNumeric(折扣_tb.Text) And IsNumeric(發票額度_tb.Text) Then
            If 編號_tb.Text = "" Then : 新增1() : 新增2() : End If
            存檔2() : Set_客戶清單() : MsgBox("資料存檔完畢 。")
        Else
            MsgBox("折扣或發票額度不是阿拉伯數字或空白 。")
        End If

    End Sub
    Private Sub 批量存檔_bt_Click(sender As Object, e As EventArgs) Handles 批量存檔_bt.Click
        If 模式二_bt.Enabled = True Then
            MsgBox("整體存檔功能使用前請切換至模式二，並注意清單最後兩排資料的編碼原則，如不熟悉此操作規則請使用模式一作業。")
        Else
            存檔1() : MsgBox("資料存檔完畢 。")
        End If
    End Sub
    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles 只顯示35筆資料_ch.CheckedChanged
        Set_客戶清單()
    End Sub
    '-----------------------------滑鼠右鍵------------------------------------------------------------------------------------------------------------------------------------------
    Private Sub 模式一ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 模式一ToolStripMenuItem.Click
        Me.模式一_bt.PerformClick()
    End Sub
    Private Sub 模式二ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 模式二ToolStripMenuItem.Click
        Me.模式二_bt.PerformClick()
    End Sub
    Private Sub 關鍵字查詢ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 關鍵字查詢ToolStripMenuItem.Click
        Me.關鍵字查詢_bt.PerformClick()
    End Sub
    Private Sub 新增一筆空白資料ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 新增一筆空白資料ToolStripMenuItem.Click
        Me.新增一筆空白資料_bt.PerformClick()
    End Sub
    Private Sub 資料存檔單一筆資料ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 資料存檔單一筆資料ToolStripMenuItem.Click
        Me.單筆存檔_bt.PerformClick()
    End Sub
    Private Sub 資料存檔整體清單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 資料存檔整體清單ToolStripMenuItem.Click
        Me.批量存檔_bt.PerformClick()
    End Sub
    Private Sub 貼上ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 貼上ToolStripMenuItem.Click
        DataGridView1多行列貼上()
    End Sub
    Private Sub 重新讀取清單ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 重新讀取清單ToolStripMenuItem.Click
        Set_客戶清單()
    End Sub
    Private Sub 刪除ToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles 資料刪除ToolStripMenuItem.Click
        Dim aa As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            SQL_客戶資料管理刪除() : conn.Close() : MsgBox("刪除完成") : Set_客戶清單() : PA = ""
        End If
    End Sub
End Class