form1.frm

公交查询系统

VERSION 5.00
Begin VB.Form Form1 
   Caption         =   "Form1"
   ClientHeight    =   2265
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   5115
   LinkTopic       =   "Form1"
   ScaleHeight     =   2265
   ScaleWidth      =   5115
   StartUpPosition =   3  '窗口缺省
   Begin VB.CommandButton Command1 
      Caption         =   "Command1"
      Height          =   375
      Left            =   120
      TabIndex        =   5
      Top             =   1440
      Width           =   855
   End
   Begin VB.TextBox Text2 
      Height          =   270
      Left            =   600
      TabIndex        =   1
      Text            =   "Text2"
      Top             =   960
      Width           =   495
   End
   Begin VB.TextBox Text1 
      Height          =   270
      Left            =   600
      TabIndex        =   0
      Text            =   "Text1"
      Top             =   360
      Width           =   495
   End
   Begin VB.Label Label3 
      Caption         =   "终端："
      Height          =   255
      Left            =   0
      TabIndex        =   4
      Top             =   960
      Width           =   615
   End
   Begin VB.Label Label2 
      Caption         =   "始端："
      Height          =   255
      Left            =   0
      TabIndex        =   3
      Top             =   360
      Width           =   615
   End
   Begin VB.Label Label1 
      Caption         =   "Label1"
      Height          =   5655
      Left            =   1440
      TabIndex        =   2
      Top             =   0
      Width           =   8415
   End
End
Attribute VB_Name = "Form1"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
Private Sub Command1_Click()

    Dim rs As New ADODB.Recordset
    Dim zhan()
    
    start = "五泉山下广场"
    end_d = "金运润园"
   
    rs.Open "select * from 公交线路 ", "data source=" & App.Path & "\data\szlz.mdb;provider=microsoft.jet.oledb.4.0"
    
    Do Until rs.EOF
    str1 = rs.Fields(1)
    j = 1
    str1_len = Len(str1)
    For i = 1 To str1_len                ' 计算站个数
       str2 = Mid(str1, i, 1)
       If str2 = "，" Then
       j = j + 1
       End If
    
    Next
    
        ReDim zhan(j)                         ' 定义数组
        j = 0
        jj = 1
                
        
            For i = 1 To str1_len
               str2 = Mid(str1, i, 1)
               If str2 = "，" Then
                
               zhan(j) = Mid(str1, jj, i - jj)         '把车站添加到数组
               jj = i + 1
               j = j + 1
               End If
            Next
          
                For i = 0 To j - 1
                      If start = zhan(i) Then    ' 判断始端
                      
                            
                            For ii = 0 To j - 1
                                  If end_d = zhan(ii) Then                              '判断终端
                                        fangan = fangan & "乘" & rs.Fields(0) & "路车"  '乘几路车
                                        If ii < i Then
                                             For s = i To ii Step -1
                                             fangan = fangan & ",　" & zhan(s)          '沿途车站
                                             Next
                                        
                                        Else
                                             For s = i To ii
                                             fangan = fangan & ",　" & zhan(s)          '沿途车站
                                             Next
                                        End If
                                  
                                  End If
                            
                            Next
                      
                      End If
                Next
        
            rs.MoveNext
        
            Loop
    
Label1.Caption = fangan
End Sub