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

裝訂線畢業(yè)設(shè)計(jì)（論文）報(bào)告紙公交查詢系統(tǒng)設(shè)計(jì)畢業(yè)論文信息工程系畢業(yè)設(shè)計(jì)(論文)誠信承諾我謹(jǐn)在此承諾：本人所寫的畢業(yè)論文 公交查詢系統(tǒng)制作 ，系本人獨(dú)自完成，凡涉及其他作者的觀點(diǎn)和材料，均作了注釋與說明，若有不實(shí)，后果本人承擔(dān)。承諾人(簽名)：2010年6 月1 日摘 要為推進(jìn)地名信息服務(wù)工作，開發(fā)的“南京市公交查詢系統(tǒng)”軟件（以下簡稱“本軟件”），用于提供快速的、簡便的城市公交站點(diǎn)、線路查詢服務(wù)，也可以用于制作地鐵、公路等交通信息查詢系統(tǒng)。本軟件的核心是對(duì)選擇好的車次進(jìn)行路線的查詢，或者輸入所要查詢的車站名，點(diǎn)擊“查詢”按鈕，查詢所有含有該站的車次及相應(yīng)的停靠站。此處既可以“精確查詢”也可以是“模糊查詢”，“模糊查詢”主要方便那些對(duì)站名不是很清楚，但知道其中的一部分的乘客，系統(tǒng)可以幫助他們快速的查出。本軟件用JSP作為開發(fā)語言并結(jié)合SQL數(shù)據(jù)庫，只要將公交站點(diǎn)等信息輸入數(shù)據(jù)庫，就可以很快構(gòu)建成一個(gè)簡單、實(shí)用的本地公交查詢系統(tǒng)。關(guān)鍵詞： JSP、 SQL數(shù)據(jù)庫、 車次管理， 公交查詢系統(tǒng)。English AbstractTo promote the geographical names information service work, I developed the Nanjing Public Transport Query System (hereinafter 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, or 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 one 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 transport inquiry。Keywords: JSP, SQL databases, sell management, transit system.目錄1 緒論511研發(fā)的背景512可行性分析62需求分析621用戶功能需求分析62.1.1所有乘客可以使用該系統(tǒng)進(jìn)行車次及路線的查詢。72.1.2本系統(tǒng)應(yīng)具有簡單易用功能強(qiáng)大特點(diǎn)，有較強(qiáng)的糾錯(cuò)能力（隨著軟件的版本升級(jí)功能和糾錯(cuò)能力也可以不斷得到提高）。如果在網(wǎng)絡(luò)上運(yùn)行，應(yīng)有數(shù)據(jù)在線更新的能力以及在線查詢的能力。由于畢業(yè)設(shè)計(jì)時(shí)間有限，本系統(tǒng)沒有設(shè)計(jì)成網(wǎng)絡(luò)運(yùn)行版的，在以后的時(shí)間會(huì)進(jìn)一步完善該系統(tǒng)。72.1.3由于車次經(jīng)常會(huì)變化所以需要一個(gè)管理員身份去管理這個(gè)公交查詢系統(tǒng)方便更改車次的信息以及車輛的出行線路。722系統(tǒng)功能分析73系統(tǒng)總體結(jié)構(gòu)設(shè)計(jì)731模塊結(jié)構(gòu)設(shè)計(jì)732數(shù)據(jù)庫設(shè)計(jì)74系統(tǒng)詳細(xì)設(shè)計(jì)84.1代碼設(shè)計(jì)84.2人機(jī)界面設(shè)計(jì)84.3本系統(tǒng)的界面和源代碼104.31 管 理 員 登 陸 成 功 界 面104.3.2 公 交 信 息 修 改 界 面134.3.3 公 交 查 詢 信 息 界 面144.3.4 公 交 職 員 管 理 界 面165系 統(tǒng) 難 點(diǎn) 分 析196結(jié) 論207致 謝208 參考文獻(xiàn)211 緒論隨著我國經(jīng)濟(jì)的高速發(fā)展，人們生活水平的提高，越來越多的人開始熱衷于到外地旅游。那么對(duì)于這些外來旅游者，首先搞清這個(gè)城市的公交路線顯的很重要！南京，作為一個(gè)六朝古都，每年都要吸引大量的游客，為了方便廣大游客，我的畢業(yè)設(shè)計(jì)就以公交查詢系統(tǒng)做為設(shè)計(jì)課題。我認(rèn)為這樣的系統(tǒng)應(yīng)該具有很好的實(shí)用性！乘客只需選擇車次或輸入要查詢的站點(diǎn)，系統(tǒng)會(huì)快速的給出結(jié)果，同時(shí)管理員也可以很容易的修改車次。正是基于這樣的目的我開發(fā)了公交查詢系統(tǒng)。下面就根據(jù)軟件工程理論的規(guī)范要求對(duì)軟件的開發(fā)背景、意義、需求分析等方面進(jìn)行分析：11研發(fā)的背景城市規(guī)模的逐步擴(kuò)大，也使整個(gè)城市的交通干道越來越復(fù)雜，在這種情況下，公交查詢系統(tǒng)顯的非常的方便和高效，在這個(gè)背景下我開發(fā)了公交查詢系統(tǒng)。本系統(tǒng)的開發(fā)有很大的社會(huì)意義，能給廣大市民提供極大的方便。12可行性分析可行性分析是對(duì)系統(tǒng)進(jìn)行全面、概要的分析。它的任務(wù)是確定項(xiàng)目開發(fā)時(shí)是否必要和可行。它的主要目標(biāo)是：進(jìn)一步明確系統(tǒng)的目標(biāo)、規(guī)模和功能，對(duì)系統(tǒng)開發(fā)背景、必要性和意義進(jìn)行調(diào)查分析，并且提出系統(tǒng)的邏輯模型和各種可能的方案，從而為系統(tǒng)開發(fā)項(xiàng)目的決策提供科學(xué)依據(jù)。主要從三個(gè)方面進(jìn)行研究：（1）技術(shù)可行性：以現(xiàn)有技術(shù)進(jìn)行系統(tǒng)開發(fā)及系統(tǒng)實(shí)施，是完全可行的。首先，從自身來分析，經(jīng)過2年多的學(xué)習(xí)已經(jīng)初步掌握了JSP控件、SQL數(shù)據(jù)庫等方面的編程技巧，對(duì)該軟件的設(shè)計(jì)并不存在技術(shù)上的難點(diǎn)。第二方面，在設(shè)計(jì)這個(gè)系統(tǒng)之前，我進(jìn)行了一系列先期調(diào)研，查閱了有關(guān)使用JSP進(jìn)行數(shù)據(jù)庫開發(fā)方面的論著、教材和論文，更多是利用網(wǎng)絡(luò)的便利條件，從網(wǎng)上查閱了北京、上海、廣州、昆明等大型城市的公交查詢系統(tǒng)，并認(rèn)真地對(duì)其進(jìn)行了分析研究，由于時(shí)間緊,任務(wù)重，我沒有更多的時(shí)間來開發(fā)完整的系統(tǒng)，所以就以查詢作為這個(gè)系統(tǒng)的核心。其次，從數(shù)據(jù)庫方面來分析，也是可行的。系統(tǒng)所建立的數(shù)據(jù)庫表中包含有五個(gè)字段：bus_number,bus_station1, bus_station2, bus_station3, bus_station4。bus_number用來存放車次，bus_station1, bus_station2, bus_station3, bus_station4這四個(gè)字段用來存放站點(diǎn)。（2）經(jīng)濟(jì)可行性：從這方面來說，本系統(tǒng)的開發(fā)作為課題來說不需要什么經(jīng)濟(jì)投入，因此來說也是可行的。（3）營運(yùn)可行性:國內(nèi)很早就開始應(yīng)用公交查詢系統(tǒng)，我國大部分城市都有公交查詢系統(tǒng)。那么從這方面來說是可行的。2需求分析隨著我國經(jīng)濟(jì)的高速發(fā)展，人們生活水平的提高，越來越多的人開始熱衷于到外地旅游。那么對(duì)于這些外來旅游者，首先搞清這個(gè)城市的公交路線顯的很重要！南京，作為一個(gè)六朝古都，每年都要吸引大量的游客，為了滿足這些游客熟悉公交路線的需求，特以公交查詢系統(tǒng)為設(shè)計(jì)課題。本軟件不僅能給游客帶來方便，也能給廣大市民提供方便。我認(rèn)為這樣的系統(tǒng)應(yīng)該具有很好的實(shí)用性！開發(fā)本系統(tǒng)的目標(biāo)就是立足廣大乘客的實(shí)際，著眼于公交業(yè)的未來發(fā)展，規(guī)范公交管理，提高服務(wù)質(zhì)量，方便乘客查詢，并為此設(shè)計(jì)該系統(tǒng)。21用戶功能需求分析2.1.1所有乘客可以使用該系統(tǒng)進(jìn)行車次及路線的查詢。2.1.2本系統(tǒng)應(yīng)具有簡單易用功能強(qiáng)大特點(diǎn)，有較強(qiáng)的糾錯(cuò)能力（隨著軟件的版本升級(jí)功能和糾錯(cuò)能力也可以不斷得到提高）。如果在網(wǎng)絡(luò)上運(yùn)行，應(yīng)有數(shù)據(jù)在線更新的能力以及在線查詢的能力。由于畢業(yè)設(shè)計(jì)時(shí)間有限，本系統(tǒng)沒有設(shè)計(jì)成網(wǎng)絡(luò)運(yùn)行版的，在以后的時(shí)間會(huì)進(jìn)一步完善該系統(tǒng)。2.1.3由于車次經(jīng)常會(huì)變化所以需要一個(gè)管理員身份去管理這個(gè)公交查詢系統(tǒng)方便更改車次的信息以及車輛的出行線路。22系統(tǒng)功能分析本系統(tǒng)提供了的車次查詢功能、路線查詢功能。乘客可以方便的進(jìn)行查詢，以防乘錯(cuò)車次。同時(shí)管理員身份方便管理車輛的車次和出行線路。當(dāng)然有些功能的智能化不是很強(qiáng)，系統(tǒng)有待進(jìn)一步來完善。也希望老師及朋友給予指導(dǎo)，提出您們的建議！在此，先向您們表示感謝！3系統(tǒng)總體結(jié)構(gòu)設(shè)計(jì)本系統(tǒng)采用結(jié)構(gòu)化設(shè)計(jì)的方法來實(shí)現(xiàn)系統(tǒng)總體功能，提高系統(tǒng)的各項(xiàng)指標(biāo)，即將整個(gè)系統(tǒng)合理的劃分成各個(gè)功能模塊，正確地處理模塊之間和模塊內(nèi)部的聯(lián)系以及和數(shù)據(jù)庫的聯(lián)系，定義各模塊的內(nèi)部結(jié)構(gòu)，通過對(duì)模塊的設(shè)計(jì)和模塊之間關(guān)系的系統(tǒng)來實(shí)現(xiàn)整個(gè)系統(tǒng)的功能31模塊結(jié)構(gòu)設(shè)計(jì)本系統(tǒng)共分兩個(gè)模塊：（1）車次查詢模塊：車次查詢模塊主要實(shí)現(xiàn)選擇好車次后，得到相應(yīng)車次的路線的功能；（2）路線查詢模塊：路線查詢模塊中，既可以進(jìn)行精確查詢，也可以進(jìn)行模糊查詢，當(dāng)乘客不知道確切的站名時(shí)，只要輸入其中的一個(gè)或多個(gè)字就可以進(jìn)行查詢。32數(shù)據(jù)庫設(shè)計(jì)本系統(tǒng)的數(shù)據(jù)庫設(shè)計(jì)，采用了SQL進(jìn)行數(shù)據(jù)庫設(shè)計(jì)。通過對(duì)市場的調(diào)查,建立一個(gè)bus數(shù)據(jù)庫已能滿足要求，本數(shù)據(jù)庫中的bus表中，建立了五個(gè)字段：bus_number,bus_station1, bus_station2, bus_station3, bus_station4。結(jié)構(gòu)如下:表中bus_number用來保存車次，數(shù)據(jù)類型定義為數(shù)字；bus_station1, bus_station2, bus_station3, bus_station4用來保存站點(diǎn)，類型定義為文本，但對(duì)于文本屬性來說每個(gè)字段的最大長度為 255，超過這個(gè)長度系統(tǒng)不予顯示，因此設(shè)四個(gè)字段來控制，便于以后數(shù)據(jù)的擴(kuò)充。這里如果用一個(gè)字段來放站點(diǎn)，當(dāng)向字段錄入數(shù)據(jù)時(shí)，系統(tǒng)不會(huì)提示數(shù)據(jù)已滿，但程序執(zhí)行后，顯示“數(shù)據(jù)源被截?cái)唷保盟膫€(gè)字段來放站點(diǎn)，只要每個(gè)字段錄入數(shù)據(jù)不超過規(guī)定的最大值就避免了以上錯(cuò)誤的發(fā)生。數(shù)據(jù)庫結(jié)構(gòu)如何設(shè)計(jì)無疑在整個(gè)系統(tǒng)設(shè)計(jì)中占有重要的地位，所以我們?cè)陂_發(fā)一個(gè)系統(tǒng)之前，一定要考慮好數(shù)據(jù)庫該怎么設(shè)計(jì)，怎么樣設(shè)計(jì)方便接口實(shí)現(xiàn)和界面顯示。當(dāng)然也可以采用另外的組織方式，只要滿足一定的規(guī)則，符合條件并且有利于編程的實(shí)現(xiàn)，都可以采用。4系統(tǒng)詳細(xì)設(shè)計(jì)4.1代碼設(shè)計(jì)采用dreamweaver工具開發(fā)客戶端用戶體驗(yàn)，制作JSP網(wǎng)頁然后使用Tomcat作為服務(wù)器連接SQL數(shù)據(jù)庫4.2人機(jī)界面設(shè)計(jì)、Imports System.Data.SqlClientImports System.IOPublic Class Login Private sqlobject As SQL_Conn Private 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 user_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 = TextBox1.Text MsgBox(ComboBox1.Text + 成功登陸) main.ToolStripStatusLabel1.Text = 就緒 Me.Close() Else MsgBox(請(qǐng)?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.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 Private 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 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.公交信息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.ToolStripButton8.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 Me.職員管理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.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 System.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 登錄ToolStripMenuItem_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 sender 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() 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 預(yù)定查詢ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles 預(yù)定查詢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() End 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) Handles ToolStripButton8.Click shoumozhanchaxun.MdiParent = Me shoumozhanchaxun.Show() End Sub Private Sub 使用方法ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) MsgBox(點(diǎn)擊相應(yīng)的圖標(biāo)選擇需要的功能，選擇菜單、客戶等內(nèi)容時(shí)，直接點(diǎn)擊數(shù)據(jù)表) End Sub Private Sub ToolStripButton1_Click(ByVal sender 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 Private 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.ToString.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 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 sqlobject = New SQL_Conn CmdStr = SELECT name as 線路名稱,price as 費(fèi)用價(jià)格,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.AutoSizeColumnsMode = 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) 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 System.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.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.ToString.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 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 sqlobject = New SQL_Conn CmdStr = SELECT name as 線路名稱,price as 費(fèi)用價(jià)格,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.AutoSizeColumnsMode = 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) 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 System.EventArgs) Handles Button1.Click End SubEnd Class4.3.4 公 交 職 員 管 理 界 面Imports 公交查詢Imports System.IOPublic Class 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 = SELECT user_id as 登陸賬號(hào),style as 員工級(jí)別,id as 身份證號(hào),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 = DataGridViewAutoSizeColumnsMode.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= + TextBox4.Text + If TextBox1.Text = Then MsgBox(請(qǐng)輸入登陸賬號(hào)) TextBox