公交查詢系統(tǒng)的設計與實現(xiàn)

1、裝訂線畢業(yè)設計（論文）報告紙公交查詢系統(tǒng)設計畢業(yè)論文信息工程系畢業(yè)設計(論文)誠信承諾我謹在此承諾：本人所寫的畢業(yè)論文 公交查詢系統(tǒng)制作 ，系本人獨自完成，凡涉及其他作者的觀點和材料，均作了注釋與說明，若有不實，后果本人承擔。承諾人(簽名)：2010年6 月1 日摘 要為推進地名信息服務工作，開發(fā)的“南京市公交查詢系統(tǒng)”軟件（以下簡稱“本軟件”），用于提供快速的、簡便的城市公交站點、線路查詢服務，也可以用于制作地鐵、公路等交通信息查詢系統(tǒng)。本軟件的核心是對選擇好的車次進行路線的查詢，或者輸入所要查詢的車站名，點擊“查詢”按鈕，查詢所有含有該站的車次及相應的?？空?。此處既可以“精確查詢”也可以是

2、“模糊查詢”，“模糊查詢”主要方便那些對站名不是很清楚，但知道其中的一部分的乘客，系統(tǒng)可以幫助他們快速的查出。本軟件用JSP作為開發(fā)語言并結合SQL數(shù)據庫，只要將公交站點等信息輸入數(shù)據庫，就可以很快構建成一個簡單、實用的本地公交查詢系統(tǒng)。關鍵詞： JSP、 SQL數(shù)據庫、 車次管理， 公交查詢系統(tǒng)。English AbstractTo promote the geographical names information service work, I developed the "Nanjing Public Transport Query System" (hereina

3、fter referred to as the "Software"), used to provide fast, convenient city bus stops, in line inquiry service can also be used to make subway , highway and other transportation information inquiry system. The core of this software is a good choice of trips to routes of inquiry, o

4、r enter the station name to the query, click the "Search" button, check all the trips with the station and the corresponding stops. Here both "Exact" can be "fuzzy query," "Fuzzy query," the main benefit of those on the station were not clear, but that on

5、e part of the passenger, the system can help them quickly find out. This software is developed using JSP as a language and SQL database integration, as long as the bus stops and other information entered into the database, you can quickly build into a simple, practical system of local public tr

6、ansport inquiry。Keywords: JSP, SQL databases, sell management, transit system.目  錄1 緒論511 研發(fā)的背景512 可行性分析62 需求分析621 用戶功能需求分析62.1.1 所有乘客可以使用該系統(tǒng)進行車次及路線的查詢。72.1.2 本系統(tǒng)應具有簡單易用功能強大特點，有較強的糾錯能力（隨著軟件的版本升級功能和糾錯能力也可以不斷得到提高）。如果在網絡上運行，應有數(shù)據在線更新的能力以及在線查詢的能力。由于畢業(yè)設計時間有限，本系統(tǒng)沒有設計

7、成網絡運行版的，在以后的時間會進一步完善該系統(tǒng)。72.1.3由于車次經常會變化所以需要一個管理員身份去管理這個公交查詢系統(tǒng)方便更改車次的信息以及車輛的出行線路。722 系統(tǒng)功能分析73 系統(tǒng)總體結構設計731 模塊結構設計732 數(shù)據庫設計74 系統(tǒng)詳細設計84.1 代碼設計84.2 人機界面設計84.3 本系統(tǒng)的界面和源代碼104.31 管 理 員 登 陸 成 功 界 面104.3.2 公 交 信 息 修 改 界 面134.3.3 公 交 查 詢 信 息 界 面144.3.4 公 交 職 員 管 理 界 面165

