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

城市便民导航系统查询算法分析城市便民导航系统查询算法分析1、从此处到公交站点的查询

数据库设计：公交线路表:线路站点1站点2站点3站点4．．．站点391路西工大边家村省人民医院交大．．．．．．五路口．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．城市便民导航系统查询算法分析城市便民导航系统查询算法分析1、城市便民导航系统查询算法分析1、从此处到公交站点的查询算法分析：基本算法为穷举法。本例数据库中输入了多条线路，每条线路最多可以有40个站点。用户通过文本框Text控件确定起始站点和输入终止站点名，搜索时，初始化起始站点标记a，终止站点标记b。设计一个循环程序，判断某一条线路是否经过起始站点，如果经过，则设置起始站点标志；同样，再判断这条线路是否经过终止站点，如果经过，则设置终止站点标志；如果起始和终止站点标志均设置，则证明有一条直通线路，将其显示出。城市便民导航系统查询算法分析1、从此处到公交站点的查询算法分公交线路表:起始站点西工大终止站点大差市线路站点1站点2站点3．．站点9．．站点1929路西工大边家村省人民医院．．大差市．．胡家庙21路．．．．．．．．．．．．．．10路．．．．．．．．．．．．．．公交线路表:起始站点终止站点线路站点1站点2站点3．．站点91、从此处到公交站点的查询1、从此处到公交站点的查询城市便民导航系统查询算法分析Formbus窗体：PrivateSubCommand3

_Click(IndexAsInteger)‘”开始查询”按钮。IfOption1.Value=TrueThen‘Option1对应“从此处到公交站点”查询方式Text2.Text=Formstart.List1.Text‘Formstart为起始界面，该窗体中的List1.Text为选定的初始站点，该语句将指定的起始站点名存入本窗体起始站点Text2中。Text3.Text=Label8(Index).Caption‘‘Label8为用户点击的一终止站点标签，是数组控件。将终止站点名存入本窗体起始站点Text3中。Formroute.Data1.Recordset.MoveLast

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

a=False‘设定起始站点标记变量b=True‘设终止站点定标记变量Forj=1To40

‘公交线路表中的最多允许站点数为40IfText2.Text=Formroute.Text1(j).TextThen‘Formroute.Text1(j)和Formroute.Data1绑定，该句用于判断某一公交线路是否包含起始站点a=True‘如果有，则改变起始站点标记EndIfNextj‘循环查找完整个表1、从此处到公交站点的查询城市便民导航系统查询算法分析Fori=1ToFor城市便民导航系统查询算法分析1、从此处到公交站点的查询Fork=1To40

IfText3.Text

=Formroute.Text1(k).TextThen；判断某一公交线路是否经过终止站点b=False；如果有，则改变终止站点标记EndIfNextkIfa=TrueAndb=FalseThen；如果两变量的值均改变，则起始和终止站点同时经过此线路Formbus.List1.AddItemFormroute.Text1(0)；将此公交线路添加在列表框中Formbus.List1.ListIndex=0EndIf城市便民导航系统查询算法分析1、从此处到公交站点的查询For城市便民导航系统查询算法分析1、从此处到公交站点的查询问题：该算法特点是简单，但是耗时较长，如何提高计算效率？城市便民导航系统查询算法分析1、从此处到公交站点的查询问题：城市便民导航系统查询算法分析2、任意两地点之间的查询站点坐标表:站点名X坐标Y坐标西工大12.124532.3214大雁塔21.215432.1254．．．．．．．．．数据库设计城市便民导航系统查询算法分析2、任意两地点之间的查询站点坐标算法分析：当用户点击地图上的位置与站点坐标表中的当前站点距离在一定范围之内（这里为1），则将该站点添加到存放到列表框中（List），采用此法，由用户选出两个站点，然后调用路径选择窗体，显示用户点击的两个站点和这两个站点之间的乘车路线，该路线最多可显示5个。2、任意两地点之间的查询城市便民导航系统查询算法分析算法分析：2、任意两地点之间的查询城市便民导航系统查询算法分城市便民导航系统查询算法分析2、任意两地点之间的查询Formbus窗体：PrivateSubPicture1_MouseDown(ButtonAsInteger,ShiftAsInteger,XAsSingle,YAsSingle)‘Picture1存放地图IfOption5.ValueThen‘option5指定任意两地点间的查询IfLabel5.Caption="请在地图上点击第一个地点"Then操作提示Formradom.List1.Clear

