Option Strict Off Imports System.Data.SqlClient Public Class 系統使用者管理 ReadOnly ds As New DataSet Dim DTP As String Private Sub Set_使用者清單() DataGridView1.DataSource = Nothing : ds.Clear() DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing DataGridView1.ColumnHeadersHeight = 25 DataGridView1.AllowUserToAddRows = False ConnOpen() SQL1 = "SELECT " & 登入權限AQL & " FROM 使用者權限管理表" CmdSet_For_DGV() : 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 : CheckBox28.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC27").Value CheckBox29.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC28").Value : CheckBox30.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC29").Value CheckBox31.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC30").Value : CheckBox32.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC31").Value CheckBox33.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC32").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_日期格式轉換() ConnOpen() 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 & "', '" & CheckBox28.Checked & "', '" & CheckBox29.Checked & "', '" & CheckBox30.Checked & "', '" & CheckBox31.Checked & "', '" & CheckBox32.Checked & "', '" & CheckBox33.Checked & "')" CmdSet_For_dr() : 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 ConnOpen() 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 ConnOpen() 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 & "', CC27 = '" & CheckBox28.Checked & "', CC28 = '" & CheckBox29.Checked & "', CC29 = '" & CheckBox30.Checked & "', CC30 = '" & CheckBox31.Checked & "', CC31 = '" & CheckBox32.Checked & "', CC32 = '" & CheckBox33.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 ConnOpen() 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 ConnOpen() 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 CheckBox29_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox29.Click If CheckBox6.Checked = False Then : CheckBox6.Checked = True : End If End Sub Private Sub CheckBox30_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox30.Click If CheckBox6.Checked = False Then : CheckBox6.Checked = True : End If End Sub Private Sub CheckBox31_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox31.Click If CheckBox6.Checked = False Then : CheckBox6.Checked = True : End If End Sub Private Sub CheckBox32_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox32.Click If CheckBox6.Checked = False Then : CheckBox6.Checked = True : End If End Sub Private Sub CheckBox33_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox33.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