No Description
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 72KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836
  1. Imports System.IO
  2. Public Class 合約文件簽回存檔
  3. Dim 放大 As Boolean
  4. Dim 圖片資料庫指定, WW(14), WA(14) As String
  5. Dim DGVX, 列高, 選擇項 As Integer : Dim 對話框(14) As String
  6. Private Sub Set_合約文件圖庫資料庫狀態()
  7. Dim ds9 As New DataSet : 圖庫清單_dgv.DataSource = Nothing : ds9.Clear()
  8. 圖庫清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  9. 圖庫清單_dgv.ColumnHeadersHeight = 25
  10. 圖庫清單_dgv.AllowUserToAddRows = False
  11. 表頭(165) = "資料庫" : 表頭(166) = "狀態"
  12. SQL_工程文件資料庫管理查詢()
  13. da.Fill(ds9) : 圖庫清單_dgv.DataSource = ds9.Tables(0) : conn.Close()
  14. 圖庫清單_dgv.Columns(0).FillWeight = 100 : 圖庫清單_dgv.Columns(1).FillWeight = 20
  15. End Sub
  16. Private Sub Set_合約清單()
  17. Dim ds6 As New DataSet
  18. 合約_dgv.DataSource = Nothing : ds6.Clear()
  19. 合約_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  20. 合約_dgv.ColumnHeadersHeight = 25 : 合約_dgv.AllowUserToAddRows = False
  21. PA = 關鍵字搜尋_tb.Text : PA46 = 合約編號1_cb.Text
  22. SQL_合約清單_簽回存檔()
  23. da.Fill(ds6) : 合約_dgv.DataSource = ds6.Tables(0) : conn.Close()
  24. 合約_dgv.Columns(0).FillWeight = 100 : 合約_dgv.Columns(表頭(3)).FillWeight = 250 : 合約_dgv.Columns(表頭(6)).FillWeight = 40
  25. 合約_dgv.Columns(表頭(7)).FillWeight = 40 : 合約_dgv.Columns(表頭(8)).FillWeight = 40 : 合約_dgv.Columns(表頭(9)).FillWeight = 40
  26. 合約_dgv.Columns(表頭(10)).FillWeight = 40 : 合約_dgv.Columns(表頭(11)).FillWeight = 40 : 合約_dgv.Columns(表頭(13)).FillWeight = 40
  27. 合約_dgv.Columns(表頭(12)).FillWeight = 40
  28. 合約_dgv.Columns(0).ReadOnly = True
  29. If 放大 = True Then
  30. 合約_dgv.Columns(表頭(3)).Visible = True : 合約_dgv.Columns(表頭(2)).Visible = True : 合約_dgv.Columns(表頭(4)).Visible = True
  31. 合約_dgv.Columns(表頭(6)).Visible = True : 合約_dgv.Columns(表頭(7)).Visible = True : 合約_dgv.Columns(表頭(8)).Visible = True
  32. 合約_dgv.Columns(表頭(9)).Visible = True : 合約_dgv.Columns(表頭(10)).Visible = True : 合約_dgv.Columns(表頭(11)).Visible = True
  33. 合約_dgv.Columns(表頭(12)).Visible = True : 合約_dgv.Columns(表頭(13)).Visible = True : 合約_dgv.Columns(表頭(5)).Visible = True
  34. Else
  35. 合約_dgv.Columns(表頭(3)).Visible = False : 合約_dgv.Columns(表頭(2)).Visible = False : 合約_dgv.Columns(表頭(4)).Visible = False
  36. 合約_dgv.Columns(表頭(6)).Visible = False : 合約_dgv.Columns(表頭(7)).Visible = False : 合約_dgv.Columns(表頭(8)).Visible = False
  37. 合約_dgv.Columns(表頭(9)).Visible = False : 合約_dgv.Columns(表頭(10)).Visible = False : 合約_dgv.Columns(表頭(11)).Visible = False
  38. 合約_dgv.Columns(表頭(12)).Visible = False : 合約_dgv.Columns(表頭(13)).Visible = False : 合約_dgv.Columns(表頭(5)).Visible = False
  39. End If
  40. End Sub
  41. Private Sub Set_工程日報圖片1()
  42. Dim ds6 As New DataSet
  43. 圖片清單1_dgv.DataSource = Nothing : ds6.Clear()
  44. 圖片清單1_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  45. 圖片清單1_dgv.ColumnHeadersHeight = 25 : 圖片清單1_dgv.AllowUserToAddRows = False : 圖片清單1_dgv.RowTemplate.Height = 列高
  46. If 簽回檔圖庫_tb.Text = "" Then : 圖片庫 = 圖片資料庫指定 : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If : PA1 = 合約編號_tb.Text : PA2 = "報價"
  47. SQL_連線字串_圖片資料庫() : SQL_合約清單_簽回存檔_圖片清單()
  48. da.Fill(ds6) : 圖片清單1_dgv.DataSource = ds6.Tables(0) : conn.Close()
  49. 圖片清單1_dgv.Columns(0).ReadOnly = True
  50. If 圖片清單1_dgv.Rows.Count > 0 Then : DGVX = 0 : 圖片清單讀取1() : Else : 圖片1_pb.Image = Nothing : End If
  51. End Sub
  52. Private Sub 圖片清單讀取1()
  53. 圖片1_pb.Image = Nothing : PA1 = 合約編號_tb.Text : PA2 = "報價" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
  54. PA3 = 圖片清單1_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
  55. If 圖片清單1_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
  56. SQL_合約清單_簽回存檔_圖片讀取()
  57. While dr.Read() = True
  58. Dim unused As Byte() = New Byte(-1) {}
  59. Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
  60. Dim oStream As New MemoryStream(bytes)
  61. 圖片1_pb.Image = Bitmap.FromStream(oStream)
  62. End While : conn.Close() : 圖片1_pb.SizeMode = 4
  63. Else : 圖片1_pb.Image = My.Resources.PDF : 圖片1_pb.SizeMode = 4 : End If
  64. End Sub
  65. Private Sub Set_工程日報圖片2()
  66. Dim ds6 As New DataSet
  67. 圖片清單2_dgv.DataSource = Nothing : ds6.Clear()
  68. 圖片清單2_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  69. 圖片清單2_dgv.ColumnHeadersHeight = 25 : 圖片清單2_dgv.AllowUserToAddRows = False : 圖片清單2_dgv.RowTemplate.Height = 列高
  70. If 簽回檔圖庫_tb.Text = "" Then : 圖片庫 = 圖片資料庫指定 : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If : PA1 = 合約編號_tb.Text : PA2 = "合約"
  71. SQL_連線字串_圖片資料庫() : SQL_合約清單_簽回存檔_圖片清單()
  72. da.Fill(ds6) : 圖片清單2_dgv.DataSource = ds6.Tables(0) : conn.Close()
  73. 圖片清單2_dgv.Columns(0).ReadOnly = True
  74. If 圖片清單2_dgv.Rows.Count > 0 Then : DGVX = 0 : 圖片清單讀取2() : Else : 圖片2_pb.Image = Nothing : End If
  75. End Sub
  76. Private Sub 圖片清單讀取2()
  77. 圖片2_pb.Image = Nothing : PA1 = 合約編號_tb.Text : PA2 = "合約" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
  78. PA3 = 圖片清單2_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
  79. If 圖片清單2_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
  80. SQL_合約清單_簽回存檔_圖片讀取()
  81. While dr.Read() = True
  82. Dim unused As Byte() = New Byte(-1) {}
  83. Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
  84. Dim oStream As New MemoryStream(bytes)
  85. 圖片2_pb.Image = Bitmap.FromStream(oStream)
  86. End While : conn.Close() : 圖片2_pb.SizeMode = 4
  87. Else : 圖片2_pb.Image = My.Resources.PDF : 圖片2_pb.SizeMode = 4 : End If
  88. End Sub
  89. Private Sub Set_工程日報圖片3()
  90. Dim ds6 As New DataSet
  91. 圖片清單3_dgv.DataSource = Nothing : ds6.Clear()
  92. 圖片清單3_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  93. 圖片清單3_dgv.ColumnHeadersHeight = 25 : 圖片清單3_dgv.AllowUserToAddRows = False : 圖片清單3_dgv.RowTemplate.Height = 列高
  94. If 簽回檔圖庫_tb.Text = "" Then : 圖片庫 = 圖片資料庫指定 : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If : PA1 = 合約編號_tb.Text : PA2 = "請款"
  95. SQL_連線字串_圖片資料庫() : SQL_合約清單_簽回存檔_圖片清單()
  96. da.Fill(ds6) : 圖片清單3_dgv.DataSource = ds6.Tables(0) : conn.Close()
  97. 圖片清單3_dgv.Columns(0).ReadOnly = True
  98. If 圖片清單3_dgv.Rows.Count > 0 Then : DGVX = 0 : 圖片清單讀取3() : Else : 圖片3_pb.Image = Nothing : End If
  99. End Sub
  100. Private Sub 圖片清單讀取3()
  101. 圖片3_pb.Image = Nothing : PA1 = 合約編號_tb.Text : PA2 = "請款" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
  102. PA3 = 圖片清單3_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
  103. If 圖片清單3_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
  104. SQL_合約清單_簽回存檔_圖片讀取()
  105. While dr.Read() = True
  106. Dim unused As Byte() = New Byte(-1) {}
  107. Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
  108. Dim oStream As New MemoryStream(bytes)
  109. 圖片3_pb.Image = Bitmap.FromStream(oStream)
  110. End While : conn.Close() : 圖片3_pb.SizeMode = 4
  111. Else : 圖片3_pb.Image = My.Resources.PDF : 圖片3_pb.SizeMode = 4 : End If
  112. End Sub
  113. Private Sub Set_工程日報圖片4()
  114. Dim ds6 As New DataSet
  115. 圖片清單4_dgv.DataSource = Nothing : ds6.Clear()
  116. 圖片清單4_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  117. 圖片清單4_dgv.ColumnHeadersHeight = 25 : 圖片清單4_dgv.AllowUserToAddRows = False : 圖片清單4_dgv.RowTemplate.Height = 列高
  118. If 簽回檔圖庫_tb.Text = "" Then : 圖片庫 = 圖片資料庫指定 : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If : PA1 = 合約編號_tb.Text : PA2 = "驗收"
  119. SQL_連線字串_圖片資料庫() : SQL_合約清單_簽回存檔_圖片清單()
  120. da.Fill(ds6) : 圖片清單4_dgv.DataSource = ds6.Tables(0) : conn.Close()
  121. 圖片清單4_dgv.Columns(0).ReadOnly = True
  122. If 圖片清單4_dgv.Rows.Count > 0 Then : DGVX = 0 : 圖片清單讀取4() : Else : 圖片4_pb.Image = Nothing : End If
  123. End Sub
  124. Private Sub 圖片清單讀取4()
  125. 圖片4_pb.Image = Nothing : PA1 = 合約編號_tb.Text : PA2 = "驗收" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
  126. PA3 = 圖片清單4_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
  127. If 圖片清單4_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
  128. SQL_合約清單_簽回存檔_圖片讀取()
  129. While dr.Read() = True
  130. Dim unused As Byte() = New Byte(-1) {}
  131. Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
  132. Dim oStream As New MemoryStream(bytes)
  133. 圖片4_pb.Image = Bitmap.FromStream(oStream)
  134. End While : conn.Close() : 圖片4_pb.SizeMode = 4
  135. Else : 圖片4_pb.Image = My.Resources.PDF : 圖片4_pb.SizeMode = 4 : End If
  136. End Sub
  137. Private Sub Set_工程日報圖片5()
  138. Dim ds6 As New DataSet
  139. 圖片清單5_dgv.DataSource = Nothing : ds6.Clear()
  140. 圖片清單5_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  141. 圖片清單5_dgv.ColumnHeadersHeight = 25 : 圖片清單5_dgv.AllowUserToAddRows = False : 圖片清單5_dgv.RowTemplate.Height = 列高
  142. If 簽回檔圖庫_tb.Text = "" Then : 圖片庫 = 圖片資料庫指定 : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If : PA1 = 合約編號_tb.Text : PA2 = "保固"
  143. SQL_連線字串_圖片資料庫() : SQL_合約清單_簽回存檔_圖片清單()
  144. da.Fill(ds6) : 圖片清單5_dgv.DataSource = ds6.Tables(0) : conn.Close()
  145. 圖片清單5_dgv.Columns(0).ReadOnly = True
  146. If 圖片清單5_dgv.Rows.Count > 0 Then : DGVX = 0 : 圖片清單讀取5() : Else : 圖片5_pb.Image = Nothing : End If
  147. End Sub
  148. Private Sub 圖片清單讀取5()
  149. 圖片5_pb.Image = Nothing : PA1 = 合約編號_tb.Text : PA2 = "保固" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
  150. PA3 = 圖片清單5_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
  151. If 圖片清單5_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
  152. SQL_合約清單_簽回存檔_圖片讀取()
  153. While dr.Read() = True
  154. Dim unused As Byte() = New Byte(-1) {}
  155. Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
  156. Dim oStream As New MemoryStream(bytes)
  157. 圖片5_pb.Image = Bitmap.FromStream(oStream)
  158. End While : conn.Close() : 圖片5_pb.SizeMode = 4
  159. Else : 圖片5_pb.Image = My.Resources.PDF : 圖片5_pb.SizeMode = 4 : End If
  160. End Sub
  161. Private Sub Set_工程日報圖片6()
  162. Dim ds6 As New DataSet
  163. 圖片清單6_dgv.DataSource = Nothing : ds6.Clear()
  164. 圖片清單6_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  165. 圖片清單6_dgv.ColumnHeadersHeight = 25 : 圖片清單6_dgv.AllowUserToAddRows = False : 圖片清單6_dgv.RowTemplate.Height = 列高
  166. If 簽回檔圖庫_tb.Text = "" Then : 圖片庫 = 圖片資料庫指定 : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If : PA1 = 合約編號_tb.Text : PA2 = "其他"
  167. SQL_連線字串_圖片資料庫() : SQL_合約清單_簽回存檔_圖片清單()
  168. da.Fill(ds6) : 圖片清單6_dgv.DataSource = ds6.Tables(0) : conn.Close()
  169. 圖片清單6_dgv.Columns(0).ReadOnly = True
  170. If 圖片清單6_dgv.Rows.Count > 0 Then : DGVX = 0 : 圖片清單讀取6() : Else : 圖片6_pb.Image = Nothing : End If
  171. End Sub
  172. Private Sub 圖片清單讀取6()
  173. 圖片6_pb.Image = Nothing : PA1 = 合約編號_tb.Text : PA2 = "其他" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
  174. PA3 = 圖片清單6_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
  175. If 圖片清單6_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
  176. SQL_合約清單_簽回存檔_圖片讀取()
  177. While dr.Read() = True
  178. Dim unused As Byte() = New Byte(-1) {}
  179. Dim bytes As Byte() = DirectCast(dr.Item("圖片"), Byte())
  180. Dim oStream As New MemoryStream(bytes)
  181. 圖片6_pb.Image = Bitmap.FromStream(oStream)
  182. End While : conn.Close() : 圖片6_pb.SizeMode = 4
  183. Else : 圖片6_pb.Image = My.Resources.PDF : 圖片6_pb.SizeMode = 4 : End If
  184. End Sub
  185. Private Sub 甲方條件下拉清單讀取()
  186. SQL合約條件讀取() : 合約編號1_cb.Items.Clear() : 合約編號1_cb.Items.Add("") : While (dr.Read()) : 合約編號1_cb.Items.Add(dr("約號甲方")) : End While : conn.Close()
  187. End Sub
  188. Private Sub 語言轉換讀取()
  189. If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If
  190. Me.Text = 系統語言字典("H001-119-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言) : Label6.Text = 系統語言字典("G000-156-" & 語言)
  191. Label375.Text = 系統語言字典("G000-215-" & 語言) : Label378.Text = 系統語言字典("G000-216-" & 語言) : 表頭(12) = 系統語言字典("H112-105-" & 語言)
  192. Label7.Text = 系統語言字典("H110-117-" & 語言) : Label11.Text = 系統語言字典("H110-118-" & 語言) : 表頭(13) = 系統語言字典("H112-108-" & 語言)
  193. Label372.Text = 系統語言字典("H112-100-" & 語言)
  194. 報價簽回_ch.Text = 系統語言字典("H112-103-" & 語言) : 請款簽回_ch.Text = 系統語言字典("H112-104-" & 語言) : 保固簽回_ch.Text = 系統語言字典("H112-105-" & 語言)
  195. 合約簽回_ch.Text = 系統語言字典("H112-106-" & 語言) : 驗收簽回_ch.Text = 系統語言字典("H112-107-" & 語言) : 其他文件_ch.Text = 系統語言字典("H112-108-" & 語言)
  196. 說明_lb.Text = 系統語言字典("H112-109-" & 語言) : 表頭(1) = 系統語言字典("H501-159-" & 語言) : 表頭(2) = 系統語言字典("H112-117-" & 語言)
  197. 表頭(3) = 系統語言字典("H112-118-" & 語言) : 表頭(4) = 系統語言字典("H112-119-" & 語言) : 表頭(5) = 系統語言字典("H112-120-" & 語言)
  198. 表頭(6) = 系統語言字典("H112-103-" & 語言) : 表頭(7) = 系統語言字典("H112-106-" & 語言) : 表頭(8) = 系統語言字典("H112-104-" & 語言)
  199. 表頭(9) = 系統語言字典("H112-121-" & 語言) : 表頭(10) = 系統語言字典("H112-107-" & 語言) : 表頭(11) = 系統語言字典("H112-122-" & 語言)
  200. 對話框(0) = 系統語言字典("H112-115-" & 語言) : 對話框(1) = 系統語言字典("H112-113-" & 語言) : 對話框(2) = 系統語言字典("H112-111-" & 語言)
  201. 對話框(3) = 系統語言字典("H110-111-" & 語言) : 對話框(4) = 系統語言字典("H112-112-" & 語言) : 對話框(5) = 系統語言字典("H904-127-" & 語言)
  202. 對話框(6) = 系統語言字典("H112-110-" & 語言) : 對話框(7) = 系統語言字典("G000-154-" & 語言)
  203. End Sub
  204. Private Sub 縮放2_bt_MouseEnter(sender As Object, e As EventArgs) Handles 縮放2_bt.MouseEnter
  205. ToolTip1.SetToolTip(Me.縮放2_bt, 系統語言字典("G000-198-" & 語言))
  206. End Sub
  207. Private Sub 查詢_bt_MouseEnter(sender As Object, e As EventArgs) Handles 查詢_bt.MouseEnter
  208. ToolTip1.SetToolTip(Me.查詢_bt, 系統語言字典("G000-113-" & 語言))
  209. End Sub
  210. Private Sub 總表編輯_bt_MouseEnter(sender As Object, e As EventArgs) Handles 總表編輯_bt.MouseEnter
  211. ToolTip1.SetToolTip(Me.總表編輯_bt, 系統語言字典("G000-236-" & 語言))
  212. End Sub
  213. Private Sub 導成圖片_bt_MouseEnter(sender As Object, e As EventArgs) Handles 導成圖片_bt.MouseEnter
  214. ToolTip1.SetToolTip(Me.導成圖片_bt, 系統語言字典("H601-114-" & 語言))
  215. End Sub
  216. Private Sub 刪除圖片_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除圖片_bt.MouseEnter
  217. ToolTip1.SetToolTip(Me.刪除圖片_bt, 系統語言字典("H112-116-" & 語言))
  218. End Sub
  219. Private Sub 讀取資料夾路徑_bt_MouseEnter(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_bt.MouseEnter
  220. ToolTip1.SetToolTip(Me.讀取資料夾路徑_bt, 系統語言字典("G000-196-" & 語言))
  221. End Sub
  222. Private Sub 圖檔入系統_bt_MouseEnter(sender As Object, e As EventArgs) Handles 圖檔入系統_bt.MouseEnter
  223. ToolTip1.SetToolTip(Me.圖檔入系統_bt, 系統語言字典("G000-164-" & 語言))
  224. End Sub
  225. Private Sub 合約文件簽回存檔_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  226. Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
  227. 風格() : H(112) = True : 介面 = "H112" : 語言轉換讀取() : 顯示說明(999, True)
  228. 首次開啟 = False : 切換_ts.Value = True : 新FTP_p.Visible = True : 舊FTP_p.Visible = False
  229. 視窗2_pl.Visible = False : 視窗2_pl.BringToFront() : Panel2.SendToBack() : 合約_dgv.BringToFront() : 舊FTP_p.SendToBack() : 檔案路徑_be.SendToBack()
  230. 合約文件簽回存檔_Size() : 列高 = 25
  231. End Sub
  232. Private Sub 合約文件簽回存檔_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
  233. SQL_文件資料庫查詢()
  234. If dr.Read() Then : 圖片資料庫指定 = dr("工程文件資料庫") : Else : MGB(對話框(7), 1) : End If
  235. 甲方條件下拉清單讀取() : Set_合約清單()
  236. 本機_wb.Navigate(My.Computer.FileSystem.SpecialDirectories.Desktop)
  237. If 待辦進入 <> "" Then
  238. lastFoundRowIndex = -1 : lastFoundColIndex = -1
  239. 關鍵字搜尋_tb.Text = 待辦進入 : 查詢DGV中的關鍵字_自動(合約_dgv, 關鍵字搜尋_tb) : 選擇項 = lastFoundRowIndex : 合約資料讀取()
  240. lastFoundRowIndex = -1 : lastFoundColIndex = -1 : 關鍵字搜尋_tb.Text = "" : 待辦進入 = ""
  241. End If
  242. End Sub
  243. Private Sub 合約文件簽回存檔_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
  244. 合約文件簽回存檔_Size()
  245. End Sub
  246. Private Sub 合約文件簽回存檔_Size()
  247. MyMod.清單字體大小調整()
  248. 合約_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  249. 圖片清單1_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  250. 圖片清單2_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  251. 圖片清單3_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  252. 圖片清單4_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  253. 圖片清單5_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  254. 圖片清單6_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  255. End Sub
  256. Private Sub 合約文件簽回存檔_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
  257. MyMod.虛擬桌面開啟()
  258. End Sub
  259. Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
  260. timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
  261. End Sub
  262. Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
  263. timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
  264. End Sub
  265. Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
  266. 介面 = "H112" : 語言轉換讀取()
  267. End Sub
  268. Private Sub 合約_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 合約_dgv.CellClick
  269. If e.RowIndex = -1 Then : Else : 選擇項 = e.RowIndex : 合約資料讀取() : End If
  270. If 放大 = True Then : 縮放2_bt.PerformClick() : Else : End If
  271. End Sub
  272. Private Sub 合約資料讀取()
  273. 合約編號_tb.Text = 合約_dgv(表頭(1), 選擇項).Value.ToString : 客戶名稱_tb.Text = 合約_dgv(表頭(2), 選擇項).Value.ToString
  274. 工程名稱_中_tb.Text = 合約_dgv(表頭(3), 選擇項).Value.ToString : 工程名稱_英_tb.Text = 合約_dgv(表頭(4), 選擇項).Value.ToString
  275. 簽回檔圖庫_tb.Text = 合約_dgv(表頭(5), 選擇項).Value.ToString
  276. Set_工程日報圖片1() : Set_工程日報圖片2() : Set_工程日報圖片3() : Set_工程日報圖片4() : Set_工程日報圖片5() : Set_工程日報圖片6()
  277. End Sub
  278. Private Sub 圖片清單1_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片清單1_dgv.CellClick
  279. If e.RowIndex = -1 Then : Else : 檔案_rtb.Text = 圖片清單1_dgv("File.", e.RowIndex).Value.ToString
  280. 階段_tb.Text = "報價" : 文件號_tb.Text = 圖片清單1_dgv("Item", e.RowIndex).Value.ToString : DGVX = e.RowIndex : 圖片清單讀取1()
  281. End If
  282. End Sub
  283. Private Sub 圖片清單2_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片清單2_dgv.CellClick
  284. If e.RowIndex = -1 Then : Else : 檔案_rtb.Text = 圖片清單2_dgv("File.", e.RowIndex).Value.ToString
  285. 階段_tb.Text = "合約" : 文件號_tb.Text = 圖片清單2_dgv("Item", e.RowIndex).Value.ToString : DGVX = e.RowIndex : 圖片清單讀取2()
  286. End If
  287. End Sub
  288. Private Sub 圖片清單3_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片清單3_dgv.CellClick
  289. If e.RowIndex = -1 Then : Else : 檔案_rtb.Text = 圖片清單3_dgv("File.", e.RowIndex).Value.ToString
  290. 階段_tb.Text = "請款" : 文件號_tb.Text = 圖片清單3_dgv("Item", e.RowIndex).Value.ToString : DGVX = e.RowIndex : 圖片清單讀取3()
  291. End If
  292. End Sub
  293. Private Sub 圖片清單4_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片清單4_dgv.CellClick
  294. If e.RowIndex = -1 Then : Else : 檔案_rtb.Text = 圖片清單4_dgv("File.", e.RowIndex).Value.ToString
  295. 階段_tb.Text = "驗收" : 文件號_tb.Text = 圖片清單4_dgv("Item", e.RowIndex).Value.ToString : DGVX = e.RowIndex : 圖片清單讀取4()
  296. End If
  297. End Sub
  298. Private Sub 圖片清單5_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片清單5_dgv.CellClick
  299. If e.RowIndex = -1 Then : Else : 檔案_rtb.Text = 圖片清單5_dgv("File.", e.RowIndex).Value.ToString
  300. 階段_tb.Text = "保固" : 文件號_tb.Text = 圖片清單5_dgv("Item", e.RowIndex).Value.ToString : DGVX = e.RowIndex : 圖片清單讀取5()
  301. End If
  302. End Sub
  303. Private Sub 圖片清單6_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 圖片清單6_dgv.CellClick
  304. If e.RowIndex = -1 Then : Else : 檔案_rtb.Text = 圖片清單6_dgv("File.", e.RowIndex).Value.ToString
  305. 階段_tb.Text = "其他" : 文件號_tb.Text = 圖片清單6_dgv("Item", e.RowIndex).Value.ToString : DGVX = e.RowIndex : 圖片清單讀取6()
  306. End If
  307. End Sub
  308. Private Sub 合約編號1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 合約編號1_cb.SelectedIndexChanged
  309. Set_合約清單()
  310. End Sub
  311. Private Sub 合約編號1_cb_Click(sender As Object, e As EventArgs) Handles 合約編號1_cb.Click
  312. CB選擇清單(合約編號1_cb, 合約編號1_cb.Text)
  313. End Sub
  314. Private Sub 圖檔入系統_bt_Click(sender As Object, e As EventArgs) Handles 圖檔入系統_bt.Click
  315. If 切換_ts.Value = True Then : 資料數 = NU1 + 1 : 進度條視窗.Show()
  316. If 報價簽回_ch.Checked = False And 合約簽回_ch.Checked = False And 請款簽回_ch.Checked = False And 驗收簽回_ch.Checked = False And
  317. 保固簽回_ch.Checked = False And 其他文件_ch.Checked = False Then : MGB(對話框(6), 1)
  318. Else
  319. For i As Integer = 0 To NU1
  320. MyMod.計算顯示2() : MyMod.進度條1()
  321. If WW(i) = "" Then : Else
  322. PA1 = 合約編號_tb.Text : 圖片庫 = 圖片資料庫指定 : BL1 = True : 簽回檔圖庫_tb.Text = 圖片庫
  323. If 報價簽回_ch.Checked = True Then : PA2 = "報價" : SQL2 = "報價簽回" : ElseIf 合約簽回_ch.Checked = True Then : PA2 = "合約" : SQL2 = "合約簽回"
  324. ElseIf 請款簽回_ch.Checked = True Then : PA2 = "請款" : SQL2 = "請款簽回" : ElseIf 驗收簽回_ch.Checked = True Then : PA2 = "驗收" : SQL2 = "驗收簽回"
  325. ElseIf 保固簽回_ch.Checked = True Then : PA2 = "保固" : SQL2 = "保固簽回" : ElseIf 其他文件_ch.Checked = True Then : PA2 = "其他" : SQL2 = "其他文件"
  326. End If
  327. SQL_連線字串_圖片資料庫()
  328. Dim 文件號 As String : Dim 文件編號 As Integer
  329. SQL_合約清單_簽回存檔_最後一筆編號查詢()
  330. If dr.Read() Then : 文件編號 = Double.Parse(Strings.Right(dr("文件號").ToString, 2)) : Else : 文件編號 = 0 : End If
  331. conn.Close() : 文件編號 += 1
  332. If 文件編號 < 10 Then : 文件號 = "IM" & "0" & 文件編號
  333. ElseIf 文件編號 > 9 Then : 文件號 = "IM" & 文件編號 : End If
  334. PA3 = 文件號 : PA49 = WW(i) : PA4 = WA(i) : SQL_合約清單_簽回存檔_圖片入系統1() : WW(i) = ""
  335. End If
  336. Next
  337. SQL_合約控制表簽回檔注記() : MGB(對話框(5), 1)
  338. If PA2 = "報價" Then : Set_工程日報圖片1() : ElseIf PA2 = "合約" Then : Set_工程日報圖片2() : ElseIf PA2 = "請款" Then : Set_工程日報圖片3()
  339. ElseIf PA2 = "驗收" Then : Set_工程日報圖片4() : ElseIf PA2 = "保固" Then : Set_工程日報圖片5() : ElseIf PA2 = "其他" Then : Set_工程日報圖片6()
  340. End If : Set_合約清單()
  341. For i As Integer = 0 To 14 : WW(i) = "" : Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB" & i + 1, True)(0), PictureBox) : 選擇.Image = Nothing : Next
  342. MyMod.計算顯示3()
  343. End If
  344. Else
  345. If 報價簽回_ch.Checked = False And 合約簽回_ch.Checked = False And 請款簽回_ch.Checked = False And 驗收簽回_ch.Checked = False And
  346. 保固簽回_ch.Checked = False And 其他文件_ch.Checked = False Then : MGB(對話框(6), 1)
  347. Else
  348. If 檔案名稱_tb.Text = "" Or 副檔名_tb.Text = "" Then : Else
  349. Dim 驗證 As String = "" : Dim 取變數 As String : 取變數 = Strings.StrReverse(檔案名稱_tb.Text & 副檔名_tb.Text)
  350. For i As Integer = 1 To 10
  351. If i = 1 Then : 驗證 = Strings.Left(取變數, i) : Else
  352. If Strings.Mid(取變數, i, 1) = "." Then : 驗證 = Strings.StrReverse(驗證) : Exit For : Else : 驗證 &= Strings.Mid(取變數, i, 1) : End If
  353. End If
  354. Next
  355. If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or
  356. 驗證 = "JPEG" Or 驗證 = "jpeg" Then
  357. PA1 = 合約編號_tb.Text : 圖片庫 = 圖片資料庫指定 : BL1 = True : 簽回檔圖庫_tb.Text = 圖片庫
  358. If 報價簽回_ch.Checked = True Then : PA2 = "報價" : SQL2 = "報價簽回" : ElseIf 合約簽回_ch.Checked = True Then : PA2 = "合約" : SQL2 = "合約簽回"
  359. ElseIf 請款簽回_ch.Checked = True Then : PA2 = "請款" : SQL2 = "請款簽回" : ElseIf 驗收簽回_ch.Checked = True Then : PA2 = "驗收" : SQL2 = "驗收簽回"
  360. ElseIf 保固簽回_ch.Checked = True Then : PA2 = "保固" : SQL2 = "保固簽回" : ElseIf 其他文件_ch.Checked = True Then : PA2 = "其他" : SQL2 = "其他文件"
  361. End If
  362. SQL_連線字串_圖片資料庫()
  363. Dim 文件號 As String : Dim 文件編號 As Integer
  364. SQL_合約清單_簽回存檔_最後一筆編號查詢()
  365. If dr.Read() Then : 文件編號 = Double.Parse(Strings.Right(dr("文件號").ToString, 2)) : Else : 文件編號 = 0 : End If
  366. conn.Close() : 文件編號 += 1
  367. If 文件編號 < 10 Then : 文件號 = "IM" & "0" & 文件編號
  368. ElseIf 文件編號 > 9 Then : 文件號 = "IM" & 文件編號 : End If
  369. PA3 = 文件號 : PA49 = 檔案路徑_be.Value : SQL_合約清單_簽回存檔_圖片入系統()
  370. SQL_合約控制表簽回檔注記() : MGB(對話框(5), 1)
  371. If PA2 = "報價" Then : Set_工程日報圖片1() : ElseIf PA2 = "合約" Then : Set_工程日報圖片2() : ElseIf PA2 = "請款" Then : Set_工程日報圖片3()
  372. ElseIf PA2 = "驗收" Then : Set_工程日報圖片4() : ElseIf PA2 = "保固" Then : Set_工程日報圖片5() : ElseIf PA2 = "其他" Then : Set_工程日報圖片6()
  373. End If : Set_合約清單()
  374. End If
  375. End If
  376. End If
  377. End If
  378. End Sub
  379. Private Sub 導成圖片_bt_Click(sender As Object, e As EventArgs) Handles 導成圖片_bt.Click
  380. If 合約編號_tb.Text = "" Then : MGB(對話框(3), 1) : Else
  381. If 文件號_tb.Text = "" Then : MGB(對話框(2), 1) : Else
  382. If 檔案_rtb.Text <> "PDF" Then
  383. With SaveFileDialog1 : .Filter = "所有文件(*.jpg)|*.jpg" : End With : SaveFileDialog1.FileName = 合約編號_tb.Text & "-" & 階段_tb.Text & ".jpg"
  384. Else
  385. With SaveFileDialog1 : .Filter = "所有文件(*.pdf)|*.pdf" : End With : SaveFileDialog1.FileName = 合約編號_tb.Text & "-" & 階段_tb.Text & ".pdf"
  386. End If
  387. SaveFileDialog1.ShowDialog() : 檔案路徑_tb.Text = SaveFileDialog1.FileName
  388. PA1 = 合約編號_tb.Text : PA2 = 階段_tb.Text : PA3 = 文件號_tb.Text
  389. Dim ds1 As New DataSet : ds1.Clear() : SQL_合約清單_簽回存檔_圖片讀取1() : da.Fill(ds1)
  390. If ds1.Tables(0).Rows.Count > 0 Then
  391. Dim imgData() As Byte
  392. imgData = ds1.Tables(0).Rows(0).Item("圖片")
  393. Dim fs As FileStream
  394. fs = File.Create(檔案路徑_tb.Text, imgData.Length - 1)
  395. fs.Write(imgData, 0, imgData.Length - 1)
  396. fs.Close()
  397. End If : conn.Close() : MGB(對話框(4), 1)
  398. End If
  399. End If
  400. End Sub
  401. Private Sub PDF下載()
  402. 檔案路徑_tb.Text = 合約編號_tb.Text & "-" & 階段_tb.Text & ".pdf"
  403. PA1 = 合約編號_tb.Text : PA2 = 階段_tb.Text : PA3 = 文件號_tb.Text
  404. Dim ds1 As New DataSet : ds1.Clear() : SQL_合約清單_簽回存檔_圖片讀取1() : da.Fill(ds1)
  405. If ds1.Tables(0).Rows.Count > 0 Then
  406. Dim imgData() As Byte
  407. imgData = ds1.Tables(0).Rows(0).Item("圖片")
  408. Dim fs As FileStream
  409. fs = File.Create(檔案路徑_tb.Text, imgData.Length - 1)
  410. fs.Write(imgData, 0, imgData.Length - 1)
  411. fs.Close()
  412. End If : conn.Close()
  413. End Sub
  414. Private Sub 刪除圖片_bt_Click(sender As Object, e As EventArgs) Handles 刪除圖片_bt.Click
  415. If 合約編號_tb.Text = "" Then : MGB(對話框(3), 1) : Else
  416. If 文件號_tb.Text = "" Then : MGB(對話框(2), 1) : Else
  417. MGB(對話框(1), 2)
  418. If 訊息回應 = "YES" Then
  419. Dim SS1 As String = 系統語言字典("H112-114-" & 語言) : INB(SS1) : PA = 訊息回應
  420. If PA = "YES" Then
  421. PA1 = 合約編號_tb.Text : PA2 = 階段_tb.Text : PA3 = 文件號_tb.Text : 圖片庫 = 簽回檔圖庫_tb.Text : SQL_合約清單_簽回存檔_圖片刪除()
  422. If PA2 = "報價" Then : Set_工程日報圖片1() : If 圖片清單1_dgv.Rows.Count = 0 Then : SQL2 = "報價簽回" : BL1 = False : SQL_合約控制表簽回檔注記() : End If
  423. ElseIf PA2 = "合約" Then : Set_工程日報圖片2() : If 圖片清單2_dgv.Rows.Count = 0 Then : SQL2 = "合約簽回" : BL1 = False : SQL_合約控制表簽回檔注記() : End If
  424. ElseIf PA2 = "請款" Then : Set_工程日報圖片3() : If 圖片清單3_dgv.Rows.Count = 0 Then : SQL2 = "請款簽回" : BL1 = False : SQL_合約控制表簽回檔注記() : End If
  425. ElseIf PA2 = "驗收" Then : Set_工程日報圖片4() : If 圖片清單4_dgv.Rows.Count = 0 Then : SQL2 = "驗收簽回" : BL1 = False : SQL_合約控制表簽回檔注記() : End If
  426. ElseIf PA2 = "保固" Then : Set_工程日報圖片5() : If 圖片清單5_dgv.Rows.Count = 0 Then : SQL2 = "保固簽回" : BL1 = False : SQL_合約控制表簽回檔注記() : End If
  427. ElseIf PA2 = "其他" Then : Set_工程日報圖片6() : If 圖片清單6_dgv.Rows.Count = 0 Then : SQL2 = "其他文件" : BL1 = False : SQL_合約控制表簽回檔注記() : End If
  428. End If : Set_合約清單()
  429. End If
  430. End If
  431. End If
  432. End If
  433. End Sub
  434. Private Sub 檔案名稱_tb_DragEnter(sender As Object, e As DragEventArgs) Handles 檔案名稱_tb.DragEnter
  435. If e.Data.GetDataPresent(DataFormats.FileDrop) Then : Dim files As String()
  436. Try
  437. files = CType(e.Data.GetData(DataFormats.FileDrop), String()) : 檔案名稱_tb.Text = files(files.Length - 1)
  438. Catch ex As Exception
  439. MessageBox.Show(ex.Message)
  440. Return
  441. End Try
  442. End If
  443. Dim STR2 As Integer = 0 : 檔案路徑_tb.Text = 檔案名稱_tb.Text : 檔案路徑_be.Value = 檔案名稱_tb.Text
  444. If 檔案名稱_tb.Text = "" Then : Else
  445. For i As Integer = 0 To 9999 : Dim STR1 As Integer = Strings.Len(檔案路徑_tb.Text)
  446. If Strings.Right((檔案路徑_tb.Text), 1) <> "\" Then : STR1 -= 1 : STR2 += 1
  447. If STR1 = 0 Then : 檔案路徑_tb.Text = "" : 檔案名稱_tb.Text = "" : i = 9999
  448. Else : 檔案路徑_tb.Text = Strings.Left((檔案路徑_tb.Text), STR1) : End If
  449. Else : 檔案路徑_tb.Text = Strings.Right((檔案名稱_tb.Text), STR2) : 檔案名稱_tb.Text = 檔案路徑_tb.Text : i = 9999 : End If
  450. Next
  451. End If
  452. '-------取得副檔名---------------------------------------------------------------------------------------------------------------
  453. For I As Integer = 1 To 99 : 副檔名_tb.Text = Strings.Mid(Strings.StrReverse(檔案名稱_tb.Text), I, 1)
  454. If 副檔名_tb.Text = "." Then : 副檔名_tb.Text = Strings.StrReverse(Strings.Left(Strings.StrReverse(檔案名稱_tb.Text), I)) : I = 99 : End If
  455. Next
  456. '-------取得檔名---------------------------------------------------------------------------------------------------------------
  457. Dim 檔名 As String : Dim 檔名長度 As Integer
  458. For I As Integer = 1 To 99 : 檔名 = Strings.Mid(Strings.StrReverse(檔案名稱_tb.Text), I, 1)
  459. If 檔名 = "." Then
  460. 檔名長度 = Len(檔案名稱_tb.Text) - I
  461. 檔案名稱_tb.Text = Strings.Left(檔案名稱_tb.Text, 檔名長度) : I = 99
  462. End If
  463. Next
  464. End Sub
  465. Private Sub 檔案名稱_tb_DragDrop(ByVal sender As Object, ByVal e As DragEventArgs) Handles 檔案名稱_tb.DragDrop
  466. Dim files As Array = e.Data.GetData(DataFormats.FileDrop)
  467. For Each file As String In files
  468. 檔案名稱_tb.AppendText(file + Environment.NewLine)
  469. Next
  470. End Sub
  471. Private Sub 總表編輯_bt_Click(sender As Object, e As EventArgs) Handles 總表編輯_bt.Click
  472. If 視窗2_pl.Visible = False Then : 視窗2_pl.Location = New System.Drawing.Point(372, 126) : 視窗2_pl.Visible = True : Else : 視窗2_pl.Visible = False : End If
  473. End Sub
  474. Private Sub CanceL2_bt_Click(sender As Object, e As EventArgs) Handles CanceL2_bt.Click
  475. If 視窗2_pl.Visible = False Then : 視窗2_pl.Visible = True : 視窗2_pl.BringToFront() : Else
  476. 視窗2_pl.Visible = False : End If
  477. End Sub
  478. Private Sub 報價簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 報價簽回_ch.Click
  479. 報價簽回_ch.Checked = True : 合約簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 保固簽回_ch.Checked = False : 其他文件_ch.Checked = False
  480. End Sub
  481. Private Sub 合約簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 合約簽回_ch.Click
  482. 報價簽回_ch.Checked = False : 合約簽回_ch.Checked = True : 請款簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 保固簽回_ch.Checked = False : 其他文件_ch.Checked = False
  483. End Sub
  484. Private Sub 請款簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 請款簽回_ch.Click
  485. 報價簽回_ch.Checked = False : 合約簽回_ch.Checked = False : 請款簽回_ch.Checked = True : 驗收簽回_ch.Checked = False : 保固簽回_ch.Checked = False : 其他文件_ch.Checked = False
  486. End Sub
  487. Private Sub 驗收簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 驗收簽回_ch.Click
  488. 報價簽回_ch.Checked = False : 合約簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 驗收簽回_ch.Checked = True : 保固簽回_ch.Checked = False : 其他文件_ch.Checked = False
  489. End Sub
  490. Private Sub 保固簽回_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 保固簽回_ch.Click
  491. 報價簽回_ch.Checked = False : 合約簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 保固簽回_ch.Checked = True : 其他文件_ch.Checked = False
  492. End Sub
  493. Private Sub 其他文件_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 其他文件_ch.Click
  494. 報價簽回_ch.Checked = False : 合約簽回_ch.Checked = False : 請款簽回_ch.Checked = False : 驗收簽回_ch.Checked = False : 保固簽回_ch.Checked = False : 其他文件_ch.Checked = True
  495. End Sub
  496. Private Sub 圖片1_pb_pb_Click(sender As Object, e As EventArgs) Handles 圖片1_pb.Click
  497. If 圖片清單1_dgv.Rows.Count > 0 Then
  498. If DGVX > 圖片清單1_dgv.Rows.Count - 1 Then : DGVX = 圖片清單1_dgv.Rows.Count - 1 : End If
  499. If 圖片清單1_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
  500. If IsNothing(圖片1_pb.Image) = False Then : 圖片傳遞 = 圖片1_pb.Image : 圖片放大視窗.ShowDialog() : End If
  501. Else
  502. PA1 = 合約編號_tb.Text : PA2 = "報價" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
  503. PA3 = 圖片清單1_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
  504. Dim Str As String = Application.StartupPath : Dim ds1 As New DataSet : ds1.Clear() : SQL_合約清單_簽回存檔_圖片讀取_1() : da.Fill(ds1)
  505. If ds1.Tables(0).Rows.Count > 0 Then
  506. Dim imgData() As Byte : imgData = ds1.Tables(0).Rows(0).Item("圖片")
  507. Dim fs As FileStream : fs = File.Create(Str + "\" & PA2 & ".pdf", imgData.Length - 1)
  508. fs.Write(imgData, 0, imgData.Length - 1) : fs.Close()
  509. End If : conn.Close() : PDF路徑 = Str + "\" & PA2 & ".pdf" : PDF預覽.ShowDialog()
  510. End If
  511. End If
  512. End Sub
  513. Private Sub 圖片2_pb_pb_Click(sender As Object, e As EventArgs) Handles 圖片2_pb.Click
  514. If 圖片清單2_dgv.Rows.Count > 0 Then
  515. If DGVX > 圖片清單2_dgv.Rows.Count - 1 Then : DGVX = 圖片清單2_dgv.Rows.Count - 1 : End If
  516. If 圖片清單2_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
  517. If IsNothing(圖片2_pb.Image) = False Then : 圖片傳遞 = 圖片2_pb.Image : 圖片放大視窗.ShowDialog() : End If
  518. Else
  519. PA1 = 合約編號_tb.Text : PA2 = "合約" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
  520. PA3 = 圖片清單2_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
  521. Dim Str As String = Application.StartupPath : Dim ds1 As New DataSet : ds1.Clear() : SQL_合約清單_簽回存檔_圖片讀取_1() : da.Fill(ds1)
  522. If ds1.Tables(0).Rows.Count > 0 Then
  523. Dim imgData() As Byte : imgData = ds1.Tables(0).Rows(0).Item("圖片")
  524. Dim fs As FileStream : fs = File.Create(Str + "\" & PA2 & ".pdf", imgData.Length - 1)
  525. fs.Write(imgData, 0, imgData.Length - 1) : fs.Close()
  526. End If : conn.Close() : PDF路徑 = Str + "\" & PA2 & ".pdf" : PDF預覽.ShowDialog()
  527. End If
  528. End If
  529. End Sub
  530. Private Sub 圖片3_pb_pb_Click(sender As Object, e As EventArgs) Handles 圖片3_pb.Click
  531. If 圖片清單3_dgv.Rows.Count > 0 Then
  532. If DGVX > 圖片清單3_dgv.Rows.Count - 1 Then : DGVX = 圖片清單3_dgv.Rows.Count - 1 : End If
  533. If 圖片清單3_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
  534. If IsNothing(圖片3_pb.Image) = False Then : 圖片傳遞 = 圖片3_pb.Image : 圖片放大視窗.ShowDialog() : End If
  535. Else
  536. PA1 = 合約編號_tb.Text : PA2 = "請款" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
  537. PA3 = 圖片清單3_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
  538. Dim Str As String = Application.StartupPath : Dim ds1 As New DataSet : ds1.Clear() : SQL_合約清單_簽回存檔_圖片讀取_1() : da.Fill(ds1)
  539. If ds1.Tables(0).Rows.Count > 0 Then
  540. Dim imgData() As Byte : imgData = ds1.Tables(0).Rows(0).Item("圖片")
  541. Dim fs As FileStream : fs = File.Create(Str + "\" & PA2 & ".pdf", imgData.Length - 1)
  542. fs.Write(imgData, 0, imgData.Length - 1) : fs.Close()
  543. End If : conn.Close() : PDF路徑 = Str + "\" & PA2 & ".pdf" : PDF預覽.ShowDialog()
  544. End If
  545. End If
  546. End Sub
  547. Private Sub 圖片4_pb_pb_Click(sender As Object, e As EventArgs) Handles 圖片4_pb.Click
  548. If 圖片清單4_dgv.Rows.Count > 0 Then
  549. If DGVX > 圖片清單4_dgv.Rows.Count - 1 Then : DGVX = 圖片清單4_dgv.Rows.Count - 1 : End If
  550. If 圖片清單4_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
  551. If IsNothing(圖片4_pb.Image) = False Then : 圖片傳遞 = 圖片4_pb.Image : 圖片放大視窗.ShowDialog() : End If
  552. Else
  553. PA1 = 合約編號_tb.Text : PA2 = "驗收" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
  554. PA3 = 圖片清單4_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
  555. Dim Str As String = Application.StartupPath : Dim ds1 As New DataSet : ds1.Clear() : SQL_合約清單_簽回存檔_圖片讀取_1() : da.Fill(ds1)
  556. If ds1.Tables(0).Rows.Count > 0 Then
  557. Dim imgData() As Byte : imgData = ds1.Tables(0).Rows(0).Item("圖片")
  558. Dim fs As FileStream : fs = File.Create(Str + "\" & PA2 & ".pdf", imgData.Length - 1)
  559. fs.Write(imgData, 0, imgData.Length - 1) : fs.Close()
  560. End If : conn.Close() : PDF路徑 = Str + "\" & PA2 & ".pdf" : PDF預覽.ShowDialog()
  561. End If
  562. End If
  563. End Sub
  564. Private Sub 圖片5_pb_pb_Click(sender As Object, e As EventArgs) Handles 圖片5_pb.Click
  565. If 圖片清單5_dgv.Rows.Count > 0 Then
  566. If DGVX > 圖片清單5_dgv.Rows.Count - 1 Then : DGVX = 圖片清單5_dgv.Rows.Count - 1 : End If
  567. If 圖片清單5_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
  568. If IsNothing(圖片5_pb.Image) = False Then : 圖片傳遞 = 圖片5_pb.Image : 圖片放大視窗.ShowDialog() : End If
  569. Else
  570. PA1 = 合約編號_tb.Text : PA2 = "保固" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
  571. PA3 = 圖片清單5_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
  572. Dim Str As String = Application.StartupPath : Dim ds1 As New DataSet : ds1.Clear() : SQL_合約清單_簽回存檔_圖片讀取_1() : da.Fill(ds1)
  573. If ds1.Tables(0).Rows.Count > 0 Then
  574. Dim imgData() As Byte : imgData = ds1.Tables(0).Rows(0).Item("圖片")
  575. Dim fs As FileStream : fs = File.Create(Str + "\" & PA2 & ".pdf", imgData.Length - 1)
  576. fs.Write(imgData, 0, imgData.Length - 1) : fs.Close()
  577. End If : conn.Close() : PDF路徑 = Str + "\" & PA2 & ".pdf" : PDF預覽.ShowDialog()
  578. End If
  579. End If
  580. End Sub
  581. Private Sub 圖片6_pb_pb_Click(sender As Object, e As EventArgs) Handles 圖片6_pb.Click
  582. If 圖片清單6_dgv.Rows.Count > 0 Then
  583. If DGVX > 圖片清單6_dgv.Rows.Count - 1 Then : DGVX = 圖片清單6_dgv.Rows.Count - 1 : End If
  584. If 圖片清單6_dgv.Rows(DGVX).Cells("File.").Value.ToString = "JPG" Then
  585. If IsNothing(圖片6_pb.Image) = False Then : 圖片傳遞 = 圖片6_pb.Image : 圖片放大視窗.ShowDialog() : End If
  586. Else
  587. PA1 = 合約編號_tb.Text : PA2 = "其他" : If 簽回檔圖庫_tb.Text = "" Then : Else : 圖片庫 = 簽回檔圖庫_tb.Text : End If
  588. PA3 = 圖片清單6_dgv("Item", DGVX).Value.ToString : SQL_連線字串_圖片資料庫()
  589. Dim Str As String = Application.StartupPath : Dim ds1 As New DataSet : ds1.Clear() : SQL_合約清單_簽回存檔_圖片讀取_1() : da.Fill(ds1)
  590. If ds1.Tables(0).Rows.Count > 0 Then
  591. Dim imgData() As Byte : imgData = ds1.Tables(0).Rows(0).Item("圖片")
  592. Dim fs As FileStream : fs = File.Create(Str + "\" & PA2 & ".pdf", imgData.Length - 1)
  593. fs.Write(imgData, 0, imgData.Length - 1) : fs.Close()
  594. End If : conn.Close() : PDF路徑 = Str + "\" & PA2 & ".pdf" : PDF預覽.ShowDialog()
  595. End If
  596. End If
  597. End Sub
  598. Private Sub 順時鐘90度旋轉1_bt_Click(sender As Object, e As EventArgs) Handles 順時鐘90度旋轉1_bt.Click
  599. If IsNothing(圖片1_pb.Image) = True Then : Else : 圖片1_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 圖片1_pb.Refresh() : 圖片1_pb.SizeMode = 4 : End If
  600. End Sub
  601. Private Sub 逆時鐘90度旋轉1_bt_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度旋轉1_bt.Click
  602. If IsNothing(圖片1_pb.Image) = True Then : Else : 圖片1_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 圖片1_pb.Refresh() : 圖片1_pb.SizeMode = 4 : End If
  603. End Sub
  604. Private Sub 水平翻轉1_bt_Click(sender As Object, e As EventArgs) Handles 水平翻轉1_bt.Click
  605. If IsNothing(圖片1_pb.Image) = True Then : Else : 圖片1_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 圖片1_pb.Refresh() : 圖片1_pb.SizeMode = 4 : End If
  606. End Sub
  607. Private Sub 垂直翻轉1_bt_Click(sender As Object, e As EventArgs) Handles 垂直翻轉1_bt.Click
  608. If IsNothing(圖片1_pb.Image) = True Then : Else : 圖片1_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 圖片1_pb.Refresh() : 圖片1_pb.SizeMode = 4 : End If
  609. End Sub
  610. Private Sub 順時鐘90度旋轉2_bt_Click(sender As Object, e As EventArgs) Handles 順時鐘90度旋轉2_bt.Click
  611. If IsNothing(圖片2_pb.Image) = True Then : Else : 圖片2_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 圖片2_pb.Refresh() : 圖片2_pb.SizeMode = 4 : End If
  612. End Sub
  613. Private Sub 逆時鐘90度旋轉2_bt_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度旋轉2_bt.Click
  614. If IsNothing(圖片2_pb.Image) = True Then : Else : 圖片2_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 圖片2_pb.Refresh() : 圖片2_pb.SizeMode = 4 : End If
  615. End Sub
  616. Private Sub 水平翻轉2_bt_Click(sender As Object, e As EventArgs) Handles 水平翻轉2_bt.Click
  617. If IsNothing(圖片2_pb.Image) = True Then : Else : 圖片2_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 圖片2_pb.Refresh() : 圖片2_pb.SizeMode = 4 : End If
  618. End Sub
  619. Private Sub 垂直翻轉2_bt_Click(sender As Object, e As EventArgs) Handles 垂直翻轉2_bt.Click
  620. If IsNothing(圖片2_pb.Image) = True Then : Else : 圖片2_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 圖片2_pb.Refresh() : 圖片2_pb.SizeMode = 4 : End If
  621. End Sub
  622. Private Sub 順時鐘90度旋轉3_bt_Click(sender As Object, e As EventArgs) Handles 順時鐘90度旋轉3_bt.Click
  623. If IsNothing(圖片3_pb.Image) = True Then : Else : 圖片3_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 圖片3_pb.Refresh() : 圖片3_pb.SizeMode = 4 : End If
  624. End Sub
  625. Private Sub 逆時鐘90度旋轉3_bt_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度旋轉3_bt.Click
  626. If IsNothing(圖片3_pb.Image) = True Then : Else : 圖片3_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 圖片3_pb.Refresh() : 圖片3_pb.SizeMode = 4 : End If
  627. End Sub
  628. Private Sub 水平翻轉3_bt_Click(sender As Object, e As EventArgs) Handles 水平翻轉3_bt.Click
  629. If IsNothing(圖片3_pb.Image) = True Then : Else : 圖片3_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 圖片3_pb.Refresh() : 圖片3_pb.SizeMode = 4 : End If
  630. End Sub
  631. Private Sub 垂直翻轉3_bt_Click(sender As Object, e As EventArgs) Handles 垂直翻轉3_bt.Click
  632. If IsNothing(圖片3_pb.Image) = True Then : Else : 圖片3_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 圖片3_pb.Refresh() : 圖片3_pb.SizeMode = 4 : End If
  633. End Sub
  634. Private Sub 順時鐘90度旋轉4_bt_Click(sender As Object, e As EventArgs) Handles 順時鐘90度旋轉4_bt.Click
  635. If IsNothing(圖片4_pb.Image) = True Then : Else : 圖片4_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 圖片4_pb.Refresh() : 圖片4_pb.SizeMode = 4 : End If
  636. End Sub
  637. Private Sub 逆時鐘90度旋轉4_bt_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度旋轉4_bt.Click
  638. If IsNothing(圖片4_pb.Image) = True Then : Else : 圖片4_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 圖片4_pb.Refresh() : 圖片4_pb.SizeMode = 4 : End If
  639. End Sub
  640. Private Sub 水平翻轉4_bt_Click(sender As Object, e As EventArgs) Handles 水平翻轉4_bt.Click
  641. If IsNothing(圖片4_pb.Image) = True Then : Else : 圖片4_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 圖片4_pb.Refresh() : 圖片4_pb.SizeMode = 4 : End If
  642. End Sub
  643. Private Sub 垂直翻轉4_bt_Click(sender As Object, e As EventArgs) Handles 垂直翻轉4_bt.Click
  644. If IsNothing(圖片4_pb.Image) = True Then : Else : 圖片4_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 圖片4_pb.Refresh() : 圖片4_pb.SizeMode = 4 : End If
  645. End Sub
  646. Private Sub 順時鐘90度旋轉5_bt_Click(sender As Object, e As EventArgs) Handles 順時鐘90度旋轉5_bt.Click
  647. If IsNothing(圖片5_pb.Image) = True Then : Else : 圖片5_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 圖片5_pb.Refresh() : 圖片5_pb.SizeMode = 4 : End If
  648. End Sub
  649. Private Sub 逆時鐘90度旋轉5_bt_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度旋轉5_bt.Click
  650. If IsNothing(圖片5_pb.Image) = True Then : Else : 圖片5_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 圖片5_pb.Refresh() : 圖片5_pb.SizeMode = 4 : End If
  651. End Sub
  652. Private Sub 水平翻轉5_bt_Click(sender As Object, e As EventArgs) Handles 水平翻轉5_bt.Click
  653. If IsNothing(圖片5_pb.Image) = True Then : Else : 圖片5_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 圖片5_pb.Refresh() : 圖片5_pb.SizeMode = 4 : End If
  654. End Sub
  655. Private Sub 垂直翻轉5_bt_Click(sender As Object, e As EventArgs) Handles 垂直翻轉5_bt.Click
  656. If IsNothing(圖片5_pb.Image) = True Then : Else : 圖片5_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 圖片5_pb.Refresh() : 圖片5_pb.SizeMode = 4 : End If
  657. End Sub
  658. Private Sub 順時鐘90度旋轉6_bt_Click(sender As Object, e As EventArgs) Handles 順時鐘90度旋轉6_bt.Click
  659. If IsNothing(圖片6_pb.Image) = True Then : Else : 圖片6_pb.Image.RotateFlip(RotateFlipType.Rotate90FlipNone) : 圖片6_pb.Refresh() : 圖片6_pb.SizeMode = 4 : End If
  660. End Sub
  661. Private Sub 逆時鐘90度旋轉6_bt_Click(sender As Object, e As EventArgs) Handles 逆時鐘90度旋轉6_bt.Click
  662. If IsNothing(圖片6_pb.Image) = True Then : Else : 圖片6_pb.Image.RotateFlip(RotateFlipType.Rotate270FlipNone) : 圖片6_pb.Refresh() : 圖片6_pb.SizeMode = 4 : End If
  663. End Sub
  664. Private Sub 水平翻轉6_bt_Click(sender As Object, e As EventArgs) Handles 水平翻轉6_bt.Click
  665. If IsNothing(圖片6_pb.Image) = True Then : Else : 圖片6_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipY) : 圖片6_pb.Refresh() : 圖片6_pb.SizeMode = 4 : End If
  666. End Sub
  667. Private Sub 垂直翻轉6_bt_Click(sender As Object, e As EventArgs) Handles 垂直翻轉6_bt.Click
  668. If IsNothing(圖片6_pb.Image) = True Then : Else : 圖片6_pb.Image.RotateFlip(RotateFlipType.Rotate180FlipX) : 圖片6_pb.Refresh() : 圖片6_pb.SizeMode = 4 : End If
  669. End Sub
  670. Private Sub 縮放2_bt_Click(sender As Object, e As EventArgs) Handles 縮放2_bt.Click
  671. Dim NX, NY As Integer : NX = 合約_dgv.Size.Width : NY = 合約_dgv.Size.Height
  672. If 放大 = True Then
  673. 合約_dgv.Size = New System.Drawing.Point(NX - 600, NY) : 放大 = False : 合約_dgv.Columns(表頭(3)).Visible = False
  674. 合約_dgv.Columns(表頭(6)).Visible = False : 合約_dgv.Columns(表頭(7)).Visible = False : 合約_dgv.Columns(表頭(8)).Visible = False
  675. 合約_dgv.Columns(表頭(9)).Visible = False : 合約_dgv.Columns(表頭(10)).Visible = False : 合約_dgv.Columns(表頭(11)).Visible = False
  676. 合約_dgv.Columns(表頭(12)).Visible = False : 合約_dgv.Columns(表頭(13)).Visible = False
  677. Else
  678. 合約_dgv.Size = New System.Drawing.Point(NX + 600, NY) : 放大 = True : 合約_dgv.Columns(表頭(3)).Visible = True
  679. 合約_dgv.Columns(表頭(6)).Visible = True : 合約_dgv.Columns(表頭(7)).Visible = True : 合約_dgv.Columns(表頭(8)).Visible = True
  680. 合約_dgv.Columns(表頭(9)).Visible = True : 合約_dgv.Columns(表頭(10)).Visible = True : 合約_dgv.Columns(表頭(11)).Visible = True
  681. 合約_dgv.Columns(表頭(12)).Visible = True : 合約_dgv.Columns(表頭(13)).Visible = True
  682. End If
  683. End Sub
  684. Private Sub 讀取資料夾路徑_bt_Click(sender As Object, e As EventArgs) Handles 讀取資料夾路徑_bt.Click
  685. If 切換_ts.Value = True Then
  686. If OpenFileDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then
  687. If OpenFileDialog1.FileNames.Length > 15 Then : MGB(對話框(0), 1) : Else
  688. For i As Integer = 0 To 14 : WW(i) = "" : WA(i) = "" : Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB" & i + 1, True)(0), PictureBox) : 選擇.Image = Nothing : Next
  689. NU1 = OpenFileDialog1.FileNames.Length - 1
  690. For i As Integer = 0 To OpenFileDialog1.FileNames.Length - 1 : WW(i) = OpenFileDialog1.FileNames(i) : Next
  691. For i As Integer = 0 To NU1
  692. Dim 驗證 As String = "" : Dim 取變數 As String : 取變數 = Strings.StrReverse(WW(i))
  693. For ii As Integer = 1 To 10
  694. If ii = 1 Then : 驗證 = Strings.Left(取變數, ii) : Else
  695. If Strings.Mid(取變數, ii, 1) = "." Then : 驗證 = Strings.StrReverse(驗證) : Exit For : Else : 驗證 &= Strings.Mid(取變數, ii, 1) : End If
  696. End If
  697. Next
  698. If 驗證 = "PNG" Or 驗證 = "png" Or 驗證 = "GIF" Or 驗證 = "gif" Or 驗證 = "BMP" Or 驗證 = "bmp" Or 驗證 = "JPG" Or 驗證 = "jpg" Or
  699. 驗證 = "JPEG" Or 驗證 = "jpeg" Then : WA(i) = "JPG"
  700. Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB" & i + 1, True)(0), PictureBox) : 選擇.Image = Image.FromFile(WW(i)) : 選擇.SizeMode = 4
  701. ElseIf 驗證 = "PDF" Or 驗證 = "pdf" Then : WA(i) = "PDF"
  702. Dim 選擇 As PictureBox = CType(Me.Controls.Find("PB" & i + 1, True)(0), PictureBox) : 選擇.Image = My.Resources.PDF : 選擇.SizeMode = 4
  703. Else : WW(i) = "" : WA(i) = "" : End If
  704. Next
  705. End If
  706. End If
  707. Else
  708. If FolderBrowserDialog1.ShowDialog = DialogResult.OK Then : 本機_wb.Navigate(FolderBrowserDialog1.SelectedPath) : End If
  709. End If
  710. End Sub
  711. Private Sub 切換_ts_ValueChanged(sender As Object, e As EventArgs) Handles 切換_ts.ValueChanged
  712. If 首次開啟 = True Then : Else
  713. If 切換_ts.Value = True Then
  714. 切換_ts.Value = True : 新FTP_p.Visible = True : 舊FTP_p.Visible = False
  715. Else
  716. 切換_ts.Value = False : 新FTP_p.Visible = False : 舊FTP_p.Visible = True
  717. End If
  718. End If
  719. End Sub
  720. Private Sub 查詢_bt_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
  721. Set_合約清單()
  722. End Sub
  723. Dim OldX, OldY As Long
  724. Dim drag As Boolean
  725. Private Sub 視窗2_pl_MouseDown(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseDown
  726. If e.Button = MouseButtons.Left Then : OldX = e.X : OldY = e.Y : drag = True : End If
  727. End Sub
  728. Private Sub 視窗2_pl_MouseMove(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseMove
  729. If drag Then : 視窗2_pl.Left = 視窗2_pl.Left + e.X - OldX : 視窗2_pl.Top = 視窗2_pl.Top + e.Y - OldY : End If
  730. End Sub
  731. Private Sub 視窗2_pl_MouseUp(ByVal sender As Object, ByVal e As System.Windows.Forms.MouseEventArgs) Handles 視窗2_pl.MouseUp
  732. drag = False
  733. End Sub
  734. Private Sub 風格()
  735. If 深色風格 = False Then
  736. Panel1.BackColor = SystemColors.Control
  737. Panel4.BackColor = SystemColors.Control
  738. Label7.ForeColor = Color.Black : Label11.ForeColor = Color.Black : Label1.ForeColor = Color.Black : Label372.ForeColor = Color.Red : 電腦_lb.ForeColor = Color.Black
  739. Label375.ForeColor = Color.Red : Label378.ForeColor = Color.Red : 報價簽回_ch.ForeColor = Color.Black : 合約簽回_ch.ForeColor = Color.Black
  740. 請款簽回_ch.ForeColor = Color.Black : 驗收簽回_ch.ForeColor = Color.Black : 保固簽回_ch.ForeColor = Color.Black : 其他文件_ch.ForeColor = Color.Black
  741. Label6.ForeColor = Color.Black : Label7.ForeColor = Color.Black : 日報表編輯_lb.ForeColor = Color.Black : 說明_lb.ForeColor = Color.Red
  742. Label5.ForeColor = Color.Black : Label10.ForeColor = Color.Black : Label4.ForeColor = Color.Black : Label2.ForeColor = Color.Black : Label3.ForeColor = Color.Black
  743. 關鍵字搜尋_tb.BackColor = Color.White : 關鍵字搜尋_tb.ForeColor = Color.Black : 合約編號_tb.BackColor = Color.White : 合約編號_tb.ForeColor = Color.Black
  744. 工程名稱_中_tb.BackColor = Color.White : 工程名稱_中_tb.ForeColor = Color.Black : 簽回檔圖庫_tb.BackColor = Color.White : 簽回檔圖庫_tb.ForeColor = Color.Black
  745. 階段_tb.BackColor = Color.White : 階段_tb.ForeColor = Color.Black : 文件號_tb.BackColor = Color.White : 文件號_tb.ForeColor = Color.Black
  746. 客戶名稱_tb.BackColor = Color.White : 客戶名稱_tb.ForeColor = Color.Black : 工程名稱_英_tb.BackColor = Color.White : 工程名稱_英_tb.ForeColor = Color.Black
  747. 語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black : 檔案名稱_tb.BackColor = Color.White : 檔案名稱_tb.ForeColor = Color.Black
  748. 合約編號1_cb.BackColor = Color.White : 合約編號1_cb.ForeColor = Color.Black
  749. 查詢_bt.BackColor = Color.White : 縮放2_bt.BackColor = Color.White : 總表編輯_bt.BackColor = Color.White : 圖檔入系統_bt.BackColor = Color.White
  750. 導成圖片_bt.BackColor = Color.White : 刪除圖片_bt.BackColor = Color.White : 讀取資料夾路徑_bt.BackColor = Color.White : 視窗2_pl.BackColor = SystemColors.Control
  751. 圖片1_pb.BackColor = SystemColors.Control : 圖片2_pb.BackColor = SystemColors.Control : 圖片3_pb.BackColor = SystemColors.Control : Panel3.BackColor = Color.White
  752. 圖片4_pb.BackColor = SystemColors.Control : 圖片5_pb.BackColor = SystemColors.Control : 圖片6_pb.BackColor = SystemColors.Control
  753. PB1.BackColor = Color.White : PB4.BackColor = Color.White : PB7.BackColor = Color.White : PB10.BackColor = Color.White : PB13.BackColor = Color.White
  754. PB2.BackColor = Color.White : PB5.BackColor = Color.White : PB8.BackColor = Color.White : PB11.BackColor = Color.White : PB14.BackColor = Color.White
  755. PB3.BackColor = Color.White : PB6.BackColor = Color.White : PB9.BackColor = Color.White : PB12.BackColor = Color.White : PB15.BackColor = Color.White
  756. 合約_dgv.EnableHeadersVisualStyles = True : 合約_dgv.BackgroundColor = Color.White : 合約_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
  757. 合約_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink
  758. 合約_dgv.DefaultCellStyle.BackColor = Color.White : 合約_dgv.DefaultCellStyle.ForeColor = Color.Black
  759. 圖片清單1_dgv.EnableHeadersVisualStyles = True : 圖片清單1_dgv.BackgroundColor = Color.White : 圖片清單1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
  760. 圖片清單1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
  761. 圖片清單1_dgv.DefaultCellStyle.BackColor = Color.White : 圖片清單1_dgv.DefaultCellStyle.ForeColor = Color.Black
  762. 圖片清單2_dgv.EnableHeadersVisualStyles = True : 圖片清單2_dgv.BackgroundColor = Color.White : 圖片清單2_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
  763. 圖片清單2_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
  764. 圖片清單2_dgv.DefaultCellStyle.BackColor = Color.White : 圖片清單2_dgv.DefaultCellStyle.ForeColor = Color.Black
  765. 圖片清單3_dgv.EnableHeadersVisualStyles = True : 圖片清單3_dgv.BackgroundColor = Color.White : 圖片清單3_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
  766. 圖片清單3_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
  767. 圖片清單3_dgv.DefaultCellStyle.BackColor = Color.White : 圖片清單3_dgv.DefaultCellStyle.ForeColor = Color.Black
  768. 圖片清單4_dgv.EnableHeadersVisualStyles = True : 圖片清單4_dgv.BackgroundColor = Color.White : 圖片清單4_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
  769. 圖片清單4_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
  770. 圖片清單4_dgv.DefaultCellStyle.BackColor = Color.White : 圖片清單4_dgv.DefaultCellStyle.ForeColor = Color.Black
  771. 圖片清單5_dgv.EnableHeadersVisualStyles = True : 圖片清單5_dgv.BackgroundColor = Color.White : 圖片清單5_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
  772. 圖片清單5_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
  773. 圖片清單5_dgv.DefaultCellStyle.BackColor = Color.White : 圖片清單5_dgv.DefaultCellStyle.ForeColor = Color.Black
  774. 圖片清單6_dgv.EnableHeadersVisualStyles = True : 圖片清單6_dgv.BackgroundColor = Color.White : 圖片清單6_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black
  775. 圖片清單6_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightBlue
  776. 圖片清單6_dgv.DefaultCellStyle.BackColor = Color.White : 圖片清單6_dgv.DefaultCellStyle.ForeColor = Color.Black
  777. Else
  778. Panel1.BackColor = Color.Black
  779. Panel4.BackColor = Color.Black
  780. Label7.ForeColor = Color.White : Label11.ForeColor = Color.White : Label1.ForeColor = Color.White : Label372.ForeColor = Color.LightPink : 電腦_lb.ForeColor = Color.White
  781. Label375.ForeColor = Color.LightPink : Label378.ForeColor = Color.LightPink : 報價簽回_ch.ForeColor = Color.White : 合約簽回_ch.ForeColor = Color.White
  782. 請款簽回_ch.ForeColor = Color.White : 驗收簽回_ch.ForeColor = Color.White : 保固簽回_ch.ForeColor = Color.White : 其他文件_ch.ForeColor = Color.White
  783. Label6.ForeColor = Color.White : Label7.ForeColor = Color.White : 日報表編輯_lb.ForeColor = Color.White : 說明_lb.ForeColor = Color.LightPink
  784. Label5.ForeColor = Color.White : Label10.ForeColor = Color.White : Label4.ForeColor = Color.White : Label2.ForeColor = Color.White : Label3.ForeColor = Color.White
  785. 關鍵字搜尋_tb.BackColor = Color.DimGray : 關鍵字搜尋_tb.ForeColor = Color.White : 合約編號_tb.BackColor = Color.DimGray : 合約編號_tb.ForeColor = Color.White
  786. 工程名稱_中_tb.BackColor = Color.DimGray : 工程名稱_中_tb.ForeColor = Color.White : 簽回檔圖庫_tb.BackColor = Color.DimGray : 簽回檔圖庫_tb.ForeColor = Color.White
  787. 階段_tb.BackColor = Color.DimGray : 階段_tb.ForeColor = Color.White : 文件號_tb.BackColor = Color.DimGray : 文件號_tb.ForeColor = Color.White
  788. 客戶名稱_tb.BackColor = Color.DimGray : 客戶名稱_tb.ForeColor = Color.White : 工程名稱_英_tb.BackColor = Color.DimGray : 工程名稱_英_tb.ForeColor = Color.White
  789. 語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White : 檔案名稱_tb.BackColor = Color.DimGray : 檔案名稱_tb.ForeColor = Color.White
  790. 合約編號1_cb.BackColor = Color.DimGray : 合約編號1_cb.ForeColor = Color.White
  791. 查詢_bt.BackColor = Color.DimGray : 縮放2_bt.BackColor = Color.DimGray : 總表編輯_bt.BackColor = Color.DimGray : 圖檔入系統_bt.BackColor = Color.DimGray
  792. 導成圖片_bt.BackColor = Color.DimGray : 刪除圖片_bt.BackColor = Color.DimGray : 讀取資料夾路徑_bt.BackColor = Color.DimGray : 視窗2_pl.BackColor = Color.DimGray
  793. 圖片1_pb.BackColor = Color.DimGray : 圖片2_pb.BackColor = Color.DimGray : 圖片3_pb.BackColor = Color.DimGray : Panel3.BackColor = Color.Black
  794. 圖片4_pb.BackColor = Color.DimGray : 圖片5_pb.BackColor = Color.DimGray : 圖片6_pb.BackColor = Color.DimGray
  795. PB1.BackColor = Color.DimGray : PB4.BackColor = Color.DimGray : PB7.BackColor = Color.DimGray : PB10.BackColor = Color.DimGray : PB13.BackColor = Color.DimGray
  796. PB2.BackColor = Color.DimGray : PB5.BackColor = Color.DimGray : PB8.BackColor = Color.DimGray : PB11.BackColor = Color.DimGray : PB14.BackColor = Color.DimGray
  797. PB3.BackColor = Color.DimGray : PB6.BackColor = Color.DimGray : PB9.BackColor = Color.DimGray : PB12.BackColor = Color.DimGray : PB15.BackColor = Color.DimGray
  798. 合約_dgv.EnableHeadersVisualStyles = False : 合約_dgv.BackgroundColor = Color.DimGray : 合約_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
  799. 合約_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 合約_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
  800. 合約_dgv.DefaultCellStyle.BackColor = Color.Black : 合約_dgv.DefaultCellStyle.ForeColor = Color.White
  801. 圖片清單1_dgv.EnableHeadersVisualStyles = False : 圖片清單1_dgv.BackgroundColor = Color.DimGray : 圖片清單1_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
  802. 圖片清單1_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 圖片清單1_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
  803. 圖片清單1_dgv.DefaultCellStyle.BackColor = Color.Black : 圖片清單1_dgv.DefaultCellStyle.ForeColor = Color.White
  804. 圖片清單2_dgv.EnableHeadersVisualStyles = False : 圖片清單2_dgv.BackgroundColor = Color.DimGray : 圖片清單2_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
  805. 圖片清單2_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 圖片清單2_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
  806. 圖片清單2_dgv.DefaultCellStyle.BackColor = Color.Black : 圖片清單2_dgv.DefaultCellStyle.ForeColor = Color.White
  807. 圖片清單3_dgv.EnableHeadersVisualStyles = False : 圖片清單3_dgv.BackgroundColor = Color.DimGray : 圖片清單3_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
  808. 圖片清單3_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 圖片清單3_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
  809. 圖片清單3_dgv.DefaultCellStyle.BackColor = Color.Black : 圖片清單3_dgv.DefaultCellStyle.ForeColor = Color.White
  810. 圖片清單4_dgv.EnableHeadersVisualStyles = False : 圖片清單4_dgv.BackgroundColor = Color.DimGray : 圖片清單4_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
  811. 圖片清單4_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 圖片清單4_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
  812. 圖片清單4_dgv.DefaultCellStyle.BackColor = Color.Black : 圖片清單4_dgv.DefaultCellStyle.ForeColor = Color.White
  813. 圖片清單5_dgv.EnableHeadersVisualStyles = False : 圖片清單5_dgv.BackgroundColor = Color.DimGray : 圖片清單5_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
  814. 圖片清單5_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 圖片清單5_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
  815. 圖片清單5_dgv.DefaultCellStyle.BackColor = Color.Black : 圖片清單5_dgv.DefaultCellStyle.ForeColor = Color.White
  816. 圖片清單6_dgv.EnableHeadersVisualStyles = False : 圖片清單6_dgv.BackgroundColor = Color.DimGray : 圖片清單6_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White
  817. 圖片清單6_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 圖片清單6_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray
  818. 圖片清單6_dgv.DefaultCellStyle.BackColor = Color.Black : 圖片清單6_dgv.DefaultCellStyle.ForeColor = Color.White
  819. End If
  820. End Sub
  821. End Class