8、 系 統(tǒng) 難 點 分 析196結 論207致 謝208 參考文獻211 緒論隨著我國經濟的高速發(fā)展，人們生活水平的提高，越來越多的人開始熱衷于到外地旅游。那么對于這些外來旅游者，首先搞清這個城市的公交路線顯的很重要！南京，作為一個六朝古都，每年都要吸引大量的游客，為了方便廣大游客，我的畢業(yè)設計就以公交查詢系統(tǒng)做為設計課題。我認為這樣的系統(tǒng)應該具有很好的實用性！乘客只需選擇車次或輸入要查詢的站點，系統(tǒng)會快速的給出結果，同時管理員也可以很容易的修改車次。正是基于這樣的目的我開發(fā)了公交查詢系統(tǒng)。下面就根據軟件工程理論的規(guī)范要求對軟件的開發(fā)背景、意義、需求分析等方面進行分析：11 

9、研發(fā)的背景城市規(guī)模的逐步擴大，也使整個城市的交通干道越來越復雜，在這種情況下，公交查詢系統(tǒng)顯的非常的方便和高效，在這個背景下我開發(fā)了公交查詢系統(tǒng)。本系統(tǒng)的開發(fā)有很大的社會意義，能給廣大市民提供極大的方便。12 可行性分析可行性分析是對系統(tǒng)進行全面、概要的分析。它的任務是確定項目開發(fā)時是否必要和可行。它的主要目標是：進一步明確系統(tǒng)的目標、規(guī)模和功能，對系統(tǒng)開發(fā)背景、必要性和意義進行調查分析，并且提出系統(tǒng)的邏輯模型和各種可能的方案，從而為系統(tǒng)開發(fā)項目的決策提供科學依據。主要從三個方面進行研究：（1）技術可行性：以現(xiàn)有技術進行系統(tǒng)開發(fā)及系統(tǒng)實施，是完全可行的。首先，從自身來分析，經過2年多

10、的學習已經初步掌握了JSP控件、SQL數(shù)據庫等方面的編程技巧，對該軟件的設計并不存在技術上的難點。第二方面，在設計這個系統(tǒng)之前，我進行了一系列先期調研，查閱了有關使用JSP進行數(shù)據庫開發(fā)方面的論著、教材和論文，更多是利用網絡的便利條件，從網上查閱了北京、上海、廣州、昆明等大型城市的公交查詢系統(tǒng)，并認真地對其進行了分析研究，由于時間緊,任務重，我沒有更多的時間來開發(fā)完整的系統(tǒng)，所以就以查詢作為這個系統(tǒng)的核心。其次，從數(shù)據庫方面來分析，也是可行的。系統(tǒng)所建立的數(shù)據庫表中包含有五個字段：bus_number,bus_station1, bus_station2, bus_station3, bus_

11、station4。bus_number用來存放車次，bus_station1, bus_station2, bus_station3, bus_station4這四個字段用來存放站點。（2）經濟可行性：從這方面來說，本系統(tǒng)的開發(fā)作為課題來說不需要什么經濟投入，因此來說也是可行的。（3）營運可行性:國內很早就開始應用公交查詢系統(tǒng)，我國大部分城市都有公交查詢系統(tǒng)。那么從這方面來說是可行的。2 需求分析隨著我國經濟的高速發(fā)展，人們生活水平的提高，越來越多的人開始熱衷于到外地旅游。那么對于這些外來旅游者，首先搞清這個城市的公交路線顯的很重要！南京，作為一個六朝古都，每年都要吸引大量的游客，為

12、了滿足這些游客熟悉公交路線的需求，特以公交查詢系統(tǒng)為設計課題。本軟件不僅能給游客帶來方便，也能給廣大市民提供方便。我認為這樣的系統(tǒng)應該具有很好的實用性！開發(fā)本系統(tǒng)的目標就是立足廣大乘客的實際，著眼于公交業(yè)的未來發(fā)展，規(guī)范公交管理，提高服務質量，方便乘客查詢，并為此設計該系統(tǒng)。21 用戶功能需求分析2.1.1 所有乘客可以使用該系統(tǒng)進行車次及路線的查詢。2.1.2 本系統(tǒng)應具有簡單易用功能強大特點，有較強的糾錯能力（隨著軟件的版本升級功能和糾錯能力也可以不斷得到提高）。如果在網絡上運行，應有數(shù)據在線更新的能力以及在線查詢的能力。由于畢業(yè)設計時間有限，本系統(tǒng)沒有設計成

