HX-PGS-ERP-SYS-LEEHSIEHJUI/05、財務管理系統/財務支付系統/應付款會科設定.vb

Public Class 應付款會科設定
    Private Sub 支付日期清單()
        Dim ds1 As New DataSet : 清單_dgv.DataSource = Nothing : ds1.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 25 : 清單_dgv.AllowUserToAddRows = False
        SQL_財務分類清單()
        da.Fill(ds1) : 清單_dgv.DataSource = ds1.Tables(0) : conn.Close()
        清單_dgv.Columns(0).FillWeight = 40
    End Sub
    Private Sub 第三層下拉表單資料載入()
        PA26 = 編號2_cb.Text : SQL_財務單會計科目3() : 第三層_cb.Items.Clear() : 編號3_cb.Items.Clear() : 第三層_cb.Items.Add("") : 編號3_cb.Items.Add("")
        While (dr.Read()) : 第三層_cb.Items.Add(dr("會計科目")) : 編號3_cb.Items.Add(dr("編號")) : End While : conn.Close()
        If 第三層_cb.Items.Count <> 0 Then : 第三層_cb.SelectedIndex = 0 : End If
    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() : 第一層_cb.Text = "" : 編號1_cb.Text = ""
    End Sub
    Private Sub 第二層下拉表單資料載入()
        PA25 = 編號1_cb.Text : SQL_財務單會計科目2() : 第二層_cb.Items.Clear() : 編號2_cb.Items.Clear() : 第二層_cb.Items.Add("") : 編號2_cb.Items.Add("")
        While (dr.Read()) : 第二層_cb.Items.Add(dr("第二階")) : 編號2_cb.Items.Add(dr("編號")) : End While : conn.Close() : 第二層_cb.Text = "" : 編號2_cb.Text = ""
    End Sub
    Private Sub 分類下拉表單資料載入()
        SQL_財務分類() : 分類_cb.Items.Clear() : 分編_cb.Items.Clear()
        While (dr.Read()) : 分類_cb.Items.Add(dr("項目")) : 分編_cb.Items.Add(dr("編號")) : End While : conn.Close()
    End Sub
    Private Sub 應付款會科設定_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    End Sub
    Private Sub 應付款會科設定_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        分類下拉表單資料載入() : 第一層下拉表單資料載入() : 編號1_cb.Text = "B-02" : 支付日期清單()
    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 ComboBox5_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 第一層_cb.TextChanged
        編號1_cb.SelectedIndex = 第一層_cb.SelectedIndex : 查詢_tb.Text = "" : 第二層下拉表單資料載入() : 第三層下拉表單資料載入()
    End Sub
    Private Sub ComboBox2_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 編號1_cb.TextChanged
        第一層_cb.SelectedIndex = 編號1_cb.SelectedIndex : 第二層下拉表單資料載入() : 第三層下拉表單資料載入()
    End Sub
    Private Sub ComboBox3_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 第二層_cb.TextChanged
        編號2_cb.SelectedIndex = 第二層_cb.SelectedIndex : 第三層下拉表單資料載入()
    End Sub
    Private Sub ComboBox4_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 編號2_cb.TextChanged
        第二層_cb.SelectedIndex = 編號2_cb.SelectedIndex : 第三層下拉表單資料載入()
    End Sub
    Private Sub ComboBox1_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 第三層_cb.SelectedIndexChanged
        編號3_cb.SelectedIndex = 第三層_cb.SelectedIndex
    End Sub
    Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 編號3_cb.SelectedIndexChanged
        第三層_cb.SelectedIndex = 編號3_cb.SelectedIndex
    End Sub
    Private Sub 分類_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 分類_cb.SelectedIndexChanged
        分編_cb.SelectedIndex = 分類_cb.SelectedIndex
    End Sub
    Private Sub 分類_cb_Click(sender As Object, e As EventArgs) Handles 分類_cb.Click
        CB選擇清單(分類_cb, 分類_cb.Text)
    End Sub
    Private Sub 申請完成_bt_Click(sender As Object, e As EventArgs) Handles 申請完成_bt.Click
        If 分編_cb.Text <> "N99" And 分編_cb.Text <> "" And 編號3_cb.Text <> "" Then : SQL_財務分類清單查詢(編號3_cb.Text)
            If dr.Read Then : SQL_財務分類清單修改(分編_cb.Text, 編號3_cb.Text) : Else : SQL_財務分類清單新增(分編_cb.Text, 編號3_cb.Text) : End If : 支付日期清單()
        End If
    End Sub
End Class