公交线路查询的课程设计汇本.doc

目 录1课程设计目的与背景12课程设计基本要求13系统设计分析13.1 系统开发环境13.2 系统开发工具23.3 系统功能模块34 系统实现原理.35系统实现45.1 某市公交数据库建立45.2 程序主界面模块55.2.1 系统登录界面55.2.2 查询系统模块65.2.3数据录入、更新85.2.4打印输出95.3程序代码95.3.1 系统登陆界面代码95.3.2Form_Load代码105.3.3公交线路查询代码155.3.4线路查询代码165.3.5站点查询代码175.3.6起点、终点查询代码185.3.7生成报表代码215.3.8滚动字幕代码225.3.9 结束运行代码226设计总结236.1 结论236.2心得体会23参考文献241 课程设计目的与背景交通信息科技课程设计是交通工程专业设计内容之一，它是对交通信息技术课程的实际应用。通过该课程设计，使学生加深对课堂教学内容的理解，掌握信息化技术在城市交通中的应用和开发，增强学生分析和解决实际交通问题的能力，为在交通智能系统开发中应用相关知识解决实际问题打下基础。当前，我国城市公交乘客信息系统的发展处于一个较落后的水平，广大乘客可以获得信息的方式很少，需要大力发展我国的城市公交乘客信息系统。本设计以某城市公交系统为开发对象，基于数据库查询技术，完成一个城市公交系统的出行线路查询软件。2 课程设计基本要求（1）要求了解和掌握基于数据库应用的软件开发基本流程和基本方法。（2）能初步应用编程语言开发基于数据库的实时查询系统。（3）按照学生分组情况，每组针对指定的城市公交系统进行开发。通过查阅相关资料，分析、计算、比较、论证，制订出合理的设计方案，为今后从事相关工作打下基础。（4）能应用Visual Basic编程软件，结合Access数据库实现基于数据库的应用软件开发。（5）排版需按规定要求进行。3 系统设计分析3.1 系统开发环境：系统开发环境包括硬件平台和软件平台两种。硬件平台是指开发与运行所需要的硬件环境，主要包括计算机机型及硬件配置。由于本系统是一个小型的信息查询系统，因此对计算机硬件的要求不高，比较经济，只要配备有PII300处理器（或以上）、64M内存（或以上）、20G硬（或以上）的普通微机即可顺利运行。软件平台是指系统开发与运行的软件环境。本系统在开发时选用了稳定性较强的Windows XP中文专业版和VisualBasic6.0作为开发语言，所以开发出的应用系统稳定性较高。Visual Basic是一种新型的现代语言。与传统的语言相比，它在许多方面有重要的改革和突破。下面介绍Visual Basic6.0的主要特点：(1) 易学易用的集成开发环境：Visual Basic 6.0为用户设计界面、编写代码、调试程序、编译程序、制作应用程序安装盘等提供了友好的集成开发环境。(2) 可视化的设计平台：在Visual Basic 6.0中，采用面向对象程序设计方法（Object-Oriented Programming），把程序和数据封装起来作为一个对象，每个对象都是可视的。(3) 事件驱动的编程机制： Visual Basic 6.0事件驱动的编程是针对用户触发某个对象的相关事件进行编码，每个事件都可以驱动一段程序的运行。开发人员只要编写响应用户动作的代码。这样的应用程序代码精简，比较容易编写与维护。(4) 结构化的程序设计语言：Visual Basic 6.0具有丰富的数据类型和众多的内部函数。其采用模块化和结构化程序设计语言，结构清晰，语法简单，容易学习。(5) 强大的数据库功能：Visual Basic 6.0利用数据控件可以访问Access、FoxPro等多种数据库系统，也可以访问Excel、Lotus等多种电子表格。(6) 网络功能：Visual Basic 6.0提供的DHTML（动态HTML）设计工具可以使开发者动态地创建和编辑Web页面，使用户能开发出多功能的网络应用软件。3.2 系统开发工具：确定操作系统后，选择开发工具，经过综合比较选择可视化程序语言Visual Basic。 Visual Basic（简称VB）是Microsoft公司于1191年推出的Windows应用程序开发工具，采用可视化、面向对象以及事件驱动的程序设计模式，具有强大的数据库编程能力，利用VB的数据控件和数据库管理器等工具，可直接建立或处理Microsoft Access格式的数据库，还可直接编辑和访问其他外部数据库，同时还提供开放式数据库访问（ODBC）功能，可通过直接访问或者建立连接的方式使用并操作远程服务器上的关系型数据库，如SQL Server、Oracle等。因此，VB成为目前最便捷、最有效率的开发工具之一。数据库选用Microsoft公司的Access产品作为数据库应用程序。是Office系列应用软件之一。它提供了表、查询、窗体、报表、页、宏、模块7种用来建立数据库系统的对象；提供了多种向导、生成器、模板，把数据存储、数据查询、界面设计、报表生成等操作规X化；为建立功能完善的数据库管理系统提供了方便，也使得普通用户不必编写代码，就可以完成大部分数据管理的任务。它是一种关系型数据库管理系统，具有存储方式单一 、面向对象、界面友好、易操作、集成环境、处理多种数据信息的特点，Access还支持ODBC（开发数据库互连，Open Data Base onnectivity），利用Access强大的DDE（动态数据交换）和OLE（对象的联接和嵌入）特性，可以在一个数据表中嵌入位图、声音、Excel表格、Word文档，还可以建立动态的数据库报表和窗体等。Access还可以将程序应用于网络，并与网络上的动态数据相联接。利用数据库访问页对象生成HTML文件，轻松构建Internet/Intranet的应用。3.3 系统功能模块：公交查询系统的应用背景为：方便市民搭乘公交车出行；实时查询公交信息、及时更新查询数据。因此，该系统主要功能划分模块如下：（1）查询系统模块。该模块实现公交查询功能。可实现按线路和站点两种查询方式。（2）数据录入、更新模块。更新：系统允许管理员级别的用户对数据进行录入、修改且存盘操作；编辑：系统允许管理员级别的用户对数据进行编辑、删除的操作，保证现库的真实性与实时性。（3）打印输出。系统可以将用户查询到的内容动态地生成报表，并打印输出。4 系统实现原理（1）Access数据库的数据格式？Access数据表中数据格式为文本类型因为表中的数据为各个线路的站点，保存的数据库类型为.mdb格式，本过程应在Access2003环境下下进行操作，因为在vb6.0中数据库是Access2003的，所引用的Microsoft Jet引擎只能识别Access2003或之前版本格式的文件。（2）VB 如何与Access数据库文件实现联结？VB连接ACCESS数据库可以通过控件，也可以通过引用来连接数据库。如果是控件的话有Data、Adodc控件等。如果是引用的话在“工程”“引用”中Microsoft Active Data Objects 2.6 Library。现在一般都是使用引用来连接数据库。Microsoft Jet and Replication Objects 2.5 LibraryMicrosoft Active Data Objects 2.6 Library通用Dim As ADODB.Connection'定义一个数据库连接对象Dim rs As ADODB.Recordset '声明数据集 Dim str As String'定义str为字符串型 '建立与数据库的连接str = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=false;Data Source=" & App.Path & "46.mdb" 'str;函数引Microsoft.Jet.OLEDB.4.0来调用46数据表Set = New ADODB.Connection'创建一个作为数据库连接.Open str '数据库连接对象执行str函数的语句（3）数据库查询的思路(1)首先确定使用何种数据库，如选ACCESS数据库。(2)新建ACCESS数据库。(3)新建各数据表。确定每个数据表的字段及数据类型。各数据表应有关键字段。(4)在VB中使用ADO数据对象或控件连接数据库，构思VB的运行界面。(5)灵活使用SQL结构化查询语句操纵数据库。5系统实现5.1 某市公交数据库建立：某古称胶澳，位于某半岛的南部，濒临黄海，是我国重要的海滨城市之一，也是我国著名的风景旅游胜地和国家历史文化名城。某的公交非常方便，四通八达、无人售票。崭新的公交车内车外都很干净。普通公交车单一票价1元，空调车单一票价2元。     公交26、201、202路车是沿着海边走，途径栈桥、八大关等很多景点，起点是轮渡或火车站。这里需要特别注意的是26路公交车能到达某的大多数景点，比如：某公园、海军博物馆、某海底世界、康有为故居、花石楼、湛山寺、迎宾馆等。到某旅游最方便、舒适的方法莫过于乘空调旅游专线。三条旅游专线所配车辆均为高级豪华空调旅游中巴（28座某金龙）。全程配备专业导游服务。     去崂山（太清景区）可乘304路，从轮渡、火车站（栈桥）一直到崂山，全程都贴着海边走。当然你也可以参加崂山一日游，各宾馆均有代办，大多数旅游团都只去太清景区。由于某市是一个交通发达，设施齐全的旅游城市，所以赋予了某市公交路线是四纵八达的，而在这里我就随便在其众多的公交路线选取20条公交路线来建立该市公交线路数据，见图1所示。图1 某市公交线路表5.2 程序主界面模块:5.2.1 系统登录界面:本着界面友好、易操作等元素及具有某市公交车的代表性，还有本界面设有在等待一会儿后会自动跳到查询系统模块和设有“欢迎您进入某市公交线路查询系统”的滚动字幕等特点。因此本系统登陆界面如图2所示。图2 系统登录界面5.2.2 查询系统模块：为了方便市民搭乘公交车出行，本模块本着服务于市民，该查询系统为某市民提供更方便、更快捷的服务原则。因此本查询系统模块如图3所示，该模块分为五部分：(1)全部线路查询，点击显示按钮可以显示全部的公交线路，见图4所示；(2)线路查询，在下拉菜单中选择要查询的公交线路名称点击查询就可以查询该线路经过的所有公交站点，见图5所示；(3)经过公交站点名称查询，在下拉菜单中选择要经过的公交站点名称，点击查询就可以查询经过该站点的所有公交线路，见图6所示；(4)起点、终点查询，选择起点、终点站名称点击确定就会跳出经过这两个站点的所有公交线路，如果没有直达线路，则会提示“没有直达线路”，见图7所示；(5)生成报表功能，点击此按钮就会自动输出所有公交线路的excel表格，见图8所示。总而言之，本查询系统操作简单，适合广大群众使用。图3 查询系统界面(1) 点击显示全部线路查询，可显示查询结果，如图4所示： 图4 查询结果显示界面(2) 在线路查询中，在下拉菜单中选择要查询的公交线路名称点击查询，经过所有公交站点结果如图5所示。图5显示线路查询结果界面(3) 在站点查询中，在下拉菜单中选择要经过的公交站点名称，点击查询就可以查询经过该站点的所有公交线路，结果如图6所示。图6 显示站点查询结果界面(4) 在起点、终点查询中，选择起点、终点站名称点击确定就会跳出经过这两个站点的所有公交线路，如果没有直达线路，则会提示“没有直达线路”，其结果如图7所示。图7 显示起点、终点结果界面(5) 生成报表功能，点击此按钮就会自动输出所有公交线路的Excel表格，最后会提醒“恭喜！Excel生成完毕”，如图8所示。图8 显示Excel结果界面5.2.3 数据录入、更新：设计窗体及程序，完成数据输入、显示、保存和删除公交数据表中的记录数据。各功能界面如下：因为没有设计数据输入、保存和删除公交数据表中记录数据的程序，所以没办法显示它们各功能界面；还有显示公交数据表中的记录数据功能界面和上面查询系统模块中的各功能界面一样，在这里就不在重复了。5.2.4 打印输出:设计窗体及相应程序，完成报表显示(要求调用Excel报表)和打印功能。用Excel报表显示界面如图9、图10所示。图9 Excel报表显示界面图10显示Excel结果界面5.3 程序代码:5.3.1 系统登陆界面代码系统登录界面程序（包括滚动字幕、登陆界面进入查询界面等）：通用Dim As ADODB.ConnectionDim rs As ADODB.RecordsetDim sSql As StringDim aa() As StringPrivate Sub Form_Load()delaytime = 0Timer2.Enabled = TrueEnd SubPrivate Sub Label1_Click()Label1.Left = 0Timer1.Enabled = TrueEnd SubPrivate Sub Timer1_Timer()If Label1.Left < Me.Width Then Label1.Left = Label1.Left - 25ElseLabel1.Left = 0End IfEnd SubPrivate Sub Timer2_Timer()If delaytime >= 25 ThenTimer2.Enabled = FalseUnload Form2Load Form1Form1.ShowElsedelaytime = delaytime + 1End IfEnd Sub5.3.2Form_Load代码进入查询界面后用于显示所有栅格的表头和所有bo下拉菜单的值，程序如下：Private Sub Form_Load()Dim j As IntegerDim str As String'对MSFGrid进行设置With MSFlexGrid2 .TextMatrix(0, 0) = "编号".TextMatrix(0, 1) = "线路名称"For j = 2 To 50.TextMatrix(0, j) = "站点" & CStr(j - 1)NextEnd With'建立与数据库的连接str="Provider=Microsoft.Jet.OLEDB.4.0;PersistSecurity Info=false;Data Source=" & App.Path & "46_朱智强.mdb"Set = New ADODB.Connection.Open str'bo2.Text赋值bo2.ClearsSql = "select number from 46_朱智强 order by number"Set rs = New ADODB.Recordsetrs.Open sSql, , adOpenKeyset, adLockReadOnlybo2.Text = Trim(rs.Fields("number").Value)While Not rs.EOFbo2.AddItem (Trim(rs.Fields("number").Value) rs.MoveNextWend'bo3.Text赋值-从aa数组中读取相应站名sSql = "select * from 46_朱智强"Set rs = New ADODB.Recordsetrs.Open sSql, , adOpenKeyset, adLockReadOnlyIf rs.EOF Thenrs.CloseMsgBox "没有找到数据", 12, "系统提示"Exit SubEnd IfReDim aa(rs.RecordCount - 1, 51) '以下开始读取数据 i = 0While Not rs.EOFFor j = 1 To rs.Fields.CountIf rs.Fields(j - 1) <> "Null" Thenaa(i, j - 1) = rs.Fields(j - 1).ValueEnd IfNexti = i + 1rs.MoveNextWendrs.CloseDim ab() As StringReDim ab(UBound(aa, 1), UBound(aa, 2) - 3)For i = 0 To UBound(aa, 1) '线路总数For j = 2 To UBound(aa, 2) - 1 '对应站点总数ab(i, j - 2) = aa(i, j)Next jNext ibo3.Text = ab(0, 0)For i = 0 To UBound(ab, 1) '线路总数For j = 0 To UBound(ab, 2) '对应站点总数'Debug.Print ab(i, j)If ab(i, j) <> "" ThenFor k = 0 To bo3.ListCount - 1If bo3.List(k) = ab(i, j) ThenExit ForEnd IfNext kIf k >= bo3.ListCount Thenbo3.AddItem ab(i, j)End IfEnd IfNext jNext i 'bo1.Text赋值-从aa数组中读取相应站名sSql = "select * from 46_朱智强"Set rs = New ADODB.Recordset rs.Open sSql, , adOpenKeyset, adLockReadOnlyIf rs.EOF Thenrs.Close MsgBox "没有找到数据", 12, "系统提示"Exit SubEnd IfReDim aa(rs.RecordCount - 1, 51)'以下开始读取数据 i = 0While Not rs.EOF For j = 1 To rs.Fields.CountIf rs.Fields(j - 1) <> "Null" Thenaa(i, j - 1) = rs.Fields(j - 1).ValueEnd IfNexti = i + 1 rs.MoveNextWendrs.CloseReDim ab(UBound(aa, 1), UBound(aa, 2) - 3)For i = 0 To UBound(aa, 1) '线路总数For j = 2 To UBound(aa, 2) - 1 '对应站点总数ab(i, j - 2) = aa(i, j)Next jNext ibo1.Text = ab(0, 0)For i = 0 To UBound(ab, 1) '线路总数For j = 0 To UBound(ab, 2) '对应站点总数'Debug.Print ab(i, j)If ab(i, j) <> "" ThenFor k = 0 To bo1.ListCount - 1If bo1.List(k) = ab(i, j) ThenExit ForEnd IfNext kIf k >= bo1.ListCount Then bo1.AddItem ab(i, j)End IfEnd IfNext jNext i'bo4.Text赋值-从aa数组中读取相应站名sSql = "select * from 46_朱智强"Set rs = New ADODB.Recordsetrs.Open sSql, , adOpenKeyset, adLockReadOnlyIf rs.EOF Thenrs.CloseMsgBox "没有找到数据", 12, "系统提示"Exit SubEnd IfReDim aa(rs.RecordCount - 1, 51)'以下开始读取数据i = 0While Not rs.EOFFor j = 1 To rs.Fields.CountIf rs.Fields(j - 1) <> "Null" Then aa(i, j - 1) = rs.Fields(j - 1).Value End IfNexti = i + 1 rs.MoveNextWend rs.Close ReDim ab(UBound(aa, 1),UBound(aa, 2) - 3)For i = 0 To UBound(aa, 1) '线路总数For j = 2 To UBound(aa, 2) - 1 '对应站点总数ab(i, j - 2) = aa(i, j)Next jNext ibo4.Text = ab(0, 0)For i = 0 To UBound(ab, 1) '线路总数For j = 0 To UBound(ab, 2) '对应站点总数'Debug.Print ab(i, j)If ab(i, j) <> "" ThenFor k = 0 To bo4.ListCount - 1If bo4.List(k) = ab(i, j) ThenExit ForEnd If Next k If k >= bo4.ListCount Thenbo4.AddItem ab(i, j) End IfEnd If Next j Next i 'bo5.Text赋值-从aa数组中读取相应站名ReDim ab(UBound(aa, 1), UBound(aa, 2) - 2)For i = 0 To UBound(aa, 1) '线路总数For j = 2 To UBound(aa, 2) - 1 '对应站点总数ab(i, j - 2) = aa(i, j)Next jNext ibo5.Text = ab(0, 0)For i = 0 To UBound(ab, 1) '线路总数For j = 0 To UBound(ab, 2) '对应站点总数'Debug.Print ab(i, j)If ab(i, j) <> "" ThenFor k = 0 To bo5.ListCount - 1If bo5.List(k) = ab(i, j) ThenExit ForEnd If Next kIf k >= bo5.ListCount Then bo5.AddItem ab(i, j)End IfEnd IfNext jNext iEnd Sub5.3.3公交线路查询代码在查询界面中的全部线路查询模块中点击显示，则显示所有公交线路程序如下：Private Sub mand10_Click()Dim aa() As StringDim i As Integer '访问数据库和数据表sSql = "select * from 46_朱智强"Set rs = New ADODB.Recordset rs.Open sSql, , adOpenKeyset, adLockReadOnlyIf rs.EOF Then rs.CloseMsgBox "没有找到数据", 12, "系统提示"Exit SubEnd IfReDim aa(rs.RecordCount - 1, 51) '以下开始读取数据 i = 0While Not rs.EOFFor j = 1 To rs.Fields.CountIf rs.Fields(j - 1) <> "Null" Thenaa(i, j - 1) = rs.Fields(j - 1).Value End If Next i = i + 1 rs.MoveNext Wend rs.Close'以下在MSFGrid显示数据With MSFlexGrid2.Rows = i + 1 For i = 0 To UBound(aa, 1).Row = i + 1For j = 0 To 50 .TextMatrix(.Row, j) = aa(i, j)Next NextEnd WithEnd Sub5.3.4线路查询代码在线路查询模块，用于查询所输入的线路的所有公交站点，程序如下：Private Sub mand4_Click()'清空内容With MSFlexGrid2For P = 0 To 45For Q = 1 To 20.TextMatrix(Q, P) = "" NextNextEnd WithDim sSql As StringDim aa() As StringDim i As Integer'访问数据库和数据表sSql = "select * from 46_朱智强 where number='" + bo2.Text + "'"Set rs = New ADODB.Recordset rs.Open sSql, , adOpenKeyset, adLockReadOnlyIf rs.EOF Thenrs.CloseMsgBox "没有找到数据", 12, "系统提示"Exit SubEnd IfReDim aa(rs.RecordCount - 1, 51) '以下开始读取数据i = 0While Not rs.EOFFor j = 1 To rs.Fields.CountIf rs.Fields(j - 1) <> "Null" Thenaa(i, j - 1) = rs.Fields(j - 1).ValueEnd IfNexti = i + 1 rs.MoveNext Wend rs.Close '以下在MSFGrid显示数据With MSFlexGrid2' .Rows = i + 1 For i = 0 To UBound(aa, 1).Row = i + 1 For j = 0 To 50.TextMatrix(.Row, j) = aa(i, j) Next NextEnd WithEnd Sub5.3.5站点查询代码经过站点查询，用于显示经过输入的公交站点的所有公交线路，程序如下：Private Sub mand6_Click()'清空内容With MSFlexGrid2For P = 0 To 45For Q = 1 To 20.TextMatrix(Q, P) = "" NextNextEnd WithDim field1 As StringDim tmp_Results() As IntegerReDim tmp_Results(UBound(aa, 1) Result_Count = 0'Debug.Print'Debug.Print "寻找*" + bo3.Text + "*站点"For k = 1 To 50field1 = "站点" & CStr(k)sSql = "select * from 46_朱智强 where " & field1 & "='" + bo3.Text + "'"Set rs = New ADODB.Recordsetrs.Open sSql, , adOpenKeyset, adLockReadOnly If rs.EOF Thenrs.Close'Debug.Print "没有找到数据"Else'Debug.Print "找到数据!" & rs.Fields(0)Result_Count = Result_Count + 1tmp_Results(Result_Count)=rs.Fiels(0)rs.CloseEnd IfNext k With MSFlexGrid2For i = 1 To .Rows - 1For j = 0 To .Cols - 1.TextMatrix(i, j) = ""NextNext k = 0'Debug.Print Result_CountFor i = 1 To Result_Count'Debug.Print tmp_Results(i)'以下在MSFGrid显示数据tmp_Rows = iFor j = 0 To 50'Debug.Print aa(i, j).TextMatrix(tmp_Rows, j) = aa(tmp_Results(i) - 1, j) Next j Next iEnd WithEnd Sub5.3.6起点、终点查询代码起点、终点查询，用于显示经过所输入的起点和终点站名称的所有公交线路，程序如下：Private Sub mand7_Click()Dim sSql As StringDim sSq2 As StringDim aa() As StringDim bb(21, 51) As StringDim cc(21, 51) As StringDim k As Integer'清空内容With MSFlexGrid2For i = 1 To 20For j = 1 To 49 .TextMatrix(i, j) = "" NextNextEnd With'计算有经过起点站的所有公交线路存在bb中 han = 0For k = 1 To 45 field1 = "站点" & CStr(k)sSql = "select * from 46_朱智强 where " & field1 & "='" + bo1.Text + "'"Set rs = New ADODB.Recordset rs.Open sSql, , adOpenKeyset, adLockReadOnlyIf rs.EOF Then rs.Close'MsgBox "没有找到数据", 12, "系统提示" 'Exit SubElseReDim aa(rs.RecordCount - 1, 50)'以下开始读取数据 i = 0While Not rs.EOF For j = 1 To rs.Fields.CountIf rs.Fields(j - 1) <> "Null" Thenaa(i, j - 1) = rs.Fields(j - 1).Value'Debug.Print "数据：" & aa(i, j - 1)End IfNexti = i + 1rs.MoveNext Wend rs.Close'ReDim bb(21, UBound(aa, 2)For i = 0 To UBound(aa, 1)'Debug.Print hanhan = han + 1For j = 0 To UBound(aa, 2)bb(han - 1, j) = aa(i, j)'Debug.Print "数据：" & bb(han - 1, j) NextNextEnd If Next k = k + 1han2 = 0 '计算有经过终点站的所有公交线路存在cc中han1 = 0For k = 1 To 50field1 = "站点" & CStr(k)sSq2 = "select * from 46_朱智强 where " & field1 & "='" + bo4.Text + "'"Set rs = New ADODB.Recordsetrs.Open sSq2, , adOpenKeyset, adLockReadOnlyIf rs.EOF Thenrs.Close'MsgBox "没有找到数据", 64, "系统提示"Exit Sub ElseReDim aa(rs.RecordCount - 1, 50)'以下开始读取数据i = 0While Not rs.EOFFor j = 1 To rs.Fields.Count If rs.Fields(j - 1) <> "Null" Thenaa(i, j - 1) = rs.Fields(j - 1).Value'Debug.Print "数据：" & aa(i, j - 1)End IfNexti = i + 1 rs.MoveNextWendrs.Close'ReDim cc(21, UBound(aa, 2)For i = 0 To UBound(aa, 1)'Debug.Print hanhan1 = han1 + 1For j = 0 To UBound(aa, 2)cc(han1 - 1, j) = aa(i, j)'Debug.Print "数据：" & cc(han - 1, j)Next NextEnd IfNextk = k + 1'选择路线经过起点和终点 han2 = 0For m = 0 To 21