Option Strict Off Public Class 系統使用者管理 Private ReadOnly ds As New DataSet Dim HH As String Private Sub Set_使用者清單() 主表單_dgv.DataSource = Nothing : ds.Clear() 主表單_dgv.ColumnHeadersHeightSizeMode = DataGridViewColumnHeadersHeightSizeMode.EnableResizing 主表單_dgv.ColumnHeadersHeight = 25 主表單_dgv.AllowUserToAddRows = False SQL_系統使用者管理表() : da.Fill(ds) : 主表單_dgv.DataSource = ds.Tables(0) : conn.Close() : Set_grid() End Sub Private Sub Set_grid() 主表單_dgv.Columns(0).Width = 80 : 主表單_dgv.Columns(1).Width = 80 : 主表單_dgv.Columns(2).Width = 80 : 主表單_dgv.Columns(3).Width = 70 : 主表單_dgv.Columns(4).Width = 70 For i As Integer = 0 To 95 主表單_dgv.Columns(i + 5).Visible = False Next For i As Integer = 0 To 主表單_dgv.Rows.Count - 1 主表單_dgv.Rows(i).Cells("密碼").Value = "*************" Next End Sub Private Sub Set_格式設定() '---------同時控制所有具有一定命名規則的控件--------------------------------------------------------------------------------------------------------------------------------------------- For no As Integer = 1 To 96 Dim checkbox As CheckBox = CType(Me.Controls.Find("CheckBox" + no.ToString(), True)(0), CheckBox) checkbox.Checked = False Next End Sub Private Sub ComboBox1下拉表單資料載入() SQL_METOO部門清單() 部門_cb.Items.Clear() : While (dr.Read()) : 部門_cb.Items.Add(dr("部門")) : End While : conn.Close() End Sub Private Sub ComboBox2下拉表單資料載入() SQL_METOO職稱清單() 職稱_cb.Items.Clear() : While (dr.Read()) : 職稱_cb.Items.Add(dr("職稱")) : End While : conn.Close() End Sub Private Sub 系統使用者管理_Load(sender As Object, e As EventArgs) Handles MyBase.Load WINPROFIT_ERP_SYS.WindowState = 2 : Me.MdiParent = WINPROFIT_ERP_SYS : Me.WindowState = 2 : Me.AutoScroll = True Set_格式設定() : ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() 確認新增_bt.Enabled = False Set_使用者清單() : Set_grid() End Sub Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles 主表單_dgv.CellClick If e.RowIndex = -1 Then : Else 姓名_tb.Text = 主表單_dgv.Rows(e.RowIndex).Cells("姓名").Value.ToString : 帳號_tb.Text = 主表單_dgv.Rows(e.RowIndex).Cells("帳號").Value SQL_使用者權限管理表1() If (dr.Read()) Then : 密碼_tb.Text = dr("密碼") : End If : conn.Close() 部門_cb.Text = 主表單_dgv.Rows(e.RowIndex).Cells("部門").Value : 職稱_cb.Text = 主表單_dgv.Rows(e.RowIndex).Cells("職稱").Value '---------同時控制所有具有一定命名規則的控件--------------------------------------------------------------------------------------------------------------------------------------------- For no As Integer = 1 To 96 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 = 主表單_dgv.Rows(e.RowIndex).Cells("CC" & HH).Value Next End If End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles 確認新增_bt.Click SQL_新增使用者權限管理表() : conn.Close() MsgBox("新增完成") Set_使用者清單() : 確認新增_bt.Enabled = False : 新增_bt.Enabled = True End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles 修改_bt.Click If 姓名_tb.Text = "" Or 帳號_tb.Text = "" Or 密碼_tb.Text = "" Then MsgBox("輸入資料有誤") Else SQL_更改使用者權限管理表1() : conn.Close() MsgBox("新增完成") End If Set_使用者清單() End Sub Private Sub Button3_Click(sender As Object, e As EventArgs) Handles 刪除_bt.Click Dim aa As MsgBoxResult aa = MsgBox("確定要刪除該筆資料?", MsgBoxStyle.OkCancel) If aa = MsgBoxResult.Ok Then SQL_刪除使用者權限管理表() : conn.Close() : MsgBox("刪除完成") End If 姓名_tb.Text = "" : 帳號_tb.Text = "" : 帳號_tb.Text = "" : ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : CheckBox1.Checked = False Set_使用者清單() End Sub Private Sub Button4_Click(sender As Object, e As EventArgs) Handles 新增_bt.Click 姓名_tb.Text = "" : 帳號_tb.Text = "" : 密碼_tb.Text = "" : ComboBox1下拉表單資料載入() : ComboBox2下拉表單資料載入() : 新增_bt.Enabled = False : 確認新增_bt.Enabled = True Set_格式設定() End Sub Private Sub Button5_Click(sender As Object, e As EventArgs) Handles 查詢_bt.Click PA = InputBox("請輸入要查詢的資料") : ComboBox2下拉表單資料載入() End Sub '************************************************************************************************************************************* Private Sub CheckBox11_Click(sender As Object, e As EventArgs) If CheckBox10.Checked = False Then : CheckBox10.Checked = True : End If End Sub Private Sub CheckBox12_Click(sender As Object, e As EventArgs) If CheckBox10.Checked = False Then : CheckBox10.Checked = True : End If End Sub Private Sub CheckBox13_Click(sender As Object, e As EventArgs) If CheckBox10.Checked = False Then : CheckBox10.Checked = True : End If : If CheckBox12.Checked = False Then : CheckBox12.Checked = True : End If End Sub Private Sub CheckBox37_Click(sender As Object, e As EventArgs) If CheckBox10.Checked = False Then : CheckBox10.Checked = True : End If End Sub Private Sub CheckBox38_Click(sender As Object, e As EventArgs) If CheckBox10.Checked = False Then : CheckBox10.Checked = True : End If End Sub '************************************************************************************************************************************* Private Sub CheckBox23_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If End Sub Private Sub CheckBox24_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If : If CheckBox23.Checked = False Then : CheckBox23.Checked = True : End If End Sub Private Sub CheckBox25_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If : If CheckBox23.Checked = False Then : CheckBox23.Checked = True : End If End Sub Private Sub CheckBox26_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If : If CheckBox23.Checked = False Then : CheckBox23.Checked = True : End If End Sub Private Sub CheckBox88_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If End Sub Private Sub CheckBox64_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If End Sub Private Sub CheckBox65_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If End Sub Private Sub CheckBox66_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If End Sub Private Sub CheckBox67_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If End Sub Private Sub CheckBox68_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If End Sub Private Sub CheckBox69_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If End Sub Private Sub CheckBox70_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If End Sub Private Sub CheckBox71_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If End Sub Private Sub CheckBox72_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If End Sub Private Sub CheckBox73_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If End Sub Private Sub CheckBox74_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If End Sub Private Sub CheckBox75_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If End Sub Private Sub CheckBox76_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If End Sub Private Sub CheckBox77_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If End Sub Private Sub CheckBox78_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If End Sub Private Sub CheckBox79_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If End Sub Private Sub CheckBox80_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If End Sub Private Sub CheckBox89_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If End Sub Private Sub CheckBox90_Click(sender As Object, e As EventArgs) If CheckBox14.Checked = False Then : CheckBox14.Checked = True : End If End Sub '************************************************************************************************************************************* Private Sub CheckBox18_Click(sender As Object, e As EventArgs) If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If End Sub Private Sub CheckBox19_Click(sender As Object, e As EventArgs) If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If : If CheckBox18.Checked = False Then : CheckBox18.Checked = True : End If End Sub Private Sub CheckBox20_Click(sender As Object, e As EventArgs) If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If : If CheckBox18.Checked = False Then : CheckBox18.Checked = True : End If End Sub Private Sub CheckBox21_Click(sender As Object, e As EventArgs) If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If : If CheckBox18.Checked = False Then : CheckBox18.Checked = True : End If End Sub Private Sub CheckBox58_Click(sender As Object, e As EventArgs) If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If End Sub Private Sub CheckBox59_Click(sender As Object, e As EventArgs) If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If End Sub Private Sub CheckBox60_Click(sender As Object, e As EventArgs) If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If End Sub Private Sub CheckBox61_Click(sender As Object, e As EventArgs) If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If End Sub Private Sub CheckBox91_Click(sender As Object, e As EventArgs) If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If End Sub Private Sub CheckBox92_Click(sender As Object, e As EventArgs) If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If End Sub Private Sub CheckBox93_Click(sender As Object, e As EventArgs) If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If End Sub Private Sub CheckBox94_Click(sender As Object, e As EventArgs) If CheckBox22.Checked = False Then : CheckBox22.Checked = True : End If End Sub '************************************************************************************************************************************* Private Sub CheckBox6_Click(sender As Object, e As EventArgs) If CheckBox5.Checked = False Then : CheckBox5.Checked = True : End If End Sub Private Sub CheckBox7_Click(sender As Object, e As EventArgs) If CheckBox5.Checked = False Then : CheckBox5.Checked = True : End If : If CheckBox6.Checked = False Then : CheckBox6.Checked = True : End If End Sub Private Sub CheckBox8_Click(sender As Object, e As EventArgs) If CheckBox5.Checked = False Then : CheckBox5.Checked = True : End If : If CheckBox6.Checked = False Then : CheckBox6.Checked = True : End If End Sub Private Sub CheckBox9_Click(sender As Object, e As EventArgs) If CheckBox5.Checked = False Then : CheckBox5.Checked = True : End If : If CheckBox6.Checked = False Then : CheckBox6.Checked = True : End If End Sub Private Sub CheckBox34_Click(sender As Object, e As EventArgs) If CheckBox5.Checked = False Then : CheckBox5.Checked = True : End If End Sub '************************************************************************************************************************************* Private Sub CheckBox2_Click(sender As Object, e As EventArgs) If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If End Sub Private Sub CheckBox27_Click(sender As Object, e As EventArgs) If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If End Sub Private Sub CheckBox3_Click(sender As Object, e As EventArgs) If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If End Sub Private Sub CheckBox4_Click(sender As Object, e As EventArgs) If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If End Sub Private Sub CheckBox33_Click(sender As Object, e As EventArgs) If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If End Sub Private Sub CheckBox53_Click(sender As Object, e As EventArgs) If CheckBox1.Checked = False Then : CheckBox1.Checked = True : End If End Sub '************************************************************************************************************************************* Private Sub CheckBox29_Click(sender As Object, e As EventArgs) If CheckBox28.Checked = False Then : CheckBox28.Checked = True : End If End Sub Private Sub CheckBox30_Click(sender As Object, e As EventArgs) If CheckBox28.Checked = False Then : CheckBox28.Checked = True : End If End Sub Private Sub CheckBox31_Click(sender As Object, e As EventArgs) If CheckBox28.Checked = False Then : CheckBox28.Checked = True : End If End Sub Private Sub CheckBox32_Click(sender As Object, e As EventArgs) If CheckBox28.Checked = False Then : CheckBox28.Checked = True : End If End Sub Private Sub CheckBox44_Click(sender As Object, e As EventArgs) If CheckBox28.Checked = False Then : CheckBox28.Checked = True : End If End Sub '************************************************************************************************************************************* Private Sub CheckBox45_Click(sender As Object, e As EventArgs) If CheckBox35.Checked = False Then : CheckBox35.Checked = True : End If End Sub Private Sub CheckBox46_Click(sender As Object, e As EventArgs) If CheckBox35.Checked = False Then : CheckBox35.Checked = True : End If End Sub Private Sub CheckBox47_Click(sender As Object, e As EventArgs) If CheckBox35.Checked = False Then : CheckBox35.Checked = True : End If End Sub Private Sub CheckBox55_Click(sender As Object, e As EventArgs) If CheckBox35.Checked = False Then : CheckBox35.Checked = True : End If End Sub Private Sub CheckBox56_Click(sender As Object, e As EventArgs) If CheckBox35.Checked = False Then : CheckBox35.Checked = True : End If End Sub Private Sub CheckBox57_Click(sender As Object, e As EventArgs) If CheckBox35.Checked = False Then : CheckBox35.Checked = True : End If End Sub Private Sub CheckBox36_Click(sender As Object, e As EventArgs) If CheckBox35.Checked = False Then : CheckBox35.Checked = True : End If End Sub Private Sub CheckBox43_Click(sender As Object, e As EventArgs) If CheckBox35.Checked = False Then : CheckBox35.Checked = True : End If End Sub '************************************************************************************************************************************* Private Sub CheckBox41_Click(sender As Object, e As EventArgs) If CheckBox39.Checked = False Then : CheckBox39.Checked = True : End If End Sub Private Sub CheckBox42_Click(sender As Object, e As EventArgs) If CheckBox39.Checked = False Then : CheckBox39.Checked = True : End If : If CheckBox41.Checked = False Then : CheckBox41.Checked = True : End If End Sub Private Sub CheckBox63_Click(sender As Object, e As EventArgs) If CheckBox39.Checked = False Then : CheckBox39.Checked = True : End If End Sub Private Sub CheckBox15_Click(sender As Object, e As EventArgs) If CheckBox39.Checked = False Then : CheckBox39.Checked = True : End If End Sub Private Sub CheckBox84_Click(sender As Object, e As EventArgs) If CheckBox39.Checked = False Then : CheckBox39.Checked = True : End If End Sub Private Sub CheckBox16_Click(sender As Object, e As EventArgs) If CheckBox39.Checked = False Then : CheckBox39.Checked = True : End If : If CheckBox15.Checked = False Then : CheckBox15.Checked = True : End If End Sub Private Sub CheckBox17_Click(sender As Object, e As EventArgs) If CheckBox39.Checked = False Then : CheckBox39.Checked = True : End If : If CheckBox15.Checked = False Then : CheckBox15.Checked = True : End If End Sub Private Sub CheckBox40_Click(sender As Object, e As EventArgs) If CheckBox39.Checked = False Then : CheckBox39.Checked = True : End If End Sub Private Sub CheckBox85_Click(sender As Object, e As EventArgs) If CheckBox39.Checked = False Then : CheckBox39.Checked = True : End If End Sub Private Sub CheckBox86_Click(sender As Object, e As EventArgs) If CheckBox39.Checked = False Then : CheckBox39.Checked = True : End If End Sub Private Sub CheckBox87_Click(sender As Object, e As EventArgs) If CheckBox39.Checked = False Then : CheckBox39.Checked = True : End If End Sub '************************************************************************************************************************************* Private Sub CheckBox49_Click(sender As Object, e As EventArgs) If CheckBox48.Checked = False Then : CheckBox48.Checked = True : End If End Sub Private Sub CheckBox50_Click(sender As Object, e As EventArgs) If CheckBox48.Checked = False Then : CheckBox48.Checked = True : End If End Sub Private Sub CheckBox51_Click(sender As Object, e As EventArgs) If CheckBox48.Checked = False Then : CheckBox48.Checked = True : End If End Sub Private Sub CheckBox52_Click(sender As Object, e As EventArgs) If CheckBox48.Checked = False Then : CheckBox48.Checked = True : End If End Sub Private Sub CheckBox81_Click(sender As Object, e As EventArgs) If CheckBox48.Checked = False Then : CheckBox48.Checked = True : End If End Sub Private Sub CheckBox82_Click(sender As Object, e As EventArgs) If CheckBox48.Checked = False Then : CheckBox48.Checked = True : End If End Sub '************************************************************************************************************************************* Private Sub CheckBox54_Click(sender As Object, e As EventArgs) If CheckBox62.Checked = False Then : CheckBox62.Checked = True : End If End Sub Private Sub CheckBox95_Click(sender As Object, e As EventArgs) If CheckBox62.Checked = False Then : CheckBox62.Checked = True : End If End Sub Private Sub CheckBox96_Click(sender As Object, e As EventArgs) If CheckBox62.Checked = False Then : CheckBox62.Checked = True : End If End Sub End Class