MAOJI-ERP-SYS-LEEHSIEHJUI/MaoOrange-Hongji/資料庫系統管理/系統使用者管理.vb

Option Strict Off
Public Class 系統使用者管理
    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()
    End Sub
    Private Sub Set_grid()
        使用者清單_dgv.Columns(0).FillWeight = 90 : 使用者清單_dgv.Columns(1).FillWeight = 90 : 使用者清單_dgv.Columns(2).FillWeight = 75
        For i As Integer = 0 To 權限數量
            使用者清單_dgv.Columns(i + 3).Visible = False
        Next
        For i As Integer = 0 To 使用者清單_dgv.Rows.Count - 1 : 使用者清單_dgv.Rows(i).Cells("密碼").Value = "******" : Next
    End Sub
    Private Sub Set_格式設定()
        確認新增_bt.Enabled = False : 儲存修改_bt.Enabled = False
    End Sub
    Private Sub 系統使用者管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Me.MdiParent = MAOJI_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True
        Set_使用者清單() : Set_grid() : Set_格式設定()
        CheckBox1.Enabled = True : CheckBox2.Enabled = True : 姓名_tb.Enabled = False : 帳號_tb.Enabled = False : 密碼_tb.Enabled = False
    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
            密碼_tb.Text = 使用者清單_dgv.Rows(e.RowIndex).Cells("密碼").Value
            '---------同時控制所有具有一定命名規則的控件---------------------------------------------------------------------------------------------------------------------------------------------
            For no As Integer = 1 To 權限數量 + 1
                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_使用者清單() : Set_grid()
        確認新增_bt.Enabled = False : 新增_bt.Enabled = True : 修改_bt.Enabled = True : 姓名_tb.Enabled = False : 帳號_tb.Enabled = False : 密碼_tb.Enabled = False
    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
            If 密碼_tb.Text = "******" Then
                SQL_系統使用者密碼顯示()
                If dr.Read() Then : 密碼_tb.Text = dr("密碼") : End If : conn.Close()
            End If
            SQL_系統使用者修改() : conn.Close() : MsgBox("新增完成")
        End If : Set_使用者清單() : Set_grid()
        儲存修改_bt.Enabled = False : 新增_bt.Enabled = True : 修改_bt.Enabled = True : 姓名_tb.Enabled = False : 帳號_tb.Enabled = False : 密碼_tb.Enabled = False
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click
        Dim aa As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            SQL_系統使用者刪除() : MsgBox("刪除完成")
        End If : conn.Close()
        姓名_tb.Text = "" : 帳號_tb.Text = "" : 帳號_tb.Text = "" : CheckBox1.Checked = False : Set_使用者清單() : Set_grid()
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click
        姓名_tb.Text = "" : 帳號_tb.Text = "" : 密碼_tb.Text = "" : 新增_bt.Enabled = False : 修改_bt.Enabled = False : 確認新增_bt.Enabled = True
        姓名_tb.Enabled = True : 帳號_tb.Enabled = True : 密碼_tb.Enabled = True
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click
        新增_bt.Enabled = False : 修改_bt.Enabled = False : 儲存修改_bt.Enabled = True
        姓名_tb.Enabled = True : 帳號_tb.Enabled = True : 密碼_tb.Enabled = True
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles 顯示密碼_bt.Click
        SQL_系統使用者密碼顯示()
        If dr.Read() Then : 密碼_tb.Text = dr("密碼") : End If : conn.Close()
    End Sub
    '**************************************************************************************************************************************************
    Private Sub CheckBox2_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox2.Click
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    Private Sub CheckBox3_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox3.Click
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    Private Sub CheckBox4_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox4.Click
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    Private Sub CheckBox5_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox5.Click
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    Private Sub CheckBox6_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox6.Click
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    Private Sub CheckBox34_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox34.Click
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    '--------------------------------------------------------------------------------------------------------------------------------------------------


    '**************************************************************************************************************************************************
    Private Sub CheckBox8_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox8.Click
        If CheckBox7.Checked = False Then : CheckBox7.Checked = True : End If
    End Sub
    Private Sub CheckBox9_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox9.Click
        If CheckBox7.Checked = False Then : CheckBox7.Checked = True : End If
    End Sub
    '--------------------------------------------------------------------------------------------------------------------------------------------------


    '**************************************************************************************************************************************************
    Private Sub CheckBox11_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox11.Click
        If CheckBox10.Checked = False Then : CheckBox10.Checked = True : End If
    End Sub
    Private Sub CheckBox39_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox39.Click
        If CheckBox10.Checked = False Then : CheckBox10.Checked = True : End If
    End Sub
    Private Sub CheckBox40_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox40.Click
        If CheckBox10.Checked = False Then : CheckBox10.Checked = True : End If
    End Sub
    Private Sub CheckBox41_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox41.Click
        If CheckBox10.Checked = False Then : CheckBox10.Checked = True : End If
    End Sub
    Private Sub CheckBox18_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox18.Click
        If CheckBox10.Checked = False Then : CheckBox10.Checked = True : End If
    End Sub
    Private Sub CheckBox19_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox19.Click
        If CheckBox10.Checked = False Then : CheckBox10.Checked = True : End If
    End Sub
    Private Sub CheckBox20_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox20.Click
        If CheckBox10.Checked = False Then : CheckBox10.Checked = True : End If
    End Sub
    Private Sub CheckBox43_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox43.Click
        If CheckBox10.Checked = False Then : CheckBox10.Checked = True : End If
    End Sub
    '--------------------------------------------------------------------------------------------------------------------------------------------------


    '**************************************************************************************************************************************************    
    Private Sub CheckBox13_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox13.Click
        If CheckBox12.Checked = False Then : CheckBox12.Checked = True : End If
    End Sub
    Private Sub CheckBox24_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox24.Click
        If CheckBox12.Checked = False Then : CheckBox12.Checked = True : End If
    End Sub
    Private Sub CheckBox36_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox36.Click
        If CheckBox12.Checked = False Then : CheckBox12.Checked = True : End If : If CheckBox24.Checked = False Then : CheckBox24.Checked = True : End If
    End Sub
    Private Sub CheckBox25_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox25.Click
        If CheckBox12.Checked = False Then : CheckBox12.Checked = True : End If
    End Sub
    '--------------------------------------------------------------------------------------------------------------------------------------------------


    '**************************************************************************************************************************************************
    Private Sub CheckBox15_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox15.Click
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox42_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox42.Click
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox26_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox26.Click
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox35_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox35.Click
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox27_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox27.Click
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox44_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox44.Click
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    Private Sub CheckBox45_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox45.Click
        If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If
    End Sub
    '--------------------------------------------------------------------------------------------------------------------------------------------------


    '**************************************************************************************************************************************************
    Private Sub CheckBox21_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox21.Click
        If CheckBox16.Checked = False Then : CheckBox16.Checked = True : End If
    End Sub
    Private Sub CheckBox22_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox22.Click
        If CheckBox16.Checked = False Then : CheckBox16.Checked = True : End If
    End Sub
    Private Sub CheckBox23_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox23.Click
        If CheckBox16.Checked = False Then : CheckBox16.Checked = True : End If
    End Sub
    '--------------------------------------------------------------------------------------------------------------------------------------------------


    '**************************************************************************************************************************************************
    Private Sub CheckBox28_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox28.Click
        If CheckBox17.Checked = False Then : CheckBox17.Checked = True : End If
    End Sub
    Private Sub CheckBox29_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox29.Click
        If CheckBox17.Checked = False Then : CheckBox17.Checked = True : End If : If CheckBox28.Checked = False Then : CheckBox28.Checked = True : End If
    End Sub
    Private Sub CheckBox30_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox30.Click
        If CheckBox17.Checked = False Then : CheckBox17.Checked = True : End If
    End Sub
    Private Sub CheckBox31_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox31.Click
        If CheckBox17.Checked = False Then : CheckBox17.Checked = True : End If
    End Sub
    Private Sub CheckBox32_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox32.Click
        If CheckBox17.Checked = False Then : CheckBox17.Checked = True : End If
    End Sub
    Private Sub CheckBox33_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox33.Click
        If CheckBox17.Checked = False Then : CheckBox17.Checked = True : End If
    End Sub
    Private Sub CheckBox46_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox46.Click
        If CheckBox17.Checked = False Then : CheckBox17.Checked = True : End If
    End Sub
    '--------------------------------------------------------------------------------------------------------------------------------------------------


    '**************************************************************************************************************************************************
    Private Sub CheckBox38_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox38.Click
        If CheckBox37.Checked = False Then : CheckBox37.Checked = True : End If
    End Sub
    '--------------------------------------------------------------------------------------------------------------------------------------------------
End Class