在登录成功之后，即可进入相应的管理页面，点击“乘车方案查询”，即出现对应管理页面，即可以输入相应站点信息，皆可找出所有乘车方案。 （9）站点信息浏览查询
在登录成功之后，即可进入相应的管理页面，点击“站点信息浏览”，即出现所有线路沿线站点信息及属性向
第7章 结论与展望
7.1 结论
通过几个月时间的系统开发，公交查询系统系统完成.在系统开发过程中,以前学习感觉到很抽象的课程,如数据库原理,面向对象程序设计等课程变得清晰起来.感觉到这些课程的重要性.不仅让我进一步巩固了vb语言的知识，也了解了公交车查询信息项目开发的流程。懂得了如何用vb编写可视化界面应用程序，我加强了对vb的认识，复习了自己以前的知识，自己的逻辑思考能力也提高不少。在这次课程设计中，我还懂得了程序开发的一些比较重要的步骤，比如需求分析、总体设计、数据库设计(含概念设计、逻辑设计、物理设计)、程序模块设计(含功能需求、乘客界面设计、程序代码设计与分析、运行结果)、系统使用说明等。这次系统设计使我通过实践,提高了系统分析的能力，对数据流图、数据字典、数据流程图等系统设计工具的使用有了更深刻的认识.为以后的工作学习进一步提高打下了坚实的基础。
总的来说这次的毕业设计为我即将踏入社会之前提供了一次锻炼机会。在做毕业设计的途中，遇到了很多困难，这些困难都需要自己解决，靠着老师、同学以及自己独立思考的能力闯过一道又一道难关。在学习和解决这些困难的过程中，提高了自我学习的能力和解决问题的能力和实际工作的能力。学到了许多书本以外的知识，这是让我踏出校门给我最大的回报。
7.2 展望
随着我国交通事业的发展，地铁、公交、飞机等等多种立体的交通会逐渐
的完善起来，并且对交通信息的需求会越来越强烈。我国目前交通查询方式很局限，除了几个少数城市，乘客可以通过分布于城市中的若干电子站牌获得一些公交车辆的运营信息以外，在其它城市“出行中”的乘客无法获得任何实时信息。虽然如此，随着科学技术的不断更新，未来必将会逐一的使用更快捷方便的方式给乘客公交信息。在轻松出行的同时不用提前“备课”，在乘车的时候不用查阅转乘公交。随着人们对轻松，快捷出行的要求提升，公交查询系统也会以适应性为主，快捷简便的去给乘客公交信息，使得乘车不再困难，不再是“问题”。
致谢
感谢西京大学和指导老师以认真负责的态度为我们组织这次毕业设计以及毕业论文答辩.。你们的严格把关,对我们来说有很大的压力,在这种压力下促使我们以最快的融入到软件开发理论的应用中去，通过这次锻炼，使我们的系统开发水平各个方面都有了较大的进步。由此积累的经验将对我们以后的学习和生活产生帮助。
感谢我的指导老师，在毕业设计时帮助选题，并且在设计过程中提出了许多好的建议和意见，同时老师先进的软件开发理念和思维方式也给我很大的启发。
参考文献
[1]胡或.VB程序设计[M].北京:电子工业出版社,2003,3. [2]龚沛曾.VisualBasic程序设计简明教程[M].北京:高等教育出版社,2002,12.
[3]张松民.VB开发实例200[M].天津:天津大学出版社,2000,9. [4]王浩.VB系统设计与数据库[M].北京:人民邮电出版社,2001,11. [5]王晟.VisualBadic数据库开发经典案例解析[M]北京:清华大学出版
社,2004.
[6]柴欣.VisualBasic程序设计基础[M].北京:中国铁道出版社,2001,5. [7]于鹏.VisualBasic6.0案例教程电子工业出版社[M].北京:科学出版社,2000,6.
[8]BobReselman,RichardPeasley,WaynePruchniak.VisualBasic6.0使用指南[M].电子工业出版社,2002.132-137.
[9]GunderioyM.VisuaiBasicDeveioper'sGuidetoADO[M].SybexInc,1999. [10]刘韬,骆娟,何旭洪.VisualBasic6.0数据库系统开发实例导航[M].北京：人民邮电出版社,2002.56-58.
[11]张红军,王红.VisualBasic6.0中文版高级应用与开发指南[M].北京：人民邮电出版社,2001,4.
[12]林立军，程斌，翁迪恩.VisualBasic6.0数据库开发指南[M].西安：西安电子科技大学出版社，2000，2.
[13]张宏林，孔艳，王哲.按实例学VisualBasic6.0[M].北京:人民邮电出版社，2000.
[14]李素琴.VB与数据库访问技术的研究[J],装备制造技术,2011,3,(6):88～90.
附录
系统登陆模块设计
Dim rs As New ADODB.Recordset
rs.Open \* from 乘客 where 姓名='\& Trim(Text1.Text) & \and 密码='\& Trim(Text2.Text) & \ If rs.EOF = True Then
MsgBox \密码错误或者无此乘客\ rs.Close
Set rs = Nothing Exit Sub End If
strXM = Trim(rs.Fields(0).Value) strMM = Trim(rs.Fields(1).Value) strQX = Trim(rs.Fields(2).Value) rs.Close
Set rs = Nothing
FrmMain.Show Unload Me
系统主界面设计
Private Sub Form_Load()
If strQX <> \管理员\
Mnu_YHGL.Visible = False End If End Sub
Private Sub Mnu_CCFACX_Click() FrmCCFACX.Show End Sub
Private Sub Mnu_MMXG_Click() FrmMMXG.Show End Sub
Private Sub Mnu_XLJGZDWH_Click() FrmXLJGZDGL.Show End Sub
Private Sub Mnu_XLXXGL_Click() FrmXLXXGL.Show End Sub
Private Sub Mnu_YHGL_Click() FrmYHGL.Show End Sub
Private Sub Mnu_ZDCX_Click() FrmZDXXCX.Show End Sub
Private Sub Mnu_ZDXXGL_Click() FrmZDXXGL.Show End Sub
Private Sub Mnu_ZDXXLL_Click() FrmZDXXLL.Show End Sub