13、網絡運行版的，在以后的時間會進一步完善該系統(tǒng)。2.1.3由于車次經常會變化所以需要一個管理員身份去管理這個公交查詢系統(tǒng)方便更改車次的信息以及車輛的出行線路。22 系統(tǒng)功能分析本系統(tǒng)提供了的車次查詢功能、路線查詢功能。乘客可以方便的進行查詢，以防乘錯車次。同時管理員身份方便管理車輛的車次和出行線路。當然有些功能的智能化不是很強，系統(tǒng)有待進一步來完善。也希望老師及朋友給予指導，提出您們的建議！在此，先向您們表示感謝！3 系統(tǒng)總體結構設計本系統(tǒng)采用結構化設計的方法來實現(xiàn)系統(tǒng)總體功能，提高系統(tǒng)的各項指標，即將整個系統(tǒng)合理的劃分成各個功能模塊，正確地處理模塊之間和模塊內部的聯(lián)系以及和

14、數(shù)據庫的聯(lián)系，定義各模塊的內部結構，通過對模塊的設計和模塊之間關系的系統(tǒng)來實現(xiàn)整個系統(tǒng)的功能31 模塊結構設計本系統(tǒng)共分兩個模塊：（1）車次查詢模塊：車次查詢模塊主要實現(xiàn)選擇好車次后，得到相應車次的路線的功能；（2）路線查詢模塊：路線查詢模塊中，既可以進行精確查詢，也可以進行模糊查詢，當乘客不知道確切的站名時，只要輸入其中的一個或多個字就可以進行查詢。32 數(shù)據庫設計本系統(tǒng)的數(shù)據庫設計，采用了SQL進行數(shù)據庫設計。通過對市場的調查,建立一個bus數(shù)據庫已能滿足要求，本數(shù)據庫中的bus表中，建立了五個字段：bus_number,bus_station1, bus_statio

15、n2, bus_station3, bus_station4。結構如下:表中bus_number用來保存車次，數(shù)據類型定義為數(shù)字；bus_station1, bus_station2, bus_station3, bus_station4用來保存站點，類型定義為文本，但對于文本屬性來說每個字段的最大長度為 255，超過這個長度系統(tǒng)不予顯示，因此設四個字段來控制，便于以后數(shù)據的擴充。這里如果用一個字段來放站點，當向字段錄入數(shù)據時，系統(tǒng)不會提示數(shù)據已滿，但程序執(zhí)行后，顯示“數(shù)據源被截斷”，而用四個字段來放站點，只要每個字段錄入數(shù)據不超過規(guī)定的最大值就避免了以上錯誤的發(fā)生。數(shù)據庫結構如何設計無疑在整

16、個系統(tǒng)設計中占有重要的地位，所以我們在開發(fā)一個系統(tǒng)之前，一定要考慮好數(shù)據庫該怎么設計，怎么樣設計方便接口實現(xiàn)和界面顯示。當然也可以采用另外的組織方式，只要滿足一定的規(guī)則，符合條件并且有利于編程的實現(xiàn)，都可以采用。4 系統(tǒng)詳細設計4.1 代碼設計采用dreamweaver工具開發(fā)客戶端用戶體驗，制作JSP網頁然后使用Tomcat作為服務器連接SQL數(shù)據庫4.2 人機界面設計、Imports System.Data.SqlClientImports System.IOPublic Class Login Private sqlobject As SQL_Conn Pr

17、ivate cmdstr As String Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Me.Close() End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click cmdstr = "select * from user where us

