公交車(chē)查詢(xún)管理系統(tǒng)—畢業(yè)設(shè)計(jì)論文-資料下載頁(yè)

【導(dǎo)讀】工作學(xué)習(xí)及生活中，成為我們?nèi)粘Ｉ钪胁豢扇鄙俚妮o助工具。它已經(jīng)深入到日常工作和生活的方方面面，比如文字處理、信息。管理、輔助設(shè)計(jì)、圖形圖像處理、教育培訓(xùn)以及游戲娛樂(lè)等。然而，雖然現(xiàn)在世界上已經(jīng)充滿(mǎn)了多如牛毛的各種軟件，但它。以前開(kāi)發(fā)Windows應(yīng)用軟件是專(zhuān)業(yè)人員的工作，需要。掌握許多專(zhuān)業(yè)知識(shí)和經(jīng)過(guò)特殊的培訓(xùn)才能勝任。發(fā)出功能強(qiáng)大、適合自己特殊需求的應(yīng)用程序了。來(lái)幫助人們進(jìn)行更有效的公交車(chē)路線查詢(xún)。以及前端應(yīng)用程序的開(kāi)發(fā)兩個(gè)方面。對(duì)于前者要求建立起數(shù)據(jù)一致性。和完整性強(qiáng)、數(shù)據(jù)安全性好的庫(kù)。備,易使用等特點(diǎn)。而簡(jiǎn)潔操縱數(shù)據(jù)庫(kù)的智能化對(duì)象,首先在短時(shí)間內(nèi)建立系統(tǒng)應(yīng)用原型,滿(mǎn)意的可行系統(tǒng)。都有待于我在以后的工作學(xué)習(xí)中進(jìn)一步改進(jìn)。

　　

【正文】 = 1 = False = False MSF1(0).Visible = True MSF1(1).Visible = False MSF1(2).Visible = False txtsql = select *from bus where number = 39。 amp。 Trim() amp。 39。 showdata 0 = True End Sub Private Sub Command2_Click() = 查找經(jīng)過(guò)站點(diǎn)最小的線路 gcaf = 2 If = Then MsgBox 您沒(méi)有輸入要查詢(xún)的起點(diǎn)站 !, vbInformation + vbOKOnly, 提示 ! Exit Sub End If If = Then MsgBox 您沒(méi)有輸入要查詢(xún)的終點(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。把轉(zhuǎn)發(fā)站作為終點(diǎn)站進(jìn)行查詢(xún) digeitemp = digein digein = 0 showSEdata , , 2 39。把轉(zhuǎn)發(fā)站作為起點(diǎn)站進(jìn)行查詢(xún) digeitemp = digein End If End Sub Private Sub Command3_Click() Load map End Sub Private Sub Command4_Click() 39。以下代碼寫(xiě)得不是很好 ,有點(diǎn)亂的感覺(jué) 39。其思路是先統(tǒng)計(jì)要經(jīng)過(guò)的車(chē)站個(gè)數(shù)，再把最小車(chē)站個(gè)數(shù)的線路顯示出來(lái) 39。還有要注意的一點(diǎn)是在顯示出了最近車(chē)站的線路后，為了返回開(kāi)始查詢(xún)到的線路，我用了 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。 CStr(k) Next .TextMatrix(0, NC + 2) = 備注 End With For s = 0 To MSF1(1).Rows 1 If alloks(s) = intmin Then For r = 0 To NC + 4 If MSF1(1).TextMatrix(s, r) = Then Exit For End If MSF1(0).TextMatrix(rs, r) = MSF1(1).TextMatrix(s, r) Next rs = rs + 1 End If Next MSF1(0).Refresh Else intpart = MSF1(1).Rows ReDim alloks(MSF1(1).Rows + MSF1(2).Rows) MSF1(0).Clear MSF1(0).Rows = MSF1(1).Rows + MSF1(2).Rows For k = 0 To MSF1(1).Rows 1 intcount = 9999 bfin = False For t = 0 To NC + 2 If MSF1(1).TextMatrix(k, t) = Then Exit For End If MSF1(0).TextMatrix(k, t) = MSF1(1).TextMatrix(k, t) If bfin = False Then If = MSF1(1).TextMatrix(k, t) Or = MSF1(1).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(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) = 車(chē)次 For k = 1 To NC + 1 .TextMatrix(0, k + 1) = 站 amp。 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) = 車(chē)次 For k = 1 To NC + 1 .TextMatrix(0, k + 1) = 站 amp。 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