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

公交查詢系統(tǒng)設(shè)計畢業(yè)論文信息工程系畢業(yè)設(shè)計(論文)誠信承諾我謹(jǐn)在此承諾：本人所寫的畢業(yè)論文《公交查詢系統(tǒng)制作》，系本人獨自完畢，凡涉及其他作者的觀點和材料，均作了注釋與說明，若有不實，后果本人承擔(dān)。承諾人(署名)：2023年6摘要為推動地名信息服務(wù)工作，開發(fā)的“南京市公交查詢系統(tǒng)”軟件（以下簡稱“本軟件”），用于提供快速的、簡便的城市公交站點、線路查詢服務(wù)，也可以用于制作地鐵、公路等交通信息查詢系統(tǒng)。本軟件的核心是對選擇好的車次進行路線的查詢，或者輸入所要查詢的車站名，點擊“查詢”按鈕，查詢所有具有該站的車次及相應(yīng)的停靠站。此處既可以“精確查詢”也可以是“模糊查詢”，“模糊查詢”重要方便那些對站名不是很清楚，但知道其中的一部分的乘客，系統(tǒng)可以幫助他們快速的查出。本軟件用JSP作為開發(fā)語言并結(jié)合SQL數(shù)據(jù)庫，只要將公交站點等信息輸入數(shù)據(jù)庫，就可以不久構(gòu)建成一個簡樸、實用的本地公交查詢系統(tǒng)。關(guān)鍵詞：JSP、SQL數(shù)據(jù)庫、車次管理，公交查詢系統(tǒng)。EnglishAbstractTopromotethegeographicalnamesinformationservicework,Idevelopedthe"NanjingPublicTransportQuerySystem"(hereinafterreferredtoasthe"Software"),usedtoprovidefast,convenientcitybusstops,inlineinquiryservicecanalsobeusedtomakesubway

,highwayandothertransportationinformationinquirysystem.

Thecoreofthissoftwareisagoodchoiceoftripstoroutesofinquiry,orenterthestationnametothequery,clickthe"Search"button,checkallthetripswiththestationandthecorrespondingstops.

Hereboth"Exact"canbe"fuzzyquery,""Fuzzyquery,"themainbenefitofthoseonthestationwerenotclear,butthatonepartofthepassenger,thesystemcanhelpthemquicklyfindout.

ThissoftwareisdevelopedusingJSPasalanguageandSQLdatabaseintegration,aslongasthebusstopsandotherinformationenteredintothedatabase,youcanquicklybuildintoasimple,practicalsystemoflocalpublictransportinquiry。Keywords:JSP,SQLdatabases,sellmanagement,transitsystem.目

錄1緒論 51．1

研發(fā)的背景 51．2

可行性分析 62

需求分析 62．1

用戶功能需求分析 62.1.1

所有乘客可以使用該系統(tǒng)進行車次及路線的查詢。 72.1.2

本系統(tǒng)應(yīng)具有簡樸易用功能強大特點，有較強的糾錯能力（隨著軟件的版本升級功能和糾錯能力也可以不斷得到提高）。假如在網(wǎng)絡(luò)上運營，應(yīng)有數(shù)據(jù)在線更新的能力以及在線查詢的能力。由于畢業(yè)設(shè)計時間有限，本系統(tǒng)沒有設(shè)計成網(wǎng)絡(luò)運營版的，在以后的時間會進一步完善該系統(tǒng)。 72.1.3由于車次經(jīng)常會變化所以需要一個管理員身份去管理這個公交查詢系統(tǒng)方便更改車次的信息以及車輛的出行線路。 72．2

系統(tǒng)功能分析 73

系統(tǒng)總體結(jié)構(gòu)設(shè)計 73．1

模塊結(jié)構(gòu)設(shè)計 73．2

數(shù)據(jù)庫設(shè)計 74

系統(tǒng)具體設(shè)計 84.1

代碼設(shè)計 84.2

人機界面設(shè)計 84.3

本系統(tǒng)的界面和源代碼 104.3．1管理員登陸成功界面 104.3.2公交信息修改界面 134.3.3公交查詢信息界面 144.3.4公交職員管理界面 165

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

