公交車查詢管理系統—畢業設計論文(編輯修改稿)

　

【文章內容簡介】 ,以毫秒為單位。 2) Enable 屬性 :為 true 時 (缺省值 ),激活定時器開始計時 。為 false 時處于休眠狀態 . 數據庫連接方式選擇 Visual 連接數據庫的主要方式以下幾種方式：一是： 用 data 控件進行數據庫鏈接 ，二是 利用 adodc（ ADO Data Control)進行數據庫鏈接 。三是 : 利用 DataEnvironment 進行數據庫鏈接 .四是 利用 ADO(ActiveX Data Objects)進行編程 :現在我們來大致對這幾種技術應用介紹： 一、 用 data 控件進行數據庫鏈接 . 第一步：給窗體添加一個 Data 控件。 第二步：用 Access 建立一個名為 Pad 的數據庫，在庫中建立一個表 Myset，給表添加四個字段： backcolor（數據）， forecolor(文本）， fontname(文本） ,fontsize（文本）。注意：請將庫文件存入程序所在目錄。 如果你的機器沒安裝有 Access，可通過 VB 建庫。 二、 利用 adodc（ ADO Data Control)進行數據庫鏈 接： 使用 adodata 控件訪問數據庫可以完全不用編寫代碼 ,只需要通過簡單的設置和操作其屬性就可以實現與數據庫的連接 ,通過綁定數據感知控件 ,就能提供一個訪問數據庫的界面 ,用來實現對數據庫的瀏覽 ,貼加 ,刪除 ,修改等操作 . 三、 利用 DAO 對數據庫進行操縱 : 在 visual basic 中提供了兩種與 jet數據引擎接口的方法 :data控件與數據訪問對象 (DAO)DAO 是 database object 的英文縮寫 ,要訪問數據庫一方面數據庫要提供訪問接口 ,另一方面要在編程環境中有對數據庫的支持 . DAO 模型是設計關系數據庫 系統結構的對象類的集合 .他們提供了管理關系型數據庫系統所需要的全部操作屬性和方法 ,這其中包括建立數據庫 ,定義表 ,字段和建立表間關系 ,定位和查詢數據庫等 . 關系數據庫 介紹 : 關系數據庫是目前各類數據庫中最重要、最流行的數據庫，他應用數學方法來處理數據庫數據，是目前使用最廣泛的數據庫系統。 20 世紀 70 年代以后開發的數據庫管理系統產品幾乎都是基于關系的。在數據庫發展的歷史上，最重要的成就就是關系模型。 關系數據庫系統與非關系數據庫系統的區別是：關系系統只有 “ 表 “ 這一種數據結構；而非關系數據庫系統還有其他數據 結構，對這些數據結構有其他的操作。 結構化查詢語言 SQL（ Structured Query Language）是一種介于關系代數與關系演算之間的語言，其功能包括查詢、操縱、定義和控制四個方面，是一個通用的、功能極強的關系數據庫語言。目前已成為關系數據庫的標準語言 Microsoft Access 介紹 : 使用 Microsoft Access，可以在單一的數據庫文件中管理所有的信息。在這個文件中，用戶可以將自己的數據分別保存在各自獨立的存儲空間中，這些空間稱作表；可以使用聯機窗體來查看、添加及更新表中的數據 ；使用查詢來查找并檢索所要的數據；也可以使用報表以特定的版面布置來分析及打印數據。 如果要保存數據，請為每一種類型的信息創建一個表。如果要從查詢、窗體或報表中的多個表中將數據合并在一起，就要定義各個表之間的關系。 如果要搜索并檢索符合指定條件的數據，包括來自多個表中的數據，就要創建查詢。查詢的同時也可以更新或刪除多條記錄，并對數據執行內嵌或自定義的計算。 如果要簡單地直接在某個表中查看、輸入及更改數據，請創建一個窗體。在打開一個窗體時， Microsoft Access 將從一個或多個表中檢 索數據，并使用用戶在 “ 窗體向導 ” 選擇的版面布局或所創建的版面布局，將窗體顯示在屏幕上。 如果要分析數據或將數據以特定的方式打印出來，請創建一個報表。例如，可以打印一份將數據分組并計算數據總和的報表，也可以打印另一份帶有各種數據格式的打印郵件標簽的報表。 第一章 系統的分析 第一章 系統的分析 2． 1 系統開發的目標和思想 本系統開發目標是服務于 人們查詢公交車路線信息 ,方便工作人員 日常出行 . 同時力求做到界面人性化 ,功能齊全 ,數據存儲安全 . 2． 2 系統的可行性分析 技術上 :本系統采用 visual basic 與微軟的 access 作為數據庫 ,技術上開發難度一般 . 經濟上 :本系統服務于 人們出行公交車查詢 ,提高了工作人員辦事效率 ,節省了開支 .所以具有經濟上的可行性 . 社會上 :本系統同時也方便了廣大社會 .所以具有社會可行性 . 第二章 系統的設計 3． 1 系統的功能結構設計 3． 2 系統的數據庫設計 主界面 按車次查詢 按起點終點查詢 信息表 : 3． 2 界面設計與代碼設計 1 關于界面設計 : 代碼設計 : Option Explicit Dim bt As Boolean Private Sub Check1_Click() If = 0 Then = True Else = False End If End Sub Private Sub Form_Load() bt = True End Sub Private Sub Label1_Click() End Sub Private Sub Timer1_Timer() bt = False If = 0 Then = True Else = False End If Load Form1 = False End Sub Private Sub Timer2_Timer() = True = False End Sub 2:主界面設計 : 代碼設計 : Dim bcbm As Boolean Dim bcb1 As Boolean Dim bcbs As Boolean Dim bcbe As Boolean Dim tm As Integer Dim intpart As Integer Public IsBeginS As Boolean Public Sub showallstation() 39。 以下代碼是用來把在數據庫的所有不同的車站顯示在起始站中 39。 其思路是如果在啟動界面中，用戶選擇了更新數據庫，則掃描整個數 據庫，并把不同的車站加到起始站中 39。 并把這些車站名存放在一文本框中，以用于下次讀取 39。 如果用戶沒有選擇更新數據庫，則直接從文件中讀取車站存放在起始站中 39。 這樣做的好處是可以大大提高效率，如果每次啟動都要重新檢索數據庫，則要花費大量的時間 If IsBeginS = False Then 39。用戶選擇了更新數據庫 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。用戶沒有選擇了更新數據庫 Dim strbs As String Dim intnb As Integer If Mid(, Len() 1, 1) \ Then Open + \ For Input As 1 Else Open + For Input As 1 End If Input 1, strbs intnb = CInt(Val(strbs)) For k = 0 To intnb 1 Input 1, strbs strbs Next Close 1 End If End Sub Public Sub showtitle(numt As Integer) 39。用于顯示列表中的標題 For j = 0 To 2 If numt = 2 And j = 1 Then Exit Sub End If MSF1(j).Clear Dim i As Integer With MSF1(j) .Rows = 2 .Cols = NC + 3 .TextMatrix(0, 1) = 車次 For k = 1 To NC + 1 .TextMatrix(0, k + 1) = 站 amp。 CStr(k) .ColWidth(k) = 1000 Next .TextMatrix(0, NC + 2) = 備注 .ColWidth(0) = 200 .ColWidth(NC + 1) = 1000 .FixedRows = 1 For i = 1 To NC .ColAlignment(i) = 0 Next i .FillStyle = flexFillSingle .Col = 0 .Row = 0 .RowSel = 1 .ColSel = .Cols 1 .CellAlignment = 4 .Row = 1 End With Next End Sub Public Sub showdata(num As Integer) 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。用于顯示按起始站和終點站進行的查詢 39。其思路是掃描整個數據庫，如果在一條記錄中有起點站和終點站則把該記錄加到列表中 39。該過程用到了遞歸主要是由于起始站和終點站可以互換 digein = digein + 1 39。 用于記錄遞歸次數 If digein = 3 Then 39。第三次遞歸的時候，退出 a = MsgBox(沒有直達的車次 !您是否需要轉車 ?, vbInformation + vbOKCancel, 詢問 ) If a = vbOK Then = True = True MSF1(0).Visible = False End If Exit Sub End If showtitle (numb) Dim j As Integer Dim i As Integer D