课程设计汽车售票系统

1、无障碍大学专业课程设计II标题：长途汽车客运票系统专业软件工程学习学生声明班级学号指指导教授李林厚表示单个计算机大学软件工程系日2011年11月17日教师的意见教师签名：年月日成绩评价非州长途汽车客运票系统一、主题内容和要求这是一个快速发展的社会，快速的节奏是这个时代最大的特点。因此，方便快捷是人们生活的最大要求。高速公共汽车客运票系统是通过现代互联网通过信息技术实时详细显示车票的工作人员，使乘客能够及时方便地购买必要的车票，同时也不能进行车票信息更新，解决了给乘客带来不便和浪费时间的问题。根据软件工程的想法，使用SQL Server 2000作为后台数据库，将Delphi作为前端开发工具，设

2、计和实施长途汽车客票系统。二、摘要设计根据前面问题的定义和设计分析，此系统提供了以下三种功能：管理管理员登录管理员通过账户和密码进入票务系统进入票务系统后，管理员可以适当地添加、修改、删除有关票务系统的信息相关信息：车辆编号、起点、终点、日期、出发时间、到达时间、预设座位数、剩馀座位数、运费使用最终用户登录用户可以直接点击登记表系统进入后，用户可以直接确认自己想知道的相关信息查询信息：车辆编号、起点、终点、日期、出发时间、到达时间、剩馀座位数、费用售票员卖票售票员不登记账户和密码，直接进入票务系统进入后售票员可以做售票工作票务记录包括汽车号码、起点、终点、日期、出发时间、到达时间、座位号码、运

3、费等结构方块图：长途汽车客运票系统管理人员用家具注册调查询问事项调查询问事项添加删除更新航班号起点终点起飞时间到达瞬间工作指挥家售票流程图：管理员管理员票系统票系统帐户和密码登录添加、修改和删除一般使用者一般使用者票系统票系统查询刷新指挥家指挥家票系统票系统票务，询问刷新使用SQL Server 2000构建后台票证系统数据库管理员表格：一般使用者表格：售票员表：主键：汽车号码和日期。三、详细设计长途汽车客运票系统使用Delphi作为前台。登录界面模块1:管理员登录(需要帐户和密码认证)/管理员登录身份验证procedure tform 1 . button 1 click(sender :对

4、象)；Var user，pass:stringBeginUser:=Edit1。TextPass:=Edit2。Textif(user=123456)and(pass=123456)thenBeginForm2 .显示；显示。EndElse应用程序。MessageBox(路径或密码无效！提示信息，mb_ok)End实施此功能后，管理员登录后，Form2表如下所示：管理员可以实施添加、修改、删除等功能。模块2:用户登录(不使用帐户和密码登录)/用户登录procedure tform 1 . button 3 click(sender : tobject)；Beginform 3 . show；E

5、nd实现此功能后，单击“用户登录”将退出Form3表，如下所示：在上图中，对应于查询、刷新和终止的代码如下：/查询procedure tform 3 . button 1 click(sender :对象)；BeginWith adoquery1 doBeginIf edit1.text thenBeginSql。ClearSql。Add(select * from表格where车辆编号=edit1。text)；OpenIf recordcount1 then showmessage(错误)；EndIf edit2.text thenBeginSql。ClearSql。Add(select *

6、 from表格where日期=edit2。text)；OpenIf recordcount1 then showmessage(错误)；EndIf edit3.text thenBeginSql。ClearSql。Add(select * from表格where端点=edit3)。text)；OpenIf recordcount1 then showmessage(错误)；EndEnd/刷新procedure tform 3 . button 2 click(sender : tobject)；BeginWith adoquery1 doBegin收尾；收尾。Sql。ClearSql.add(

7、select * from表格)；OpenEndEnd/退出procedure tform 3 . button 3 click(sender : tobject)；Begin收尾；收尾。End模块3:指挥家登录(没有帐户或密码的登录)/注册售票员procedure tform 1 . button 2 click(sender : tobject)；Beginform 4 . show；End实现此功能后，单击用户登录将从Form4中弹出，如下所示：在上图中，查询、售票、刷新和终止的代码如下：/查询procedure tform 4 . button 2 click(sender : tob

8、ject)；BeginWith adoquery1 doBeginIf edit1.text thenBeginSql。ClearSql。Add(select * from表格where车辆编号=edit1。text)；OpenIf recordcount1 then showmessage(错误)；EndIf edit2.text thenBeginSql。ClearSql。Add(select * from表格where端点=edit2。text)；OpenIf recordcount1 then showmessage(错误)；EndIf edit3.text thenBeginSql。

9、ClearSql。Add(select * from表格where日期=edit3。text)；OpenIf recordcount1 then showmessage(错误)；EndEndEnd/票务procedure tform 4 . button 1 click(sender :对象)；BeginIf edit1.text thenWith adoquery1 doBeginSql。ClearSql。Add(update表set剩馀座位数=剩馀座位数-1 where车辆编号=edit1。text)；Execsqlshow message(票务成功！)；Sql.clearSql.add(

10、select * from表格)；OpenEndEndEnd ./刷新procedure tform 4 . button 3c lick(sender : tobject)；BeginWith adoquery1 doBegin收尾；收尾。Sql。ClearSql.add(select * from表格)；OpenEndEndprocedure tform 4 . button 4 click(sender : tobject)；Begin收尾；收尾。End/退出procedure tform 4 . button 4 click(sender : tobject)；Begin收尾；收尾。E

11、nd模块4:结束登录其代码如下：procedure tform 1 . button 4 click(sender : tobject)；Begin收尾；收尾。EndEnd .四、测试数据和结果分析首先测试模块管理器登录：如上图所示，以管理员身份进入系统。要先添加数据库，请执行以下操作：然后修改数据库。删除资料库：然后测试模块2用户登录：如上图所示，以用户身份进入数据库。首先执行数据库查询操作(车辆编号、日期、结束查询)查看车辆编号：查看日期：结束查询：然后执行刷新操作在上图中执行刷新后，其外观如下图所示。最后，单击“退出”关闭窗口。最后，测试模块3指挥登录以指挥身份进入数据库，如下图所示。售票员的查询、刷新、退出工作和用户的相应功能相同，这里不列举。执行票务工作(这里需要注意的是，必须通过“号码”、“日期”，才能发行)看上图，可以看到剩下的座位数减少了。以上实现的几个模块功能都可以实现。五、课程设计概要通过为期两周的课程设计，分析设计阶段出现了一些软件使用问题。首先，我不熟悉Delphi软件，然后去图书馆借用了Delphi相关的知识，大概理解后，开始了分析和设计。其次，在设计分析过程中，出现了一些功能如何实现的问题。比如售票员如何实现售票运营，用户如何查询工作。这些工作是通过编写相应的代码，然后连接到后台数据库在前台完成的，解决这些问题的方法是通