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