【文章內(nèi)容簡介】 2000 (2) = 2000 (3) = 1200 (4) = 1200Set rs = NothingEnd Sub 當兩個線路沒有交叉部分的時候就必須換乘，有時候換乘一次就能夠到達目的地，有時候需要換乘多次才能到達目的地。根據(jù)出行者輸入的起點和終點，確定出行要選擇的起始公交站點A和目的公交站點B。搜索數(shù)據(jù)庫，查詢站點A和站點B之間是否有相同的車經(jīng)過，如果有一條或幾條直達線路，通過比較選擇距離最短的公交線路推薦給出行者。如果沒有，則計算站點A和站點B之間有沒有一個公共站點C，從站點C可以換乘到達站點B。這就有兩種情況：(1)如果有，屬于一次換乘。計算站點A和公共站點C之間有沒有相同的公交車經(jīng)過并存入集合X；同樣，計算站點B和公共站點C之間有沒有相同的公交車經(jīng)過并存入集合Y。將這兩個集合比較后就可以得到從站點A經(jīng)過公共站點C到達站點B的公交線路，在這些線路中進行比較，選擇距離最短的推薦給出行者。（2）如果沒有公共站點C，就出現(xiàn)了要換乘兩次的情況。將經(jīng)過站點A的每條公交線路的所有站點存入集合O；同樣，經(jīng)過站點B的每條線路的所有站點存入集合P。比較這兩個集合，先乘經(jīng)過站點A的某一路車到達某一站點D，計算站點D與站點B之間有沒有公共站點E,如果有則站點D、E為換乘站點。這種方案可能有多種，比較選擇距離最短的推薦給出行者。如果不存在公共站點E，說明經(jīng)過兩次換乘無法從站點A到達站點B，停止搜索計算l 直達算法：當兩個站點之間有直達條件的時候是不需要進行換乘的，可以通過查詢實現(xiàn)直達，直達算法為在起始站點和目的站點選擇一條不用換乘的車次線路。在線路表中查找其實站點的車輛，形成線路A，在在線路表中查找目的站點，形成線路B，線路A和線路B進行比較，當線路A和線路B中有相交的部分時候說明有直達線路，否則無直達線路，需要換乘車次。在SQl中的代碼如下：select 站點 from(select 站點 from 線路表) A,(select 站點 from 線路表) Bwhere = l 一次換乘根據(jù)直達算法，算出起始站的所有車輛信息A，同樣的方式算出目的站點所有車輛信息B，然后通過A與B在線路經(jīng)過站點表中進行比對，找出A與B相交的部分C，由于沒有直達的車輛，所以C為A與B站點相交的信息。因此乘客若需要從其實站點到達目的站點需要在相交信息存在的站點下車，并再次乘坐B車輛信息所包含的車輛才能到達目的地。 select 站點 from(select distinct 站點from 線路表 where線路號 in(select線路號 from 線路過站表where 站點 = 起始站點))A,(select distinct 站點from 線路表 where線路號 in(select線路號 from 線路過站表where 站點 = 起始站點))Bwhere = 多次換乘主要算法代碼如下：Private Sub Command1_Click() Dim rs As New 39。經(jīng)過起點A的線路 Dim ArrS() As String Dim ArrE() As String select 線路 from 線路過站表 where 站點名稱=39。 amp。 Trim(Combo1) amp。 39。, Cnn Set MSH(0).DataSource = rs If = True Then MsgBox 沒有可達線路！ Exit Sub End If = Dim intMaxCol As Integer select 線路 from 線路過站表 where 站點名稱=39。 amp。 Trim(Combo2) amp。 39。, Cnn Set MSH(1).DataSource = rs If = True Then MsgBox 沒有可達線路！ Exit Sub End If Dim strFA As String Dim intFA As Integer intFA = 1 For i = 1 To MSH(0).Rows 1 select * from 線路過站表 where 線路 =39。 amp。 Trim(MSH(0).TextMatrix(i, 0)) amp。 39。 order by 站點序號 desc, Cnn If = False Then ReDim ArrS( 1) For k = 0 To 1 ArrS(k) = Trim((站點名稱)) Next For j = 1 To MSH(1).Rows 1 If Trim(MSH(0).TextMatrix(i, 0)) = Trim(MSH(1).TextMatrix(j, 0)) Then strFA = 乘坐 amp。 Trim(MSH(0).TextMatrix(i, 0)) amp。 直達 amp。 vbCrLf = amp。 intFA amp。 . amp。 strFA intFA = intFA + 1 strFA = Else select * from 線路過站表 where 線路 =39。 amp。 Trim(MSH(1).TextMatrix(j, 0)) amp。 39。 order by 站點序號 desc, Cnn If = False Then ReDim ArrE( 1) For k = 0 To 1 ArrE(k) = Trim((站點名稱)) Next strFA = For m = 0 To UBound(ArrS) For n = 0 To UBound(ArrE) If ArrS(m) = ArrE(n) Then strFA = 乘坐 amp。 Trim(MSH(0).TextMatrix(i, 0)) amp。 到 amp。 ArrS(m) amp。 換乘 amp。 Trim(MSH(1).TextMatrix(j, 0)) amp。 vbCrLf = amp。 intFA amp。 . amp。 strFA intFA = intFA + 1 strFA = End If Next Next Else End If End If Next Else End If Next Set rs = Nothing End Sub VB與SQLSERVER數(shù)據(jù)庫連接使用本系統(tǒng)中VB主要做前臺界面設計和查詢算法，SQL主要做后臺數(shù)據(jù)。在兩者設計完成后需要實現(xiàn)VB和SQl的連接，這樣才能使得系統(tǒng)成為一個有前臺有后臺完整的系統(tǒng)。PrivateSubCommand1_Click()On Error GoTo ErrH = Provider=。Integrated Security=SSPI。Persist Security Info=False。Initial Catalog=公交查詢車系統(tǒng)。Data Source=HACGUOYS17 = adUseClient Exit SubErrH: MsgBox END SUB首先聲明一個數(shù)據(jù)庫連接對象CNN，然后設置數(shù)據(jù)庫連接對象的連接字符串，接著調(diào)用open方法，建立與數(shù)據(jù)庫的連接。 系統(tǒng)的實現(xiàn)l 系統(tǒng)登陸模塊設計 在本模塊中主要實現(xiàn)管理員和用戶的登錄任務，用戶輸入姓名和密碼，系統(tǒng)根據(jù)不同的名稱自動判斷是管理員還是普通用戶，輸入結束后點擊登錄，在用戶名和密碼正確的情況下會進入系統(tǒng)主界面，當用戶輸入錯誤的時候點擊取消可清除輸入的姓名和密碼，等待用戶再次輸入。當用戶輸入次數(shù)超過三次，系統(tǒng)會自動關閉，用戶無再次輸入權限。l 系統(tǒng)主界面設計 進入主界面后系統(tǒng)會根據(jù)用戶身份（管理員或普通用戶）顯示不同的菜單欄，為用戶提供不同的功能。管理員進入系統(tǒng)后可對系統(tǒng)進行維護管理，用戶只能實現(xiàn)查詢，留言功能。系統(tǒng)管理：系統(tǒng)管理中包密碼修改和用戶管理。 用戶管理：實現(xiàn)對用戶的管理，如添加，修改用戶信息，刪除用戶信息和對用戶權限進行設置。密碼修改： 用戶登錄后輸入原始密碼，并輸入新密碼，在再次輸完新密碼后點擊確定便可實現(xiàn)密碼修改。點擊取消返回到主視圖。公交信息管理 公交信息管理是由管理員來實現(xiàn)的，其中包括站點信息管理，線路信息管理,線路站點管理。主要是對信息的錄入，刪除，和修改這三個操作。站點信息管理： 主要實現(xiàn)對站點信息的錄入，在以后線路，站點，乘車方案查詢的時候提供基本站點信息。線路信息管理： 線路管理主要是管理員對線路信息進行操作，如添加信的公交信息，刪除，修改當前改變線路的公交信息。為查詢實現(xiàn)準確性提供可靠保證。線路站點管理： 線路管理主要實現(xiàn)由其實站點到目的站點之間所經(jīng)過站點的管理。其中站點序號是所經(jīng)過站點的序號，線路框里輸入車次，站點中輸入本線路經(jīng)過的站點。點擊添加就會把信息添加到數(shù)據(jù)庫中。并在前臺進行顯示。此管理主要對與用戶線路查詢和乘車方案查詢提供關鍵支持。信息查詢中心：站點查詢：本查詢主要實現(xiàn)站點公交的查詢，輸入站點名稱后，點擊查詢，會出現(xiàn)本站點所有車次。 乘車方案查詢： 用戶輸入其實站點和目的站點和目的站點，點擊查詢，系統(tǒng)經(jīng)過分析會顯示出所有能夠到達的乘車方式，其中有哦路線有直達的，需要換乘的，根據(jù)距離和換乘次數(shù)判斷，會換乘多次。站點信息瀏覽： 信息瀏覽部分主要是提供車次，始發(fā)地，目的地，服務類型等，對公家信息進行全部展示。第6章 運行測試與維護(1)測試是為了發(fā)現(xiàn)程序中的錯誤而執(zhí)行的過程；(2)好的測試方案實際可能發(fā)現(xiàn)迄今為止尚為發(fā)現(xiàn)的錯誤的測試方案；成功的測試是發(fā)現(xiàn)了至今為止尚未發(fā)現(xiàn)的錯誤測試。應當把“盡早地和不斷地進行軟件測試”作為軟件開發(fā)者的座右銘。測試用例應由測試輸入數(shù)據(jù)和與之對應的預期輸出結果兩部分組成。程序員應避免檢查自己的程序。（注意不是指對程序的調(diào)試）在設計測試用例時，應當包括合理的輸入條件和不合理的輸入條件。不合理的輸入條件是指異常的，臨界的，可能引起問題異變的輸入條件。充分注意測試中的群集現(xiàn)象。經(jīng)驗表明，測試后程序殘存的錯誤數(shù)目與該程序中以發(fā)現(xiàn)的錯誤數(shù)目或檢錯率成正比。應該對錯誤群集的程序段進行重點測試。嚴格執(zhí)行測試計劃，排除測試的隨意性。應當對每一個測試結果做全面的檢查。妥善保存測試計劃，測試用例，出錯統(tǒng)計和最終分析報告，為維護提供方便（1）測試乘客登陸是否成功打開公交車查詢信息系統(tǒng)，在“乘客名”里填入001“密碼”框里我們填入001作為乘客登錄密碼。填寫完成點擊“確定”按鈕，將會出現(xiàn)操作程序頁面，即該乘客已經(jīng)登陸成功了。（2）測試其他乘客是否能夠登錄打開公交車查詢信息系統(tǒng)，輸入任意密碼，點擊“登錄”按鈕。將出現(xiàn)密碼出錯提示頁面。然后點“確定”返回旅行社管理系統(tǒng)登錄頁面。（3）測試乘客管理功能是否成功在登錄成功之后，即可進入相應的管理頁面，點擊“乘客管理”，即出現(xiàn)對應管理頁面，即可以修改和刪除乘客的信息資料。點擊“密碼修改”，即出現(xiàn)對應管理頁面，即可以修改自身的密碼。（4）測