mdiform.vb

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

        '
        Me.MenuItem75.Index = 1
        Me.MenuItem75.Text = "客户信息列表"
        '
        'MenuItem13
        '
        Me.MenuItem13.Index = 3
        Me.MenuItem13.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem14})
        Me.MenuItem13.Text = "票务信息管理"
        '
        'MenuItem14
        '
        Me.MenuItem14.Index = 0
        Me.MenuItem14.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem77, Me.MenuItem78})
        Me.MenuItem14.Text = "定票管理"
        '
        'MenuItem77
        '
        Me.MenuItem77.Index = 0
        Me.MenuItem77.Text = "机票信息查询"
        '
        'MenuItem78
        '
        Me.MenuItem78.Index = 1
        Me.MenuItem78.Text = "机票信息列表"
        '
        'MenuItem15
        '
        Me.MenuItem15.Index = 4
        Me.MenuItem15.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem22})
        Me.MenuItem15.Text = "操作(&o)"
        '
        'MenuItem22
        '
        Me.MenuItem22.Index = 0
        Me.MenuItem22.Text = "收款"
        '
        'MenuItem25
        '
        Me.MenuItem25.Index = 5
        Me.MenuItem25.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem26, Me.MenuItem27, Me.MenuItem28, Me.MenuItem29})
        Me.MenuItem25.Text = "窗口"
        '
        'MenuItem26
        '
        Me.MenuItem26.Index = 0
        Me.MenuItem26.Text = "层叠"
        '
        'MenuItem27
        '
        Me.MenuItem27.Index = 1
        Me.MenuItem27.Text = "横向平铺"
        '
        'MenuItem28
        '
        Me.MenuItem28.Index = 2
        Me.MenuItem28.Text = "纵向平铺"
        '
        'MenuItem29
        '
        Me.MenuItem29.Index = 3
        Me.MenuItem29.Text = "排列图标"
        '
        'MenuItem68
        '
        Me.MenuItem68.Index = 6
        Me.MenuItem68.Text = "切换用户"
        '
        'MenuItem30
        '
        Me.MenuItem30.Index = 7
        Me.MenuItem30.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem31})
        Me.MenuItem30.Text = "帮助"
        '
        'MenuItem31
        '
        Me.MenuItem31.Index = 0
        Me.MenuItem31.Text = "About"
        '
        'ImageList1
        '
        Me.ImageList1.ImageSize = New System.Drawing.Size(16, 16)
        Me.ImageList1.ImageStream = CType(resources.GetObject("ImageList1.ImageStream"), System.Windows.Forms.ImageListStreamer)
        Me.ImageList1.TransparentColor = System.Drawing.Color.Transparent
        '
        'ToolBar1
        '
        Me.ToolBar1.Appearance = System.Windows.Forms.ToolBarAppearance.Flat
        Me.ToolBar1.Buttons.AddRange(New System.Windows.Forms.ToolBarButton() {Me.ToolBarButton1, Me.ToolBarButton2, Me.ToolBarButton3, Me.ToolBarButton4, Me.ToolBarButton5, Me.ToolBarButton6, Me.ToolBarButton7, Me.ToolBarButton8})
        Me.ToolBar1.DropDownArrows = True
        Me.ToolBar1.ImageList = Me.ImageList1
        Me.ToolBar1.Location = New System.Drawing.Point(0, 0)
        Me.ToolBar1.Name = "ToolBar1"
        Me.ToolBar1.ShowToolTips = True
        Me.ToolBar1.Size = New System.Drawing.Size(600, 41)
        Me.ToolBar1.TabIndex = 0
        '
        'ToolBarButton1
        '
        Me.ToolBarButton1.ImageIndex = 0
        Me.ToolBarButton1.Text = "添加"
        '
        'ToolBarButton2
        '
        Me.ToolBarButton2.ImageIndex = 1
        Me.ToolBarButton2.Text = "修改"
        '
        'ToolBarButton3
        '
        Me.ToolBarButton3.ImageIndex = 2
        Me.ToolBarButton3.Text = "删除"
        '
        'ToolBarButton4
        '
        Me.ToolBarButton4.ImageIndex = 3
        Me.ToolBarButton4.Text = "刷新"
        '
        'ToolBarButton5
        '
        Me.ToolBarButton5.ImageIndex = 4
        Me.ToolBarButton5.Text = "查询"
        '
        'ToolBarButton6
        '
        Me.ToolBarButton6.Style = System.Windows.Forms.ToolBarButtonStyle.Separator
        '
        'ToolBarButton7
        '
        Me.ToolBarButton7.ImageIndex = 5
        Me.ToolBarButton7.Text = "报表预览"
        '
        'ToolBarButton8
        '
        Me.ToolBarButton8.ImageIndex = 6
        Me.ToolBarButton8.Text = "报表打印"
        '
        'StatusBar1
        '
        Me.StatusBar1.Location = New System.Drawing.Point(0, 345)
        Me.StatusBar1.Name = "StatusBar1"
        Me.StatusBar1.Panels.AddRange(New System.Windows.Forms.StatusBarPanel() {Me.statusbarpanel1, Me.StatusBarPanel2, Me.StatusBarPanel3, Me.statusbarpanel4})
        Me.StatusBar1.ShowPanels = True
        Me.StatusBar1.Size = New System.Drawing.Size(600, 40)
        Me.StatusBar1.TabIndex = 1
        Me.StatusBar1.Text = "StatusBar1"
        '
        'statusbarpanel1
        '
        Me.statusbarpanel1.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring
        Me.statusbarpanel1.Text = "当前活动窗体"
        Me.statusbarpanel1.Width = 146
        '
        'StatusBarPanel2
        '
        Me.StatusBarPanel2.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring
        Me.StatusBarPanel2.Text = "系统日期"
        Me.StatusBarPanel2.Width = 146
        '
        'StatusBarPanel3
        '
        Me.StatusBarPanel3.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring
        Me.StatusBarPanel3.Text = "系统时间"
        Me.StatusBarPanel3.Width = 146
        '
        'statusbarpanel4
        '
        Me.statusbarpanel4.AutoSize = System.Windows.Forms.StatusBarPanelAutoSize.Spring
        Me.statusbarpanel4.Icon = CType(resources.GetObject("statusbarpanel4.Icon"), System.Drawing.Icon)
        Me.statusbarpanel4.Text = "欢迎使用本软件"
        Me.statusbarpanel4.Width = 146
        '
        'ContextMenu1
        '
        Me.ContextMenu1.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem32, Me.MenuItem33, Me.MenuItem37, Me.MenuItem49, Me.MenuItem52, Me.MenuItem54, Me.MenuItem17, Me.MenuItem59, Me.MenuItem60, Me.MenuItem62})
        '
        'MenuItem32
        '
        Me.MenuItem32.Index = 0
        Me.MenuItem32.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem40, Me.MenuItem41, Me.MenuItem42, Me.MenuItem43, Me.MenuItem44, Me.MenuItem45, Me.MenuItem46, Me.MenuItem47})
        Me.MenuItem32.Text = "操作"
        '
        'MenuItem40
        '
        Me.MenuItem40.Index = 0
        Me.MenuItem40.Text = "添加"
        '
        'MenuItem41
        '
        Me.MenuItem41.Index = 1
        Me.MenuItem41.Text = "修改"
        '
        'MenuItem42
        '
        Me.MenuItem42.Index = 2
        Me.MenuItem42.Text = "删除"
        '
        'MenuItem43
        '
        Me.MenuItem43.Index = 3
        Me.MenuItem43.Text = "刷新"
        '
        'MenuItem44
        '
        Me.MenuItem44.Index = 4
        Me.MenuItem44.Text = "查询"
        '
        'MenuItem45
        '
        Me.MenuItem45.Index = 5
        Me.MenuItem45.Text = "-"
        '
        'MenuItem46
        '
        Me.MenuItem46.Index = 6
        Me.MenuItem46.Text = "收款"
        '
        'MenuItem47
        '
        Me.MenuItem47.Index = 7
        Me.MenuItem47.Text = "报表预报表打印览"
        '
        'MenuItem33
        '
        Me.MenuItem33.Index = 1
        Me.MenuItem33.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem16, Me.MenuItem34, Me.MenuItem35, Me.MenuItem36})
        Me.MenuItem33.Text = "系统"
        '
        'MenuItem16
        '
        Me.MenuItem16.Index = 0
        Me.MenuItem16.Text = "用户权限设置"
        '
        'MenuItem34
        '
        Me.MenuItem34.Index = 1
        Me.MenuItem34.Text = "修改密码"
        '
        'MenuItem35
        '
        Me.MenuItem35.Index = 2
        Me.MenuItem35.Text = "添加用户"
        '
        'MenuItem36
        '
        Me.MenuItem36.Index = 3
        Me.MenuItem36.Text = "退出"
        '
        'MenuItem37
        '
        Me.MenuItem37.Index = 2
        Me.MenuItem37.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem38, Me.MenuItem39, Me.MenuItem48})
        Me.MenuItem37.Text = "航线信息管理"
        '
        'MenuItem38
        '
        Me.MenuItem38.Index = 0
        Me.MenuItem38.Text = "舱位信息"
        '
        'MenuItem39
        '
        Me.MenuItem39.Index = 1
        Me.MenuItem39.Text = "客机信息"
        '
        'MenuItem48
        '
        Me.MenuItem48.Index = 2
        Me.MenuItem48.Text = "航线信息"
        '
        'MenuItem49
        '
        Me.MenuItem49.Index = 3
        Me.MenuItem49.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem50, Me.MenuItem51})
        Me.MenuItem49.Text = "客户信息管理"
        '
        'MenuItem50
        '
        Me.MenuItem50.Index = 0
        Me.MenuItem50.Text = "客户类型"
        '
        'MenuItem51
        '
        Me.MenuItem51.Index = 1
        Me.MenuItem51.Text = "客户信息"
        '
        'MenuItem52
        '
        Me.MenuItem52.Index = 4
        Me.MenuItem52.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem53})
        Me.MenuItem52.Text = "票务信息管理"
        '
        'MenuItem53
        '
        Me.MenuItem53.Index = 0
        Me.MenuItem53.Text = "定票管理"
        '
        'MenuItem54
        '
        Me.MenuItem54.Index = 5
        Me.MenuItem54.MenuItems.AddRange(New System.Windows.Forms.MenuItem() {Me.MenuItem55, Me.MenuItem56, Me.MenuItem57, Me.MenuItem58})
        Me.MenuItem54.Text = "窗口"
        '
        'MenuItem55
        '
        Me.MenuItem55.Index = 0
        Me.MenuItem55.Text = "层叠"
        '
        'MenuItem56
        '
        Me.MenuItem56.Index = 1
        Me.MenuItem56.Text = "横向平铺"
        '
        'MenuItem57
        '
        Me.MenuItem57.Index = 2
        Me.MenuItem57.Text = "纵向平铺"
        '
        'MenuItem58
        '
        Me.MenuItem58.Index = 3
        Me.MenuItem58.Text = "排列图标"
        '
        'MenuItem17
        '
        Me.MenuItem17.Index = 6
        Me.MenuItem17.Text = "切换用户"
        '