mdiform.vb

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

        'MenuItem59
        '
        Me.MenuItem59.Index = 7
        Me.MenuItem59.Text = "-"
        '
        'MenuItem60
        '
        Me.MenuItem60.Index = 8
        Me.MenuItem60.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem61})
        Me.MenuItem60.Text = "帮助"
        '
        'MenuItem61
        '
        Me.MenuItem61.Index = 0
        Me.MenuItem61.Text = "About"
        '
        'MenuItem62
        '
        Me.MenuItem62.Index = 9
        Me.MenuItem62.Text = "退出"
        '
        'Timer1
        '
        Me.Timer1.Enabled = True
        Me.Timer1.Interval = 1000
        '
        'MDIForm1
        '
        Me.AutoScaleBaseSize = New System.Drawing.Size(6, 14)
        Me.BackColor = System.Drawing.SystemColors.Menu
        Me.BackgroundImage = CType(resources.GetObject("$this.BackgroundImage"), System.Drawing.Image)
        Me.ClientSize = New System.Drawing.Size(600, 385)
        Me.ContextMenu = Me.ContextMenu1
        Me.Controls.Add(Me.StatusBar1)
        Me.Controls.Add(Me.ToolBar1)
        Me.IsMdiContainer = True
        Me.Menu = Me.MainMenu1
        Me.Name = "MDIForm1"
        Me.Text = "航空公司机票管理系统"
        Me.TopMost = True
        Me.WindowState = System.Windows.Forms.FormWindowState.Maximized
        CType(Me.statusbarpanel1, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel2, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.StatusBarPanel3, System.ComponentModel.ISupportInitialize).EndInit()
        CType(Me.statusbarpanel4, System.ComponentModel.ISupportInitialize).EndInit()
        Me.ResumeLayout(False)

    End Sub

