WINPROFIT-ERP-SYS-LEEHSIEHJUI/SHENKANG-MES-SYS/資料庫管理系統/系統使用者管理.vb

Option Strict Off
Public Class 系統使用者管理
    Private ReadOnly ds As New DataSet
    Dim HH As String
    Private Sub Set_使用者清單()
        主表單_dgv.DataSource = Nothing : ds.Clear()
        主表單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        主表單_dgv.ColumnHeadersHeight = 25
        主表單_dgv.AllowUserToAddRows = False
        SQL_系統使用者管理表() : da.Fill(ds) : 主表單_dgv.DataSource = ds.Tables(0) : conn.Close() : Set_grid()
    End Sub
    Private Sub Set_grid()
        主表單_dgv.Columns(0).Width = 80 : 主表單_dgv.Columns(1).Width = 80 : 主表單_dgv.Columns(2).Width = 80 : 主表單_dgv.Columns(3).Width = 70 : 主表單_dgv.Columns(4).Width = 70
        For i As Integer = 0 To 95
            主表單_dgv.Columns(i + 5).Visible = False
        Next
        For i As Integer = 0 To 主表單_dgv.Rows.Count - 1
            主表單_dgv.Rows(i).Cells("密碼").Value = "*************"
        Next
    End Sub
    Private Sub Set_格式設定()
        '---------同時控制所有具有一定命名規則的控件---------------------------------------------------------------------------------------------------------------------------------------------
        For no As Integer = 1 To 96
            Dim checkbox As CheckBox = CType(Me.Controls.Find("CheckBox" + no.ToString(), True)(0), CheckBox)
            checkbox.Checked = False
        Next
    End Sub
    Private Sub ComboBox1下拉表單資料載入()
        SQL_METOO部門清單()
        部門_cb.Items.Clear() : While (dr.Read()) : 部門_cb.Items.Add(dr("部門")) : End While : conn.Close()
    End Sub
    Private Sub ComboBox2下拉表單資料載入()
        SQL_METOO職稱清單()
        職稱_cb.Items.Clear() : While (dr.Read()) : 職稱_cb.Items.Add(dr("職稱")) : End While : conn.Close()
    End Sub
    Private Sub 系統使用者管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        WINPROFIT_ERP_SYS.WindowState = 2 : Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        Set_格式設定() : ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入()
        確認新增_bt.Enabled = False
        Set_使用者清單() : Set_grid()
    End Sub
    Private Sub DataGridView1_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 : 帳號_tb.Text = 主表單_dgv.Rows(e.RowIndex).Cells("帳號").Value
            SQL_使用者權限管理表1()
            If (dr.Read()) Then : 密碼_tb.Text = dr("密碼") : End If : conn.Close()

            部門_cb.Text = 主表單_dgv.Rows(e.RowIndex).Cells("部門").Value : 職稱_cb.Text = 主表單_dgv.Rows(e.RowIndex).Cells("職稱").Value
            '---------同時控制所有具有一定命名規則的控件---------------------------------------------------------------------------------------------------------------------------------------------
            For no As Integer = 1 To 96
                If no - 1 < 10 Then : HH = "0" & no - 1 : ElseIf no - 1 >= 10 Then : HH = no - 1 : End If
                Dim checkbox As CheckBox = CType(Me.Controls.Find("CheckBox" + no.ToString(), True)(0), CheckBox)
                checkbox.Checked = 主表單_dgv.Rows(e.RowIndex).Cells("CC" & HH).Value
            Next
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 確認新增_bt.Click
        SQL_新增使用者權限管理表() : conn.Close()
        MsgBox("新增完成")
        Set_使用者清單() : 確認新增_bt.Enabled = False : 新增_bt.Enabled = True
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        If 姓名_tb.Text = "" Or 帳號_tb.Text = "" Or 密碼_tb.Text = "" Then
            MsgBox("輸入資料有誤")
        Else
            SQL_更改使用者權限管理表1() : conn.Close()
            MsgBox("新增完成")
        End If
        Set_使用者清單()
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        Dim aa As MsgBoxResult
        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            SQL_刪除使用者權限管理表() : conn.Close() : MsgBox("刪除完成")
        End If
        姓名_tb.Text = "" : 帳號_tb.Text = "" : 帳號_tb.Text = "" : ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : CheckBox1.Checked = False
        Set_使用者清單()
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        姓名_tb.Text = "" : 帳號_tb.Text = "" : 密碼_tb.Text = "" : ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : 新增_bt.Enabled = False : 確認新增_bt.Enabled = True
        Set_格式設定()
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click
        PA = InputBox("請輸入要查詢的資料") : ComboBox2下拉表單資料載入()
    End Sub


    '*************************************************************************************************************************************
    Private Sub CheckBox11_Click(sender As Object, e As EventArgs)
        If CheckBox10.Checked = False Then : CheckBox10.Checked = True : End If
    End Sub
    Private Sub CheckBox12_Click(sender As Object, e As EventArgs)
        If CheckBox10.Checked = False Then : CheckBox10.Checked = True : End If
    End Sub
    Private Sub CheckBox13_Click(sender As Object, e As EventArgs)
        If CheckBox10.Checked = False Then : CheckBox10.Checked = True : End If : If CheckBox12.Checked = False Then : CheckBox12.Checked = True : End If
    End Sub
    Private Sub CheckBox37_Click(sender As Object, e As EventArgs)
        If CheckBox10.Checked = False Then : CheckBox10.Checked = True : End If
    End Sub
    Private Sub CheckBox38_Click(sender As Object, e As EventArgs)
        If CheckBox10.Checked = False Then : CheckBox10.Checked = True : End If
    End Sub


    '*************************************************************************************************************************************
    Private Sub CheckBox23_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox24_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If : If CheckBox23.Checked = False Then : CheckBox23.Checked = True : End If
    End Sub
    Private Sub CheckBox25_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If : If CheckBox23.Checked = False Then : CheckBox23.Checked = True : End If
    End Sub
    Private Sub CheckBox26_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If : If CheckBox23.Checked = False Then : CheckBox23.Checked = True : End If
    End Sub
    Private Sub CheckBox88_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox64_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox65_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox66_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox67_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox68_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox69_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox70_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox71_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox72_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox73_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox74_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox75_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox76_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox77_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox78_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox79_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox80_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox89_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox90_Click(sender As Object, e As EventArgs)
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub



    '*************************************************************************************************************************************
    Private Sub CheckBox18_Click(sender As Object, e As EventArgs)
        If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If
    End Sub
    Private Sub CheckBox19_Click(sender As Object, e As EventArgs)
        If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If : If CheckBox18.Checked = False Then : CheckBox18.Checked = True : End If
    End Sub
    Private Sub CheckBox20_Click(sender As Object, e As EventArgs)
        If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If : If CheckBox18.Checked = False Then : CheckBox18.Checked = True : End If
    End Sub
    Private Sub CheckBox21_Click(sender As Object, e As EventArgs)
        If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If : If CheckBox18.Checked = False Then : CheckBox18.Checked = True : End If
    End Sub
    Private Sub CheckBox58_Click(sender As Object, e As EventArgs)
        If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If
    End Sub
    Private Sub CheckBox59_Click(sender As Object, e As EventArgs)
        If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If
    End Sub
    Private Sub CheckBox60_Click(sender As Object, e As EventArgs)
        If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If
    End Sub
    Private Sub CheckBox61_Click(sender As Object, e As EventArgs)
        If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If
    End Sub
    Private Sub CheckBox91_Click(sender As Object, e As EventArgs)
        If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If
    End Sub
    Private Sub CheckBox92_Click(sender As Object, e As EventArgs)
        If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If
    End Sub
    Private Sub CheckBox93_Click(sender As Object, e As EventArgs)
        If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If
    End Sub
    Private Sub CheckBox94_Click(sender As Object, e As EventArgs)
        If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If
    End Sub


    '*************************************************************************************************************************************
    Private Sub CheckBox6_Click(sender As Object, e As EventArgs)
        If CheckBox5.Checked = False Then : CheckBox5.Checked = True : End If
    End Sub
    Private Sub CheckBox7_Click(sender As Object, e As EventArgs)
        If CheckBox5.Checked = False Then : CheckBox5.Checked = True : End If : If CheckBox6.Checked = False Then : CheckBox6.Checked = True : End If
    End Sub
    Private Sub CheckBox8_Click(sender As Object, e As EventArgs)
        If CheckBox5.Checked = False Then : CheckBox5.Checked = True : End If : If CheckBox6.Checked = False Then : CheckBox6.Checked = True : End If
    End Sub
    Private Sub CheckBox9_Click(sender As Object, e As EventArgs)
        If CheckBox5.Checked = False Then : CheckBox5.Checked = True : End If : If CheckBox6.Checked = False Then : CheckBox6.Checked = True : End If
    End Sub
    Private Sub CheckBox34_Click(sender As Object, e As EventArgs)
        If CheckBox5.Checked = False Then : CheckBox5.Checked = True : End If
    End Sub


    '*************************************************************************************************************************************
    Private Sub CheckBox2_Click(sender As Object, e As EventArgs)
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    Private Sub CheckBox27_Click(sender As Object, e As EventArgs)
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    Private Sub CheckBox3_Click(sender As Object, e As EventArgs)
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    Private Sub CheckBox4_Click(sender As Object, e As EventArgs)
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    Private Sub CheckBox33_Click(sender As Object, e As EventArgs)
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    Private Sub CheckBox53_Click(sender As Object, e As EventArgs)
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub


    '*************************************************************************************************************************************
    Private Sub CheckBox29_Click(sender As Object, e As EventArgs)
        If CheckBox28.Checked = False Then : CheckBox28.Checked = True : End If
    End Sub
    Private Sub CheckBox30_Click(sender As Object, e As EventArgs)
        If CheckBox28.Checked = False Then : CheckBox28.Checked = True : End If
    End Sub
    Private Sub CheckBox31_Click(sender As Object, e As EventArgs)
        If CheckBox28.Checked = False Then : CheckBox28.Checked = True : End If
    End Sub
    Private Sub CheckBox32_Click(sender As Object, e As EventArgs)
        If CheckBox28.Checked = False Then : CheckBox28.Checked = True : End If
    End Sub
    Private Sub CheckBox44_Click(sender As Object, e As EventArgs)
        If CheckBox28.Checked = False Then : CheckBox28.Checked = True : End If
    End Sub


    '*************************************************************************************************************************************
    Private Sub CheckBox45_Click(sender As Object, e As EventArgs)
        If CheckBox35.Checked = False Then : CheckBox35.Checked = True : End If
    End Sub
    Private Sub CheckBox46_Click(sender As Object, e As EventArgs)
        If CheckBox35.Checked = False Then : CheckBox35.Checked = True : End If
    End Sub
    Private Sub CheckBox47_Click(sender As Object, e As EventArgs)
        If CheckBox35.Checked = False Then : CheckBox35.Checked = True : End If
    End Sub
    Private Sub CheckBox55_Click(sender As Object, e As EventArgs)
        If CheckBox35.Checked = False Then : CheckBox35.Checked = True : End If
    End Sub
    Private Sub CheckBox56_Click(sender As Object, e As EventArgs)
        If CheckBox35.Checked = False Then : CheckBox35.Checked = True : End If
    End Sub
    Private Sub CheckBox57_Click(sender As Object, e As EventArgs)
        If CheckBox35.Checked = False Then : CheckBox35.Checked = True : End If
    End Sub
    Private Sub CheckBox36_Click(sender As Object, e As EventArgs)
        If CheckBox35.Checked = False Then : CheckBox35.Checked = True : End If
    End Sub
    Private Sub CheckBox43_Click(sender As Object, e As EventArgs)
        If CheckBox35.Checked = False Then : CheckBox35.Checked = True : End If
    End Sub


    '*************************************************************************************************************************************
    Private Sub CheckBox41_Click(sender As Object, e As EventArgs)
        If CheckBox39.Checked = False Then : CheckBox39.Checked = True : End If
    End Sub
    Private Sub CheckBox42_Click(sender As Object, e As EventArgs)
        If CheckBox39.Checked = False Then : CheckBox39.Checked = True : End If : If CheckBox41.Checked = False Then : CheckBox41.Checked = True : End If
    End Sub
    Private Sub CheckBox63_Click(sender As Object, e As EventArgs)
        If CheckBox39.Checked = False Then : CheckBox39.Checked = True : End If
    End Sub
    Private Sub CheckBox15_Click(sender As Object, e As EventArgs)
        If CheckBox39.Checked = False Then : CheckBox39.Checked = True : End If
    End Sub
    Private Sub CheckBox84_Click(sender As Object, e As EventArgs)
        If CheckBox39.Checked = False Then : CheckBox39.Checked = True : End If
    End Sub
    Private Sub CheckBox16_Click(sender As Object, e As EventArgs)
        If CheckBox39.Checked = False Then : CheckBox39.Checked = True : End If : If CheckBox15.Checked = False Then : CheckBox15.Checked = True : End If
    End Sub
    Private Sub CheckBox17_Click(sender As Object, e As EventArgs)
        If CheckBox39.Checked = False Then : CheckBox39.Checked = True : End If : If CheckBox15.Checked = False Then : CheckBox15.Checked = True : End If
    End Sub
    Private Sub CheckBox40_Click(sender As Object, e As EventArgs)
        If CheckBox39.Checked = False Then : CheckBox39.Checked = True : End If
    End Sub
    Private Sub CheckBox85_Click(sender As Object, e As EventArgs)
        If CheckBox39.Checked = False Then : CheckBox39.Checked = True : End If
    End Sub
    Private Sub CheckBox86_Click(sender As Object, e As EventArgs)
        If CheckBox39.Checked = False Then : CheckBox39.Checked = True : End If
    End Sub
    Private Sub CheckBox87_Click(sender As Object, e As EventArgs)
        If CheckBox39.Checked = False Then : CheckBox39.Checked = True : End If
    End Sub


    '*************************************************************************************************************************************
    Private Sub CheckBox49_Click(sender As Object, e As EventArgs)
        If CheckBox48.Checked = False Then : CheckBox48.Checked = True : End If
    End Sub
    Private Sub CheckBox50_Click(sender As Object, e As EventArgs)
        If CheckBox48.Checked = False Then : CheckBox48.Checked = True : End If
    End Sub
    Private Sub CheckBox51_Click(sender As Object, e As EventArgs)
        If CheckBox48.Checked = False Then : CheckBox48.Checked = True : End If
    End Sub
    Private Sub CheckBox52_Click(sender As Object, e As EventArgs)
        If CheckBox48.Checked = False Then : CheckBox48.Checked = True : End If
    End Sub
    Private Sub CheckBox81_Click(sender As Object, e As EventArgs)
        If CheckBox48.Checked = False Then : CheckBox48.Checked = True : End If
    End Sub
    Private Sub CheckBox82_Click(sender As Object, e As EventArgs)
        If CheckBox48.Checked = False Then : CheckBox48.Checked = True : End If
    End Sub


    '*************************************************************************************************************************************
    Private Sub CheckBox54_Click(sender As Object, e As EventArgs)
        If CheckBox62.Checked = False Then : CheckBox62.Checked = True : End If
    End Sub
    Private Sub CheckBox95_Click(sender As Object, e As EventArgs)
        If CheckBox62.Checked = False Then : CheckBox62.Checked = True : End If
    End Sub
    Private Sub CheckBox96_Click(sender As Object, e As EventArgs)
        If CheckBox62.Checked = False Then : CheckBox62.Checked = True : End If
    End Sub
End Class