城市便民导航系统查询算法分析汇总课件.ppt

1、城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析1 1、从此处到公交站点的查询、从此处到公交站点的查询 n数据库设计：数据库设计：公交线路表公交线路表:线路线路站点站点1 1站点站点2 2站点站点3 3站点站点4 4站点站点39391 1路路西工大西工大边家村边家村省人民省人民医院医院交大交大五路口五路口城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析1 1

2、 1 1 1 1、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询n算法分析：算法分析：基本算法为穷举法。本例数据库中输入了多条线路，每基本算法为穷举法。本例数据库中输入了多条线路，每条线路最多可以有条线路最多可以有4040个站点。用户通过文本框个站点。用户通过文本框TextText控件确控件确定起始站点和输入终止站点名，搜索时，初始化起始站点定起始站点和输入终止站点名，搜索时，初始化起始站点标记标记a a，终止站点标记，终止站点标记b b。设计一个循环程序，判断某一条。设计一个循环程序，判断某一条线

3、路是否经过起始站点，如果经过，则设置起始站点标志；线路是否经过起始站点，如果经过，则设置起始站点标志；同样，再判断这条线路是否经过终止站点，如果经过，则同样，再判断这条线路是否经过终止站点，如果经过，则设置终止站点标志；如果起始和终止站点标志均设置，则设置终止站点标志；如果起始和终止站点标志均设置，则证明有一条直通线路，将其显示出。证明有一条直通线路，将其显示出。公交线路表公交线路表:起始站点起始站点西工大西工大终止站点终止站点大差市大差市线路线路站点站点1 1站点站点2 2站点站点3 3站点站点9 9 站点站点19192929路路西工大西工大边家村边家村省人民省人民医院医院大差市大差市 胡家

4、庙胡家庙2121路路1010路路1 1 1 1 1 1、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析Formbus窗体：窗体：Private Sub Command3 _Click(Index As Integer)”开始查询开始查询”按钮。按钮。If Option1.Value=True Then Option1对应对应“从此处到

5、公交站点从此处到公交站点”查询方式查询方式Text2.Text=Formstart.List1.TextFormstart为起始界面，该窗体中的为起始界面，该窗体中的List1.Text为选定的初始站为选定的初始站点，该语句将指定的起始站点名存入点，该语句将指定的起始站点名存入本窗体起始站点本窗体起始站点Text2中中。Text3.Text=Label8(Index).Caption Label8为用户点击的一终止站点标签，是数组控件。为用户点击的一终止站点标签，是数组控件。将终止站点名存入将终止站点名存入本窗体起始站点本窗体起始站点Text3中。中。Formroute.Data1.Recor

6、dset.MoveLast Formroute.Data1和公交线路表连接，表中纪录指针移向和公交线路表连接，表中纪录指针移向最后一条纪录最后一条纪录1 1 1 1 1 1、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询部分程序：部分程序：城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析For i=1 To Formroute.Data1.Recordset.RecordCount

7、 a=False 设定起始站点标记变量设定起始站点标记变量 b=True 设终止站点定标记变量设终止站点定标记变量For j=1 To 40 公交线路表中的最多允许站点数为公交线路表中的最多允许站点数为40If Text2.Text=Formroute.Text1(j).Text Then Formroute.Text1(j)和和Formroute.Data1绑定，该句用于判绑定，该句用于判断某一公交线路是否包含起始站点断某一公交线路是否包含起始站点a=True 如果有，则改变起始站点标记如果有，则改变起始站点标记End IfNext j 循环查找完整个表循环查找完整个表1 1 1 1 1 1

8、、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析1 1 1 1 1 1、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询For k=1 To 40 If Text3.Text=Formroute.Text1(k).Text Then ；判断某

