HX-PGS-ERP-SYS-SIU/07、章程管理系統/部門聯絡函/聯絡函最高主管核准.vb

Option Strict Off
Imports System.IO
Public Class 聯絡函最高主管核准
    Dim RI As Integer = -1
    Dim SK As String = "要查找的 KEY"
    Dim Str As String = Application.StartupPath
    Dim DGVX, 選擇項 As Integer
    Dim 對話框(6), WW(14), WA(14) As String
    Dim 第1段開始, 第2段開始, 第3段開始, 第4段開始 As Boolean
    Private Sub Set_清單()
        Dim ds3 As New DataSet
        清單_dgv.DataSource = Nothing : ds3.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 25 : 清單_dgv.AllowUserToAddRows = False : 清單_dgv.RowTemplate.Height = 45
        If 未審核_ch.Checked = True And 已審核_ch.Checked = False Then
            SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND 
                           (接收核准 NOT LIKE '作廢%') AND (申請核准 LIKE '') AND (申請核准 NOT LIKE '作廢%') "
        Else
            SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND 
                           (接收核准 NOT LIKE '作廢%') AND (申請核准 NOT LIKE '') AND (申請核准 NOT LIKE '作廢%') "
        End If
        SQL_聯絡函最高主管核准_清單()
        da.Fill(ds3) : 清單_dgv.DataSource = ds3.Tables(0) : conn.Close()
        清單_dgv.Columns(0).Visible = False : 清單_dgv.Columns(1).FillWeight = 100 : 清單_dgv.Columns(2).FillWeight = 100 : 清單_dgv.Columns(3).FillWeight = 100
        清單_dgv.Columns(4).FillWeight = 100 : 清單_dgv.Columns(5).FillWeight = 100 : 清單_dgv.Columns(6).FillWeight = 401 : 清單_dgv.Columns(7).Visible = False
        清單_dgv.Columns(8).Visible = False : 清單_dgv.Columns(9).Visible = False : 清單_dgv.Columns("MODE").FillWeight = 150
    End Sub
    Private Sub Set_聯繫圖片()
        If 圖片庫_tb.Text <> "" Then
            Dim ds6 As New DataSet
            圖片清單_dgv.DataSource = Nothing : ds6.Clear()
            圖片清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            圖片清單_dgv.ColumnHeadersHeight = 25 : 圖片清單_dgv.AllowUserToAddRows = False : 圖片清單_dgv.RowTemplate.Height = 25
            圖片庫 = 圖片庫_tb.Text : SQL_連線字串_圖片資料庫()
            SQL_聯絡函圖片()
            da.Fill(ds6) : 圖片清單_dgv.DataSource = ds6.Tables(0) : conn.Close()
            圖片清單_dgv.Columns(0).FillWeight = 80 : 圖片清單_dgv.Columns(0).ReadOnly = True
            If 圖片清單_dgv.Rows.Count > 0 Then : DGVX = 0 : 圖片清單讀取() : Else : 圖片_pb.Image = Nothing : End If
        End If
    End Sub
    Private Sub Set_聯絡事項()
        PA1 = 聯絡函單號_rtb.Text : SQL_部門聯絡函_聯絡事項() : If dr.Read() Then : 聯絡事項_tb.Text = dr("聯絡事項").ToString : End If
    End Sub
    Private Sub Set_建議()
        PA1 = 聯絡函單號_rtb.Text : SQL_部門聯絡函_建議() : If dr.Read() Then : 建議_tb.Text = dr("建議").ToString : End If
    End Sub
    Private Sub Set_擬辦()
        PA1 = 聯絡函單號_rtb.Text : SQL_部門聯絡函_擬辦() : If dr.Read() Then : 擬辦_tb.Text = dr("擬辦").ToString : End If
    End Sub
    Private Sub 聯絡部門下拉表單資料載入()
        SQL_系統使用者管理_下拉清單_部門() : 聯絡部門_cb.Items.Clear() : While (dr.Read()) : 聯絡部門_cb.Items.Add(dr("部門")) : End While : conn.Close()
    End Sub
    Private Sub 執行部門下拉表單資料載入()
        SQL_系統使用者管理_下拉清單_部門() : 執行部門_cb.Items.Clear() : While (dr.Read()) : 執行部門_cb.Items.Add(dr("部門")) : End While : conn.Close()
    End Sub
    Private Sub 聯絡人下拉表單資料載入()
        SQL_部門聯絡函_姓名_下拉清單() : 聯絡人_cb.Items.Clear() : While (dr.Read()) : 聯絡人_cb.Items.Add(dr("姓名")) : End While : conn.Close()
    End Sub
    Private Sub 執行人下拉表單資料載入()
        SQL_部門聯絡函_姓名_下拉清單() : 執行人_cb.Items.Clear() : While (dr.Read()) : 執行人_cb.Items.Add(dr("姓名")) : End While : conn.Close()
    End Sub
    Private Sub Set_日期格式轉換()
        DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
    End Sub
    Private Sub 語言轉換讀取()
        If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
        Me.Text = 系統語言字典("H001-229-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言) : 聯絡函單號_lb.Text = 系統語言字典("H904-133-" & 語言)

        已審核_ch.Text = 系統語言字典("H905-100-" & 語言) : 未審核_ch.Text = 系統語言字典("H905-102-" & 語言) : 聯絡部門_lb.Text = 系統語言字典("H904-134-" & 語言)
        申請人_lb.Text = 系統語言字典("H904-112-" & 語言) : 申請日期_lb.Text = 系統語言字典("H904-113-" & 語言) : 擬辦_lb.Text = 系統語言字典("H904-128-" & 語言)
        申請部門_lb.Text = 系統語言字典("H904-114-" & 語言) : 建議_lb.Text = 系統語言字典("H904-117-" & 語言) : 聯絡人_lb.Text = 系統語言字典("H904-130-" & 語言)
        執行人_lb.Text = 系統語言字典("H904-118-" & 語言) : 執行部門_lb.Text = 系統語言字典("H904-120-" & 語言) : 聯絡事項_lb.Text = 系統語言字典("H904-131-" & 語言)
        聯絡函未准_bt.Text = 系統語言字典("H907-104-" & 語言) : 聯絡函主題_lb.Text = 系統語言字典("H904-132-" & 語言) : 聯絡函核准_bt.Text = 系統語言字典("H907-105-" & 語言)
        部門聯絡函本文_tp.Text = 系統語言字典("H904-121-" & 語言) : 部門聯絡函清單_tp.Text = 系統語言字典("H904-122-" & 語言)

        對話框(1) = 系統語言字典("H907-100-" & 語言) : 對話框(2) = 系統語言字典("H907-101-" & 語言) : 對話框(3) = 系統語言字典("H907-102-" & 語言)
        對話框(4) = 系統語言字典("H907-103-" & 語言) : 對話框(0) = 系統語言字典("G000-195-" & 語言) : 對話框(5) = 系統語言字典("G000-164-" & 語言)
        對話框(6) = 系統語言字典("G000-196-" & 語言)

        表頭(72) = 系統語言字典("H904-100-" & 語言) : 表頭(187) = 系統語言字典("H904-101-" & 語言) : 表頭(117) = 系統語言字典("H904-102-" & 語言) : 表頭(19) = 系統語言字典("H904-103-" & 語言)
        表頭(20) = 系統語言字典("H904-104-" & 語言) : 表頭(6) = 系統語言字典("H904-105-" & 語言) : 表頭(5) = 系統語言字典("H904-106-" & 語言) : 表頭(99) = 系統語言字典("H904-107-" & 語言)
        表頭(4) = 系統語言字典("H904-108-" & 語言) : 表頭(7) = 系統語言字典("H904-109-" & 語言)
    End Sub
    Private Sub 讀取資料夾路徑_rbt_MouseEnter(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_rbt.MouseEnter
        ToolTip1.SetToolTip(Me.讀取資料夾路徑_rbt, 對話框(6))
    End Sub
    Private Sub 圖檔入系統_rbt_MouseEnter(sender As Object, e As EventArgs) Handles 圖檔入系統_rbt.MouseEnter
        ToolTip1.SetToolTip(Me.圖檔入系統_rbt, 對話框(5))
    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(907) = True : 介面 = "H907" : 語言轉換讀取() : 風格() : 顯示說明(999, False) : 視窗2_pl.Visible = False
        聯絡函單號_rtb.Enabled = False : 申請部門_rtb.Enabled = False : 申請人_rtb.Enabled = False : 聯絡函主題_tb.Enabled = False
        MyMod.清單字體大小調整()
        圖片清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
        清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 部門聯絡函部門主管審核_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        聯絡部門下拉表單資料載入() : 執行部門下拉表單資料載入() : Set_清單()
    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)
        清單_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(907) = False : MyMod.虛擬桌面開啟()
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H907" : 語言轉換讀取() : Set_清單()
    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 DataGridViewCellEventArgs) Handles 清單_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 選擇項 = e.RowIndex : 清單選擇() : End If
    End Sub
    Private Sub 清單選擇()
        聯絡函單號_rtb.Text = 清單_dgv(0, 選擇項).Value.ToString : 申請部門_rtb.Text = 清單_dgv(1, 選擇項).Value.ToString : 申請人_rtb.Text = 清單_dgv(2, 選擇項).Value.ToString
        申請日期_dtp.Value = 清單_dgv(3, 選擇項).Value : 聯絡部門_cb.Text = 清單_dgv(4, 選擇項).Value.ToString : 聯絡人_cb.Text = 清單_dgv(5, 選擇項).Value.ToString
        聯絡函主題_tb.Text = 清單_dgv(6, 選擇項).Value.ToString : 執行部門_cb.Text = 清單_dgv(4, 選擇項).Value.ToString
        If 聯絡函主題_tb.Text.Contains("請假申請") Then : 請假刪除_bt.Enabled = True : Else : 請假刪除_bt.Enabled = False : End If
        圖片庫_tb.Text = 清單_dgv("圖片庫", 選擇項).Value.ToString : Set_聯絡事項() : Set_建議() : Set_擬辦() : TabControl1.SelectedIndex = 1 : Set_聯繫圖片()
    End Sub
    Private Sub 圖片清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片清單_dgv.CellClick
        If e.RowIndex = -1 Then : Else : DGVX = e.RowIndex : 圖片清單讀取() : End If
    End Sub
    Private Sub 圖片清單讀取()
        If 圖片庫_tb.Text <> "" Then
            圖片_pb.Image = Nothing
            PA1 = 聯絡函單號_rtb.Text : 圖片庫 = 圖片庫_tb.Text : SQL_連線字串_圖片資料庫() : PA2 = 圖片清單_dgv.Rows(DGVX).Cells("Item").Value
            If 圖片清單_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
                SQL_聯絡函圖片讀取()
                While dr.Read() = True
                    Dim unused As Byte() = New Byte(-1) {}
                    Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
                    Dim oStream As New MemoryStream(bytes)
                    圖片_pb.Image = Bitmap.FromStream(oStream)
                End While
                conn.Close() : 圖片_pb.SizeMode = 4
            Else : 圖片_pb.Image = My.Resources.PDF : 圖片_pb.SizeMode = 4 : End If
        End If
    End Sub
    Private Sub 聯絡部門_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 聯絡部門_cb.SelectedIndexChanged
        PA1 = 聯絡部門_cb.Text : 聯絡人下拉表單資料載入()
    End Sub
    Private Sub 執行部門_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 執行部門_cb.SelectedIndexChanged
        PA1 = 執行部門_cb.Text : 執行人下拉表單資料載入()
    End Sub
    Private Sub 聯絡函核准_bt_Click(sender As Object, e As EventArgs) Handles 聯絡函核准_bt.Click
        Set_日期格式轉換() : PA1 = 聯絡函單號_rtb.Text : SQL_聯絡函最高主管核准_審核() : conn.Close()
        聯絡函單號_rtb.Text = "" : 申請部門_rtb.Text = "" : 申請人_rtb.Text = "" : 聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = ""
        MGB(對話框(1), 1) : Set_清單() : TabControl1.SelectedIndex = 0
    End Sub
    Private Sub 聯絡函未准_bt_Click(sender As Object, e As EventArgs) Handles 聯絡函未准_bt.Click
        Set_日期格式轉換() : PA1 = 聯絡函單號_rtb.Text : SQL_聯絡函最高主管核准_未准() : conn.Close()
        聯絡函單號_rtb.Text = "" : 申請部門_rtb.Text = "" : 申請人_rtb.Text = "" : 聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = ""
        MGB(對話框(2), 1) : Set_清單() : TabControl1.SelectedIndex = 0
    End Sub
    Private Sub 讀取資料夾路徑_rbt_Click(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_rbt.Click
        If OpenFileDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
            If OpenFileDialog1.FileNames.Length > 9 Then : MGB(對話框(0), 1) : Else
                For i As Integer = 0 To 8 : WW(i) = "" : WA(i) = "" : Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB" & i + 1, True)(0), PictureBox) : 選擇.Image = Nothing : Next
                NU1 = OpenFileDialog1.FileNames.Length - 1
                For i As Integer = 0 To OpenFileDialog1.FileNames.Length - 1 : WW(i) = OpenFileDialog1.FileNames(i) : Next
                For i As Integer = 0 To NU1
                    Dim 驗證 As String = "" : Dim 取變數 As String : 取變數 = Strings.StrReverse(WW(i))
                    For ii As Integer = 1 To 10
                        If ii = 1 Then : 驗證 = Strings.Left(取變數, ii) : Else
                            If Strings.Mid(取變數, ii, 1) = "." Then : 驗證 = Strings.StrReverse(驗證) : Exit For : Else : 驗證 &= Strings.Mid(取變數, ii, 1) : End If
                        End If
                    Next
                    If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or
                           驗證 = "JPEG" Or 驗證 = "jpeg" Then : WA(i) = "JPG"
                        Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB" & i + 1, True)(0), PictureBox) : 選擇.Image = Image.FromFile(WW(i)) : 選擇.SizeMode = 4
                    ElseIf 驗證 = "PDF" Or 驗證 = "pdf" Then : WA(i) = "PDF"
                        Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB" & i + 1, True)(0), PictureBox) : 選擇.Image = My.Resources.PDF : 選擇.SizeMode = 4
                    Else : WW(i) = "" : WA(i) = "" : End If
                Next
            End If
        End If
    End Sub
    Private Sub 物料圖_pb_Click(sender As Object, e As EventArgs) Handles 圖片_pb.Click
        If 圖片清單_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
            If IsNothing(圖片_pb.Image) = False Then : 圖片傳遞 = 圖片_pb.Image : 圖片放大視窗.ShowDialog() : End If
        Else
            PA1 = 聯絡函單號_rtb.Text : 圖片庫 = 圖片庫_tb.Text : SQL_連線字串_圖片資料庫() : PA2 = 圖片清單_dgv.Rows(DGVX).Cells("Item").Value
            Dim Str As String = Application.StartupPath : Dim ds1 As New DataSet : ds1.Clear() : SQL_聯絡函圖片讀取1() : da.Fill(ds1)
            If ds1.Tables(0).Rows.Count > 0 Then
                Dim imgData() As Byte : imgData = ds1.Tables(0).Rows(0).Item("圖片")
                Dim fs As FileStream : fs = File.Create(Str + "\" & PA2 & ".pdf", imgData.Length - 1)
                fs.Write(imgData, 0, imgData.Length - 1) : fs.Close()
            End If : conn.Close() : PDF路徑 = Str + "\" & PA2 & ".pdf" : PDF預覽.ShowDialog()
        End If
    End Sub
    Private Sub 未審核_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 未審核_ch.Click
        未審核_ch.Checked = True : 已審核_ch.Checked = False : Set_清單()
        聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = "" : 聯絡函單號_rtb.Text = ""
    End Sub
    Private Sub 已審核_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 已審核_ch.Click
        未審核_ch.Checked = False : 已審核_ch.Checked = True : Set_清單()
        聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = "" : 聯絡函單號_rtb.Text = ""
    End Sub
    Private Sub 圖檔入系統_rbt_Click(sender As Object, e As EventArgs) Handles 圖檔入系統_rbt.Click
        If 聯絡函單號_rtb.Text = "" Then : MGB(對話框(3), 1) : Else
            PA1 = 聯絡函單號_rtb.Text : 圖片庫 = 圖片庫_tb.Text : SQL_連線字串_圖片資料庫()
            MyMod.計算顯示2() : MyMod.進度條1()
            For i As Integer = 0 To NU1
                MyMod.計算顯示2() : MyMod.進度條1()
                If WW(i) = "" Then : Else
                    Dim 文件號 As String : Dim 文件編號 As Integer : SQL_聯絡函圖片最後一筆編號查詢()
                    If dr.Read() Then : 文件編號 = Double.Parse(Strings.Right(dr("項次").ToString, 2)) : Else : 文件編號 = 0 : End If : conn.Close()
                    文件編號 += 1 : If 文件編號 < 10 Then : 文件號 = "IM" & "0" & 文件編號 : ElseIf 文件編號 > 9 Then : 文件號 = "IM" & 文件編號 : End If
                    PA2 = 文件號 : PA49 = WW(i) : PA3 = WA(i) : SQL_聯絡函圖片入系統()
                End If
            Next
            For i As Integer = 0 To 8 : WW(i) = "" : Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB" & i + 1, True)(0), PictureBox) : 選擇.Image = Nothing : Next
            Set_聯繫圖片() : MyMod.計算顯示3() : MGB(對話框(4), 1)
        End If
    End Sub
    Private Sub 順時鐘90度旋轉_bt_Click(sender As Object, e As EventArgs) Handles 順時鐘90度旋轉_bt.Click
        圖片_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 圖片_pb.Refresh() : 圖片_pb.SizeMode = 4
    End Sub
    Private Sub 逆時鐘90度旋轉_bt_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度旋轉_bt.Click
        圖片_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 圖片_pb.Refresh() : 圖片_pb.SizeMode = 4
    End Sub
    Private Sub 水平翻轉_bt_Click(sender As Object, e As EventArgs) Handles 水平翻轉_bt.Click
        圖片_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 圖片_pb.Refresh() : 圖片_pb.SizeMode = 4
    End Sub
    Private Sub 垂直翻轉_bt_Click(sender As Object, e As EventArgs) Handles 垂直翻轉_bt.Click
        圖片_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 圖片_pb.Refresh() : 圖片_pb.SizeMode = 4
    End Sub
    Private Sub 圖檔入系統_bt_Click(sender As Object, e As EventArgs) Handles 圖檔入系統_bt.Click
        If 視窗2_pl.Visible = False Then
            視窗2_pl.Location = New System.Drawing.Point((Me.Size.Width - 視窗2_pl.Size.Width) / 2, (Me.Size.Height - 視窗2_pl.Size.Height) / 2)
            視窗2_pl.Visible = True : 視窗2_pl.BringToFront()
        Else : 視窗2_pl.Visible = False : End If
    End Sub
    Private Sub CanceL2_bt_Click(sender As Object, e As EventArgs) Handles CanceL2_bt.Click
        If 視窗2_pl.Visible = False Then : 視窗2_pl.Visible = True : 視窗2_pl.BringToFront() : Else : 視窗2_pl.Visible = False : End If
    End Sub
    Private Sub 翻譯_rbt_Click(sender As Object, e As EventArgs) Handles 翻譯_rbt.Click
        If 聯絡函主題_tb.Text = "" Then : Else : 資料數 = 30 : MyMod.進度條()
            翻譯 = 聯絡函主題_tb.Text : MyModule2.執行翻譯() : 第1段開始 = True : 第2段開始 = False : 等待翻譯_tim.Enabled = True
        End If
    End Sub
    Private Sub 等待翻譯_tim_Tick(sender As Object, e As EventArgs) Handles 等待翻譯_tim.Tick
        MyMod.進度條()
        If 第1段開始 = True Then : MyMod.進度條()
            If 聯絡函主題_tb.Text <> "" Then
                Dim Str2 As String = System.Windows.Forms.Application.StartupPath : Dim stringReader As String : Dim fileReader As StreamReader
                If File.Exists("ch.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                    聯絡函主題_tb.Text = stringReader : fileReader.Close()
                ElseIf File.Exists(Str2 & "\ch.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                    聯絡函主題_tb.Text = stringReader : fileReader.Close()
                End If
                If File.Exists("in.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                    If 聯絡函主題_tb.Text = "" Then : 聯絡函主題_tb.Text = stringReader : Else : 聯絡函主題_tb.Text = 聯絡函主題_tb.Text & vbCrLf & stringReader : End If
                    fileReader.Close()
                ElseIf File.Exists(Str2 & "\in.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                    If 聯絡函主題_tb.Text = "" Then : 聯絡函主題_tb.Text = stringReader : Else : 聯絡函主題_tb.Text = 聯絡函主題_tb.Text & vbCrLf & stringReader : End If
                    fileReader.Close()
                End If
                第1段開始 = False : 第2段開始 = True : 翻譯 = 聯絡事項_tb.Text : MyModule2.執行翻譯()
            Else : 第1段開始 = False : 第2段開始 = True : 翻譯 = 聯絡事項_tb.Text : MyModule2.執行翻譯() : End If
        Else : 第1段開始 = False : 第2段開始 = True : 翻譯 = 聯絡事項_tb.Text : MyModule2.執行翻譯() : End If
        If 第2段開始 = True Then : MyMod.進度條()
            If 聯絡事項_tb.Text <> "" Then
                Dim Str2 As String = System.Windows.Forms.Application.StartupPath : Dim stringReader As String : Dim fileReader As StreamReader
                If File.Exists("ch.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                    聯絡事項_tb.Text = stringReader : fileReader.Close()
                ElseIf File.Exists(Str2 & "\ch.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                    聯絡事項_tb.Text = stringReader : fileReader.Close()
                End If
                If File.Exists("in.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                    If 聯絡事項_tb.Text = "" Then : 聯絡事項_tb.Text = stringReader : Else : 聯絡事項_tb.Text = 聯絡事項_tb.Text & vbCrLf & vbCrLf & stringReader : End If
                    fileReader.Close()
                ElseIf File.Exists(Str2 & "\in.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                    If 聯絡事項_tb.Text = "" Then : 聯絡事項_tb.Text = stringReader : Else : 聯絡事項_tb.Text = 聯絡事項_tb.Text & vbCrLf & vbCrLf & stringReader : End If
                    fileReader.Close()
                End If
                第2段開始 = False : 第3段開始 = True : 翻譯 = 建議_tb.Text : MyModule2.執行翻譯()
            Else : 第2段開始 = False : 第3段開始 = True : 翻譯 = 建議_tb.Text : MyModule2.執行翻譯() : End If
        Else : 第2段開始 = False : 第3段開始 = True : 翻譯 = 建議_tb.Text : MyModule2.執行翻譯() : End If
        If 第3段開始 = True Then : MyMod.進度條()
            If 建議_tb.Text <> "" Then
                Dim Str2 As String = System.Windows.Forms.Application.StartupPath : Dim stringReader As String : Dim fileReader As StreamReader
                If File.Exists("ch.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                    建議_tb.Text = stringReader : fileReader.Close()
                ElseIf File.Exists(Str2 & "\ch.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                    建議_tb.Text = stringReader : fileReader.Close()
                End If
                If File.Exists("in.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                    If 建議_tb.Text = "" Then : 建議_tb.Text = stringReader : Else : 建議_tb.Text = 建議_tb.Text & vbCrLf & vbCrLf & stringReader : End If
                    fileReader.Close()
                ElseIf File.Exists(Str2 & "\in.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                    If 建議_tb.Text = "" Then : 建議_tb.Text = stringReader : Else : 建議_tb.Text = 建議_tb.Text & vbCrLf & vbCrLf & stringReader : End If
                    fileReader.Close()
                End If
                第3段開始 = False : 第4段開始 = True : 翻譯 = 擬辦_tb.Text : MyModule2.執行翻譯()
            Else : 第3段開始 = False : 第4段開始 = True : 翻譯 = 擬辦_tb.Text : MyModule2.執行翻譯() : End If
        Else : 第3段開始 = False : 第4段開始 = True : 翻譯 = 擬辦_tb.Text : MyModule2.執行翻譯() : End If
        If 第4段開始 = True Then : MyMod.進度條()
            If 擬辦_tb.Text <> "" Then
                Dim Str2 As String = System.Windows.Forms.Application.StartupPath : Dim stringReader As String : Dim fileReader As StreamReader
                If File.Exists("ch.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                    擬辦_tb.Text = stringReader : fileReader.Close()
                ElseIf File.Exists(Str2 & "\ch.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                    擬辦_tb.Text = stringReader : fileReader.Close()
                End If
                If File.Exists("in.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                    If 擬辦_tb.Text = "" Then : 擬辦_tb.Text = stringReader : Else : 擬辦_tb.Text = 擬辦_tb.Text & vbCrLf & vbCrLf & stringReader : End If
                    fileReader.Close()
                ElseIf File.Exists(Str2 & "\in.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                    If 擬辦_tb.Text = "" Then : 擬辦_tb.Text = stringReader : Else : 擬辦_tb.Text = 擬辦_tb.Text & vbCrLf & vbCrLf & stringReader : End If
                    fileReader.Close()
                End If
            Else : End If
        Else : End If
        第4段開始 = False : 等待翻譯_tim.Enabled = False : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
    End Sub
    Private Sub 上移2_bt_Click(sender As Object, e As EventArgs) Handles 上移2_bt.Click
        If IsNothing(選擇項) Then : Else
            If 選擇項 <= 0 Then : Else
                選擇項 = CInt(選擇項) - 1 : 清單選擇() : 清單_dgv.CurrentCell = 清單_dgv.Rows(選擇項).Cells(6)
            End If
        End If
    End Sub
    Private Sub 下移2_bt_Click(sender As Object, e As EventArgs) Handles 下移2_bt.Click
        If IsNothing(選擇項) Then : Else
            If CInt(選擇項) >= 清單_dgv.Rows.Count - 1 Then : Else
                選擇項 = CInt(選擇項) + 1 : 清單選擇() : 清單_dgv.CurrentCell = 清單_dgv.Rows(選擇項).Cells(6)
            End If
        End If
    End Sub
    Private Sub 請假刪除_bt_Click(sender As Object, e As EventArgs) Handles 請假刪除_bt.Click
        MGB("確定要刪除該筆請假資料?", 2)
        If 訊息回應 = "YES" Then
            SQL_查詢時間與ID卡號(聯絡函單號_rtb.Text)
            If dr.Read() Then
                Dim 人員, 天數, ID卡號 As String
                Dim 日期, 開始日期 As Date
                人員 = dr(1).ToString : 開始日期 = dr(2).ToString : 天數 = dr(4).ToString : ID卡號 = dr(5).ToString
                For i As Integer = 0 To CInt(天數) - 1
                    日期 = 開始日期.AddDays(i)
                    SQL_聯絡函最高主管審核_修改考勤(ID卡號, Strings.Format(日期, "yyyy/MM/dd"))
                Next
                SQL_聯絡函最高主管審核_刪除(聯絡函單號_rtb.Text) : Set_清單() : TabControl1.SelectedIndex = 0
            End If


        End If
    End Sub
    '----------------------自創視窗滑鼠拖曳功能---------------------------------------------------------------------------------------------------------
    Dim OldX, OldY As Long
    Dim drag As Boolean
    Private Sub 視窗2_pl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseDown
        If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If
    End Sub
    Private Sub 視窗2_pl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseMove
        If drag Then : 視窗2_pl.Left = 視窗2_pl.Left + e.X - OldX : 視窗2_pl.Top = 視窗2_pl.Top + e.Y - OldY : End If
    End Sub
    Private Sub 視窗2_pl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseUp
        drag = False
    End Sub

    Private Sub 風格()
        If 深色風格 = False Then
            'Me.BackColor = Color.Linen
            部門聯絡函本文_tp.BackColor = SystemColors.Control : 部門聯絡函清單_tp.BackColor = SystemColors.Control : 視窗2_pl.BackColor = Color.White : Panel3.BackColor = Color.White
            聯絡函單號_lb.ForeColor = Color.Black : 申請部門_lb.ForeColor = Color.Black : 聯絡部門_lb.ForeColor = Color.Black : 執行人_lb.ForeColor = Color.Black
            聯絡函主題_lb.ForeColor = Color.Black : 申請日期_lb.ForeColor = Color.Black : 申請人_lb.ForeColor = Color.Black : 聯絡人_lb.ForeColor = Color.Black
            聯絡事項_lb.ForeColor = Color.Black : 建議_lb.ForeColor = Color.Black : 擬辦_lb.ForeColor = Color.Black : 執行部門_lb.ForeColor = Color.Black
            Label16.ForeColor = Color.Black

            未審核_ch.ForeColor = Color.Red : 已審核_ch.ForeColor = Color.Red
            圖檔入系統_bt.BackColor = Color.White : 翻譯_rbt.BackColor = Color.White

            聯絡函主題_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
            執行部門_cb.BackColor = Color.White : 執行部門_cb.ForeColor = Color.Black : 聯絡人_cb.BackColor = Color.White : 聯絡人_cb.ForeColor = Color.Black
            聯絡人_cb.BackColor = Color.White : 聯絡人_cb.ForeColor = Color.Black : 執行人_cb.BackColor = Color.White : 執行人_cb.ForeColor = Color.Black
            聯絡部門_cb.BackColor = Color.White : 聯絡部門_cb.ForeColor = Color.Black : 聯絡函核准_bt.BackColor = Color.White : 聯絡函核准_bt.ForeColor = Color.Green
            聯絡函未准_bt.BackColor = Color.White : 聯絡函未准_bt.ForeColor = Color.Red

            清單_dgv.EnableHeadersVisualStyles = True : 清單_dgv.BackgroundColor = Color.White : 清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            清單_dgv.DefaultCellStyle.BackColor = Color.White : 清單_dgv.DefaultCellStyle.ForeColor = Color.Black
            圖片清單_dgv.EnableHeadersVisualStyles = True : 圖片清單_dgv.BackgroundColor = Color.White : 圖片清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
            圖片清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.White
            圖片清單_dgv.DefaultCellStyle.BackColor = Color.White : 圖片清單_dgv.DefaultCellStyle.ForeColor = Color.Black
        Else
            'Me.BackColor = Color.Black
            部門聯絡函本文_tp.BackColor = Color.Black : 部門聯絡函清單_tp.BackColor = Color.Black : 視窗2_pl.BackColor = Color.White : Panel3.BackColor = Color.White
            聯絡函單號_lb.ForeColor = Color.White : 申請部門_lb.ForeColor = Color.White : 聯絡部門_lb.ForeColor = Color.White : 執行人_lb.ForeColor = Color.White
            聯絡函主題_lb.ForeColor = Color.White : 申請日期_lb.ForeColor = Color.White : 申請人_lb.ForeColor = Color.White : 聯絡人_lb.ForeColor = Color.White
            聯絡事項_lb.ForeColor = Color.White : 建議_lb.ForeColor = Color.White : 擬辦_lb.ForeColor = Color.White : 執行部門_lb.ForeColor = Color.White
            Label16.ForeColor = Color.White

            未審核_ch.ForeColor = Color.LightPink : 已審核_ch.ForeColor = Color.LightPink
            圖檔入系統_bt.BackColor = Color.DimGray : 翻譯_rbt.BackColor = Color.DimGray

            聯絡函主題_tb.BackColor = Color.Black : 聯絡函主題_tb.ForeColor = Color.White : 聯絡事項_tb.BackColor = Color.Black : 聯絡事項_tb.ForeColor = Color.White
            建議_tb.BackColor = Color.Black : 建議_tb.ForeColor = Color.White : 擬辦_tb.BackColor = Color.Black : 擬辦_tb.ForeColor = Color.White
            執行部門_cb.BackColor = Color.DimGray : 執行部門_cb.ForeColor = Color.White : 聯絡人_cb.BackColor = Color.DimGray : 聯絡人_cb.ForeColor = Color.White
            聯絡人_cb.BackColor = Color.DimGray : 聯絡人_cb.ForeColor = Color.White : 執行人_cb.BackColor = Color.DimGray : 執行人_cb.ForeColor = Color.White
            聯絡部門_cb.BackColor = Color.DimGray : 聯絡部門_cb.ForeColor = Color.White : 聯絡函核准_bt.BackColor = Color.DimGray : 聯絡函核准_bt.ForeColor = Color.LightGreen
            聯絡函未准_bt.BackColor = Color.DimGray : 聯絡函未准_bt.ForeColor = Color.LightPink

            清單_dgv.EnableHeadersVisualStyles = False : 清單_dgv.BackgroundColor = Color.Black : 清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.Black
            清單_dgv.DefaultCellStyle.BackColor = Color.Black : 清單_dgv.DefaultCellStyle.ForeColor = Color.White
            圖片清單_dgv.EnableHeadersVisualStyles = False : 圖片清單_dgv.BackgroundColor = Color.Black : 圖片清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
            圖片清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 圖片清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.Black
            圖片清單_dgv.DefaultCellStyle.BackColor = Color.Black : 圖片清單_dgv.DefaultCellStyle.ForeColor = Color.White
        End If
    End Sub
End Class