GF00-ERP-SYS-LEEHSIEHJUI/GF00-ERP-SYS/06.業務管理系統/公廟/燈種編輯.vb

Public Class 燈種編輯
    Private Sub Set_清單1()
        Dim ds1 As New DataSet : 控制表_dgv.DataSource = Nothing : ds1.Clear()
        控制表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        控制表_dgv.ColumnHeadersHeight = 25 : 控制表_dgv.AllowUserToAddRows = False : 控制表_dgv.RowTemplate.Height = 25
        SQL_登牆清單()
        da.Fill(ds1) : 控制表_dgv.DataSource = ds1.Tables(0) : conn.Close()
        Dim newFont As New System.Drawing.Font("微軟正黑體", 9) ' 創建一個新字體，Arial 12pt
        控制表_dgv.RowsDefaultCellStyle.Font = newFont
        控制表_dgv.Columns("燈數").DefaultCellStyle.Format = "#,##0" : 控制表_dgv.Columns("燈數").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        控制表_dgv.Columns(1).Visible = False : 控制表_dgv.Columns(3).FillWeight = 160
        Dim 加總 As Integer = 0 : For I As Integer = 0 To 控制表_dgv.Rows.Count - 1 : 加總 += 控制表_dgv("燈數", I).Value : Next : 合計數_tb.Text = Strings.Format(加總, "#,##0")
        控制表_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        控制表_dgv.Columns(0).ReadOnly = True : 控制表_dgv.Columns(1).ReadOnly = True : 控制表_dgv.Columns(2).ReadOnly = True : 控制表_dgv.Columns(4).ReadOnly = True
        控制表_dgv.Columns(5).Visible = False : 控制表_dgv.Columns(6).ReadOnly = True
    End Sub
    Private Sub Set_清單2()
        Dim ds1 As New DataSet : 價格表_dgv.DataSource = Nothing : ds1.Clear()
        價格表_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        價格表_dgv.ColumnHeadersHeight = 25 : 價格表_dgv.AllowUserToAddRows = False : 價格表_dgv.RowTemplate.Height = 25
        SQL_燈價格()
        da.Fill(ds1) : 價格表_dgv.DataSource = ds1.Tables(0) : conn.Close()
        Dim newFont As New System.Drawing.Font("微軟正黑體", 9) ' 創建一個新字體，Arial 12pt
        價格表_dgv.RowsDefaultCellStyle.Font = newFont
        價格表_dgv.Columns("價格").DefaultCellStyle.Format = "#,##0" : 價格表_dgv.Columns("價格").DefaultCellStyle.Alignment = DataGridViewContentAlignment.MiddleRight
        For I As Integer = 0 To 價格表_dgv.Rows.Count - 1 : If IsDBNull(價格表_dgv("價格", I).Value) Then : 價格表_dgv("價格", I).Value = 0 : End If : Next
        價格表_dgv.EditMode = DataGridViewEditMode.EditOnEnter
        價格表_dgv.Columns(0).ReadOnly = True : 價格表_dgv.Columns(1).ReadOnly = True : 價格表_dgv.Columns("科目編號").Visible = False '科目編號
        價格表_dgv.Columns("排序").Visible = False
    End Sub
    Private Sub 年份_下拉表單資料載入()
        SQL_燈年份() : 年度_cb.Items.Clear() : While (dr.Read()) : 年度_cb.Items.Add(dr("年度")) : End While : conn.Close()
        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
        價格表_dgv.BringToFront()
    End Sub
    Private Sub 燈種編輯_Shown(sender As Object, e As EventArgs) Handles MyBase.Shown
        年份_下拉表單資料載入() : 年度_cb.Text = CInt(Year(Today())) - 1911
    End Sub
    Private Sub 價格表_dgv_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles 價格表_dgv.CellClick
        If e.RowIndex = -1 Then : Else : 燈種_tb.Text = 價格表_dgv("燈種", e.RowIndex).Value.ToString : End If
    End Sub
    Private Sub 年度_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 年度_cb.SelectedIndexChanged
        PA = 年度_cb.Text : Set_清單1() : Set_清單2()
    End Sub
    Private Sub 科目_cb_SelectedIndexChanged(sender As Object, e As EventArgs) Handles 科目_cb.SelectedIndexChanged
        編號_cb.SelectedIndex = 科目_cb.SelectedIndex
    End Sub
    Private Sub 存檔_bt_Click(sender As Object, e As EventArgs) Handles 存檔_bt.Click
        If 年度_cb.Text <> "" Then
            PA = 年度_cb.Text
            For i As Integer = 0 To 價格表_dgv.Rows.Count - 1
                PA1 = 價格表_dgv("燈種", i).Value.ToString : PA2 = 價格表_dgv("價格", i).Value.ToString : SQL_燈價格修改()
                If 統一_ch.Checked = True Then : PA3 = 編號_cb.Text : SQL_燈價格修改_科目() : End If
            Next : If 統一_ch.Checked = False Then : PA1 = 燈種_tb.Text : PA3 = 編號_cb.Text : SQL_燈價格修改_科目() : End If
            PA = 年度_cb.Text : Set_清單1() : Set_清單2() : MsgBox("存檔完成!!")
        End If
    End Sub
    Private Sub 存檔1_bt_Click(sender As Object, e As EventArgs) Handles 存檔1_bt.Click
        If 年度_cb.Text <> "" Then
            PA = 年度_cb.Text : SQL_燈年份刪除()
            For i As Integer = 0 To 控制表_dgv.Rows.Count - 1
                PA1 = 控制表_dgv("區編", i).Value.ToString : PA2 = 控制表_dgv("燈種", i).Value.ToString : SQL_燈年份新增()
            Next : PA = 年度_cb.Text : Set_清單1() : Set_清單2() : MsgBox("存檔完成!!")
        End If
    End Sub

    Private Sub 排序編輯_bt_Click(sender As Object, e As EventArgs) Handles 排序編輯_bt.Click
        PA = 年度_cb.Text : 排序選擇.ShowDialog() : Set_清單1()
    End Sub
End Class