GCM-OTHER
/
GCM-ERP-SYS-LEEHSIEHJUI
关注 4
点赞 0
派生 0
代码 工单 0 合并请求 0 版本发布 0 百科 动态
暂无描述
您最多选择25个主题 主题必须以字母或数字开头，可以包含连字符 (-)，并且长度不得超过35个字符
9 提交
1 分支
目录树: 66dd1494a8
分支列表 标签列表
${ item.name }
创建分支 ${ searchTerm }
从 '66dd1494a8'
${ noResults }
GCM-ERP-SYS-LEEHSIEHJUI/工巧明智能管理系統/我的系統/資料庫系統管理/系統使用者管理.vb

系統使用者管理.vb 21KB
文件历史 原始文件

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254 
  1. Option Strict Off

  2. Imports System.Data.SqlClient

  3. Public Class 系統使用者管理

  4.     ReadOnly ds As New DataSet

  5.     Dim DTP As String

  6.     Private Sub Set_使用者清單()

  7.         DataGridView1.DataSource = Nothing : ds.Clear()

  8.         DataGridView1.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing

  9.         DataGridView1.ColumnHeadersHeight = 25

  10.         DataGridView1.AllowUserToAddRows = False

  11.         ConnOpen()

  12.         SQL1 = "SELECT " & 登入權限AQL & " FROM 使用者權限管理表"

  13.         CmdSet_For_DGV() : da.Fill(ds) : DataGridView1.DataSource = ds.Tables(0) : conn.Close()

  14.     End Sub

  15.     Private Sub Set_grid()

  16.         DataGridView1.Columns(0).Width = 90 : DataGridView1.Columns(1).Width = 90 : DataGridView1.Columns(2).Width = 75

  17.         DataGridView1.Columns(3).Visible = False : DataGridView1.Columns(4).Visible = False : DataGridView1.Columns(5).Visible = False : DataGridView1.Columns(6).Visible = False

  18.         DataGridView1.Columns(7).Visible = False : DataGridView1.Columns(8).Visible = False : DataGridView1.Columns(9).Visible = False : DataGridView1.Columns(10).Visible = False

  19.         DataGridView1.Columns(11).Visible = False : DataGridView1.Columns(12).Visible = False : DataGridView1.Columns(13).Visible = False : DataGridView1.Columns(14).Visible = False

  20.         DataGridView1.Columns(15).Visible = False : DataGridView1.Columns(16).Visible = False : DataGridView1.Columns(17).Visible = False : DataGridView1.Columns(18).Visible = False

  21.         DataGridView1.Columns(19).Visible = False : DataGridView1.Columns(20).Visible = False : DataGridView1.Columns(21).Visible = False : DataGridView1.Columns(22).Visible = False

  22.         DataGridView1.Columns(23).Visible = False : DataGridView1.Columns(24).Visible = False : DataGridView1.Columns(25).Visible = False : DataGridView1.Columns(26).Visible = False

  23.         DataGridView1.Columns(27).Visible = False : DataGridView1.Columns(28).Visible = False : DataGridView1.Columns(29).Visible = False : DataGridView1.Columns(30).Visible = False

  24.         DataGridView1.Columns(31).Visible = False : DataGridView1.Columns(32).Visible = False : DataGridView1.Columns(33).Visible = False : DataGridView1.Columns(34).Visible = False

  25.         DataGridView1.Columns(35).Visible = False : DataGridView1.Columns(36).Visible = False ': DataGridView1.Columns(37).Visible = False : DataGridView1.Columns(38).Visible = False

  26.         'DataGridView1.Columns(39).Visible = False : DataGridView1.Columns(40).Visible = False : DataGridView1.Columns(41).Visible = False : DataGridView1.Columns(42).Visible = False

  27.         'DataGridView1.Columns(43).Visible = False : DataGridView1.Columns(44).Visible = False : DataGridView1.Columns(45).Visible = False : DataGridView1.Columns(46).Visible = False

  28.         'DataGridView1.Columns(47).Visible = False : DataGridView1.Columns(48).Visible = False : DataGridView1.Columns(49).Visible = False : DataGridView1.Columns(50).Visible = False

  29.         'DataGridView1.Columns(51).Visible = False : DataGridView1.Columns(52).Visible = False : DataGridView1.Columns(53).Visible = False : DataGridView1.Columns(54).Visible = False

  30.         'DataGridView1.Columns(55).Visible = False : DataGridView1.Columns(56).Visible = False : DataGridView1.Columns(57).Visible = False : DataGridView1.Columns(58).Visible = False

  31.         'DataGridView1.Columns(59).Visible = False : DataGridView1.Columns(60).Visible = False : DataGridView1.Columns(61).Visible = False : DataGridView1.Columns(62).Visible = False

  32.         'DataGridView1.Columns(63).Visible = False : DataGridView1.Columns(64).Visible = False : DataGridView1.Columns(65).Visible = False : DataGridView1.Columns(66).Visible = False

  33.         'DataGridView1.Columns(67).Visible = False : DataGridView1.Columns(68).Visible = False : DataGridView1.Columns(69).Visible = False : DataGridView1.Columns(70).Visible = False

  34.         'DataGridView1.Columns(71).Visible = False : DataGridView1.Columns(72).Visible = False : DataGridView1.Columns(73).Visible = False : DataGridView1.Columns(74).Visible = False

  35.         'DataGridView1.Columns(75).Visible = False : DataGridView1.Columns(76).Visible = False : DataGridView1.Columns(77).Visible = False : DataGridView1.Columns(78).Visible = False

  36.         'DataGridView1.Columns(79).Visible = False : DataGridView1.Columns(80).Visible = False : DataGridView1.Columns(81).Visible = False : DataGridView1.Columns(82).Visible = False

  37.         'DataGridView1.Columns(83).Visible = False : DataGridView1.Columns(84).Visible = False : DataGridView1.Columns(85).Visible = False : DataGridView1.Columns(86).Visible = False

  38.         'DataGridView1.Columns(87).Visible = False : DataGridView1.Columns(88).Visible = False : DataGridView1.Columns(89).Visible = False : DataGridView1.Columns(90).Visible = False

  39.         'DataGridView1.Columns(91).Visible = False : DataGridView1.Columns(92).Visible = False : DataGridView1.Columns(93).Visible = False : DataGridView1.Columns(94).Visible = False

  40.         'DataGridView1.Columns(95).Visible = False

  41.         For i As Integer = 0 To DataGridView1.Rows.Count - 1

  42.             DataGridView1.Rows(i).Cells("密碼").Value = "******"

  43.         Next

  44.     End Sub

  45.     Private Sub Set_格式設定()

  46.         Button1.Enabled = False : Button2.Enabled = False

  47.     End Sub

  48.     Private Sub 系統使用者管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load

  49.         Me.MdiParent = GCM_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True

  50.         Set_使用者清單() : Set_grid() : Set_格式設定()

  51.         CheckBox1.Enabled = True : CheckBox2.Enabled = True

  52.         TextBox1.Enabled = False : TextBox2.Enabled = False : TextBox3.Enabled = False

  53.     End Sub

  54.     Private Sub 登入閒置控制_MouseMove(sender As Object, e As EventArgs) Handles MyBase.MouseMove

  55.         timeNow = 0

  56.         GCM_ERP_SYS.Timer1.Enabled = False

  57.         GCM_ERP_SYS.Timer1.Enabled = True

  58.     End Sub

  59.     Private Sub 登入閒置控制_KeyPress(sender As Object, e As EventArgs) Handles MyBase.KeyPress

  60.         timeNow = 0

  61.         GCM_ERP_SYS.Timer1.Enabled = False

  62.         GCM_ERP_SYS.Timer1.Enabled = True

  63.     End Sub

  64.     Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellClick

  65.         If e.RowIndex = -1 Then : Else

  66.             TextBox1.Text = DataGridView1.Rows(e.RowIndex).Cells("姓名").Value.ToString : TextBox2.Text = DataGridView1.Rows(e.RowIndex).Cells("帳號").Value

  67.             TextBox3.Text = DataGridView1.Rows(e.RowIndex).Cells("密碼").Value

  68.             CheckBox1.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC00").Value : CheckBox2.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC01").Value

  69.             CheckBox3.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC02").Value : CheckBox4.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC03").Value

  70.             CheckBox5.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC04").Value : CheckBox6.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC05").Value

  71.             CheckBox7.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC06").Value : CheckBox8.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC07").Value

  72.             CheckBox9.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC08").Value : CheckBox10.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC09").Value

  73.             CheckBox11.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC10").Value : CheckBox12.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC11").Value

  74.             CheckBox13.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC12").Value : CheckBox14.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC13").Value

  75.             CheckBox15.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC14").Value : CheckBox16.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC15").Value

  76.             CheckBox17.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC16").Value : CheckBox18.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC17").Value

  77.             CheckBox19.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC18").Value : CheckBox20.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC19").Value

  78.             CheckBox21.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC20").Value : CheckBox22.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC21").Value

  79.             CheckBox23.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC22").Value : CheckBox24.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC23").Value

  80.             CheckBox25.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC24").Value : CheckBox26.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC25").Value

  81.             CheckBox27.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC26").Value : CheckBox28.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC27").Value

  82.             CheckBox29.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC28").Value : CheckBox30.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC29").Value

  83.             CheckBox31.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC30").Value : CheckBox32.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC31").Value

  84.             CheckBox33.Checked = DataGridView1.Rows(e.RowIndex).Cells("CC32").Value

  85.         End If

  86.     End Sub

  87.     Private Sub Set_日期格式轉換()

  88.         DTP = Format(Today(), "yyyy/MM/dd")

  89.     End Sub

  90.     Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

  91.         Set_日期格式轉換()

  92.         ConnOpen()

  93.         SQL1 = "INSERT INTO 使用者權限管理表 (" & 登入權限AQL & ") " &

  94.                "VALUES (N'" & TextBox1.Text & "',N'" & TextBox2.Text & "',N'" & TextBox3.Text & "', N'" & DTP & "', '" & CheckBox1.Checked & "', '" & CheckBox2.Checked & "', '" & CheckBox3.Checked &

  95.                "', '" & CheckBox4.Checked & "', '" & CheckBox5.Checked & "', '" & CheckBox6.Checked & "', '" & CheckBox7.Checked & "', '" & CheckBox8.Checked & "', '" & CheckBox9.Checked &

  96.                "', '" & CheckBox10.Checked & "', '" & CheckBox11.Checked & "', '" & CheckBox12.Checked & "', '" & CheckBox13.Checked & "', '" & CheckBox14.Checked & "', '" & CheckBox15.Checked &

  97.                "', '" & CheckBox16.Checked & "', '" & CheckBox17.Checked & "', '" & CheckBox18.Checked & "', '" & CheckBox19.Checked & "', '" & CheckBox20.Checked & "', '" & CheckBox21.Checked &

  98.                "', '" & CheckBox22.Checked & "', '" & CheckBox23.Checked & "', '" & CheckBox24.Checked & "', '" & CheckBox25.Checked & "', '" & CheckBox26.Checked & "', '" & CheckBox27.Checked &

  99.                "', '" & CheckBox28.Checked & "', '" & CheckBox29.Checked & "', '" & CheckBox30.Checked & "', '" & CheckBox31.Checked & "', '" & CheckBox32.Checked & "', '" & CheckBox33.Checked & "')"

  100.         CmdSet_For_dr() : conn.Close()

  101.         MsgBox("新增完成")

  102.         Set_使用者清單() : Set_grid() : Button1.Enabled = False : Button4.Enabled = True : Button5.Enabled = True

  103.         TextBox1.Enabled = False : TextBox2.Enabled = False : TextBox3.Enabled = False

  104.     End Sub

  105.     Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click

  106.         If TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Then

  107.             MsgBox("輸入資料有誤")

  108.         Else

  109.             If TextBox3.Text = "******" Then

  110.                 ConnOpen()

  111.                 SQL1 = "SELECT 密碼 FROM 使用者權限管理表 WHERE 姓名 LIKE N'" & TextBox1.Text & "' AND 帳號 LIKE N'" & TextBox2.Text & "'"

  112.                 cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader

  113.                 If dr.Read() Then : TextBox3.Text = dr("密碼") : End If

  114.                 conn.Close()

  115.             End If

  116. 

  117.             ConnOpen()

  118.             SQL1 = "UPDATE 使用者權限管理表 SET 姓名 = '" & TextBox1.Text & "', 密碼 = '" & TextBox3.Text & "', " &

  119.                    "CC00 = '" & CheckBox1.Checked & "', CC01 = '" & CheckBox2.Checked & "', CC02 = '" & CheckBox3.Checked & "', CC03 = '" & CheckBox4.Checked & "', CC04 = '" & CheckBox5.Checked &

  120.                 "', CC05 = '" & CheckBox6.Checked & "', CC06 = '" & CheckBox7.Checked & "', CC07 = '" & CheckBox8.Checked & "', CC08 = '" & CheckBox9.Checked & "', CC09 = '" & CheckBox10.Checked &

  121.                 "', CC10 = '" & CheckBox11.Checked & "', CC11 = '" & CheckBox12.Checked & "', CC12 = '" & CheckBox13.Checked & "', CC13 = '" & CheckBox14.Checked & "', CC14 = '" & CheckBox15.Checked &

  122.                 "', CC15 = '" & CheckBox16.Checked & "', CC16 = '" & CheckBox17.Checked & "', CC17 = '" & CheckBox18.Checked & "', CC18 = '" & CheckBox19.Checked & "', CC19 = '" & CheckBox20.Checked &

  123.                 "', CC20 = '" & CheckBox21.Checked & "', CC21 = '" & CheckBox22.Checked & "', CC22 = '" & CheckBox23.Checked & "', CC23 = '" & CheckBox24.Checked & "', CC24 = '" & CheckBox25.Checked &

  124.                 "', CC25 = '" & CheckBox26.Checked & "', CC26 = '" & CheckBox27.Checked & "', CC27 = '" & CheckBox28.Checked & "', CC28 = '" & CheckBox29.Checked & "', CC29 = '" & CheckBox30.Checked &

  125.                 "', CC30 = '" & CheckBox31.Checked & "', CC31 = '" & CheckBox32.Checked & "', CC32 = '" & CheckBox33.Checked & "' WHERE (帳號 = '" & TextBox2.Text & "')"

  126.             cmd.CommandText = SQL1 : cmd.ExecuteNonQuery() : conn.Close() : conn.Close()

  127.             MsgBox("新增完成")

  128.         End If

  129.         Set_使用者清單() : Set_grid() : Button2.Enabled = False : Button4.Enabled = True : Button5.Enabled = True

  130.         TextBox1.Enabled = False : TextBox2.Enabled = False : TextBox3.Enabled = False

  131.     End Sub

  132.     Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

  133.         SQL1 = "DELETE FROM 使用者權限管理表 WHERE (帳號 = '" & TextBox2.Text & "')"

  134.         cmd.CommandText = SQL1 : cmd.Connection = conn

  135.         ConnOpen()

  136.         Dim aa As MsgBoxResult

  137.         aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel)

  138.         If aa = MsgBoxResult.Ok Then : cmd.ExecuteNonQuery() : cmd.ExecuteNonQuery() : MsgBox("刪除完成") : End If

  139.         conn.Close() : conn.Close()

  140.         TextBox1.Text = "" : TextBox2.Text = "" : TextBox2.Text = "" : CheckBox1.Checked = False

  141.         Set_使用者清單() : Set_grid()

  142.     End Sub

  143.     Private Sub Button4_Click(sender As Object, e As EventArgs) Handles Button4.Click

  144.         TextBox1.Text = "" : TextBox2.Text = "" : TextBox3.Text = "" : Button4.Enabled = False : Button5.Enabled = False : Button1.Enabled = True

  145.         TextBox1.Enabled = True : TextBox2.Enabled = True : TextBox3.Enabled = True

  146.     End Sub

  147.     Private Sub Button5_Click(sender As Object, e As EventArgs) Handles Button5.Click

  148.         Button4.Enabled = False : Button5.Enabled = False : Button2.Enabled = True

  149.         TextBox1.Enabled = True : TextBox2.Enabled = True : TextBox3.Enabled = True

  150.     End Sub

  151.     Private Sub Button6_Click(sender As Object, e As EventArgs) Handles Button6.Click

  152.         ConnOpen()

  153.         SQL1 = "SELECT 密碼 FROM 使用者權限管理表 WHERE 姓名 LIKE N'" & TextBox1.Text & "' AND 帳號 LIKE N'" & TextBox2.Text & "'"

  154.         cmd.Connection = conn : cmd.CommandText = SQL1 : dr = cmd.ExecuteReader

  155.         If dr.Read() Then : TextBox3.Text = dr("密碼") : End If

  156.         conn.Close()

  157.     End Sub

  158.     '**************************************************************************************************************************************************

  159.     Private Sub CheckBox24_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox24.Click

  160.         If CheckBox7.Checked = False Then : CheckBox7.Checked = True : End If

  161.     End Sub

  162.     '--------------------------------------------------------------------------------------------------------------------------------------------------

  163. 

  164. 

  165.     '**************************************************************************************************************************************************

  166.     Private Sub CheckBox22_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox22.Click

  167.         If CheckBox6.Checked = False Then : CheckBox6.Checked = True : End If

  168.     End Sub

  169.     Private Sub CheckBox23_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox23.Click

  170.         If CheckBox6.Checked = False Then : CheckBox6.Checked = True : End If

  171.     End Sub

  172.     Private Sub CheckBox29_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox29.Click

  173.         If CheckBox6.Checked = False Then : CheckBox6.Checked = True : End If

  174.     End Sub

  175.     Private Sub CheckBox30_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox30.Click

  176.         If CheckBox6.Checked = False Then : CheckBox6.Checked = True : End If

  177.     End Sub

  178.     Private Sub CheckBox31_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox31.Click

  179.         If CheckBox6.Checked = False Then : CheckBox6.Checked = True : End If

  180.     End Sub

  181.     Private Sub CheckBox32_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox32.Click

  182.         If CheckBox6.Checked = False Then : CheckBox6.Checked = True : End If

  183.     End Sub

  184.     Private Sub CheckBox33_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox33.Click

  185.         If CheckBox6.Checked = False Then : CheckBox6.Checked = True : End If

  186.     End Sub

  187.     '--------------------------------------------------------------------------------------------------------------------------------------------------

  188. 

  189. 

  190.     '**************************************************************************************************************************************************

  191.     Private Sub CheckBox19_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox19.Click

  192.         If CheckBox4.Checked = False Then : CheckBox4.Checked = True : End If

  193.     End Sub

  194.     Private Sub CheckBox20_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox20.Click

  195.         If CheckBox4.Checked = False Then : CheckBox4.Checked = True : End If

  196.     End Sub

  197.     Private Sub CheckBox26_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox26.Click

  198.         If CheckBox4.Checked = False Then : CheckBox4.Checked = True : End If

  199.     End Sub

  200.     Private Sub CheckBox21_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox21.Click

  201.         If CheckBox4.Checked = False Then : CheckBox4.Checked = True : End If

  202.     End Sub

  203.     '--------------------------------------------------------------------------------------------------------------------------------------------------

  204. 

  205. 

  206.     '**************************************************************************************************************************************************

  207.     Private Sub CheckBox17_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox17.Click

  208.         If CheckBox2.Checked = False Then : CheckBox2.Checked = True : End If

  209.     End Sub

  210.     Private Sub CheckBox18_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox18.Click

  211.         If CheckBox2.Checked = False Then : CheckBox2.Checked = True : End If

  212.     End Sub

  213.     '--------------------------------------------------------------------------------------------------------------------------------------------------

  214. 

  215. 

  216.     '**************************************************************************************************************************************************

  217.     Private Sub CheckBox15_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox15.Click

  218.         If CheckBox3.Checked = False Then : CheckBox3.Checked = True : End If

  219.     End Sub

  220.     Private Sub CheckBox16_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox16.Click

  221.         If CheckBox3.Checked = False Then : CheckBox3.Checked = True : End If

  222.     End Sub

  223.     '--------------------------------------------------------------------------------------------------------------------------------------------------

  224. 

  225. 

  226.     '**************************************************************************************************************************************************

  227.     Private Sub CheckBox8_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox8.Click

  228.         If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If

  229.     End Sub

  230.     Private Sub CheckBox25_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox25.Click

  231.         If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If

  232.     End Sub

  233.     Private Sub CheckBox27_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox27.Click

  234.         If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If

  235.     End Sub

  236.     Private Sub CheckBox9_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox9.Click

  237.         If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If

  238.     End Sub

  239.     Private Sub CheckBox10_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox10.Click

  240.         If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If

  241.     End Sub

  242.     Private Sub CheckBox11_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox11.Click

  243.         If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If

  244.     End Sub

  245.     Private Sub CheckBox12_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox12.Click

  246.         If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If

  247.     End Sub

  248.     Private Sub CheckBox13_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox13.Click

  249.         If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If

  250.     End Sub

  251.     Private Sub CheckBox14_CheckedChanged(sender As Object, e As EventArgs) Handles CheckBox14.Click

  252.         If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If

  253.     End Sub

  254. End Class