公交车查询系统

摘  要…………………………………………………………………………1
Abstract………………………………………………………………………2
第一章  引言…………………………………………………………………4
1．1  课题背景……………………………………………………………………4
1．2  系统简介……………………………………………………………………5
1. 3  开发软件介绍………………………………………………………………6
第二章 系统的分析……………………………………………………………8
2．1  系统开发的目标和思想……………………………………………………9
2．2  系统的可行性分析…………………………………………………………13
第三章  系统的设计……………………………………………………………18
3．1  系统的功能结构设计………………………………………………………18
3．2  系统的数据库设计
3．3  界面设计与代码设计……………………………………………………………………23
…………………………………………………………24
结束语………………………………………………………………………………46 内容来自think58 [来源：http://think58.com]
致谢…………………………………………………………………………………47
参考文献…………………………………………………49 think58好，好think58 [来源：http://www.think58.com]

摘  要

[资料来源：http://think58.com]

随着经济的发展，社会的进步，计算机越来越深入到我们日常的工作学习及生活中，成为我们日常生活中不可缺少的辅助工具。  随着科学技术的不断提高,计算机科学日渐成熟,其强大的功能已为人们深刻认识,它已进入人类社会的各个领域并发挥着越来越重要的作用。它已经深入到日常工作和生活的方方面面，比如文字处理、信息管理、辅助设计、图形图像处理、教育培训以及游戏娱乐等。各行各业的人们无须经过特别的训练就能够使用电脑完成许许多多复杂的工作。然而，虽然现在世界上已经充满了多如牛毛的各种软件，但它们依然不能满足用户的各种特殊需要，人们还不得不开发适合自己特殊需求的软件。以前开发Windows应用软件是专业人员的工作，需要掌握许多专业知识和经过特殊的培训才能胜任。现在不同了，即使你没有接受过严格的程序设计训练，使用Visual Basic也一样能够开发出功能强大、适合自己特殊需求的应用程序了。Visual Basic继承了Basic语言易学易用的特点，特别适合于初学者学习Windows系统编程。
   公交车查询管理系统用计算机管理公交车路线信息的一种计算机应用技术的创新,在计算机还未普及之前公交车查询管理都是由工作人们人工查询的方式来操作的.现在一般的公交车查询都采用计算机智能化管理,采用计算机作为工具的实用的计算机路线自动管理程序来帮助人们进行更有效的公交车路线查询。公交车查询管理系统是典型的信息管理系统(MIS),其开发主要包括后台数据库的建立和维护以及前端应用程序的开发两个方面。对于前者要求建立起数据一致性和完整性强、数据安全性好的库。而对于后者则要求应用程序功能完备,易使用等特点。 本文来自think58 [资料来源：THINK58.com]
    经过分析,我们使用 MICROSOFT公司的 VISUAL BASIC开发工具,利用其提供的各种面向对象的开发工具,尤其是数据窗口这一能方便而简洁操纵数据库的智能化对象,首先在短时间内建立系统应用原型,然后,对初始原型系统进行需求迭代,不断修正和改进,直到形成用户满意的可行系统。
因为本人能力有限，加上时间紧迫，所以设计出来的本系统可能功能比较简单，另外本系统是单机版，不能实现网络互联操作,这些都有待于我在以后的工作学习中进一步改进。
关键字:公交车查询管理,MIS,visual basic ,数据库 内容来自think58 [资料来源：THINK58.com]

第一章 系统的分析
2．1 系统开发的目标和思想
本系统开发目标是服务于人们查询公交车路线信息,方便工作人员日常出行.
同时力求做到界面人性化,功能齐全,数据存储安全.

[资料来源：THINK58.com]

2．2 系统的可行性分析 [资料来源：http://think58.com]

技术上:本系统采用visual basic 6.0与微软的access作为数据库,技术上开发难度一般.
经济上:本系统服务于人们出行公交车查询,提高了工作人员办事效率,节省了开支.所以具有经济上的可行性.
社会上:本系统同时也方便了广大社会.所以具有社会可行性. [来源：http://www.think58.com]

第二章 系统的设计

3．1 系统的功能结构设计
  本文来自think58 [版权所有：http://think58.com]

3．2  系统的数据库设计 copyright think58

[来源：http://www.think58.com]

1.bus信息表:
  内容来自think58

[资料来源：http://think58.com]

3．2 界面设计与代码设计 think58

1关于界面设计:
 
代码设计:
Option Explicit
Dim bt As Boolean

Private Sub Check1_Click()
If Check1.Value = 0 Then
   Form1.IsBeginS = True
Else
   Form1.IsBeginS = False
End If
End Sub copyright think58 [资料来源：http://think58.com]

Private Sub Form_Load()
bt = True
End Sub

本文来自think58 [资料来源：www.THINK58.com]

[资料来源：http://think58.com]

Private Sub Label1_Click()

copyright think58 [资料来源：http://THINK58.com]

[资料来源：http://THINK58.com]

End Sub

think58好，好think58 [资料来源：www.THINK58.com]

[资料来源：THINK58.com]

Private Sub Timer1_Timer()
bt = False
If Check1.Value = 0 Then
   Form1.IsBeginS = True
Else
   Form1.IsBeginS = False
End If
Load Form1
Form1.Show
Timer1.Enabled = False
End Sub

think58 [来源：http://www.think58.com]

[资料来源：www.THINK58.com]

Private Sub Timer2_Timer()
Timer1.Enabled = True
Timer2.Enabled = False
End Sub [资料来源：http://think58.com]

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()
' 以下代码是用来把在数据库的所有不同的车站显示在起始站中
' 其思路是如果在启动界面中，用户选择了更新数据库，则扫描整个数据库，并把不同的车站加到起始站中
' 并把这些车站名存放在一文本框中，以用于下次读取
' 如果用户没有选择更新数据库，则直接从文件中读取车站存放在起始站中
' 这样做的好处是可以大大提高效率，如果每次启动都要重新检索数据库，则要花费大量的时间
If IsBeginS = False Then '用户选择了更新数据库
Dim strm As String
Dim mrc3 As ADODB.Recordset
Set mrc3 = New ADODB.Recordset
 Set mrc3 = Adodc1.Recordset
 mrc3.MoveFirst
 Do While Not mrc3.EOF
  For i = 1 To NC
    strm = Text2(i).Text
     If strm = "" Then
       Exit For
     End If
       For j = 0 To cbs.ListCount
          If cbs.List(j) = Trim(strm) Then
          Exit For 本文来自think58 [资料来源：http://think58.com]
          End If
       Next
       If j > cbs.ListCount Then
          cbs.AddItem Trim(strm)
       End If
   Next
   mrc3.MoveNext
   Loop
   If Mid(App.path, Len(App.path) - 1, 1) <> "\" Then
   Open App.path + "\allstation.dat" For Output As #1
   Else
   Open App.path + "allstation.dat" For Output As #1
   End If
      Print #1, CStr(cbs.ListCount)
   For k = 0 To cbs.ListCount - 1
      Print #1, , cbs.List(k)
   Next
   Close #1
Set mrc3 = Nothing
Else '用户没有选择了更新数据库
  Dim strbs As String
  Dim intnb As Integer
  If Mid(App.path, Len(App.path) - 1, 1) <> "\" Then

内容来自think58 [资料来源：THINK58.com]

   Open App.path + "\allstation.dat" For Input As #1
   Else
   Open App.path + "allstation.dat" For Input As #1
   End If
   Input #1, strbs
   intnb = CInt(Val(strbs))
     
   For k = 0 To intnb - 1
      Input #1, strbs
      cbs.AddItem strbs
   Next
   Close #1
   End If
End Sub think58好，好think58 [资料来源：http://think58.com]

Public Sub showtitle(numt As Integer)
'用于显示列表中的标题
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) = "站" & 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

think58好，好think58 [资料来源：http://www.THINK58.com]

    .Row = 1
    End With
    Next
End Sub

[来源：http://think58.com]

Public Sub showdata(num As Integer)
'用于显示按车站名进行的查询
showtitle (num)
Dim j As Integer
Dim i As Integer think58 [来源：http://think58.com]

Dim mrc0 As ADODB.Recordset
Set mrc0 = New ADODB.Recordset
 Set mrc0 = ExecuteSQL(txtsql)
 If mrc0.EOF = False Then
   mrc0.MoveFirst
   With MSF1(num)
    .Rows = 2
    .Row = 1
    Do While Not mrc0.EOF
     .Rows = .Rows + 1
     For i = 1 To mrc0.Fields.Count
       If mrc0.Fields(i - 1) <> "Null" Then
      .TextMatrix(.Row, i - 1) = mrc0.Fields(i - 1)
      End If
     Next i
      .Row = .Row + 1
     mrc0.MoveNext
    Loop
 End With
 End If
 
  Set mrc0 = Nothing
End Sub

copyright think58 [资料来源：http://www.THINK58.com]

[资料来源：http://think58.com]

参 考 文 献

think58.com

[来源：http://www.think58.com]

[资料来源：THINK58.com]

1陈明 . 软件工程学教程 .科技出版社，2002
2 萨师煊，王珊 . 数据库系统概论 . 第三版 . 高等教育出版社，2000
3 飞思科技产品研发中心 . visual basic 6.0数据库应用开发 .电子工业出版社，2003
4 飞思科技产品研发中心 . visual basic 6.0开发者手册 . 电子工业出版社, 2002
5 申旻 . visual basic 6.0高手突破 . 清华大学出版社，2002，302
6 Steve Teixeira，Xaviver Pacheco著，龙劲松，王瑜，谢尚书译 . visual basic 6.0开发人员指南 . 机械工业出版社 .2003