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 25KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357
  1. Option Strict Off
  2. Public Class 系統組織結構與權限設定
  3. ReadOnly ds2 As New DataSet : ReadOnly ds3 As New DataSet : ReadOnly ds4 As New DataSet
  4. Private Sub Set_使用者清單()
  5. Dim ds As New DataSet : 清單_dgv.DataSource = Nothing : ds.Clear()
  6. 清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  7. 清單_dgv.ColumnHeadersHeight = 35
  8. 清單_dgv.AllowUserToAddRows = False
  9. 清單_dgv.RowTemplate.Height = 35
  10. If 小間距_ch.Checked = False And 中間距_ch.Checked = False And 大間距_ch.Checked = True Then
  11. 清單_dgv.RowTemplate.Height = 75
  12. ElseIf 小間距_ch.Checked = False And 中間距_ch.Checked = True And 大間距_ch.Checked = False Then
  13. 清單_dgv.RowTemplate.Height = 45
  14. ElseIf 小間距_ch.Checked = True And 中間距_ch.Checked = False And 大間距_ch.Checked = False Then
  15. 清單_dgv.RowTemplate.Height = 25
  16. End If
  17. SQL_系統組織結構圖_人員()
  18. da.Fill(ds) : 清單_dgv.DataSource = ds.Tables(0) : conn.Close()
  19. 清單_dgv.Columns(0).FillWeight = 90 : 清單_dgv.Columns(1).FillWeight = 140 : 清單_dgv.Columns(2).FillWeight = 45 : 清單_dgv.Columns(3).Visible = False
  20. 清單_dgv.Columns(4).Visible = False : 清單_dgv.Columns(5).Visible = False : 清單_dgv.Columns(6).Visible = False : 清單_dgv.Columns(7).Visible = False
  21. End Sub
  22. Private Sub Set_設定清單()
  23. Dim ds1 As New DataSet
  24. 設定_dgv.DataSource = Nothing : ds1.Clear()
  25. 設定_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  26. 設定_dgv.ColumnHeadersHeight = 25
  27. 設定_dgv.AllowUserToAddRows = False
  28. 設定_dgv.RowTemplate.Height = 35
  29. If 小間距1_ch.Checked = False And 中間距1_ch.Checked = False And 大間距1_ch.Checked = True Then : 設定_dgv.RowTemplate.Height = 75
  30. ElseIf 小間距1_ch.Checked = False And 中間距1_ch.Checked = True And 大間距1_ch.Checked = False Then : 設定_dgv.RowTemplate.Height = 45
  31. ElseIf 小間距1_ch.Checked = True And 中間距1_ch.Checked = False And 大間距1_ch.Checked = False Then : 設定_dgv.RowTemplate.Height = 25
  32. End If
  33. PA1 = 姓名_tb.Text : PA2 = 帳號_tb.Text
  34. SQL_跨部門主管權限設定_確認有無資料()
  35. If dr.Read() Then
  36. conn.Close()
  37. PA3 = 級別_tb.Text
  38. SQL_跨部門主管權限設定_已設定過()
  39. Label2.Text = "Have Files"
  40. Else
  41. conn.Close()
  42. PA3 = 級別_tb.Text
  43. SQL_跨部門主管權限設定_未設定過()
  44. Label2.Text = "No Files"
  45. End If
  46. da.Fill(ds1) : 設定_dgv.DataSource = ds1.Tables(0) : conn.Close()
  47. 設定_dgv.Columns(0).FillWeight = 90 : 設定_dgv.Columns(1).FillWeight = 90 : 設定_dgv.Columns(2).FillWeight = 90 : 設定_dgv.Columns(3).FillWeight = 90
  48. 設定_dgv.Columns(4).FillWeight = 160 : 設定_dgv.Columns(5).FillWeight = 60 : 設定_dgv.Columns(6).FillWeight = 60 : 設定_dgv.Columns(7).FillWeight = 40
  49. For i As Integer = 0 To 設定_dgv.Rows.Count - 1
  50. If 設定_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "01" Then : 設定_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
  51. ElseIf 設定_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "02" Then : 設定_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
  52. ElseIf 設定_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "03" Then : 設定_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
  53. ElseIf 設定_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "04" Then : 設定_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue
  54. ElseIf 設定_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "05" Then : 設定_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue
  55. End If
  56. If IsDBNull(設定_dgv.Rows(i).Cells(表頭(144)).Value) Then
  57. 設定_dgv.Rows(i).Cells(表頭(144)).Value = False
  58. End If
  59. Next
  60. End Sub
  61. Private Sub Set_語言()
  62. 語言_dgv.DataSource = Nothing : ds2.Clear()
  63. 語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
  64. 語言_dgv.ColumnHeadersHeight = 25
  65. 語言_dgv.AllowUserToAddRows = False
  66. SQL_系統語言導入()
  67. da.Fill(ds2) : 語言_dgv.DataSource = ds2.Tables(0) : conn.Close()
  68. End Sub
  69. Private Sub 語言轉換讀取()
  70. Set_語言() : conn.Close()
  71. For i As Integer = 0 To 語言_dgv.Rows.Count - 1
  72. If 語言_dgv("控件", i).Value.ToString = "系統組織結構與權限設定" Then : Me.Text = 語言_dgv("內容", i).Value.ToString : End If
  73. If 語言_dgv("控件", i).Value.ToString = "級別_lb" Then : 級別_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
  74. If 語言_dgv("控件", i).Value.ToString = "部門權限指定_bt" Then : 部門權限指定_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
  75. If 語言_dgv("控件", i).Value.ToString = "選定權限取消_bt" Then : 選定權限取消_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
  76. If 語言_dgv("控件", i).Value.ToString = "存檔_bt" Then : 存檔_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
  77. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_姓名" Then : 表頭(4) = 語言_dgv("內容", i).Value.ToString : End If
  78. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_職稱" Then : 表頭(9) = 語言_dgv("內容", i).Value.ToString : End If
  79. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_級別" Then : 表頭(138) = 語言_dgv("內容", i).Value.ToString : End If
  80. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_部" Then : 表頭(139) = 語言_dgv("內容", i).Value.ToString : End If
  81. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_處" Then : 表頭(140) = 語言_dgv("內容", i).Value.ToString : End If
  82. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_課" Then : 表頭(141) = 語言_dgv("內容", i).Value.ToString : End If
  83. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_組" Then : 表頭(142) = 語言_dgv("內容", i).Value.ToString : End If
  84. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_時效" Then : 表頭(143) = 語言_dgv("內容", i).Value.ToString : End If
  85. If 語言_dgv("控件", i).Value.ToString = "清單_dgv_授權" Then : 表頭(144) = 語言_dgv("內容", i).Value.ToString : End If
  86. If 語言_dgv("控件", i).Value.ToString = "文字_lb" Then : 文字_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
  87. Next
  88. End Sub
  89. Private Sub 系統組織結構圖_Load(sender As Object, e As EventArgs) Handles MyBase.Load
  90. Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
  91. H(602) = True : 介面 = "H602" : Set_語言() : 語言轉換讀取()
  92. SQL_清單欄位查詢()
  93. If Acdr.Read() Then
  94. 小間距1_ch.Checked = Acdr("L_1_1") : 中間距1_ch.Checked = Acdr("L_2_1") : 大間距1_ch.Checked = Acdr("L_3_1")
  95. 小間距_ch.Checked = Acdr("L_1_2") : 中間距_ch.Checked = Acdr("L_2_2") : 大間距_ch.Checked = Acdr("L_3_2")
  96. End If : Access1.Close()
  97. 資料數 = 50
  98. 組織圖_tv.Nodes.Add("HX / PGS LTD. C.")
  99. MyModule1.進度條()
  100. SQL_系統組織結構圖_部門()
  101. While (dr.Read()) : 組織圖_tv.Nodes(0).Nodes.Add(dr("部門")) : MyModule1.進度條() : End While : conn.Close()
  102. For I As Integer = 0 To 組織圖_tv.Nodes(0).Nodes.Count - 1
  103. PA = 組織圖_tv.Nodes(0).Nodes(I).Text
  104. SQL_系統組織結構圖_處別()
  105. While (dr.Read()) : 組織圖_tv.Nodes(0).Nodes(I).Nodes.Add(dr("處")) : MyModule1.進度條() : End While : conn.Close()
  106. For J As Integer = 0 To 組織圖_tv.Nodes(0).Nodes(I).Nodes.Count - 1
  107. PA1 = 組織圖_tv.Nodes(0).Nodes(I).Nodes(J).Text
  108. SQL_系統組織結構圖_課別()
  109. While (dr.Read()) : 組織圖_tv.Nodes(0).Nodes(I).Nodes(J).Nodes.Add(dr("課")) : MyModule1.進度條() : End While : conn.Close()
  110. For K As Integer = 0 To 組織圖_tv.Nodes(0).Nodes(I).Nodes(J).Nodes.Count - 1
  111. PA2 = 組織圖_tv.Nodes(0).Nodes(I).Nodes(J).Nodes(K).Text
  112. SQL_系統組織結構圖_組別()
  113. While (dr.Read()) : 組織圖_tv.Nodes(0).Nodes(I).Nodes(J).Nodes(K).Nodes.Add(dr("組")) : MyModule1.進度條() : End While : conn.Close()
  114. Next
  115. Next
  116. Next
  117. 組織圖_tv.Nodes(0).Expand()
  118. HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
  119. MyModule1.清單字體大小調整()
  120. 清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  121. 設定_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  122. End Sub
  123. Private Sub 系統組織結構與權限設定_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
  124. H(602) = False : MyModule1.虛擬桌面開啟()
  125. End Sub
  126. Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
  127. timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
  128. End Sub
  129. Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
  130. timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True
  131. End Sub
  132. Private Sub 系統組織結構圖_SizeChanged(sender As Object, e As EventArgs) Handles MyBase.SizeChanged
  133. MyModule1.清單字體大小調整()
  134. 清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  135. 設定_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
  136. End Sub
  137. Private Sub 清單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 清單_dgv.RowPostPaint
  138. Dim linePen As New Pen(Color.Blue, 2)
  139. If e.RowIndex = 清單_dgv.Rows.Count - 1 Then
  140. Exit Sub
  141. Else
  142. If 清單_dgv(表頭(138), e.RowIndex).Value.ToString = "03" Then
  143. Dim startX As Integer = IIf(清單_dgv.RowHeadersVisible, 清單_dgv.RowHeadersWidth, 0)
  144. Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
  145. Dim endX As Integer = startX + 清單_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 清單_dgv.HorizontalScrollingOffset
  146. e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
  147. Exit Sub
  148. End If
  149. End If
  150. For i As Integer = 0 To 清單_dgv.Rows.Count - 1
  151. If 清單_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "01" Then : 清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGoldenrodYellow
  152. ElseIf 清單_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "02" Then : 清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightGreen
  153. ElseIf 清單_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "03" Then : 清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightPink
  154. ElseIf 清單_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "04" Then : 清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue
  155. ElseIf 清單_dgv.Rows(i).Cells(表頭(138)).Value.ToString = "05" Then : 清單_dgv.Rows(i).DefaultCellStyle.BackColor = Color.LightBlue
  156. End If
  157. Next
  158. End Sub
  159. Private Sub 組織圖_tv_Click(sender As Object, e As EventArgs) Handles 組織圖_tv.AfterSelect
  160. Dim ds1 As New DataSet
  161. 部門2_tb.Text = 組織圖_tv.SelectedNode.Text
  162. PA = 組織圖_tv.SelectedNode.Text
  163. Set_使用者清單()
  164. 設定_dgv.DataSource = Nothing : ds1.Clear()
  165. 級別_tb.Text = "" : 姓名_tb.Text = "" : 部門_tb.Text = "" : 處別_tb.Text = "" : 課別_tb.Text = "" : 組別_tb.Text = "" : 帳號_tb.Text = ""
  166. End Sub
  167. Private Sub 清單_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 清單_dgv.CellClick
  168. If e.RowIndex = -1 Then : Else
  169. 級別_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells(表頭(138)).Value.ToString : 姓名_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells(表頭(4)).Value.ToString
  170. 部門_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("部門").Value.ToString : 處別_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("處別").Value.ToString
  171. 課別_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("課別").Value.ToString : 組別_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("組別").Value.ToString
  172. 帳號_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("帳號").Value.ToString
  173. Set_設定清單()
  174. If Label2.Text = "No Files" Then
  175. For i As Integer = 0 To 設定_dgv.Rows.Count - 1
  176. If 處別_tb.Text = "NA" And 課別_tb.Text = "NA" And 組別_tb.Text = "NA" Then
  177. If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門_tb.Text Then
  178. 設定_dgv.Rows(i).Cells(表頭(144)).Value = True
  179. End If
  180. ElseIf 課別_tb.Text = "NA" And 組別_tb.Text = "NA" Then
  181. If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門_tb.Text And 設定_dgv.Rows(i).Cells(表頭(140)).Value.ToString = 處別_tb.Text Then
  182. 設定_dgv.Rows(i).Cells(表頭(144)).Value = True
  183. End If
  184. ElseIf 組別_tb.Text = "NA" Then
  185. If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門_tb.Text And 設定_dgv.Rows(i).Cells(表頭(140)).Value.ToString = 處別_tb.Text And
  186. 設定_dgv.Rows(i).Cells(表頭(141)).Value.ToString = 課別_tb.Text Then
  187. 設定_dgv.Rows(i).Cells(表頭(144)).Value = True
  188. End If
  189. Else
  190. If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門_tb.Text And 設定_dgv.Rows(i).Cells(表頭(140)).Value.ToString = 處別_tb.Text And
  191. 設定_dgv.Rows(i).Cells(表頭(141)).Value.ToString = 課別_tb.Text And 設定_dgv.Rows(i).Cells(表頭(142)).Value.ToString = 組別_tb.Text Then
  192. 設定_dgv.Rows(i).Cells(表頭(144)).Value = True
  193. End If
  194. End If
  195. Next
  196. End If
  197. If Val(登入人級別) <= 2 Then
  198. 部門權限指定_bt.Enabled = True : 選定權限取消_bt.Enabled = True : 存檔_bt.Enabled = True
  199. ElseIf Val(登入人級別) = 3 Then
  200. If Val(級別_tb.Text) <= 2 Then
  201. 部門權限指定_bt.Enabled = False : 選定權限取消_bt.Enabled = False : 存檔_bt.Enabled = False
  202. Else
  203. 部門權限指定_bt.Enabled = True : 選定權限取消_bt.Enabled = True : 存檔_bt.Enabled = True
  204. End If
  205. ElseIf Val(登入人級別) = 4 Then
  206. If Val(級別_tb.Text) <= 3 Then
  207. 部門權限指定_bt.Enabled = False : 選定權限取消_bt.Enabled = False : 存檔_bt.Enabled = False
  208. Else
  209. 部門權限指定_bt.Enabled = True : 選定權限取消_bt.Enabled = True : 存檔_bt.Enabled = True
  210. End If
  211. ElseIf Val(登入人級別) >= 5 Then
  212. If Val(級別_tb.Text) <= 5 Then
  213. 部門權限指定_bt.Enabled = False : 選定權限取消_bt.Enabled = False : 存檔_bt.Enabled = False
  214. Else
  215. 部門權限指定_bt.Enabled = True : 選定權限取消_bt.Enabled = True : 存檔_bt.Enabled = True
  216. End If
  217. End If
  218. End If
  219. End Sub
  220. Private Sub 設定_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 設定_dgv.RowPostPaint
  221. Dim linePen As New Pen(Color.Blue, 2)
  222. If e.RowIndex = 設定_dgv.Rows.Count - 1 Then
  223. Exit Sub
  224. Else
  225. If 設定_dgv(1, e.RowIndex).Value.ToString <> 設定_dgv(1, e.RowIndex + 1).Value.ToString And 設定_dgv(1, e.RowIndex).Value.ToString <> "NA" Then
  226. Dim startX As Integer = IIf(設定_dgv.RowHeadersVisible, 設定_dgv.RowHeadersWidth, 0)
  227. Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1
  228. Dim endX As Integer = startX + 設定_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 設定_dgv.HorizontalScrollingOffset
  229. e.Graphics.DrawLine(linePen, startX, startY, endX, startY)
  230. Exit Sub
  231. End If
  232. End If
  233. End Sub
  234. Private Sub 設定_dgv_CellEndEdit(ByVal sender As Object, ByVal e As DataGridViewCellEventArgs) Handles 設定_dgv.CellEndEdit
  235. Dim EU As String
  236. EU = 設定_dgv(表頭(143), e.RowIndex).Value.ToString
  237. If EU = "" Then
  238. 設定_dgv.Rows(e.RowIndex).Cells(表頭(143)).Value = ""
  239. Else
  240. If IsDate(EU) Then
  241. DateTimePicker2.Text = EU
  242. 設定_dgv.Rows(e.RowIndex).Cells(表頭(143)).Value = Format(DateTimePicker2.Value, "yyyy/MM/dd")
  243. Else
  244. 設定_dgv.Rows(e.RowIndex).Cells(表頭(143)).Value = ""
  245. End If
  246. End If
  247. End Sub
  248. Private Sub 設定_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 設定_dgv.CellClick
  249. If e.RowIndex = -1 Then : Else
  250. 級別1_tb.Text = 設定_dgv.Rows(e.RowIndex).Cells(表頭(138)).Value.ToString
  251. 部門1_tb.Text = 設定_dgv.Rows(e.RowIndex).Cells(表頭(139)).Value.ToString : 處別1_tb.Text = 設定_dgv.Rows(e.RowIndex).Cells(表頭(140)).Value.ToString
  252. 課別1_tb.Text = 設定_dgv.Rows(e.RowIndex).Cells(表頭(141)).Value.ToString : 組別1_tb.Text = 設定_dgv.Rows(e.RowIndex).Cells(表頭(142)).Value.ToString
  253. End If
  254. End Sub
  255. Private Sub 跨部門權限指定_bt_Click(sender As Object, e As EventArgs) Handles 部門權限指定_bt.Click
  256. If 部門1_tb.Text = "" Then
  257. If 系統語言 = "繁體中文" Then : MsgBox("需要先選擇需橫跨管理的部門!!") : Else : MsgBox("Anda harus terlebih dahulu memilih departemen yang perlu dikelola di seluruh!!") : End If
  258. Else
  259. For i As Integer = 0 To 設定_dgv.Rows.Count - 1
  260. If 處別1_tb.Text = "NA" And 課別1_tb.Text = "NA" And 組別1_tb.Text = "NA" Then
  261. If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門1_tb.Text Then
  262. 設定_dgv.Rows(i).Cells(表頭(144)).Value = True
  263. End If
  264. ElseIf 課別1_tb.Text = "NA" And 組別1_tb.Text = "NA" Then
  265. If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門1_tb.Text And 設定_dgv.Rows(i).Cells(表頭(140)).Value.ToString = 處別1_tb.Text Then
  266. 設定_dgv.Rows(i).Cells(表頭(144)).Value = True
  267. End If
  268. ElseIf 組別1_tb.Text = "NA" Then
  269. If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門1_tb.Text And 設定_dgv.Rows(i).Cells(表頭(140)).Value.ToString = 處別1_tb.Text And
  270. 設定_dgv.Rows(i).Cells(表頭(141)).Value.ToString = 課別1_tb.Text Then
  271. 設定_dgv.Rows(i).Cells(表頭(144)).Value = True
  272. End If
  273. Else
  274. If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門1_tb.Text And 設定_dgv.Rows(i).Cells(表頭(140)).Value.ToString = 處別1_tb.Text And
  275. 設定_dgv.Rows(i).Cells(表頭(141)).Value.ToString = 課別1_tb.Text And 設定_dgv.Rows(i).Cells(表頭(142)).Value.ToString = 組別1_tb.Text Then
  276. 設定_dgv.Rows(i).Cells(表頭(144)).Value = True
  277. End If
  278. End If
  279. Next
  280. End If
  281. End Sub
  282. Private Sub 選定權限取消_bt_Click(sender As Object, e As EventArgs) Handles 選定權限取消_bt.Click
  283. If 部門1_tb.Text = "" Then
  284. If 系統語言 = "繁體中文" Then : MsgBox("請先選擇需要 [橫跨管理] 的部門!!") : Else : MsgBox("Silakan pilih dulu departemen yang membutuhkan [Manajemen Straddle]!!") : End If
  285. Else
  286. For i As Integer = 0 To 設定_dgv.Rows.Count - 1
  287. If 處別1_tb.Text = "NA" And 課別1_tb.Text = "NA" And 組別1_tb.Text = "NA" Then
  288. If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門1_tb.Text Then
  289. 設定_dgv.Rows(i).Cells(表頭(144)).Value = False
  290. End If
  291. ElseIf 課別1_tb.Text = "NA" And 組別1_tb.Text = "NA" Then
  292. If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門1_tb.Text And 設定_dgv.Rows(i).Cells(表頭(140)).Value.ToString = 處別1_tb.Text Then
  293. 設定_dgv.Rows(i).Cells(表頭(144)).Value = False
  294. End If
  295. ElseIf 組別1_tb.Text = "NA" Then
  296. If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門1_tb.Text And 設定_dgv.Rows(i).Cells(表頭(140)).Value.ToString = 處別1_tb.Text And
  297. 設定_dgv.Rows(i).Cells(表頭(141)).Value.ToString = 課別1_tb.Text Then
  298. 設定_dgv.Rows(i).Cells(表頭(144)).Value = False
  299. End If
  300. Else
  301. If 設定_dgv.Rows(i).Cells(表頭(139)).Value.ToString = 部門1_tb.Text And 設定_dgv.Rows(i).Cells(表頭(140)).Value.ToString = 處別1_tb.Text And
  302. 設定_dgv.Rows(i).Cells(表頭(141)).Value.ToString = 課別1_tb.Text And 設定_dgv.Rows(i).Cells(表頭(142)).Value.ToString = 組別1_tb.Text Then
  303. 設定_dgv.Rows(i).Cells(表頭(144)).Value = False
  304. End If
  305. End If
  306. Next
  307. End If
  308. End Sub
  309. Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
  310. If 姓名_tb.Text = "" Then
  311. If 系統語言 = "繁體中文" Then : MsgBox("沒有選擇授權人員!!") : Else : MsgBox("Tidak ada orang yang berwenang yang dipilih!!") : End If
  312. Else
  313. For i As Integer = 0 To 設定_dgv.Rows.Count - 1
  314. 資料數 = 設定_dgv.Rows.Count : MyModule1.進度條()
  315. PA4 = 設定_dgv.Rows(i).Cells(表頭(9)).Value.ToString : PA1 = 姓名_tb.Text : PA2 = 帳號_tb.Text
  316. PA5 = 設定_dgv.Rows(i).Cells(表頭(143)).Value.ToString : BL1 = 設定_dgv.Rows(i).Cells(表頭(144)).Value
  317. SQL_跨部門主管權限設定_存檔前確認()
  318. If dr.Read() Then
  319. conn.Close() : SQL_跨部門主管權限設定_修改() : conn.Close()
  320. Else
  321. conn.Close() : SQL_跨部門主管權限設定_新增() : conn.Close()
  322. End If
  323. Next : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0
  324. If 系統語言 = "繁體中文" Then : MsgBox("存檔完成!!") : Else : MsgBox("Arsip selesai!!") : End If
  325. End If
  326. End Sub
  327. Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
  328. 介面 = "H602" : Set_語言() : 語言轉換讀取() : Set_使用者清單() : Set_設定清單()
  329. End Sub
  330. Private Sub 小間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距1_ch.Click
  331. 小間距1_ch.Checked = True : 中間距1_ch.Checked = False : 大間距1_ch.Checked = False : MyModule1.間距設定存檔_1() : Set_設定清單()
  332. End Sub
  333. Private Sub 中間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距1_ch.Click
  334. 小間距1_ch.Checked = False : 中間距1_ch.Checked = True : 大間距1_ch.Checked = False : MyModule1.間距設定存檔_2() : Set_設定清單()
  335. End Sub
  336. Private Sub 大間距1_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距1_ch.Click
  337. 小間距1_ch.Checked = False : 中間距1_ch.Checked = False : 大間距1_ch.Checked = True : MyModule1.間距設定存檔_3() : Set_設定清單()
  338. End Sub
  339. Private Sub 小間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 小間距_ch.Click
  340. 小間距_ch.Checked = True : 中間距_ch.Checked = False : 大間距_ch.Checked = False : MyModule1.間距設定存檔_1() : Set_使用者清單()
  341. End Sub
  342. Private Sub 中間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 中間距_ch.Click
  343. 小間距_ch.Checked = False : 中間距_ch.Checked = True : 大間距_ch.Checked = False : MyModule1.間距設定存檔_2() : Set_使用者清單()
  344. End Sub
  345. Private Sub 大間距_ch_CheckedChanged(sender As Object, e As EventArgs) Handles 大間距_ch.Click
  346. 小間距_ch.Checked = False : 中間距_ch.Checked = False : 大間距_ch.Checked = True : MyModule1.間距設定存檔_3() : Set_使用者清單()
  347. End Sub
  348. End Class