main.frm

来自「是用VB^开发的办公室车辆使用管理软件」· FRM 代码 · 共 81 行

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