mdiform.vb

这是个用VB编写的机票销售与查询管理系统

        ToolBarButton1.Enabled = False
        ToolBarButton2.Enabled = False
        ToolBarButton3.Enabled = False
        ToolBarButton4.Enabled = False
        ToolBarButton5.Enabled = False
        ToolBarButton7.Enabled = False
        ToolBarButton8.Enabled = False
        Dim x As Integer
        Dim id As String
        Dim con As String
        Dim ds As DataSet
        Dim a1, a2, a3, a4, a5, a6, a7, a8, a9, a10, a11, a12, a13, a14, a15 As Integer
        con = "select * from permission where id='" + username + "'"
        ds = my_class.query(con)
        my_class.dr = ds.Tables(0).Rows(0)
        If my_class.dr(1) Then
            a1 = 1
        Else
            a1 = 0
        End If
        If my_class.dr(2) Then
            a2 = 1
        Else
            a2 = 0
        End If
        If my_class.dr(3) Then
            a3 = 1
        Else
            a3 = 0
        End If
        If my_class.dr(4) Then
            a4 = 1
        Else
            a4 = 0
        End If
        If my_class.dr(5) Then
            a5 = 1
        Else
            a5 = 0
        End If
        If my_class.dr(6) Then
            a6 = 1
        Else
            a6 = 0
        End If
        If my_class.dr(7) Then
            a7 = 1
        Else
            a7 = 0
        End If
        If my_class.dr(8) Then
            a8 = 1
        Else
            a8 = 0
        End If
        If my_class.dr(9) Then
            a9 = 1
        Else
            a9 = 0
        End If
        If my_class.dr(10) Then
            a10 = 1
        Else
            a10 = 0
        End If
        If my_class.dr(11) Then
            a11 = 1
        Else
            a11 = 0
        End If
        If my_class.dr(12) Then
            a12 = 1
        Else
            a12 = 0
        End If
        If my_class.dr(13) Then
            a13 = 1
        Else
            a13 = 0
        End If
        If my_class.dr(14) Then
            a14 = 1
        Else
            a14 = 0
        End If
        If my_class.dr(15) Then
            a15 = 1
        Else
            a15 = 0
        End If
        If a2 Then
            MenuItem2.Enabled = True
        End If
        If a3 Then
            MenuItem3.Enabled = True
        End If
        If a6 Then
            MenuItem7.Enabled = True
        End If
        If a7 Then
            MenuItem8.Enabled = True
        End If
        If a8 Then
            MenuItem9.Enabled = True
        End If
        If a10 Then
            MenuItem11.Enabled = True
        End If
        If a11 Then
            MenuItem12.Enabled = True
        End If
        If a13 Then
            MenuItem14.Enabled = True
        End If
        If a15 Then
            MenuItem63.Enabled = True
        End If
    End Sub
    Private Sub MenuItem64_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem64.Click
        ToolBarButton1.Enabled = True
        ToolBarButton2.Enabled = True
        ToolBarButton3.Enabled = True
        ToolBarButton4.Enabled = True
        ToolBarButton7.Enabled = True
        ToolBarButton8.Enabled = True
        Dim frm As New 舱位类型信息列表
        frm.MdiParent = Me
        frm.Show()
        StatusBar1.Panels(0).Text = frm.Text
    End Sub

    Private Sub MenuItem63_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim frm As New 舱位类型信息
        frm.MdiParent = Me
        frm.Show()
        StatusBar1.Panels(0).Text = frm.Text
    End Sub

    Private Sub MenuItem67_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem67.Click
        ToolBarButton1.Enabled = True
        ToolBarButton2.Enabled = True
        ToolBarButton3.Enabled = True
        ToolBarButton4.Enabled = True
        ToolBarButton5.Enabled = True
        ToolBarButton7.Enabled = True
        ToolBarButton8.Enabled = True
        Dim frm As New 客机信息列表
        frm.MdiParent = Me
        frm.Show()
        StatusBar1.Panels(0).Text = frm.Text
    End Sub

    Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick
        StatusBar1.Panels(1).Text = DateTime.Now.Today
        StatusBar1.Panels(2).Text = DateTime.Now.ToString("T")
    End Sub

    Private Sub MenuItem65_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim frm As New 舱位类型信息
        frm.MdiParent = Me
        frm.Show()
        StatusBar1.Panels(0).Text = frm.Text
    End Sub

    Private Sub MenuItem66_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem66.Click

        Dim frm As New 客机信息查询
        frm.MdiParent = Me
        frm.Show()
        StatusBar1.Panels(0).Text = frm.Text
    End Sub

    Private Sub MenuItem68_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim frm As New 航线信息
        frm.MdiParent = Me
        frm.Show()
        StatusBar1.Panels(0).Text = frm.Text
    End Sub

    Private Sub MenuItem69_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem69.Click
        Dim frm As New 航线信息查询
        frm.MdiParent = Me
        frm.Show()
        StatusBar1.Panels(0).Text = frm.Text
    End Sub

    Private Sub MenuItem70_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem70.Click
        ToolBarButton1.Enabled = True
        ToolBarButton2.Enabled = True
        ToolBarButton3.Enabled = True
        ToolBarButton4.Enabled = True
        ToolBarButton5.Enabled = True
        ToolBarButton7.Enabled = True
        ToolBarButton8.Enabled = True
        Dim frm As New 航线信息列表
        frm.MdiParent = Me
        frm.Show()
        StatusBar1.Panels(0).Text = frm.Text
    End Sub

    Private Sub MenuItem71_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim frm As New 客户类型信息
        frm.MdiParent = Me
        frm.Show()
        StatusBar1.Panels(0).Text = frm.Text
    End Sub

    Private Sub MenuItem72_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem72.Click
        ToolBarButton1.Enabled = True
        ToolBarButton2.Enabled = True
        ToolBarButton3.Enabled = True
        ToolBarButton4.Enabled = True
        ToolBarButton7.Enabled = True
        ToolBarButton8.Enabled = True
        Dim frm As New 客户类型信息列表
        frm.MdiParent = Me
        frm.Show()
        StatusBar1.Panels(0).Text = frm.Text
    End Sub

    Private Sub MenuItem76_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)
        Dim frm As New 机票信息
        frm.MdiParent = Me
        frm.Show()
        StatusBar1.Panels(0).Text = frm.Text
    End Sub

    Private Sub MenuItem77_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem77.Click
        Dim frm As New 机票信息查询
        frm.MdiParent = Me
        frm.Show()
        StatusBar1.Panels(0).Text = frm.Text
    End Sub

    Private Sub MenuItem78_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem78.Click
        ToolBarButton1.Enabled = True
        ToolBarButton2.Enabled = True
        ToolBarButton3.Enabled = True
        ToolBarButton4.Enabled = True
        ToolBarButton5.Enabled = True
        ToolBarButton7.Enabled = True
        ToolBarButton8.Enabled = True
        Dim frm As New 机票信息列表
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub MenuItem2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem2.Click
        ToolBarButton1.Enabled = False
        ToolBarButton2.Enabled = False
        ToolBarButton3.Enabled = False
        ToolBarButton4.Enabled = False
        ToolBarButton5.Enabled = False
        ToolBarButton7.Enabled = False
        ToolBarButton8.Enabled = False
        Dim frm As New 修改密码
        frm.MdiParent = Me
        frm.Show()
        StatusBar1.Panels(0).Text = frm.Text
    End Sub

    Private Sub MenuItem3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem3.Click
        ToolBarButton1.Enabled = False
        ToolBarButton2.Enabled = False
        ToolBarButton3.Enabled = False
        ToolBarButton4.Enabled = False
        ToolBarButton5.Enabled = False
        ToolBarButton7.Enabled = False
        ToolBarButton8.Enabled = False
        Dim frm As New 添加用户
        frm.MdiParent = Me
        frm.Show()
        StatusBar1.Panels(0).Text = frm.Text
    End Sub

    Private Sub MenuItem74_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem74.Click
        Dim frm As New 客户信息查询
        frm.MdiParent = Me
        frm.Show()
        StatusBar1.Panels(0).Text = frm.Text
    End Sub

    Private Sub MenuItem75_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem75.Click
        ToolBarButton1.Enabled = True
        ToolBarButton2.Enabled = True
        ToolBarButton3.Enabled = True
        ToolBarButton4.Enabled = True
        ToolBarButton5.Enabled = True
        ToolBarButton7.Enabled = True
        ToolBarButton8.Enabled = True
        Dim frm As New 客户信息列表
        frm.MdiParent = Me
        frm.Show()
        StatusBar1.Panels(0).Text = frm.Text
    End Sub

    Private Sub MenuItem22_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem22.Click
        MessageBox.Show("已收到机票款!", "提示")
    End Sub

    Private Sub MenuItem63_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem63.Click
        Dim frm As New 用户权限设置
        frm.MdiParent = Me
        frm.Show()
    End Sub

    Private Sub MenuItem68_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem68.Click
        If (MessageBox.Show("确定要切换用户?", "提示", MessageBoxButtons.OKCancel) = DialogResult.OK) Then
            Dim frm As New 登录
            Me.Hide()
            frm.Show()
        End If
    End Sub

    Private Sub MDIForm1_Closed(ByVal sender As Object, ByVal e As System.EventArgs) Handles MyBase.Closed
        End
    End Sub

    Private Sub MenuItem31_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem31.Click
        MsgBox("该系统由肖贾设计完成，比较粗糙，解释权归肖贾所有！")
    End Sub
End Class