GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/hx-pgs-erp-sys-team/01、人事管理系統/LINE_權限一覽表.vb

Public Class LINE_權限一覽表
    Dim ds1, ds2 As New DataSet
    Private Sub 語言轉換讀取()
        Set_語言() : conn.Close()
        For i As Integer = 0 To 語言_dgv.Rows.Count - 1
            If 語言_dgv("控件", i).Value.ToString = "LINE_權限一覽表" Then : Me.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "權限代號_lb" Then : 權限代號_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "權限名稱_lb" Then : 權限名稱_lb.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "新增_bt" Then : 新增_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "確認新增_bt" Then : 確認新增_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "修改_bt" Then : 修改_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "修改存檔_bt" Then : 修改存檔_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
            If 語言_dgv("控件", i).Value.ToString = "刪除_bt" Then : 刪除_bt.Text = 語言_dgv("內容", i).Value.ToString : End If
        Next
    End Sub
    Private Sub Set_使用者清單()
        清單_dgv.DataSource = Nothing : ds1.Clear()
        清單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        清單_dgv.ColumnHeadersHeight = 25
        清單_dgv.AllowUserToAddRows = False
        清單_dgv.RowTemplate.Height = 35
        SQL_LINE_權限清單載入()
        da.Fill(ds1) : 清單_dgv.DataSource = ds1.Tables(0) : conn.Close() : Set_grid()
    End Sub
    Private Sub Set_grid()
        清單_dgv.Columns(0).FillWeight = 30
    End Sub
    Private Sub LINE_權限一覽表_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        'Me.MdiParent = HX_PGS_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        H(605) = True : 介面 = "H605" : Set_語言() : 語言轉換讀取()
        PA = "" : 確認新增_bt.Enabled = False : 權限代號_cb.Enabled = False : 權限名稱_tb.Enabled = False : 修改存檔_bt.Enabled = False
        Set_使用者清單()
        清單_dgv.RowsDefaultCellStyle.Font = New System.Drawing.Font("微軟正黑體", HX_PGS_ERP_SYS.字體_NUD.Value)
    End Sub
    Private Sub LINE_權限一覽表_Closed(sender As Object, e As EventArgs) Handles MyBase.Closed
        H(605) = False
    End Sub
    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()
    End Sub
    Private Sub 新增_bt_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        權限名稱_tb.Enabled = True : 權限代號_cb.Enabled = True
        權限名稱_tb.Text = "" : 權限代號_cb.Text = "" : 新增_bt.Enabled = False : 確認新增_bt.Enabled = True
    End Sub
    Private Sub 確認新增_bt_Click(sender As Object, e As EventArgs) Handles 確認新增_bt.Click
        If 權限代號_cb.Text = "" Or 權限名稱_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("輸入資料有誤!!") : Else : MsgBox("Informasi yang dimasukkan salah!!") : End If
        Else
            SQL_LINE_新增權限資料() : SQL_LINE_權限資料修改() : conn.Close()
            If 系統語言 = "繁體中文" Then : MsgBox("新增完成!!") : Else : MsgBox("Tambahkan selesai!!") : End If : Set_使用者清單()
            確認新增_bt.Enabled = False : 新增_bt.Enabled = True
            權限代號_cb.Enabled = False : 權限名稱_tb.Enabled = False
        End If
    End Sub
    Private Sub 修改_bt_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        權限代號_cb.Enabled = True : 權限名稱_tb.Enabled = True : 修改_bt.Enabled = False : 修改存檔_bt.Enabled = True
    End Sub
    Private Sub 修改存檔_bt_Click(sender As Object, e As EventArgs) Handles 修改存檔_bt.Click
        If 權限代號_cb.Text = "" Or 權限名稱_tb.Text = "" Then
            If 系統語言 = "繁體中文" Then : MsgBox("輸入資料有誤!!") : Else : MsgBox("Informasi yang dimasukkan salah!!") : End If
        Else
            SQL_LINE_權限資料修改() : conn.Close() : If 系統語言 = "繁體中文" Then : MsgBox("修改完成!!") : Else : MsgBox("Modifikasi selesai!!") : End If
            權限代號_cb.Enabled = False : 權限名稱_tb.Enabled = False : 修改存檔_bt.Enabled = False : 修改_bt.Enabled = True

        End If
        PA = "" : Set_使用者清單()
    End Sub
    Private Sub 清單_dgv_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 清單_dgv.CellClick
        If e.RowIndex = -1 Then : Else
            權限名稱_tb.Text = 清單_dgv.Rows(e.RowIndex).Cells("權限名稱").Value.ToString : 權限代號_cb.Text = 清單_dgv.Rows(e.RowIndex).Cells("權限代號").Value.ToString
        End If
    End Sub
    Private Sub 語轉扭_bt_Click(sender As Object, e As EventArgs) Handles 語轉扭_bt.Click
        介面 = "H605" : Set_語言() : 語言轉換讀取() : Set_使用者清單()
    End Sub
    Private Sub 刪除_bt_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        Dim SS As String
        If 系統語言 = "繁體中文" Then : SS = "確定要刪除該筆資料?" : Else : SS = "Apakah Anda yakin ingin menghapus data ini?" : End If
        Dim aa As MsgBoxResult = MsgBox(SS, MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then : SQL_LINE_權限資料刪除() : conn.Close()
            If 系統語言 = "繁體中文" Then : MsgBox("刪除完成!!") : Else : MsgBox("Hapus selesai!!") : End If : End If
        權限名稱_tb.Text = "" : 權限代號_cb.Text = ""
        Set_使用者清單()
    End Sub
End Class