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