Option Strict Off Public Class 會計科目管理 Dim ds5 As New DataSet : Dim 對話框(5) As String Dim EDR As Integer = 0 : Dim ESTR As String Private Sub Set_會計科目() Dim ds3 As New DataSet 會計科目清單_dgv.DataSource = Nothing : ds3.Clear() : 會計科目清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 會計科目清單_dgv.ColumnHeadersHeight = 40 : 會計科目清單_dgv.AllowUserToAddRows = False SQL_會計科目管理_查詢會計科目() da.Fill(ds3) : 會計科目清單_dgv.DataSource = ds3.Tables(0) : conn.Close() 會計科目清單_dgv.Columns(0).FillWeight = 10 : 會計科目清單_dgv.Columns(1).FillWeight = 10 : 會計科目清單_dgv.Columns(2).FillWeight = 15 : 會計科目清單_dgv.Columns(3).FillWeight = 6 會計科目清單_dgv.Columns(4).FillWeight = 3 : 會計科目清單_dgv.Columns(5).Visible = False : 會計科目清單_dgv.Columns(6).FillWeight = 3 : 會計科目清單_dgv.Columns(7).FillWeight = 3 會計科目清單_dgv.Columns(8).FillWeight = 5 : 會計科目清單_dgv.Columns(9).FillWeight = 8 : 會計科目清單_dgv.Columns(10).FillWeight = 3 End Sub Private Sub 第一階下拉表單資料載入() SQL_會計科目管理_查詢第一階編號1() : 第一層_中_cb.Items.Clear() : 編號1_cb.Items.Clear() While (dr.Read()) : 第一層_中_cb.Items.Add(dr("第一階")) : 編號1_cb.Items.Add(dr("編號")) : End While : conn.Close() SQL_會計科目管理_查詢第一階編號2() : 第一層_英_cb.Items.Clear() : While (dr.Read()) : 第一層_英_cb.Items.Add(dr("第一階")) : End While : conn.Close() SQL_會計科目管理_查詢第一階編號3() : 第一層_印_cb.Items.Clear() : While (dr.Read()) : 第一層_印_cb.Items.Add(dr("第一階")) : End While : conn.Close() 第一層_中_cb.Text = "" : 編號1_cb.Text = "" : 第一層_英_cb.Text = "" : 第一層_印_cb.Text = "" End Sub Private Sub 第二階下拉表單資料載入() SQL_會計科目管理_查詢第二階編號1() : 第二層_中_cb.Items.Clear() : 編號2_cb.Items.Clear() While (dr.Read()) : 第二層_中_cb.Items.Add(dr("第二階")) : 編號2_cb.Items.Add(dr("編號")) : End While : conn.Close() SQL_會計科目管理_查詢第二階編號2() : 第二層_英_cb.Items.Clear() : While (dr.Read()) : 第二層_英_cb.Items.Add(dr("第二階")) : End While : conn.Close() SQL_會計科目管理_查詢第二階編號3() : 第二層_印_cb.Items.Clear() : While (dr.Read()) : 第二層_印_cb.Items.Add(dr("第二階")) : End While : conn.Close() 第二層_中_cb.Text = "" : 編號2_cb.Text = "" : 第二層_英_cb.Text = "" : 第二層_印_cb.Text = "" End Sub Private Sub ComboBox6變化() If 層級3_cb.Text = "1" Then : 層級2_cb.Text = "1" : ElseIf 層級3_cb.Text = "2" Then : 層級2_cb.Text = "2" : ElseIf 層級3_cb.Text = "3" Then : 層級2_cb.Text = "2" : End If If 修改刪除_cb.Checked = True Then : Else If 編號1_cb.Text = "" Then : Else If 層級3_cb.Text = "1" Then : 編號3_tb.Text = "" ElseIf 層級3_cb.Text = "2" Then If 編號2_cb.Text = "" Then : Else '----------------------自动生成流水号------------------------------------------------------------------------- SQL_會計科目管理_查詢最後一筆編號1() If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("編號").ToString, 2)) : Else : EDR = 0 : End If conn.Close() : EDR += 1 If EDR < 10 Then : ESTR = 編號1_cb.Text & "-" & "0" & EDR & "-00" : ElseIf EDR > 9 And EDR < 100 Then : ESTR = 編號1_cb.Text & "-" & "" & EDR & "-00" : End If 編號3_tb.Text = ESTR End If ElseIf 層級3_cb.Text = "3" Then If 編號2_cb.Text = "" Then : Else '----------------------自动生成流水号------------------------------------------------------------------------- SQL_會計科目管理_查詢最後一筆編號2() If dr.Read() Then : EDR = Double.Parse(Strings.Right(dr("編號").ToString, 2)) : Else : EDR = 0 : End If conn.Close() : EDR += 1 If EDR < 10 Then : ESTR = 編號2_cb.Text & "-" & "0" & EDR : ElseIf EDR > 9 And EDR < 100 Then : ESTR = 編號2_cb.Text & "-" & "" & EDR : End If 編號3_tb.Text = ESTR End If End If End If End If End Sub Private Sub 語言轉換讀取() If 系統語言 = "繁體中文" Then : 語言 = "CH" : ElseIf 系統語言 = "English" Then : 語言 = "EN" : ElseIf 系統語言 = "Indonesian" Then : 語言 = "IN" : End If Me.Text = 系統語言字典("H001-202-" & 語言) : ToolTip1.ToolTipTitle = 系統語言字典("G000-108-" & 語言) : 顯示_cb.Text = 系統語言字典("H307-131-" & 語言) 抵銷科目_cb.Text = 系統語言字典("H307-100-" & 語言) : 長度1_lb.Text = 系統語言字典("H307-101-" & 語言) : 長度2_lb.Text = 系統語言字典("H307-102-" & 語言) 附註_lb.Text = 系統語言字典("H307-103-" & 語言) : 英文名稱_lb.Text = 系統語言字典("H307-104-" & 語言) : 修改刪除_cb.Text = 系統語言字典("H307-105-" & 語言) 停用_cb.Text = 系統語言字典("H307-106-" & 語言) : 表頭(103) = 系統語言字典("H307-107-" & 語言) : 表頭(105) = 系統語言字典("H307-108-" & 語言) 表頭(101) = 系統語言字典("H307-109-" & 語言) : 表頭(104) = 系統語言字典("H307-110-" & 語言) : 表頭(96) = 系統語言字典("H307-111-" & 語言) 表頭(97) = 系統語言字典("H307-112-" & 語言) : 表頭(102) = 系統語言字典("H307-113-" & 語言) : 表頭(98) = 系統語言字典("H307-114-" & 語言) 表頭(100) = 系統語言字典("H307-115-" & 語言) : 表頭(99) = 系統語言字典("H307-116-" & 語言) : 表頭(106) = 系統語言字典("H307-117-" & 語言) 第一_lb.Text = 系統語言字典("H307-118-" & 語言) : 第二_lb.Text = 系統語言字典("H307-119-" & 語言) : 第三_lb.Text = 系統語言字典("H307-120-" & 語言) 統制科目_cb.Text = 系統語言字典("H307-121-" & 語言) : 新增模式_cb.Text = 系統語言字典("H307-122-" & 語言) : 編號2_lb.Text = 系統語言字典("H307-130-" & 語言) 對話框(0) = 系統語言字典("H307-123-" & 語言) : 對話框(1) = 系統語言字典("H307-124-" & 語言) : 對話框(2) = 系統語言字典("H307-125-" & 語言) 對話框(3) = 系統語言字典("H307-126-" & 語言) : 對話框(4) = 系統語言字典("H307-127-" & 語言) : 對話框(5) = 系統語言字典("H307-128-" & 語言) 層級_lb.Text = 系統語言字典("H307-129-" & 語言) : 編號1_lb.Text = 系統語言字典("H307-130-" & 語言) End Sub Private Sub 新增_bt_MouseEnter(sender As Object, e As EventArgs) Handles 新增_bt.MouseEnter ToolTip1.SetToolTip(Me.新增_bt, 系統語言字典("G000-109-" & 語言)) End Sub Private Sub 修改_bt_MouseEnter(sender As Object, e As EventArgs) Handles 修改_bt.MouseEnter ToolTip1.SetToolTip(Me.修改_bt, 系統語言字典("G000-110-" & 語言)) End Sub Private Sub 刪除_bt_MouseEnter(sender As Object, e As EventArgs) Handles 刪除_bt.MouseEnter ToolTip1.SetToolTip(Me.刪除_bt, 系統語言字典("G000-112-" & 語言)) End Sub Private Sub 重新整理_bt_MouseEnter(sender As Object, e As EventArgs) Handles 重新整理_bt.MouseEnter ToolTip1.SetToolTip(Me.重新整理_bt, 系統語言字典("H704-120-" & 語言)) End Sub Private Sub 批量存檔_bt_MouseEnter(sender As Object, e As EventArgs) Handles 批量存檔_bt.MouseEnter ToolTip1.SetToolTip(Me.批量存檔_bt, 系統語言字典("G000-235-" & 語言)) End Sub Private Sub 會計科目管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load 風格() : H(307) = True : 介面 = "H307" : 語言轉換讀取() : 顯示說明(999, False) Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True 修改刪除_cb.Checked = True : Panel1.SendToBack() End Sub Private Sub 會計科目管理_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown Set_會計科目() : 第一階下拉表單資料載入() End Sub Private Sub 會計科目管理_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed H(307) = False : MyMod.虛擬桌面開啟() End Sub Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click 介面 = "H307" : 語言轉換讀取() : Set_會計科目() : 第一階下拉表單資料載入() End Sub Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True End Sub Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress timeNow = 0 : HX_PGS_ERP_SYS.Timer1.Enabled = False : HX_PGS_ERP_SYS.Timer1.Enabled = True End Sub Private Sub 會計科目清單_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 會計科目清單_dgv.CellClick If e.RowIndex = -1 Then : Else 層級3_cb.Text = 會計科目清單_dgv(4, e.RowIndex).Value.ToString If 系統語言 = "繁體中文" Then : 第一層_中_cb.Text = 會計科目清單_dgv(0, e.RowIndex).Value.ToString : 第二層_中_cb.Text = 會計科目清單_dgv(1, e.RowIndex).Value.ToString ElseIf 系統語言 = "English" Then : 第一層_英_cb.Text = 會計科目清單_dgv(0, e.RowIndex).Value.ToString : 第二層_英_cb.Text = 會計科目清單_dgv(1, e.RowIndex).Value.ToString ElseIf 系統語言 = "Indonesian" Then : 第一層_印_cb.Text = 會計科目清單_dgv(0, e.RowIndex).Value.ToString : 第二層_印_cb.Text = 會計科目清單_dgv(1, e.RowIndex).Value.ToString : End If If 修改刪除_cb.Checked = True Then If 系統語言 = "繁體中文" Then : 第三層_中_tb.Text = 會計科目清單_dgv(2, e.RowIndex).Value.ToString ElseIf 系統語言 = "English" Then : 第三層_英_tb.Text = 會計科目清單_dgv(2, e.RowIndex).Value.ToString ElseIf 系統語言 = "Indonesian" Then : 第三層_印_tb.Text = 會計科目清單_dgv(2, e.RowIndex).Value.ToString : End If 編號3_tb.Text = 會計科目清單_dgv(3, e.RowIndex).Value.ToString 英文名稱_tb.Text = 會計科目清單_dgv(5, e.RowIndex).Value.ToString : 附註_tb.Text = 會計科目清單_dgv(9, e.RowIndex).Value.ToString 統制科目_cb.Checked = 會計科目清單_dgv(6, e.RowIndex).Value : 抵銷科目_cb.Checked = 會計科目清單_dgv(7, e.RowIndex).Value 停用_cb.Checked = 會計科目清單_dgv(8, e.RowIndex).Value Else : ComboBox6變化() : End If If 系統語言 = "繁體中文" Then PA48 = "English" : SQL_會計科目管理_多語言讀取() : If dr.Read Then : 第三層_英_tb.Text = dr("會計科目").ToString : End If PA48 = "Indonesian" : SQL_會計科目管理_多語言讀取() : If dr.Read Then : 第三層_印_tb.Text = dr("會計科目").ToString : End If ElseIf 系統語言 = "English" Then PA48 = "繁體中文" : SQL_會計科目管理_多語言讀取() : If dr.Read Then : 第三層_中_tb.Text = dr("會計科目").ToString : End If PA48 = "Indonesian" : SQL_會計科目管理_多語言讀取() : If dr.Read Then : 第三層_印_tb.Text = dr("會計科目").ToString : End If ElseIf 系統語言 = "Indonesian" Then PA48 = "繁體中文" : SQL_會計科目管理_多語言讀取() : If dr.Read Then : 第三層_中_tb.Text = dr("會計科目").ToString : End If PA48 = "English" : SQL_會計科目管理_多語言讀取() : If dr.Read Then : 第三層_英_tb.Text = dr("會計科目").ToString : End If End If : Set_會計科目() End If End Sub Private Sub 會計科目清單_dgv_RowPostPaint(ByVal sender As Object, ByVal e As DataGridViewRowPostPaintEventArgs) Handles 會計科目清單_dgv.RowPostPaint Dim linePen As New Pen(Color.Blue, 2) If e.RowIndex = 會計科目清單_dgv.Rows.Count - 1 Then : Exit Sub : Else If 會計科目清單_dgv(1, e.RowIndex).Value.ToString <> 會計科目清單_dgv(1, e.RowIndex + 1).Value.ToString Then Dim startX As Integer = IIf(會計科目清單_dgv.RowHeadersVisible, 會計科目清單_dgv.RowHeadersWidth, 0) Dim startY As Integer = e.RowBounds.Top + e.RowBounds.Height - 1 Dim endX As Integer = startX + 會計科目清單_dgv.Columns.GetColumnsWidth(DataGridViewElementStates.Visible) - 會計科目清單_dgv.HorizontalScrollingOffset e.Graphics.DrawLine(linePen, startX, startY, endX, startY) : Exit Sub End If End If End Sub Private Sub 層級2_cb_Click(sender As Object, e As EventArgs) Handles 層級2_cb.Click CB選擇清單(層級2_cb, 層級2_cb.Text) End Sub Private Sub 層級3_cb_Click(sender As Object, e As EventArgs) Handles 層級3_cb.Click CB選擇清單(層級3_cb, 層級3_cb.Text) End Sub Private Sub 第一層_中_cb_Click(sender As Object, e As EventArgs) Handles 第一層_中_cb.Click CB選擇清單(第一層_中_cb, 第一層_中_cb.Text) End Sub Private Sub 第一層_英_cb_Click(sender As Object, e As EventArgs) Handles 第一層_英_cb.Click CB選擇清單(第一層_英_cb, 第一層_英_cb.Text) End Sub Private Sub 第一層_印_cb_Click(sender As Object, e As EventArgs) Handles 第一層_印_cb.Click CB選擇清單(第一層_印_cb, 第一層_印_cb.Text) End Sub Private Sub 第二層_中_cb_Click(sender As Object, e As EventArgs) Handles 第二層_中_cb.Click CB選擇清單(第二層_中_cb, 第二層_中_cb.Text) End Sub Private Sub 第二層_英_cb_Click(sender As Object, e As EventArgs) Handles 第二層_英_cb.Click CB選擇清單(第二層_英_cb, 第二層_英_cb.Text) End Sub Private Sub 第二層_印_cb_Click(sender As Object, e As EventArgs) Handles 第二層_印_cb.Click CB選擇清單(第二層_印_cb, 第二層_印_cb.Text) End Sub Private Sub 第一層_中_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 第一層_中_cb.TextChanged 編號1_cb.SelectedIndex = 第一層_中_cb.SelectedIndex : 第二階下拉表單資料載入() End Sub Private Sub 第一層_英_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 第一層_英_cb.TextChanged 編號1_cb.SelectedIndex = 第一層_英_cb.SelectedIndex : 第二階下拉表單資料載入() End Sub Private Sub 第一層_印_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 第一層_印_cb.TextChanged 編號1_cb.SelectedIndex = 第一層_印_cb.SelectedIndex : 第二階下拉表單資料載入() End Sub Private Sub 編號1_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 編號1_cb.TextChanged 第一層_中_cb.SelectedIndex = 編號1_cb.SelectedIndex : 第一層_英_cb.SelectedIndex = 編號1_cb.SelectedIndex : 第一層_印_cb.SelectedIndex = 編號1_cb.SelectedIndex 第二階下拉表單資料載入() End Sub Private Sub 第二層_中_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 第二層_中_cb.TextChanged 編號2_cb.SelectedIndex = 第二層_中_cb.SelectedIndex End Sub Private Sub 第二層_英_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 第二層_英_cb.TextChanged 編號2_cb.SelectedIndex = 第二層_英_cb.SelectedIndex End Sub Private Sub 第二層_印_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 第二層_印_cb.TextChanged 編號2_cb.SelectedIndex = 第二層_印_cb.SelectedIndex End Sub Private Sub 編號2_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 編號2_cb.TextChanged 第二層_中_cb.SelectedIndex = 編號2_cb.SelectedIndex : 第二層_英_cb.SelectedIndex = 編號2_cb.SelectedIndex : 第二層_印_cb.SelectedIndex = 編號2_cb.SelectedIndex End Sub Private Sub 層級2_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 層級2_cb.TextChanged 第二階下拉表單資料載入() End Sub Private Sub 新增模式_cb_Click(sender As Object, e As EventArgs) Handles 新增模式_cb.Click 新增模式_cb.Checked = True : 修改刪除_cb.Checked = False : 編號3_tb.Enabled = True 第三層_中_tb.Text = "" : 第三層_英_tb.Text = "" : 第三層_印_tb.Text = "" : 附註_tb.Text = "" : 統制科目_cb.Checked = False : 抵銷科目_cb.Checked = False : 停用_cb.Checked = False End Sub Private Sub 修改刪除_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 修改刪除_cb.Click 新增模式_cb.Checked = False : 修改刪除_cb.Checked = True : 編號3_tb.Enabled = False End Sub Private Sub 層級3_cb_TextChanged(sender As Object, e As EventArgs) Handles 層級3_cb.TextChanged ComboBox6變化() End Sub Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click If 第三層_中_tb.Text = "" And 第三層_英_tb.Text = "" And 第三層_印_tb.Text = "" And 第二層_中_cb.Text = "" And 第二層_英_cb.Text = "" And 第二層_印_cb.Text = "" And 第一層_中_cb.Text = "" And 第一層_英_cb.Text = "" And 第一層_印_cb.Text = "" And 編號3_tb.Text = "" Then : MGB(對話框(0), 1) Else SQL_修改會計科目_查詢1() If dr.Read Then : SQL_會計科目管理_修改會計科目1() : Else If 層級3_cb.Text = "1" Then : SQL_會計科目管理_新增會計科目編號1_1() ElseIf 層級3_cb.Text = "2" Then : SQL_會計科目管理_新增會計科目編號2_1() ElseIf 層級3_cb.Text = "3" Then : SQL_會計科目管理_新增會計科目編號3_1() : End If End If SQL_修改會計科目_查詢2() If dr.Read Then : SQL_會計科目管理_修改會計科目2() : Else If 層級3_cb.Text = "1" Then : SQL_會計科目管理_新增會計科目編號1_2() ElseIf 層級3_cb.Text = "2" Then : SQL_會計科目管理_新增會計科目編號2_2() ElseIf 層級3_cb.Text = "3" Then : SQL_會計科目管理_新增會計科目編號3_2() : End If End If SQL_修改會計科目_查詢3() If dr.Read Then : SQL_會計科目管理_修改會計科目3() : Else If 層級3_cb.Text = "1" Then : SQL_會計科目管理_新增會計科目編號1_3() ElseIf 層級3_cb.Text = "2" Then : SQL_會計科目管理_新增會計科目編號2_3() ElseIf 層級3_cb.Text = "3" Then : SQL_會計科目管理_新增會計科目編號3_3() : End If End If conn.Close() : MGB(對話框(1), 1) End If : Set_會計科目() End Sub Private Sub 批量存檔_bt_Click(sender As Object, e As EventArgs) Handles 批量存檔_bt.Click For i As Integer = 0 To 會計科目清單_dgv.Rows.Count - 1 資料數 = 會計科目清單_dgv.Rows.Count : MyMod.進度條() : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 最終數 PA1 = 會計科目清單_dgv.Rows(i).Cells(表頭(98)).Value : PA2 = 會計科目清單_dgv.Rows(i).Cells(表頭(100)).Value : PA3 = 會計科目清單_dgv.Rows(i).Cells(表頭(101)).Value.ToString PA4 = 會計科目清單_dgv.Rows(i).Cells(表頭(102)).Value : PA5 = 會計科目清單_dgv.Rows(i).Cells(表頭(103)).Value : PA6 = 會計科目清單_dgv.Rows(i).Cells(表頭(104)).Value PA7 = 會計科目清單_dgv.Rows(i).Cells(表頭(105)).Value.ToString : PA8 = 會計科目清單_dgv.Rows(i).Cells(表頭(96)).Value : PA9 = 會計科目清單_dgv.Rows(i).Cells(表頭(97)).Value PA10 = 會計科目清單_dgv.Rows(i).Cells(表頭(106)).Value : PA11 = 會計科目清單_dgv.Rows(i).Cells(表頭(99)).Value SQL_會計科目管理_快速修改會計科目() : conn.Close() Next : HX_PGS_ERP_SYS.ToolStripProgressBar1.Value = 0 : 最終數 = 0 : MGB(對話框(1), 1) End Sub Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click 通知訊息 = 對話框(2) : 訊息類型 = "2" : 通知視窗.ShowDialog() If 訊息回應 = "YES" Then : SQL_會計科目管理_刪除會計科目() : conn.Close() : MGB(對話框(3), 1) : End If : Set_會計科目() End Sub Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click If 第三層_中_tb.Text = "" And 第三層_英_tb.Text = "" And 第三層_印_tb.Text = "" And 第二層_中_cb.Text = "" And 第二層_英_cb.Text = "" And 第二層_印_cb.Text = "" And 第一層_中_cb.Text = "" And 第一層_英_cb.Text = "" And 第一層_印_cb.Text = "" And 層級3_cb.Text = "" Then : MGB(對話框(0), 1) Else SQL_會計科目管理_查詢會計科目編號() If dr.Read() Then : MGB(對話框(4), 1) : conn.Close() : dr.Close() : Else conn.Close() : dr.Close() If 層級3_cb.Text = "1" Then : SQL_會計科目管理_新增會計科目編號1_1() : SQL_會計科目管理_新增會計科目編號1_2() : SQL_會計科目管理_新增會計科目編號1_3() ElseIf 層級3_cb.Text = "2" Then : SQL_會計科目管理_新增會計科目編號2_1() : SQL_會計科目管理_新增會計科目編號2_2() : SQL_會計科目管理_新增會計科目編號2_3() Else : SQL_會計科目管理_新增會計科目編號3_1() : SQL_會計科目管理_新增會計科目編號3_2() : SQL_會計科目管理_新增會計科目編號3_3() End If : MGB(對話框(5), 1) : conn.Close() : dr.Close() End If End If : Set_會計科目() End Sub Private Sub 重新整理_bt_Click(sender As Object, e As EventArgs) Handles 重新整理_bt.Click 第一階下拉表單資料載入() : 第二階下拉表單資料載入() : ComboBox6變化() : Set_會計科目() : 第三層_中_tb.Text = "" : 第三層_英_tb.Text = "" : 第三層_印_tb.Text = "" End Sub Private Sub 新增模式_cb_CheckedChanged(sender As Object, e As EventArgs) Handles 新增模式_cb.CheckedChanged If 新增模式_cb.Checked = True Then 新增_bt.Enabled = True : 修改_bt.Enabled = False : 批量存檔_bt.Enabled = False : 刪除_bt.Enabled = False : 重新整理_bt.Enabled = False Else 新增_bt.Enabled = False : 修改_bt.Enabled = True : 批量存檔_bt.Enabled = True : 刪除_bt.Enabled = True : 重新整理_bt.Enabled = True End If End Sub Private Sub 風格() If 深色風格 = False Then Me.BackColor = SystemColors.Control 第一_lb.ForeColor = Color.Black : 第二_lb.ForeColor = Color.Black : 第三_lb.ForeColor = Color.Black : 新增模式_cb.ForeColor = Color.Black 修改刪除_cb.ForeColor = Color.Black : 層級_lb.ForeColor = Color.Black : 編號2_lb.ForeColor = Color.Black : GroupBox1.ForeColor = Color.Black GroupBox2.ForeColor = Color.Black : GroupBox3.ForeColor = Color.Black 統制科目_cb.ForeColor = Color.Red : 抵銷科目_cb.ForeColor = Color.Red : 停用_cb.ForeColor = Color.Red : 顯示_cb.ForeColor = Color.Red 附註_lb.ForeColor = Color.Green 第一層_中_cb.BackColor = Color.White : 第一層_中_cb.ForeColor = Color.Black : 第一層_英_cb.BackColor = Color.White : 第一層_英_cb.ForeColor = Color.Black 第一層_印_cb.BackColor = Color.White : 第一層_印_cb.ForeColor = Color.Black : 第二層_中_cb.BackColor = Color.White : 第二層_中_cb.ForeColor = Color.Black 第二層_英_cb.BackColor = Color.White : 第二層_英_cb.ForeColor = Color.Black : 第二層_印_cb.BackColor = Color.White : 第二層_印_cb.ForeColor = Color.Black 第三層_中_tb.BackColor = Color.White : 第三層_中_tb.ForeColor = Color.Black : 第三層_英_tb.BackColor = Color.White : 第三層_英_tb.ForeColor = Color.Black 第三層_印_tb.BackColor = Color.White : 第三層_印_tb.ForeColor = Color.Black : 編號1__tb.BackColor = Color.White : 編號1__tb.ForeColor = Color.Black 層級2_cb.BackColor = Color.White : 層級2_cb.ForeColor = Color.Black : 層級3_cb.BackColor = Color.White : 層級3_cb.ForeColor = Color.Black 編號3_tb.BackColor = Color.White : 編號3_tb.ForeColor = Color.Black : 附註_tb.BackColor = Color.White : 附註_tb.ForeColor = Color.Green 語轉扭_bt.BackColor = Color.White : 語轉扭_bt.ForeColor = Color.Black : 新增_bt.BackColor = Color.White : 新增_bt.ForeColor = Color.Black 修改_bt.BackColor = Color.White : 修改_bt.ForeColor = Color.Black : 刪除_bt.BackColor = Color.White : 刪除_bt.ForeColor = Color.Black 重新整理_bt.BackColor = Color.White : 重新整理_bt.ForeColor = Color.Black : 批量存檔_bt.BackColor = Color.White : 批量存檔_bt.ForeColor = Color.Black 會計科目清單_dgv.EnableHeadersVisualStyles = True : 會計科目清單_dgv.BackgroundColor = Color.White : 會計科目清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.Black 會計科目清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.LightPink 會計科目清單_dgv.DefaultCellStyle.BackColor = Color.White : 會計科目清單_dgv.DefaultCellStyle.ForeColor = Color.Black Else Me.BackColor = Color.Black 第一_lb.ForeColor = Color.White : 第二_lb.ForeColor = Color.White : 第三_lb.ForeColor = Color.White : 新增模式_cb.ForeColor = Color.White 修改刪除_cb.ForeColor = Color.White : 層級_lb.ForeColor = Color.White : 編號2_lb.ForeColor = Color.White : GroupBox1.ForeColor = Color.White GroupBox2.ForeColor = Color.White : GroupBox3.ForeColor = Color.White 統制科目_cb.ForeColor = Color.LightPink : 抵銷科目_cb.ForeColor = Color.LightPink : 停用_cb.ForeColor = Color.LightPink : 顯示_cb.ForeColor = Color.LightPink 附註_lb.ForeColor = Color.LightGreen 第一層_中_cb.BackColor = Color.DimGray : 第一層_中_cb.ForeColor = Color.White : 第一層_英_cb.BackColor = Color.DimGray : 第一層_英_cb.ForeColor = Color.White 第一層_印_cb.BackColor = Color.DimGray : 第一層_印_cb.ForeColor = Color.White : 第二層_中_cb.BackColor = Color.DimGray : 第二層_中_cb.ForeColor = Color.White 第二層_英_cb.BackColor = Color.DimGray : 第二層_英_cb.ForeColor = Color.White : 第二層_印_cb.BackColor = Color.DimGray : 第二層_印_cb.ForeColor = Color.White 第三層_中_tb.BackColor = Color.DimGray : 第三層_中_tb.ForeColor = Color.White : 第三層_英_tb.BackColor = Color.DimGray : 第三層_英_tb.ForeColor = Color.White 第三層_印_tb.BackColor = Color.DimGray : 第三層_印_tb.ForeColor = Color.White : 編號1__tb.BackColor = Color.DimGray : 編號1__tb.ForeColor = Color.White 層級2_cb.BackColor = Color.DimGray : 層級2_cb.ForeColor = Color.White : 層級3_cb.BackColor = Color.DimGray : 層級3_cb.ForeColor = Color.White 編號3_tb.BackColor = Color.DimGray : 編號3_tb.ForeColor = Color.White : 附註_tb.BackColor = Color.DimGray : 附註_tb.ForeColor = Color.LightGreen 語轉扭_bt.BackColor = Color.DimGray : 語轉扭_bt.ForeColor = Color.White : 新增_bt.BackColor = Color.DimGray : 新增_bt.ForeColor = Color.White 修改_bt.BackColor = Color.DimGray : 修改_bt.ForeColor = Color.White : 刪除_bt.BackColor = Color.DimGray : 刪除_bt.ForeColor = Color.White 重新整理_bt.BackColor = Color.DimGray : 重新整理_bt.ForeColor = Color.White : 批量存檔_bt.BackColor = Color.DimGray : 批量存檔_bt.ForeColor = Color.White 會計科目清單_dgv.EnableHeadersVisualStyles = False : 會計科目清單_dgv.BackgroundColor = Color.DimGray : 會計科目清單_dgv.ColumnHeadersDefaultCellStyle.ForeColor = Color.White 會計科目清單_dgv.ColumnHeadersDefaultCellStyle.BackColor = Color.Black : 會計科目清單_dgv.AlternatingRowsDefaultCellStyle.BackColor = Color.DimGray 會計科目清單_dgv.DefaultCellStyle.BackColor = Color.Black : 會計科目清單_dgv.DefaultCellStyle.ForeColor = Color.White End If End Sub End Class