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 對話框(6) As String
    Private Sub Set_清單()
        Dim ds1 As New DataSet
        清單_dgv.DataSource = Nothing : ds1.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 40 : 清單_dgv.AllowUserToAddRows = False : 清單_dgv.RowTemplate.Height = 45
        If 我開出的_ch.Checked = True Then
            If CInt(登入人級別) <= 3 Then
                SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND 
                               (申請核准 NOT LIKE '作廢%') AND (接收核准 NOT LIKE N'作廢%') "
            ElseIf CInt(登入人級別) <= 5 Then
                SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND 
                               (申請核准 NOT LIKE '作廢%') AND (接收核准 NOT LIKE N'作廢%') AND (申請部門 LIKE N'" & 登入人部門 & "') "
            ElseIf CInt(登入人級別) > 5 Then
                SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND 
                               (申請核准 NOT LIKE '作廢%') AND (接收核准 NOT LIKE N'作廢%') AND (申請人 LIKE N'" & gUserName & "') "
            End If
        Else
            If CInt(登入人級別) <= 3 Then
                SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND 
                               (申請核准 NOT LIKE '作廢%') AND (接收核准 NOT LIKE N'作廢%') AND (接收核准 NOT LIKE '') "
            ElseIf CInt(登入人級別) <= 5 Then
                SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND 
                               (申請核准 NOT LIKE '作廢%') AND (接收核准 NOT LIKE N'作廢%') AND (執行部門 LIKE N'" & 登入人部門 & "') AND (接收核准 NOT LIKE '') "
            ElseIf CInt(登入人級別) > 5 Then
                SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND 
                               (申請核准 NOT LIKE '作廢%') AND (接收核准 NOT LIKE N'作廢%') AND (執行人 LIKE N'" & gUserName & "') AND (接收核准 NOT LIKE '') "
            End If
        End If
        SQL_部門聯絡函一覽表_清單()
        da.Fill(ds1) : 清單_dgv.DataSource = ds1.Tables(0) : conn.Close()

        清單_dgv.Columns(0).FillWeight = 90 : 清單_dgv.Columns(1).FillWeight = 90 : 清單_dgv.Columns(2).FillWeight = 90 : 清單_dgv.Columns(3).FillWeight = 70
        清單_dgv.Columns(4).FillWeight = 90 : 清單_dgv.Columns(5).FillWeight = 90 : 清單_dgv.Columns(6).FillWeight = 311 : 清單_dgv.Columns(7).FillWeight = 50
        清單_dgv.Columns(8).FillWeight = 50 : 清單_dgv.Columns(9).FillWeight = 50
        清單_dgv.Columns(10).Visible = False : 清單_dgv.Columns(11).Visible = False : 清單_dgv.Columns(12).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 聯絡人下拉表單資料載入()
        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_語言()
        語言_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 = "執行部門_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 = "已作業_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 = "讀取資料夾路徑_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 = "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 = "dgv_已作業" Then : 表頭(72) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_已驗收" Then : 表頭(187) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_長期執行" Then : 表頭(5) = 語言_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
        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(904) = True : 介面 = "H904" : 語言轉換讀取()
        驗收確認_bt.Enabled = False : 執行完成_bt.Enabled = True
        聯絡函單號_tb.Enabled = False : 申請部門_tb.Enabled = False : 申請人_tb.Enabled = False : 聯絡函主題_tb.Enabled = False : 控制項_tb.Enabled = False
        已作業_ch.Enabled = False : 已驗收_ch.Enabled = False : 長期執行_ch.Enabled = False
        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 部門聯絡函一覽表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(904) = False : MyModule1.虛擬桌面開啟()
    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 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H904" : 語言轉換讀取() : 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
        執行部門_cb.Text = 清單_dgv(10, e.RowIndex).Value.ToString : 執行人_cb.Text = 清單_dgv(11, e.RowIndex).Value.ToString : 聯絡函主題_tb.Text = 清單_dgv(6, e.RowIndex).Value.ToString
        已作業_ch.Checked = 清單_dgv(7, e.RowIndex).Value.ToString : 已驗收_ch.Checked = 清單_dgv(8, e.RowIndex).Value.ToString : 長期執行_ch.Checked = 清單_dgv(9, e.RowIndex).Value.ToString
        圖片庫_tb.Text = 清單_dgv("圖片庫", e.RowIndex).Value.ToString : Set_聯絡事項() : Set_建議() : Set_擬辦()
        If 給我的_ch.Checked = True Then
            控制項_tb.Text = "接收方" : 已作業_ch.Enabled = True : 已驗收_ch.Enabled = False : 長期執行_ch.Enabled = True : 驗收確認_bt.Enabled = False : 執行完成_bt.Enabled = True
        ElseIf 給我的_ch.Checked = False Then
            控制項_tb.Text = "出單方" : 已作業_ch.Enabled = False : 已驗收_ch.Enabled = True : 長期執行_ch.Enabled = True : 驗收確認_bt.Enabled = True : 執行完成_bt.Enabled = False
        End If : 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 圖片清單讀取()
        圖片_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 執行部門_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
        PA1 = 聯絡函單號_tb.Text : BL1 = 已驗收_ch.Checked : SQL_部門聯絡函一覽表_已驗收() : conn.Close() : PA4 = 申請人_tb.Text : PA5 = 聯絡人_cb.Text
        聯絡函單號_tb.Text = "" : 申請部門_tb.Text = "" : 申請人_tb.Text = "" : 聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = ""
        MsgBox(對話框(1)) : Set_清單() : TabControl1.SelectedIndex = 0
        LINE_權限代號 = "CC250" : 發送對象 = PA5 : 通知變數X = PA4 : 通知變數Y = "驗收確認完成" : LINE_通知模塊()
    End Sub
    Private Sub 執行完成_bt_Click(sender As Object, e As EventArgs) Handles 執行完成_bt.Click
        PA1 = 聯絡函單號_tb.Text : BL1 = 已作業_ch.Checked : BL2 = 長期執行_ch.Checked : SQL_部門聯絡函一覽表_已作業() : conn.Close() : PA4 = 申請人_tb.Text : PA5 = 聯絡人_cb.Text
        聯絡函單號_tb.Text = "" : 申請部門_tb.Text = "" : 申請人_tb.Text = "" : 聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = ""
        MsgBox(對話框(1)) : Set_清單() : TabControl1.SelectedIndex = 0
        LINE_權限代號 = "CC250" : 發送對象 = PA4 : 通知變數X = PA5 : 通知變數Y = "執行完成" : LINE_通知模塊()
    End Sub
    Private Sub 擬辦事項存檔_bt_Click(sender As Object, e As EventArgs) Handles 擬辦事項存檔_bt.Click
        PA1 = 聯絡函單號_tb.Text : PA2 = 擬辦_tb.Text : PA3 = 執行部門_cb.Text : PA4 = 執行人_cb.Text : SQL_部門聯絡函一覽表_擬辦存檔() : conn.Close()
        MsgBox(對話框(2)) : Set_清單()
    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 : 驗收確認_bt.Enabled = False : 執行完成_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 : 驗收確認_bt.Enabled = True : 執行完成_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(對話框(3))
        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(對話框(4)) : Set_聯繫圖片()
                    Else : FTP方式刪除檔案() : MsgBox(對話框(5)) : End If
                Else : MsgBox(對話框(6)) : 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