公交查询系统的设计与实现

公交查询系统设计毕业论文信息工程系IIII毕业设计（论文）诚信承诺IIIIIIIIIIIIIIIII■ 我谨在此承诺：本人所写的毕业论文《公交查询系统制作》，系本人独自完成,IIIII 凡涉及其他作者的观点和材料，均作了注释与说明，若有不实，后果本人承担。IIIIIIIIIIIIIIII 承诺人（签名）：订I 2010年6月1日II摘要为推进地名信息服务工作，开发的“南京市公交查询系统”软件（以下简称“本软件”），用于提供快速的、简便的城市公交站点、线路查询服务，也可以用于制作地铁、公路等交通信息查询系统。本软件的核心是对选择好的车次进行路线的查询，或者输入所要查询的车站名，点击“查询”按钮，查询所有含有该站的车次及相应的停靠站。此处既可以“精确查询”也可以是“模糊查询”，“模糊查询”主要方便那些对站名不是很清楚，但知道其中的一部分的乘客，系统可以帮助他们快速的查出。本软件用JSP作为开发语言并结合SQL数据库，只要将公交站点等信息输入数据库，就可以很快构建成一个简单、实用的本地公交查询系统。关键词：JSP、SQL数据库、车次管理，公交查询系统。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.1研发的背景 1・2可行性分析 52需求分析 62.1用户功能需求分析2.1.1所有乘客可以使用该系统进行车次及路线的查询。…..62.1.2本系统应具有简单易用功能强大特点，有较强的纠错能力（随着软件的版本升级功能和纠错能力也可以不断得到提高）。如果在网络上运行，应有数据在线更新的能力以及在线查询的能TOC\o"1-5"\h\z力。由于毕业设计时间有限，本系统没有设计成网络运行版的，在以后的时间会进一步完善该系统。 62.1.3由于车次经常会变化所以需要一个管理员身份去管理这个公交查询系统方便更改车次的信息以及车辆的出行线路。 6\o"CurrentDocument"2・2系统功能分析 6\o"CurrentDocument"3系统总体结构设计 6\o"CurrentDocument"3.1模块结构设计 7\o"CurrentDocument"3.2数据库设计 7\o"CurrentDocument"4系统详细设计 7\o"CurrentDocument"4.1代码设计 7\o"CurrentDocument"4.2人机界面设计 .24.3.39235•1X1X1X堺面面面功界界界成改息理陆修信管登息询员员信查职二王交交交管公公公\o"CurrentDocument"4.3本系统的界面和源代码.24.3.39235•1X1X1X堺面面面功界界界成改息理陆修信管登息询员员信查职二王交交交管公公公4.3.4\o"CurrentDocument"5系统难点分析 18\o"CurrentDocument"6结论 19\o"CurrentDocument"7致谢 19\o"CurrentDocument"8参考文献 201绪论随着我国经济的高速发展，人们生活水平的提高，越来越多的人开始热衷于到外地旅游。那么对于这些外来旅游者，首先搞清这个城市的公交路线显的很重要！南京，作为一个六朝古都，每年都要吸引大量的游客，为了方便广大游客，我的毕业设计就以公交查询系统做为设计课题。我认为这样的系统应该具有很好的实用性！乘客只需选择车次或输入要查询的站点，系统会快速的给出结果，同时管理员也可以很容易的修改车次。正是基于这样的目的我开发了公交查询系统。下面就根据软件工程理论的规范要求对软件的开发背景、意义、需求分析等方面进行分析：1研发的背景城市规模的逐步扩大，也使整个城市的交通干道越来越复杂，在这种情况下，公交查询系统显的非常的方便和高效，在这个背景下我开发了公交查询系统。本系统的开发有很大的社会意义，能给广大市民提供极大的方便。1.2可行性分析可行性分析是对系统进行全面、概要的分析。它的任务是确定项目开发时是否必要和可行。它的主要目标是：进一步明确系统的目标、规模和功能，对系统开发背景、必要性和意义进行调查分析，并且提出系统的逻辑模型和各种可能的方案，从而为系统开发项目的决策提供科学依据。主要从三个方面进行研究：（1）技术可行性：以现有技术进行系统开发及系统实施，是完全可行的。首先，从自身来分析，经过2年多的学习已经初步掌握了JSP控件、SQL数据库等方面的编程技巧，对该软件的设计并不存在技术上的难点。第二方面，在设计这个系统之前，我进行了一系列先期调研，查阅了有关使用JSP进行数据库开发方面的论著、教材和论文，更多是利用网络的便利条件，从网上查阅了北京、上海、广州、昆明等大型城市的公交查询系统，并认真地对其进行了分析研究，由于时间紧，任务重，我没有更多的时间来开发完整的系统，所以就以查询作为这个系统的核心。其次，从数据库方面来分析，也是可行的。系统所建立的数据库表中包含有五个字段：bus_number,bus_stationl,bus_station2,bus_station3,bus_station4。bus_number用来存放车次，bus_stationl,bus_station2,bus_station3,bus_station4这四个字段用来存放站点。（2）经济可行性：从这方面来说，本系统的开发作为课题来说不需要什么经济投入，因此来说也是可行的。（3）营运可行性：国内很早就开始应用公交查询系统,我国大部分城市都有公交查询系统。那么从这方面来说是可行的。2需求分析随着我国经济的高速发展，人们生活水平的提高，越来越多的人开始热衷于到外地旅游。那么对于这些外来旅游者，首先搞清这个城市的公交路线显的很重要！南京，作为一个六朝古都，每年都要吸引大量的游客，为了满足这些游客熟悉公交路线的需求，特以公交查询系统为设计课题。本软件不仅能给游客带来方便，也能给广大市民提供方便。我认为这样的系统应该具有很好的实用性！开发本系统的目标就是立足广大乘客的实际，着眼于公交业的未来发展，规范公交管理，提高服务质量，方便乘客查询，并为此设计该系统。1用户功能需求分析2.1.1所有乘客可以使用该系统进行车次及路线的查询。2.1.2本系统应具有简单易用功能强大特点，有较强的纠错能力（随着软件的版本升级功能和纠错能力也可以不断得到提高）。如果在网络上运行，应有数据在线更新的能力以及在线查询的能力。由于毕业设计时间有限，本系统没有设计成网络运行版的，在以后的时间会进一步完善该系统。2.1.3由于车次经常会变化所以需要一个管理员身份去管理这个公交查询系统方便更改车次的信息以及车辆的出行线路。2.2系统功能分析本系统提供了的车次查询功能、路线查询功能。乘客可以方便的进行查询，以防乘错车次。同时管理员身份方便管理车辆的车次和出行线路。当然有些功能的智能化不是很强，系统有待进一步来完善。也希望老师及朋友给予指导，提出您们的建议！在此，先向您们表示感谢！3系统总体结构设计本系统采用结构化设计的方法来实现系统总体功能，提高系统的各项指标，即将整个系统合理的划分成各个功能模块，正确地处理模块之间和模块内部的联系以及和数据库的联系，定义各模块的内部结构，通过对模块的设计和模块之间关系的系统来实现整个系统的功能3・1模块结构设计本系统共分两个模块：车次查询模块：车次查询模块主要实现选择好车次后，得到相应车次的路线的功能；路线查询模块：路线查询模块中，既可以进行精确查询，也可以进行模糊查询，当乘客不知道确切的站名时，只要输入其中的一个或多个字就可以进行查询。2数据库设计本系统的数据库设计，采用了SQL进行数据库设计。通过对市场的调查，建立一个bus数据库已能满足要求，本数据库中的bus表中，建立了五个字段：bus_number,bus_stationl,bus_station2,bus_station3,bus_station4。结构如下：表中bus_number用来保存车次，数据类型定义为数字；bus_stationl,bus_station2,bus_station3,bus_station4用来保存站点，类型定义为文本，但对于文本属性来说每个字段的最大长度为255,超过这个长度系统不予显示，因此设四个字段来控制，便于以后数据的扩充。这里如果用一个字段来放站点，当向字段录入数据时，系统不会提示数据已满，但程序执行后，显示“数据源被截断”，而用四个字段来放站点，只要每个字段录入数据不超过规定的最大值就避免了以上错误的发生。数据库结构如何设计无疑在整个系统设计中占有重要的地位，所以我们在开发一个系统之前，一定要考虑好数据库该怎么设计，怎么样设计方便接口实现和界面显示。当然也可以采用另外的组织方式，只要满足一定的规则，符合条件并且有利于编程的实现，都可以采用。4系统详细设计4.1代码设计采用dreamweaver工具开发客户端用户体验，制作JSP网页然后使用Tomcat作为服务器连接SQL数据库4.2人机界面设计、ImportsSystem.Data.SqlClientImportsSystem.IOPublicClassLoginPrivatesqlobjectAsSQL_ConnPrivatecmdstrAsStringPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickMe.Close()EndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButtonl.Clickcmdstr="select*from[user]where[user_id]='"+TextBoxl.Text+"'and[pwd]='"+TextBox2.Text+"'and[style]='"+ComboBoxl.Text+"'"TryIfsqlobject.Is_SQL_Cmd(cmdstr)Thenmain.m_Login=Truemain.m_style=ComboBoxl.Textmain.main_Load(sender,e)zhiyuanguanli.userid=TextBoxl.TextMsgBox(ComboBoxl.Text+"成功登陆")main.ToolStripStatusLabel1.Text="就绪Me.Close()ElseMsgBox("请填写正确的用户名、密码和用户类型!")EndIfCatchexAsExceptionmain.OPErr.WriteErr(ex)EndTryEndSubPrivateSubLogin_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.LoadComboBoxl.Selectedlndex=0sqlobject=NewSQL_ConnMe.MdiParent=mainEndSubEndClass4.3本系统的界面和源代码4.3.1管理员登陆成功界面帕处招I昱H帕处招I昱H壬M诜|■=■111”S血型J电二ImportsSystem.Windows・FormsPublicClassmainPublicm_LoginAsBoolean=FalsePublicm_styleAsStringPublicOPErrAsNewOutputErrPrivatesqlobjectAsSQL_ConnPrivateCmdStrAsStringPublicSubmain_Load(ByValsenderAsSystem.0bject,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.ToolStripButtonl.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.ToolStripButtonl.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.ToolStripStatusLabell.Text="登录"EndSubPrivateSub登录ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles登录ToolStripMenuItem.ClickLogin.Show()EndSubPrivateSubTimer1_Tick(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesTimerl.TickLabell.Text=NowEndSubPrivateSubToolStripButton6_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesToolStripButton6.ClickLogin.Show()EndSubPrivateSub添加ToolStripMenuItem1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles添加ToolStripMenuIteml.Clickgongjiaoxinxixiugai.MdiParent=Megongjiaoxinxixiugai.Show()EndSubPrivateSub查询ToolStripMenuItem1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles查询ToolStripMenuIteml.Clickgongjiaoxinxichakan.MdiParent=Megongjiaoxinxichakan.Show()EndSubPrivateSub预定查询ToolStripMenuItem_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Handles预定查询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("点击相应的图标选择需要的功能，选择菜单、客户等内容时，直接点击数据表")EndSubPrivateSubToolStripButtonl_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesToolStripButtonl.Clickgongjiaoxinxixiugai.MdiParent=Megongjiaoxinxixiugai.Show()EndSubEndClass4.3.2公交信息修改界面AW拾nanoj52O]0-6-]UAW拾nanoj52O]0-6-]U10l]22A3Imports公交查询ImportsSystem.10PublicClassgongjiaoxinxichakanPrivaterowAsInteger=-1PrivateCmdStrAsStringPrivatesqlobjectAsSQL_ConnPrivateSubDataGridView1_CellClick(ByValsenderAsObject,ByValeAsSystem.Windows・Forms.DataGridViewCellEventArgs)HandlesDataGridView1.CellClickIfrow<>e.RowIndexAnde.RowIndex>=0Thenrow=e.RowIndex

