GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/07、章程管理系統/會議記錄/會議記錄.vb

Imports System.Net
Imports System.IO
Public Class 會議記錄
    ReadOnly ds8 As New DataSet
    Dim 圖片資料庫指定 As String
    Dim DGVX As Integer
    ReadOnly 對話框(12) As String
    Dim 第1段開始, 第2段開始, 第3段開始, 第4段開始, 第5段開始, 第6段開始, 判斷, 放大 As Boolean
    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
        If 已完成資料顯示_ch.Checked = False Then : SQL2 = " WHERE 已完成 = 0 " : Else : SQL2 = "" : End If
        SQL_會議記錄清單()
        da.Fill(ds6) : 會議記錄表_dgv.DataSource = ds6.Tables(0) : conn.Close()
        會議記錄表_dgv.Columns(0).Visible = False : 會議記錄表_dgv.Columns(2).Visible = False : 會議記錄表_dgv.Columns(4).Visible = False : 會議記錄表_dgv.Columns(11).Visible = False
        會議記錄表_dgv.Columns(1).FillWeight = 60 : 會議記錄表_dgv.Columns(3).FillWeight = 180 : 會議記錄表_dgv.Columns(8).FillWeight = 80
        會議記錄表_dgv.Columns(9).FillWeight = 40 : 會議記錄表_dgv.Columns(10).FillWeight = 40
        For i As Integer = 0 To 11 : 會議記錄表_dgv.Columns(i).ReadOnly = True : Next
    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
        SQL_會議決議執行人()
        da.Fill(ds6) : 執行人_dgv.DataSource = ds6.Tables(0) : conn.Close()
        執行人_dgv.Columns(0).Visible = False : 執行人_dgv.Columns(1).FillWeight = 40
        For i As Integer = 0 To 1 : 執行人_dgv.Columns(i).ReadOnly = True : Next
    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
        If 圖片庫_tb.Text = "" Then : 圖片庫 = 圖片資料庫指定 : Else : 圖片庫 = 圖片庫_tb.Text : End If
        SQL_連線字串_圖片資料庫()
        SQL_會議圖片()
        da.Fill(ds6) : 圖片清單_dgv.DataSource = ds6.Tables(0) : conn.Close()
        圖片清單_dgv.Columns(0).ReadOnly = True
        If 圖片清單_dgv.Rows.Count > 0 Then : DGVX = 0 : 圖片清單讀取() : Else : 圖片_pb.Image = Nothing : End If
    End Sub
    Private Sub 地點下拉表單資料載入()
        SQL_會議記錄_會議地點() : 地點_cb.Items.Clear() : 地點_cb.Items.Add("") : While (dr.Read()) : 地點_cb.Items.Add(dr("地點")) : End While : conn.Close()
    End Sub
    Private Sub 姓名下拉表單資料載入()
        PA1 = "%%" : SQL_會議記錄_姓名_下拉清單() : 執行人_cb.Items.Clear() : 執行人_cb.Items.Add("") : 執行人_cb.Items.Add("全員 / Setiap Orang")
        While (dr.Read()) : 執行人_cb.Items.Add(dr("姓名")) : End While : conn.Close()
    End Sub
    Private Sub 執行時間下拉表單資料載入()
        執行時間_cb.Items.Clear() : SQL_會議記錄_執行時間_下拉清單() : 執行時間_cb.Items.Add("")
        While (dr.Read()) : 執行時間_cb.Items.Add(dr("執行時間")) : End While : conn.Close()
    End Sub
    Private Sub 預計完成下拉表單資料載入()
        預計完成_cb.Items.Clear() : SQL_會議記錄_預計完成_下拉清單() : 執行時間_cb.Items.Add("")
        While (dr.Read()) : 預計完成_cb.Items.Add(dr("預計完成")) : End While : conn.Close()
    End Sub
    Private Sub 執行情況下拉表單資料載入()
        執行情況_cb.Items.Clear() : SQL_會議記錄_執行情況_下拉清單() : 執行情況_cb.Items.Add("")
        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 = "電腦_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 = "細項說明_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 = "新建執行人_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 = "dgv_會議日期" Then : 表頭(116) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_會議項目" Then : 表頭(155) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_執行時間" Then : 表頭(10) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_執行情況" Then : 表頭(17) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_預計完成" Then : 表頭(3) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_備註" Then : 表頭(14) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "dgv_已完成" Then : 表頭(159) = 語言_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
            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
            If 語言_dgv("控件", i).Value.ToString = "對話框12" Then : 對話框(11) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框13" Then : 對話框(12) = 語言_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(902) = True : 介面 = "H902" : 語言轉換讀取()
        If CInt(登入人級別) <= 5 Then
            新建議題_bt.Enabled = True : 存檔_bt.Enabled = True : 刪除_tb.Enabled = True : 新建執行人_bt.Enabled = True : 刪除執行人_bt.Enabled = True : 圖檔入系統_bt.Enabled = True
        Else
            新建議題_bt.Enabled = False : 存檔_bt.Enabled = False : 刪除_tb.Enabled = False : 新建執行人_bt.Enabled = False : 刪除執行人_bt.Enabled = False : 圖檔入系統_bt.Enabled = False
        End If
        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 會議記錄_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(902) = False : MyModule1.虛擬桌面開啟()
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H902" : 語言轉換讀取() : 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
            會議編號_tb.Text = 會議記錄表_dgv("會議編號", e.RowIndex).Value.ToString : 地點_cb.Text = 會議記錄表_dgv("地點", e.RowIndex).Value.ToString
            會議項目_tb.Text = 會議記錄表_dgv(表頭(155), e.RowIndex).Value.ToString : 會議日期_dtp.Value = 會議記錄表_dgv(表頭(116), e.RowIndex).Value.ToString
            細項說明_tb.Text = 會議記錄表_dgv("細項說明", e.RowIndex).Value.ToString : 執行時間_cb.Text = 會議記錄表_dgv(表頭(10), e.RowIndex).Value.ToString
            預計完成_cb.Text = 會議記錄表_dgv(表頭(3), e.RowIndex).Value.ToString : 執行情況_cb.Text = 會議記錄表_dgv(表頭(17), e.RowIndex).Value.ToString
            備註_tb.Text = 會議記錄表_dgv(表頭(14), e.RowIndex).Value.ToString : 已完成_ch.Checked = 會議記錄表_dgv(表頭(159), e.RowIndex).Value
            長期執行_ch.Checked = 會議記錄表_dgv(表頭(5), e.RowIndex).Value : 圖片庫_tb.Text = 會議記錄表_dgv("圖片庫", e.RowIndex).Value.ToString
            PA1 = 會議編號_tb.Text : 圖片_pb.Image = Nothing : Set_會議執行() : Set_會議圖片() : If 放大 = True Then : 縮放_bt.PerformClick() : End If
        End If
    End Sub
    Private Sub 執行人_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 執行人_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 執行人_cb.Text = 執行人_dgv("執行人", e.RowIndex).Value.ToString : End If
    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 會議記錄表_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 會議記錄表_dgv.RowPostPaint
        Dim linePen As New Pen(Color.Blue, 2)
        If e.RowIndex = 會議記錄表_dgv.Rows.Count - 1 Then : Exit Sub : Else
            If 會議記錄表_dgv(表頭(116), e.RowIndex).Value.ToString <> 會議記錄表_dgv(表頭(116), e.RowIndex + 1).Value.ToString Then
                Dim startX As Integer = IIf(會議記錄表_dgv.RowHeadersVisible, 會議記錄表_dgv.RowHeadersWidth, 0)
                Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
                Dim endX As Integer = startX + 會議記錄表_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 會議記錄表_dgv.HorizontalScrollingOffset
                e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
                Exit Sub
            End If
        End If
    End Sub
    Private Sub 預計完成_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 預計完成_cb.SelectedIndexChanged
        If 預計完成_cb.Text = "已完成 / Selesai" Then : 已完成_ch.Checked = True : Else : 已完成_ch.Checked = False : End If
    End Sub
    Private Sub Set_日期格式轉換()
        DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
    End Sub
    Private Sub 新建議題_bt_Click(sender As Object, e As EventArgs) Handles 新建議題_bt.Click
        Dim 跳過 As Boolean : Dim DD As Integer
        會議日期_dtp.Value = Today
        DD = Weekday(會議日期_dtp.Value)
        If DD = 6 Then : Else
            If DD >= 2 Or DD <= 5 Then
                會議日期_dtp.Value = 會議日期_dtp.Value.AddDays(6 - DD)
            ElseIf DD = 1 Then
                會議日期_dtp.Value = 會議日期_dtp.Value.AddDays(6 + DD)
            ElseIf DD = 7 Then
                會議日期_dtp.Value = 會議日期_dtp.Value.AddDays(6)
            End If
        End If
        If 會議項目_tb.Text <> "" Then
            Dim aa1 As MsgBoxResult = MsgBox(對話框(1), MsgBoxStyle.OkCancel)
            If aa1 = MsgBoxResult.Ok Then : 跳過 = False : Else : 跳過 = True : End If
        Else : 跳過 = False : End If
        If 跳過 = False Then
            會議項目_tb.Text = "" : 細項說明_tb.Text = "" : 執行時間_cb.Text = "" : 執行情況_cb.Text = "" : 預計完成_cb.Text = ""
            備註_tb.Text = "" : 執行人_cb.Text = "" : 已完成_ch.Checked = False : 長期執行_ch.Checked = False
            執行人_dgv.DataSource = Nothing : If 放大 = True Then : 縮放_bt.PerformClick() : End If
            Set_日期格式轉換() : Dim NUM1 As Integer
            For i As Integer = 1 To 999
                NUM1 = 0 + i
                If NUM1 < 10 Then : 會議編號_tb.Text = "MT-" & DTP1 & "-00" & NUM1
                ElseIf NUM1 > 9 And NUM1 < 100 Then : 會議編號_tb.Text = "MT-" & DTP1 & "-0" & NUM1
                ElseIf NUM1 > 99 Then : 會議編號_tb.Text = "MT-" & DTP1 & "-" & NUM1 : End If
                PA1 = 會議編號_tb.Text : SQL_會議記錄_單號查詢()
                If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
            Next
        End If
    End Sub
    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        If 地點_cb.Text = "" Then : MsgBox(對話框(2)) : Else
            If 會議項目_tb.Text = "" Then : MsgBox(對話框(3)) : Else
                If 執行時間_cb.Text = "" Then : MsgBox(對話框(4)) : Else
                    If 會議編號_tb.Text = "" Then : MsgBox(對話框(5)) : Else
                        PA1 = 會議編號_tb.Text : PA2 = Strings.Format(會議日期_dtp.Value, "yyyy/MM/dd") : PA3 = 地點_cb.Text : PA4 = 會議項目_tb.Text : PA5 = 細項說明_tb.Text
                        PA6 = 執行時間_cb.Text : PA7 = 執行情況_cb.Text : PA8 = 預計完成_cb.Text : PA9 = 備註_tb.Text : BL1 = 已完成_ch.Checked : BL2 = 長期執行_ch.Checked
                        PA10 = 圖片資料庫指定
                        SQL_會議記錄_單號查詢()
                        If dr.Read() Then
                            Dim aa1 As MsgBoxResult = MsgBox(對話框(6), MsgBoxStyle.OkCancel)
                            If aa1 = MsgBoxResult.Ok Then : SQL_會議記錄修改() : End If
                        Else : SQL_會議記錄新增() : End If : conn.Close() : Set_會議記錄()
                    End If
                End If
            End If
        End If : If 放大 = True Then : 縮放_bt.PerformClick() : End If
    End Sub
    Private Sub 刪除_tb_Click(sender As Object, e As EventArgs) Handles 刪除_tb.Click
        If 會議編號_tb.Text = "" Then : MsgBox(對話框(7)) : Else
            Dim aa1 As MsgBoxResult = MsgBox(對話框(8), MsgBoxStyle.OkCancel)
            If aa1 = MsgBoxResult.Ok Then : PA1 = 會議編號_tb.Text : 圖片庫 = 圖片庫_tb.Text : SQL_連線字串_圖片資料庫() : SQL_會議記錄刪除() : End If
        End If
        If 放大 = True Then : 縮放_bt.PerformClick() : End If
    End Sub
    Private Sub 新建執行人_bt_Click(sender As Object, e As EventArgs) Handles 新建執行人_bt.Click
        If 會議編號_tb.Text = "" Then : MsgBox(對話框(7)) : Else
            If 執行人_cb.Text = "" Then : MsgBox(對話框(9)) : Else
                PA1 = 會議編號_tb.Text : PA3 = 執行人_cb.Text : Dim 編號 As String : Dim NUM1 As Integer
                For i As Integer = 1 To 999
                    NUM1 = 0 + i
                    If NUM1 < 10 Then : 編號 = "00" & NUM1
                    ElseIf NUM1 > 9 And NUM1 < 100 Then : 編號 = "0" & NUM1
                    ElseIf NUM1 > 99 Then : 編號 = NUM1 : End If
                    PA2 = 編號 : SQL_會議決議執行人_單號查詢()
                    If dr.Read() Then : Else : i = 999 : conn.Close() : End If : conn.Close()
                Next
                SQL_會議決議執行人新增() : PA1 = 會議編號_tb.Text : Set_會議執行() : Set_會議圖片()
            End If
        End If
    End Sub
    Private Sub 刪除執行人_bt_Click(sender As Object, e As EventArgs) Handles 刪除執行人_bt.Click
        If 會議編號_tb.Text = "" Then : MsgBox(對話框(7)) : Else
            If 執行人_cb.Text = "" Then : MsgBox(對話框(9)) : Else
                Dim aa1 As MsgBoxResult = MsgBox(對話框(8), MsgBoxStyle.OkCancel)
                If aa1 = MsgBoxResult.Ok Then
                    PA1 = 會議編號_tb.Text : PA3 = 執行人_cb.Text : SQL_會議決議執行人刪除() : PA1 = 會議編號_tb.Text : Set_會議執行() : Set_會議圖片()
                End If
            End If
        End If
    End Sub
    Private Sub 已完成資料顯示_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 已完成資料顯示_ch.CheckedChanged
        Set_會議記錄()
    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 讀取資料夾路徑_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 檔案名稱_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 縮放_bt_Click(sender As Object, e As EventArgs) Handles 縮放_bt.Click
        Dim NX, NY As Integer : NX = Panel3.Size.Width : NY = Panel3.Size.Height
        If 放大 = True Then : Panel3.Size = New Point(NX - 400, NY) : 放大 = False
        Else : Panel3.Size = New Point(NX + 400, NY) : 放大 = True : End If
    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 = 文件號 : SQL_會議圖片入系統() : FTP方式刪除檔案() : MsgBox(對話框(10)) : Set_會議圖片()
                    Else
                        FTP方式刪除檔案() : MsgBox(對話框(11))
                    End If
                Else : MsgBox(對話框(12)) : 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 翻譯_bt_Click(sender As Object, e As EventArgs) Handles 翻譯_bt.Click
        If 會議項目_tb.Text = "" Then : Else
            資料數 = 30 : MyModule1.進度條()
            翻譯 = 會議項目_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
        MyModule1.進度條()
        If 第1段開始 = True Then : MyModule1.進度條()
            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() : 第1段開始 = False : 第2段開始 = True : 翻譯 = 細項說明_tb.Text : MyModule2.執行翻譯()
                ElseIf File.Exists(Str2 & "\ch.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                    會議項目_tb.Text = stringReader : fileReader.Close() : 第1段開始 = False : 第2段開始 = True : 翻譯 = 細項說明_tb.Text : MyModule2.執行翻譯()
                End If
            Else : 第1段開始 = False : 第2段開始 = True : 翻譯 = 細項說明_tb.Text : MyModule2.執行翻譯() : End If
        Else : 第1段開始 = False : 第2段開始 = True : 翻譯 = 細項說明_tb.Text : MyModule2.執行翻譯() : End If
        If 第2段開始 = True Then : MyModule1.進度條()
            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() : 第2段開始 = False : 第3段開始 = True : 翻譯 = 備註_tb.Text : MyModule2.執行翻譯()
                ElseIf File.Exists(Str2 & "\ch.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                    細項說明_tb.Text = stringReader : fileReader.Close() : 第2段開始 = False : 第3段開始 = True : 翻譯 = 備註_tb.Text : MyModule2.執行翻譯()
                End If
            Else : 第2段開始 = False : 第3段開始 = True : 翻譯 = 備註_tb.Text : MyModule2.執行翻譯() : End If
        Else : 第2段開始 = False : 第3段開始 = True : 翻譯 = 備註_tb.Text : MyModule2.執行翻譯() : End If
        If 第3段開始 = True Then : MyModule1.進度條()
            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() : 第3段開始 = False : 第4段開始 = True : 翻譯 = 執行時間_cb.Text : MyModule2.執行翻譯()
                ElseIf File.Exists(Str2 & "\ch.txt") Then
                    fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                    備註_tb.Text = stringReader : fileReader.Close() : 第3段開始 = False : 第4段開始 = True : 翻譯 = 執行時間_cb.Text : MyModule2.執行翻譯()
                End If
            Else : 第3段開始 = False : 第4段開始 = True : 翻譯 = 執行時間_cb.Text : MyModule2.執行翻譯() : End If
        Else : 第3段開始 = False : 第4段開始 = True : 翻譯 = 執行時間_cb.Text : MyModule2.執行翻譯() : End If
        If 第4段開始 = True Then : MyModule1.進度條()
            If 執行時間_cb.Text <> "" Then
                For i = 1 To Len(執行時間_cb.Text)
                    If Mid(執行時間_cb.Text, i, 1) = "/" Then : 判斷 = False : Exit For : Else : 判斷 = True : End If
                Next
                If 判斷 = True 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()
                        執行時間_cb.Text = stringReader : fileReader.Close()
                        fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                        執行時間_cb.Text = 執行時間_cb.Text & " / " & stringReader : fileReader.Close()
                        第4段開始 = False : 第5段開始 = True : 翻譯 = 預計完成_cb.Text : MyModule2.執行翻譯()
                    ElseIf File.Exists(Str2 & "\ch.txt") Then
                        fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                        執行時間_cb.Text = stringReader : fileReader.Close()
                        fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                        執行時間_cb.Text = 執行時間_cb.Text & " / " & stringReader : fileReader.Close()
                        第4段開始 = False : 第5段開始 = True : 翻譯 = 預計完成_cb.Text : MyModule2.執行翻譯()
                    End If
                Else : 第4段開始 = False : 第5段開始 = True : 翻譯 = 預計完成_cb.Text : MyModule2.執行翻譯() : End If
            Else : 第4段開始 = False : 第5段開始 = True : 翻譯 = 預計完成_cb.Text : MyModule2.執行翻譯() : End If
        Else : 第4段開始 = False : 第5段開始 = True : 翻譯 = 預計完成_cb.Text : MyModule2.執行翻譯() : End If
        If 第5段開始 = True Then : MyModule1.進度條()
            If 預計完成_cb.Text <> "" Then
                For i = 1 To Len(預計完成_cb.Text)
                    If Mid(預計完成_cb.Text, i, 1) = "/" Then : 判斷 = False : Exit For : Else : 判斷 = True : End If
                Next
                If 判斷 = True 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()
                        預計完成_cb.Text = stringReader : fileReader.Close()
                        fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                        預計完成_cb.Text = 預計完成_cb.Text & " / " & stringReader : fileReader.Close()
                        第5段開始 = False : 第6段開始 = True : 翻譯 = 執行情況_cb.Text : MyModule2.執行翻譯()
                    ElseIf File.Exists(Str2 & "\ch.txt") Then
                        fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                        預計完成_cb.Text = stringReader : fileReader.Close()
                        fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                        預計完成_cb.Text = 預計完成_cb.Text & " / " & stringReader : fileReader.Close()
                        第5段開始 = False : 第6段開始 = True : 翻譯 = 執行情況_cb.Text : MyModule2.執行翻譯()
                    End If
                Else : 第5段開始 = False : 第6段開始 = True : 翻譯 = 執行情況_cb.Text : MyModule2.執行翻譯() : End If
            Else : 第5段開始 = False : 第6段開始 = True : 翻譯 = 執行情況_cb.Text : MyModule2.執行翻譯() : End If
        Else : 第5段開始 = False : 第6段開始 = True : 翻譯 = 執行情況_cb.Text : MyModule2.執行翻譯() : End If
        If 第6段開始 = True Then : MyModule1.進度條()
            If 執行情況_cb.Text <> "" Then
                For i = 1 To Len(執行情況_cb.Text)
                    If Mid(執行情況_cb.Text, i, 1) = "/" Then : 判斷 = False : Exit For : Else : 判斷 = True : End If
                Next
                If 判斷 = True 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()
                        執行情況_cb.Text = stringReader : fileReader.Close()
                        fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                        執行情況_cb.Text = 執行情況_cb.Text & " / " & stringReader : fileReader.Close()
                        第6段開始 = False : 等待翻譯_tim.Enabled = False
                        HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
                        If 系統語言 = "繁體中文" Then : MsgBox("翻譯完成!!") : Else : MsgBox("Terjemahan Selesai!!") : End If
                    ElseIf File.Exists(Str2 & "\ch.txt") Then
                        fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\ch.txt") : stringReader = fileReader.ReadToEnd()
                        執行情況_cb.Text = stringReader : fileReader.Close()
                        fileReader = My.Computer.FileSystem.OpenTextFileReader(Str2 & "\in.txt") : stringReader = fileReader.ReadToEnd()
                        執行情況_cb.Text = 執行情況_cb.Text & " / " & stringReader : fileReader.Close()
                        第6段開始 = False : 等待翻譯_tim.Enabled = False
                        HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
                        If 系統語言 = "繁體中文" Then : MsgBox("翻譯完成!!") : Else : MsgBox("Terjemahan Selesai!!") : End If
                    End If
                Else : 第6段開始 = False : 等待翻譯_tim.Enabled = False : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
                    If 系統語言 = "繁體中文" Then : MsgBox("翻譯完成!!") : Else : MsgBox("Terjemahan Selesai!!") : End If : End If
            Else : 第6段開始 = False : 等待翻譯_tim.Enabled = False : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
                If 系統語言 = "繁體中文" Then : MsgBox("翻譯完成!!") : Else : MsgBox("Terjemahan Selesai!!") : End If : End If
        Else : 第6段開始 = False : 等待翻譯_tim.Enabled = False : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
            If 系統語言 = "繁體中文" Then : MsgBox("翻譯完成!!") : Else : MsgBox("Terjemahan Selesai!!") : End If : End If
    End Sub
    Private Sub TW_ch_CheckedChanged(sender As Object, e As EventArgs) Handles TW_ch.Click
        TW_ch.Checked = True : IN_ch.Checked = False : TW = TW_ch.Visible : EN = IN_ch.Visible
    End Sub
    Private Sub IN_ch_CheckedChanged(sender As Object, e As EventArgs) Handles IN_ch.Click
        TW_ch.Checked = False : IN_ch.Checked = True : TW = TW_ch.Visible : EN = IN_ch.Visible
    End Sub
End Class