18、er_id ='" + TextBox1.Text + "' and pwd= '" + TextBox2.Text + "' and style= '" + ComboBox1.Text + "'" Try If sqlobject.Is_SQL_Cmd(cmdstr) Then main.m_Login = True main.m_style = ComboBox1.Text main.main_Load(sender, e) zhiyuanguanli.userid =

19、TextBox1.Text MsgBox(ComboBox1.Text + "成功登陸") main.ToolStripStatusLabel1.Text = "就緒" Me.Close() Else MsgBox("請?zhí)顚懻_的用戶名、密碼和用戶類型!") End If Catch ex As Exception main.OPErr.WriteErr(ex) End Try End Sub Private Sub Login_Load(ByVal sender As System.Object, ByVal e As System

20、.EventArgs) Handles MyBase.Load ComboBox1.SelectedIndex = 0 sqlobject = New SQL_Conn Me.MdiParent = main End SubEnd Class4.3 本系統(tǒng)的界面和源代碼4.31 管 理 員 登 陸 成 功 界 面Imports System.Windows.FormsPublic Class main Public m_Login As Boolean = False Public m_style As String Public OPErr As New OutputErr Pri

21、vate sqlobject As SQL_Conn Private CmdStr As String Public Sub main_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load If m_Login = False Then Me.公交信息ToolStripMenuItem.Enabled = False Me.條件查詢ToolStripMenuItem.Enabled = False Me.職員管理ToolStripMenuItem.Enabled = False

22、Me.登錄ToolStripMenuItem.Enabled = True Me.注銷ToolStripMenuItem.Enabled = False Me.ToolStripButton6.Enabled = True Me.ToolStripButton7.Enabled = False Me.ToolStripButton1.Enabled = False Me.ToolStripButton5.Enabled = False Me.ToolStripButton8.Enabled = False login.MdiParent = Me login.Show() Else Me.公交

23、信息ToolStripMenuItem.Enabled = True Me.條件查詢ToolStripMenuItem.Enabled = True Me.登錄ToolStripMenuItem.Enabled = False Me.注銷ToolStripMenuItem.Enabled = True Me.ToolStripButton6.Enabled = False Me.ToolStripButton7.Enabled = True Me.ToolStripButton1.Enabled = True Me.ToolStripButton5.Enabled = True Me.Tool

24、StripButton8.Enabled = True If m_style = "管理員" Then Me.公交信息ToolStripMenuItem.Enabled = True Me.條件查詢ToolStripMenuItem.Enabled = True Me.職員管理ToolStripMenuItem.Enabled = True ElseIf m_style = "職員" Then Me.公交信息ToolStripMenuItem.Enabled = True Me.條件查詢ToolStripMenuItem.Enabled = True M

25、e.職員管理ToolStripMenuItem.Enabled = False End If End If End Sub Private Sub 退出ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 退出ToolStripMenuItem.Click Me.Close() End Sub Private Sub 注銷ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.

26、EventArgs) Handles 注銷ToolStripMenuItem.Click Me.m_style = "" Me.m_Login = False For Each ChildForm As Form In Me.MdiChildren ChildForm.Close() Next main_Load(sender, e) Login.Show() Me.ToolStripStatusLabel1.Text = "登錄" End Sub Private Sub ToolStripButton7_Click(ByVal sender As Sy

27、stem.Object, ByVal e As System.EventArgs) Handles ToolStripButton7.Click Me.m_style = "" Me.m_Login = False For Each ChildForm As Form In Me.MdiChildren ChildForm.Close() Next main_Load(sender, e) Login.Show() Me.ToolStripStatusLabel1.Text = "登錄" End Sub Private Sub 登錄ToolStripMe

