www.pudn.com > BeiJingBusSerchSystem.rar > main.frm, change:2008-11-26,size:3667b


VERSION 5.00 
Begin VB.Form frmMain  
   Caption         =   "公交查询系统" 
   ClientHeight    =   4080 
   ClientLeft      =   60 
   ClientTop       =   450 
   ClientWidth     =   7740 
   LinkTopic       =   "Form1" 
   ScaleHeight     =   4080 
   ScaleWidth      =   7740 
   StartUpPosition =   2  '屏幕中心 
   Begin VB.CommandButton cmdStation  
      Caption         =   "管理站点" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   14.25 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   735 
      Left            =   5280 
      TabIndex        =   4 
      Top             =   1920 
      Width           =   1695 
   End 
   Begin VB.CommandButton cmdFind  
      Caption         =   "乘车查询" 
      Default         =   -1  'True 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   14.25 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   735 
      Left            =   720 
      TabIndex        =   0 
      Top             =   3000 
      Width           =   6255 
   End 
   Begin VB.CommandButton cmdModi  
      Caption         =   "修改线路" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   14.25 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   735 
      Left            =   3000 
      TabIndex        =   3 
      Top             =   1920 
      Width           =   1695 
   End 
   Begin VB.CommandButton cmdAdd  
      Caption         =   "增加线路" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   14.25 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   735 
      Left            =   720 
      TabIndex        =   1 
      Top             =   1920 
      Width           =   1695 
   End 
   Begin VB.Label Label1  
      AutoSize        =   -1  'True 
      Caption         =   "北京市公交查询系统" 
      BeginProperty Font  
         Name            =   "宋体" 
         Size            =   21.75 
         Charset         =   134 
         Weight          =   400 
         Underline       =   0   'False 
         Italic          =   0   'False 
         Strikethrough   =   0   'False 
      EndProperty 
      Height          =   435 
      Left            =   1920 
      TabIndex        =   2 
      Top             =   600 
      Width           =   3915 
   End 
End 
Attribute VB_Name = "frmMain" 
Attribute VB_GlobalNameSpace = False 
Attribute VB_Creatable = False 
Attribute VB_PredeclaredId = True 
Attribute VB_Exposed = False 
Private Sub cmdAdd_Click()  '增加线路 
    frmAddBus.Show  '显示增加线路窗体 
End Sub 
 
Private Sub cmdFind_Click() '乘车查询 
    frmFind.Show    '显示乘车查询窗体 
End Sub 
 
Private Sub cmdModi_Click() '修改线路 
    frmModifybus.Show   '显示修改线路窗体 
End Sub 
 
Private Sub cmdStation_Click()  '管理站点 
    frmStation.Show  '显示管理站点窗体 
End Sub