mdiform1.frm

车站管理系统用ASP和SQL2000开发出来的适用于小型车站

VERSION 5.00
Begin VB.MDIForm MDIForm1 
   BackColor       =   &H8000000C&
   Caption         =   "车站售票管理系统"
   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         =   "预订车票"
      End
      Begin VB.Menu tp 
         Caption         =   "退票"
      End
   End
   Begin VB.Menu cx 
      Caption         =   "查询"
      Begin VB.Menu cccx 
         Caption         =   "车次查询"
      End
      Begin VB.Menu skbcx 
         Caption         =   "时刻表查询"
      End
      Begin VB.Menu spqkcx 
         Caption         =   "售票情况查询"
      End
   End
   Begin VB.Menu dd 
      Caption         =   "调度"
      Begin VB.Menu yjxg 
         Caption         =   "运价修改"
      End
      Begin VB.Menu clxg 
         Caption         =   "车辆修改"
      End
      Begin VB.Menu zdzxg 
         Caption         =   "终点站修改"
      End
      Begin VB.Menu ccxg 
         Caption         =   "车次修改"
      End
   End
   Begin VB.Menu wh 
      Caption         =   "维护"
      Begin VB.Menu cpbxg 
         Caption         =   "车票表修改"
      End
      Begin VB.Menu ydcpbxg 
         Caption         =   "预订车票表修改"
      End
      Begin VB.Menu tpbxg 
         Caption         =   "退票表修改"
      End
      Begin VB.Menu mmxg 
         Caption         =   "密码修改"
      End
   End
   Begin VB.Menu tj 
      Caption         =   "统计"
      Begin VB.Menu sptj 
         Caption         =   "售票统计"
      End
      Begin VB.Menu bbdy 
         Caption         =   "报表打印"
      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