GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/07、章程管理系統/部門聯絡函/部門聯絡函申請.vb

Option Strict Off
Imports System.Net
Imports System.IO
Public Class 部門聯絡函申請
    ReadOnly ds8 As New DataSet
    Dim 圖片資料庫指定 As String
    Dim DGVX As Integer
    ReadOnly 對話框(10) As String
    Private Sub Set_清單()
        Dim ds1 As New DataSet
        清單_dgv.DataSource = Nothing : ds1.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 35 : 清單_dgv.AllowUserToAddRows = False : 清單_dgv.RowTemplate.Height = 45
        If CInt(登入人級別) <= 3 Then
            If 未審核_ch.Checked = True And 已審核_ch.Checked = False And 主管作廢_ch.Checked = False And 老闆作廢_ch.Checked = False Then
                SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 LIKE N'') AND (審核人 NOT LIKE N'作廢%') "
            ElseIf 未審核_ch.Checked = False And 已審核_ch.Checked = True And 主管作廢_ch.Checked = False And 老闆作廢_ch.Checked = False Then
                SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND 
                               (申請核准 LIKE '') AND (申請核准 NOT LIKE '作廢%') "
            ElseIf 未審核_ch.Checked = False And 已審核_ch.Checked = False And 主管作廢_ch.Checked = True And 老闆作廢_ch.Checked = False Then
                SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 LIKE N'作廢%') "
            ElseIf 未審核_ch.Checked = False And 已審核_ch.Checked = False And 主管作廢_ch.Checked = False And 老闆作廢_ch.Checked = True Then
                SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND (申請核准 LIKE '作廢%') "
            End If
        Else
            If 未審核_ch.Checked = True And 已審核_ch.Checked = False And 主管作廢_ch.Checked = False And 老闆作廢_ch.Checked = False Then
                SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND (申請部門 LIKE N'" & 登入人部門 & "') "
            ElseIf 未審核_ch.Checked = False And 已審核_ch.Checked = True And 主管作廢_ch.Checked = False And 老闆作廢_ch.Checked = False Then
                SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND (申請核准 LIKE '') AND 
                               (申請核准 NOT LIKE '作廢%')  AND (申請部門 LIKE N'" & 登入人部門 & "') "
            ElseIf 未審核_ch.Checked = False And 已審核_ch.Checked = False And 主管作廢_ch.Checked = True And 老闆作廢_ch.Checked = False Then
                SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 LIKE N'作廢%') AND (申請部門 LIKE N'" & 登入人部門 & "')"
            ElseIf 未審核_ch.Checked = False And 已審核_ch.Checked = False And 主管作廢_ch.Checked = False And 老闆作廢_ch.Checked = True Then
                SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND (申請核准 LIKE '作廢%') AND 
                               (申請部門 LIKE N'" & 登入人部門 & "')"
            End If
        End If
        SQL_部門聯絡函_清單()
        da.Fill(ds1) : 清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單_dgv.Columns(0).FillWeight = 80 : 清單_dgv.Columns(1).FillWeight = 100 : 清單_dgv.Columns(2).FillWeight = 100 : 清單_dgv.Columns(3).FillWeight = 80
        清單_dgv.Columns(4).FillWeight = 100 : 清單_dgv.Columns(5).FillWeight = 100 : 清單_dgv.Columns(6).FillWeight = 400 : 清單_dgv.Columns(7).Visible = False
    End Sub
    Private Sub Set_聯繫圖片()
        Dim ds6 As New DataSet
        圖片清單_dgv.DataSource = Nothing : ds6.Clear()
        圖片清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        圖片清單_dgv.ColumnHeadersHeight = 25 : 圖片清單_dgv.AllowUserToAddRows = False : 圖片清單_dgv.RowTemplate.Height = 45
        圖片庫 = 圖片庫_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
        Dim mycol As DataGridViewImageColumn = 圖片清單_dgv.Columns("IMG")
        mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
    End Sub
    Private Sub Set_聯絡事項()
        PA1 = 聯絡函單號_tb.Text : SQL_部門聯絡函_聯絡事項() : If dr.Read() Then : 聯絡事項_tb.Text = dr("聯絡事項").ToString : End If
    End Sub
    Private Sub Set_建議()
        PA1 = 聯絡函單號_tb.Text : SQL_部門聯絡函_建議() : If dr.Read() Then : 建議_tb.Text = dr("建議").ToString : End If
    End Sub
    Private Sub Set_擬辦()
        PA1 = 聯絡函單號_tb.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 Set_日期格式轉換()
        DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
    End Sub
    Private Sub Set_語言()
        語言_dgv.DataSource = Nothing : ds8.Clear()
        語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25
        語言_dgv.AllowUserToAddRows = False
        SQL_系統語言導入()
        da.Fill(ds8) : 語言_dgv.DataSource = ds8.Tables(0) : conn.Close()
    End Sub
    Private Sub 語言轉換讀取()
        Set_語言() : conn.Close()
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1
            If 語言_dgv("控件", i).Value.ToString = "部門聯絡函申請" Then : Me.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "部門聯絡函本文_tp" Then : 部門聯絡函本文_tp.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "部門聯絡函清單_tp" Then : 部門聯絡函清單_tp.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "聯絡函單號_lb" Then : 聯絡函單號_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "申請日期_lb" Then : 申請日期_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "申請部門_lb" Then : 申請部門_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "聯絡部門_lb" Then : 聯絡部門_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "申請人_lb" Then : 申請人_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "聯絡人_lb" Then : 聯絡人_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "聯絡函主題_lb" Then : 聯絡函主題_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "聯絡事項_lb" Then : 聯絡事項_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "建議_lb" Then : 建議_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "擬辦_lb" Then : 擬辦_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "電腦_lb" Then : 電腦_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "伺服器FTP文件夾_lb" Then : 伺服器FTP文件夾_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "開立聯絡函_bt" Then : 開立聯絡函_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "修改_bt" Then : 修改_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "修改存檔_bt" Then : 修改存檔_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "申請完成_bt" Then : 申請完成_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "刪除_bt" Then : 刪除_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "讀取資料夾路徑_bt" Then : 讀取資料夾路徑_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "圖檔入系統_bt" Then : 圖檔入系統_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "未審核_ch" Then : 未審核_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "已審核_ch" Then : 已審核_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "主管作廢_ch" Then : 主管作廢_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "老闆作廢_ch" Then : 老闆作廢_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_單號" Then : 表頭(99) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_申請部門" Then : 表頭(6) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_申請人" Then : 表頭(19) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_申請日期" Then : 表頭(20) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_聯絡部門" Then : 表頭(7) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_聯絡人" Then : 表頭(4) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_主旨" Then : 表頭(117) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框1" Then : 對話框(0) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框2" Then : 對話框(1) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框3" Then : 對話框(2) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框4" Then : 對話框(3) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框5" Then : 對話框(4) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框6" Then : 對話框(5) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框7" Then : 對話框(6) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框8" Then : 對話框(7) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框9" Then : 對話框(8) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框10" Then : 對話框(9) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框11" Then : 對話框(10) = 語言_dgv("內容", i).Value.ToString : End If
        Next
    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(905) = True : 介面 = "H905" : 語言轉換讀取()
        申請完成_bt.Enabled = False : 修改_bt.Enabled = False : 修改存檔_bt.Enabled = False : 刪除_bt.Enabled = False
        聯絡函單號_tb.Enabled = False : 申請部門_tb.Enabled = False : 申請人_tb.Enabled = False : Me.KeyPreview = True
        修改_bt.Enabled = True : 刪除_bt.Enabled = True
        MyModule1.清單字體大小調整()
        圖片清單_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
        SQL_圖片資料庫查詢() : If dr.Read() Then : 圖片資料庫指定 = dr("工程圖片資料庫") : Else : MsgBox(對話框(0)) : Me.Close() : End If
        部門下拉表單資料載入() : Set_清單()
        本機_wb.Navigate(My.Computer.FileSystem.SpecialDirectories.Desktop)
        Target1 = Target & AA(2) & "/"
        伺服器_wb.Url = New Uri(Target1)
    End Sub
    Private Sub 部門聯絡函申請_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        MyModule1.清單字體大小調整()
        圖片清單_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 Form_KeyDown(sender As Object, e As KeyEventArgs) Handles Me.KeyDown
        If e.Control And e.KeyCode = Keys.S Then : 修改_bt.PerformClick() : 修改存檔_bt.PerformClick() : End If
    End Sub
    Private Sub 部門聯絡函申請_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(905) = False : MyModule1.虛擬桌面開啟() : Me.KeyPreview = True
        If 申請完成_bt.Enabled = True Then : PA1 = 聯絡函單號_tb.Text : SQL_部門聯絡函_刪除() : conn.Close() : End If
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H905" : 語言轉換讀取() : 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
        聯絡函單號_tb.Text = 清單_dgv(0, e.RowIndex).Value.ToString : 申請部門_tb.Text = 清單_dgv(1, e.RowIndex).Value.ToString : 申請人_tb.Text = 清單_dgv(2, e.RowIndex).Value.ToString
        申請日期_dtp.Value = 清單_dgv(3, e.RowIndex).Value : 部門_cb.Text = 清單_dgv(4, e.RowIndex).Value.ToString : 聯絡人_cb.Text = 清單_dgv(5, e.RowIndex).Value.ToString
        聯絡函主題_tb.Text = 清單_dgv(6, e.RowIndex).Value.ToString : 圖片庫_tb.Text = 清單_dgv("圖片庫", e.RowIndex).Value.ToString
        Set_聯絡事項() : Set_擬辦() : Set_建議() : TabControl1.SelectedIndex = 0 : 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 圖片清單讀取()
        圖片_pb.Image = Nothing
        PA1 = 聯絡函單號_tb.Text : 圖片庫 = 圖片庫_tb.Text : SQL_連線字串_圖片資料庫() : PA2 = 圖片清單_dgv.Rows(DGVX).Cells("Item").Value
        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
    End Sub
    Private Sub 部門_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 部門_cb.SelectedIndexChanged
        PA1 = 部門_cb.Text : 姓名下拉表單資料載入()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 開立聯絡函_bt.Click
        開立聯絡函_bt.Enabled = False : 申請完成_bt.Enabled = True
        Set_日期格式轉換() : Dim NUM1 As Integer
        For i As Integer = 1 To 999
            NUM1 = 0 + i
            If NUM1 < 10 Then : 聯絡函單號_tb.Text = "LI-" & DTP1 & "-00" & NUM1
            ElseIf NUM1 > 9 And NUM1 < 100 Then : 聯絡函單號_tb.Text = "LI-" & DTP1 & "-0" & NUM1
            ElseIf NUM1 > 99 Then : 聯絡函單號_tb.Text = "LI-" & DTP1 & "-" & NUM1 : End If
            PA1 = 聯絡函單號_tb.Text : SQL_部門聯絡函_單號查詢()
            If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
        Next
        PA2 = 部門_cb.Text : PA3 = 聯絡人_cb.Text : PA20 = 圖片資料庫指定
        SQL_部門聯絡函_新增()
        申請部門_tb.Text = 登入人部門 : 申請人_tb.Text = gUserName : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = "" : conn.Close()
        Set_聯絡事項() : Set_擬辦() : Set_建議() : 部門下拉表單資料載入() : 聯絡人_cb.Items.Clear()
    End Sub
    Private Sub 申請完成_bt_Click(sender As Object, e As EventArgs) Handles 申請完成_bt.Click
        If 部門_cb.Text = "" Or 聯絡人_cb.Text = "" Or 聯絡函主題_tb.Text = "" Or 聯絡事項_tb.Text = "" Then : MsgBox(對話框(1)) : Else
            開立聯絡函_bt.Enabled = True : 申請完成_bt.Enabled = False : Dim 直接通過 As Boolean = False
            PA1 = 聯絡函單號_tb.Text : PA2 = 部門_cb.Text : PA3 = 部門_cb.Text : PA4 = 聯絡人_cb.Text : PA5 = 聯絡函主題_tb.Text : PA6 = 聯絡事項_tb.Text : PA7 = 申請人_tb.Text
            SQL_部門聯絡函_修改聯絡事項() : conn.Close()
            If CInt(登入人級別) <= 5 Then
                Dim aa As MsgBoxResult = MsgBox(對話框(2), MsgBoxStyle.OkCancel)
                If aa = MsgBoxResult.Ok Then : 直接通過 = True
                    Set_日期格式轉換() : PA1 = 聯絡函單號_tb.Text : PA2 = 建議_tb.Text : SQL_部門聯絡函部門主管審核_外發審核() : conn.Close()
                End If
            End If
            聯絡函單號_tb.Text = "" : 申請部門_tb.Text = "" : 申請人_tb.Text = "" : 聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = ""
            建議_tb.Text = "" : 擬辦_tb.Text = ""
            If 直接通過 = True Then : MsgBox(對話框(3)) : Else : MsgBox(對話框(4)) : End If
            Set_清單() : TabControl1.SelectedIndex = 1
        End If
        LINE_權限代號 = "CC248" : 發送對象 = PA4 : 通知變數X = PA7 : 通知變數Y = "三日內" : LINE_通知模塊()
    End Sub
    Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        修改_bt.Enabled = False : 修改存檔_bt.Enabled = True
    End Sub
    Private Sub 修改存檔_bt_Click(sender As Object, e As EventArgs) Handles 修改存檔_bt.Click
        If 聯絡函主題_tb.Text = "" Or 聯絡事項_tb.Text = "" Then : MsgBox(對話框(1)) : Else
            修改_bt.Enabled = True : 修改存檔_bt.Enabled = False
            PA1 = 聯絡函單號_tb.Text : PA2 = 部門_cb.Text : PA4 = 聯絡人_cb.Text : PA5 = 聯絡函主題_tb.Text : PA6 = 聯絡事項_tb.Text
            SQL_部門聯絡函_修改存檔() : conn.Close() : MsgBox(對話框(5)) : Set_清單()
        End If
    End Sub
    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        Dim aa As MsgBoxResult = MsgBox(對話框(6), MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            PA1 = 聯絡函單號_tb.Text : SQL_部門聯絡函_刪除() : conn.Close()
            聯絡函單號_tb.Text = "" : 申請部門_tb.Text = "" : 申請人_tb.Text = "" : 聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = ""
        End If : Set_清單() : TabControl1.SelectedIndex = 1
    End Sub
    Private Sub 讀取資料夾路徑_bt_Click(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_bt.Click
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            本機_wb.Navigate(FolderBrowserDialog1.SelectedPath)
        End If
    End Sub
    Private Sub 物料圖_pb_Click(sender As Object, e As EventArgs) Handles 圖片_pb.Click
        If IsNothing(圖片_pb.Image) = False Then
            圖片傳遞 = 圖片_pb.Image : 圖片放大視窗.ShowDialog()
        End If
    End Sub
    Private Sub 未審核_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 未審核_ch.Click
        未審核_ch.Checked = True : 已審核_ch.Checked = False : 主管作廢_ch.Checked = False : 老闆作廢_ch.Checked = False : 修改_bt.Enabled = True : 刪除_bt.Enabled = True : Set_清單()
        聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = "" : 聯絡函單號_tb.Text = ""
    End Sub
    Private Sub 已審核_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 已審核_ch.Click
        未審核_ch.Checked = False : 已審核_ch.Checked = True : 主管作廢_ch.Checked = False : 老闆作廢_ch.Checked = False : 修改_bt.Enabled = False : 刪除_bt.Enabled = False : Set_清單()
        聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = "" : 聯絡函單號_tb.Text = ""
    End Sub
    Private Sub 主管作廢_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 主管作廢_ch.Click
        未審核_ch.Checked = False : 已審核_ch.Checked = False : 主管作廢_ch.Checked = True : 老闆作廢_ch.Checked = False : 修改_bt.Enabled = False : 刪除_bt.Enabled = False : Set_清單()
        聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = "" : 聯絡函單號_tb.Text = ""
    End Sub
    Private Sub 老闆作廢_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 老闆作廢_ch.Click
        未審核_ch.Checked = False : 已審核_ch.Checked = False : 主管作廢_ch.Checked = False : 老闆作廢_ch.Checked = True : 修改_bt.Enabled = False : 刪除_bt.Enabled = False : Set_清單()
        聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = "" : 聯絡函單號_tb.Text = ""
    End Sub
    Private Sub 圖檔入系統_bt_Click(sender As Object, e As EventArgs) Handles 圖檔入系統_bt.Click
        If 聯絡函單號_tb.Text = "" Then
            MsgBox(對話框(7))
        Else
            '-------------判斷FTP資料夾中是否有該文件--------------------------------------------------------------------------------------------------------
            Dim ftpclient As System.Net.FtpWebRequest = System.Net.FtpWebRequest.Create(New System.Uri(Target1 & 檔案名稱_tb.Text & 副檔名_tb.Text))
            ftpclient.UseBinary = True
            ftpclient.Credentials = New System.Net.NetworkCredential(FTP帳號, FTP密碼)
            ftpclient.Method = System.Net.WebRequestMethods.Ftp.ListDirectoryDetails
            ftpclient.KeepAlive = False
            Dim ftpresponse As System.Net.FtpWebResponse
            Try
                ftpresponse = CType(ftpclient.GetResponse, System.Net.FtpWebResponse)
                Console.WriteLine(ftpresponse.StatusCode.ToString + " " + ftpresponse.StatusDescription)
                Dim content(1024) As Byte : Dim index_a As Integer = 0
                index_a = ftpresponse.GetResponseStream.Read(content, 0, content.Length)
                Dim contentstring As String = String.Empty
                While index_a > 0
                    index_a = ftpresponse.GetResponseStream.Read(content, 0, content.Length) : contentstring += System.Text.Encoding.UTF8.GetString(content)
                End While
                ftpresponse.Close()
                If contentstring.LastIndexOf(檔案名稱_tb.Text & 副檔名_tb.Text) > 0 Then
                    Dim 驗證 As String = "" : Dim 取變數 As String : 取變數 = Strings.StrReverse(檔案名稱_tb.Text & 副檔名_tb.Text)
                    For i As Integer = 1 To 10
                        If i = 1 Then : 驗證 = Strings.Left(取變數, i) : Else
                            If Strings.Mid(取變數, i, 1) = "." Then : 驗證 = Strings.StrReverse(驗證) : Exit For : Else : 驗證 &= Strings.Mid(取變數, i, 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
                        PA1 = 聯絡函單號_tb.Text : 圖片庫 = 圖片庫_tb.Text : SQL_連線字串_圖片資料庫()
                        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 = 文件號 : PA3 = 檔案名稱_tb.Text : PA4 = 副檔名_tb.Text
                        SQL_聯絡函圖片入系統() : FTP方式刪除檔案() : MsgBox(對話框(8)) : Set_聯繫圖片()
                    Else : FTP方式刪除檔案() : MsgBox(對話框(9)) : End If
                Else : MsgBox(對話框(10)) : End If
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
        End If
    End Sub
    Private Sub FTP方式刪除檔案()
        '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
        Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
        frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text & 副檔名_tb.Text)), FtpWebRequest)
        fcr = New NetworkCredential(FTP帳號, FTP密碼)
        frq.Credentials = fcr
        frq.Method = WebRequestMethods.Ftp.DeleteFile
        frq.UseBinary = True
        frp = CType(frq.GetResponse, FtpWebResponse)
        frp.Close()
        伺服器_wb.Refresh()
        '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
        檔案名稱_tb.Text = "" : 副檔名_tb.Text = ""
    End Sub
    Private Sub 檔案名稱_tb_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
        If e.Data.GetDataPresent(DataFormats.FileDrop) Then : Dim files As String()
            Try
                files = CType(e.Data.GetData(DataFormats.FileDrop), String()) : 檔案名稱_tb.Text = files(files.Length - 1)
            Catch ex As Exception
                MessageBox.Show(ex.Message)
                Return
            End Try
        End If

        '-------確認檔案是圖片---------------------------------------------------------------------------------------------------------------
        Dim 驗證 As String = "" : Dim 取變數 As String : 取變數 = Strings.StrReverse(檔案名稱_tb.Text)
        For i As Integer = 1 To 10
            If i = 1 Then : 驗證 = Strings.Left(取變數, i) : Else
                If Strings.Mid(取變數, i, 1) = "." Then : 驗證 = Strings.StrReverse(驗證) : Exit For : Else : 驗證 &= Strings.Mid(取變數, i, 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
            圖片_pb.Image = Image.FromFile(檔案名稱_tb.Text)
        End If

        Dim STR2 As Integer = 0 : 檔案路徑_tb.Text = 檔案名稱_tb.Text
        If 檔案名稱_tb.Text = "" Then : Else
            For i As Integer = 0 To 9999 : Dim STR1 As Integer = Strings.Len(檔案路徑_tb.Text)
                If Strings.Right((檔案路徑_tb.Text), 1) <> "\" Then : STR1 -= 1 : STR2 += 1
                    If STR1 = 0 Then : 檔案路徑_tb.Text = "" : 檔案名稱_tb.Text = "" : i = 9999
                    Else : 檔案路徑_tb.Text = Strings.Left((檔案路徑_tb.Text), STR1) : End If
                Else : 檔案路徑_tb.Text = Strings.Right((檔案名稱_tb.Text), STR2) : 檔案名稱_tb.Text = 檔案路徑_tb.Text : i = 9999 : End If
            Next
        End If
        '-------取得副檔名---------------------------------------------------------------------------------------------------------------
        For I As Integer = 1 To 99 : 副檔名_tb.Text = Strings.Mid(Strings.StrReverse(檔案名稱_tb.Text), I, 1)
            If 副檔名_tb.Text = "." Then : 副檔名_tb.Text = Strings.StrReverse(Strings.Left(Strings.StrReverse(檔案名稱_tb.Text), I)) : I = 99 : End If
        Next
        '-------取得檔名---------------------------------------------------------------------------------------------------------------
        Dim 檔名 As String : Dim 檔名長度 As Integer
        For I As Integer = 1 To 99 : 檔名 = Strings.Mid(Strings.StrReverse(檔案名稱_tb.Text), I, 1)
            If 檔名 = "." Then
                檔名長度 = Len(檔案名稱_tb.Text) - I
                檔案名稱_tb.Text = Strings.Left(檔案名稱_tb.Text, 檔名長度) : I = 99
            End If
        Next
    End Sub
    Private Sub 檔案名稱_tb_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles 檔案名稱_tb.DragDrop
        Dim files As Array = e.Data.GetData(DataFormats.FileDrop)
        For Each file As String In files
            檔案名稱_tb.AppendText(file + Environment.NewLine)
        Next
    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
End Class