Geen omschrijving
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.

聯絡函部門主管審核.vb 32KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396
  1. Option Strict Off
  2. Imports System.Net
  3. Imports System.IO
  4. Public Class 聯絡函部門主管審核
  5. ReadOnly ds8 As New DataSet
  6. Dim 圖片資料庫指定 As String
  7. Dim DGVX As Integer
  8. ReadOnly 對話框(10) As String
  9. Private Sub Set_清單()
  10. Dim ds1 As New DataSet
  11. 清單_dgv.DataSource = Nothing : ds1.Clear()
  12. 清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  13. 清單_dgv.ColumnHeadersHeight = 35 : 清單_dgv.AllowUserToAddRows = False : 清單_dgv.RowTemplate.Height = 45
  14. If 未審核_ch.Checked = True And 主管作廢_ch.Checked = False And 收函處_ch.Checked = False And 未同意_ch.Checked = False Then
  15. If CInt(登入人級別) <= 3 Then
  16. SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 LIKE N'') AND (審核人 NOT LIKE N'作廢%') "
  17. Else
  18. SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND
  19. (申請部門 LIKE N'" & 登入人部門 & "') "
  20. End If
  21. ElseIf 未審核_ch.Checked = False And 主管作廢_ch.Checked = True And 收函處_ch.Checked = False And 未同意_ch.Checked = False Then
  22. If CInt(登入人級別) <= 3 Then
  23. SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 LIKE N'作廢%') "
  24. Else
  25. SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 LIKE N'作廢%') AND (申請部門 LIKE N'" & 登入人部門 & "') "
  26. End If
  27. ElseIf 未審核_ch.Checked = False And 主管作廢_ch.Checked = False And 收函處_ch.Checked = True And 未同意_ch.Checked = False Then
  28. If CInt(登入人級別) <= 3 Then
  29. SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND
  30. (接收核准 LIKE N'') AND (接收核准 NOT LIKE N'作廢%') "
  31. Else
  32. SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND
  33. (聯絡部門 LIKE N'" & 登入人部門 & "') AND (接收核准 LIKE N'') AND (接收核准 NOT LIKE N'作廢%') "
  34. End If
  35. ElseIf 未審核_ch.Checked = False And 主管作廢_ch.Checked = False And 收函處_ch.Checked = False And 未同意_ch.Checked = True Then
  36. If CInt(登入人級別) <= 3 Then
  37. SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND
  38. (接收核准 LIKE N'作廢%') "
  39. Else
  40. SQL2 = " WHERE (主題 NOT LIKE N'') AND (聯絡事項 NOT LIKE N'') AND (審核人 NOT LIKE N'') AND (審核人 NOT LIKE N'作廢%') AND
  41. (聯絡部門 LIKE N'" & 登入人部門 & "') AND (接收核准 LIKE N'作廢%') "
  42. End If
  43. End If
  44. SQL_部門聯絡函部門主管審核_清單()
  45. da.Fill(ds1) : 清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
  46. 清單_dgv.Columns(0).FillWeight = 120 : 清單_dgv.Columns(1).FillWeight = 100 : 清單_dgv.Columns(2).FillWeight = 100 : 清單_dgv.Columns(3).FillWeight = 100
  47. 清單_dgv.Columns(4).FillWeight = 100 : 清單_dgv.Columns(5).FillWeight = 100 : 清單_dgv.Columns(6).FillWeight = 401 : 清單_dgv.Columns(7).Visible = False
  48. End Sub
  49. Private Sub Set_聯繫圖片()
  50. Dim ds6 As New DataSet
  51. 圖片清單_dgv.DataSource = Nothing : ds6.Clear()
  52. 圖片清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  53. 圖片清單_dgv.ColumnHeadersHeight = 25 : 圖片清單_dgv.AllowUserToAddRows = False : 圖片清單_dgv.RowTemplate.Height = 45
  54. 圖片庫 = 圖片庫_tb.Text : SQL_連線字串_圖片資料庫()
  55. SQL_聯絡函圖片()
  56. da.Fill(ds6) : 圖片清單_dgv.DataSource = ds6.Tables(0) : conn.Close()
  57. 圖片清單_dgv.Columns(0).FillWeight = 80 : 圖片清單_dgv.Columns(0).ReadOnly = True
  58. If 圖片清單_dgv.Rows.Count > 0 Then : DGVX = 0 : 圖片清單讀取() : Else : 圖片_pb.Image = Nothing : End If
  59. Dim mycol As DataGridViewImageColumn = 圖片清單_dgv.Columns("IMG")
  60. mycol.ImageLayout = DataGridViewImageCellLayout.Zoom
  61. End Sub
  62. Private Sub Set_聯絡事項()
  63. PA1 = 聯絡函單號_tb.Text : SQL_部門聯絡函_聯絡事項() : If dr.Read() Then : 聯絡事項_tb.Text = dr("聯絡事項").ToString : End If
  64. End Sub
  65. Private Sub Set_建議()
  66. PA1 = 聯絡函單號_tb.Text : SQL_部門聯絡函_建議() : If dr.Read() Then : 建議_tb.Text = dr("建議").ToString : End If
  67. End Sub
  68. Private Sub Set_擬辦()
  69. PA1 = 聯絡函單號_tb.Text : SQL_部門聯絡函_擬辦() : If dr.Read() Then : 擬辦_tb.Text = dr("擬辦").ToString : End If
  70. End Sub
  71. Private Sub 聯絡部門下拉表單資料載入()
  72. SQL_系統使用者管理_下拉清單_部門() : 聯絡部門_cb.Items.Clear() : While (dr.Read()) : 聯絡部門_cb.Items.Add(dr("部門")) : End While : conn.Close()
  73. End Sub
  74. Private Sub 聯絡人下拉表單資料載入()
  75. SQL_部門聯絡函_姓名_下拉清單() : 聯絡人_cb.Items.Clear() : While (dr.Read()) : 聯絡人_cb.Items.Add(dr("姓名")) : End While : conn.Close()
  76. End Sub
  77. Private Sub 執行部門下拉表單資料載入()
  78. SQL_系統使用者管理_下拉清單_部門() : 執行部門_cb.Items.Clear() : While (dr.Read()) : 執行部門_cb.Items.Add(dr("部門")) : End While : conn.Close()
  79. End Sub
  80. Private Sub 執行人下拉表單資料載入()
  81. SQL_部門聯絡函_姓名_下拉清單() : 執行人_cb.Items.Clear() : While (dr.Read()) : 執行人_cb.Items.Add(dr("姓名")) : End While : conn.Close()
  82. End Sub
  83. Private Sub Set_日期格式轉換()
  84. DTP = Format(Today(), "yyyy/MM/dd") : DTP1 = Format(Today(), "yyyyMMdd")
  85. End Sub
  86. Private Sub Set_語言()
  87. 語言_dgv.DataSource = Nothing : ds8.Clear()
  88. 語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  89. 語言_dgv.ColumnHeadersHeight = 25
  90. 語言_dgv.AllowUserToAddRows = False
  91. SQL_系統語言導入()
  92. da.Fill(ds8) : 語言_dgv.DataSource = ds8.Tables(0) : conn.Close()
  93. End Sub
  94. Private Sub 語言轉換讀取()
  95. Set_語言() : conn.Close()
  96. For i As Integer = 0 To 語言_dgv.Rows.Count - 1
  97. If 語言_dgv("控件", i).Value.ToString = "聯絡函部門主管審核" Then : Me.Text = 語言_dgv("內容", i).Value.ToString : End If
  98. If 語言_dgv("控件", i).Value.ToString = "部門聯絡函本文_tp" Then : 部門聯絡函本文_tp.Text = 語言_dgv("內容", i).Value.ToString : End If
  99. If 語言_dgv("控件", i).Value.ToString = "部門聯絡函清單_tp" Then : 部門聯絡函清單_tp.Text = 語言_dgv("內容", i).Value.ToString : End If
  100. If 語言_dgv("控件", i).Value.ToString = "聯絡函單號_lb" Then : 聯絡函單號_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
  101. If 語言_dgv("控件", i).Value.ToString = "申請日期_lb" Then : 申請日期_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
  102. If 語言_dgv("控件", i).Value.ToString = "申請部門_lb" Then : 申請部門_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
  103. If 語言_dgv("控件", i).Value.ToString = "聯絡部門_lb" Then : 聯絡部門_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
  104. If 語言_dgv("控件", i).Value.ToString = "申請人_lb" Then : 申請人_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
  105. If 語言_dgv("控件", i).Value.ToString = "聯絡人_lb" Then : 聯絡人_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
  106. If 語言_dgv("控件", i).Value.ToString = "聯絡函主題_lb" Then : 聯絡函主題_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
  107. If 語言_dgv("控件", i).Value.ToString = "聯絡事項_lb" Then : 聯絡事項_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
  108. If 語言_dgv("控件", i).Value.ToString = "建議_lb" Then : 建議_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
  109. If 語言_dgv("控件", i).Value.ToString = "擬辦_lb" Then : 擬辦_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
  110. If 語言_dgv("控件", i).Value.ToString = "電腦_lb" Then : 電腦_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
  111. If 語言_dgv("控件", i).Value.ToString = "伺服器FTP文件夾_lb" Then : 伺服器FTP文件夾_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
  112. If 語言_dgv("控件", i).Value.ToString = "執行部門_lb" Then : 執行部門_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
  113. If 語言_dgv("控件", i).Value.ToString = "執行人_lb" Then : 執行人_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
  114. If 語言_dgv("控件", i).Value.ToString = "外發審核_bt" Then : 外發審核_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
  115. If 語言_dgv("控件", i).Value.ToString = "外發未准_bt" Then : 外發未准_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
  116. If 語言_dgv("控件", i).Value.ToString = "接收確認_bt" Then : 接收確認_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
  117. If 語言_dgv("控件", i).Value.ToString = "讀取資料夾路徑_bt" Then : 讀取資料夾路徑_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
  118. If 語言_dgv("控件", i).Value.ToString = "圖檔入系統_bt" Then : 圖檔入系統_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
  119. If 語言_dgv("控件", i).Value.ToString = "無法執行_bt" Then : 無法執行_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
  120. If 語言_dgv("控件", i).Value.ToString = "未審核_ch" Then : 未審核_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
  121. If 語言_dgv("控件", i).Value.ToString = "主管作廢_ch" Then : 主管作廢_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
  122. If 語言_dgv("控件", i).Value.ToString = "收函處_ch" Then : 收函處_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
  123. If 語言_dgv("控件", i).Value.ToString = "未同意_ch" Then : 未同意_ch.Text = 語言_dgv("內容", i).Value.ToString : End If
  124. If 語言_dgv("控件", i).Value.ToString = "dgv_單號" Then : 表頭(99) = 語言_dgv("內容", i).Value.ToString : End If
  125. If 語言_dgv("控件", i).Value.ToString = "dgv_申請部門" Then : 表頭(6) = 語言_dgv("內容", i).Value.ToString : End If
  126. If 語言_dgv("控件", i).Value.ToString = "dgv_申請人" Then : 表頭(19) = 語言_dgv("內容", i).Value.ToString : End If
  127. If 語言_dgv("控件", i).Value.ToString = "dgv_申請日期" Then : 表頭(20) = 語言_dgv("內容", i).Value.ToString : End If
  128. If 語言_dgv("控件", i).Value.ToString = "dgv_聯絡部門" Then : 表頭(7) = 語言_dgv("內容", i).Value.ToString : End If
  129. If 語言_dgv("控件", i).Value.ToString = "dgv_聯絡人" Then : 表頭(4) = 語言_dgv("內容", i).Value.ToString : End If
  130. If 語言_dgv("控件", i).Value.ToString = "dgv_主旨" Then : 表頭(117) = 語言_dgv("內容", i).Value.ToString : End If
  131. If 語言_dgv("控件", i).Value.ToString = "對話框1" Then : 對話框(0) = 語言_dgv("內容", i).Value.ToString : End If
  132. If 語言_dgv("控件", i).Value.ToString = "對話框2" Then : 對話框(1) = 語言_dgv("內容", i).Value.ToString : End If
  133. If 語言_dgv("控件", i).Value.ToString = "對話框3" Then : 對話框(2) = 語言_dgv("內容", i).Value.ToString : End If
  134. If 語言_dgv("控件", i).Value.ToString = "對話框4" Then : 對話框(3) = 語言_dgv("內容", i).Value.ToString : End If
  135. If 語言_dgv("控件", i).Value.ToString = "對話框5" Then : 對話框(4) = 語言_dgv("內容", i).Value.ToString : End If
  136. If 語言_dgv("控件", i).Value.ToString = "對話框6" Then : 對話框(5) = 語言_dgv("內容", i).Value.ToString : End If
  137. If 語言_dgv("控件", i).Value.ToString = "對話框7" Then : 對話框(6) = 語言_dgv("內容", i).Value.ToString : End If
  138. If 語言_dgv("控件", i).Value.ToString = "對話框8" Then : 對話框(7) = 語言_dgv("內容", i).Value.ToString : End If
  139. If 語言_dgv("控件", i).Value.ToString = "對話框9" Then : 對話框(8) = 語言_dgv("內容", i).Value.ToString : End If
  140. If 語言_dgv("控件", i).Value.ToString = "對話框10" Then : 對話框(9) = 語言_dgv("內容", i).Value.ToString : End If
  141. If 語言_dgv("控件", i).Value.ToString = "對話框11" Then : 對話框(10) = 語言_dgv("內容", i).Value.ToString : End If
  142. Next
  143. End Sub
  144. Private Sub 部門聯絡函部門主管審核_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  145. Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
  146. H(906) = True : 介面 = "H906" : 語言轉換讀取()
  147. 聯絡函單號_tb.Enabled = False : 申請部門_tb.Enabled = False : 申請人_tb.Enabled = False : 聯絡函主題_tb.Enabled = False
  148. If CInt(登入人級別) <= 2 Then : 執行部門_cb.Enabled = True : Else : 執行部門_cb.Enabled = False : End If
  149. MyModule1.清單字體大小調整()
  150. 圖片清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  151. 清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  152. End Sub
  153. Private Sub 部門聯絡函部門主管審核_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
  154. SQL_圖片資料庫查詢() : If dr.Read() Then : 圖片資料庫指定 = dr("工程圖片資料庫") : Else : MsgBox(對話框(0)) : Me.Close() : End If
  155. 聯絡部門下拉表單資料載入() : 執行部門下拉表單資料載入()
  156. Set_清單()
  157. 本機_wb.Navigate(My.Computer.FileSystem.SpecialDirectories.Desktop)
  158. Target1 = Target & AA(2) & "/"
  159. 伺服器_wb.Url = New Uri(Target1)
  160. End Sub
  161. Private Sub 部門聯絡函部門主管審核_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
  162. MyModule1.清單字體大小調整()
  163. 圖片清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  164. 清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  165. End Sub
  166. Private Sub 部門聯絡函部門主管審核_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
  167. H(906) = False : MyModule1.虛擬桌面開啟()
  168. End Sub
  169. Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
  170. 介面 = "H906" : 語言轉換讀取() : Set_清單()
  171. End Sub
  172. Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
  173. timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
  174. End Sub
  175. Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
  176. timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
  177. End Sub
  178. Private Sub 清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 清單_dgv.CellClick
  179. 聯絡函單號_tb.Text = 清單_dgv(0, e.RowIndex).Value.ToString : 申請部門_tb.Text = 清單_dgv(1, e.RowIndex).Value.ToString : 申請人_tb.Text = 清單_dgv(2, e.RowIndex).Value.ToString
  180. 申請日期_dtp.Value = 清單_dgv(3, e.RowIndex).Value : 聯絡部門_cb.Text = 清單_dgv(4, e.RowIndex).Value.ToString : 聯絡人_cb.Text = 清單_dgv(5, e.RowIndex).Value.ToString
  181. 聯絡函主題_tb.Text = 清單_dgv(6, e.RowIndex).Value.ToString : 執行部門_cb.Text = 清單_dgv(4, e.RowIndex).Value.ToString
  182. 圖片庫_tb.Text = 清單_dgv("圖片庫", e.RowIndex).Value.ToString : Set_聯絡事項() : Set_建議() : Set_擬辦() : TabControl1.SelectedIndex = 1 : Set_聯繫圖片()
  183. End Sub
  184. Private Sub 圖片清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片清單_dgv.CellClick
  185. If e.RowIndex = -1 Then : Else : DGVX = e.RowIndex : 圖片清單讀取() : End If
  186. End Sub
  187. Private Sub 圖片清單讀取()
  188. 圖片_pb.Image = Nothing
  189. PA1 = 聯絡函單號_tb.Text : 圖片庫 = 圖片庫_tb.Text : SQL_連線字串_圖片資料庫() : PA2 = 圖片清單_dgv.Rows(DGVX).Cells("Item").Value
  190. SQL_聯絡函圖片讀取()
  191. While dr.Read() = True
  192. Dim unused As Byte() = New Byte(-1) {}
  193. Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
  194. Dim oStream As New MemoryStream(bytes)
  195. 圖片_pb.Image = Bitmap.FromStream(oStream)
  196. End While
  197. conn.Close() : 圖片_pb.SizeMode = 4
  198. End Sub
  199. Private Sub 聯絡部門_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 聯絡部門_cb.SelectedIndexChanged
  200. PA1 = 聯絡部門_cb.Text : 聯絡人下拉表單資料載入()
  201. End Sub
  202. Private Sub 執行部門_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 執行部門_cb.SelectedIndexChanged
  203. PA1 = 執行部門_cb.Text : 執行人下拉表單資料載入()
  204. End Sub
  205. Private Sub 外發審核_bt_Click(sender As Object, e As EventArgs) Handles 外發審核_bt.Click
  206. If 建議_tb.Text = "" Then : MsgBox(對話框(1)) : Else
  207. Set_日期格式轉換() : PA1 = 聯絡函單號_tb.Text : PA2 = 建議_tb.Text : PA4 = 申請人_tb.Text : PA5 = 聯絡人_cb.Text
  208. SQL_部門聯絡函部門主管審核_外發審核() : conn.Close()
  209. 聯絡函單號_tb.Text = "" : 申請部門_tb.Text = "" : 申請人_tb.Text = "" : 聯絡函主題_tb.Text = ""
  210. 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = ""
  211. MsgBox(對話框(2)) : Set_清單() : TabControl1.SelectedIndex = 0
  212. LINE_權限代號 = "CC249" : 發送對象 = PA4 : 通知變數X = PA5 : 通知變數Y = "通過" : LINE_通知模塊()
  213. End If
  214. End Sub
  215. Private Sub 外發未准_bt_Click(sender As Object, e As EventArgs) Handles 外發未准_bt.Click
  216. If 建議_tb.Text = "" Then : MsgBox(對話框(3)) : Else
  217. Set_日期格式轉換() : PA1 = 聯絡函單號_tb.Text : PA2 = 建議_tb.Text : PA4 = 申請人_tb.Text : PA5 = 聯絡人_cb.Text
  218. SQL_部門聯絡函部門主管審核_外發未准() : conn.Close()
  219. 聯絡函單號_tb.Text = "" : 申請部門_tb.Text = "" : 申請人_tb.Text = "" : 聯絡函主題_tb.Text = ""
  220. 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = ""
  221. MsgBox(對話框(6)) : Set_清單() : TabControl1.SelectedIndex = 0
  222. LINE_權限代號 = "CC249" : 發送對象 = PA4 : 通知變數X = PA5 : 通知變數Y = "未准" : LINE_通知模塊()
  223. End If
  224. End Sub
  225. Private Sub 接收確認_bt_Click(sender As Object, e As EventArgs) Handles 接收確認_bt.Click
  226. If 執行部門_cb.Text = "" Or 執行人_cb.Text = "" Or 擬辦_tb.Text = "" Then : MsgBox(對話框(4)) : Else
  227. Set_日期格式轉換() : PA1 = 聯絡函單號_tb.Text : PA2 = 擬辦_tb.Text : PA3 = 執行部門_cb.Text : PA4 = 執行人_cb.Text : PA5 = 申請人_tb.Text : PA6 = 聯絡人_cb.Text
  228. SQL_部門聯絡函部門主管審核_接收確認() : conn.Close()
  229. 聯絡函單號_tb.Text = "" : 申請部門_tb.Text = "" : 申請人_tb.Text = "" : 聯絡函主題_tb.Text = ""
  230. 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = ""
  231. MsgBox(對話框(2)) : Set_清單() : TabControl1.SelectedIndex = 0
  232. LINE_權限代號 = "CC249" : 發送對象 = PA5 : 通知變數X = PA6 : 通知變數Y = "已接收" : LINE_通知模塊()
  233. End If
  234. End Sub
  235. Private Sub 無法執行_bt_Click(sender As Object, e As EventArgs) Handles 無法執行_bt.Click
  236. If 擬辦_tb.Text = "" Then : MsgBox(對話框(5)) : Else
  237. Set_日期格式轉換() : PA1 = 聯絡函單號_tb.Text : PA2 = 擬辦_tb.Text : PA4 = 申請人_tb.Text : PA5 = 聯絡人_cb.Text
  238. SQL_部門聯絡函部門主管審核_無法執行() : conn.Close()
  239. 聯絡函單號_tb.Text = "" : 申請部門_tb.Text = "" : 申請人_tb.Text = "" : 聯絡函主題_tb.Text = ""
  240. 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = ""
  241. MsgBox(對話框(6)) : Set_清單() : TabControl1.SelectedIndex = 0
  242. LINE_權限代號 = "CC249" : 發送對象 = PA4 : 通知變數X = PA5 : 通知變數Y = "無法執行" : LINE_通知模塊()
  243. End If
  244. End Sub
  245. Private Sub 讀取資料夾路徑_bt_Click(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_bt.Click
  246. If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then
  247. 本機_wb.Navigate(FolderBrowserDialog1.SelectedPath)
  248. End If
  249. End Sub
  250. Private Sub 物料圖_pb_Click(sender As Object, e As EventArgs) Handles 圖片_pb.Click
  251. If IsNothing(圖片_pb.Image) = False Then
  252. 圖片傳遞 = 圖片_pb.Image : 圖片放大視窗.ShowDialog()
  253. End If
  254. End Sub
  255. Private Sub 未審核_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 未審核_ch.Click
  256. 未審核_ch.Checked = True : 主管作廢_ch.Checked = False : 收函處_ch.Checked = False : 未同意_ch.Checked = False
  257. 外發審核_bt.Enabled = True : 外發未准_bt.Enabled = True : 接收確認_bt.Enabled = False : 無法執行_bt.Enabled = False : Set_清單()
  258. 聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = "" : 聯絡函單號_tb.Text = ""
  259. End Sub
  260. Private Sub 主管作廢_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 主管作廢_ch.Click
  261. 未審核_ch.Checked = False : 主管作廢_ch.Checked = True : 收函處_ch.Checked = False : 未同意_ch.Checked = False
  262. 外發審核_bt.Enabled = False : 外發未准_bt.Enabled = False : 接收確認_bt.Enabled = False : 無法執行_bt.Enabled = False : Set_清單()
  263. 聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = "" : 聯絡函單號_tb.Text = ""
  264. End Sub
  265. Private Sub 收函處_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 收函處_ch.Click
  266. 未審核_ch.Checked = False : 主管作廢_ch.Checked = False : 收函處_ch.Checked = True : 未同意_ch.Checked = False
  267. 外發審核_bt.Enabled = False : 外發未准_bt.Enabled = False : 接收確認_bt.Enabled = True : 無法執行_bt.Enabled = True : Set_清單()
  268. 聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = "" : 聯絡函單號_tb.Text = ""
  269. End Sub
  270. Private Sub 未同意_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 未同意_ch.Click
  271. 未審核_ch.Checked = False : 主管作廢_ch.Checked = False : 收函處_ch.Checked = False : 未同意_ch.Checked = True
  272. 外發審核_bt.Enabled = False : 外發未准_bt.Enabled = False : 接收確認_bt.Enabled = False : 無法執行_bt.Enabled = False : Set_清單()
  273. 聯絡函主題_tb.Text = "" : 聯絡事項_tb.Text = "" : 建議_tb.Text = "" : 擬辦_tb.Text = "" : 聯絡函單號_tb.Text = ""
  274. End Sub
  275. Private Sub 圖檔入系統_bt_Click(sender As Object, e As EventArgs) Handles 圖檔入系統_bt.Click
  276. If 聯絡函單號_tb.Text = "" Then
  277. MsgBox(對話框(7))
  278. Else
  279. '-------------判斷FTP資料夾中是否有該文件--------------------------------------------------------------------------------------------------------
  280. Dim ftpclient As System.Net.FtpWebRequest = System.Net.FtpWebRequest.Create(New System.Uri(Target1 & 檔案名稱_tb.Text & 副檔名_tb.Text))
  281. ftpclient.UseBinary = True
  282. ftpclient.Credentials = New System.Net.NetworkCredential(FTP帳號, FTP密碼)
  283. ftpclient.Method = System.Net.WebRequestMethods.Ftp.ListDirectoryDetails
  284. ftpclient.KeepAlive = False
  285. Dim ftpresponse As System.Net.FtpWebResponse
  286. Try
  287. ftpresponse = CType(ftpclient.GetResponse, System.Net.FtpWebResponse)
  288. Console.WriteLine(ftpresponse.StatusCode.ToString + " " + ftpresponse.StatusDescription)
  289. Dim content(1024) As Byte : Dim index_a As Integer = 0
  290. index_a = ftpresponse.GetResponseStream.Read(content, 0, content.Length)
  291. Dim contentstring As String = String.Empty
  292. While index_a > 0
  293. index_a = ftpresponse.GetResponseStream.Read(content, 0, content.Length) : contentstring += System.Text.Encoding.UTF8.GetString(content)
  294. End While
  295. ftpresponse.Close()
  296. If contentstring.LastIndexOf(檔案名稱_tb.Text & 副檔名_tb.Text) > 0 Then
  297. Dim 驗證 As String = "" : Dim 取變數 As String : 取變數 = Strings.StrReverse(檔案名稱_tb.Text & 副檔名_tb.Text)
  298. For i As Integer = 1 To 10
  299. If i = 1 Then : 驗證 = Strings.Left(取變數, i) : Else
  300. If Strings.Mid(取變數, i, 1) = "." Then : 驗證 = Strings.StrReverse(驗證) : Exit For : Else : 驗證 &= Strings.Mid(取變數, i, 1) : End If
  301. End If
  302. Next
  303. If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or 驗證 = "JPEG" Or 驗證 = "jpeg" Then
  304. PA1 = 聯絡函單號_tb.Text : 圖片庫 = 圖片庫_tb.Text : SQL_連線字串_圖片資料庫()
  305. Dim 文件號 As String : Dim 文件編號 As Integer : SQL_聯絡函圖片最後一筆編號查詢()
  306. If dr.Read() Then : 文件編號 = Double.Parse(Strings.Right(dr("項次").ToString, 2)) : Else : 文件編號 = 0 : End If
  307. conn.Close() : 文件編號 += 1
  308. If 文件編號 < 10 Then : 文件號 = "IM" & "0" & 文件編號
  309. ElseIf 文件編號 > 9 Then : 文件號 = "IM" & 文件編號 : End If
  310. PA2 = 文件號 : PA3 = 檔案名稱_tb.Text : PA4 = 副檔名_tb.Text
  311. SQL_聯絡函圖片入系統() : FTP方式刪除檔案() : MsgBox(對話框(8)) : Set_聯繫圖片()
  312. Else : FTP方式刪除檔案() : MsgBox(對話框(9)) : End If
  313. Else : MsgBox(對話框(10)) : End If
  314. Catch ex As Exception
  315. MsgBox(ex.Message)
  316. End Try
  317. End If
  318. End Sub
  319. Private Sub FTP方式刪除檔案()
  320. '---FTP方式刪除檔案----------------------------------------------------------------------------------------------------------------------------------------------------------------------
  321. Dim frq As FtpWebRequest, frp As FtpWebResponse, fcr As NetworkCredential
  322. frq = CType(WebRequest.Create(New Uri(Target1 & 檔案名稱_tb.Text & 副檔名_tb.Text)), FtpWebRequest)
  323. fcr = New NetworkCredential(FTP帳號, FTP密碼)
  324. frq.Credentials = fcr
  325. frq.Method = WebRequestMethods.Ftp.DeleteFile
  326. frq.UseBinary = True
  327. frp = CType(frq.GetResponse, FtpWebResponse)
  328. frp.Close()
  329. 伺服器_wb.Refresh()
  330. '----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
  331. 檔案名稱_tb.Text = "" : 副檔名_tb.Text = ""
  332. End Sub
  333. Private Sub 檔案名稱_tb_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
  334. If e.Data.GetDataPresent(DataFormats.FileDrop) Then : Dim files As String()
  335. Try
  336. files = CType(e.Data.GetData(DataFormats.FileDrop), String()) : 檔案名稱_tb.Text = files(files.Length - 1)
  337. Catch ex As Exception
  338. MessageBox.Show(ex.Message)
  339. Return
  340. End Try
  341. End If
  342. '-------確認檔案是圖片---------------------------------------------------------------------------------------------------------------
  343. Dim 驗證 As String = "" : Dim 取變數 As String : 取變數 = Strings.StrReverse(檔案名稱_tb.Text)
  344. For i As Integer = 1 To 10
  345. If i = 1 Then : 驗證 = Strings.Left(取變數, i) : Else
  346. If Strings.Mid(取變數, i, 1) = "." Then : 驗證 = Strings.StrReverse(驗證) : Exit For : Else : 驗證 &= Strings.Mid(取變數, i, 1) : End If
  347. End If
  348. Next
  349. If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or 驗證 = "JPEG" Or 驗證 = "jpeg" Then
  350. 圖片_pb.Image = Image.FromFile(檔案名稱_tb.Text)
  351. End If
  352. Dim STR2 As Integer = 0 : 檔案路徑_tb.Text = 檔案名稱_tb.Text
  353. If 檔案名稱_tb.Text = "" Then : Else
  354. For i As Integer = 0 To 9999 : Dim STR1 As Integer = Strings.Len(檔案路徑_tb.Text)
  355. If Strings.Right((檔案路徑_tb.Text), 1) <> "\" Then : STR1 -= 1 : STR2 += 1
  356. If STR1 = 0 Then : 檔案路徑_tb.Text = "" : 檔案名稱_tb.Text = "" : i = 9999
  357. Else : 檔案路徑_tb.Text = Strings.Left((檔案路徑_tb.Text), STR1) : End If
  358. Else : 檔案路徑_tb.Text = Strings.Right((檔案名稱_tb.Text), STR2) : 檔案名稱_tb.Text = 檔案路徑_tb.Text : i = 9999 : End If
  359. Next
  360. End If
  361. '-------取得副檔名---------------------------------------------------------------------------------------------------------------
  362. For I As Integer = 1 To 99 : 副檔名_tb.Text = Strings.Mid(Strings.StrReverse(檔案名稱_tb.Text), I, 1)
  363. If 副檔名_tb.Text = "." Then : 副檔名_tb.Text = Strings.StrReverse(Strings.Left(Strings.StrReverse(檔案名稱_tb.Text), I)) : I = 99 : End If
  364. Next
  365. '-------取得檔名---------------------------------------------------------------------------------------------------------------
  366. Dim 檔名 As String : Dim 檔名長度 As Integer
  367. For I As Integer = 1 To 99 : 檔名 = Strings.Mid(Strings.StrReverse(檔案名稱_tb.Text), I, 1)
  368. If 檔名 = "." Then
  369. 檔名長度 = Len(檔案名稱_tb.Text) - I
  370. 檔案名稱_tb.Text = Strings.Left(檔案名稱_tb.Text, 檔名長度) : I = 99
  371. End If
  372. Next
  373. End Sub
  374. Private Sub 檔案名稱_tb_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles 檔案名稱_tb.DragDrop
  375. Dim files As Array = e.Data.GetData(DataFormats.FileDrop)
  376. For Each file As String In files
  377. 檔案名稱_tb.AppendText(file + Environment.NewLine)
  378. Next
  379. End Sub
  380. Private Sub 順時鐘90度旋轉_bt_Click(sender As Object, e As EventArgs) Handles 順時鐘90度旋轉_bt.Click
  381. 圖片_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 圖片_pb.Refresh() : 圖片_pb.SizeMode = 4
  382. End Sub
  383. Private Sub 逆時鐘90度旋轉_bt_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度旋轉_bt.Click
  384. 圖片_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 圖片_pb.Refresh() : 圖片_pb.SizeMode = 4
  385. End Sub
  386. Private Sub 水平翻轉_bt_Click(sender As Object, e As EventArgs) Handles 水平翻轉_bt.Click
  387. 圖片_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 圖片_pb.Refresh() : 圖片_pb.SizeMode = 4
  388. End Sub
  389. Private Sub 垂直翻轉_bt_Click(sender As Object, e As EventArgs) Handles 垂直翻轉_bt.Click
  390. 圖片_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 圖片_pb.Refresh() : 圖片_pb.SizeMode = 4
  391. End Sub
  392. End Class