【正文】 tcount = 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(1).TextMatrix(k, NC + 2) alloks(oksn) = intcount oksn = oksn + 1 If intcount intmin Then intmin = intcount End If Next MSF1(1).Clear rs = 1 With MSF1(1) .TextMatrix(0, 1) = 車次 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 = 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).Clear End If End If End If End Sub Private Sub Form_Load() = Loading ... 正在聯(lián)接所需的數(shù)據(jù)庫(kù) = connstring = adCmdTable = bus = Loading ... 正在初始化所需控件 tm = 0 = False = False gcaf = 0 39。 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。以下代碼寫得不是很好 ,有點(diǎn)亂的感覺 39。 39。在 ER方法中，局部概念結(jié)構(gòu)又稱為局部 ER模式，其圖形表 示稱為 ER圖。 利用 ER方法的數(shù)據(jù)庫(kù)概念 設(shè)計(jì) 利用 ER方法進(jìn)行數(shù)據(jù)庫(kù)的概念設(shè)計(jì)，可以分成三步進(jìn)行：首先設(shè)計(jì)局部 ER模式，然后把各局部 ER 模式綜合成一個(gè)全局 ER 模式，最后對(duì)全局 ER 模式進(jìn)行優(yōu)化，得到最終的 ER模式，即概念模式。它的主要成分是實(shí)體、聯(lián)系和屬性。該模塊由公交站點(diǎn)管理與公交線路管理兩部分組成 。 打印輸出（暫未實(shí)現(xiàn)）：系統(tǒng)可以將用戶查詢到的內(nèi)容動(dòng)態(tài)地生成報(bào)表，并打印輸出。 應(yīng)用需求分析 要設(shè)計(jì)一個(gè)良好的公交查詢系統(tǒng)，就必須首先明確該應(yīng)用環(huán)境對(duì)系統(tǒng)的要求。 計(jì)算機(jī)網(wǎng)絡(luò)的規(guī)模有大有小，大的可以覆蓋全球，小的僅局限于一個(gè)辦公室?？勺詣?dòng)執(zhí)行一些日常的任務(wù)，以便簡(jiǎn)化在Access中的工作。在 Access 中，可以創(chuàng)建一個(gè)窗體，用來(lái)同時(shí)查閱單個(gè)表或多個(gè)表中的數(shù)據(jù)，還可以打印和顯示窗體。根據(jù)設(shè)計(jì)方法的不同，查詢能夠在數(shù)據(jù)庫(kù)中檢索并組合來(lái)自不同表的數(shù)據(jù)。每一列叫做一個(gè)“字段”，包含特定類型的信息，如姓名或?qū)W歷。 ACCESS 簡(jiǎn)介 數(shù)據(jù)庫(kù)選用 Microsoft 公司的 Access 產(chǎn)品作為數(shù)據(jù)庫(kù)應(yīng)用程序?？梢钥闯鏊度肓讼喈?dāng)一部分的精力去支持微軟日益在Inter 和分布式（網(wǎng)絡(luò)）計(jì)算方面的重視程度。當(dāng) Visual Basic 逐漸復(fù)雜時(shí)，世界已經(jīng)在圍著它轉(zhuǎn)了。其目的就是要使視窗系統(tǒng)下的每一件事情都支持同樣的易于使用的 高級(jí)語(yǔ)言。這種新技術(shù)被稱作為 Visual Basic For Applications，它幫助實(shí)現(xiàn)了 Visual Basic 的最初設(shè)想。 Visual Basic 的最初版本是 Visual ，那時(shí)的 Visual Basic 只是簡(jiǎn)單地以對(duì)象的屬性為中心來(lái)進(jìn)行編程。 Visual Basic 編程系統(tǒng)和 VBA 都使用這一語(yǔ)言。 “Basic”指的是 BASIC (Beginners AllPurpose Symbolist Instruction Code) 語(yǔ)言，一種在計(jì)算技術(shù)發(fā)展歷史上應(yīng)用得最為廣泛的編程 語(yǔ)言。 Visual Basic 的簡(jiǎn)介 首先，我們還從 Visual Basic 這個(gè)名字開始，來(lái)認(rèn)識(shí)這個(gè)軟件。 Visual Basic ，可以快速完成系 統(tǒng)的開發(fā)。 硬件平臺(tái)是指開發(fā)與運(yùn)行所需要的硬件環(huán)境，主要包括計(jì)算機(jī)機(jī)型及硬件配置。 我國(guó)公交乘客信息系統(tǒng)與網(wǎng)絡(luò)的結(jié)合還是低層次的。 目前 ,我國(guó)大多數(shù)城市對(duì)于交通信息的發(fā)布沒有專門的管理機(jī)構(gòu)和規(guī)章制度。 除去在杭州 ,上海等 少數(shù)幾個(gè)城市 ,乘客可以通過(guò)分布于城市中的若干電子站牌獲得一些公交車輛的運(yùn)營(yíng)信息以外 ,在其它城市 “ 出行中 ” 的乘客無(wú)法獲得任何實(shí)時(shí)信息。我國(guó)公交乘客信息系統(tǒng)的現(xiàn)狀特點(diǎn)如下 : 乘客可以獲得的公交信息很少 ,而且方式主要是常規(guī)手段。最后完成功能介紹和使用說(shuō)明。在設(shè)計(jì)過(guò)程中 ，首先分析了我國(guó)城市公交乘客信息系統(tǒng)的發(fā)展現(xiàn)狀 ， 找出問題和不足。出于這個(gè)目的 ，在老師的指導(dǎo)下 ， 我設(shè)計(jì)了這個(gè)城市公交出行線路查詢系統(tǒng)這個(gè)應(yīng)用程序。之后是程序關(guān)鍵部分的具體實(shí)現(xiàn) ,包括關(guān)鍵程序原代碼。 【 關(guān)鍵詞 】 公交查詢 ， VB， 數(shù)據(jù)庫(kù) 第一章 緒論 我國(guó)城市公交乘客信息系統(tǒng)的發(fā)展處于一個(gè)落后的水平 ,廣大乘客可以獲得信息的方式很少 ,公交信息的完整性和準(zhǔn)確性得不到保證 ,而且還沒有專門的機(jī)構(gòu)負(fù)責(zé)信息的發(fā)布和管理。 乘客出行中獲得信息困難 ,基本上沒有實(shí)時(shí)信息。 缺乏專門的交通信息發(fā)布管理機(jī)構(gòu) ,乘客獲得的信息準(zhǔn)確性得不到保證。當(dāng)前的城市交通信息服務(wù)存在著混亂和低效的問題 ,有些甚至是對(duì)乘客的誤導(dǎo)。 第二章 開發(fā)語(yǔ)言介紹 系統(tǒng)開發(fā)環(huán)境 系統(tǒng)開發(fā)環(huán)境包括硬 件平臺(tái)和軟件平臺(tái)兩種。本系統(tǒng)在開發(fā)時(shí)選用了穩(wěn)定性較強(qiáng)的Windows XP 中文專業(yè)版和 Visual 作為開發(fā)語(yǔ)言，開發(fā)出的應(yīng)用系統(tǒng)穩(wěn)定性較高。 先我們來(lái)了介紹一下 Visual Basic 以及微軟提供了哪些特點(diǎn)。如果已使用過(guò)諸如 Paint 之類的繪圖程序，則實(shí)際上已掌握了創(chuàng)建用戶界面的必要技巧。 Visual Basic 不僅是 Visual Basic 編程語(yǔ)言。 接著，我們?cè)購(gòu)?Visual Basic 的發(fā)展歷史來(lái)進(jìn)一步地認(rèn)識(shí)一下它。在微軟的其它應(yīng)用程序，如WORD 字處理軟件、 EXCEL 電子報(bào)表軟件、 ACCESS 數(shù)據(jù)庫(kù)軟件中都做了改變，使得它們可以與 Visual Basic 一致工作。 Visual Basic 的完美之處在于它能使程序員獲得一塊數(shù)據(jù) —— 如報(bào)表，并將它看作是 Visual Basic 的對(duì)象。除了一般應(yīng)用程序外，程序員還能創(chuàng)建文檔、 DLLs、 OLE 服務(wù)器和 ActiveX 控件。我們現(xiàn)在所使用的 Visual 被看著是 Visual Basic 的網(wǎng)絡(luò)版本。換句話說(shuō)，程序員在很大程度上可以與數(shù)據(jù)庫(kù)交互作用，而不用擔(dān)心網(wǎng)絡(luò)上由誰(shuí)來(lái)提供服務(wù)。 （ 2）表是存放數(shù)據(jù)的容器，被設(shè)計(jì)成行和列的格式，就像電子表中的那樣。 （ 3）查詢是一個(gè) Access對(duì)象，它詢問數(shù)據(jù)庫(kù)中有關(guān)數(shù)據(jù)的問題。 （ 4）窗體是一個(gè)窗口，它提供一種很方便的途徑來(lái)查看數(shù)據(jù)庫(kù)中已有記錄或向數(shù)據(jù)庫(kù)中增添新記錄。 （ 7）宏用來(lái)保存 Access 中的一系列操作。 第三章 需求分析 計(jì)算機(jī)網(wǎng)絡(luò)是指將多臺(tái)具有獨(dú)立功能的計(jì)算機(jī)，通過(guò)通信線路和通信設(shè)備連接起來(lái)，在網(wǎng)絡(luò)軟件的支持下實(shí)現(xiàn)數(shù)據(jù)通信和資源共享的計(jì)算機(jī)系統(tǒng)。 公交查詢系統(tǒng)設(shè)計(jì)分析 根據(jù)數(shù)據(jù)庫(kù)系統(tǒng)生存期的設(shè)計(jì)方 法，從數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)和開發(fā)的全過(guò)程來(lái)考慮，將數(shù)據(jù)庫(kù)應(yīng)用系統(tǒng)設(shè)計(jì)分為以下幾個(gè)階段： 1）規(guī)劃； 2）需求分析； 3）概念設(shè)計(jì)； 4）邏輯設(shè)計(jì) ； 5）物理設(shè)計(jì) 。 數(shù)據(jù)的更新修改： 更新：系統(tǒng)允許管理員級(jí)別的用 戶對(duì)數(shù)據(jù)進(jìn)行更新、修改并且存盤操作； 編輯：系統(tǒng)允許管理員級(jí)別的用戶對(duì)數(shù)據(jù)進(jìn)行編輯、刪除的操作，保證現(xiàn)庫(kù)的真實(shí)性與實(shí)時(shí)性。 錄入系統(tǒng)模塊 該模塊實(shí)現(xiàn)數(shù)據(jù)的錄入、修改、刪除功能。 ER模型 ER模型是對(duì)現(xiàn)實(shí)世界的一種抽象。這些變換又稱為 ER 模型的操作，包括實(shí)體類型、聯(lián)系類型和屬性的分裂、合并和增刪等等。在設(shè)計(jì)數(shù)據(jù)庫(kù)概念結(jié)構(gòu)時(shí)，為了更好地模擬現(xiàn)實(shí)世界，一個(gè)有效的策略是 “ 分而治之 ” ，即先分別考慮各個(gè)用戶的信息需求，形成局部概念結(jié)構(gòu)，然后再綜合成全局結(jié)構(gòu)。 Trim() 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)