【正文】 ll see you again before we disembark. By the way, better alter your watche sit39。s in the niies on the mainland. They chatted for a minute or two. Look, there39。 參考文獻(xiàn) [1]田金 蘭 . Visual Basic 6 使用指南 .電子工業(yè)出版社， 2021 [2]Jeffrey. Visual Basic 6 數(shù)據(jù)庫(kù)訪問技 .機(jī)械工業(yè)出版社， 2021 [3]潘錦平 . 軟件開發(fā)技術(shù) .西安電子科技大學(xué)出版社， 1999 [4]王珊，薩師宣 .數(shù)據(jù)庫(kù)系統(tǒng)概論 .高等教育出版社， 2021 [5]陸麗娜 .軟件工程 .經(jīng)濟(jì)科學(xué)出版社， 2021 [6]（英） John ： 張淮野 ,袁怡等 .數(shù)據(jù)庫(kù)設(shè)計(jì)與編程實(shí)例詳解 —— 使用 Access、SQL與 VB ， [ Database Design and Programming—— with Access， SQL and Visual Basic]，電子工業(yè)出版社， 2021 [7]周國(guó)民 .Visual Basic+Access 數(shù)據(jù)庫(kù)項(xiàng)目開發(fā)實(shí)踐 ,中國(guó)鐵道出版社 ,2021 [8] 何玉潔 .數(shù)據(jù)庫(kù)原理與應(yīng)用教程 , 機(jī)械工業(yè)出版社 ,2021 [9] Hector GarciaMolina Jeffrey Jennifer Widom,譯者 : 楊冬青 徐其鈞 唐世渭 , Database System Implementation 數(shù)據(jù)庫(kù)系統(tǒng)實(shí)現(xiàn) ,機(jī)械工業(yè)出版 社 ,2021 [10]鄭榮貴，黃平，谷會(huì)東 .Visual ，中科多媒體電子出版社，2021 As Alexander went off duty he noticed the bobbing flicker of ships39。面對(duì)專業(yè)知識(shí)不那么深厚的我們，老師們一遍又一遍試圖用最易懂的方式讓我們透徹理解那些高深的專業(yè)理論。 他 無論在理論上還是在實(shí)踐中，都給與我很大的幫助，使我得到 很大 的提高 ， 這對(duì)于我以 后 的工作和學(xué)習(xí)都 是 巨大的幫助， 在學(xué)術(shù)上指導(dǎo)老師是一個(gè)嚴(yán)謹(jǐn)求實(shí)，認(rèn)真負(fù)責(zé)的人。相信 該公交查詢管理系統(tǒng)將是一套公交管理員必不可少的管理軟件。另外，在整個(gè)開發(fā)的過程中，時(shí)間也比較倉(cāng)促。 因?yàn)樵谲浖庉嫊r(shí)聽取了用戶的意見。如要求軟件某一行為的大量重復(fù)、輸入大量的數(shù)據(jù)或大數(shù)值數(shù)據(jù)、對(duì)數(shù)據(jù)庫(kù)大量復(fù)雜的查詢等。 功能測(cè)試：測(cè)試是否滿足開發(fā)要求，是否能夠提供設(shè)計(jì)所描述的功能，是否用戶的需求都得到滿足。 子系統(tǒng)測(cè)試：這個(gè)步驟著重測(cè)試模塊的接口。 軟件測(cè)試是為了發(fā)現(xiàn)程序中的錯(cuò)誤而執(zhí)行程序的過程；好的測(cè)試方案是極可能發(fā)現(xiàn)迄今為止尚未發(fā)現(xiàn)的錯(cuò)誤的測(cè)試方案；成功的測(cè)試是發(fā)現(xiàn)了至今為止尚未發(fā)現(xiàn)的錯(cuò)誤的測(cè)試。在軟件生命周期的每個(gè)階段都不可避免地回產(chǎn)生差錯(cuò)。 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。用來標(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。 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)過站點(diǎn)最小的線路 MSF1(0).Clear With MSF1(0) .TextMatrix(0, 1) = 車次 For k = 1 To NC + 1 .TextMatrix(0, k + 1) = 站 amp。其思路是先統(tǒng)計(jì)要經(jīng)過的車站個(gè)數(shù)，再把最小車站個(gè)數(shù)的線路顯示出來 39。 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。 實(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)操作簡(jiǎn)單 ,適合大眾用戶使用 . 本模塊界面如下所示 : 主要代碼如下 : 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。 設(shè)計(jì)局部的 ER模式 通常，一個(gè)數(shù)據(jù)庫(kù)系統(tǒng)都是為多個(gè)不同用戶服務(wù)的。使 用這三種成分，我們可以建立許多應(yīng)用環(huán)境的 ER模型。 概念設(shè)計(jì) 概念設(shè)計(jì)的目標(biāo)是產(chǎn)生反映城市公交查詢系統(tǒng)需求的數(shù)據(jù)庫(kù)概念結(jié)構(gòu)，即概念模式。 系統(tǒng)功能模塊劃分 公交查詢系統(tǒng)功能劃分模塊如下： 查詢系統(tǒng)模塊 該模塊實(shí)現(xiàn)公交查詢功能。公交查詢系統(tǒng)的應(yīng)用背景為：方便市民搭乘公交車出行；手動(dòng)（目前）、自動(dòng)（將來）、及時(shí)更新查詢數(shù)據(jù)。現(xiàn)在一般按照網(wǎng)絡(luò)覆蓋的地理范圍將計(jì)算機(jī)網(wǎng)絡(luò)分為三類：局域網(wǎng)（ LAN）、城域網(wǎng)（ MAN）、廣域網(wǎng)（ WAN）。 （ 8）模塊是用 Visual Basic for Applications(VBA) 編寫的過程， VBA是 Access的基礎(chǔ)程序設(shè)計(jì)語言。 （ 5）報(bào)表是一個(gè) Access 對(duì)象，設(shè)計(jì)來顯示數(shù)據(jù)，其作用類似于窗體，但主要是用于數(shù)據(jù)打印，不能輸入數(shù)據(jù)。例如，可以設(shè)計(jì)一個(gè)查詢來告知在公司中工作超過 1年的職員有多少。每一行稱為一個(gè)“記錄”，包含與單個(gè)實(shí)體有關(guān)的所有信息，如某個(gè)員工的姓名、性別、所在部門、學(xué)歷等。目前的 Access 2021是 Microso