GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/未整理/機構科目清單.vb

Option Strict Off
Public Class 機構科目清單
    ReadOnly ds As New DataSet
    Private Sub 讀取科目類型表()
        ConnOpen()
        If ComboBox6.Text = "" Or ComboBox6.Text = "-請選擇-" Then
            ComboBox6.Text = "-請選擇-"
            DataGridView2.DataSource = Nothing : ds.Clear()
            DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            DataGridView2.ColumnHeadersHeight = 25
            DataGridView2.AllowUserToAddRows = False
            SQL1 = "SELECT 流水碼, 科目, 類型 FROM 機構成本科目類型表"
        Else
            DataGridView2.DataSource = Nothing : ds.Clear()
            DataGridView2.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
            DataGridView2.ColumnHeadersHeight = 25
            DataGridView2.AllowUserToAddRows = False
            SQL1 = "SELECT 流水碼, 科目, 類型 FROM 機構成本科目類型表 WHERE (科目 ='" & ComboBox6.Text & "')"
        End If
        CmdSet_For_DGV() : da.Fill(ds) : DataGridView2.DataSource = ds.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_grid2()
        DataGridView2.Columns(0).Visible = False : DataGridView2.Columns(1).Visible = False : DataGridView2.Columns(2).Width = 180
    End Sub
    Private Sub 機構科目清單_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        FormBorderStyle = FormBorderStyle.SizableToolWindow
        讀取科目類型表() : Set_grid2()
        ComboBox6.Items.AddRange(科目清單)
    End Sub
    Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0
        GCM_ERP_SYS.Timer1.Enabled = False
        GCM_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0
        GCM_ERP_SYS.Timer1.Enabled = False
        GCM_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub DataGridView2_CellClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView2.CellClick
        If e.RowIndex = -1 Then : Else
            TextBox7.Text = DataGridView2(0, e.RowIndex).Value.ToString : ComboBox6.Text = DataGridView2(1, e.RowIndex).Value.ToString
            TextBox6.Text = DataGridView2(2, e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub ComboBox6_SelectedIndexChanged(sender As Object, e As EventArgs) Handles ComboBox6.Click
        If ComboBox6.Text = "" Or ComboBox6.Text = "-請選擇-" Then
            DataGridView2.Enabled = False
            讀取科目類型表() : Set_grid2()
        Else
            DataGridView2.Enabled = True
            讀取科目類型表() : Set_grid2()
        End If
        TextBox7.Text = "" : TextBox6.Text = ""
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        If ComboBox6.Text = "-請選擇-" Or TextBox6.Text = "" Then
            MsgBox("科目或類型欄位不可空白")
        Else
            Dim NUM1 As Integer
            For NUM1 = 0 To 9999
                If NUM1 < 10 Then
                    TextBox8.Text = "A" & "00" & NUM1
                ElseIf NUM1 > 9 And NUM1 < 100 Then
                    TextBox8.Text = "A" & "0" & NUM1
                ElseIf NUM1 > 99 Then
                    TextBox8.Text = "A" & NUM1
                End If
                ConnOpen()
                SQL1 = "SELECT 流水碼 FROM 機構成本科目類型表 WHERE (流水碼 ='" & TextBox8.Text & "')"
                cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
                If dr.Read() Then : TextBox7.Text = dr("流水碼").ToString : Else : TextBox7.Text = "" : End If
                conn.Close()
                If TextBox7.Text = "" Then
                    TextBox7.Text = TextBox8.Text : TextBox8.Text = "可用"
                    NUM1 = 9999
                End If
            Next
            If TextBox8.Text = "可用" Then
                ConnOpen()
                SQL1 = "INSERT INTO 機構成本科目類型表 (流水碼, 科目, 類型) VALUES ('" & TextBox7.Text & "','" & ComboBox6.Text &
                      "','" & TextBox6.Text & "')"
                CmdSet_For_dr()
                MsgBox("新增完成")
                conn.Close()
            End If
        End If
        讀取科目類型表() : Set_grid2()
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
       ConnOpen()
        SQL1 = "UPDATE    機構成本科目類型表 SET 科目 = '" & ComboBox6.Text & "', 類型 = '" & TextBox6.Text &
               "' WHERE (流水碼 = '" & TextBox7.Text & "')"
        cmd.CommandText = SQL1 : cmd.ExecuteNonQuery()
        MsgBox("修改完成")
        conn.Close()
        讀取科目類型表() : Set_grid2()
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        SQL1 = "DELETE FROM 機構成本科目類型表 WHERE (流水碼 = '" & TextBox7.Text & "')"
        cmd.CommandText = SQL1 : cmd.Connection = conn
       ConnOpen()

        Dim aa As MsgBoxResult
        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then : cmd.ExecuteNonQuery() : MsgBox("刪除完成") : End If
        conn.Close()
        ComboBox6.Text = "-請選擇-"
        讀取科目類型表() : Set_grid2()
    End Sub
End Class