frmmain.frm

包含了源代码,说明文档和可执行文件.为青岛公交查询系统.实现了模糊查询.

VERSION 5.00
Begin VB.MDIForm frmMain 
   BackColor       =   &H80000011&
   Caption         =   "公交线路查询系统"
   ClientHeight    =   9450
   ClientLeft      =   165
   ClientTop       =   450
   ClientWidth     =   11520
   LinkTopic       =   "MDIForm1"
   LockControls    =   -1  'True
   Picture         =   "frmMain.frx":0000
   StartUpPosition =   2  '屏幕中心
   WindowState     =   2  'Maximized
   Begin VB.Menu Menu_System 
      Caption         =   "用户管理"
      Begin VB.Menu Menu_AddUser 
         Caption         =   "添加用户"
      End
      Begin VB.Menu Menu_ChangePWD 
         Caption         =   "修改密码"
      End
      Begin VB.Menu Menu_Exit 
         Caption         =   "退出系统"
      End
   End
   Begin VB.Menu Demand 
      Caption         =   "公交信息查询"
      Begin VB.Menu Line_Demand 
         Caption         =   "线路查询"
      End
      Begin VB.Menu Platform_Demand 
         Caption         =   "站点查询"
      End
      Begin VB.Menu SEtime_Demand 
         Caption         =   "始末时间查询"
      End
      Begin VB.Menu Place_Demand 
         Caption         =   "地点查询"
      End
   End
   Begin VB.Menu BusProject 
      Caption         =   "乘车方案"
   End
   Begin VB.Menu manager 
      Caption         =   "公交信息管理"
      Begin VB.Menu LineManage 
         Caption         =   "线路管理"
      End
      Begin VB.Menu PlatManage 
         Caption         =   "站点管理"
      End
      Begin VB.Menu Placemanage 
         Caption         =   "地点管理"
      End
   End
   Begin VB.Menu About 
      Caption         =   "关于"
   End
End
Attribute VB_Name = "frmMain"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Option Explicit




Private Sub About_Click()
    frmAbout.Show
    frmAbout.ZOrder 0
End Sub

Private Sub BusProject_Click()
    frmUsePlatform.Show
    frmUsePlatform.ZOrder 0
End Sub

Private Sub Line_Demand_Click()
    frmLine_Demand.Show
    frmLine_Demand.ZOrder 0
End Sub

Private Sub LineManage_Click()
    frmmanageLine.Show
    frmmanageLine.ZOrder 0
End Sub

Private Sub Menu_AddUser_Click()            '添加用户
    frmAddUser.Show
    frmAddUser.ZOrder 0
End Sub


Private Sub Menu_ChangePWD_Click()           '修改密码
    frmChangePWD.Show
    frmChangePWD.ZOrder 0
End Sub


Private Sub Menu_Exit_Click()                '退出系统
    Unload Me
    Exit Sub
End Sub

Private Sub Place_Demand_Click()
    frmUsePlace.Show
    frmUsePlace.ZOrder 0
End Sub



Private Sub Placemanage_Click()
    frmmanagePlace.Show
    frmmanagePlace.ZOrder 0
End Sub

Private Sub Platform_Demand_Click()
    frmPlatform_Demand.Show
    frmPlatform_Demand.ZOrder 0
End Sub

Private Sub PlatManage_Click()
    frmmanagePlat.Show
    frmmanagePlat.ZOrder 0
End Sub

Private Sub SEtime_Demand_Click()
    frmSEtime_Demand.Show
    frmSEtime_Demand.ZOrder 0
End Sub

Private Sub UsePlace_Click()
    frmUsePlace.Show
    frmUsePlace.ZOrder 0
End Sub

Private Sub UsePlatform_Click()
    frmUsePlatform.Show
    frmUsePlatform.ZOrder 0
End Sub