‘formradom窗体用以显示用户点击的公交站点和提供给用户可选择的站点Formxy.Data1.Recordset.MoveLast

‘Formxy窗体中data1连接站点坐标数据库城市便民导航系统查询算法分析2、任意两地点之间的查询Form城市便民导航系统查询算法分析Fori=1ToFormxy.Data1.Recordset.RecordCountIfSqr((Val(Formxy.Text1(1).Text)-X)^2+(Val(Formxy.Text1(2).Text)-Y)^2)<1Then‘如果用户点击的地点与Formxy中的当前站点距离在一定范围之内（这里为1），则将该站点添加到存放到第一个列表框中（List1）Formradom.List1.AddItemFormxy.Text1(0).TextEndIfFormxy.Data1.Recordset.MovePreviousNextI‘循环

IfFormradom.List1.ListCount=0Then‘如果列表框中没有记录，则表示没有站点满足条件，此时需要用户重新点击地图

MsgBox("对不起，您所点击的地点附近没有公交站点，请重新点击第一个地点")2、任意两地点之间的查询城市便民导航系统查询算法分析Fori=1ToFor城市便民导航系统查询算法分析2、任意两地点之间的查询ElseLabel5.Caption=“请在地图上点击第二个地点”

；如果第一个列表框中有记录，则提示用户点击第二个地点

EndIfElse

Formradom.List2.ClearFormxy.Data1.Recordset.MoveLastFori=1ToFormxy.Data1.Recordset.RecordCount

IfSqr((Val(Formxy.Text1(1).Text)-X)^2+(Val(Formxy.Text1(2).Text)-Y)^2)<1ThenFormradom.List2.AddItemFormxy.Text1(0).Text

EndIfFormxy.Data1.Recordset.MovePrevious

Nexti城市便民导航系统查询算法分析2、任意两地点之间的查询Else城市便民导航系统查询算法分析2、任意两地点之间的查询IfFormradom.List2.ListCount=0ThenMsgBox("对不起，您所点击的地点附近没有公交站点，请重新点击第二个地点")ElseLabel5.Caption="请在地图上点击第一个地点"Formradom.Show‘Formradom窗体显示，该窗体显示用户点击的两个站点和选择出的路径

EndIfEndIfEndIfEndSub城市便民导航系统查询算法分析2、任意两地点之间的查询IfF城市便民导航系统查询算法分析3、模糊查询的实现（程序片断）数据库设计站点名西工大边家村黄雁村……总站点列表城市便民导航系统查询算法分析3、模糊查询的实现（程序片断）数城市便民导航系统查询算法分析算法分析检验用户输入的第一个站点名是否存在，如果不存在则进入模糊查询。Formxy1.Data1.RecordSource="select站点名from总站点列表where站点名like'*"&Text2.Text&"*'"

如果总站点列表中包含‘*“&Text2.Text&”*’“中的字符，则在列表中显示。同此，对用户输入的第二个站点名是否存在进行判断，如不存在，则进入模糊查询。

3、模糊查询的实现城市便民导航系统查询算法分析算法分析检验用户输入的第城市便民导航系统查询算法分析3、模糊查询的实现Formbus窗体：公交查询窗体PrivateSubCommand3_Click()‘command3为“开始查询”Formlike.List1.Clear‘模糊查询窗体中列表框清空Formlike.List2.Clear‘模糊查询窗体中列表框清空Formxy1.Data1.Recordset.FindFirst"站点名='"&Text2.Text&"'"‘检验第一个站点名是否存在IfFormxy1.Data1.Recordset.NoMatchThen'如果不存在则进入模糊查询Formxy1.Data1.RecordSource="select站点名from总站点列表where站点名like'*"&Text2.Text&"*'"‘Formxy1窗体中的data1连接总站点列表Formxy1.Data1.Refresh‘数据库刷新城市便民导航系统查询算法分析3、模糊查询的实现Formbus城市便民导航系统查询算法分析3、模糊查询的实现IfNotFormxy1.Data1.Recordset.EOFThen‘判断模糊查询后data1中是否有记录存在