28、nuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 登錄ToolStripMenuItem.Click Login.Show() End Sub Private Sub Timer1_Tick(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Timer1.Tick Label1.Text = Now End Sub Private Sub ToolStripButton6_Click(ByVal s

29、ender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton6.Click Login.Show() End Sub Private Sub 添加ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加ToolStripMenuItem1.Click gongjiaoxinxixiugai.MdiParent = Me gongjiaoxinxixiugai.Show()

30、 End Sub Private Sub 查詢ToolStripMenuItem1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 查詢ToolStripMenuItem1.Click gongjiaoxinxichakan.MdiParent = Me gongjiaoxinxichakan.Show() End Sub Private Sub 預定查詢ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As Syste

31、m.EventArgs) Handles 預定查詢ToolStripMenuItem.Click shoumozhanchaxun.MdiParent = Me shoumozhanchaxun.Show() End Sub Private Sub 添加職員ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 添加職員ToolStripMenuItem.Click zhiyuanguanli.MdiParent = Me zhiyuanguanli.Show() E

32、nd Sub Private Sub ToolStripButton5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton5.Click gongjiaoxinxichakan.MdiParent = Me gongjiaoxinxichakan.Show() End Sub Private Sub ToolStripButton8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Ha

33、ndles ToolStripButton8.Click shoumozhanchaxun.MdiParent = Me shoumozhanchaxun.Show() End Sub Private Sub 使用方法ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) MsgBox("點擊相應的圖標選擇需要的功能，選擇菜單、客戶等內容時，直接點擊數(shù)據表") End Sub Private Sub ToolStripButton1_Click(ByVal sen

34、der As System.Object, ByVal e As System.EventArgs) Handles ToolStripButton1.Click gongjiaoxinxixiugai.MdiParent = Me gongjiaoxinxixiugai.Show() End SubEnd Class4.3.2 公 交 信 息 修 改 界 面Imports 公交查詢Imports System.IOPublic Class gongjiaoxinxichakan Private row As Integer = -1 Private CmdStr As String Priv

35、ate sqlobject As SQL_Conn Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windows.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick If row <> e.RowIndex And e.RowIndex >= 0 Then row = e.RowIndex Label6.Text = Me.DataGridView1.Item(0, row).Value.T

36、oString.Trim() Label7.Text = Me.DataGridView1.Item(1, row).Value.ToString.Trim() Label8.Text = Me.DataGridView1.Item(2, row).Value.ToString.Trim() Label9.Text = Me.DataGridView1.Item(3, row).Value.ToString.Trim() Label1.Text = Me.DataGridView1.Item(0, row).Value.ToString.Trim() If Label1.Text <&g

37、t; "" Then CmdStr = "select photo from gj where name='" + Label1.Text + "'" DisplayImg(CmdStr) Else : PictureBox1.Image = Nothing End If End If End Sub Private Sub kehuchaxun_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load sq

38、lobject = New SQL_Conn CmdStr = "SELECT name as '線路名稱',price as '費用價格',efficacy as '首站地址',formula as '末站地址' FROM gj" Try Me.DataGridView1.DataSource = sqlobject.SQL_Ada(CmdStr) Catch ex As Exception main.OPErr.WriteErr(ex) End Try Me.DataGridView1.AutoSizeCo

39、lumnsMode = DataGridViewAutoSizeColumnsMode.DisplayedCells End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Call kehuchaxun_Load(sender, e) End Sub Private Sub DisplayImg(ByVal str As String) sqlobject.SQL_Ada(str) If sqlobject.SQL_Ada(str).Rows(0).Item(0

40、) Is DBNull.Value Then PictureBox1.Image = Nothing Else Dim imgbyte() As Byte = sqlobject.SQL_Ada(str).Rows(0).Item(0) Dim imgmemory As New MemoryStream(imgbyte) PictureBox1.Image = Image.FromStream(imgmemory) End If End Sub Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As Syste

