GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/06-業務管理系統/合約文件圖庫管理.vb

Imports System.Net
Imports System.IO
Public Class 合約文件圖庫管理
    ReadOnly ds2 As New DataSet
    Dim 新流水號3, TT As String
    Dim 圖庫已滿 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
        PA = 關鍵字搜尋_tb.Text : PA46 = 合約編號1_cb.Text : PA47 = 工程期1_ch.Text
        SQL_合約清單1()
        da.Fill(ds6) : 合約_dgv.DataSource = ds6.Tables(0) : conn.Close()
        合約_dgv.Columns(0).FillWeight = 160 : 合約_dgv.Columns(1).Visible = False : 合約_dgv.Columns(2).Visible = False : 合約_dgv.Columns(3).Visible = False
        合約_dgv.Columns(4).Visible = False : 合約_dgv.Columns(5).Visible = False : 合約_dgv.Columns(6).Visible = False : 合約_dgv.Columns(7).Visible = False
        合約_dgv.Columns(8).Visible = False : 合約_dgv.Columns(9).Visible = False : 合約_dgv.Columns(10).Visible = False : 合約_dgv.Columns(11).Visible = False
        合約_dgv.Columns(12).Visible = False : 合約_dgv.Columns(13).Visible = False : 合約_dgv.Columns(14).Visible = False : 合約_dgv.Columns(15).Visible = False
        合約_dgv.Columns(16).Visible = False : 合約_dgv.Columns(17).Visible = False : 合約_dgv.Columns(18).Visible = False : 合約_dgv.Columns(19).Visible = False
        合約_dgv.Columns(20).Visible = False : 合約_dgv.Columns(21).Visible = False : 合約_dgv.Columns(22).Visible = False : 合約_dgv.Columns(23).Visible = False
        合約_dgv.Columns(24).Visible = False : 合約_dgv.Columns(25).Visible = False : 合約_dgv.Columns(26).Visible = False : 合約_dgv.Columns(27).Visible = False
        合約_dgv.Columns(28).Visible = False : 合約_dgv.Columns(29).Visible = False
    End Sub
    Private Sub Set_文件清單()
        Dim ds5 As New DataSet : 文件_dgv.DataSource = Nothing : ds5.Clear()
        文件_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        文件_dgv.ColumnHeadersHeight = 25
        文件_dgv.AllowUserToAddRows = False
        SQL_合約工程文檔控制表()
        da.Fill(ds5) : 文件_dgv.DataSource = ds5.Tables(0) : conn.Close()
        文件_dgv.Columns("副檔名").FillWeight = 50 : 文件_dgv.Columns("版次").FillWeight = 40 : 文件_dgv.Columns("上傳日期").FillWeight = 50 : 文件_dgv.Columns("文檔類型").FillWeight = 80
        文件_dgv.Columns("文件號").Visible = False : 文件_dgv.Columns("圖庫").Visible = False : 文件_dgv.Columns("上傳人員").Visible = False
    End Sub
    Private Sub Set_文件說明()
        Dim ds5 As New DataSet : 文件說明_dgv.DataSource = Nothing : ds5.Clear()
        文件說明_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        文件說明_dgv.ColumnHeadersHeight = 25
        文件說明_dgv.AllowUserToAddRows = False
        SQL_合約工程文檔說明()
        da.Fill(ds5) : 文件說明_dgv.DataSource = ds5.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_工程文件資料庫狀態()
        Dim ds2 As New DataSet : 工程文件資料庫管理_dgv.DataSource = Nothing : ds2.Clear()
        工程文件資料庫管理_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        工程文件資料庫管理_dgv.ColumnHeadersHeight = 25
        工程文件資料庫管理_dgv.AllowUserToAddRows = False
        SQL_合約工程文件資料庫管理查詢2()
        da.Fill(ds2) : 工程文件資料庫管理_dgv.DataSource = ds2.Tables(0) : conn.Close()
        工程文件資料庫管理_dgv.Columns(0).FillWeight = 100 : 工程文件資料庫管理_dgv.Columns(1).FillWeight = 50
    End Sub
    Private Sub Set_文件紀錄()
        Dim ds5 As New DataSet : 歷史紀錄_dgv.DataSource = Nothing : ds5.Clear()
        歷史紀錄_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        歷史紀錄_dgv.ColumnHeadersHeight = 25
        歷史紀錄_dgv.AllowUserToAddRows = False
        SQL_合約工程文檔操作紀錄()
        da.Fill(ds5) : 歷史紀錄_dgv.DataSource = ds5.Tables(0) : conn.Close()
        歷史紀錄_dgv.Columns(0).FillWeight = 20 : 歷史紀錄_dgv.Columns(2).FillWeight = 40 : 歷史紀錄_dgv.Columns(3).FillWeight = 70
        For I As Integer = 0 To 歷史紀錄_dgv.Rows.Count - 1
            歷史紀錄_dgv("時間", I).Value = Strings.Left(歷史紀錄_dgv("時間", I).Value.ToString, 19)
        Next
    End Sub
    Private Sub 檔案類型()
        SQL_檔案類型下拉清單() : 文檔類型_cb.Items.Clear() : While (dr.Read()) : 文檔類型_cb.Items.Add(dr("文檔類型")) : End While : conn.Close()
    End Sub
    Private Sub 甲方條件下拉清單讀取()
        SQL合約條件讀取() : 合約編號1_cb.Items.Clear() : 合約編號1_cb.Items.Add("") : While (dr.Read()) : 合約編號1_cb.Items.Add(dr("約號甲方")) : End While : conn.Close()
    End Sub
    Private Sub 驗證文件資料庫大小()
        For i As Integer = 0 To 99
            Set_工程文件資料庫狀態()
            If 工程文件資料庫管理_dgv.Rows.Count = 0 Then
                MsgBox("文件伺服器已滿，請竊系統管理員") : 圖庫已滿 = True : Exit For
            Else
                PA = 工程文件資料庫管理_dgv.Rows(0).Cells(0).Value.ToString
                SQL_資料庫大小查驗()
                If dr.Read() Then
                    If 工程圖庫限制 <= dr("大小") Then
                        SQL_合約工程文件資料庫管理查詢修改1()
                    Else
                        圖片庫 = PA : SQL_連線字串_圖片資料庫() : Exit For
                    End If
                End If
            End If
        Next
    End Sub
    Private Sub 工程文件圖庫管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        PA = "" : 版次自動_cb.Checked = True : 新增檔案_ch.Checked = True : 覆蓋檔案_ch.Checked = False : 操作說明視窗_P.Visible = True : 歷史紀錄_P.Visible = False
        MsgBox("本介面語言轉換功能製作中!!" & vbCrLf & "Fungsi konversi bahasa antarmuka ini sedang dalam produksi!!")

        If CC(117) = False Then : 存檔_tb.Enabled = False : End If
        If CC(121) = False Then : 下載_tb.Enabled = False : End If
        If CC(122) = False Then : 刪除_bt.Enabled = False : End If

        Target1 = Target & AA(2) & "/" : 伺服器_wb.Url = New Uri(Target1)
        本機_wb.Navigate(My.Computer.FileSystem.SpecialDirectories.Desktop)
        MyModule1.清單字體大小調整()
        合約_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", GCM_ERP_SYS.字體_NUD.Value)
        文件_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", GCM_ERP_SYS.字體_NUD.Value)
        歷史紀錄_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", GCM_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 工程文件圖庫管理_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        Set_合約清單() : Set_工程文件資料庫狀態() : 驗證文件資料庫大小() : 檔案類型() : 甲方條件下拉清單讀取()
    End Sub
    Private Sub 工程文件圖庫管理_Closing(sender As Object, e As EventArgs) Handles MyBase.Closed
        驗證文件資料庫大小()
    End Sub
    Private Sub 工程文件圖庫管理_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
        MyModule1.清單字體大小調整()
        合約_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", GCM_ERP_SYS.字體_NUD.Value)
        文件_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", GCM_ERP_SYS.字體_NUD.Value)
        歷史紀錄_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", GCM_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0 : GCM_ERP_SYS.Timer1.Enabled = False : GCM_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0 : GCM_ERP_SYS.Timer1.Enabled = False : GCM_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(0, e.RowIndex).Value.ToString
            文件號_tb.Text = "" : 版本_tb.Text = "" : 檔案名稱_tb.Text = "" : 副檔名_tb.Text = ""
            文檔說明1_tb.Text = "" : 文檔說明2_tb.Text = "" : 文檔說明3_tb.Text = ""
            Set_文件清單()
        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
            文件號_tb.Text = 文件_dgv("文件號", e.RowIndex).Value.ToString : 文檔類型_cb.Text = 文件_dgv("文檔類型", e.RowIndex).Value.ToString
            檔案名稱_tb.Text = 文件_dgv("檔案名稱", e.RowIndex).Value.ToString : 副檔名_tb.Text = 文件_dgv("副檔名", e.RowIndex).Value.ToString
            版本_tb.Text = 文件_dgv("版次", e.RowIndex).Value.ToString : 圖片庫 = 文件_dgv("圖庫", e.RowIndex).Value.ToString : SQL_連線字串_圖片資料庫()
            上傳者_tb.Text = 文件_dgv("上傳人員", e.RowIndex).Value.ToString

            Set_文件紀錄() : Set_文件說明()
            For i As Integer = 0 To 文件說明_dgv.Rows.Count - 1
                If 文件說明_dgv("語言", i).Value.ToString = "繁體中文" Then
                    文檔說明1_tb.Text = 文件說明_dgv("文檔說明", i).Value.ToString
                ElseIf 文件說明_dgv("語言", i).Value.ToString = "Indonesian" Then
                    文檔說明3_tb.Text = 文件說明_dgv("文檔說明", i).Value.ToString
                ElseIf 文件說明_dgv("語言", i).Value.ToString = "English" Then
                    文檔說明2_tb.Text = 文件說明_dgv("文檔說明", i).Value.ToString
                End If
            Next
        End If
    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(0, e.RowIndex).Value.ToString <> 文件_dgv(0, 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 合約編號1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號1_cb.SelectedIndexChanged
        Set_合約清單()
    End Sub
    Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        PA = 關鍵字搜尋_tb.Text : Set_合約清單()
    End Sub
    Private Sub 新增檔案_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 新增檔案_ch.Click
        新增檔案_ch.Checked = True : 覆蓋檔案_ch.Checked = False : 文件號_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
    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 STR1 As Integer : Dim STR2 As Integer
        檔案路徑_tb.Text = 檔案名稱_tb.Text
        If 檔案名稱_tb.Text = "" Then : Else
            For i As Integer = 0 To 9999
                STR1 = 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
        If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
            本機_wb.Navigate(FolderBrowserDialog1.SelectedPath)
        End If
    End Sub
    Private Sub 存檔_tb_Click(sender As Object, e As EventArgs) Handles 存檔_tb.Click
        If 合約號_tb.Text = "" Then
            MsgBox("請先選擇合約")
        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
                    If 文件號_tb.Text <> "" Or 版本_tb.Text <> "" Then
                        Dim SS As String
                        If 系統語言 = "繁體中文" Then : SS = "是否建立新的檔案編號?" : Else : SS = "Apakah akan membuat nomor file baru??" : End If
                        Dim aa1 As MsgBoxResult = MsgBox(SS, MsgBoxStyle.OkCancel)
                        If aa1 = MsgBoxResult.Ok Then
                            文件號_tb.Text = "" : 版本_tb.Text = ""
                        End If
                    End If
                    Dim 文件新 As Boolean = False
                    If 文件號_tb.Text = "" Then
                        Dim 文件號 As String = "" : Dim 文件編號 As Integer : SQL_合約工程文檔_文件號查詢()
                        If dr.Read() Then : 文件編號 = Double.Parse(Strings.Right(dr("文件號").ToString, 8)) : Else : 文件編號 = 0 : End If
                        conn.Close() : 文件編號 += 1
                        If 文件編號 < 10 Then : 文件號 = "PF" & "0000000" & 文件編號
                        ElseIf 文件編號 > 9 And 文件編號 < 100 Then : 文件號 = "PF" & "000000" & 文件編號
                        ElseIf 文件編號 > 99 And 文件編號 < 1000 Then : 文件號 = "PF" & "00000" & 文件編號
                        ElseIf 文件編號 > 999 And 文件編號 < 10000 Then : 文件號 = "PF" & "0000" & 文件編號
                        ElseIf 文件編號 > 9999 And 文件編號 < 100000 Then : 文件號 = "PF" & "000" & 文件編號
                        ElseIf 文件編號 > 99999 And 文件編號 < 100000 Then : 文件號 = "PF" & "00" & 文件編號
                        ElseIf 文件編號 > 999999 And 文件編號 < 1000000 Then : 文件號 = "PF" & "0" & 文件編號
                        ElseIf 文件編號 > 9999999 Then : 文件號 = "PF" & 文件編號
                        End If
                        文件號_tb.Text = 文件號
                        文件新 = True
                    End If

                    If 新增檔案_ch.Checked = True Then
                        SQL_合約工程文檔_版本號查詢()
                        If dr.Read() Then : 新流水號3 = dr("版次") : Else : 新流水號3 = "V00" : End If : conn.Close()
                        Dim NUM1 As Integer
                        NUM1 = Double.Parse(Strings.Right(新流水號3, 2)) + 1
                        If NUM1 < 10 Then : 新流水號3 = "V" & "0" & NUM1
                        ElseIf NUM1 > 9 Then : 新流水號3 = "V" & NUM1
                        End If
                        版本_tb.Text = 新流水號3
                        If 文件新 = False And CC(118) = False Then
                            If 系統語言 = "繁體中文" Then : MsgBox("您沒有權限新增文件版本!!") : Else : MsgBox("Anda tidak memiliki izin untuk menambahkan versi file!!") : End If
                            FTP方式刪除檔案() : Exit Sub
                        End If
                    End If

                    If 新增檔案_ch.Checked = True Then
                        SQL_合約工程文檔控制表_新增() : SQL_合約工程文檔_文檔入系統() : 驗證文件資料庫大小()
                        SQL_合約工程文檔_檔案說明檢查()
                        If dr.Read Then : Else
                            SQL_合約工程文檔_檔案說明新增1() : SQL_合約工程文檔_檔案說明新增2() : SQL_合約工程文檔_檔案說明新增3()
                        End If
                        If 文件新 = True Then
                            PA43 = "新增檔案" : SQL_合約工程文檔操作紀錄_新增() : Set_文件紀錄()
                        Else
                            PA43 = "版本更新" : SQL_合約工程文檔操作紀錄_新增() : Set_文件紀錄()
                        End If
                    Else
                        If CC(119) = False Then
                            If 系統語言 = "繁體中文" Then : MsgBox("您沒有權限修改已經上傳的檔案!!") : Else : MsgBox("Anda tidak memiliki izin untuk mengubah file yang diunggah!!") : End If
                        Else
                            SQL_合約工程文檔控制表_修改() : SQL_合約工程文檔_檔案說明修改1() : SQL_合約工程文檔_檔案說明修改2() : SQL_合約工程文檔_檔案說明修改3()
                            SQL_合約工程文檔_文檔修改()
                            PA43 = "修改檔案" : SQL_合約工程文檔操作紀錄_新增() : Set_文件紀錄()
                        End If
                    End If
                    FTP方式刪除檔案() : If 系統語言 = "繁體中文" Then : MsgBox("上傳完畢!!") : Else : MsgBox("Unggah selesai!!") : End If
                Else
                    If 系統語言 = "繁體中文" Then : MsgBox("請先確定檔案資料已準備完畢!!") : Else : MsgBox("Pastikan file sudah siap!!") : End If
                End If
            Catch ex As Exception
                If CC(120) = False Then
                    If 系統語言 = "繁體中文" Then : MsgBox("您沒有權限修改檔案的資訊!!") : Else : MsgBox("Anda tidak memiliki izin untuk mengubah informasi file!!") : End If
                Else
                    SQL_合約工程文檔控制表_修改1() : SQL_合約工程文檔_檔案說明修改1() : SQL_合約工程文檔_檔案說明修改2() : SQL_合約工程文檔_檔案說明修改3()
                    PA43 = "資訊更新" : SQL_合約工程文檔操作紀錄_新增() : Set_文件紀錄()
                    If 系統語言 = "繁體中文" Then : MsgBox("資料修改完畢!!") : Else : MsgBox("Data telah diubah!!") : End If
                End If
            End Try
        End If : 檔案類型() : Set_文件清單()
    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_Click(sender As Object, e As EventArgs) Handles 下載_tb.Click
        If CC(121) = False Then
            MsgBox("您沒有權限下載檔案!!")
        Else
            If 合約號_tb.Text = "" Or 檔案名稱_tb.Text = "" Or 副檔名_tb.Text = "" Then
                MsgBox("請先選擇要下載的圖檔")
            Else
                With SaveFileDialog1 : .Filter = "所有文件(*.*)|*.*" : End With
                TT = 檔案名稱_tb.Text
                SaveFileDialog1.FileName = TT & 副檔名_tb.Text
                SaveFileDialog1.ShowDialog() : 檔案路徑_tb.Text = SaveFileDialog1.FileName
                Dim ds2 As New DataSet : ds2.Clear()
                SQL_合約工程文檔_文檔下載()
                da.Fill(ds2) : conn.Close()
                If ds2.Tables(0).Rows.Count > 0 Then
                    Dim imgData() As Byte
                    imgData = ds2.Tables(0).Rows(0).Item("文檔")
                    Dim fs As FileStream
                    fs = File.Create(檔案路徑_tb.Text, imgData.Length - 1)
                    fs.Write(imgData, 0, imgData.Length - 1)
                    fs.Close()
                End If
                PA43 = "下載檔案" : SQL_合約工程文檔操作紀錄_新增() : Set_文件紀錄()
                檔案路徑_tb.Text = ""
                MsgBox("下載完成")
            End If
        End If
    End Sub
    Private Sub 版次自動_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 版次自動_cb.Click
        版次自動_cb.Checked = True : 版次手動_cb.Checked = False : 版本_tb.Enabled = False
    End Sub
    Private Sub 版次手動_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 版次手動_cb.Click
        版次自動_cb.Checked = False : 版次手動_cb.Checked = True : 版本_tb.Enabled = True
    End Sub
    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        If CC(122) = False Then
            MsgBox("您沒有權限刪除檔案!!")
        Else
            If 文件號_tb.Text = "" Then
                MsgBox("請先選擇文件!!")
            Else
                Dim 文件數 As Integer
                For I As Integer = 0 To 文件_dgv.Rows.Count - 1
                    If 文件號_tb.Text = 文件_dgv("文件號", I).Value.ToString Then
                        文件數 += 1
                    End If
                Next
                Dim aa1 As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
                If aa1 = MsgBoxResult.Ok Then
                    If 文件數 = 1 Then
                        SQL_合約工程文檔控制表_刪除() : SQL_合約工程文檔_刪除() : SQL_合約工程文檔說明_刪除()
                        PA43 = "檔案刪除" : SQL_合約工程文檔操作紀錄_新增() : Set_文件紀錄()
                    ElseIf 文件數 > 1 Then
                        SQL_合約工程文檔控制表_刪除() : SQL_合約工程文檔_刪除()
                        PA43 = "檔案刪除" : SQL_合約工程文檔操作紀錄_新增() : Set_文件紀錄()
                    End If
                    MsgBox("刪除完成")
                End If
            End If : 檔案類型() : Set_文件清單()
        End If
    End Sub
    Private Sub 操作說明視窗1_Click(sender As Object, e As EventArgs) Handles 說明_bt.Click
        If 操作說明視窗_P.Visible = True Then : 操作說明視窗_P.Visible = False : Else : 歷史紀錄_P.Visible = False : 操作說明視窗_P.Visible = True : End If
    End Sub
    Private Sub 歷史紀錄_bt_Click(sender As Object, e As EventArgs) Handles 歷史紀錄_bt.Click
        If 歷史紀錄_P.Visible = True Then : 歷史紀錄_P.Visible = False : Else : 操作說明視窗_P.Visible = False : 歷史紀錄_P.Visible = True : End If
    End Sub
    Private Sub Cancel_bt_Click(sender As Object, e As EventArgs) Handles Cancel_bt.Click
        操作說明視窗_P.Visible = False
    End Sub
    Private Sub Cancel1_bt_Click(sender As Object, e As EventArgs) Handles Cancel1_bt.Click
        歷史紀錄_P.Visible = False
    End Sub
    '----------------------自創視窗滑鼠拖曳功能---------------------------------------------------------------------------------------------------------
    Dim OldX, OldY As Long
    Dim drag As Boolean
    Private Sub 操作說明視窗_P_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 操作說明視窗_P.MouseDown
        If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If
    End Sub
    Private Sub 操作說明視窗_P_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 操作說明視窗_P.MouseMove
        If drag Then : 操作說明視窗_P.Left = 操作說明視窗_P.Left + e.X - OldX : 操作說明視窗_P.Top = 操作說明視窗_P.Top + e.Y - OldY : End If
    End Sub
    Private Sub 操作說明視窗_P_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 操作說明視窗_P.MouseUp
        drag = False
    End Sub
    Private Sub 歷史紀錄_P_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 歷史紀錄_P.MouseDown
        If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If
    End Sub
    Private Sub 歷史紀錄_P_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 歷史紀錄_P.MouseMove
        If drag Then : 歷史紀錄_P.Left = 歷史紀錄_P.Left + e.X - OldX : 歷史紀錄_P.Top = 歷史紀錄_P.Top + e.Y - OldY : End If
    End Sub
    Private Sub 歷史紀錄_P_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 歷史紀錄_P.MouseUp
        drag = False
    End Sub

End Class