9、一公交线路是否经过终止站点；判断某一公交线路是否经过终止站点b=False ；如果有，则改变终止站点标记；如果有，则改变终止站点标记End IfNext kIf a=True And b=False Then ；如果两变量的值均改变，则起始和终止站点同时经过此线路如果两变量的值均改变，则起始和终止站点同时经过此线路Formbus.List1.AddItem Formroute.Text1(0)；将此公交线路添加在列表框中；将此公交线路添加在列表框中Formbus.List1.ListIndex=0 End If城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析

10、城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析1 1 1 1 1 1、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询、从此处到公交站点的查询n问题：问题：该算法特点是简单，但是耗时较长，如何提高计算效率？该算法特点是简单，但是耗时较长，如何提高计算效率？城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析2 2、任意两地点之间的查询、任意两地点之间的查询站点坐标表站点坐标

11、表:站点名站点名X X坐标坐标Y Y坐标坐标西工大西工大12.124512.124532.321432.3214大雁塔大雁塔21.215421.215432.125432.1254n数据库设计数据库设计算法分析：算法分析：当用户点击地图上的位置与当用户点击地图上的位置与站点坐标表站点坐标表中的当前站点中的当前站点距离在一定范围之内（这里为距离在一定范围之内（这里为1 1），则将该站点添加到存放），则将该站点添加到存放到列表框中（到列表框中（ListList），采用此法，由用户选出两个站点，），采用此法，由用户选出两个站点，然后调用路径选择窗体，显示用户点击的两个站点和这两然后调用路径选择窗体，

12、显示用户点击的两个站点和这两个站点之间的乘车路线，该路线最多可显示个站点之间的乘车路线，该路线最多可显示5 5个。个。2 2 2、任意两地点之间的查询、任意两地点之间的查询、任意两地点之间的查询、任意两地点之间的查询、任意两地点之间的查询、任意两地点之间的查询城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析2

13、2 2、任意两地点之间的查询、任意两地点之间的查询、任意两地点之间的查询、任意两地点之间的查询、任意两地点之间的查询、任意两地点之间的查询Formbus窗体：窗体：Private Sub Picture1_MouseDown(Button As Integer,Shift As Integer,X As Single,Y As Single)Picture1存放地图存放地图If Option5.Value Then option5指定任意两地点间的查指定任意两地点间的查询询If Label5.Caption=请在地图上点击第一个地点请在地图上点击第一个地点 Then 操操作提示作提示Formr

14、adom.List1.Clear formradom窗体用以显示用户点击的公交站点和提供给用窗体用以显示用户点击的公交站点和提供给用户可选择的站点户可选择的站点Formxy.Data1.Recordset.MoveLast Formxy窗体中窗体中data1连接站点坐标数据连接站点坐标数据库库城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析For i=1 To Formxy.Data1.Recordset.RecordCount If Sqr(Val(Formxy.Text1

15、(1).Text)-X)2+(Val(Formxy.Text1(2).Text)-Y)2)1 Then如果用户点击的地点与如果用户点击的地点与Formxy中的当前站点距离在一定范中的当前站点距离在一定范围之内（这里为围之内（这里为1），则将该站点添加到存放到第一个列表框），则将该站点添加到存放到第一个列表框中（中（List1）Formradom.List1.AddItem Formxy.Text1(0).TextEnd IfFormxy.Data1.Recordset.MovePrevious Next I 循环循环 If Formradom.List1.ListCount=0 Then 如果

16、列表框中没有记录，则表示没有站点满足条件，此时如果列表框中没有记录，则表示没有站点满足条件，此时需要用户重新点击地图需要用户重新点击地图 MsgBox(对不起，您所点击的地点附近没有公交站点，请对不起，您所点击的地点附近没有公交站点，请重新点击第一个地点重新点击第一个地点)2 2 2、任意两地点之间的查询、任意两地点之间的查询、任意两地点之间的查询、任意两地点之间的查询、任意两地点之间的查询、任意两地点之间的查询城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析2 2 2、任意

