GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/05、財務管理系統/會計科目管理.vb

Option Strict Off
Imports System.Data.SqlClient
Public Class 會計科目管理
    ReadOnly ds3 As New DataSet : Dim ds5 As New DataSet : ReadOnly 對話框(5) As String
    Dim EDR As Integer = 0 : Dim ESTR As String
    Private Sub Set_會計科目()
        會計科目清單_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 = 8 : 會計科目清單_dgv.Columns(1).FillWeight = 8 : 會計科目清單_dgv.Columns(2).FillWeight = 12 : 會計科目清單_dgv.Columns(3).FillWeight = 6
        會計科目清單_dgv.Columns(4).FillWeight = 3 : 會計科目清單_dgv.Columns(5).FillWeight = 15 : 會計科目清單_dgv.Columns(6).FillWeight = 3 : 會計科目清單_dgv.Columns(7).FillWeight = 3
        會計科目清單_dgv.Columns(8).FillWeight = 5 : 會計科目清單_dgv.Columns(9).FillWeight = 28 : 會計科目清單_dgv.Columns(10).FillWeight = 3
    End Sub
    Private Sub ComboBox1下拉表單資料載入()
        conn.Close()
        SQL_會計科目管理_查詢第一階編號() : ComboBox1.Items.Clear() : ComboBox2.Items.Clear() : ComboBox1.Text = "" : ComboBox2.Text = ""
        While (dr.Read()) : ComboBox1.Items.Add(dr("第一階")) : ComboBox2.Items.Add(dr("編號")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox3下拉表單資料載入()
        conn.Close()
        SQL_會計科目管理_查詢第二階編號() : ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : ComboBox3.Items.Clear() : ComboBox4.Items.Clear() : ComboBox3.Text = "" : ComboBox4.Text = ""
        While (dr.Read()) : ComboBox3.Items.Add(dr("第二階")) : ComboBox4.Items.Add(dr("編號")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox6變化()
        If ComboBox6.Text = "1" Then : ComboBox5.Text = "1"
        ElseIf ComboBox6.Text = "2" Then : ComboBox5.Text = "2"
        ElseIf ComboBox6.Text = "3" Then : ComboBox5.Text = "2"
        End If
        If 修改刪除_cb.Checked = True Then : Else
            If ComboBox2.Text = "" Then : Else
                If ComboBox6.Text = "1" Then
                    TextBox16.Text = ""
                ElseIf ComboBox6.Text = "2" Then
                    If ComboBox4.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 = ComboBox2.Text & "-" & "0" & EDR & "-00"
                        ElseIf EDR > 9 And EDR < 100 Then : ESTR = ComboBox2.Text & "-" & "" & EDR & "-00"
                        End If
                        TextBox16.Text = ESTR
                    End If
                ElseIf ComboBox6.Text = "3" Then
                    If ComboBox4.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 = ComboBox4.Text & "-" & "0" & EDR
                        ElseIf EDR > 9 And EDR < 100 Then : ESTR = ComboBox4.Text & "-" & "" & EDR
                        End If
                        TextBox16.Text = ESTR
                    End If
                End If
            End If
        End If
    End Sub
    Private Sub Set_語言()
        語言_dgv.DataSource = Nothing : ds5.Clear()
        語言_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        語言_dgv.ColumnHeadersHeight = 25
        語言_dgv.AllowUserToAddRows = False
        SQL_系統語言導入()
        da.Fill(ds5) : 語言_dgv.DataSource = ds5.Tables(0) : conn.Close()
    End Sub
    Private Sub 語言轉換讀取()
        Set_語言() : conn.Close()
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1
            If 語言_dgv("控件", i).Value.ToString = "會計科目管理" Then : Me.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "第一_lb" Then : 第一_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "第二_lb" Then : 第二_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "第三_lb" Then : 第三_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "層級_lb" Then : 層級_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "編號1_lb" Then : 編號1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "編號2_lb" Then : 編號2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "新增模式_cb" Then : 新增模式_cb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "修改刪除_cb" Then : 修改刪除_cb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "新增_bt" Then : 新增_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "修改_bt" Then : 修改_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "批量存檔_bt" Then : 批量存檔_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "刪除_bt" Then : 刪除_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "重新整理_bt" Then : 重新整理_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "英文名稱_lb" Then : 英文名稱_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "附註_lb" Then : 附註_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "統制科目_cb" Then : 統制科目_cb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "抵銷科目_cb" Then : 抵銷科目_cb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "顯示_cb" Then : 顯示_cb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "停用_cb" Then : 停用_cb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "長度1_lb" Then : 長度1_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "長度2_lb" Then : 長度2_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_第一層" Then : 表頭(96) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_第二層" Then : 表頭(97) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_會計科目" Then : 表頭(98) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_編號" Then : 表頭(99) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_層級" Then : 表頭(100) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_英文名稱" Then : 表頭(101) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_統制科目" Then : 表頭(102) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_抵銷科目" Then : 表頭(103) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_停用" Then : 表頭(104) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_附註" Then : 表頭(105) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "清單_dgv_顯示" Then : 表頭(106) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框1" Then : 對話框(0) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框2" Then : 對話框(1) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框3" Then : 對話框(2) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框4" Then : 對話框(3) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框5" Then : 對話框(4) = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "對話框6" Then : 對話框(5) = 語言_dgv("內容", i).Value.ToString : End If
        Next
    End Sub
    Private Sub 會計科目管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        介面 = "H307" : Set_語言() : 語言轉換讀取()
        Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        TextBox15.Enabled = False : 修改刪除_cb.Checked = True : 新增_bt.Enabled = False : TextBox16.Enabled = False
        Set_會計科目() : ComboBox1下拉表單資料載入()
    End Sub
    Private Sub DataGridView7_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 會計科目清單_dgv.CellClick
        Dim SSXX As String
        If e.RowIndex = -1 Then : Else
            ComboBox6.Text = 會計科目清單_dgv(4, e.RowIndex).Value.ToString : SSXX = 會計科目清單_dgv(1, e.RowIndex).Value.ToString
            ComboBox3.Text = SSXX
            If 修改刪除_cb.Checked = True Then
                TextBox8.Text = 會計科目清單_dgv(2, e.RowIndex).Value.ToString : TextBox16.Text = 會計科目清單_dgv(3, e.RowIndex).Value.ToString
                英文名稱_tb.Text = 會計科目清單_dgv(5, e.RowIndex).Value.ToString : TextBox18.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
            ComboBox1.Text = 會計科目清單_dgv(0, e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub DataGridView7_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 ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox1.TextChanged
        ComboBox2.SelectedIndex = ComboBox1.SelectedIndex : ComboBox3下拉表單資料載入()
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox2.TextChanged
        ComboBox1.SelectedIndex = ComboBox2.SelectedIndex : Set_會計科目() : ComboBox3下拉表單資料載入()
    End Sub
    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox3.TextChanged
        ComboBox4.SelectedIndex = ComboBox3.SelectedIndex
    End Sub
    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox4.TextChanged
        ComboBox3.SelectedIndex = ComboBox4.SelectedIndex
    End Sub
    Private Sub ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox5.TextChanged
        ComboBox3下拉表單資料載入()
    End Sub
    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles 新增模式_cb.Click
        新增模式_cb.Checked = True : 修改刪除_cb.Checked = False : TextBox16.Enabled = True
        TextBox8.Text = "" : 英文名稱_tb.Text = "" : TextBox18.Text = "" : 統制科目_cb.Checked = False : 抵銷科目_cb.Checked = False : 停用_cb.Checked = False
    End Sub
    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles 修改刪除_cb.Click
        新增模式_cb.Checked = False : 修改刪除_cb.Checked = True : TextBox16.Enabled = False
    End Sub
    Private Sub ComboBox6_TextChanged(sender As Object, e As EventArgs) Handles ComboBox6.TextChanged
        ComboBox6變化()
    End Sub
    Private Sub Button19_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        If TextBox8.Text = "" Then
            MsgBox(對話框(0))
        Else
            conn.Close() : dr.Close()
            SQL_會計科目管理_修改會計科目() : conn.Close()
            MsgBox(對話框(1))
        End If : Set_會計科目()
    End Sub
    Private Sub Button16_Click(sender As Object, e As EventArgs) Handles 批量存檔_bt.Click
        For i As Integer = 0 To 會計科目清單_dgv.Rows.Count - 1
            資料數 = 會計科目清單_dgv.Rows.Count : MyModule1.進度條() : 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 : MsgBox(對話框(1))
    End Sub
    Private Sub Button21_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        Dim aa As MsgBoxResult
        aa = MsgBox(對話框(2), MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            SQL_會計科目管理_刪除會計科目() : conn.Close()
            MsgBox(對話框(3))
        End If
        Set_會計科目()
    End Sub
    Private Sub Button20_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        If TextBox8.Text = "" Or ComboBox6.Text = "" Then
            MsgBox(對話框(0))
        Else
            SQL_會計科目管理_查詢會計科目編號()
            If dr.Read() Then
                MsgBox(對話框(4)) : conn.Close() : dr.Close()
            Else
                conn.Close() : dr.Close()
                If ComboBox6.Text = "1" Then
                    SQL_會計科目管理_新增會計科目編號1()
                ElseIf ComboBox6.Text = "2" Then
                    SQL_會計科目管理_新增會計科目編號2()
                Else
                    SQL_會計科目管理_新增會計科目編號3()
                End If
                MsgBox(對話框(5))
                conn.Close() : dr.Close()
            End If
        End If : Set_會計科目()
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 重新整理_bt.Click
        ComboBox1下拉表單資料載入() : ComboBox3下拉表單資料載入() : ComboBox6變化() : Set_會計科目()
    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
End Class