【正文】 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) = 車次 For k = 1 To NC + 1 .TextMatrix(0, k + 1) = 站 amp。把轉發(fā)站作為起點站進行查詢 digeitemp = digein End If End Sub Private Sub Command3_Click() Load map End Sub Private Sub Command4_Click() 39。 Trim() amp。 再掃描整個 MSF1(1)，對于每一條記錄中的每一個車站，再掃描 MSF1(2)中的每一條記錄，如果該記錄中既包含該車站，又包含要查詢的終點站，則該車站符合要求 39。 用于記錄遞歸次數(shù) If digein = 3 Then 39。用于顯示按車站名進行的查詢 showtitle (num) Dim j As Integer Dim i As Integer Dim mrc0 As Set mrc0 = New Set mrc0 = ExecuteSQL(txtsql) If = False Then With MSF1(num) .Rows = 2 .Row = 1 Do While Not .Rows = .Rows + 1 For i = 1 To If (i 1) Null Then .TextMatrix(.Row, i 1) = (i 1) End If Next i .Row = .Row + 1 Loop End With End If Set mrc0 = Nothing End Sub Public Sub showSEdata(s As String, e As String, numb As Integer) 39。用戶選擇了更新數(shù)據(jù)庫 Dim strm As String Dim mrc3 As Set mrc3 = New Set mrc3 = Do While Not For i = 1 To NC strm = Text2(i).Text If strm = Then Exit For End If For j = 0 To If (j) = Trim(strm) Then Exit For End If Next If j Then Trim(strm) End If Next Loop If Mid(, Len() 1, 1) \ Then Open + \ For Output As 1 Else Open + For Output As 1 End If Print 1, CStr() For k = 0 To 1 Print 1, , (k) Next Close 1 Set mrc3 = Nothing Else 39。 其思路是如果在啟動界面中，用戶選擇了更新數(shù)據(jù)庫，則掃描整個數(shù) 據(jù)庫，并把不同的車站加到起始站中 39。 如果要分析數(shù)據(jù)或將數(shù)據(jù)以特定的方式打印出來，請創(chuàng)建一個報表。 如果要搜索并檢索符合指定條件的數(shù)據(jù)，包括來自多個表中的數(shù)據(jù)，就要創(chuàng)建查詢。目前已成為關系數(shù)據(jù)庫的標準語言 Microsoft Access 介紹 : 使用 Microsoft Access，可以在單一的數(shù)據(jù)庫文件中管理所有的信息。 20 世紀 70 年代以后開發(fā)的數(shù)據(jù)庫管理系統(tǒng)產(chǎn)品幾乎都是基于關系的。 第二步：用 Access 建立一個名為 Pad 的數(shù)據(jù)庫，在庫中建立一個表 Myset，給表添加四個字段： backcolor（數(shù)據(jù)）， forecolor(文本）， fontname(文本） ,fontsize（文本）。 ? 定時器類類的控件： 1) Interval 屬性：表示定時的時間間隔 ,以毫秒為單位。 2) Mutselect 屬性 :可以設置列表框為單選或允許多選屬性 . 3) Selectd 屬性 :標示一個數(shù)組 ,數(shù)組各元素為 : 4) Selected(0),selected(1)? ? 滾動條類的控件： 1) Value 屬性：滾動條上滑塊所在位置由 value 值所決定。 4） GotFocus 事件：在對象獲的焦點時發(fā)生。 15) Value 屬性：設置或返回控件的狀態(tài) 。 11) DragIcon 屬性：設置或返回圖標，它將在拖放操作中做為指針顯示。 7) DataFormat 屬性：設置或返回 DataFormat 對象，用于數(shù)據(jù)綁 定。 ? 復選按鈕類的控件： 1) Caption 屬性：缺省為 check1? 。 9） KeyPress 事件：當用戶按下或釋放 ANSI 一個鍵時發(fā)生。 5） GotFocus 事件： 當獲的對象焦點時發(fā)生。 ? 單選按鈕類的常用事件： 1） Click 事件：鼠標單擊控件時發(fā)生。 20) FontName 屬性：設置 /返回控件中顯示文本所用的字體大小。 16) FontBold 屬性：設置 /返回字體粗體樣式。 12) DisabledPicture 屬性：設置 /返 回一個對圖像的引用，該圖片在控件無效時顯示在控件中。 8) BackColor 屬性：設置 /返回背景色。 4) Index 屬性：屬性值表示為單選按鈕組成的控件中某個按鈕的索引值。 8) Alignment 屬性：設定控件中的文本對其方式 9) Appearance 屬性：設定一個對象在運行時是否可以 3D 效果顯示。 4) Scrollbars 屬性：該屬性決定是否為文本框加滾動條。 3) Backstyle 屬性：用以指示標簽是否透明 . 4) Bordstyle 屬性 :用以設定控件是否有邊框。 8） MouseMove 事件：當命令按鈕上移動鼠標時發(fā)生。 2） 獲得焦點―― GotFocus 事件 （ 1） 觸發(fā)與適用 當命令按鈕獲得焦點產(chǎn)生該事件，獲得焦點可以通過諸如Tab 切換或單擊對象之類的用戶動作，或在代碼中用SetFocus 方法改變焦點來實現(xiàn)。 ? 命令按鈕類的事件： 1） 單擊事件―― Click 事件 （ 1） 觸發(fā)與適用 此事件是在一個命令按鈕對象上按下然后釋放一個鼠標按鈕時發(fā)生。 5) Cancel 屬性：該屬性決定按鈕是否為一個 ” 取消 ” 按鈕。在眾多的開發(fā)工具中，我們?yōu)槭裁匆x擇Visual 呢？因為 VB 具有眾多其它開發(fā)工具所沒有的優(yōu)點！具體介紹如下： ? 開發(fā)的高效 ? 語言的高效 ? 編譯的高效 ? 執(zhí)行的高效 ? 維護的高效 基于以上理由，我們毫不憂郁的選擇了 做為我們的開發(fā)工具??！ 主要的控件及其基本屬性，事件簡介 ? 命令按鈕類的控件： 1) Caption 屬性：用來顯示在控件上的標題。而對于后者則要求應用程序功能完備 ,易使用等特點。 因為本人能力有限，加上時間緊迫，所以設計出來的本系統(tǒng)可能功能比較簡單，另外本系統(tǒng)是單機版，不能實現(xiàn)網(wǎng)絡互聯(lián)操作 ,這些都有待于我在以后的工作學習中進一步改進。 公交車查詢 管理系統(tǒng) 是典型的信息管理系統(tǒng) (MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面 。以前開發(fā) Windows 應用軟件是專業(yè)人員的工作，需要掌握許多專業(yè)知識和經(jīng)過特殊的培訓才能勝任。 隨著科學技術的不斷提高 ,計算機科學日漸成熟 ,其強大的功能已為人們深刻認識 ,它已進入人類社會的各個領域并發(fā)揮著越來越重要的作用。 它已經(jīng)深入到 日常工作和生活的方方面面，比如文字處理、信息管理、輔助設計、圖形圖像處理、教育培訓以及游戲娛樂等?，F(xiàn)在不同了，即使你沒有接受過嚴格的程序設計訓練，使用 Visual Basic 也一樣能夠開發(fā)出功能強大、適合自己特殊需求的應 用程序了。對于前者要求建立起數(shù)據(jù)一致性和完整性強、數(shù)據(jù)安全性好的庫。 關鍵字 :公交車查詢 管理 ,MIS,visual basic ,數(shù)據(jù)庫 Abstract With economic development, social progress, the puter and went to work learning and our daily lives, we bee an indispensable tool in everyday life. As science and technology continue to improve, puter science increasingly mature, and its powerful functions for the people to deeply understand that it has entered human society in various fields and is playing an increasingly important role. It has to go down to the daily work and life, such as word processing, information management, aided design, graphics a