17、两地点之间的查询、任意两地点之间的查询、任意两地点之间的查询、任意两地点之间的查询、任意两地点之间的查询、任意两地点之间的查询Else Label5.Caption=“请在地图上点击第二个地点请在地图上点击第二个地点”；如果第一个列表框中有记录，则提示用户点击第二个地点如果第一个列表框中有记录，则提示用户点击第二个地点 End If Else Formradom.List2.Clear Formxy.Data1.Recordset.MoveLast For i=1 To Formxy.Data1.Recordset.RecordCount If Sqr(Val(Formxy.Text1(1).

18、Text)-X)2+(Val(Formxy.Text1(2).Text)-Y)2)1 Then Formradom.List2.AddItem Formxy.Text1(0).Text End If Formxy.Data1.Recordset.MovePrevious Next i城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析2 2 2、任意两地点之间的查询、任意两地点之间的查询、任意两地点之间的查询、任意两地点之间的查询、任意两地点之间的查询、任意两地点之间的查询If

19、Formradom.List2.ListCount=0 Then MsgBox(对不起，您所点击的地点附近没有公交站点，对不起，您所点击的地点附近没有公交站点，请重新点击第二个地点请重新点击第二个地点)Else Label5.Caption=请在地图上点击第一个地点请在地图上点击第一个地点 Formradom.Show Formradom窗体显示，该窗体显示用户点击的两个站点窗体显示，该窗体显示用户点击的两个站点和选择出的路径和选择出的路径 End If End If End If End Sub城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系

20、统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析3 3、模糊查询的实现（程序片断）、模糊查询的实现（程序片断）n数据库设计数据库设计站点名站点名西工大西工大边家村边家村黄雁村黄雁村总站点列表总站点列表城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析算法分析算法分析 检验用户输入的第一个站点名是否存在，如果不存在则检验用户输入的第一个站点名是否存在，如果不存在则进入模糊查询。进入模糊查询。Formxy1.Data1.RecordSource=select

21、Formxy1.Data1.RecordSource=select 站点名站点名 from from 总站总站点列表点列表 where where 站点名站点名 like like*&Text2.Text&Text2.Text&*如 果 总 站 点 列 表 中 包 含如 果 总 站 点 列 表 中 包 含 *“&T e x t 2.T e x t“&T e x t 2.T e x t&”&”*“中的字符，则在列表中显示。中的字符，则在列表中显示。同此，对用户输入的第二个站点名是否存在进行判断，如同此，对用户输入的第二个站点名是否存在进行判断，如不存在，则进入模糊查询。不存在，则进入模糊查询。3

22、 3 3、模糊查询的实现、模糊查询的实现、模糊查询的实现、模糊查询的实现、模糊查询的实现、模糊查询的实现城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析3 3 3、模糊查询的实现、模糊查询的实现、模糊查询的实现、模糊查询的实现、模糊查询的实现、模糊查询的实现Formbus窗体：公交查询窗体窗体：公交查询窗体Private Sub Command3_Click()command3为为“开始查询开始查询”Formlike.List1.Clear 模糊查询窗体中列表框清空模糊查询窗

23、体中列表框清空Formlike.List2.Clear 模糊查询窗体中列表框清空模糊查询窗体中列表框清空Formxy1.Data1.Recordset.FindFirst 站点名站点名=&Text2.Text&检验第一个站点名是否存在检验第一个站点名是否存在If Formxy1.Data1.Recordset.NoMatch Then 如果不存在则进入模糊查询如果不存在则进入模糊查询Formxy1.Data1.RecordSource=select 站点名站点名 from 总站点列总站点列表表 where 站点名站点名 like*&Text2.Text&*Formxy1窗体中的窗体中的data

24、1连接总站点列表连接总站点列表Formxy1.Data1.Refresh 数据库刷新数据库刷新城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析3 3 3、模糊查询的实现、模糊查询的实现、模糊查询的实现、模糊查询的实现、模糊查询的实现、模糊查询的实现If Not Formxy1.Data1.Recordset.EOF Then 判断模糊查询后判断模糊查询后data1中是否有记录存在中是否有记录存在 Formxy1.Data1.Recordset.MoveLast 将满足模糊查询

