?? 用戶權限設置.vb
字號:
Me.Button1.Text = "修 改"
'
'Button2
'
Me.Button2.Location = New System.Drawing.Point(424, 32)
Me.Button2.Name = "Button2"
Me.Button2.Size = New System.Drawing.Size(80, 32)
Me.Button2.TabIndex = 18
Me.Button2.Text = "取 消"
'
'用戶權限設置
'
Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
Me.ClientSize = New System.Drawing.Size(568, 430)
Me.Controls.Add(Me.Button2)
Me.Controls.Add(Me.Button1)
Me.Controls.Add(Me.CheckBox15)
Me.Controls.Add(Me.CheckBox14)
Me.Controls.Add(Me.CheckBox13)
Me.Controls.Add(Me.CheckBox12)
Me.Controls.Add(Me.CheckBox11)
Me.Controls.Add(Me.CheckBox10)
Me.Controls.Add(Me.CheckBox9)
Me.Controls.Add(Me.CheckBox8)
Me.Controls.Add(Me.CheckBox7)
Me.Controls.Add(Me.CheckBox6)
Me.Controls.Add(Me.CheckBox5)
Me.Controls.Add(Me.CheckBox4)
Me.Controls.Add(Me.CheckBox3)
Me.Controls.Add(Me.CheckBox2)
Me.Controls.Add(Me.CheckBox1)
Me.Controls.Add(Me.ComboBox1)
Me.Controls.Add(Me.Label1)
Me.Name = "用戶權限設置"
Me.Text = "用戶權限設置"
Me.ResumeLayout(False)
End Sub
#End Region
Private Sub 用戶權限設置_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
my_class.init()
Dim con As String
Dim count, i As Integer
Dim ds As DataSet
con = "select * from permission"
ds = my_class.query(con)
count = ds.Tables(0).Rows.Count
my_class.dr = ds.Tables(0).Rows(0)
ComboBox1.Text = Trim(CStr(my_class.dr(0)))
For i = 1 To count - 1
my_class.dr = ds.Tables(0).Rows(i)
ComboBox1.Items.Add(Trim(CStr(my_class.dr("id"))))
Next
con = "select * from permission where id='" + ComboBox1.Text + "'"
ds = my_class.query(con)
If (ds.Tables(0).Rows.Count > 0) Then
my_class.dr = ds.Tables(0).Rows(0)
CheckBox1.Checked = my_class.dr("系統")
CheckBox2.Checked = my_class.dr("修改密碼")
CheckBox3.Checked = my_class.dr("添加用戶")
CheckBox4.Checked = my_class.dr("退出")
CheckBox5.Checked = my_class.dr("航線管理")
CheckBox6.Checked = my_class.dr("艙位管理")
CheckBox7.Checked = my_class.dr("客機管理")
CheckBox8.Checked = my_class.dr("航線信息")
CheckBox9.Checked = my_class.dr("客戶信息管理")
CheckBox10.Checked = my_class.dr("客戶類型")
CheckBox11.Checked = my_class.dr("客戶信息")
CheckBox12.Checked = my_class.dr("票務管理")
CheckBox13.Checked = my_class.dr("訂票管理")
CheckBox14.Checked = my_class.dr("操作")
CheckBox15.Checked = my_class.dr("用戶權限設置")
End If
End Sub
Private Sub 用戶權限設置_Activated(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Activated
Dim mdifrm As New MDIForm1
mdifrm = Me.MdiParent
mdifrm.StatusBar1.Panels(0).Text = Me.Text
End Sub
Private Sub ComboBox1_SelectedIndexChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ComboBox1.SelectedIndexChanged
my_class.init()
Dim con As String
Dim ds As DataSet
'Dim x As String
'x = CStr(ComboBox1.Text)
con = "select * from permission where id='" + ComboBox1.Text + "'"
ds = my_class.query(con)
If (ds.Tables(0).Rows.Count > 0) Then
my_class.dr = ds.Tables(0).Rows(0)
CheckBox1.Checked = my_class.dr("系統")
CheckBox2.Checked = my_class.dr("修改密碼")
CheckBox3.Checked = my_class.dr("添加用戶")
CheckBox4.Checked = my_class.dr("退出")
CheckBox5.Checked = my_class.dr("航線管理")
CheckBox6.Checked = my_class.dr("艙位管理")
CheckBox7.Checked = my_class.dr("客機管理")
CheckBox8.Checked = my_class.dr("航線信息")
CheckBox9.Checked = my_class.dr("客戶信息管理")
CheckBox10.Checked = my_class.dr("客戶類型")
CheckBox11.Checked = my_class.dr("客戶信息")
CheckBox12.Checked = my_class.dr("票務管理")
CheckBox13.Checked = my_class.dr("訂票管理")
CheckBox14.Checked = my_class.dr("操作")
CheckBox15.Checked = my_class.dr("用戶權限設置")
Else
MessageBox.Show("沒有這個用戶!", "提示")
End If
End Sub
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15 As Integer
Dim con As String
Dim ds As DataSet
con = "select * from permission where id='" + ComboBox1.Text + "'"
ds = my_class.query(con)
If (ds.Tables(0).Rows.Count > 0) Then
If CheckBox1.Checked Then
a1 = 1
Else
a1 = 0
End If
If CheckBox2.Checked Then
a2 = 1
Else
a2 = 0
End If
If CheckBox3.Checked Then
a3 = 1
Else
a3 = 0
End If
If CheckBox4.Checked Then
a4 = 1
Else
a4 = 0
End If
If CheckBox5.Checked Then
a5 = 1
Else
a5 = 0
End If
If CheckBox6.Checked Then
a6 = 1
Else
a6 = 0
End If
If CheckBox7.Checked Then
a7 = 1
Else
a7 = 0
End If
If CheckBox8.Checked Then
a8 = 1
Else
a8 = 0
End If
If CheckBox9.Checked Then
a9 = 1
Else
a9 = 0
End If
If CheckBox10.Checked Then
a10 = 1
Else
a10 = 0
End If
If CheckBox11.Checked Then
a11 = 1
Else
a11 = 0
End If
If CheckBox12.Checked Then
a12 = 1
Else
a12 = 0
End If
If CheckBox13.Checked Then
a13 = 1
Else
a13 = 0
End If
If CheckBox14.Checked Then
a14 = 1
Else
a14 = 0
End If
If CheckBox15.Checked Then
a15 = 1
Else
a15 = 0
End If
con = "delete from permission where id='" & ComboBox1.Text & "'"
my_class.delete(con)
con = "insert into permission values('" & ComboBox1.Text & "','" & a1 & "','" & a2 & "','" & a3 & "','" & a4 & "','" & a5 & "','" & a6 & "','" & a7 & "','" & a8 & "','" & a9 & "','" & a10 & "','" & a11 & "','" & a12 & "','" & a13 & "','" & a14 & "','" & a15 & "')"
my_class.update(con)
MsgBox("修改成功！")
Else
MessageBox.Show("沒有這個用戶!", "提示")
End If
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Me.Close()
End Sub
End Class
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -