南安公交管理信息系统.doc

南安公交管理信息系统 基于Delphi的公交管理信息系统的研究与开发【摘 要】随着计算机技术的迅速发展，计算机信息管理系统已成为热门话题。本文以设计南安公交管理系统为例，介绍了如何实现利用电脑来解决传统的人工方式来管理该系统。【关键字】公交；系统；数据库目 录1引言31.1背景31.2可行性分析32 需求分析32.1系统需求32.2功能需求32.3业务流程图43总体设计53.1基本设计概念和处理流程53.2模块设计54 数据库的设计64.1数据库的逻辑设计64.2数据库的配置105 详细设计105.1主要窗体模块的设计代码96 系统维护176.1 调试运行的方法176.2生成可执行文件的方法177 结束语17参考文献：18致谢181 引言随着经济和信息化的迅速发展，使用信息化管理工具对公交信息进行全面管理是必须的，也是必然的。公交管理系统应能给管理员和用户提供全方位的信息管理和实时的信息查询，为管理公交信息提供了一个全面的信息化平台，提高了工作效率，使管理员能够把最新的公交信息及时反馈给群众。1.1背景随着人们生活水平的提高和旅游行业的发展，越来越多的人外出旅游及出差。到达不熟悉的城市是必然的，这给人们的活动带来了极大的不便，以往需要借助地图或询问他得知到达目的地的乘车路线，这会导致大量的时间浪费。1.2可行性分析“公交管理信息系统”的设计与开发，从根本上解决了交通上的问题，虽然打的相对来说比较方便，但从大多数人生活水平上来说，坐公共汽车还是比较合算的。我们可通过信息化管理工具对公交信息进行全面管理。公交管理系统应能给管理员和用户提供全方位的信息管理和实时的信息查询，为管理公交信息提供了一个全面的信息化平台，提高了工作效率，使管理员能够把最新的公交信息及时反馈给群众。2 2 需求分析2.1系统需求本套系统的开发拟以电脑来代替手工办公模式，在系统开发上，我们选取的工具是delphi7.0，数据库采用Microsoft SQL Server 2000。2.2功能需求基于以上开发背景分析及目标定位，将“公交管理系统”划分成公交信息管理、查询系统、系统管理3大模块。各模块所完成的子功能如下图所示。南安公交管理信息系统公交信息 管 理查询管理系统管 理路线管理票价管理路线站点管理站点管理行车区域管理行车时间管理公车路线查询 其他信息查询 数据备份更改密码 权限管理数据还原注销退出系统2.3业务流程图否是失 败一般操作员高级管理员开 始用户登录读取用户类型公车信息管理查 询 管 理系 统 管 理管理自己和变通用户的信息更改自己的密码失败三次退 出 程 序3 总体设计3.1基本设计概念和处理流程用户在运行本系统时，首先应产生一个“身份验证”框，对用户身份进行确认，然后才能进入到相应的管理模块。对于管理员来说，首先应了解南安公交车相关资料，然后根据路线的分类，对其相关信息进行管理。对于用户来说，可根据需要对路线信息进行查询及打印报表，以最快的速度了解公车信息，对经常外出者相当方便。3.2模块设计l 公车信息管理包括路线管理、票价管理、站点管理、路线站点管理、行车区域管理及行车时间管理。路线管理完成路线的添加、修改、删除；票价管理完成仓票价的添加、修改、删除。站点管理可完成站点的添加、修改、删除。路线站点管理可通过增加的路线及站点信息进行添加、修改、删除。行车区域管理可完成根据不同的路线对其进行的添加、修改、删除。行车时间管理可根据不同的路线对其进行的添加、修改、删除。l 查询系统可根据不同的路线查询不同路线的相关信息，也可根据不同的站点查询经过该站点的路线及其相关信息。如有需要还可打印查询结果报表。l 系统管理包括权限管理、更改密码、数据备份、数据还原、注销及退出系统。管理员可通过权限管理模块增加、删除、修改用户信息。管理员及用户可通过更改密码模块设置新密码。可通过数据备份模块对该系统进行备份，防止信息丢失。可通过数据还原模块对已丢失但有备份的信息进行还原。4 数据库的设计4.1数据库的逻辑设计分析流程图，这个系统需要使用数据库来存储相关信息。数据库是整个系统的基础，只有将数据库框架搭建起来，才能完成子模块的编辑、实施。为方便数据的维护及数据的有效扩充，我们采用的数据库开发工具是Microsoft SQL Server 2000，数据库名称为公交管理系统，在此数据库中创建7个表，分别为：用户表，表名：用户表路线表，表名：line行车时间表Line_idLine_name全程票价跨段票价起点区域跨段区域起点票价linestopLine_idStop_id第几站站点表，表名：stop路线站点表，表名：linestop票价表，表名：公车票价表行车区域表，表名：行车区域表行车时间表，表名：行车时间表stopstop_idstop_nameE-R图：lineLine_idLine_name行车区域表Line_idLine_name行车区域行车时间表Line_idLine_name行车时间公车票价表Line_idLine_name全程票价跨段票价起点区域跨段区域起点票价linestopLine_idStop_id第几站表名：用户表字段名数据类型大小是否为空备注用户名文本8Not null密码文本8Not null权限文本10Not null表名：line字段名数据类型大小是否为空备注Line_idint4Not null*（主键）Line_namevarchar4Not null表名：stop字段名数据类型大小是否为空备注stop_idint4Not null*（主键）stop_namevarchar30Not null表名：linestop字段名数据类型大小是否为空备注Line_idint4Not null约束Stop_idint4Not null第几站int4Not null表名：公车票价表字段名数据类型大小是否为空备注Line_idint4Not null约束Line_namevarchar4Not null全程票价varchar6Not null起点区域varchar35null起点票价varchar6null跨段区域varchar35null跨段票价varchar6null表名：行车区域表字段名数据类型大小是否为空备注Line_idint4Not null约束Line_namevarchar4Not null行车区域varchar45Not null表名：行车时间表字段名数据类型大小是否为空备注Line_idint4Not null约束Line_namevarchar4Not null行车时间varchar30Not null关系图：4.2数据库的配置因涉及到数据库的安全性问题，在首次运行本程序时，须正确配置数据源（DNS）。打开“ODBC数据源管理器”，并添加一个用户数据源，选择数据源驱动程序为SQL Server，数据源名称为xmf，同时将系统默认的数据库更改为数据库文件“公交管理系统”。5 详细设计5.1主要窗体模块的设计代码登录窗体：登录代码：beginif (suiboBox1.Text=)or(suiEdit1.Text=) then begin MessageDlg(请输入正确的用户和密码!,mtError,mbok,0); Exit; end;DM.dengluADOQuery1.Open;If DM.dengluADOQuery1.Locate(用户名,suiboBox1.Text ,) and (trim(DM.dengluADOQuery1.FieldByName(密码).AsString) = suiEdit1.Text) thenbegin /根据不同的操作员级别，允许进行不同的功能操作 if DM.dengluADOQuery1.FieldByName(权限).AsString=高级管理员 then begin /超级用户拥有全部权限 mainform.N1.Enabled :=true; mainform.N2.Enabled:=true; mainform.N3.Enabled:=true; mainform.N4.Enabled:=true; mainform.N5.Enabled:=true; mainform.N6.Enabled :=true; mainform.N8.Enabled :=true; mainform.N9.Enabled :=true; mainform.N10.Enabled :=true; end; if DM.dengluADOQuery1.FieldByName(权限).AsString =一般操作员 then begin mainform.N1.Enabled:=false; mainform.N10.Enabled:=false; mainform.N2.Enabled:=true; mainform.N9.Enabled:=true; mainform.N3.Enabled:=true; mainform.N4.Enabled :=true; mainform.N5.Enabled :=true; mainform.N6.Enabled :=true; end; mainform.denglu:=true; mainform.Show; mainform.Enabled:=true; loginform.Hide; end else begin if suiedit1.Tag=2 then begin showmessage(对不起，您不能使用本系统!); close; end else begin showmessage(你输入的密码不对，请重新输入!); suiedit1.SetFocus; suiedit1.Selectall; suiedit1.Tag:= suiedit1.Tag+1;end;退出代码：begin if messagedlg(确定要退出系统？,mtinformation,mbno,mbyes,0)=mrYes then Application.Terminate;end;公交信息管理窗体：增加代码：begin dm.xinxiadotable5.Append; dm.xinxiadotable5.FieldByName(line_id).AsString:=suiedit8.Text; dm.xinxiadotable5.FieldByName(stop_id).AsString:=suiedit10.Text; dm.xinxiadotable5.FieldByName(第几站).AsString:=suiedit9.Text; dm.xinxiadotable5.Post; MessageBox(0, 成功添加 ,添加信息,MB_OK+MB_ICONINFORMATION);end;删除代码：beginif messagedlg(确定要删除吗？,mtinformation,mbno,mbyes,0)=mrYesthen dm.xinxiadotable5.Delete;MessageBox(0, 删除成功 ,删除信息,MB_OK+MB_ICONINFORMATION);end;修改代码：begin dm.xinxiadoTable5.Edit; /将Table控件置成编辑状态 dm.xinxiadoTable5.Fields0.AsString:=suiedit8.text; dm.xinxiadoTable5.Fields1.AsString:=suiedit10.text; dm.xinxiadoTable5.Fields2.AsString:=suiedit9.text; dm.xinxiadoTable5.Post; MessageBox(0, 修改成功 ,修改信息,MB_OK+MB_ICONINFORMATION);end;打开line表代码：（调用line表中数据）lineform.show;打开stop表代码：（调用stop表中数据）Stopform.show;查询窗体：开始查询代码：procedure Tchaxunform.suiButton1Click(Sender: TObject);var a:string; b:string; begin a:=select * from 公交路线查询; b:=select * from 公交路线查询; if suicheckbox1.Checked then if a=b then a:=a+ where line_name=:lx else a:=a+ and line_name=:lx; if suicheckbox2.Checked then if a=b then a:=a+ where stop_name=:zd else a:=a+ and stop_name=:zd; DM.lxcxADOQuery1.close; DM.lxcxADOQuery1.sql.clear; DM.lxcxADOQuery1.sql.add(a); if suicheckbox1.checked then DM.lxcxADOQuery1.Parameters.ParamByName(lx).Value:=suibobox1.text; if suicheckbox2.checked then DM.lxcxADOQuery1.Parameters.ParamByName(zd).Value:=suibobox2.text; DM.lxcxADOQuery1.Open;end;其他信息查询代码：procedure Tchaxunform.suiButton2Click(Sender: TObject);begin dm.qtcxADOTable1.Active:=true; qitachaxunform.Show;end;打印代码：procedure Tchaxunform.suiButton3Click(Sender: TObject);beginbaobiaoform.QuickRep1.Preview;end;6 系统维护6.1 调试运行的方法通过登录身份的识别，一般操作员对“权限管理”模块没有访问权限；在“公车信息管理”模块中如果输入两条相同的数据就会系统出错。管理员可先通过对公车信息进行管理，再通过查询窗体查询更新后的数据有没有改变。6.2生成可执行文件的方法执行“文件”菜单中的“生成工程.exe”，在弹出的“生成