25、条将满足模糊查询条件的记录添加模糊查询窗体中的第一个列表框中件的记录添加模糊查询窗体中的第一个列表框中 For i=1 To Formxy1.Data1.Recordset.RecordCount Formlike.List1.AddItem Formxy1.Text4.Text 将模糊查询结果存入将模糊查询结果存入list1中，中，Formxy1.Text4存放站点名。存放站点名。Formxy1.Data1.Recordset.MovePreviousNext iEnd IfEnd If城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算

26、法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析3 3 3、模糊查询的实现、模糊查询的实现、模糊查询的实现、模糊查询的实现、模糊查询的实现、模糊查询的实现Formxy1.Data1.RecordSource=总站点列表总站点列表 Formxy1.Data1.Refresh 恢复恢复data1的连接的连接Formxy1.Data1.Recordset.FindFirst 站点名站点名=&Text3.Text&检验第二个站点名是否存在检验第二个站点名是否存在If Formxy1.Data1.Recordset.NoMatch Then 如果不存在则进入模糊查询如果不存在则进入模糊查询

27、Formxy1.Data1.RecordSource=select 站点名站点名 from 总总站点列表站点列表 where 站点名站点名 like*&Text3.Text&*Formxy1.Data1.Refresh城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析3 3 3、模糊查询的实现、模糊查询的实现、模糊查询的实现、模糊查询的实现、模糊查询的实现、模糊查询的实现If Not Formxy1.Data1.Recordset.EOF Thenn=TrueFormxy1.D

28、ata1.Recordset.MoveLastFor i=1 To Formxy1.Data1.Recordset.RecordCount 将模糊查询结果添加在将模糊查询结果添加在list2中中Formlike.List2.AddItem Formxy1.Text4.TextFormxy1.Data1.Recordset.MovePreviousNext iEnd IfEnd If城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析3 3 3、模糊查询的实现、模糊查询的实现、模糊

29、查询的实现、模糊查询的实现、模糊查询的实现、模糊查询的实现If Formlike.List1.ListCount 0 Or Formlike.List2.ListCount 0 Then 判断模糊查询有结果判断模糊查询有结果rt=MsgBox(对不起对不起,您要查询得站点名不准确您要查询得站点名不准确,是否进入模是否进入模糊查询糊查询?,vbYesNo+vbExclamation)If rt=6 ThenFormlike.Show 此窗体供用户选择模糊查询的结果此窗体供用户选择模糊查询的结果End If城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民

30、导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析4 4、转车查询的实现、转车查询的实现总站点表总站点表站点名站点名大明宫乡政府大明宫乡政府南康村南康村n数据库设计数据库设计XYROUTEXYROUTE表表namenameR1R1R2R2R29R29R30R30西工大西工大24242929边家村边家村21212424 城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析公交线路表公交线路表:线路线路站点站点1 1站点站点2 2站点站点3 3站点站点4 4

31、站点站点39391 1路路西工大西工大边家村边家村省人民省人民医院医院交大交大五路口五路口4 4 4 4 4 4、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析4 4 4 4 4 4、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现算法分析算法分析1.1.如果用户指定的起始站点名在总站点表中存在，则通过如果用户指定的起始站点名在总站点表

32、中存在，则通过查找查找XYROUTXYROUT表判断共有几路车经过此站点。表判断共有几路车经过此站点。2.2.根据根据终止站点终止站点名查找名查找XYROUTXYROUT表判断共有几路车经过此站表判断共有几路车经过此站点。点。唐延路站点唐延路站点List2721721路路3131路路520520路路西工大站点西工大站点List12424路路2929路路402402路路城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析4 4 4 4 4 4、转车查询的实现、转车查询的实现、转车查