Label6.Text=Label7.TextLabel6.Text=Label7.Text=Label8.Text=Label9.Text=Labell.Text=Me.DataGridViewl.Item(O,Me.DataGridViewl.Item(l,Me.DataGridViewl.Item(2,Me.DataGridViewl.Item(3,Me.DataGridViewl.Item(O,row).Value.ToString.Trim()row).Value.ToString.Trim()row).Value.ToString.Trim()row).Value.ToString.Trim()row).Value.ToString.Trim()IfLabell.Text<>""ThenCmdStr="selectphotofromgjwherename='"+Labell.Text+Displaylmg(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公交查询信息界面

至肉u E或s；时卫怕至肉u E或s；时卫怕wraiti?™u201D-5-3QID2 fs.UII]h b.mnwiflrits«uwiImports公交查询ImportsSystem.IOPublicClassgongjiaoxinxichakanPrivaterowAsInteger=TPrivateCmdStrAsStringPrivatesqlobjectAsSQL_ConnPrivateSubDataGridViewl_CellClick(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.DataGridViewCellEventArgs)HandlesDataGridViewl.CellClickIfrow<>e.RowIndexAnde.RowIndex>=0Thenrow=e.RowIndexLabel6.Text=Label7.Text=Label8.Text=Label6.Text=Label7.Text=Label8.Text=Label9.Text=Labell.Text=Me.DataGridViewl.Item(O,Me.DataGridViewl.Item(l,Me.DataGridViewl.Item(2,Me.DataGridViewl.Item(3,Me.DataGridViewl.Item(O,row).Value.ToString.Trim()row).Value.ToString.Trim()row).Value.ToString.Trim()row).Value.ToString.Trim()row).Value.ToString.Trim()IfLabell.Text<>""ThenCmdStr="selectphotofromgjwherename='"+Labell.Text+DisplayImg(CmdStr)Else:PictureBoxl.Image=NothingEndIfEndIfEndSubPrivateSubkehuchaxun_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Loadsqlobject=NewSQL_ConnCmdStr="SELECTnameas'线路名称'，priceas'费用价格'，efficacyas'首站地址'formulaas末站地址'FROMgj"TryMe.DataGridViewl.DataSource=sqlobject.SQL_Ada(CmdStr)CatchexAsExceptionmain.OPErr.WriteErr(ex)EndTryMe.DataGridViewl.AutoSizeColumnsMode=DataGridViewAutoSizeColumnsMode.DisplayedCellsEndSubPrivateSubButtonl_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)Callkehuchaxun_Load(sender,e)EndSubPrivateSubDisplayImg(ByValstrAsString)sqlobject.SQL_Ada(str)Ifsqlobject.SQL_Ada(str).Rows(0).Item(0)IsDBNull.ValueThenPictureBoxl.Image=NothingElseDimimgbyte()AsByte=sqlobject.SQL_Ada(str).Rows(0).Item(0)DimimgmemoryAsNewMemoryStream(imgbyte)PictureBoxl.Image=Image.FromStream(imgmemory)EndIfEndSubPrivateSubButton1_Click_1(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton1.ClickEndSubEndClass4.3.4公交职员管理界面Imports公交查询ImportsImports公交查询ImportsSystem・I0彷工改別-H^LE4-PublicClasszhiyuanguanliPublicuseridAsStringPrivaterowAsInteger=-1PrivateCmdStrAsStringPrivateCmdAsStringPrivatesqlobjectAsSQL_ConnPrivateSubzhiyuanguanli_Load(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesMyBase.Loadsqlobject=NewSQL_ConnCmdStr="SELECTuser_idas'登陆账号'，styleas'员工级别'，idas'身份证号'，nameas'职工姓名'，telas'联系方式'FROM[user]"TryMe.DataGridViewl.DataSource=sqlobject.SQL_Ada(CmdStr)CatchexAsExceptionmain.OPErr.WriteErr(ex)EndTryMe.DataGridViewl.AutoSizeColumnsMode=DataGridViewAutoSizeColumnsMode.DisplayedCellsEndSubPrivateSubButton1_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButtonl.ClickCmdStr="SELECTuser_idFROM[user]whereuser_id='"+TextBoxl.Text+"'"Cmd="SELECTidFROM[user]whereid='"+TextBox4.Text+"'"IfTextBoxl.Text=""ThenMsgBox("请输入登陆账号")TextBox1.Focus()ElseIfsqlobject.Is_SQL_Cmd(CmdStr)ThenMsgBox("该登陆账号已经存在")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("该员工已经存在")TextBox4.Focus()ElseIfTextBox5.Text=""ThenMsgBox("请输入姓名")TextBox5.Focus()ElseIfTextBox6.Text=""ThenMsgBox("请输入联系方式")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)TextBoxl.Text=""TextBox2.Text=""TextBox3.Text=""TextBox4.Text=""TextBox5.Text=""TextBox6.Text=""ComboBoxl.Text="请选择"CatchexAsExceptionmain.OPErr.WriteErr(ex)EndTryEndIfEndSubPrivateSubButton2_Click(ByValsenderAsSystem.Object,ByValeAsSystem.EventArgs)HandlesButton2.ClickDimiAsIntegerDimjAsStringj="管理员"IfTextBox4.Text=""ThenMsgBox("请选择要删除的员工")ElseIfComboBoxl.Text="管理员"ThenCmdStr="selectStylefrom[user]whereStyle='"+j+"'"i=sqlobject.SQL_Ada(CmdStr).Rows.CountIfi>1ThenCmdStr="deletefrom[user]whereid='"+TextBox4.Text+"'"Trysqlobject.ExecCmd(CmdStr)IfTextBoxl.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.TextTextBox2.TextTextBox3.TextTextBox4.TextTextBox5.TextTextBox6.TextComboBox1.Text="请选择"EndSubPrivateSubDataGridViewl_CellClick(ByValsenderAsObject,ByValComboBox1.Text="请选择"EndSubPrivateSubDataGridViewl_CellClick(ByValsenderAsObject,ByValeAsSystem.Windows.Forms.DataGridViewCellEventArgs)HandlesDataGridViewl.CellClickIfrow<>e.RowIndexAnde.RowIndex>=0Thene.RowIndexMe.DataGridViewl.Item(O,row).Value.ToString.Trim()Me.DataGridViewl.Item(l,r