【正文】 r(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).Clear Else = 查找經(jīng)過站點(diǎn)最小的線路 MSF1(1).Clear With MSF1(1) .TextMatrix(0, 1) = 車次 For k = 1 To NC + 1 .TextMatrix(0, k + 1) = 站 amp。各個(gè)用戶對(duì)數(shù)據(jù)的觀點(diǎn)可能不一樣，信息處理需求也可能不同。因此，該系統(tǒng)需滿足以下幾方面需求： 查詢功能：系統(tǒng)需要提供幾種不同方式的查詢手段，以實(shí)現(xiàn)靈活方便地管理整個(gè)系統(tǒng)。查詢還可以對(duì)一組數(shù)據(jù)執(zhí)行操作，如更新或刪除某組記錄。視窗系統(tǒng)已經(jīng)成為一個(gè)特別豐富的環(huán)境，可使應(yīng)用程序彼此交流和共享數(shù)據(jù)。這樣，在學(xué)習(xí) Visual Basic 中得到的經(jīng)驗(yàn)可應(yīng)用到所有這些領(lǐng)域中。 軟件平臺(tái)是指系統(tǒng)開發(fā)與運(yùn)行的軟件環(huán)境。乘客可以獲得的公交信息很少 ,除去線路 ,站點(diǎn)等基本信息以外 ,有關(guān)班次 ,車輛到離站時(shí)間的信息基本上沒有。其次 ， 在對(duì)公交乘客出行心理特征進(jìn)行分析 的基礎(chǔ)上 ， 考慮了乘客選擇公交線路決策的因素 ， 建立了基于時(shí)間價(jià)值和費(fèi)用價(jià)值的公交線路選擇合理的模型。在城市交通信息服務(wù)需求小的情況下尚可應(yīng)付。所謂 “Visual”指的是開發(fā)圖形用戶界面 (GUI) 的方法。理論上，人們總是能夠通過某種叫做動(dòng)態(tài)數(shù)據(jù)交換（ DDE）的技術(shù)使視窗系統(tǒng)應(yīng)用程序彼此交互。目前的 Access 2021是 Microsoft強(qiáng)大的桌面數(shù)據(jù)庫平臺(tái)的第六代產(chǎn)品，是 3 2位 Access 的第三個(gè)版本。 （ 8）模塊是用 Visual Basic for Applications(VBA) 編寫的過程， VBA是 Access的基礎(chǔ)程序設(shè)計(jì)語言。 概念設(shè)計(jì) 概念設(shè)計(jì)的目標(biāo)是產(chǎn)生反映城市公交查詢系統(tǒng)需求的數(shù)據(jù)庫概念結(jié)構(gòu)，即概念模式。 showdata 0 = True End Sub Private Sub Command2_Click() = 查找經(jīng)過站點(diǎn)最小的線路 gcaf = 2 If = Then MsgBox 您沒有輸入要查詢的起點(diǎn)站 !, vbInformation + vbOKOnly, 提示 ! Exit Sub End If If = Then MsgBox 您沒有輸入要查詢的終點(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)亂的感覺 39。 軟件測試是為了發(fā)現(xiàn)程序中的錯(cuò)誤而執(zhí)行程序的過程；好的測試方案是極可能發(fā)現(xiàn)迄今為止尚未發(fā)現(xiàn)的錯(cuò)誤的測試方案；成功的測試是發(fā)現(xiàn)了至今為止尚未發(fā)現(xiàn)的錯(cuò)誤的測試。 因?yàn)樵谲浖庉嫊r(shí)聽取了用戶的意見。面對(duì)專業(yè)知識(shí)不那么深厚的我們，老師們一遍又一遍試圖用最易懂的方式讓我們透徹理解那些高深的專業(yè)理論。ll see you again before we disembark. By the way, better alter your watche sit39。 他 無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到 很大 的提高 ， 這對(duì)于我以 后 的工作和學(xué)習(xí)都 是 巨大的幫助， 在學(xué)術(shù)上指導(dǎo)老師是一個(gè)嚴(yán)謹(jǐn)求實(shí)，認(rèn)真負(fù)責(zé)的人。如要求軟件某一行為的大量重復(fù)、輸入大量的數(shù)據(jù)或大數(shù)值數(shù)據(jù)、對(duì)數(shù)據(jù)庫大量復(fù)雜的查詢等。在軟件生命周期的每個(gè)階段都不可避免地回產(chǎn)生差錯(cuò)。用來標(biāo)志用什么方式來進(jìn)行查詢 For i = 0 To NC Text2(i).Visible = False Next bcb1 = False bcbm = False bcbe = False bcbs = False digein = 0 digeitemp = 0 showtitle (0) 39。 實(shí)體和屬性的定義如下： 站點(diǎn)（站點(diǎn)編號(hào)，站點(diǎn)名稱，站點(diǎn)類別） 線路（線路編號(hào)，始發(fā)時(shí)間，終發(fā)時(shí)間，備注） 線路站點(diǎn)對(duì)應(yīng)（線路編號(hào)，站點(diǎn)名稱） 城市交通查詢系統(tǒng) 按車次查詢 按起終點(diǎn)站查詢 第四章 系統(tǒng)實(shí)現(xiàn) 本系統(tǒng)可以查詢各個(gè)車次的各個(gè)站點(diǎn) ,用戶可以清楚該線路各個(gè)站點(diǎn)的名稱 ,本系統(tǒng)操作簡單 ,適合大眾用戶使用 . 本模塊界面如下所示 : 主要代碼如下 : Private Sub Command1_Click() If = Then MsgBox 您沒有輸入要查詢的車次 !, vbInformation + vbOKOnly, 提示 ! Exit Sub End If gcaf = 1 = False = False MSF1(0).Visible = True MSF1(1).Visible = False MSF1(2).Visible = False txtsql = select *from bus where number = 39。 系統(tǒng)功能模塊劃分 公交查詢系統(tǒng)功能劃分模塊如下： 查詢系統(tǒng)模塊 該模塊實(shí)現(xiàn)公交查詢功能。 （ 5）報(bào)表是一個(gè) Access 對(duì)象，設(shè)計(jì)來顯示數(shù)據(jù)，其作用類似于窗體，但主要是用于數(shù)據(jù)打印，不能輸入數(shù)據(jù)。雖然它沒有象 Visual 所引起的那樣激動(dòng)人心，但它還是在某些方面做了一些有用的改進(jìn)。到了 Visual 時(shí)，開始正式地采用面向?qū)ο蠹夹g(shù)，其有一個(gè)重要的新特性就是可擁有對(duì)象變量，并把 Variant 型變量作為缺省數(shù)據(jù)類型變量。 開發(fā)工具 在確定了操作系統(tǒng)后，就該選擇開發(fā)工具了。在我國一些城市中 ,有不少裝飾華美的公交站臺(tái) ,但在這些站臺(tái)上卻找不到實(shí)用的城市交通圖。城市公交查詢系統(tǒng) 目 錄 第一章 緒論 ......................................................................................... 3 第二章 開發(fā)語言介紹 ............................................................................ 4 系統(tǒng)開發(fā)環(huán)境 ................................................................................. 4 開發(fā)工具 ......................................................................................... 4 Visual Basic的簡介 ................................................................... 4 ACCESS簡介 .................................................................................. 5 第三章 需求分析 ................................................................................. 7 第四章 系統(tǒng)實(shí)現(xiàn) ............................................................................... 10 ............................................................................. 10 ..................................................................... 20 中轉(zhuǎn)站模塊 ................................................................................... 20 第五章 軟件測試 ............................................................................... 31 致 謝 ................................................................................................... 33 參考文獻(xiàn) ............................................................................................... 34 城市公交查詢系統(tǒng) 【 摘要 】 我國城市公交乘客信息系統(tǒng)的發(fā)展處于一個(gè)較落后的水平 ， 廣大乘客可以獲得信息的方式很少 ， 為了解決這種問題 ， 需要大力發(fā)展我國的城市公交乘客信息系統(tǒng)?？偠灾?,我國乘客在出行中無論是 “ 靜態(tài)線路信息 ” 還是 “ 動(dòng)態(tài)實(shí)時(shí)信息 ” 都很難獲得。經(jīng)過了綜合的比較而且最重要的是本人在學(xué)校期間學(xué)習(xí)的就是 Visual Basic。沒過多久 Visual Basic 的下兩個(gè)版本Visual 和 Visual 接踵而至，一種內(nèi)建的新的控件類型 —— 數(shù)據(jù)控件，能夠使創(chuàng)建一個(gè)與數(shù)據(jù)庫交互作用的應(yīng)用程序變得令人驚訝的容易。其最重要的一個(gè)改進(jìn)就是增加了ADO 數(shù)據(jù)控件，它可以縮小本地和遠(yuǎn)程數(shù)據(jù)控件之間的差別。 （ 6）頁是一種特殊類型的窗體，它使用戶能夠利用 Web瀏覽器查看和編輯 Access的表?？蓪?shí)現(xiàn)按起點(diǎn)－中轉(zhuǎn)站－終點(diǎn)查詢查詢和按線路查詢兩種查詢方式。 amp。 = 14321052 For i = 0 To 2 MSF1(i).BackColorBkg = 11763820 Next = Loading ... 正在檢索所有的車站名 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)彈窗 ,意思就是沒有車次是直達(dá)該站的 ,詢問是否要轉(zhuǎn)車 ,點(diǎn)確定的話 ,可以直接查詢轉(zhuǎn)車的路線 本模塊界面如下所示： 中轉(zhuǎn)站模塊 用戶點(diǎn)確定后 ,本系統(tǒng)自動(dòng)列出可轉(zhuǎn)車的車次 ,站點(diǎn) ,中轉(zhuǎn)站名是哪個(gè) ,等等站點(diǎn)信息 .本模塊如下所示 : 主要代碼如下 : Private Sub Command2_Click() = 查找經(jīng)過站點(diǎn)最小的線路 gcaf = 2 If = Then MsgBox 您沒有輸入要查詢的起點(diǎn)站 !, vbInformation + vbOKOnly, 提示 ! Exit Sub End If If = Then MsgBox 您沒有輸入要查詢的終點(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。我們力求在每個(gè)階段結(jié)束之前通過嚴(yán)格的技術(shù)審查，盡可能早