【正文】 其思路是先統(tǒng)計要經(jīng)過的車站個數(shù)，再把最小車站個數(shù)的線路顯示出來 39。這可是我想了好久才想出來的喲 ^^ = False If bcbm = False Then = 正在搜索中 ... = 11 = 11 = 11 = 11 Dim strs As String Dim strm As String Dim bfirst As Boolean Dim bsec As Boolean Dim mrc3 As Set mrc3 = New Set mrc3 = Dim finishst() As String Dim finnum As Integer finnum = 0 MSF1(1).Clear MSF1(2).Clear Do While Not For i = 1 To NC strs = Text2(i).Text Select Case strs Case Exit For Case With MSF1(1) .Rows = .Rows + 1 For z = 1 To If (z 1) Null Then .TextMatrix(.Row, z 1) = (z 1) End If Next .Row = .Row + 1 End With Case With MSF1(2) .Rows = .Rows + 1 For j = 1 To If (j 1) Null Then .TextMatrix(.Row, j 1) = (j 1) End If Next .Row = .Row + 1 End With End Select Next Loop For k = 0 To MSF1(1).Rows 1 For t = 0 To 1 strs = MSF1(1).TextMatrix(k, t) If strs = Then Exit For End If If finnum = 0 Then ReDim finishst(finnum) finishst(0) = strs Else For c = 0 To finnum If strs = finishst(c) Then Exit For End If Next If c finnum Then ReDim Preserve finishst(finnum) finishst(finnum) = strs finnum = finnum + 1 Else Exit For End If End If For m = 0 To MSF1(2).Rows 1 bfirst = False bsec = False For n = 0 To 1 strm = MSF1(2).TextMatrix(m, n) If strm = Then Exit For End If If strm = strs Then bfirst = True End If If strm = Then bsec = True End If If bfirst And bsec Then Exit For End If Next If bfirst And bsec Then For w = 0 To If (w) = Trim(strs) Then Exit For End If Next If w Then Trim(strs) End If Exit For End If Next Next Next Set mrc3 = Nothing MSF1(1).Clear MSF1(2).Clear = 0 = 0 = 0 = 0 = bcbm = True End If End Sub Private Sub cbs_Change() bcbm = False = = False = False = False showtitle 0 MSF1(0).Visible = True MSF1(1).Visible = False MSF1(2).Visible = False End Sub Private Sub cbs_DropDown() bcbm = False = = False = False = False showtitle 0 MSF1(0).Visible = True MSF1(1).Visible = False MSF1(2).Visible = False End Sub Private Sub cbs_GotFocus() Call cbs_DropDown End Sub Private Sub Combo1_Change() = False = False = False MSF1(0).Visible = True MSF1(1).Visible = False MSF1(2).Visible = False End Sub Private Sub Combo1_DropDown() = False = False = False MSF1(0).Visible = True MSF1(1).Visible = False MSF1(2).Visible = False If bcb1 = False Then Dim mrc1 As Set mrc1 = New Set mrc1 = txtsql = select number from bus Set mrc1 = ExecuteSQL(txtsql) Do While Not (0) Loop = 0 Set mrc1 = Nothing End If bcb1 = True End Sub 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ù)庫，如果在一條記錄中有起點站和終點站則把該記錄加到列表中 39。 如果用戶沒有選擇更新數(shù)據(jù)庫，則直接從文件中讀取車站存放在起始站中 39。 如果要簡單地直接在某個表中查看、輸入及更改數(shù)據(jù)，請創(chuàng)建一個窗體。 關系數(shù)據(jù)庫系統(tǒng)與非關系數(shù)據(jù)庫系統(tǒng)的區(qū)別是：關系系統(tǒng)只有 “ 表 “ 這一種數(shù)據(jù)結構；而非關系數(shù)據(jù)庫系統(tǒng)還有其他數(shù)據(jù) 結構，對這些數(shù)據(jù)結構有其他的操作。為 false 時處于休眠狀態(tài) . 數(shù)據(jù)庫連接方式選擇 Visual 連接數(shù)據(jù)庫的主要方式以下幾種方式：一是： 用 data 控件進行數(shù)據(jù)庫鏈接 ，二是 利用 adodc（ ADO Data Control)進行數(shù)據(jù)庫鏈接 。 6） OLEDragDrag 事件：當源部件決定放操作能發(fā)生，卻源部件被放到目標部件時，此事件發(fā)生。 13) Font 屬性：設置或返回字體的屬性。 5) DataChangeed 屬性：設置 /返回一個值，指出被綁定的控件中的數(shù)據(jù)已經(jīng)被某進程修改。 7） KeyDown 事件：當控件具有焦點時按下一個鍵時發(fā)生。 23) MaskColor 屬性：設置 /返回一個在控件的圖片中作為掩碼的顏色。 14) DragMode 屬性：設置 /返回一個值，確定在拖放操作中所用的方式。 6) Value 屬性：反映控件狀態(tài)的屬性 ,返回 true 表示已選擇了該按鈕。 6) Change 事件屬性：文本框的內(nèi)容發(fā)生改變時 ,相應的控件之間發(fā)生相應的改變 ,具有即時性。 ? 標簽框類的控件類的控件： 1) Caption 屬性：在應用程序界面上加入說明。 （ 2） 事件處理過程 按鈕單擊事件的處理過程為： Private Sub objectClick（ Index As Integer） 其中 Object 為引發(fā)該事件的對象名稱。 3) Appearance 屬性：值為 1 時 ,則以 3D 效果顯示該控件 ,0 則不然。 公交車查詢 管理系統(tǒng) 是典型的信息管理系統(tǒng) (MIS),其開發(fā)主要包括后臺數(shù)據(jù)庫的建立和維護以及前端應用程序的開發(fā)兩個方面。 Visual Basic 繼承了 Basic 語言易學易用的特點，特別適合于初學者學習 Windows 系統(tǒng)編程。 畢業(yè)設計 公交車查詢 管理系統(tǒng) 摘 要 ???????????????????????????? 1 Abstract???????????????????????????2 第一章 引言 ????????????????????????? 4 1． 1 課題背景 ?????????????????????????? 4 1． 2 系統(tǒng)簡介?????????????????????? ???? 5 1. 3 開發(fā)軟件介紹 ……………………………………………………………… 6 第 二章 系統(tǒng)的分析???????????????????? ??? 8 2． 1 系統(tǒng)開發(fā)的目標和思想?????????????????? ?? 9 2． 2 系統(tǒng)的可行性分析???????????????????? ?? 13 第三章 系統(tǒng)的設計 ???????????????????????1 8 3． 1 系統(tǒng)的功能結構設計????????????????????? 18 3． 2 系統(tǒng)的數(shù)據(jù)庫設計 3． 3 界面設計與代碼設計?????????????????????????? 23 ????????????????? ????? 24 結束語 ??????????????????????????????4 6 致謝 ???????????????????????????????4 7