Formxy1.Data1.Recordset.MoveLast‘将满足模糊查询条件的记录添加模糊查询窗体中的第一个列表框中For

i=1ToFormxy1.Data1.Recordset.RecordCount'Formlike.List1.AddItemFormxy1.Text4.Text‘将模糊查询结果存入list1中，Formxy1.Text4存放站点名。Formxy1.Data1.Recordset.MovePreviousNextiEndIfEndIf城市便民导航系统查询算法分析3、模糊查询的实现IfNot城市便民导航系统查询算法分析3、模糊查询的实现Formxy1.Data1.RecordSource="总站点列表"Formxy1.Data1.Refresh‘恢复data1的连接Formxy1.Data1.Recordset.FindFirst"站点名='"&Text3.Text&"'"'检验第二个站点名是否存在IfFormxy1.Data1.Recordset.NoMatchThen'如果不存在则进入模糊查询Formxy1.Data1.RecordSource="select站点名from总站点列表where站点名like'*"&Text3.Text&"*'"Formxy1.Data1.Refresh城市便民导航系统查询算法分析3、模糊查询的实现Formxy1城市便民导航系统查询算法分析3、模糊查询的实现IfNotFormxy1.Data1.Recordset.EOFThenn=TrueFormxy1.Data1.Recordset.MoveLastFori=1ToFormxy1.Data1.Recordset.RecordCount'将模糊查询结果添加在list2中Formlike.List2.AddItemFormxy1.Text4.TextFormxy1.Data1.Recordset.MovePreviousNextiEndIfEndIf城市便民导航系统查询算法分析3、模糊查询的实现IfNot城市便民导航系统查询算法分析3、模糊查询的实现IfFormlike.List1.ListCount<>0OrFormlike.List2.ListCount<>0Then'判断模糊查询有结果rt=MsgBox("对不起,您要查询得站点名不准确,是否进入模糊查询?",vbYesNo+vbExclamation)Ifrt=6ThenFormlike.Show'此窗体供用户选择模糊查询的结果EndIf城市便民导航系统查询算法分析3、模糊查询的实现IfForm城市便民导航系统查询算法分析4、转车查询的实现总站点表站点名大明宫乡政府南康村……数据库设计XYROUTE表nameR1R2…R29R30西工大2429………边家村2124……………………城市便民导航系统查询算法分析4、转车查询的实现总站点表站点名城市便民导航系统查询算法分析公交线路表:线路站点1站点2站点3站点4．．．站点391路西工大边家村省人民医院交大．．．．．．五路口．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．．4、转车查询的实现城市便民导航系统查询算法分析公交线路表:线路站点1站点2站点城市便民导航系统查询算法分析4、转车查询的实现算法分析如果用户指定的起始站点名在总站点表中存在，则通过查找XYROUT表判断共有几路车经过此站点。根据终止站点名查找XYROUT表判断共有几路车经过此站点。唐延路站点List2721路31路……520路西工大站点List124路29路……402路城市便民导航系统查询算法分析4、转车查询的实现算法分析唐延路城市便民导航系统查询算法分析4、转车查询的实现算法分析再对所有站点名查找XYROUT表，判断经过每一个站点的线路。判断中间站点是否有线路既经过起点站又经过终点站，如果有，则找到经过XXX站点的一条转车线路。唐延路站点List2721路31路……520路西工大站点List124路29路……402路XXX站点List329路31路……XX路城市便民导航系统查询算法分析4、转车查询的实现算法分析唐延路城市便民导航系统查询算法分析4、转车查询的实现Form1窗体：转车查询窗体PrivateSubCommand2_Click()‘进入转车查询Dima,h,i,j,k,l,mAsIntegerm=FalseFormxyroute.Data1.Recordset.FindFirst"name='"&Formbus.Text2.Text&"'“‘formxyroute的data1连接数据库总站点表‘Formbus的Text2为起始站点IfFormxyroute.Data1.Recordset.NoMatchThenMsgBox("起始站点不存在,请检查站点名称的正确性")m=TrueUnloadMe城市便民导航系统查询算法分析4、转车查询的实现Form1窗体城市便民导航系统查询算法分析4、转车查询的实现ElseFora=0To5Forh=1To30‘每个站点最多有30路车经过IfFormxyroute.Text1(h).Text=""ThenExitForElse‘Formxyroute.Text1(h)存放线路号List5(a).AddItemFormxyroute.Text1(h).Text‘List5(a)存放经过起始站点的线路号。EndIfNexthNextaEndIf城市便民导航系统查询算法分析4、转车查询的实现Else城市便民导航系统查询算法分析4、转车查询的实现Formxyroute.Data1.Recordset.FindFirst"name='"&Formbus.Text3.Text&"'"IfFormxyroute.Data1.Recordset.NoMatchThenMsgBox("终止站点不存在,请检查站点名称的正确性")UnloadMeElse城市便民导航系统查询算法分析4、转车查询的实现Formxyr城市便民导航系统查询算法分析4、转车查询的实现Fora=0To5Forh=1To30IfFormxyroute.Text1(h).Text=""ThenExitForElse’Text1数组用于显示经过此站点的所有公交线路List6(a).AddItemFormxyroute.Text1(h).Text‘List6(a)存放经过终点站点的线路号EndIfNexthNexta城市便民导航系统查询算法分析4、转车查询的实现Fora=城市便民导航系统查询算法分析4、转车查询的实现i=0Formxyroute.Data1.Recordset.MoveLast‘data1连接到XYROUT表（每个站点经过的车次），从后向前查找。Fork=0ToFormxyroute.Data1.Recordset.RecordCount–1'将每一个公交站点作为中转站点进行判断List3.ClearList4.Clear城市便民导航系统查询算法分析4、转车查询的实现i=0城市便民导航系统查询算法分析4、转车查询的实现Forh=1To30IfFormxyroute.Text1(h).Text=""ThenExitForElseList3.AddItemFormxyroute.Text1(h).Text‘将经过此一站点的所有公交线路列于List3中EndIfNexth城市便民导航系统查询算法分析4、转车查询的实现Forh=城市便民导航系统查询算法分析4、转车查询的实现Fora=0ToList5(i).ListCount–1‘终止站点数Forh=0ToList3.ListCount–1‘起始站点数IfList5(i).List(a)=List3.List(h)Then‘判断某一公交线路是否同时经过站点。List1(i).AddItemList5(i).List(a)'如果是,则将此公交线路列于List1中EndIfNexthNexta城市便民导航系统查询算法分析4、转车查询的实现Fora=城市便民导航系统查询算法分析4、转车查询的实现IfList1(i).ListCount>0Then'判断是否有公交线路同时经过第一个站点和中转站点Forh=1To30IfFormxyroute.Text1(h).Text=""ThenExitForElseList4.AddItemFormxyroute.Text1(h).TextEndIfNexth城市便民导航系统查询算法分析4、转车查询的实现IfList城市便民导航系统查询算法分析4、转车查询的实现Fora=0ToList6(i).ListCount-1Forh=0ToList4.ListCount-1IfList6(i).List(a)=List4.List(h)Then‘如果是,再判断是否有公交线路同时经过中转站点和第二个站点List2(i).AddItemList6(i).List(a)EndIfNexthNexta城市便民导航系统查询算法分析4、转车查询的实现Fora=城市便民导航系统查询算法分析4、转车查询的实现IfList2(i).ListCount>0ThenText1(i).Text=Formxyroute.Text1(0).TextText2(i).Text=Formbus.Text2Text3(i).Text=Formbus.Text3Ifi<6Theni=i+1'i用于将乘车方案控制在6套以内ElseExitForEndIfElseList1(i).ClearEndIfEndIf城市便民导航系统查询算法分析4、转车查询的实现IfList城市便民导航系统查询算法分析4、转车查询的实现Formxyroute.Data1.Recordset.MovePrevious'将中转站点移向上一个NextkIfm=FalseAndList1(0).ListCount=0ThenMsgBox("对不起，没有查询结果")UnloadMeEndIfEndIf城市便民导航系统查询算法分析4、转车查询的实现Formxy城市便民导航系统查询算法分析5、公交查询窗体中对站点标签的显示和隐藏的实现数据库设计站点坐标表:站点名X坐标Y坐标西工大12.124532.3214大雁塔21.215432.1254．．．．．．．．．城市便民导航系统查询算法分析5、公交查询窗体中对站点标签的显城市便民导航系统查询算法分析算法分析采用对标签Label8(i)的位置属性Left和Top设置，来动态显示站点在地图上的位置。Label8(i).Left=Val(Formxy.Text1(1).Text)Label8(i).Top=Val(Formxy.Text1(2).Text)其中Text1(1)和Text1(2)分别存放站点的XY坐标。通过对标签Label8(i)的属性Visible和Enabled设置来显示或隐藏站点名Label8(i).Visible=True‘显示所有的Label8Label8(i).Enabled=True

