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