【正文】 = 14321052For i = 0 To 2MSF1(i).BackColorBkg = 11763820Next = Loading ... 正在檢索所有的車站名Call showallstationFor s = 0 To (s)Next 0 = 初始化成功!Unload loadformEnd SubPrivate Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer)EndEnd SubPrivate Sub MSF1_DblClick(Index As Integer)gindex = Index 39。 CStr(k) Next .TextMatrix(0, NC + 2) = 備注 End With For Y = intpart To MSF1(0).Rows 1 For X = 0 To NC + 4 If MSF1(0).TextMatrix(Y, X) = Then Exit For End If MSF1(2).TextMatrix(Y intpart, X) = MSF1(0).TextMatrix(Y, X) Next MSF1(2).TextMatrix(Y intpart, NC + 2) = MSF1(0).TextMatrix(Y, NC + 2) Next MSF1(2).Refresh MSF1(0).ClearEnd IfEnd IfEnd IfEnd SubPrivate Sub Form_Load() = Loading ... 正在聯(lián)接所需的數(shù)據(jù)庫 = connstring = adCmdTable = bus = Loading ... 正在初始化所需控件tm = 0 = False = Falsegcaf = 0 39。 CStr(k) Next .TextMatrix(0, NC + 2) = 備注 End With For Y = 0 To MSF1(1).Rows 1 For X = 0 To NC + 2 If MSF1(1).TextMatrix(Y, X) = Then Exit For End If MSF1(0).TextMatrix(Y, X) = MSF1(1).TextMatrix(Y, X) Next MSF1(0).TextMatrix(Y, NC + 2) = MSF1(1).TextMatrix(Y, NC + 2) Next MSF1(0).Refresh MSF1(1).ClearElse = 查找經(jīng)過站點最小的線路 MSF1(1).Clear With MSF1(1) .TextMatrix(0, 1) = 車次 For k = 1 To NC + 1 .TextMatrix(0, k + 1) = 站 amp。 CStr(k) Next .TextMatrix(0, NC + 2) = 備注 End With For s = 0 To intpart 1 If alloks(s) = intmin Then For r = 0 To NC + 4 If MSF1(0).TextMatrix(s, r) = Then Exit For End If MSF1(1).TextMatrix(rs, r) = MSF1(0).TextMatrix(s, r) Next rs = rs + 1 End If Next MSF1(1).Refresh intmin = 9999 For k = 0 To MSF1(2).Rows 1 intcount = 9999 bfin = False For t = 0 To NC + 2 If MSF1(2).TextMatrix(k, t) = Then Exit For End If MSF1(0).TextMatrix(k + MSF1(1).Rows, t) = MSF1(2).TextMatrix(k, t) If bfin = False Then If = MSF1(2).TextMatrix(k, t) Or = MSF1(2).TextMatrix(k, t) Then If intcount = 9999 Then intcount = 0 Else intcount = intcount + 1 bfin = True End If Else If intcount 9999 Then intcount = intcount + 1 End If End If End If Next MSF1(0).TextMatrix(k, NC + 2) = MSF1(2).TextMatrix(k, NC + 2) alloks(oksn) = intcount oksn = oksn + 1 If intcount intmin Then intmin = intcount End If Next MSF1(2).Clear With MSF1(2) .TextMatrix(0, 1) = 車次 For k = 1 To NC + 1 .TextMatrix(0, k + 1) = 站 amp。還有要注意的一點是在顯示出了最近車站的線路后，為了返回開始查詢到的線路，我用了MSF1(i)做為存儲Dim intmin As IntegerDim intcount As IntegerDim alloks() As IntegerDim rs As IntegerDim oksn As IntegerDim strbij As StringDim bfin As Booleanintmin = 10000If gcaf = 2 ThenIf = 查找經(jīng)過站點最小的線路 Then = 返回 oksn = 0If MSF1(0).Visible = True Then ReDim alloks(MSF1(0).Rows) MSF1(1).Clear MSF1(1).Rows = MSF1(0).Rows For k = 0 To MSF1(0).Rows 1 intcount = 9999 bfin = False For t = 0 To NC + 2 If MSF1(0).TextMatrix(k, t) = Then Exit For End If MSF1(1).TextMatrix(k, t) = MSF1(0).TextMatrix(k, t) If bfin = False Then If = MSF1(0).TextMatrix(k, t) Or = MSF1(0).TextMatrix(k, t) Then If intcount = 9999 Then intcount = 0 Else intcount = intcount + 1 bfin = True End If Else If intcount 9999 Then intcount = intcount + 1 End If End If End If Next MSF1(1).TextMatrix(k, NC + 2) = MSF1(0).TextMatrix(k, NC + 2) alloks(oksn) = intcount oksn = oksn + 1 If intcount intmin Then intmin = intcount End If Next MSF1(0).Clear rs = 1 With MSF1(0) .TextMatrix(0, 1) = 車次 For k = 1 To NC + 1 .TextMatrix(0, k + 1) = 站 amp。以下代碼寫得不是很好,有點亂的感覺39。把轉(zhuǎn)發(fā)站作為終點站進行查詢 digeitemp = digein digein = 0 showSEdata , , 2 39。 39。 amp。該算法有一大好處是極大的提高了查詢的速度，因為，在掃描整個數(shù)據(jù)庫時，沒有內(nèi)循環(huán)。 其思路是先掃描整個數(shù)據(jù)庫，把有起始站的車站名的記錄存放在MSF1(1)中，把有終點站的車站名的記錄存放在MSF1(2)中39。第三次遞歸的時候，退出 a = MsgBox(沒有直達的車次!您是否需要轉(zhuǎn)車?, vbInformation + vbOKCancel, 詢問) If a = vbOK Then = True = True MSF1(0).Visible = False End IfExit SubEnd Ifshowtitle (numb)Dim j As IntegerDim i As IntegerDim m As IntegerDim k As IntegerDim ball As BooleanDim mrc As Set mrc = New Set mrc = With MSF1(numb) .Rows = 2 .Row = 1 Do While Not ball = False For m = 1 To NC If Text2(m).Text = Trim(s) Then ball = True Exit For End If Next If ball = True Then For k = m To NC If Text2(k).Text = Trim(e) Then Exit For End If Next End If If ball = True And k NC + 1 Then .Rows = .Rows + 1 For i = 1 To If (i 1) Null Then .TextMatrix(.Row, i 1) = (i 1) End If Next i .Row = .Row + 1 End If Loop End With If numb = 0 Then MSF1(0).Visible = True MSF1(1).Visible = False MSF1(2).Visible = False Else If numb = 2 Then MSF1(0).Visible = False MSF1(1).Visible = True MSF1(2).Visible = True End IfEnd IfIf MSF1(0).Row = 1 And numb = 0 ThenCall showSEdata(e, s, numb) End IfIf MSF1(1).Row = 1 And numb = 1 ThenCall showSEdata(e, s, numb) End If If MSF1(2).Row = 1 And numb = 2 ThenCall showSEdata(e, s, numb) End If