GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/06.業務管理系統/連動模組.vb

Public Class 連動模組
    ReadOnly ds As New DataSet
    Private CallingPage As String
    Private Sub 連動模組_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Set_清單()
        買入車主名稱_tb.Text = "" : 流水號_tb.Text = ""
        買入車主電話_tb.Text = "" : 買入車主地址_tb.Text = ""
        車號_tb.Text = "" : 群組編號_tb.Text = ""
        If 廟 = True Then
            Label7.Text = "信徒名稱" : 車號_tb.Visible = False : label.Visible = False : 群組編號_tb.Visible = True : Label1.Visible = True : 修改_bt.Visible = False
            加入_bt.Visible = True
        Else
            Label7.Text = "客戶名稱" : 車號_tb.Visible = True : label.Visible = True : 群組編號_tb.Visible = False : Label1.Visible = False : 修改_bt.Visible = True
            加入_bt.Visible = False
        End If
    End Sub
    ' 呼叫頁面的名稱
    Public Sub SetCallingPage(pageName As String)
        CallingPage = pageName
    End Sub
    Private Sub Set_清單()
        人員表_dgv.DataSource = Nothing : ds.Clear()
        人員表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        人員表_dgv.ColumnHeadersHeight = 25
        人員表_dgv.AllowUserToAddRows = False
        人員表_dgv.RowTemplate.Height = 30

        SQL_連動模組_人員清單()
        da.Fill(ds) : 人員表_dgv.DataSource = ds.Tables(0)
        人員表_dgv.Columns(2).FillWeight = 150 : 人員表_dgv.Columns(3).FillWeight = 150 : 人員表_dgv.Columns(4).FillWeight = 350 : 人員表_dgv.Columns(5).FillWeight = 150
        人員表_dgv.Columns(0).Visible = False : 人員表_dgv.Columns(8).Visible = False
        If 廟 = True Then
            人員表_dgv.Columns(5).Visible = False : 人員表_dgv.Columns(1).FillWeight = 150 : 人員表_dgv.Columns(6).FillWeight = 50 : 人員表_dgv.Columns(7).FillWeight = 50
        Else
            人員表_dgv.Columns(5).FillWeight = 150 : 人員表_dgv.Columns(1).Visible = False : 人員表_dgv.Columns(6).Visible = False : 人員表_dgv.Columns(7).Visible = False
        End If
    End Sub
    Private Sub 人員表_dgv_CellDoubleClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 人員表_dgv.CellDoubleClick
        If e.RowIndex = -1 Then : Else
            Dim selectedData As String = 人員表_dgv.Rows(e.RowIndex).Cells(2).Value.ToString()
            Dim selectedData1 As String = 人員表_dgv.Rows(e.RowIndex).Cells(3).Value.ToString()
            Dim selectedData2 As String = 人員表_dgv.Rows(e.RowIndex).Cells(4).Value.ToString()
            Dim selectedData3 As String = 人員表_dgv.Rows(e.RowIndex).Cells(5).Value.ToString()
            Dim selectedData4 As String = 人員表_dgv.Rows(e.RowIndex).Cells(1).Value.ToString()
            Dim selectedData5 As String = 人員表_dgv.Rows(e.RowIndex).Cells(6).Value.ToString()
            Dim selectedData6 As String = 人員表_dgv.Rows(e.RowIndex).Cells(7).Value.ToString()
            Dim selectedData7 As String = 人員表_dgv.Rows(e.RowIndex).Cells(8).Value.ToString()
            Select Case CallingPage
                Case "車輛銷售管理"
                    車輛銷售管理.ReceiveDataFromPageB(selectedData, selectedData1, selectedData2, selectedData3, selectedData7)
                Case "點燈系統"
                    點燈系統.ReceiveDataFromPageB(selectedData, selectedData1, selectedData2, selectedData4)
                Case "信眾燈位編輯"
                    信眾燈位編輯.ReceiveDataFromPageB(selectedData, selectedData5, selectedData6, selectedData4)
                Case "燈位基本資料"
                    PA10 = selectedData4 : PA11 = selectedData
            End Select

            Me.Close()
        End If
    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(2, e.RowIndex).Value.ToString : 流水號_tb.Text = 人員表_dgv(0, e.RowIndex).Value.ToString
            買入車主電話_tb.Text = 人員表_dgv(3, e.RowIndex).Value.ToString : 買入車主地址_tb.Text = 人員表_dgv(4, e.RowIndex).Value.ToString
            車號_tb.Text = 人員表_dgv(5, e.RowIndex).Value.ToString : 群組編號_tb.Text = 人員表_dgv(1, e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        CHB("請輸入要查詢的客戶資料。") : PA57 = 訊息回應 : Set_清單() : PA57 = ""
    End Sub

    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        SQL_連動模組_修改客戶資料() : Set_清單()
    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_Click(sender As Object, e As EventArgs) Handles 加入_bt.Click
        快速加入.ShowDialog() : 快速加入.BringToFront()
    End Sub

    Public Sub ReceiveDataFromPageB(ByVal data As String)
        PA57 = data : Set_清單() : PA57 = ""
    End Sub
End Class