课程设计汽车售票系统

1、通达学院专业课程设计II题 目： 长途汽车客运票务系统 专 业 软件工程 学 生 姓 名 班 级 学 号 指 导 教 师 李玲娟 指 导 单 位 计算机学院软件工程系 日 期 2011年11月17日 教师评语 教师签名： 年 月 日成绩评定备 注长途汽车客运票务系统一、 课题内容和要求这是一个快速发展的社会，快节奏是这个时代的最大特征。因此，方便、快捷便是人们生活的最大需求。长途汽车客运票务系统，是利用现代互联网得信息技术能及时的将车票的详细动态展示给出行者，让出行者能及时的、方便的购买到自己需要的车票，同时也解决了因车票信息更新不及时给旅客带来不便和时间的浪费问题。按照软件工程的思想，以SQ

2、L Server 2000为后台数据库，以Delphi为前端开发工具，设计并实现一个长途汽车客运票务系统。二、 概要设计 根据前面的问题的定义和设计分析，该系统提供如下三种功能：管理员登录管理 管理员通过账户和口令进入票务系统 进入票务系统后，管理员可以对票务系统进行相应的添加、修改和删除信息相关的信息：车号、起点、终点、日期、开出时刻、到达时刻、预设座位数、剩余座位数、票价普通用户登录使用 用户可以直接点击登录票务系统 进入后，可以直接查看用户想了解的相关的信息查询的信息：车号、起点、终点、日期、开出时刻、到达时刻、剩余座位数、票价 售票员售票 售票员无需登录账户和口令直接进入票务系统 进入

3、后，售票员可以进行售票操作售票记录包括：车号、起点、终点、日期、开出时刻、到达时刻、座位号、票价结构框图：长途汽车客运票务系统管 理 员用 户登 录查 询查 询添 加删 除更 新航班号起 点终 点起飞时刻到达时刻日 期售票员售票流程图： 管理员 管理员票务系统票务系统账户和密码登录添加、修改、删除 普通用户普通用户票务系统票务系统查询刷新 售票员售票员票务系统票务系统售票、查询刷新用SQL Server 2000建立后台票务系统数据库管理员表：普通用户表：售票员表：主键：车号和日期。三、 详细设计 长途汽车客运票务系统是用Delphi做前台的。登录界面模块一：管理员登录（需要账户和密码认证）/

4、管理员登录验证procedure TForm1.Button1Click(Sender: TObject);var user,pass:string;beginuser:=Edit1.Text;pass:=Edit2.Text;if (user=123456) and (pass=123456)thenbeginForm2.Show;endelseapplication.MessageBox(通行证或密码有误!,提示信息,mb_ok)end;该功能实现后，管理员登录后会出Form2表，如下：管理员就可以实现添加、修改、删除等功能。模块二：用户登录（无需账户和密码登录）/用户登录procedur

5、e TForm1.Button3Click(Sender: TObject);begin Form3.show;end;该功能实现后，点击用户登录会跳出Form3表，如下：上图中查询、刷新和退出的相应的代码如下：/查询procedure TForm3.Button1Click(Sender: TObject);beginwith adoquery1 do begin if edit1.text then begin sql.Clear; sql.Add(select * from 表 where 车号=+edit1.Text+); open; if recordcount1 then show

6、message(错误); end; if edit2.text then begin sql.Clear; sql.Add(select * from 表 where 日期=+edit2.Text+); open; if recordcount1 then showmessage(错误); end; if edit3.text then begin sql.Clear; sql.Add(select * from 表 where 终点=+edit3.Text+); open; if recordcount1 then showmessage(错误); end;end;/刷新procedure

7、TForm3.Button2Click(Sender: TObject);beginwith adoquery1 dobeginclose ;sql.Clear;sql.add(select * from 表); open;end;end;/退出procedure TForm3.Button3Click(Sender: TObject);beginclose;end;模块三：售票员登录（无需账户和密码登录）/售票员登录procedure TForm1.Button2Click(Sender: TObject);beginform4.show;end;该功能实现后，点击用户登录会跳出Form4，

8、如下：上图中查询、售票、刷新和退出的代码如下：/查询procedure TForm4.Button2Click(Sender: TObject);beginwith adoquery1 do begin if edit1.text then begin sql.Clear; sql.Add(select * from 表 where 车号=+edit1.Text+); open; if recordcount1 then showmessage(错误); end; if edit2.text then begin sql.Clear; sql.Add(select * from 表 where

9、 终点=+edit2.Text+); open; if recordcount1 then showmessage(错误); end; if edit3.text then begin sql.Clear; sql.Add(select * from 表 where 日期=+edit3.Text+); open; if recordcount1 then showmessage(错误); end;end;end;/售票procedure TForm4.Button1Click(Sender: TObject);beginif edit1.text then with adoquery1 do

10、begin sql.Clear; sql.Add(update 表 set 剩余座位数=剩余座位数-1 where 车号=+edit1.Text+); execsql; showmessage(售票成功！); sql.clear; sql.add(select * from 表 ); open; end ;end;end./刷新procedure TForm4.Button3Click(Sender: TObject);beginwith adoquery1 dobeginclose ;sql.Clear;sql.add(select * from 表); open;end;end;proce

11、dure TForm4.Button4Click(Sender: TObject);beginclose;end;/退出procedure TForm4.Button4Click(Sender: TObject);beginclose;end;模块四：退出登录相应的代码如下：procedure TForm1.Button4Click(Sender: TObject);beginclose;end;end.四、 测试数据及其结果分析首先对模块一管理员登录测试：以管理员身份进入系统，如上图。先对数据库进行添加操作：然后对数据库进行修改操作：再对数据库进行删除操作：然后对模块二用户登录测试：以用户的

12、身份进去数据库，如上图。先对数据库进行查询操作（分别用车号、日期、终点查询）车号查询：日期查询：终点查询：然后进行刷新操作就上图而言，进行刷新后如下图显示：最后点击“退出”就关闭窗口了。最后对模块三售票员登录测试以售票员的身份进入数据库，如下图：售票员的查询、刷新、退出操作和用户的相应功能相同，这里就不列举出来了。进行售票操作（这里需要注意的是必须通过“车号”+“日期”才能售票）查看上图可以看到剩余座位数有所减少。以上实现的几个模块功能均能实现。五、课程设计总结通过两周的课程设计，在分析设计阶段遇到了一些软件的使用问题。首先对Delphi软件不熟悉，然后就去图书馆借了关于Delphi相关知识的书籍看了，大概了解之后，开始着手分析和设计了。其次在分析设计过程中遇到了一些功能怎么实现的问题。比如说是售票员怎么实现售票操作，用户怎么进行查询操作。这些操作需要编写相应的代码，然后和后台数据库连接起来，在前台实现的，这些问题的解决是通过上网查找，以及翻阅书籍