HX-PGS-ERP-SYS-LEEHSIEHJUI/05、財務管理系統/會計科目管理.vb

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