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

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

2、“模糊查詢”，“模糊查詢”主要方便那些對(duì)站名不是很清楚，但知道其中的一部分的乘客，系統(tǒng)可以幫助他們快速的查出。本軟件用JSP作為開發(fā)語(yǔ)言并結(jié)合SQL數(shù)據(jù)庫(kù)，只要將公交站點(diǎn)等信息輸入數(shù)據(jù)庫(kù)，就可以很快構(gòu)建成一個(gè)簡(jiǎn)單、實(shí)用的本地公交查詢系統(tǒng)。關(guān)鍵詞： JSP、 SQL數(shù)據(jù)庫(kù)、 車次管理， 公交查詢系統(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)進(jìn)行車次及路線的查詢。72.1.2 本系統(tǒng)應(yīng)具有簡(jiǎn)單易用功能強(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ì)

7、成網(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ù)庫(kù)設(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

8、 系 統(tǒng) 難 點(diǎn) 分 析196結(jié) 論207致 謝208 參考文獻(xiàn)211 緒論隨著我國(guó)經(jīng)濟(jì)的高速發(fā)展，人們生活水平的提高，越來(lái)越多的人開始熱衷于到外地旅游。那么對(duì)于這些外來(lái)旅游者，首先搞清這個(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 

9、研發(fā)的背景城市規(guī)模的逐步擴(kuò)大，也使整個(gè)城市的交通干道越來(lái)越復(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í)施，是完全可行的。首先，從自身來(lái)分析，經(jīng)過2年多

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

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

12、了滿足這些游客熟悉公交路線的需求，特以公交查詢系統(tǒng)為設(shè)計(jì)課題。本軟件不僅能給游客帶來(lái)方便，也能給廣大市民提供方便。我認(rèn)為這樣的系統(tǒng)應(yīng)該具有很好的實(shí)用性！開發(fā)本系統(tǒng)的目標(biāo)就是立足廣大乘客的實(shí)際，著眼于公交業(yè)的未來(lái)發(fā)展，規(guī)范公交管理，提高服務(wù)質(zhì)量，方便乘客查詢，并為此設(shè)計(jì)該系統(tǒng)。21 用戶功能需求分析2.1.1 所有乘客可以使用該系統(tǒng)進(jìn)行車次及路線的查詢。2.1.2 本系統(tǒng)應(yīng)具有簡(jiǎn)單易用功能強(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ì)成

13、網(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)一步來(lái)完善。也希望老師及朋友給予指導(dǎo)，提出您們的建議！在此，先向您們表示感謝！3 系統(tǒng)總體結(jié)構(gòu)設(shè)計(jì)本系統(tǒng)采用結(jié)構(gòu)化設(shè)計(jì)的方法來(lái)實(shí)現(xiàn)系統(tǒng)總體功能，提高系統(tǒng)的各項(xiàng)指標(biāo)，即將整個(gè)系統(tǒng)合理的劃分成各個(gè)功能模塊，正確地處理模塊之間和模塊內(nèi)部的聯(lián)系以及和

14、數(shù)據(jù)庫(kù)的聯(lián)系，定義各模塊的內(nèi)部結(jié)構(gòu)，通過對(duì)模塊的設(shè)計(jì)和模塊之間關(guān)系的系統(tǒng)來(lái)實(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ù)庫(kù)設(shè)計(jì)本系統(tǒng)的數(shù)據(jù)庫(kù)設(shè)計(jì)，采用了SQL進(jìn)行數(shù)據(jù)庫(kù)設(shè)計(jì)。通過對(duì)市場(chǎng)的調(diào)查,建立一個(gè)bus數(shù)據(jù)庫(kù)已能滿足要求，本數(shù)據(jù)庫(kù)中的bus表中，建立了五個(gè)字段：bus_number,bus_station1, bus_statio

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

16、個(gè)系統(tǒng)設(shè)計(jì)中占有重要的地位，所以我們?cè)陂_發(fā)一個(gè)系統(tǒng)之前，一定要考慮好數(shù)據(jù)庫(kù)該怎么設(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)頁(yè)然后使用Tomcat作為服務(wù)器連接SQL數(shù)據(jù)庫(kù)4.2 人機(jī)界面設(shè)計(jì)、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("請(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

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 預(yù)定查詢ToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As Syste

31、m.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() 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("點(diǎn)擊相應(yīng)的圖標(biāo)選擇需要的功能，選擇菜單、客戶等內(nèi)容時(shí)，直接點(diǎn)擊數(shù)據(jù)表") 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 '費(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.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 '費(fèi)用價(jià)格',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 '登陸賬號(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 = 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("請(qǐng)輸入登陸賬號(hào)") TextBox1.Focus() ElseIf sqlobject.Is_SQL_Cmd(CmdStr) Then MsgBox("該登陸賬號(hào)已經(jīng)存在") TextBox1.Focus() ElseIf TextBox2.Text = "" Then MsgBox("請(qǐng)輸入密碼") TextBox2.Focus() ElseIf TextBox2.Text <> TextBox3.Text Then MsgBox("兩次密碼不一致") TextBox2.Focus() TextBox3.Focus() ElseIf ComboBox1.Text = "請(qǐng)選擇" Then MsgBox("請(qǐng)選擇級(jí)別") TextBox1.Focus() ElseIf TextBox4.Text = "" Then MsgBox("請(qǐng)輸入身份證號(hào)")