33、询的实现、转车查询的实现、转车查询的实现、转车查询的实现算法分析算法分析3.3.再对所有站点名查找再对所有站点名查找XYROUTXYROUT表，判断经过每一个站点的表，判断经过每一个站点的线路。线路。4.4.判断中间站点是否有线路既经过起点站又经过终点站，判断中间站点是否有线路既经过起点站又经过终点站，如果有，则找到经过如果有，则找到经过XXXXXX站点的一条转车线路。站点的一条转车线路。唐延路站点唐延路站点List2721721路路3131路路520520路路西工大站点西工大站点List12424路路2929路路402402路路XXXXXX站点站点List32929路路3131路路XXXX路

34、路城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析4 4 4、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现Form1窗体：转车查询窗体窗体：转车查询窗体Private Sub Command2_Click()进入转车查询进入转车查询Dim a,h,i,j,k,l,m As Integerm=FalseFormxyroute.Data1.Recordset.FindFirst name=&Formbus.Text2.Text&“

35、formxyroute的的data1连接数据库总站点表连接数据库总站点表 Formbus的的Text2为起始站点为起始站点If Formxyroute.Data1.Recordset.NoMatch ThenMsgBox(起始站点不存在起始站点不存在,请检查站点名称的正确性请检查站点名称的正确性)m=TrueUnload Me城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析4 4 4、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实

36、现ElseFor a=0 To 5For h=1 To 30 每个站点最多有每个站点最多有30路车经过路车经过If Formxyroute.Text1(h).Text=ThenExit ForElse Formxyroute.Text1(h)存放线路号存放线路号List5(a).AddItem Formxyroute.Text1(h).Text List5(a)存放经过起始站点的线路号。存放经过起始站点的线路号。End IfNext hNext aEnd If城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法

37、分析城市便民导航系统查询算法分析4 4 4、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现Formxyroute.Data1.Recordset.FindFirst name=&Formbus.Text3.Text&If Formxyroute.Data1.Recordset.NoMatch ThenMsgBox(终止站点不存在终止站点不存在,请检查站点名称的正确性请检查站点名称的正确性)Unload MeElse城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算

38、法分析城市便民导航系统查询算法分析4 4 4、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现For a=0 To 5For h=1 To 30If Formxyroute.Text1(h).Text=ThenExit ForElse Text1数组用于显示经过此站点的所有公交线路数组用于显示经过此站点的所有公交线路List6(a).AddItem Formxyroute.Text1(h).Text List6(a)存放经过终点站点的线路号存放经过终点站点的线路号End IfNext hNext a城市便民导航系统查询算法分析城市便民导航系统查询算

39、法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析4 4 4、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现i=0Formxyroute.Data1.Recordset.MoveLast data1连接到连接到XYROUT表（每个站点经过的车表（每个站点经过的车次），从后向前查找。次），从后向前查找。For k=0 To Formxyroute.Data1.Recordset.RecordCount 1 将每一个公交站点作为中转站点进行判断将每一个公交站点作为中转站点进行判断Li

40、st3.ClearList4.Clear城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析4 4 4、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现For h=1 To 30If Formxyroute.Text1(h).Text=ThenExit ForElseList3.AddItem Formxyroute.Text1(h).Text 将经过此一站点的所有公交线路列于将经过此一站点的所有公交线路列于List3中中End If

41、Next h城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析4 4 4、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现For a=0 To List5(i).ListCount 1 终止站点数终止站点数For h=0 To List3.ListCount 1 起始站点数起始站点数If List5(i).List(a)=List3.List(h)Then 判断某一公交线路是否同时经过站点。判断某一公交线路是否同时经过站点。List

42、1(i).AddItem List5(i).List(a)如果是如果是,则将此公交线路列于则将此公交线路列于List1中中End IfNext hNext a城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析4 4 4、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现If List1(i).ListCount 0 Then 判断是否有公交线路同时经过第一个站点和中转站点判断是否有公交线路同时经过第一个站点和中转站点For h=1 T