或者Label8(i).Visible=False'隐藏所有的Label8Label8(i).Enabled=False5、公交查询窗体中对站点标签的显示和隐藏的实现城市便民导航系统查询算法分析算法分析5、公交查询窗体中对站点城市便民导航系统查询算法分析5、公交查询窗体中对站点标签的显示和隐藏的实现Formbus窗体：PrivateSubCommand1_Click()'隐藏或显示站点DimiAsIntegerIfCommand1.Caption="显示所有站点"ThenCommand1.Caption="隐藏所有站点"Formxy.Data1.Recordset.MoveLastFori=1ToFormxy.Data1.Recordset.RecordCount‘Formxy窗体中的data1连接所有公交站点的坐标表Label8(i).Left=Val(Formxy.Text1(1).Text)‘Label8数组在地图上显示所用站点，Text1(1)显示站点X坐标Label8(i).Top=Val(Formxy.Text1(2).Text)‘此两行用于对初始站点进行定位，Text1(2)显示站点的Y坐标Label8(i).Caption=Formxy.Text1(0)‘Text1(0)显示站点名城市便民导航系统查询算法分析5、公交查询窗体中对站点标签的显城市便民导航系统查询算法分析5、公交查询窗体中对站点标签的显示和隐藏的实现Label8(i).ToolTipText=Formxy.Text1(0)Label8(i).Visible=TrueLabel8(i).Enabled=TrueFormxy.Data1.Recordset.MovePreviousNextiElseCommand1.Caption="显示所有站点"Fori=1ToFormxy.Data1.Recordset.RecordCountLabel8(i).Visible=False'隐藏所有的Label8Label8(i).Enabled=FalseNextiEndIfEndSub城市便民导航系统查询算法分析5、公交查询窗体中对站点标签的显城市便民导航系统查询算法分析6．公交线路数据库管理中对数据库的修改城市便民导航系统查询算法分析6．公交线路数据库管理中对数据库城市便民导航系统查询算法分析程序分析设置：Command1“新增”按钮Command2”修改”按钮Command3”删除”按钮Command4”放弃”按钮当点击Command1“新增”按钮时，”修改”按钮、”删除”按钮变为不可用；”放弃”按钮变为可用。如果Command1.Caption=“新增”则Command1.Caption=“确认”。并且调用AddNew