研發(fā)的背景城市規(guī)模的逐步擴大，也使整個城市的交通干道越來越復(fù)雜，在這種情況下，公交查詢系統(tǒng)顯的非常的方便和高效，在這個背景下我開發(fā)了公交查詢系統(tǒng)。本系統(tǒng)的開發(fā)有很大的社會意義，能給廣大市民提供極大的方便。1．2

可行性分析可行性分析是對系統(tǒng)進行全面、概要的分析。它的任務(wù)是擬定項目開發(fā)時是否必要和可行。它的重要目的是：進一步明確系統(tǒng)的目的、規(guī)模和功能，對系統(tǒng)開發(fā)背景、必要性和意義進行調(diào)查分析，并且提出系統(tǒng)的邏輯模型和各種也許的方案，從而為系統(tǒng)開發(fā)項目的決策提供科學(xué)依據(jù)。重要從三個方面進行研究：（1）技術(shù)可行性：以現(xiàn)有技術(shù)進行系統(tǒng)開發(fā)及系統(tǒng)實行，是完全可行的。一方面，從自身來分析，通過2年多的學(xué)習(xí)已經(jīng)初步掌握了JSP控件、SQL數(shù)據(jù)庫等方面的編程技巧，對該軟件的設(shè)計并不存在技術(shù)上的難點。第二方面，在設(shè)計這個系統(tǒng)之前，我進行了一系列先期調(diào)研，查閱了有關(guān)使用JSP進行數(shù)據(jù)庫開發(fā)方面的論著、教材和論文，更多是運用網(wǎng)絡(luò)的便利條件，從網(wǎng)上查閱了北京、上海、廣州、昆明等大型城市的公交查詢系統(tǒng)，并認真地對其進行了分析研究，由于時間緊,任務(wù)重，我沒有更多的時間來開發(fā)完整的系統(tǒng)，所以就以查詢作為這個系統(tǒng)的核心。另一方面，從數(shù)據(jù)庫方面來分析，也是可行的。系統(tǒng)所建立的數(shù)據(jù)庫表中包具有五個字段：bus_number,bus_station1,bus_station2,bus_station3,bus_station4。bus_number用來存放車次，bus_station1,bus_station2,bus_station3,bus_station4這四個字段用來存放站點。（2）經(jīng)濟可行性：從這方面來說，本系統(tǒng)的開發(fā)作為課題來說不需要什么經(jīng)濟投入，因此來說也是可行的。（3）營運可行性:國內(nèi)很早就開始應(yīng)用公交查詢系統(tǒng)，我國大部分城市都有公交查詢系統(tǒng)。那么從這方面來說是可行的。2

需求分析隨著我國經(jīng)濟的高速發(fā)展，人們生活水平的提高，越來越多的人開始熱衷于到外地旅游。那么對于這些外來旅游者，一方面搞清這個城市的公交路線顯的很重要！南京，作為一個六朝古都，每年都要吸引大量的游客，為了滿足這些游客熟悉公交路線的需求，特以公交查詢系統(tǒng)為設(shè)計課題。本軟件不僅能給游客帶來方便，也能給廣大市民提供方便。我認為這樣的系統(tǒng)應(yīng)當(dāng)具有很好的實用性！開發(fā)本系統(tǒng)的目的就是立足廣大乘客的實際，著眼于公交業(yè)的未來發(fā)展，規(guī)范公交管理，提高服務(wù)質(zhì)量，方便乘客查詢，并為此設(shè)計該系統(tǒng)。2．1

用戶功能需求分析2.1.1

所有乘客可以使用該系統(tǒng)進行車次及路線的查詢。2.1.2

本系統(tǒng)應(yīng)具有簡樸易用功能強大特點，有較強的糾錯能力（隨著軟件的版本升級功能和糾錯能力也可以不斷得到提高）。假如在網(wǎng)絡(luò)上運營，應(yīng)有數(shù)據(jù)在線更新的能力以及在線查詢的能力。由于畢業(yè)設(shè)計時間有限，本系統(tǒng)沒有設(shè)計成網(wǎng)絡(luò)運營版的，在以后的時間會進一步完善該系統(tǒng)。2.1.3由于車次經(jīng)常會變化所以需要一個管理員身份去管理這個公交查詢系統(tǒng)方便更改車次的信息以及車輛的出行線路。2．2