43、o 30If Formxyroute.Text1(h).Text=ThenExit ForElseList4.AddItem Formxyroute.Text1(h).TextEnd IfNext h城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析4 4 4、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现For a=0 To List6(i).ListCount-1For h=0 To List4.ListCount-1If L

44、ist6(i).List(a)=List4.List(h)Then 如果是如果是,再判断是否有公交线路同时经过中转站点和第再判断是否有公交线路同时经过中转站点和第二个站点二个站点List2(i).AddItem List6(i).List(a)End IfNext hNext a城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析4 4 4、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现、转车查询的实现If List2(i).ListCount 0

45、 ThenText1(i).Text=Formxyroute.Text1(0).TextText2(i).Text=Formbus.Text2Text3(i).Text=Formbus.Text3If i 6 Theni=i+1 i用于将乘车方案控制在用于将乘车方案控制在6套以内套以内ElseExit ForEnd IfElseList1(i).ClearEnd IfEnd If城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析4 4 4、转车查询的实现、转车查询的实现、转车查

46、询的实现、转车查询的实现、转车查询的实现、转车查询的实现For mxyroute.Data1.Recordset.MovePrevious 将中转站点移向上一个将中转站点移向上一个Next kIf m=False And List1(0).ListCount=0 ThenMsgBox(对不起，没有查询结果对不起，没有查询结果)Unload MeEnd IfEnd If城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析5 5、公交查询窗体中对站点标签的显示和隐藏的实现、公交查询窗

47、体中对站点标签的显示和隐藏的实现n数据库设计数据库设计站点坐标表站点坐标表:站点名站点名X X坐标坐标Y Y坐标坐标西工大西工大12.124512.124532.321432.3214大雁塔大雁塔21.215421.215432.125432.1254城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析算法分析算法分析1.1.采用对标签采用对标签Label8(i)Label8(i)的位置属性的位置属性Left Left 和和Top Top 设置，来设置，来动态显示站点在地图上的位

48、置。动态显示站点在地图上的位置。Label8(i).Left=Val(Formxy.Text1(1).Text)Label8(i).Top=Val(Formxy.Text1(2).Text)其中其中Text1(1)和和Text1(2)分别存放站点的分别存放站点的XY坐标。坐标。2.2.通过对标签通过对标签Label8(i)Label8(i)的属性的属性VisibleVisible和和EnabledEnabled设置来设置来显示或隐藏站点名显示或隐藏站点名 Label8(i).Visible=True 显示所有的显示所有的Label8 Label8(i).Enabled=True 或者或者 La

49、bel8(i).Visible=False 隐藏所有的隐藏所有的Label8 Label8(i).Enabled=False5 5 5、公交查询窗体中对站点标签的显示和隐藏的实现、公交查询窗体中对站点标签的显示和隐藏的实现、公交查询窗体中对站点标签的显示和隐藏的实现、公交查询窗体中对站点标签的显示和隐藏的实现、公交查询窗体中对站点标签的显示和隐藏的实现、公交查询窗体中对站点标签的显示和隐藏的实现城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析5 5 5、公交查询窗体中对站点标

50、签的显示和隐藏的实现、公交查询窗体中对站点标签的显示和隐藏的实现、公交查询窗体中对站点标签的显示和隐藏的实现、公交查询窗体中对站点标签的显示和隐藏的实现、公交查询窗体中对站点标签的显示和隐藏的实现、公交查询窗体中对站点标签的显示和隐藏的实现Formbus窗体：窗体：Private Sub Command1_Click()隐藏或显示站点隐藏或显示站点Dim i As IntegerIf Command1.Caption=显示所有站点显示所有站点 ThenCommand1.Caption=隐藏所有站点隐藏所有站点Formxy.Data1.Recordset.MoveLastFor i=1 To F