【正文】 TextMatrix(0, 1) = 車(chē)次 For k = 1 To NC + 1 .TextMatrix(0, k + 1) = 站 amp。把轉(zhuǎn)發(fā)站作為起點(diǎn)站進(jìn)行查詢 digeitemp = digein End If End Sub Private Sub Command3_Click() Load map End Sub Private Sub Command4_Click() 39。 CStr(k) Next .TextMatrix(0, NC + 2) = 備注 End With For Y = 0 To intpart 1 For X = 0 To NC + 4 If MSF1(0).TextMatrix(Y, X) = Then Exit For End If MSF1(1).TextMatrix(Y, X) = MSF1(0).TextMatrix(Y, X) Next MSF1(1).TextMatrix(Y, NC + 2) = MSF1(0).TextMatrix(Y, NC + 2) Next MSF1(1).Refresh MSF1(2).Clear With MSF1(2) .TextMatrix(0, 1) = 車(chē)次 For k = 1 To NC + 1 .TextMatrix(0, k + 1) = 站 amp。目前軟件測(cè)試仍然是保證軟件質(zhì)量的關(guān)鍵步驟，它是對(duì)軟件規(guī)格說(shuō)明、設(shè)計(jì)和編碼的最后復(fù)審。 對(duì)于以上的幾個(gè)步驟，分別要完成功能測(cè)試、強(qiáng)度測(cè)試及性能測(cè)試、可用性測(cè)試等。具體體現(xiàn)為操作是否方便，用戶界面是否友好等。 盡管該公交查詢管理系統(tǒng)存在著很多不足，但其功能全面、易于日后程序更新、數(shù)據(jù)庫(kù)管理容易、界面友好、操作方便、效率高、安全性好等優(yōu)點(diǎn)是公交查詢管理系統(tǒng)所必需的。是他們不辭辛苦、勤勤懇懇、任勞任怨、不厭其煩地給我們講解計(jì)算機(jī)的專業(yè)課程。s binoculars. Both were shading their eyes. The sun shone everywhere, from above and from below, sparking silver on the water, teeming and gleaming like a shoal of surfacing fish ... Warm enough for you? Ben Bellingham stood between them. Temperature39。s 910 local time, five hours behind England. The bearlike naturalist shambled away. To think Susan had once felt shy, almost frightened of meeting him! She sensed, rather than saw, a new presence and peeked sideways. It was Yves. He was draped over the ship39。 lights far to port and starboard. Sea Shepherd ploughed on towards Miami. 4. All ashore Susan opened her arms, as if to greet a longlost friend. The sun had returnednot the halfhearted, hideandseek sun of recent wee ks. No, this was the real thing, pure gold pouring out of a perfect sky. She felt the warmth seeping deep into her skin. Slowly the shore floated forward to meet them, or so it seemed. Miami! Without asking, she helped herself to the binoculars hanging round Gary39。他不辭辛勞，為我選定課題的研究方向，對(duì)我的課題給予了大量的指導(dǎo)，提出了寶貴的意見(jiàn) ，在此 感謝 他 耐心的輔導(dǎo)。因此，該系統(tǒng)必然會(huì)存在一些缺陷和不足。測(cè)試軟件的運(yùn)行性能，這種測(cè)試常常與強(qiáng)度測(cè)試結(jié)合進(jìn)行，需要事先對(duì)被測(cè)軟件提出性能指標(biāo)，如計(jì)算的精度、記錄的精度、響應(yīng)的時(shí)限和恢復(fù)時(shí)限等。 系統(tǒng)測(cè)試：在這個(gè)測(cè)試步驟中發(fā)現(xiàn)的往往是軟件設(shè)計(jì)中的錯(cuò)誤，也可能發(fā)現(xiàn)需求說(shuō)明中的錯(cuò)誤。我們力求在每個(gè)階段結(jié)束之前通過(guò)嚴(yán)格的技術(shù)審查，盡可能早地發(fā)現(xiàn)并糾正差錯(cuò)。 CStr(k) Next .TextMatrix(0, NC + 2) = 備注 End With rs = 1 For s = intpart To MSF1(1).Rows + MSF1(2).Rows 1 If alloks(s) = intmin Then For r = 0 To NC + 4 If MSF1(0).TextMatrix(s, r) = Then Exit For End If MSF1(2).TextMatrix(rs, r) = MSF1(0).TextMatrix(s, r) Next rs = rs + 1 End If Next MSF1(2).Refresh End If Else If MSF1(0).Visible = True Then = 查找經(jīng)過(guò)站點(diǎn)最小的線路 MSF1(0).Clear With MSF1(0) .TextMatrix(0, 1) = 車(chē)次 For k = 1 To NC + 1 .TextMatrix(0, k + 1) = 站 amp。 = 14321052 For i = 0 To 2 MSF1(i).BackColorBkg = 11763820 Next = Loading ... 正在檢索所有的車(chē)站名 Call showallstation For s = 0 To (s) Next 0 = 初始化成 功 ! Unload loadform End Sub 按起終點(diǎn)站查詢模塊 用戶可以根據(jù)自己的實(shí)際需要 ,輸入自己現(xiàn)在的地點(diǎn) ,再輸入要到達(dá)的地點(diǎn) ,然后點(diǎn)查詢 ,如果出現(xiàn)彈窗 ,意思就是沒(méi)有車(chē)次是直達(dá)該站的 ,詢問(wèn)是否要轉(zhuǎn)車(chē) ,點(diǎn)確定的話 ,可以直接查詢轉(zhuǎn)車(chē)的路線 本模塊界面如下所示： 中轉(zhuǎn)站模塊 用戶點(diǎn)確定后 ,本系統(tǒng)自動(dòng)列出可轉(zhuǎn)車(chē)的車(chē)次 ,站點(diǎn) ,中轉(zhuǎn)站名是哪個(gè) ,等等站點(diǎn)信息 .本模塊如下所示 : 主要代碼如下 : Private Sub Command2_Click() = 查找經(jīng)過(guò)站點(diǎn)最小的線路 gcaf = 2 If = Then MsgBox 您沒(méi)有輸入要查詢的起點(diǎn)站 !, vbInformation + vbOKOnly, 提示 ! Exit Sub End If If = Then MsgBox 您沒(méi)有輸入要查詢的終點(diǎn)站 !, vbInformation + vbOKOnly, 提示 ! Exit Sub End If If = False Or = Then digein = 0 showSEdata , , 0 digeitemp = digein = True Else If Then = True End If digein = 0 showSEdata , , 1 39。還有要注意的一點(diǎn)是在顯示出了最近車(chē)站的線路后，為了返回開(kāi)始查詢到的線路，我用了MSF1(i)做為存儲(chǔ) Dim intmin As Integer Dim intcount As Integer Dim alloks() As Integer Dim rs As Integer Dim oksn As Integer Dim strbij As String Dim bfin As Boolean intmin = 10000 If gcaf = 2 Then If = 查找經(jīng)過(guò)站點(diǎn)最小的線路 Then = 返回 oksn = 0 If 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) = 車(chē)次 For k = 1 To NC + 1 .TextMatrix(0, k + 1) = 站 amp。 amp。 ER模型的操作 在利用 ER模型進(jìn)行數(shù)據(jù)庫(kù)概念設(shè)計(jì)的過(guò)程中，常常需要對(duì) ER圖進(jìn)行種種 變換。可實(shí)現(xiàn)按起點(diǎn)－中轉(zhuǎn)站－終點(diǎn)查詢查詢和按線路查詢兩種查詢方式。 系統(tǒng)功能 基于瀏覽器（ B/S模式）的公交線路分類(lèi)查詢； 數(shù)據(jù)的錄入、修改、添加、刪除。 （ 6）頁(yè)是一種特殊類(lèi)型的窗體，它使用戶能夠利用 Web瀏覽器查看和編輯 Access的表。對(duì)于像 Access 這樣的關(guān)系數(shù)據(jù)庫(kù)管理程序，一個(gè)數(shù)據(jù)庫(kù)通常包含幾個(gè)存放相關(guān)數(shù)據(jù)的不同表。其最重要的一個(gè)改進(jìn)就是增加了ADO 數(shù)據(jù)控件，它可以縮小本地和遠(yuǎn)程數(shù)據(jù)控件之間的差別。它給予了程序員長(zhǎng)期期待的不用離開(kāi) Visual Basic 環(huán)境，就可以創(chuàng)建新的定制控件類(lèi)型和創(chuàng)建其它項(xiàng)目類(lèi)型的能力。沒(méi)過(guò)多久 Visual Basic 的下兩個(gè)版本Visual 和 Visual 接踵而至，一種內(nèi)建的新的控件類(lèi)型 —— 數(shù)據(jù)控件，能夠使創(chuàng)建一個(gè)與數(shù)據(jù)庫(kù)交互作用的應(yīng)用程序變得令人驚訝的容易。專業(yè)人員可以用 Visual Basic 實(shí)現(xiàn)其它任何 Windows 編程語(yǔ)言的功能，而初學(xué)者只要 掌握幾個(gè)關(guān)鍵詞就可以建立實(shí)用的應(yīng)用程序。經(jīng)過(guò)了綜合的比較而且最重要的是本人在學(xué)校期間學(xué)習(xí)的就是 Visual Basic。這些信息系統(tǒng)還處于一種靜態(tài)的公交信息查詢系統(tǒng) ,還不能作到為乘客的出行自動(dòng)的生成出行計(jì)劃或方案?？偠灾?,我國(guó)乘客在出行中無(wú)論是 “ 靜態(tài)線路信息 ” 還是 “ 動(dòng)態(tài)實(shí)時(shí)信息 ” 都很難獲得。本