系統(tǒng)功能分析本系統(tǒng)提供了的車次查詢功能、路線查詢功能。乘客可以方便的進行查詢，以防乘錯車次。同時管理員身份方便管理車輛的車次和出行線路。當(dāng)然有些功能的智能化不是很強，系統(tǒng)有待進一步來完善。也希望老師及朋友給予指導(dǎo)，提出您們的建議！在此，先向您們表達感謝！3

系統(tǒng)總體結(jié)構(gòu)設(shè)計本系統(tǒng)采用結(jié)構(gòu)化設(shè)計的方法來實現(xiàn)系統(tǒng)總體功能，提高系統(tǒng)的各項指標(biāo)，即將整個系統(tǒng)合理的劃提成各個功能模塊，對的地解決模塊之間和模塊內(nèi)部的聯(lián)系以及和數(shù)據(jù)庫的聯(lián)系，定義各模塊的內(nèi)部結(jié)構(gòu)，通過對模塊的設(shè)計和模塊之間關(guān)系的系統(tǒng)來實現(xiàn)整個系統(tǒng)的功能3．1

模塊結(jié)構(gòu)設(shè)計本系統(tǒng)共分兩個模塊：（1）車次查詢模塊：車次查詢模塊重要實現(xiàn)選擇好車次后，得到相應(yīng)車次的路線的功能；（2）路線查詢模塊：路線查詢模塊中，既可以進行精確查詢，也可以進行模糊查詢，當(dāng)乘客不知道確切的站名時，只要輸入其中的一個或多個字就可以進行查詢。3．2

數(shù)據(jù)庫設(shè)計本系統(tǒng)的數(shù)據(jù)庫設(shè)計，采用了SQL進行數(shù)據(jù)庫設(shè)計。通過對市場的調(diào)查,建立一個bus數(shù)據(jù)庫已能滿足規(guī)定，本數(shù)據(jù)庫中的bus表中，建立了五個字段：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用來保存站點，類型定義為文本，但對于文本屬性來說每個字段的最大長度為255，超過這個長度系統(tǒng)不予顯示，因此設(shè)四個字段來控制，便于以后數(shù)據(jù)的擴充。這里假如用一個字段來放站點，當(dāng)向字段錄入數(shù)據(jù)時，系統(tǒng)不會提醒數(shù)據(jù)已滿，但程序執(zhí)行后，顯示“數(shù)據(jù)源被截斷”，而用四個字段來放站點，只要每個字段錄入數(shù)據(jù)不超過規(guī)定的最大值就避免了以上錯誤的發(fā)生。數(shù)據(jù)庫結(jié)構(gòu)如何設(shè)計無疑在整個系統(tǒng)設(shè)計中占有重要的地位，所以我們在開發(fā)一個系統(tǒng)之前，一定要考慮好數(shù)據(jù)庫該怎么設(shè)計，怎么樣設(shè)計方便接口實現(xiàn)和界面顯示。當(dāng)然也可以采用此外的組織方式，只要滿足一定的規(guī)則，符合條件并且有助于編程的實現(xiàn)，都可以采用。4

系統(tǒng)具體設(shè)計4.1

代碼設(shè)計采用dreamweaver工具開發(fā)客戶端用戶體驗，制作JSP網(wǎng)頁然后使用Tomcat作為服務(wù)器連接SQL數(shù)據(jù)庫4.2

人機界面設(shè)計、ImportsSystem.Data.SqlClientImportsSystem.IOPublicClassLoginPrivatesqlobjectAsSQL_ConnPrivatecmdstrAsStringPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.Close()EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.Clickcmdstr="select*from[user]where[user_id]='"+TextBox1.Text+"'and[pwd]='"+TextBox2.Text+"'and[style]='"+ComboBox1.Text+"'"TryIfsqlobject.Is_SQL_Cmd(cmdstr)Thenmain.m_Login=Truemain.m_style=ComboBox1.Textmain.main_Load(sender,e)zhiyuanguanli.userid=TextBox1.TextMsgBox(ComboBox1.Text+"成功登陸")main.ToolStripStatusLabel1.Text="就緒"Me.Close()ElseMsgBox("請?zhí)顚憣Φ牡挠脩裘?、密碼和用戶類型!")EndIfCatchexAsExceptionmain.OPErr.WriteErr(ex)EndTryEndSubPrivateSubLogin_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadComboBox1.SelectedIndex=0sqlobject=NewSQL_ConnMe.MdiParent=mainEndSubEndClass4.3