41、m.EventArgs) Handles Button1.Click End SubEnd Class4.3.3 公 交 查 詢 信 息 界 面Imports 公交查詢Imports System.IOPublic Class gongjiaoxinxichakan Private row As Integer = -1 Private CmdStr As String Private sqlobject As SQL_Conn Private Sub DataGridView1_CellClick(ByVal sender As Object, ByVal e As System.Windo

42、ws.Forms.DataGridViewCellEventArgs) Handles DataGridView1.CellClick If row <> e.RowIndex And e.RowIndex >= 0 Then row = e.RowIndex Label6.Text = Me.DataGridView1.Item(0, row).Value.ToString.Trim() Label7.Text = Me.DataGridView1.Item(1, row).Value.ToString.Trim() Label8.Text = Me.DataGridVie

43、w1.Item(2, row).Value.ToString.Trim() Label9.Text = Me.DataGridView1.Item(3, row).Value.ToString.Trim() Label1.Text = Me.DataGridView1.Item(0, row).Value.ToString.Trim() If Label1.Text <> "" Then CmdStr = "select photo from gj where name='" + Label1.Text + "'&q

44、uot; DisplayImg(CmdStr) Else : PictureBox1.Image = Nothing End If End If End Sub Private Sub kehuchaxun_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load sqlobject = New SQL_Conn CmdStr = "SELECT name as '線路名稱',price as '費用價格',efficacy as '

45、首站地址',formula as '末站地址' FROM gj" Try Me.DataGridView1.DataSource = sqlobject.SQL_Ada(CmdStr) Catch ex As Exception main.OPErr.WriteErr(ex) End Try Me.DataGridView1.AutoSizeColumnsMode = DataGridViewAutoSizeColumnsMode.DisplayedCells End Sub Private Sub Button1_Click(ByVal sender As

46、System.Object, ByVal e As System.EventArgs) Call kehuchaxun_Load(sender, e) End Sub Private Sub DisplayImg(ByVal str As String) sqlobject.SQL_Ada(str) If sqlobject.SQL_Ada(str).Rows(0).Item(0) Is DBNull.Value Then PictureBox1.Image = Nothing Else Dim imgbyte() As Byte = sqlobject.SQL_Ada(str).Rows(0

47、).Item(0) Dim imgmemory As New MemoryStream(imgbyte) PictureBox1.Image = Image.FromStream(imgmemory) End If End Sub Private Sub Button1_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click End SubEnd Class4.3.4 公 交 職 員 管 理 界 面Imports 公交查詢Imports System.IOPublic C

48、lass zhiyuanguanli Public userid As String Private row As Integer = -1 Private CmdStr As String Private Cmd As String Private sqlobject As SQL_Conn Private Sub zhiyuanguanli_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load sqlobject = New SQL_Conn CmdStr = "S

49、ELECT user_id as '登陸賬號',style as '員工級別',id as '身份證號',name as '職工姓名',tel as '聯(lián)系方式' FROM user" Try Me.DataGridView1.DataSource = sqlobject.SQL_Ada(CmdStr) Catch ex As Exception main.OPErr.WriteErr(ex) End Try Me.DataGridView1.AutoSizeColumnsMode = DataGridV

50、iewAutoSizeColumnsMode.DisplayedCells End Sub Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click CmdStr = "SELECT user_id FROM user where user_id='" + TextBox1.Text + "'" Cmd = "SELECT id FROM user where id=

51、9;" + TextBox4.Text + "'" If TextBox1.Text = "" Then MsgBox("請輸入登陸賬號") TextBox1.Focus() ElseIf sqlobject.Is_SQL_Cmd(CmdStr) Then MsgBox("該登陸賬號已經存在") TextBox1.Focus() ElseIf TextBox2.Text = "" Then MsgBox("請輸入密碼") TextBox2.Focus() ElseIf TextBox2.Text <> TextBox3.Text Then MsgBox("兩次密碼不一致") TextBox2.Focus() TextBox3.Focus() ElseIf ComboBox1.Text = "請選擇" Then MsgBox("請選擇級別") TextBox1.Focus() ElseIf TextBox4.Text = "" Then MsgBox("請輸入身份證號")