公交車查詢管理系統—畢業設計論文-免費閱讀

　　

【正文】 其思路是先統計要經過的車站個數，再把最小車站個數的線路顯示出來 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。其思路是掃描整個數據庫，如果在一條記錄中有起點站和終點站則把該記錄加到列表中 39。 如果用戶沒有選擇更新數據庫，則直接從文件中讀取車站存放在起始站中 39。 如果要簡單地直接在某個表中查看、輸入及更改數據，請創建一個窗體。 關系數據庫系統與非關系數據庫系統的區別是：關系系統只有 “ 表 “ 這一種數據結構；而非關系數據庫系統還有其他數據 結構，對這些數據結構有其他的操作。為 false 時處于休眠狀態 . 數據庫連接方式選擇 Visual 連接數據庫的主要方式以下幾種方式：一是： 用 data 控件進行數據庫鏈接 ，二是 利用 adodc（ ADO Data Control)進行數據庫鏈接 。 6） OLEDragDrag 事件：當源部件決定放操作能發生，卻源部件被放到目標部件時，此事件發生。 13) Font 屬性：設置或返回字體的屬性。 5) DataChangeed 屬性：設置 /返回一個值，指出被綁定的控件中的數據已經被某進程修改。 7） KeyDown 事件：當控件具有焦點時按下一個鍵時發生。 23) MaskColor 屬性：設置 /返回一個在控件的圖片中作為掩碼的顏色。 14) DragMode 屬性：設置 /返回一個值，確定在拖放操作中所用的方式。 6) Value 屬性：反映控件狀態的屬性 ,返回 true 表示已選擇了該按鈕。 6) Change 事件屬性：文本框的內容發生改變時 ,相應的控件之間發生相應的改變 ,具有即時性。 ? 標簽框類的控件類的控件： 1) Caption 屬性：在應用程序界面上加入說明。 （ 2） 事件處理過程 按鈕單擊事件的處理過程為： Private Sub objectClick（ Index As Integer） 其中 Object 為引發該事件的對象名稱。 3) Appearance 屬性：值為 1 時 ,則以 3D 效果顯示該控件 ,0 則不然。 公交車查詢 管理系統 是典型的信息管理系統 (MIS),其開發主要包括后臺數據庫的建立和維護以及前端應用程序的開發兩個方面。 Visual Basic 繼承了 Basic 語言易學易用的特點，特別適合于初學者學習 Windows 系統編程。 畢業設計 公交車查詢 管理系統 摘 要 ???????????????????????????? 1 Abstract???????????????????????????2 第一章 引言 ????????????????????????? 4 1． 1 課題背景 ?????????????????????????? 4 1． 2 系統簡介?????????????????????? ???? 5 1. 3 開發軟件介紹 ……………………………………………………………… 6 第 二章 系統的分析???????????????????? ??? 8 2． 1 系統開發的目標和思想?????????????????? ?? 9 2． 2 系統的可行性分析???????????????????? ?? 13 第三章 系統的設計 ???????????????????????1 8 3． 1 系統的功能結構設計????????????????????? 18 3． 2 系統的數據庫設計 3． 3 界面設計與代碼設計?????????????????????????? 23 ????????????????? ????? 24 結束語 ??????????????????????????????4 6 致謝 ???????????????????????????????4 7