【正文】 著，《精通Tomcat》，清華大學(xué)出版社6. 張洪斌等編著，《Java程序員的AJAX技術(shù)開發(fā)》，機(jī)械工業(yè)出版社7. 李芝興等編著，《Java EE Web編程(Eclipse平臺)》，機(jī)械工業(yè)出版社8. 孟劼編著，《精通Spring－Java輕量級架構(gòu)開發(fā)實踐》，人民郵電出版社。感謝公司的同事等對我的幫助和指點。除了敬佩胡老師的專業(yè)水平外，他的治學(xué)嚴(yán)謹(jǐn)和科學(xué)研究的精神也是我永遠(yuǎn)學(xué)習(xí)的榜樣，并將積極影響我今后的學(xué)習(xí)和工作。通過這樣的系統(tǒng)，我們可以做到信息的規(guī)范管理和快速查詢，實現(xiàn)了公交信息管理的系統(tǒng)化、規(guī)范化和自動化，這樣不僅減少了管理工作量，還提高了查詢效率，降低了查詢成本7致 謝經(jīng)過半年的忙碌和工作，本次畢業(yè)設(shè)計已經(jīng)接近尾聲，作為一個本科生的畢業(yè)設(shè)計，由于經(jīng)驗的匱乏，難免有許多考慮不周全的地方，如果沒有導(dǎo)師的督促指導(dǎo)，以及一起工作的同學(xué)們的支持，想要完成這個設(shè)計是難以想象的。公交查詢系統(tǒng)現(xiàn)狀分析：鑒于中國目前的經(jīng)濟(jì)發(fā)展?fàn)顩r，中國人出行還是以公交車為主，所以每個城市的公交系統(tǒng)都比較龐大發(fā)達(dá)。 Try (CmdStr) If = userid Then MsgBox(刪除成功,請重新登錄) = = False For Each ChildForm As Form In () Next (sender, e) () = 登錄 () Else MsgBox(刪除成功) End If Catch ex As Exception (ex) End Try Else : MsgBox(至少保留一個管理員用戶) End If Else CmdStr = delete from [user] where id=39。) Try (CmdStr) MsgBox(添加成功) Call zhiyuanguanli_Load(sender, e) = = = = = = = 請選擇 Catch ex As Exception (ex) End Try End If End Sub Private Sub Button2_Click(ByVal sender As , ByVal e As ) Handles Dim i As Integer Dim j As String j = 管理員 If = Then MsgBox(請選擇要刪除的員工) Else If = 管理員 Then CmdStr = select Style from [user] where Style=39。,39。,39。,39。 Cmd = SELECT id FROM [user] where id=39。,tel as 39。,id as 39。 FROM gj Try = (CmdStr) Catch ex As Exception (ex) End Try = End Sub Private Sub Button1_Click(ByVal sender As , ByVal e As ) Call kehuchaxun_Load(sender, e) End Sub Private Sub DisplayImg(ByVal str As String) (str) If (str).Rows(0).Item(0) Is Then = Nothing Else Dim imgbyte() As Byte = (str).Rows(0).Item(0) Dim imgmemory As New MemoryStream(imgbyte) = (imgmemory) End If End Sub Private Sub Button1_Click_1(ByVal sender As , ByVal e As ) Handles End SubEnd Class 公 交 職 員 管 理 界 面Imports 公交查詢Imports Public 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 , ByVal e As ) Handles sqlobject = New SQL_Conn CmdStr = SELECT user_id as 39。,efficacy as 39。 DisplayImg(CmdStr) Else : = Nothing End If End If End Sub Private Sub kehuchaxun_Load(ByVal sender As , ByVal e As ) Handles sqlobject = New SQL_Conn CmdStr = SELECT name as 39。,formula as 39。,price as