VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "車站售票管理系統(tǒng)"
   ClientHeight    =   6315
   ClientLeft      =   1560
   ClientTop       =   2160
   ClientWidth     =   9885
   LinkTopic       =   "MDIForm1"
   Begin VB.Menu file 
      Caption         =   "文件"
      Begin VB.Menu klxg 
         Caption         =   "口令修改"
      End
      Begin VB.Menu exit 
         Caption         =   "退出"
      End
   End
   Begin VB.Menu sp 
      Caption         =   "售票"
      Begin VB.Menu xscp 
         Caption         =   "銷售車票"
      End
      Begin VB.Menu ydcp 
         Caption         =   "預(yù)訂車票"
      End
      Begin VB.Menu tp 
         Caption         =   "退票"
      End
   End
   Begin VB.Menu cx 
      Caption         =   "查詢"
      Begin VB.Menu cccx 
         Caption         =   "車次查詢"
      End
      Begin VB.Menu skbcx 
         Caption         =   "時(shí)刻表查詢"
      End
      Begin VB.Menu spqkcx 
         Caption         =   "售票情況查詢"
      End
   End
   Begin VB.Menu dd 
      Caption         =   "調(diào)度"
      Begin VB.Menu yjxg 
         Caption         =   "運(yùn)價(jià)修改"
      End
      Begin VB.Menu clxg 
         Caption         =   "車輛修改"
      End
      Begin VB.Menu zdzxg 
         Caption         =   "終點(diǎn)站修改"
      End
      Begin VB.Menu ccxg 
         Caption         =   "車次修改"
      End
   End
   Begin VB.Menu wh 
      Caption         =   "維護(hù)"
      Begin VB.Menu cpbxg 
         Caption         =   "車票表修改"
      End
      Begin VB.Menu ydcpbxg 
         Caption         =   "預(yù)訂車票表修改"
      End
      Begin VB.Menu tpbxg 
         Caption         =   "退票表修改"
      End
      Begin VB.Menu mmxg 
         Caption         =   "密碼修改"
      End
   End
   Begin VB.Menu tj 
      Caption         =   "統(tǒng)計(jì)"
      Begin VB.Menu sptj 
         Caption         =   "售票統(tǒng)計(jì)"
      End
      Begin VB.Menu bbdy 
         Caption         =   "報(bào)表打印"
      End
   End
End
Attribute VB_Name = "MDIForm1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub bbdy_Click()
Form19.Show

End Sub

Private Sub cccx_Click()
Form7.Show
End Sub

Private Sub ccxg_Click()
Form13.Show

End Sub

Private Sub clxg_Click()
Form11.Show
End Sub

Private Sub cpbxg_Click()
Form14.Show

End Sub

Private Sub exit_Click()
End

End Sub

Private Sub klxg_Click()
Form2.Show

End Sub



Private Sub MDIForm_Load()
If Form1.Option2 Then
   dd.Visible = False
   wh.Visible = False
Else
   If Form1.Option1.Value Then
      sp.Visible = False
   End If
End If

  
End Sub

Private Sub mmxg_Click()
Form17.Show
Form17.Command1.Visible = True
Form17.Command2.Visible = True
End Sub

Private Sub skbcx_Click()
Form8.Show

End Sub

Private Sub spqkcx_Click()
Form9.Show

End Sub

Private Sub sptj_Click()
Form18.Show
End Sub

Private Sub tp_Click()
Form5.Show

End Sub

Private Sub tpbxg_Click()
Form16.Show
End Sub

Private Sub xscp_Click()
Form3.Show

End Sub

Private Sub ydcp_Click()
Form4.Show

End Sub

Private Sub ydcpbxg_Click()
Form15.Show

End Sub

Private Sub yjxg_Click()
Form10.Show
End Sub

Private Sub zdzxg_Click()
Form12.Show

End Sub