本系統(tǒng)的界面和源代碼4.3．1管理員登陸成功界面ImportsSystem.Windows.FormsPublicClassmainPublicm_LoginAsBoolean=FalsePublicm_styleAsStringPublicOPErrAsNewOutputErrPrivatesqlobjectAsSQL_ConnPrivateCmdStrAsStringPublicSubmain_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadIfm_Login=FalseThenMe.公交信息ToolStripMenuItem.Enabled=FalseMe.條件查詢ToolStripMenuItem.Enabled=FalseMe.職工管理ToolStripMenuItem.Enabled=FalseMe.登錄ToolStripMenuItem.Enabled=TrueMe.注銷ToolStripMenuItem.Enabled=FalseMe.ToolStripButton6.Enabled=TrueMe.ToolStripButton7.Enabled=FalseMe.ToolStripButton1.Enabled=FalseMe.ToolStripButton5.Enabled=FalseMe.ToolStripButton8.Enabled=Falselogin.MdiParent=Melogin.Show()ElseMe.公交信息ToolStripMenuItem.Enabled=TrueMe.條件查詢ToolStripMenuItem.Enabled=TrueMe.登錄ToolStripMenuItem.Enabled=FalseMe.注銷ToolStripMenuItem.Enabled=TrueMe.ToolStripButton6.Enabled=FalseMe.ToolStripButton7.Enabled=TrueMe.ToolStripButton1.Enabled=TrueMe.ToolStripButton5.Enabled=TrueMe.ToolStripButton8.Enabled=TrueIfm_style="管理員"ThenMe.公交信息ToolStripMenuItem.Enabled=TrueMe.條件查詢ToolStripMenuItem.Enabled=TrueMe.職工管理ToolStripMenuItem.Enabled=TrueElseIfm_style="職工"ThenMe.公交信息ToolStripMenuItem.Enabled=TrueMe.條件查詢ToolStripMenuItem.Enabled=TrueMe.職工管理ToolStripMenuItem.Enabled=FalseEndIfEndIfEndSubPrivateSub退出ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles退出ToolStripMenuItem.ClickMe.Close()EndSubPrivateSub注銷ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles注銷ToolStripMenuItem.ClickMe.m_style=""Me.m_Login=FalseForEachChildFormAsFormInMe.MdiChildrenChildForm.Close()Nextmain_Load(sender,e)Login.Show()Me.ToolStripStatusLabel1.Text="登錄"EndSubPrivateSubToolStripButton7_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesToolStripButton7.ClickMe.m_style=""Me.m_Login=FalseForEachChildFormAsFormInMe.MdiChildrenChildForm.Close()Nextmain_Load(sender,e)Login.Show()Me.ToolStripStatusLabel1.Text="登錄"EndSubPrivateSub登錄ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles登錄ToolStripMenuItem.ClickLogin.Show()EndSubPrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimer1.TickLabel1.Text=NowEndSubPrivateSubToolStripButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesToolStripButton6.ClickLogin.Show()EndSubPrivateSub添加ToolStripMenuItem1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles添加ToolStripMenuItem1.Clickgongjiaoxinxixiugai.MdiParent=Megongjiaoxinxixiugai.Show()EndSubPrivateSub查詢ToolStripMenuItem1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles查詢ToolStripMenuItem1.Clickgongjiaoxinxichakan.MdiParent=Megongjiaoxinxichakan.Show()EndSubPrivateSub預(yù)定查詢ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles預(yù)定查詢ToolStripMenuItem.Clickshoumozhanchaxun.MdiParent=Meshoumozhanchaxun.Show()EndSubPrivateSub添加職工ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles添加職工ToolStripMenuItem.Clickzhiyuanguanli.MdiParent=Mezhiyuanguanli.Show()EndSubPrivateSubToolStripButton5_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesToolStripButton5.Clickgongjiaoxinxichakan.MdiParent=Megongjiaoxinxichakan.Show()EndSubPrivateSubToolStripButton8_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesToolStripButton8.Clickshoumozhanchaxun.MdiParent=Meshoumozhanchaxun.Show()EndSubPrivateSub使用方法ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)MsgBox("點擊相應(yīng)的圖標(biāo)選擇需要的功能，選擇菜單、客戶等內(nèi)容時，直接點擊數(shù)據(jù)表")EndSubPrivateSubToolStripButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesToolStripButton1.Clickgongjiaoxinxixiugai.MdiParent=Megongjiaoxinxixiugai.Show()EndSubEndClass4.3.2公交信息修改界面Imports公交查詢ImportsSystem.IOPublicClassgongjiaoxinxichakanPrivaterowAsInteger=-1PrivateCmdStrAsStringPrivatesqlobjectAsSQL_ConnPrivateSubDataGridView1_CellClick(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.DataGridViewCellEventArgs)HandlesDataGridView1.CellClickIfrow<>e.RowIndexAnde.RowIndex>=0Thenrow=e.RowIndexLabel6.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()IfLabel1.Text<>""ThenCmdStr="selectphotofromgjwherename='"+Label1.Text+"'"DisplayImg(CmdStr)Else:PictureBox1.Image=NothingEndIfEndIfEndSubPrivateSubkehuchaxun_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Loadsqlobject=NewSQL_ConnCmdStr="SELECTnameas'線路名稱',priceas'費用價格',efficacyas'首站地址',formulaas'末站地址'FROMgj"TryMe.DataGridView1.DataSource=sqlobject.SQL_Ada(CmdStr)CatchexAsExceptionmain.OPErr.WriteErr(ex)EndTryMe.DataGridView1.AutoSizeColumnsMode=DataGridViewAutoSizeColumnsMode.DisplayedCellsEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Callkehuchaxun_Load(sender,e)EndSubPrivateSubDisplayImg(ByValstrAsString)sqlobject.SQL_Ada(str)Ifsqlobject.SQL_Ada(str).Rows(0).Item(0)IsDBNull.ValueThenPictureBox1.Image=NothingElseDimimgbyte()AsByte=sqlobject.SQL_Ada(str).Rows(0).Item(0)DimimgmemoryAsNewMemoryStream(imgbyte)PictureBox1.Image=Image.FromStream(imgmemory)EndIfEndSubPrivateSubButton1_Click_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickEndSubEndClass4.3.3公交查詢信息界面Imports公交查詢ImportsSystem.IOPublicClassgongjiaoxinxichakanPrivaterowAsInteger=-1PrivateCmdStrAsStringPrivatesqlobjectAsSQL_ConnPrivateSubDataGridView1_CellClick(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.DataGridViewCellEventArgs)HandlesDataGridView1.CellClickIfrow<>e.RowIndexAnde.RowIndex>=0Thenrow=e.RowIndexLabel6.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()IfLabel1.Text<>""ThenCmdStr="selectphotofromgjwherename='"+Label1.Text+"'"DisplayImg(CmdStr)Else:PictureBox1.Image=NothingEndIfEndIfEndSubPrivateSubkehuchaxun_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Loadsqlobject=NewSQL_ConnCmdStr="SELECTnameas'線路名稱',priceas'費用價格',efficacyas'首站地址',formulaas'末站地址'FROMgj"TryMe.DataGridView1.DataSource=sqlobject.SQL_Ada(CmdStr)CatchexAsExceptionmain.OPErr.WriteErr(ex)EndTryMe.DataGridView1.AutoSizeColumnsMode=DataGridViewAutoSizeColumnsMode.DisplayedCellsEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Callkehuchaxun_Load(sender,e)EndSubPrivateSubDisplayImg(ByValstrAsString)sqlobject.SQL_Ada(str)Ifsqlobject.SQL_Ada(str).Rows(0).Item(0)IsDBNull.ValueThenPictureBox1.Image=NothingElseDimimgbyte()AsByte=sqlobject.SQL_Ada(str).Rows(0).Item(0)DimimgmemoryAsNewMemoryStream(imgbyte)PictureBox1.Image=Image.FromStream(imgmemory)EndIfEndSubPrivateSubButton1_Click_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickEndSubEndClass4.3.4公交職員管理界面Imports公交查詢ImportsSystem.IOPublicClasszhiyuanguanliPublicuseridAsStringPrivaterowAsInteger=-1PrivateCmdStrAsStringPrivateCmdAsStringPrivatesqlobjectAsSQL_ConnPrivateSubzhiyuanguanli_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Loadsqlobject=NewSQL_ConnCmdStr="SELECTuser_idas'登陸賬號',styleas'員工級別',idas'身份證號',nameas'職工姓名',telas'聯(lián)系方式'FROM[user]"TryMe.DataGridView1.DataSource=sqlobject.SQL_Ada(CmdStr)CatchexAsExceptionmain.OPErr.WriteErr(ex)EndTryMe.DataGridView1.AutoSizeColumnsMode=DataGridViewAutoSizeColumnsMode.DisplayedCellsEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickCmdStr="SELECTuser_idFROM[user]whereuser_id='"+TextBox1.Text+"'"Cmd="SELECTidFROM[user]whereid='"+TextBox4.Text+"'"IfTextBox1.Text=""ThenMsgBox("請輸入登陸賬號")TextBox1.Focus()ElseIfsqlobject.Is_SQL_Cmd(CmdStr)ThenMsgBox("該登陸賬號已經(jīng)存在")TextBox1.Focus()ElseIfTextBox2.Text=""ThenMsgBox("請輸入密碼")TextBox2.Focus()ElseIfTextBox2.Text<>TextBox3.TextThenMsgBox("兩次密碼不一致")TextBox2.Focus()TextBox3.Focus()ElseIfComboBox1.Text="請選擇"ThenMsgBox("請選擇級別")TextBox1.Focus()ElseIfTextBox4.Text=""ThenMsgBox("請輸入身份證號")TextBox4.Focus()ElseIfsqlobject.Is_SQL_Cmd(Cmd)ThenMsgBox("該員工已經(jīng)存在")TextBox4.Focus()ElseIfTextBox5.Text=""ThenMsgBox("請輸入姓名")TextBox5.Focus()ElseIfTextBox6.Text=""ThenMsgBox("請輸入聯(lián)系方式")TextBox6.Focus()ElseCmdStr="insertinto[user](user_id,pwd,style,id,name,tel,money)VALUES('"+TextBox1.Text+"','"+TextBox2.Text+"','"+ComboBox1.Text+"','"+TextBox4.Text+"','"+TextBox5.Text+"','"+TextBox6.Text+"','"+"0"+"')"Trysqlobject.ExecCmd(CmdStr)MsgBox("添加成功")Callzhiyuanguanli_Load(sender,e)TextBox1.Text=""TextBox2.Text=""TextBox3.Text=""TextBox4.Text=""TextBox5.Text=""TextBox6.Text=""ComboBox1.Text="請選擇"CatchexAsExceptionmain.OPErr.WriteErr(ex)EndTryEndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimiAsIntegerDimjAsStringj="管理員"IfTextBox4.Text=""ThenMsgBox("請選擇要刪除的員工")ElseIfComboBox1.Text="管理員"ThenCmdStr="selectStylefrom[user]whereStyle='"+j+"'"i=sqlobject.SQL_Ada(CmdStr).Rows.CountIfi>1ThenCmdStr="deletefrom[user]whereid='"+TextBox4.Text+"'"Trysqlobject.ExecCmd(CmdStr)IfTextBox1.Text=useridThenMsgBox("刪除成功,請重新登錄")main.m_style=""main.m_Login=FalseForEachChildFormAsFormInMe.MdiChildrenChildForm.Close()Nextmain.main_Load(sender,e)Login.Show()main.ToolStripStatusLabel1.Text="登錄"Me.Close()ElseMsgBox("刪除成功")EndIfCatchexAsExceptionmain.OPErr.WriteErr(ex)EndTryElse:MsgBox("至少保存一個管理員用戶")EndIfElseCmdStr="deletefrom[user]whereid='"+TextBox4.Text+"'"Trysqlobject.ExecCmd(CmdStr)MsgBox("刪除成功")CatchexAsExceptionmain.OPErr.WriteErr(ex)EndTryEndIfEndIfCallzhiyuanguanli_Load(sender,e)TextBox1.Text=""TextBox2.Text=""TextBox3.Text=""TextBox4.Text=""TextBox5.Text=""TextBox6.Text=""ComboBox1.Text="請選擇"EndSubPrivateSubDataGridView1_CellClick(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.DataGridViewCellEventArgs)HandlesDataGridView1.CellClickIfrow<>e.RowIndexAnde.RowIndex>=0Thenrow=e.RowIndex