mainmenu.frm

此系统实现了火车票订票系统的部分功能

VERSION 5.00
Begin VB.Form mainmenu 
   Caption         =   "主窗口界面"
   ClientHeight    =   5730
   ClientLeft      =   165
   ClientTop       =   810
   ClientWidth     =   7860
   LinkTopic       =   "Form2"
   Picture         =   "mainmenu.frx":0000
   ScaleHeight     =   5730
   ScaleWidth      =   7860
   StartUpPosition =   3  'Windows Default
   Begin VB.Menu addtrain 
      Caption         =   "添加车次"
   End
   Begin VB.Menu selecttrain 
      Caption         =   "车次查询"
      Begin VB.Menu strain 
         Caption         =   "按车次查询"
      End
      Begin VB.Menu saddress 
         Caption         =   "按站查询"
      End
      Begin VB.Menu selectall 
         Caption         =   "查询所有车次"
      End
   End
   Begin VB.Menu bookform 
      Caption         =   "订票窗口"
   End
   Begin VB.Menu delete 
      Caption         =   "管理员注销乘客信息"
   End
   Begin VB.Menu bbinf 
      Caption         =   "报表信息"
   End
   Begin VB.Menu help 
      Caption         =   "帮助"
      Begin VB.Menu about 
         Caption         =   "关于"
      End
   End
   Begin VB.Menu exitsystem 
      Caption         =   "退出系统"
   End
End
Attribute VB_Name = "mainmenu"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub about_Click()
  aboutinf.Show
End Sub

Private Sub addtrain_Click()
 form2.Show
End Sub

Private Sub bbinf_Click()
 baobiao.Show
End Sub

Private Sub bookform_Click()
bookticket.Show
End Sub

Private Sub delete_Click()
 zhuxiao.Show
End Sub

Private Sub exitsystem_Click()
 End
End Sub

Private Sub saddress_Click()
 form3.Show
 form3.Frame2.Enabled = False
 form3.Frame3.Enabled = False
End Sub

Private Sub selectall_Click()
 form3.Show
 form3.Frame1.Enabled = False
 form3.Frame2.Enabled = False
End Sub

Private Sub strain_Click()
 form3.Show
 form3.Frame1.Enabled = False
 form3.Frame3.Enabled = False
End Sub

'不能重名