form5.frm

车次查询－输入要查询的车次既可查询车次所有的停靠站 站点查询－输入一个站点

VERSION 5.00
Begin VB.Form about_frm 
   BorderStyle     =   1  'Fixed Single
   Caption         =   "你想了解更多吗？？？"
   ClientHeight    =   7620
   ClientLeft      =   345
   ClientTop       =   765
   ClientWidth     =   9585
   LinkTopic       =   "Form5"
   MaxButton       =   0   'False
   Picture         =   "Form5.frx":0000
   ScaleHeight     =   7301.848
   ScaleMode       =   0  'User
   ScaleWidth      =   9014.106
   WindowState     =   2  'Maximized
   Begin VB.Menu driver_message 
      Caption         =   "公交车司机基本信息"
      Begin VB.Menu select_driver 
         Caption         =   "查询司机基本信息"
         Shortcut        =   ^C
      End
      Begin VB.Menu comment_driver 
         Caption         =   "对司机发表评论"
         Shortcut        =   ^E
      End
   End
   Begin VB.Menu famous 
      Caption         =   "南昌市旅游景点"
      Begin VB.Menu luyou1 
         Caption         =   "南昌市旅游景点之一"
      End
      Begin VB.Menu luyou2 
         Caption         =   "南昌市旅游景点之二"
      End
   End
   Begin VB.Menu fu 
      Caption         =   "辅助功能"
      Begin VB.Menu jisuan 
         Caption         =   "计算器"
         Shortcut        =   ^G
      End
      Begin VB.Menu wan 
         Caption         =   "小游戏"
         Begin VB.Menu zhifa 
            Caption         =   "指法练习"
            Shortcut        =   ^B
         End
         Begin VB.Menu fang 
            Caption         =   "俄罗斯方块"
            Shortcut        =   ^A
         End
      End
   End
   Begin VB.Menu advise 
      Caption         =   "市民意见"
   End
   Begin VB.Menu jita 
      Caption         =   "其它市公交车查询"
      Begin VB.Menu jiujiang 
         Caption         =   "九江市公交车查询"
         Shortcut        =   ^I
      End
      Begin VB.Menu wuzhou 
         Caption         =   "抚洲市公交车查询"
         Shortcut        =   ^J
      End
      Begin VB.Menu jian 
         Caption         =   "吉安市公交车查询"
         Shortcut        =   ^S
      End
   End
   Begin VB.Menu exit 
      Caption         =   "退出"
   End
End
Attribute VB_Name = "about_frm"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False


Private Sub advise_Click()
 advise_frm.Show
 
End Sub



Private Sub exit_Click()
 End
End Sub



Private Sub Form_Load()
 ' Cmb2.Enabled = Not Cmb1.Enabled
   Dim conn As ADODB.Connection
   Set conn = New ADODB.Connection
   conn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db1.mdb"
   conn.Open
   
  ' Ado.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + App.Path + "\db1.mdb"
    
   ' Ado.CommandType = adCmdText
    ' Ado.RecordSource = "select * from driver_message"
     'Ado.RecordSource = "select * from bus_se"
     'Ado.RecordSource = "select * from rotuie"
     'Ado.RecordSource = "select * from db1"

   ' Ado.Refresh
   
   ' For a = 0 To Ado.Recordset.RecordCount - 1
     '   Combo1.AddItem Ado.Recordset.Fields(0)
     '   Ado.Recordset.MoveNext
   ' Next
    
End Sub

Private Sub jian_Click()
  jian_frm.Show
  
End Sub

Private Sub jisuan_Click()
  jisuan_frm.Show
  
End Sub

Private Sub jiujiang_Click()
 jiujiang_frm.Show
 
End Sub


Private Sub luyou1_Click()
 famous_frm.Show
End Sub

Private Sub luyou2_Click()
 famous2_frm.Show
End Sub

Private Sub select_driver_Click()
  driver_frm.Show
End Sub



Private Sub wuzhou_Click()
wuzhou_frm.Show

End Sub

Private Sub zhifa_Click()
  zhifa_frm.Show
  
End Sub