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

Option Strict Off
Public Class 系統使用者管理
    ReadOnly ds As New DataSet
    Dim HH As String
    Private Sub Set_使用者清單()
        DataGridView1.DataSource = Nothing : ds.Clear()
        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView1.ColumnHeadersHeight = 25
        DataGridView1.AllowUserToAddRows = False
        SQL_系統使用者管理清單()
        da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_grid()
        DataGridView1.Columns(0).FillWeight = 90 : DataGridView1.Columns(1).FillWeight = 90 : DataGridView1.Columns(2).FillWeight = 75
        For i As Integer = 0 To 45
            DataGridView1.Columns(i + 3).Visible = False : Next
        For i As Integer = 0 To DataGridView1.Rows.Count - 1 : DataGridView1.Rows(i).Cells("密碼").Value = "******" : Next
    End Sub
    Private Sub Set_格式設定()
        Button1.Enabled = False : Button2.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 : TextBox1.Enabled = False : TextBox2.Enabled = False : TextBox3.Enabled = False
    End Sub
    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick
        If e.RowIndex = -1 Then : Else
            TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells("姓名").Value.ToString : TextBox2.Text = DataGridView1.Rows(e.RowIndex).Cells("帳號").Value
            TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells("密碼").Value
            '---------同時控制所有具有一定命名規則的控件---------------------------------------------------------------------------------------------------------------------------------------------
            For no As Integer = 1 To 46
                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 = DataGridView1.Rows(e.RowIndex).Cells("CC" & HH).Value
            Next
        End If
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        SQL_系統使用者新增()
        conn.Close() : MsgBox("新增完成") : Set_使用者清單() : Set_grid()
        Button1.Enabled = False : Button4.Enabled = True : Button5.Enabled = True : TextBox1.Enabled = False : TextBox2.Enabled = False : TextBox3.Enabled = False
    End Sub
    Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
        If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then : MsgBox("輸入資料有誤")
        Else
            If TextBox3.Text = "******" Then
                SQL_系統使用者密碼顯示()
                If dr.Read() Then : TextBox3.Text = dr("密碼") : End If : conn.Close()
            End If
            SQL_系統使用者修改() : conn.Close() : MsgBox("新增完成")
        End If : Set_使用者清單() : Set_grid()
        Button2.Enabled = False : Button4.Enabled = True : Button5.Enabled = True : TextBox1.Enabled = False : TextBox2.Enabled = False : TextBox3.Enabled = False
    End Sub
    Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click
        Dim aa As MsgBoxResult = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then
            SQL_系統使用者刪除() : MsgBox("刪除完成")
        End If : conn.Close()
        TextBox1.Text = "" : TextBox2.Text = "" : TextBox2.Text = "" : CheckBox1.Checked = False : Set_使用者清單() : Set_grid()
    End Sub
    Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click
        TextBox1.Text = "" : TextBox2.Text = "" : TextBox3.Text = "" : Button4.Enabled = False : Button5.Enabled = False : Button1.Enabled = True
        TextBox1.Enabled = True : TextBox2.Enabled = True : TextBox3.Enabled = True
    End Sub
    Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click
        Button4.Enabled = False : Button5.Enabled = False : Button2.Enabled = True
        TextBox1.Enabled = True : TextBox2.Enabled = True : TextBox3.Enabled = True
    End Sub
    Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click
        SQL_系統使用者密碼顯示()
        If dr.Read() Then : TextBox3.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