123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396 |
- Option Strict Off
- Imports System.Net
- Imports System.IO
- Public Class 聯絡函部門主管審核
- ReadOnly ds8 As New DataSet
- Dim 圖片資料庫指定 As String
- Dim DGVX As Integer
- ReadOnly 對話框(10) As String
- Private Sub Set_清單()
- Dim ds1 As New DataSet
- 清單_dgv.DataSource = Nothing : ds1.Clear()
- 清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- 清單_dgv.ColumnHeadersHeight = 35 : 清單_dgv.AllowUserToAddRows = False : 清單_dgv.RowTemplate.Height = 45
- If 未審核_ch.Checked = True And 主管作廢_ch.Checked = False And 收函處_ch.Checked = False And 未同意_ch.Checked = False Then
- If CInt(登入人級別) <= 3 Then
- SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 LIKE N'') AND (審核人 NOT LIKE N'作廢%') "
- Else
- SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND
- (申請部門 LIKE N'" & 登入人部門 & "') "
- End If
- ElseIf 未審核_ch.Checked = False And 主管作廢_ch.Checked = True And 收函處_ch.Checked = False And 未同意_ch.Checked = False Then
- If CInt(登入人級別) <= 3 Then
- SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 LIKE N'作廢%') "
- Else
- SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 LIKE N'作廢%') AND (申請部門 LIKE N'" & 登入人部門 & "') "
- End If
- ElseIf 未審核_ch.Checked = False And 主管作廢_ch.Checked = False And 收函處_ch.Checked = True And 未同意_ch.Checked = False Then
- If CInt(登入人級別) <= 3 Then
- SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND
- (接收核准 LIKE N'') AND (接收核准 NOT LIKE N'作廢%') "
- Else
- SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND
- (聯絡部門 LIKE N'" & 登入人部門 & "') AND (接收核准 LIKE N'') AND (接收核准 NOT LIKE N'作廢%') "
- End If
- ElseIf 未審核_ch.Checked = False And 主管作廢_ch.Checked = False And 收函處_ch.Checked = False And 未同意_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
- (接收核准 LIKE N'作廢%') "
- Else
- SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND
- (聯絡部門 LIKE N'" & 登入人部門 & "') AND (接收核准 LIKE N'作廢%') "
- End If
- End If
- SQL_部門聯絡函部門主管審核_清單()
- da.Fill(ds1) : 清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
-
- 清單_dgv.Columns(0).FillWeight = 120 : 清單_dgv.Columns(1).FillWeight = 100 : 清單_dgv.Columns(2).FillWeight = 100 : 清單_dgv.Columns(3).FillWeight = 100
- 清單_dgv.Columns(4).FillWeight = 100 : 清單_dgv.Columns(5).FillWeight = 100 : 清單_dgv.Columns(6).FillWeight = 401 : 清單_dgv.Columns(7).Visible = False
- End Sub
- Private Sub Set_聯繫圖片()
- Dim ds6 As New DataSet
- 圖片清單_dgv.DataSource = Nothing : ds6.Clear()
- 圖片清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- 圖片清單_dgv.ColumnHeadersHeight = 25 : 圖片清單_dgv.AllowUserToAddRows = False : 圖片清單_dgv.RowTemplate.Height = 45
- 圖片庫 = 圖片庫_tb.Text : SQL_連線字串_圖片資料庫()
- SQL_聯絡函圖片()
- da.Fill(ds6) : 圖片清單_dgv.DataSource = ds6.Tables(0) : conn.Close()
- 圖片清單_dgv.Columns(0).FillWeight = 80 : 圖片清單_dgv.Columns(0).ReadOnly = True
- If 圖片清單_dgv.Rows.Count > 0 Then : DGVX = 0 : 圖片清單讀取() : Else : 圖片_pb.Image = Nothing : End If
- Dim mycol As DataGridViewImageColumn = 圖片清單_dgv.Columns("IMG")
- mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
- End Sub
- Private Sub Set_聯絡事項()
- PA1 = 聯絡函單號_tb.Text : SQL_部門聯絡函_聯絡事項() : If dr.Read() Then : 聯絡事項_tb.Text = dr("聯絡事項").ToString : End If
- End Sub
- Private Sub Set_建議()
- PA1 = 聯絡函單號_tb.Text : SQL_部門聯絡函_建議() : If dr.Read() Then : 建議_tb.Text = dr("建議").ToString : End If
- End Sub
- Private Sub Set_擬辦()
- PA1 = 聯絡函單號_tb.Text : SQL_部門聯絡函_擬辦() : If dr.Read() Then : 擬辦_tb.Text = dr("擬辦").ToString : End If
- End Sub
- Private Sub 聯絡部門下拉表單資料載入()
- SQL_系統使用者管理_下拉清單_部門() : 聯絡部門_cb.Items.Clear() : While (dr.Read()) : 聯絡部門_cb.Items.Add(dr("部門")) : End While : conn.Close()
- End Sub
- Private Sub 聯絡人下拉表單資料載入()
- SQL_部門聯絡函_姓名_下拉清單() : 聯絡人_cb.Items.Clear() : While (dr.Read()) : 聯絡人_cb.Items.Add(dr("姓名")) : End While : conn.Close()
- End Sub
- Private Sub 執行部門下拉表單資料載入()
- SQL_系統使用者管理_下拉清單_部門() : 執行部門_cb.Items.Clear() : While (dr.Read()) : 執行部門_cb.Items.Add(dr("部門")) : End While : conn.Close()
- End Sub
- Private Sub 執行人下拉表單資料載入()
- SQL_部門聯絡函_姓名_下拉清單() : 執行人_cb.Items.Clear() : While (dr.Read()) : 執行人_cb.Items.Add(dr("姓名")) : End While : conn.Close()
- End Sub
- Private Sub Set_日期格式轉換()
- DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
- End Sub
- Private Sub Set_語言()
- 語言_dgv.DataSource = Nothing : ds8.Clear()
- 語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
- 語言_dgv.ColumnHeadersHeight = 25
- 語言_dgv.AllowUserToAddRows = False
- SQL_系統語言導入()
- da.Fill(ds8) : 語言_dgv.DataSource = ds8.Tables(0) : conn.Close()
- End Sub
- Private Sub 語言轉換讀取()
- Set_語言() : conn.Close()
- For i As Integer = 0 To 語言_dgv.Rows.Count - 1
- If 語言_dgv("控件", i).Value.ToString = "聯絡函部門主管審核" Then : Me.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "部門聯絡函本文_tp" Then : 部門聯絡函本文_tp.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "部門聯絡函清單_tp" Then : 部門聯絡函清單_tp.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "聯絡函單號_lb" Then : 聯絡函單號_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "申請日期_lb" Then : 申請日期_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "申請部門_lb" Then : 申請部門_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "聯絡部門_lb" Then : 聯絡部門_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "申請人_lb" Then : 申請人_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "聯絡人_lb" Then : 聯絡人_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "聯絡函主題_lb" Then : 聯絡函主題_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "聯絡事項_lb" Then : 聯絡事項_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "建議_lb" Then : 建議_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "擬辦_lb" Then : 擬辦_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "電腦_lb" Then : 電腦_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "伺服器FTP文件夾_lb" Then : 伺服器FTP文件夾_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "執行部門_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 = "接收確認_bt" Then : 接收確認_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "讀取資料夾路徑_bt" Then : 讀取資料夾路徑_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "圖檔入系統_bt" Then : 圖檔入系統_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "無法執行_bt" Then : 無法執行_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "未審核_ch" Then : 未審核_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "主管作廢_ch" Then : 主管作廢_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "收函處_ch" Then : 收函處_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "未同意_ch" Then : 未同意_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "dgv_單號" Then : 表頭(99) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "dgv_申請部門" Then : 表頭(6) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "dgv_申請人" Then : 表頭(19) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "dgv_申請日期" Then : 表頭(20) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "dgv_聯絡部門" Then : 表頭(7) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "dgv_聯絡人" Then : 表頭(4) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "dgv_主旨" Then : 表頭(117) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框1" Then : 對話框(0) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框2" Then : 對話框(1) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框3" Then : 對話框(2) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框4" Then : 對話框(3) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框5" Then : 對話框(4) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框6" Then : 對話框(5) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框7" Then : 對話框(6) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框8" Then : 對話框(7) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框9" Then : 對話框(8) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框10" Then : 對話框(9) = 語言_dgv("內容", i).Value.ToString : End If
- If 語言_dgv("控件", i).Value.ToString = "對話框11" Then : 對話框(10) = 語言_dgv("內容", i).Value.ToString : End If
- Next
- End Sub
- Private Sub 部門聯絡函部門主管審核_Load(sender As Object, e As EventArgs) Handles MyBase.Load
- Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
- H(906) = True : 介面 = "H906" : 語言轉換讀取()
- 聯絡函單號_tb.Enabled = False : 申請部門_tb.Enabled = False : 申請人_tb.Enabled = False : 聯絡函主題_tb.Enabled = False
- If CInt(登入人級別) <= 2 Then : 執行部門_cb.Enabled = True : Else : 執行部門_cb.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(906) = False : MyModule1.虛擬桌面開啟()
- End Sub
- Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
- 介面 = "H906" : 語言轉換讀取() : Set_清單()
- End Sub
- Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
- timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
- End Sub
- Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
- timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
- End Sub
- Private Sub 清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 清單_dgv.CellClick
- 聯絡函單號_tb.Text = 清單_dgv(0, e.RowIndex).Value.ToString : 申請部門_tb.Text = 清單_dgv(1, e.RowIndex).Value.ToString : 申請人_tb.Text = 清單_dgv(2, e.RowIndex).Value.ToString
- 申請日期_dtp.Value = 清單_dgv(3, e.RowIndex).Value : 聯絡部門_cb.Text = 清單_dgv(4, e.RowIndex).Value.ToString : 聯絡人_cb.Text = 清單_dgv(5, e.RowIndex).Value.ToString
- 聯絡函主題_tb.Text = 清單_dgv(6, e.RowIndex).Value.ToString : 執行部門_cb.Text = 清單_dgv(4, e.RowIndex).Value.ToString
- 圖片庫_tb.Text = 清單_dgv("圖片庫", e.RowIndex).Value.ToString : Set_聯絡事項() : Set_建議() : Set_擬辦() : 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
- If 建議_tb.Text = "" Then : MsgBox(對話框(1)) : Else
- Set_日期格式轉換() : PA1 = 聯絡函單號_tb.Text : PA2 = 建議_tb.Text : PA4 = 申請人_tb.Text : PA5 = 聯絡人_cb.Text
- SQL_部門聯絡函部門主管審核_外發審核() : conn.Close()
- 聯絡函單號_tb.Text = "" : 申請部門_tb.Text = "" : 申請人_tb.Text = "" : 聯絡函主題_tb.Text = ""
- 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = ""
- MsgBox(對話框(2)) : Set_清單() : TabControl1.SelectedIndex = 0
- LINE_權限代號 = "CC249" : 發送對象 = PA4 : 通知變數X = PA5 : 通知變數Y = "通過" : LINE_通知模塊()
- End If
- End Sub
- Private Sub 外發未准_bt_Click(sender As Object, e As EventArgs) Handles 外發未准_bt.Click
- If 建議_tb.Text = "" Then : MsgBox(對話框(3)) : Else
- Set_日期格式轉換() : PA1 = 聯絡函單號_tb.Text : PA2 = 建議_tb.Text : PA4 = 申請人_tb.Text : PA5 = 聯絡人_cb.Text
- SQL_部門聯絡函部門主管審核_外發未准() : conn.Close()
- 聯絡函單號_tb.Text = "" : 申請部門_tb.Text = "" : 申請人_tb.Text = "" : 聯絡函主題_tb.Text = ""
- 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = ""
- MsgBox(對話框(6)) : Set_清單() : TabControl1.SelectedIndex = 0
- LINE_權限代號 = "CC249" : 發送對象 = PA4 : 通知變數X = PA5 : 通知變數Y = "未准" : LINE_通知模塊()
- End If
- End Sub
- Private Sub 接收確認_bt_Click(sender As Object, e As EventArgs) Handles 接收確認_bt.Click
- If 執行部門_cb.Text = "" Or 執行人_cb.Text = "" Or 擬辦_tb.Text = "" Then : MsgBox(對話框(4)) : Else
- Set_日期格式轉換() : PA1 = 聯絡函單號_tb.Text : PA2 = 擬辦_tb.Text : PA3 = 執行部門_cb.Text : PA4 = 執行人_cb.Text : PA5 = 申請人_tb.Text : PA6 = 聯絡人_cb.Text
- SQL_部門聯絡函部門主管審核_接收確認() : conn.Close()
- 聯絡函單號_tb.Text = "" : 申請部門_tb.Text = "" : 申請人_tb.Text = "" : 聯絡函主題_tb.Text = ""
- 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = ""
- MsgBox(對話框(2)) : Set_清單() : TabControl1.SelectedIndex = 0
- LINE_權限代號 = "CC249" : 發送對象 = PA5 : 通知變數X = PA6 : 通知變數Y = "已接收" : LINE_通知模塊()
- End If
- End Sub
- Private Sub 無法執行_bt_Click(sender As Object, e As EventArgs) Handles 無法執行_bt.Click
- If 擬辦_tb.Text = "" Then : MsgBox(對話框(5)) : Else
- Set_日期格式轉換() : PA1 = 聯絡函單號_tb.Text : PA2 = 擬辦_tb.Text : PA4 = 申請人_tb.Text : PA5 = 聯絡人_cb.Text
- SQL_部門聯絡函部門主管審核_無法執行() : conn.Close()
- 聯絡函單號_tb.Text = "" : 申請部門_tb.Text = "" : 申請人_tb.Text = "" : 聯絡函主題_tb.Text = ""
- 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = ""
- MsgBox(對話框(6)) : Set_清單() : TabControl1.SelectedIndex = 0
- LINE_權限代號 = "CC249" : 發送對象 = PA4 : 通知變數X = PA5 : 通知變數Y = "無法執行" : LINE_通知模塊()
- 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 物料圖_pb_Click(sender As Object, e As EventArgs) Handles 圖片_pb.Click
- If IsNothing(圖片_pb.Image) = False Then
- 圖片傳遞 = 圖片_pb.Image : 圖片放大視窗.ShowDialog()
- End If
- End Sub
- Private Sub 未審核_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 未審核_ch.Click
- 未審核_ch.Checked = True : 主管作廢_ch.Checked = False : 收函處_ch.Checked = False : 未同意_ch.Checked = False
- 外發審核_bt.Enabled = True : 外發未准_bt.Enabled = True : 接收確認_bt.Enabled = False : 無法執行_bt.Enabled = False : Set_清單()
- 聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = "" : 聯絡函單號_tb.Text = ""
- End Sub
- Private Sub 主管作廢_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 主管作廢_ch.Click
- 未審核_ch.Checked = False : 主管作廢_ch.Checked = True : 收函處_ch.Checked = False : 未同意_ch.Checked = False
- 外發審核_bt.Enabled = False : 外發未准_bt.Enabled = False : 接收確認_bt.Enabled = False : 無法執行_bt.Enabled = False : Set_清單()
- 聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = "" : 聯絡函單號_tb.Text = ""
- End Sub
- Private Sub 收函處_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 收函處_ch.Click
- 未審核_ch.Checked = False : 主管作廢_ch.Checked = False : 收函處_ch.Checked = True : 未同意_ch.Checked = False
- 外發審核_bt.Enabled = False : 外發未准_bt.Enabled = False : 接收確認_bt.Enabled = True : 無法執行_bt.Enabled = True : Set_清單()
- 聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = "" : 聯絡函單號_tb.Text = ""
- End Sub
- Private Sub 未同意_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 未同意_ch.Click
- 未審核_ch.Checked = False : 主管作廢_ch.Checked = False : 收函處_ch.Checked = False : 未同意_ch.Checked = True
- 外發審核_bt.Enabled = False : 外發未准_bt.Enabled = False : 接收確認_bt.Enabled = False : 無法執行_bt.Enabled = False : Set_清單()
- 聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = "" : 聯絡函單號_tb.Text = ""
- End Sub
- Private Sub 圖檔入系統_bt_Click(sender As Object, e As EventArgs) Handles 圖檔入系統_bt.Click
- If 聯絡函單號_tb.Text = "" Then
- MsgBox(對話框(7))
- Else
- '-------------判斷FTP資料夾中是否有該文件--------------------------------------------------------------------------------------------------------
- Dim ftpclient As System.Net.FtpWebRequest = System.Net.FtpWebRequest.Create(New System.Uri(Target1 & 檔案名稱_tb.Text & 副檔名_tb.Text))
- ftpclient.UseBinary = True
- ftpclient.Credentials = New System.Net.NetworkCredential(FTP帳號, FTP密碼)
- ftpclient.Method = System.Net.WebRequestMethods.Ftp.ListDirectoryDetails
- ftpclient.KeepAlive = False
- Dim ftpresponse As System.Net.FtpWebResponse
- Try
- ftpresponse = CType(ftpclient.GetResponse, System.Net.FtpWebResponse)
- Console.WriteLine(ftpresponse.StatusCode.ToString + " " + ftpresponse.StatusDescription)
- Dim content(1024) As Byte : Dim index_a As Integer = 0
- index_a = ftpresponse.GetResponseStream.Read(content, 0, content.Length)
- Dim contentstring As String = String.Empty
- While index_a > 0
- index_a = ftpresponse.GetResponseStream.Read(content, 0, content.Length) : contentstring += System.Text.Encoding.UTF8.GetString(content)
- End While
- ftpresponse.Close()
- If contentstring.LastIndexOf(檔案名稱_tb.Text & 副檔名_tb.Text) > 0 Then
- Dim 驗證 As String = "" : Dim 取變數 As String : 取變數 = Strings.StrReverse(檔案名稱_tb.Text & 副檔名_tb.Text)
- For i As Integer = 1 To 10
- If i = 1 Then : 驗證 = Strings.Left(取變數, i) : Else
- If Strings.Mid(取變數, i, 1) = "." Then : 驗證 = Strings.StrReverse(驗證) : Exit For : Else : 驗證 &= Strings.Mid(取變數, i, 1) : End If
- End If
- Next
-
- If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or 驗證 = "JPEG" Or 驗證 = "jpeg" Then
- PA1 = 聯絡函單號_tb.Text : 圖片庫 = 圖片庫_tb.Text : SQL_連線字串_圖片資料庫()
- Dim 文件號 As String : Dim 文件編號 As Integer : SQL_聯絡函圖片最後一筆編號查詢()
- If dr.Read() Then : 文件編號 = Double.Parse(Strings.Right(dr("項次").ToString, 2)) : Else : 文件編號 = 0 : End If
- conn.Close() : 文件編號 += 1
- If 文件編號 < 10 Then : 文件號 = "IM" & "0" & 文件編號
- ElseIf 文件編號 > 9 Then : 文件號 = "IM" & 文件編號 : End If
- PA2 = 文件號 : PA3 = 檔案名稱_tb.Text : PA4 = 副檔名_tb.Text
- SQL_聯絡函圖片入系統() : FTP方式刪除檔案() : MsgBox(對話框(8)) : Set_聯繫圖片()
- Else : FTP方式刪除檔案() : MsgBox(對話框(9)) : End If
- Else : MsgBox(對話框(10)) : End If
- Catch ex As Exception
- MsgBox(ex.Message)
- End Try
- End If
- End Sub
- Private Sub FTP方式刪除檔案()
- '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
- Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
- frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text & 副檔名_tb.Text)), FtpWebRequest)
- fcr = New NetworkCredential(FTP帳號, FTP密碼)
- frq.Credentials = fcr
- frq.Method = WebRequestMethods.Ftp.DeleteFile
- frq.UseBinary = True
- frp = CType(frq.GetResponse, FtpWebResponse)
- frp.Close()
- 伺服器_wb.Refresh()
- '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
- 檔案名稱_tb.Text = "" : 副檔名_tb.Text = ""
- End Sub
- Private Sub 檔案名稱_tb_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
- If e.Data.GetDataPresent(DataFormats.FileDrop) Then : Dim files As String()
- Try
- files = CType(e.Data.GetData(DataFormats.FileDrop), String()) : 檔案名稱_tb.Text = files(files.Length - 1)
- Catch ex As Exception
- MessageBox.Show(ex.Message)
- Return
- End Try
- End If
-
- '-------確認檔案是圖片---------------------------------------------------------------------------------------------------------------
- Dim 驗證 As String = "" : Dim 取變數 As String : 取變數 = Strings.StrReverse(檔案名稱_tb.Text)
- For i As Integer = 1 To 10
- If i = 1 Then : 驗證 = Strings.Left(取變數, i) : Else
- If Strings.Mid(取變數, i, 1) = "." Then : 驗證 = Strings.StrReverse(驗證) : Exit For : Else : 驗證 &= Strings.Mid(取變數, i, 1) : End If
- End If
- Next
- If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or 驗證 = "JPEG" Or 驗證 = "jpeg" Then
- 圖片_pb.Image = Image.FromFile(檔案名稱_tb.Text)
- End If
-
- Dim STR2 As Integer = 0 : 檔案路徑_tb.Text = 檔案名稱_tb.Text
- If 檔案名稱_tb.Text = "" Then : Else
- For i As Integer = 0 To 9999 : Dim STR1 As Integer = Strings.Len(檔案路徑_tb.Text)
- If Strings.Right((檔案路徑_tb.Text), 1) <> "\" Then : STR1 -= 1 : STR2 += 1
- If STR1 = 0 Then : 檔案路徑_tb.Text = "" : 檔案名稱_tb.Text = "" : i = 9999
- Else : 檔案路徑_tb.Text = Strings.Left((檔案路徑_tb.Text), STR1) : End If
- Else : 檔案路徑_tb.Text = Strings.Right((檔案名稱_tb.Text), STR2) : 檔案名稱_tb.Text = 檔案路徑_tb.Text : i = 9999 : End If
- Next
- End If
- '-------取得副檔名---------------------------------------------------------------------------------------------------------------
- For I As Integer = 1 To 99 : 副檔名_tb.Text = Strings.Mid(Strings.StrReverse(檔案名稱_tb.Text), I, 1)
- If 副檔名_tb.Text = "." Then : 副檔名_tb.Text = Strings.StrReverse(Strings.Left(Strings.StrReverse(檔案名稱_tb.Text), I)) : I = 99 : End If
- Next
- '-------取得檔名---------------------------------------------------------------------------------------------------------------
- Dim 檔名 As String : Dim 檔名長度 As Integer
- For I As Integer = 1 To 99 : 檔名 = Strings.Mid(Strings.StrReverse(檔案名稱_tb.Text), I, 1)
- If 檔名 = "." Then
- 檔名長度 = Len(檔案名稱_tb.Text) - I
- 檔案名稱_tb.Text = Strings.Left(檔案名稱_tb.Text, 檔名長度) : I = 99
- End If
- Next
- End Sub
- Private Sub 檔案名稱_tb_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles 檔案名稱_tb.DragDrop
- Dim files As Array = e.Data.GetData(DataFormats.FileDrop)
- For Each file As String In files
- 檔案名稱_tb.AppendText(file + Environment.NewLine)
- Next
- End Sub
- Private Sub 順時鐘90度旋轉_bt_Click(sender As Object, e As EventArgs) Handles 順時鐘90度旋轉_bt.Click
- 圖片_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 圖片_pb.Refresh() : 圖片_pb.SizeMode = 4
- End Sub
- Private Sub 逆時鐘90度旋轉_bt_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度旋轉_bt.Click
- 圖片_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 圖片_pb.Refresh() : 圖片_pb.SizeMode = 4
- End Sub
- Private Sub 水平翻轉_bt_Click(sender As Object, e As EventArgs) Handles 水平翻轉_bt.Click
- 圖片_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 圖片_pb.Refresh() : 圖片_pb.SizeMode = 4
- End Sub
- Private Sub 垂直翻轉_bt_Click(sender As Object, e As EventArgs) Handles 垂直翻轉_bt.Click
- 圖片_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 圖片_pb.Refresh() : 圖片_pb.SizeMode = 4
- End Sub
- End Class
|