GCM-LINE-SYS-LEEHSIEHJUI/GCM-LINE-SYS/01.人事系統管理/LINE_帳號綁定.vb

Imports System.Security.Cryptography

Public Class LINE_帳號綁定
    Private Sub Set_未綁定使用者()
        Dim ds1 As New DataSet
        未綁定的系統使用者_dgv.DataSource = Nothing : ds1.Clear()
        未綁定的系統使用者_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        未綁定的系統使用者_dgv.ColumnHeadersHeight = 25 : 未綁定的系統使用者_dgv.AllowUserToAddRows = False : 未綁定的系統使用者_dgv.RowTemplate.Height = 35
        Dim 區域 As String : If 帳號_tb.Text = "全部" Or 帳號_tb.Text = "" Then : 區域 = "%%" : Else : 區域 = 帳號_tb.Text : End If
        SQL_LINE_未綁定使用者清單載入(區域)
        da.Fill(ds1) : 未綁定的系統使用者_dgv.DataSource = ds1.Tables(0) : conn.Close()
        未綁定的系統使用者_dgv.Columns("姓名").ReadOnly = True : 未綁定的系統使用者_dgv.Columns("帳號").Visible = False
    End Sub
    Private Sub Set_未綁定LINEID()
        Dim ds1 As New DataSet
        未綁定的lineid_dgv.DataSource = Nothing : ds1.Clear()
        未綁定的lineid_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        未綁定的lineid_dgv.ColumnHeadersHeight = 25 : 未綁定的lineid_dgv.AllowUserToAddRows = False : 未綁定的lineid_dgv.RowTemplate.Height = 35
        SQL_LINE_未綁定LINEid清單載入()
        da.Fill(ds1) : 未綁定的lineid_dgv.DataSource = ds1.Tables(0) : conn.Close()
        未綁定的lineid_dgv.Columns(0).ReadOnly = True
    End Sub
    Private Sub Set_已綁定使用者()
        Dim ds1 As New DataSet
        已綁定的系統使用者_dgv.DataSource = Nothing : ds1.Clear()
        已綁定的系統使用者_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        已綁定的系統使用者_dgv.ColumnHeadersHeight = 25 : 已綁定的系統使用者_dgv.AllowUserToAddRows = False : 已綁定的系統使用者_dgv.RowTemplate.Height = 35
        Dim 區域 As String : If 帳號_tb.Text = "全部" Or 帳號_tb.Text = "" Then : 區域 = "%%" : Else : 區域 = 帳號_tb.Text : End If
        SQL_LINE_已綁定使用者清單載入(區域)
        da.Fill(ds1) : 已綁定的系統使用者_dgv.DataSource = ds1.Tables(0) : conn.Close()
        已綁定的系統使用者_dgv.Columns("姓名").ReadOnly = True : 已綁定的系統使用者_dgv.Columns("UserID").Visible = False : 已綁定的系統使用者_dgv.Columns("帳號").Visible = False
    End Sub
    Private Sub Set_個人對話明細(user_id As String)
        Dim ds1 As New DataSet
        line個人_dgv.DataSource = Nothing : ds1.Clear()
        line個人_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        line個人_dgv.ColumnHeadersHeight = 25 : line個人_dgv.AllowUserToAddRows = False : line個人_dgv.RowTemplate.Height = 35
        line個人_dgv.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
        SQL_LINE_個人對話紀錄(user_id)
        da.Fill(ds1) : line個人_dgv.DataSource = ds1.Tables(0) : conn.Close()
        line個人_dgv.Columns(0).FillWeight = 100 : line個人_dgv.Columns(1).FillWeight = 300
        For i As Integer = 0 To line個人_dgv.Rows.Count - 1
            Dim 日期 As String = line個人_dgv.Rows(i).Cells("日期").Value.ToString
            Dim parsedDate As DateTime = DateTime.ParseExact(日期.Substring(0, 8), "yyyyMMdd", Nothing)
            line個人_dgv.Rows(i).Cells("日期").Value = parsedDate.ToString("yyyy/MM/dd")
        Next
    End Sub
    Private Sub Set_群組對話明細(user_id As String)
        Dim ds1 As New DataSet
        line群組_dgv.DataSource = Nothing : ds1.Clear()
        line群組_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        line群組_dgv.ColumnHeadersHeight = 25 : line群組_dgv.AllowUserToAddRows = False : line群組_dgv.RowTemplate.Height = 35
        line群組_dgv.AutoSizeRowsMode = DataGridViewAutoSizeRowsMode.AllCells
        SQL_LINE_群組對話紀錄(user_id)
        da.Fill(ds1) : line群組_dgv.DataSource = ds1.Tables(0) : conn.Close()
        line群組_dgv.Columns(0).FillWeight = 100 : line群組_dgv.Columns(1).FillWeight = 300
        For i As Integer = 0 To line群組_dgv.Rows.Count - 1
            Dim 日期 As String = line群組_dgv.Rows(i).Cells("日期").Value.ToString
            Dim parsedDate As DateTime = DateTime.ParseExact(日期.Substring(0, 8), "yyyyMMdd", Nothing)
            line群組_dgv.Rows(i).Cells("日期").Value = parsedDate.ToString("yyyy/MM/dd")
        Next
    End Sub
    Private Sub LINE_帳號綁定_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        If 帳號綁定 = "MCD" Then
            帳號_tb.Text = "MCD" : 帳號_tb.Enabled = False
        Else
            SQL_公司_下拉清單() : 帳號_tb.Items.Clear() : 帳號_tb.Items.Add("全部") : While (dr.Read()) : 帳號_tb.Items.Add(dr("公司名稱")) : End While : conn.Close()
            帳號_tb.Text = "全部" : 帳號_tb.Enabled = True
        End If
        Set_未綁定使用者() : Set_未綁定LINEID() : Set_已綁定使用者()
    End Sub

    Private Sub 未綁定的lineid_dgv_CellClick(sender As Object, e As DataGridViewCellEventArgs) Handles 未綁定的lineid_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            lineid_tb.Text = 未綁定的lineid_dgv.Rows(e.RowIndex).Cells("UserID").Value.ToString
            Set_個人對話明細(lineid_tb.Text) : Set_群組對話明細(lineid_tb.Text)
            已綁定_ch.Checked = False
        End If
    End Sub

    Private Sub 未綁定的系統使用者_dgv_CellClick(sender As Object, e As 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
            已綁定_ch.Checked = False
        End If
    End Sub

    Private Sub 已綁定的系統使用者_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 已綁定的系統使用者_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            使用者_tb.Text = 已綁定的系統使用者_dgv.Rows(e.RowIndex).Cells("姓名").Value.ToString
            lineid_tb.Text = 已綁定的系統使用者_dgv.Rows(e.RowIndex).Cells("UserID").Value.ToString
            區域_tb.Text = 已綁定的系統使用者_dgv.Rows(e.RowIndex).Cells("帳號").Value.ToString
            Set_個人對話明細(lineid_tb.Text) : Set_群組對話明細(lineid_tb.Text)
            已綁定_ch.Checked = True
        End If
    End Sub

    Private Sub 確認綁定_bt_Click(sender As Object, e As EventArgs) Handles 確認綁定_bt.Click
        If 已綁定_ch.Checked Then
            MsgBox("該使用者已綁定過")
        Else
            SQL_LINE_綁定UserID(lineid_tb.Text, 使用者_tb.Text, 區域_tb.Text)
            MsgBox("綁定完成") : Set_未綁定使用者() : Set_未綁定LINEID() : Set_已綁定使用者()
        End If
    End Sub

    Private Sub 解除綁定_bt_Click(sender As Object, e As EventArgs) Handles 解除綁定_bt.Click
        If 已綁定_ch.Checked Then
            SQL_LINE_綁定UserID("", 使用者_tb.Text, 區域_tb.Text)
            MsgBox("已解除綁定完成") : Set_未綁定使用者() : Set_未綁定LINEID() : Set_已綁定使用者()
        Else
            MsgBox("該使用者尚未綁定")
        End If
    End Sub

    Private Sub 帳號_tb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 帳號_tb.SelectedIndexChanged
        Set_未綁定使用者() : Set_未綁定LINEID() : Set_已綁定使用者()
    End Sub
End Class