GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/資料庫系統管理/系統使用者管理.vb

Option Strict Off
Imports System.Data.SqlClient
Public Class 系統使用者管理
    Dim conn As New SqlConnection
    Dim da As New SqlDataAdapter
    Dim cmd As New SqlCommand
    Dim ds As New DataSet
    Dim dr As SqlDataReader
    Dim DTP As String
    Private Sub Set_使用者清單()
        DataGridView1.DataSource = Nothing : ds.Clear()
        DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing
        DataGridView1.ColumnHeadersHeight = 25
        DataGridView1.AllowUserToAddRows = False
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        SQL1 = "SELECT " & 登入權限AQL & " FROM 使用者"
        cmd.Connection = conn : cmd.CommandText = SQL1 : da.SelectCommand = cmd : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()
    End Sub
    Private Sub Set_grid()
        DataGridView1.Columns(0).Width = 90 : DataGridView1.Columns(1).Width = 90 : DataGridView1.Columns(2).Width = 75
        DataGridView1.Columns(3).Visible = False : DataGridView1.Columns(4).Visible = False : DataGridView1.Columns(5).Visible = False : DataGridView1.Columns(6).Visible = False
        DataGridView1.Columns(7).Visible = False : DataGridView1.Columns(8).Visible = False : DataGridView1.Columns(9).Visible = False : DataGridView1.Columns(10).Visible = False
        DataGridView1.Columns(11).Visible = False : DataGridView1.Columns(12).Visible = False : DataGridView1.Columns(13).Visible = False : DataGridView1.Columns(14).Visible = False
        DataGridView1.Columns(15).Visible = False : DataGridView1.Columns(16).Visible = False : DataGridView1.Columns(17).Visible = False : DataGridView1.Columns(18).Visible = False
        DataGridView1.Columns(19).Visible = False : DataGridView1.Columns(20).Visible = False : DataGridView1.Columns(21).Visible = False : DataGridView1.Columns(22).Visible = False
        DataGridView1.Columns(23).Visible = False : DataGridView1.Columns(24).Visible = False : DataGridView1.Columns(25).Visible = False : DataGridView1.Columns(26).Visible = False
        DataGridView1.Columns(27).Visible = False : DataGridView1.Columns(28).Visible = False : DataGridView1.Columns(29).Visible = False : DataGridView1.Columns(30).Visible = False
        'DataGridView1.Columns(31).Visible = False : DataGridView1.Columns(32).Visible = False : DataGridView1.Columns(33).Visible = False : DataGridView1.Columns(34).Visible = False
        'DataGridView1.Columns(35).Visible = False : DataGridView1.Columns(36).Visible = False : DataGridView1.Columns(37).Visible = False : DataGridView1.Columns(38).Visible = False
        'DataGridView1.Columns(39).Visible = False : DataGridView1.Columns(40).Visible = False : DataGridView1.Columns(41).Visible = False : DataGridView1.Columns(42).Visible = False
        'DataGridView1.Columns(43).Visible = False : DataGridView1.Columns(44).Visible = False : DataGridView1.Columns(45).Visible = False : DataGridView1.Columns(46).Visible = False
        'DataGridView1.Columns(47).Visible = False : DataGridView1.Columns(48).Visible = False : DataGridView1.Columns(49).Visible = False : DataGridView1.Columns(50).Visible = False
        'DataGridView1.Columns(51).Visible = False : DataGridView1.Columns(52).Visible = False : DataGridView1.Columns(53).Visible = False : DataGridView1.Columns(54).Visible = False
        'DataGridView1.Columns(55).Visible = False : DataGridView1.Columns(56).Visible = False : DataGridView1.Columns(57).Visible = False : DataGridView1.Columns(58).Visible = False
        'DataGridView1.Columns(59).Visible = False : DataGridView1.Columns(60).Visible = False : DataGridView1.Columns(61).Visible = False : DataGridView1.Columns(62).Visible = False
        'DataGridView1.Columns(63).Visible = False : DataGridView1.Columns(64).Visible = False : DataGridView1.Columns(65).Visible = False : DataGridView1.Columns(66).Visible = False
        'DataGridView1.Columns(67).Visible = False : DataGridView1.Columns(68).Visible = False : DataGridView1.Columns(69).Visible = False : DataGridView1.Columns(70).Visible = False
        'DataGridView1.Columns(71).Visible = False : DataGridView1.Columns(72).Visible = False : DataGridView1.Columns(73).Visible = False : DataGridView1.Columns(74).Visible = False
        'DataGridView1.Columns(75).Visible = False : DataGridView1.Columns(76).Visible = False : DataGridView1.Columns(77).Visible = False : DataGridView1.Columns(78).Visible = False
        'DataGridView1.Columns(79).Visible = False : DataGridView1.Columns(80).Visible = False : DataGridView1.Columns(81).Visible = False : DataGridView1.Columns(82).Visible = False
        'DataGridView1.Columns(83).Visible = False : DataGridView1.Columns(84).Visible = False : DataGridView1.Columns(85).Visible = False : DataGridView1.Columns(86).Visible = False
        'DataGridView1.Columns(87).Visible = False : DataGridView1.Columns(88).Visible = False : DataGridView1.Columns(89).Visible = False : DataGridView1.Columns(90).Visible = False
        'DataGridView1.Columns(91).Visible = False : DataGridView1.Columns(92).Visible = False : DataGridView1.Columns(93).Visible = False : DataGridView1.Columns(94).Visible = False
        'DataGridView1.Columns(95).Visible = False
        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 = GCM_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 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove
        timeNow = 0
        GCM_ERP_SYS.Timer1.Enabled = False
        GCM_ERP_SYS.Timer1.Enabled = True
    End Sub
    Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress
        timeNow = 0
        GCM_ERP_SYS.Timer1.Enabled = False
        GCM_ERP_SYS.Timer1.Enabled = True
    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
            CheckBox1.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC00").Value : CheckBox2.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC01").Value
            CheckBox3.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC02").Value : CheckBox4.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC03").Value
            CheckBox5.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC04").Value : CheckBox6.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC05").Value
            CheckBox7.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC06").Value : CheckBox8.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC07").Value
            CheckBox9.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC08").Value : CheckBox10.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC09").Value
            CheckBox11.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC10").Value : CheckBox12.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC11").Value
            CheckBox13.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC12").Value : CheckBox14.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC13").Value
            CheckBox15.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC14").Value : CheckBox16.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC15").Value
            CheckBox17.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC16").Value : CheckBox18.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC17").Value
            CheckBox19.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC18").Value : CheckBox20.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC19").Value
            CheckBox21.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC20").Value : CheckBox22.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC21").Value
            CheckBox23.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC22").Value : CheckBox24.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC23").Value
            CheckBox25.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC24").Value : CheckBox26.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC25").Value
            CheckBox27.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC26").Value
        End If
    End Sub
    Private Sub Set_日期格式轉換()
        DTP = Format(Today(), "yyyy/MM/dd")
    End Sub
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Set_日期格式轉換()
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        SQL1 = "INSERT INTO 使用者 (" & 登入權限AQL & ") " &
               "VALUES (N'" & TextBox1.Text & "',N'" & TextBox2.Text & "',N'" & TextBox3.Text & "', N'" & DTP & "', '" & CheckBox1.Checked & "', '" & CheckBox2.Checked & "', '" & CheckBox3.Checked &
               "', '" & CheckBox4.Checked & "', '" & CheckBox5.Checked & "', '" & CheckBox6.Checked & "', '" & CheckBox7.Checked & "', '" & CheckBox8.Checked & "', '" & CheckBox9.Checked &
               "', '" & CheckBox10.Checked & "', '" & CheckBox11.Checked & "', '" & CheckBox12.Checked & "', '" & CheckBox13.Checked & "', '" & CheckBox14.Checked & "', '" & CheckBox15.Checked &
               "', '" & CheckBox16.Checked & "', '" & CheckBox17.Checked & "', '" & CheckBox18.Checked & "', '" & CheckBox19.Checked & "', '" & CheckBox20.Checked & "', '" & CheckBox21.Checked &
               "', '" & CheckBox22.Checked & "', '" & CheckBox23.Checked & "', '" & CheckBox24.Checked & "', '" & CheckBox25.Checked & "', '" & CheckBox26.Checked & "', '" & CheckBox27.Checked & "')"
        cmd.Connection = conn : cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : 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
                If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
                SQL1 = "SELECT 密碼 FROM 使用者 WHERE 姓名 LIKE N'" & TextBox1.Text & "' AND 帳號 LIKE N'" & TextBox2.Text & "'"
                cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
                If dr.Read() Then : TextBox3.Text = dr("密碼") : End If
                conn.Close()
            End If

            If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
            SQL1 = "UPDATE 使用者 SET 姓名 = '" & TextBox1.Text & "', 密碼 = '" & TextBox3.Text & "', " &
                   "CC00 = '" & CheckBox1.Checked & "', CC01 = '" & CheckBox2.Checked & "', CC02 = '" & CheckBox3.Checked & "', CC03 = '" & CheckBox4.Checked & "', CC04 = '" & CheckBox5.Checked &
                "', CC05 = '" & CheckBox6.Checked & "', CC06 = '" & CheckBox7.Checked & "', CC07 = '" & CheckBox8.Checked & "', CC08 = '" & CheckBox9.Checked & "', CC09 = '" & CheckBox10.Checked &
                "', CC10 = '" & CheckBox11.Checked & "', CC11 = '" & CheckBox12.Checked & "', CC12 = '" & CheckBox13.Checked & "', CC13 = '" & CheckBox14.Checked & "', CC14 = '" & CheckBox15.Checked &
                "', CC15 = '" & CheckBox16.Checked & "', CC16 = '" & CheckBox17.Checked & "', CC17 = '" & CheckBox18.Checked & "', CC18 = '" & CheckBox19.Checked & "', CC19 = '" & CheckBox20.Checked &
                "', CC20 = '" & CheckBox21.Checked & "', CC21 = '" & CheckBox22.Checked & "', CC22 = '" & CheckBox23.Checked & "', CC23 = '" & CheckBox24.Checked & "', CC24 = '" & CheckBox25.Checked &
                "', CC25 = '" & CheckBox26.Checked & "', CC26 = '" & CheckBox27.Checked & "' WHERE (帳號 = '" & TextBox2.Text & "')"
            cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close() : 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
        SQL1 = "DELETE FROM 使用者 WHERE (帳號 = '" & TextBox2.Text & "')"
        cmd.CommandText = SQL1 : cmd.Connection = conn
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        Dim aa As MsgBoxResult
        aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)
        If aa = MsgBoxResult.Ok Then : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : MsgBox("刪除完成") : End If
        conn.Close() : 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
        If conn.State = ConnectionState.Closed Then : conn.ConnectionString = ConString : conn.Open() : End If
        SQL1 = "SELECT 密碼 FROM 使用者 WHERE 姓名 LIKE N'" & TextBox1.Text & "' AND 帳號 LIKE N'" & TextBox2.Text & "'"
        cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader
        If dr.Read() Then : TextBox3.Text = dr("密碼") : End If
        conn.Close()
    End Sub
    '**************************************************************************************************************************************************
    Private Sub CheckBox24_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox24.Click
        If CheckBox7.Checked = False Then : CheckBox7.Checked = True : End If
    End Sub
    '--------------------------------------------------------------------------------------------------------------------------------------------------


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


    '**************************************************************************************************************************************************
    Private Sub CheckBox19_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox19.Click
        If CheckBox4.Checked = False Then : CheckBox4.Checked = True : End If
    End Sub
    Private Sub CheckBox20_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox20.Click
        If CheckBox4.Checked = False Then : CheckBox4.Checked = True : End If
    End Sub
    Private Sub CheckBox26_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox26.Click
        If CheckBox4.Checked = False Then : CheckBox4.Checked = True : End If
    End Sub
    Private Sub CheckBox21_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox21.Click
        If CheckBox4.Checked = False Then : CheckBox4.Checked = True : End If
    End Sub
    '--------------------------------------------------------------------------------------------------------------------------------------------------


    '**************************************************************************************************************************************************
    Private Sub CheckBox17_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox17.Click
        If CheckBox2.Checked = False Then : CheckBox2.Checked = True : End If
    End Sub
    Private Sub CheckBox18_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox18.Click
        If CheckBox2.Checked = False Then : CheckBox2.Checked = True : End If
    End Sub
    '--------------------------------------------------------------------------------------------------------------------------------------------------


    '**************************************************************************************************************************************************
    Private Sub CheckBox15_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox15.Click
        If CheckBox3.Checked = False Then : CheckBox3.Checked = True : End If
    End Sub
    Private Sub CheckBox16_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox16.Click
        If CheckBox3.Checked = False Then : CheckBox3.Checked = True : End If
    End Sub
    '--------------------------------------------------------------------------------------------------------------------------------------------------


    '**************************************************************************************************************************************************
    Private Sub CheckBox8_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox8.Click
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    Private Sub CheckBox25_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox25.Click
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    Private Sub CheckBox27_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox27.Click
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    Private Sub CheckBox9_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox9.Click
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    Private Sub CheckBox10_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox10.Click
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    Private Sub CheckBox11_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox11.Click
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    Private Sub CheckBox12_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox12.Click
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    Private Sub CheckBox13_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox13.Click
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub
    Private Sub CheckBox14_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox14.Click
        If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If
    End Sub


End Class