用户权限设置.vb

这是个用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