VERSION 5.00
Begin VB.Form main 
   Caption         =   "車輛管理"
   ClientHeight    =   7905
   ClientLeft      =   165
   ClientTop       =   735
   ClientWidth     =   11880
   LinkTopic       =   "Form1"
   Picture         =   "main.frx":0000
   ScaleHeight     =   7905
   ScaleWidth      =   11880
   StartUpPosition =   3  '窗口缺省
   Begin VB.Menu shezhi 
      Caption         =   "名稱設置"
      Begin VB.Menu mingcheng 
         Caption         =   "車輛名稱"
      End
      Begin VB.Menu xmmingcheng 
         Caption         =   "項目名稱"
      End
   End
   Begin VB.Menu guanli 
      Caption         =   "車輛管理"
      Begin VB.Menu cheliangjiayou 
         Caption         =   "車輛加油"
      End
   End
   Begin VB.Menu guodaofeikaohe 
      Caption         =   "過道費管理"
      Begin VB.Menu guodaofeiinput 
         Caption         =   "過道費輸入窗口"
      End
      Begin VB.Menu guodaofeitjb 
         Caption         =   "過道費統計表"
      End
   End
   Begin VB.Menu qita 
      Caption         =   "其它費用管理"
      Begin VB.Menu qitainput 
         Caption         =   "其它費用輸入窗口"
      End
      Begin VB.Menu qtchaxun 
         Caption         =   "其他費用查詢窗口"
      End
   End
End
Attribute VB_Name = "main"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub cheliangjiayou_Click()
     jiayou.Show 1
End Sub

Private Sub guodaofeiinput_Click()
      guodaofeiinputb.Show 1
End Sub

Private Sub guodaofeitjb_Click()
     guodaofei.Show 1
End Sub

Private Sub mingcheng_Click()
    cheliangmingcheng.Show 1
End Sub

Private Sub qitainput_Click()
     qitainputb.Show 1
End Sub

Private Sub qtchaxun_Click()
    qitachaxun.Show 1
End Sub

Private Sub xmmingcheng_Click()
    xiangmumingcheng.Show 1
End Sub