方法添加一条新纪录Data1.Recordset.AddNew

6、公交线路数据库管理中对数据库的修改城市便民导航系统查询算法分析程序分析设置：Comma城市便民导航系统查询算法分析程序分析本窗体和Data1控件绑定的控件有：

Text1(0)：该站点名称的输入文本框text1(1)：该站点的X坐标输入文本框text1(2)：该站点的Y坐标输入文本框将焦点放在Text1(0)上Text1(0).SetFocus如果Text1(0).Text=“”OrText1(0).Text=“”则提示：("数据不完整!")

如果点击Command1“确认”按钮时，调用更新方法Update

更新公交线路表；Data1.Recordset.Update并将纪录指针移动到最后一条纪录：Data1.Recordset.MoveLast6、公交线路数据库管理中对数据库的修改城市便民导航系统查询算法分析程序分析本窗体和Data1城市便民导航系统查询算法分析6、公交线路数据库管理中对数据库的修改（1）站点坐标数据库的修改（完整程序）Formxy窗体：PrivateSubCommand1_Click()'‘新增站点坐标Command2.Enabled=NotCommand2.Enabled‘”修改”按钮Command3.Enabled=NotCommand3.Enabled‘”删除”按钮Command4.Enabled=NotCommand4.Enabled‘”放弃”按钮IfCommand1.Caption="新增"ThenCommand1.Caption="确认"Data1.Recordset.AddNew‘此时在地图上点击一点，text1(1)和text1(2)分别显示该点的X坐标和Y坐标Text1(0).SetFocus‘text1(0)记录站点名称城市便民导航系统查询算法分析6、公交线路数据库管理中对数据库城市便民导航系统查询算法分析6、公交线路数据库管理中对数据库的修改ElseIfText1(0).Text=""OrText1(0).Text=""ThenMsgBox("数据不完整!")ElseCommand1.Caption="新增"Data1.Recordset.Update‘更新公交线路表Data1.Recordset.MoveLastEndIfEndSub城市便民导航系统查询算法分析6、公交线路数据库管理中对数据库城市便民导航系统查询算法分析数据库设计XYROUTE表nameR1R2…R29R30西工大2429………边家村2124……………………7、公交线路演示图动画的实现站点坐标表:站点名X坐标Y坐标西工大12.124532.3214大雁塔21.215432.1254．．．．．．．．．城市便民导航系统查询算法分析数据库设计XYROUTE表nam城市便民导航系统查询算法分析城市便民导航系统查询算法分析城市便民导航系统查询算法分析算法分析

