GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/01-人事系統管理_新/人事系統變數設定.vb

Public Class 人事系統變數設定
    ReadOnly ds, ds1, ds6, ds3, ds7, ds2 As New DataSet
    Private Sub Set_時段設定()
        時段_dgv.DataSource = Nothing : ds2.Clear()
        時段_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        時段_dgv.ColumnHeadersHeight = 25
        時段_dgv.AllowUserToAddRows = False
        SQL_時段設定()
        da.Fill(ds2) : 時段_dgv.DataSource = ds2.Tables(0) : conn.Close()
        時段_dgv.Columns(0).FillWeight = 100
    End Sub
    Private Sub Set_年度清單()
        年份_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 = 100
    End Sub
    Private Sub Set_門診資料()
        門診_dgv.DataSource = Nothing : ds6.Clear()
        門診_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        門診_dgv.ColumnHeadersHeight = 50
        門診_dgv.AllowUserToAddRows = False
        SQL_門診資料()
        da.Fill(ds6) : 門診_dgv.DataSource = ds6.Tables(0) : conn.Close()
        門診_dgv.Columns(0).FillWeight = 100
    End Sub
    Private Sub Set_工作職務()
        職務_dgv.DataSource = Nothing : ds3.Clear()
        職務_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        職務_dgv.ColumnHeadersHeight = 25
        職務_dgv.AllowUserToAddRows = False
        SQL_工作職務()
        da.Fill(ds3) : 職務_dgv.DataSource = ds3.Tables(0) : conn.Close()
        職務_dgv.Columns(0).FillWeight = 100
    End Sub

    Private Sub 人事系統變數設定_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        Set_年度清單() : Set_門診資料() : Set_工作職務() : Set_時段設定()
    End Sub
    Private Sub 年份_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 年份_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            年份_tb.Text = 年份_dgv("年份", e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub 門診_dgv_CellClick(ByVal sender As System.Object, ByVal e As DataGridViewCellEventArgs) Handles 門診_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            中_tb.Text = 門診_dgv("中", e.RowIndex).Value.ToString : 早_tb.Text = 門診_dgv("早", e.RowIndex).Value.ToString
            星期_tb.Text = 門診_dgv("星期", e.RowIndex).Value.ToString : 診別_tb.Text = 門診_dgv("診別", e.RowIndex).Value.ToString
            晚_tb.Text = 門診_dgv("晚", e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub 職務_dgv_Click(sender As Object, e As DataGridViewCellEventArgs) Handles 職務_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            職務_tb.Text = 職務_dgv("職務", e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub 時段_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 時段_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            ID_tb.Text = 時段_dgv("ID", e.RowIndex).Value.ToString : 時段_tb.Text = 時段_dgv("時段", e.RowIndex).Value.ToString
            時段1_tb.Text = 時段_dgv("時段1", e.RowIndex).Value.ToString : 時段2_tb.Text = 時段_dgv("時段2", e.RowIndex).Value.ToString
            時段3_tb.Text = 時段_dgv("時段3", e.RowIndex).Value.ToString : 時段4_tb.Text = 時段_dgv("時段4", e.RowIndex).Value.ToString
            時段5_tb.Text = 時段_dgv("時段5", e.RowIndex).Value.ToString : 時段6_tb.Text = 時段_dgv("時段6", e.RowIndex).Value.ToString
            時段7_tb.Text = 時段_dgv("時段7", e.RowIndex).Value.ToString : 時段8_tb.Text = 時段_dgv("時段8", e.RowIndex).Value.ToString
            上午上班_tb.Text = 時段_dgv("上午上班", e.RowIndex).Value.ToString : 下午上班_tb.Text = 時段_dgv("下午上班", e.RowIndex).Value.ToString
            加班上班_tb.Text = 時段_dgv("加班上班", e.RowIndex).Value.ToString : 一段休息_tb.Text = 時段_dgv("一段休息", e.RowIndex).Value.ToString
            二段休息_tb.Text = 時段_dgv("二段休息", e.RowIndex).Value.ToString
        End If
    End Sub
    Private Sub SET_新增按鈕程式共用2()
        CmdSet_For_dr() : Dim unused = MsgBox("新增完成") : conn.Close() : dr.Close()
    End Sub
    Private Sub SET_修改按鈕程式共用1()
        CmdSet_For_dr() : Dim unused = MsgBox("修改完成") : conn.Close()
    End Sub
    Private Sub SET_刪除按鈕程式共用1()
        Dim aa As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then : ConnOpen() : CmdSet_For_dr() : MsgBox("刪除完成") : End If : conn.Close() : 式共用1()
    End Sub
    Private Sub 式共用1()
        Set_年度清單() : PA = ""
    End Sub
    Private Sub 式共用2()
        dr.Close() : ConnOpen_AM()
    End Sub
    Private Sub 式共用3()
        ConnOpen_AM()
    End Sub
    '---------------------年份清單-----------------------------------------------------------------------------------------------------------------
    Private Sub Button11_Click(sender As Object, e As EventArgs) Handles 年份_新增_bt.Click
        If 年份_tb.Text = "" Then : MsgBox("資料有缺或有誤，請重新檢查")
        Else
            PA = 年份_tb.Text : SQL_年份清單查詢()
            If dr.Read() Then : MsgBox("資料重複，請從新輸入或檢查") : conn.Close() : dr.Close()
            Else : 式共用2() : SQL_年份清單新增() : SET_新增按鈕程式共用2() : End If
        End If : 式共用1()
    End Sub
    Private Sub Button10_Click(sender As Object, e As EventArgs) Handles 年份_修改_bt.Click
        If 年份_tb.Text = "" Then : MsgBox("資料有缺或有誤，請重新檢查")
        Else
            PA = InputBox("請輸入要修改的內容") : PA1 = 年份_tb.Text
            If PA = "" Then : MsgBox("沒有輸入修改內容")
            Else : 式共用3() : SQL_年份清單修改() : SET_修改按鈕程式共用1() : End If
        End If : 式共用1()
    End Sub
    Private Sub Button12_Click(sender As Object, e As EventArgs) Handles 年份_刪除_bt.Click
        PA = 年份_tb.Text
        SQL_年份清單刪除() : SET_刪除按鈕程式共用1()
    End Sub
    '-----------------------------------工作職務 新增 修改 刪除------------------------------------------------------------------------------------
    Private Sub 職務新增_bt_Click(sender As Object, e As EventArgs) Handles 職務新增_bt.Click
        If 職務_tb.Text = "" Then : MsgBox("不能為空白")
        Else
            PA = 職務_tb.Text : SQL_工作新增() : Set_工作職務() : MsgBox("新增完成")
        End If
    End Sub
    Private Sub 職務修改_bt_Click(sender As Object, e As EventArgs) Handles 職務修改_bt.Click
        If 職務_tb.Text = "" Then
            MsgBox("沒有選擇修改內容")
        Else
            PA = InputBox("請輸入要修改的內容") : SQL_工作修改() : Set_工作職務() : conn.Close() : MsgBox("修改完成")
        End If
    End Sub
    Private Sub 職務刪除_bt_Click(sender As Object, e As EventArgs) Handles 職務刪除_bt.Click
        If 職務_tb.Text = "" Then
            MsgBox("沒有選擇刪除內容")
        Else
            Dim bb As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
            If bb = MsgBoxResult.Ok Then
                SQL_工作刪除() : conn.Close() : Set_工作職務() : MsgBox("刪除完成")
            End If
        End If
    End Sub
    '---------------------時段設定--------------------------------------------------------------------------------------
    Private Sub 時段新增_bt_Click(sender As Object, e As EventArgs) Handles 時段新增_bt.Click
        If 時段_tb.Text = "" Then : MsgBox("時段不能為空白")
        Else
            PA = ID_tb.Text : PA1 = 時段_tb.Text : PA2 = 時段1_tb.Text : PA3 = 時段2_tb.Text : PA4 = 時段3_tb.Text
            PA5 = 時段4_tb.Text : PA6 = 時段5_tb.Text : PA7 = 時段6_tb.Text : PA8 = 時段7_tb.Text : PA9 = 時段8_tb.Text
            PA10 = 上午上班_tb.Text : PA11 = 下午上班_tb.Text : PA12 = 加班上班_tb.Text : PA13 = 一段休息_tb.Text : PA14 = 二段休息_tb.Text
            SQL_時段新增() : Set_時段設定() : MsgBox("新增完成")
        End If
    End Sub
    Private Sub 時段修改_bt_Click(sender As Object, e As EventArgs) Handles 時段修改_bt.Click
        If 時段_tb.Text = "" Then
            MsgBox("沒有選擇修改內容")
        Else
            PA = ID_tb.Text : PA1 = 時段_tb.Text : PA2 = 時段1_tb.Text : PA3 = 時段2_tb.Text : PA4 = 時段3_tb.Text
            PA5 = 時段4_tb.Text : PA6 = 時段5_tb.Text : PA7 = 時段6_tb.Text : PA8 = 時段7_tb.Text : PA9 = 時段8_tb.Text
            PA10 = 上午上班_tb.Text : PA11 = 下午上班_tb.Text : PA12 = 加班上班_tb.Text : PA13 = 一段休息_tb.Text : PA14 = 二段休息_tb.Text
            SQL_時段修改() : Set_時段設定() : conn.Close() : MsgBox("修改完成")
        End If
    End Sub
    Private Sub 時段刪除_bt_Click(sender As Object, e As EventArgs) Handles 時段刪除_bt.Click
        If 時段_tb.Text = "" Then
            MsgBox("沒有選擇刪除內容")
        Else
            Dim dd As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
            If dd = MsgBoxResult.Ok Then
                SQL_時段刪除() : conn.Close() : Set_時段設定() : MsgBox("刪除完成")
            End If
        End If
    End Sub
    Private Sub 時間修改_bt_Click(sender As Object, e As EventArgs) Handles 時間修改_bt.Click
        If 星期_tb.Text = "" Or 診別_tb.Text = "" Then
            MsgBox("沒有選擇修改內容")
        Else
            PA = 早_tb.Text : PA1 = 中_tb.Text : PA2 = 晚_tb.Text : PA3 = 星期_tb.Text : PA4 = 診別_tb.Text
            SQL_門診修改() : Set_門診資料() : conn.Close() : MsgBox("修改完成")
        End If
    End Sub
End Class