HSKIN-MIS-SYS-LEEHSIEHJUI/GRAMS-SYS/10、系統管理/系統設定.vb

Public Class 系統設定
    Private Sub Set_醫師設定()
        Dim ds2 As New DataSet
        醫師_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()
    End Sub
    Private Sub Set_時段設定()
        Dim ds2 As New DataSet
        時段_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_年度清單()
        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 = 100
    End Sub
    Private Sub Set_工作職務()
        Dim ds3 As New DataSet
        職務_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.AutoScroll = True
        Set_年度清單() : Set_工作職務() : Set_醫師設定() : Set_時段設定()
        SQL_系統版本號驗證()
        If dr.Read() Then : 資料庫版本號_lb.Text = "資料庫版本號 : " & dr("系統認證版本號") : 版本號_tb.Text = dr("系統認證版本號") : End If : conn.Close()
    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_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
            醫師_tb.Text = 醫師_dgv(0, 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()
    End Sub
    Private Sub 式共用3()
        ConnOpen()
    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
        SQL_查詢醫生()
        If dr.Read() Then : MsgBox("該醫師名稱已經在資料庫中，無法新增!!")
        Else : SQL_醫生新增() : Set_醫師設定() : conn.Close() : MsgBox("新增完成")
        End If : conn.Close()
    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 : conn.Close()
    End Sub
    Private Sub 醫生_刪除_bt_Click(sender As Object, e As EventArgs) Handles 醫生_刪除_bt.Click
        If 醫師_tb.Text = "" Then : MsgBox("沒有選擇刪除內容")
        Else : SQL_醫生刪除() : Set_醫師設定() : conn.Close() : MsgBox("刪除完成")
        End If : conn.Close()
    End Sub
    '---------------------系統執行檔版本管理-----------------------------------------------------------------------------------------------------------------
    Private Sub 修改1_bt_Click(sender As Object, e As EventArgs) Handles 修改1_bt.Click
        SQL_版本號管理修改() : conn.Close() : SQL_系統版本號驗證()
        If dr.Read() Then : 資料庫版本號_lb.Text = "資料庫版本號 : " & dr("系統認證版本號") : 版本號_tb.Text = dr("系統認證版本號") : End If : conn.Close() : MsgBox("修改完成")
    End Sub
End Class