当点击线路动画窗体Formdraw时，开始演示线路动画。用户选择的线路名存放在变量l中，根据变量l中存放的公交线路名，查找和Formroute.Data1绑定的公交线路表：Formroute.Data1.Recordset.FindFirst"代号='"&l&"'"如果没有找到，则提示“对不起，没有您要查询的公交路线”，并退出。

在Formdraw窗体中放置了31个文本框，其中一个用于显示站点名，其余30个用于显示某站点经过的线路名。将查找到的Formroute窗体中的文本框内容即某公交线路经过的所有站点存入Formdraw窗体的文本框Text1(i)中。统计选中的某公交线路经过的所有站点数，存入变量a中。7、公交线路演示图动画的实现城市便民导航系统查询算法分析算法分析当点击线城市便民导航系统查询算法分析7、公交线路演示图动画的实现

从站点坐标表中，查找需要显示站点的X和Y坐标。具体方法是：在站点坐标数据窗体中，从最后一条纪录开始查找。找到后，确定线段的起始点：Shape1(k).Left=Val(Formxy.Text1(1).Text)Shape1(k).Top=Val(Formxy.Text1(2).Text)Formxy.Text1和Formxy.Data1绑定；Formxy.Text1(1)存放站点的X坐标,将其值作为画线段的X坐标；Formxy.Text1(2)存放站点的X坐标,将其值作为画线段的X坐标。Shape1控件为作图控件，可以通过设置其式样Shape属性，在窗体、框架或图片框中创建预定义形状：矩形、正方形、椭圆形、圆形、圆角矩形或圆角正方形。也可以设置Heigh和Width属性，改变图形的大小。算法分析（续）城市便民导航系统查询算法分析7、公交线路演示图动画的实现画线必须启动Timer控件，在Timer事件中，先判断k个站点是否画完，如果X<k-1Andb=True则在站点X和站点Y=X+1之间画出线段。Picture1.Line(Shape1(X).Left,Shape1(X).Top)-(Shape1(Y).Left,Shape1(Y).Top)并且X=X+1，准备画下一条线段。如果X>=k-1则将前面画的线段清除，将b=FalseX=k–1，结束本次坐图。如果X<=k-1Andb=FalseThen则反向画出线路连线。在站点X和站点Y=X–1之间画出线段。X=X-1，结束本次坐图。算法分析（续）画线必须启动Timer控件，在Timer事件中，先判城市便民导航系统查询算法分析Formdraw窗体：PrivateSubForm_Activate()'窗体激活时即演示线路动画Timer2.Enabled=True'控制Shape控件的闪烁显示Dimi,jAsIntegerk=1Formroute.Data1.Recordset.FindFirst"代号='"&l&"'"‘变量l存放公交线路名IfFormroute.Data1.Recordset.NoMatchThenMsgBox("对不起，没有您要查询的公交