#End Region
    Dim my_class As New class1
    Dim con As String

    Private Sub ToolBar1_ButtonClick(ByVal sender As System.Object, ByVal e As System.Windows.Forms.ToolBarButtonClickEventArgs) Handles ToolBar1.ButtonClick
        Select Case e.Button.ImageIndex
            Case 0                         '添加
                mytemp = 0
                Select Case ct
                    Case 11
                        Dim cwlx As New 舱位类型信息
                        cwlx.MdiParent = Me
                        cwlx.Show()
                        statusbarpanel1.Text = cwlx.Text
                    Case 21
                        Dim kjxx As New 客机信息
                        kjxx.MdiParent = Me
                        kjxx.Show()
                    Case 31
                        Dim hxxx As New 航线信息
                        hxxx.MdiParent = Me
                        hxxx.Show()
                    Case 41
                        Dim kulx As New 客户类型信息
                        kulx.MdiParent = Me
                        kulx.Show()
                    Case 51
                        Dim kuxx As New 客户信息
                        kuxx.MdiParent = Me
                        kuxx.Show()
                    Case 61
                        Dim dpxx As New 机票信息
                        dpxx.MdiParent = Me
                        dpxx.Show()
                End Select

            Case 1                          '修改
                mytemp = 1
                Select Case ct
                    Case 11
                        Dim cwlx As New 舱位类型信息
                        cwlx.MdiParent = Me
                        cwlx.Show()
                        statusbarpanel1.Text = cwlx.Text
                    Case 21
                        Dim kjxx As New 客机信息
                        kjxx.MdiParent = Me
                        kjxx.Show()
                    Case 31
                        Dim hxxx As New 航线信息
                        hxxx.MdiParent = Me
                        hxxx.Show()
                    Case 41
                        Dim kulx As New 客户类型信息
                        kulx.MdiParent = Me
                        kulx.Show()
                    Case 51
                        Dim kuxx As New 客户信息
                        kuxx.MdiParent = Me
                        kuxx.Show()
                    Case 61
                        Dim dpxx As New 机票信息
                        dpxx.MdiParent = Me
                        dpxx.Show()
                End Select
            Case 2 '删除
                Select Case ct
                    Case 11                    '删除舱位类型信息

                        Dim ds As DataSet
                        Try
                            con = "delete from serviceinfo where serviceNO='" + x1 + "'"
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                        my_class.delete(con)
                        Try
                            con = "select * from serviceinfo"
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                        Try
                            Dim frm As New 舱位类型信息列表
                            frm = Me.ActiveMdiChild
                            ds = my_class.query(con)
                            frm.DataGrid1.DataSource = ds.Tables(0)
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try

                    Case 21
                        Dim ds As New DataSet
                        Dim con As String
                        con = "delete from planeinfo where planeNO='" + x2 + "'"
                        my_class.delete(con)
                        Dim frm As New 客机信息列表
                        frm = Me.ActiveMdiChild
                        con = "select * from planeinfo"
                        Try
                            ds = my_class.query(con)
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                        frm.DataGrid1.DataSource = ds.Tables(0)
                    Case 31
                        Dim ds As DataSet
                        Dim con As String
                        con = "delete from airlineinfo where airlineNO='" + x3 + "'"
                        my_class.delete(con)
                        Dim frm As New 航线信息列表
                        frm = Me.ActiveMdiChild
                        con = "select * from airlineinfo"
                        Try
                            ds = my_class.query(con)
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                        frm.DataGrid1.DataSource = ds.Tables(0)
                    Case 41
                        Dim ds As DataSet
                        Dim con As String
                        con = "delete from customertype where ctypeNO='" + x4 + "'"
                        my_class.delete(con)
                        Dim frm As New 客户类型信息列表
                        frm = Me.ActiveMdiChild
                        con = "select * from customertype"
                        Try
                            ds = my_class.query(con)
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                        frm.DataGrid1.DataSource = ds.Tables(0)
                    Case 51
                        Dim ds As DataSet
                        Dim con As String
                        con = "delete from customerinfo where customerNO='" + x5 + "'"
                        my_class.delete(con)
                        Dim frm As New 客户信息列表
                        frm = Me.ActiveMdiChild
                        con = "select * from customerinfo"
                        Try
                            ds = my_class.query(con)
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                        frm.DataGrid1.DataSource = ds.Tables(0)
                    Case 61
                        Dim ds As DataSet
                        Dim con As String
                        con = "delete from ticketinfo where ticketNO='" + x6 + "'"
                        my_class.delete(con)
                        Dim frm As New 机票信息列表
                        frm = Me.ActiveMdiChild
                        con = "select * from ticketinfo"
                        Try
                            ds = my_class.query(con)
                        Catch ex As Exception
                            MessageBox.Show(ex.Message)
                        End Try
                        frm.DataGrid1.DataSource = ds.Tables(0)
                End Select
            Case 3 '刷新
                Select Case ct
                    Case 11
                        Dim ds As DataSet
                        ds = New DataSet
                        Dim con As String
                        Dim frm As New 舱位类型信息列表
                        frm = Me.ActiveMdiChild
                        con = "select * from serviceinfo"
                        ds = my_class.query(con)                   
                        frm.DataGrid1.ReadOnly = False
                        frm.DataGrid1.DataSource = my_class.ds.Tables(0)
                End Select
            Case 4 '查询
                Select Case ct
                    Case 21
                        Dim frm As New 客机信息查询
                        frm.MdiParent = Me
                        frm.Show()
                    Case 31
                        Dim frm As New 航线信息查询
                        frm.MdiParent = Me
                        frm.Show()
                    Case 51
                        Dim frm As New 客户信息查询
                        frm.MdiParent = Me
                        frm.Show()
                    Case 61
                        Dim frm As New 机票信息查询
                        frm.MdiParent = Me
                        frm.Show()
                End Select
            Case 5 '报表预览
                Select Case ct
                    Case 11
                        Dim frm As New servicebb
                        frm.MdiParent = Me
                        frm.Show()
                    Case 21
                        Dim frm As New planebb
                        frm.MdiParent = Me
                        frm.Show()
                    Case 31
                        Dim frm As New airlinebb
                        frm.MdiParent = Me
                        frm.Show()

                    Case 41
                        Dim frm As New customertypebb
                        frm.MdiParent = Me
                        frm.Show()
                    Case 51
                        Dim frm As New customerbb
                        frm.MdiParent = Me
                        frm.Show()
                    Case 61
                        Dim frm As New ticketbb
                        frm.MdiParent = Me
                        frm.Show()

                End Select
            Case 6 '报表打印
                Select Case ct
                    Case 11
                        MsgBox("舱位类型信息正在打印中！")
                    Case 21
                        MsgBox("客机信息正在打印中！")
                    Case 31
                        MsgBox("航线信息正在打印中！")
                    Case 41
                        MsgBox("客户类型信息正在打印中！")
                    Case 51
                        MsgBox("客户信息正在打印中！")
                    Case 61
                        MsgBox("订票信息正在打印中！")
                End Select
        End Select
    End Sub

    Private Sub MenuItem26_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem26.Click
        Me.LayoutMdi(MdiLayout.Cascade)
    End Sub

    Private Sub MenuItem27_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem27.Click
        Me.LayoutMdi(MdiLayout.TileHorizontal)
    End Sub

    Private Sub MenuItem28_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem28.Click
        Me.LayoutMdi(MdiLayout.TileVertical)
    End Sub

    Private Sub MenuItem29_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem29.Click
        Me.LayoutMdi(MdiLayout.ArrangeIcons)
    End Sub

    Private Sub MenuItem5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MenuItem5.Click
        If (MessageBox.Show("确定要退出?", "提示", MessageBoxButtons.OKCancel) = DialogResult.OK) Then
            End
        End If
    End Sub

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        my_class.init()
        MenuItem2.Enabled = False
        MenuItem3.Enabled = False

        MenuItem7.Enabled = False
        MenuItem8.Enabled = False
        MenuItem9.Enabled = False
        MenuItem11.Enabled = False
        MenuItem12.Enabled = False
        MenuItem14.Enabled = False
        MenuItem63.Enabled = False
        MenuItem22.Enabled = False