课程设计汽车售票系统

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

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

3、票员无需登录账户和口令直接进入票务系统 进入后，售票员可以进行售票操作 售票记录包括：车号、起点、终点、日期、开出时刻、到达时刻、座位号、票价 结构框图: 流程图： 管理员 账户和密码 登录 普通用户 普通 用户 查询 售票员 售票员 用SQL Server 2000建立后台票务系统数据库 管理员表： 席1呀袖鵜 m 咂灿6燧诽5缺黑申-(locair上 轻EU f 1111 斑删 .1 仙卜M 9：山 100 10( 训 顾1 3J1HI-11 8 0 1:00 10 胆 53 00 ani-u：E It #00 100 1 53 00 S郢貳炯 凸卜：冋3 幅 13 iS 10) 36 删

4、IBM?诙 普通用户表: 盘奉BTABLEr中肉裁鼬 肚是OBOOMCB卡魅离车客医黑务系ST申.(local)-1 fEM 国点 船骸 訓 hmoco I 2011-11-10 上诲 9：0Q 12:10 100 99.00 Mt EOtt-ll-tl 灿 IC:O0 100 53.00 5WC2 2011-11-12 上海 Ld:O0 12:00 LOO 53.00 5M0C3 2011-11*13 13:00 15:10 100 38.00 1 售票员表: 益t-IABLE2-中的数据，童詈是aCe0fl3CD6怅港肯年霉运票毎系统”中、*4兀广上 车号 mu 起点 悔点 齐出时削 at

5、erai US? r 51000 2OL：-1：-1D 上海 12:00 50 09 00 希001 2011-11-11 ：o：oo 50 53 00 孰002 南京 上海 1O：QQ 12： DO 50 53.00 *003 2OH-11-1? 苏州 13:00 ：5：ao 50 oo| 主键：车号和日期。 详细设计 长途汽车客运票务系统是用Delphi做前台的 登录界面 欢迎进入 长途产 模块一：管理员登录(需要账户和密码认证) /管理员登录验证 procedure TForml.Butt on 1Click(Se nder: TObject); var user,pass:stri n

6、g; begin user:=Edit1.Text; pass:=Edit2.Text; if (user=123456) and (pass=123456)the n begin Form2.Show; end else application.MessageBox（通行证或密码有误!,提示信息,mb_ok） en d; 该功能实现后，管理员登录后会出Form2表，如下： 车号 曰期 起点| 开岀时刻 到达时刻 预设座位数 剩余座位数票忻 E * D IfmOOO 2011-11-10 上海1 泰岬 9： 00 12： 00 100 100 69 苏 M001 2011 11 11 泰州二

7、南京 OtDO 10:00 100 9S 5100 苏跑002 2011-11-12 上海 10;00 1200 100 100 53.00 M003 2011-11-13 jbM 13:00 15:00 100 100 98.00 Zv a-1 管理员就可以实现添加、修改、删除等功能。 模块二：用户登录(无需账户和密码登录) 用户登录 procedure TForml.Butt on 3Click(Se nder: TObject); begin Form3.show; en d; 该功能实现后，点击用户登录会跳出Form3表，如下: 日期 缨点|丑出时刻 预设座憧数剩余座位数票价 inDO

8、O 2011 11 10 上海 泰州 9： 00 12； 00 100 100 S3 茁制001 2011-11-11 泰州 南京 8:00 10:00 100 98 53.00 M002 2011-11-12 南京 上海 10:00 12:00 100 100 53.00 2 苏 M003 2011 11 13 13:00 15:00 100 100 98.00 车号 查询 日期 刷新 绞占 退出 上图中查询、刷新和退出的相应的代码如下： /查询 procedure TForm3.Butto n1Click(Se nder: TObject); begin with adoquery1 do

9、 begin if edit1.text the n begin sql.Clear; sql.Add(select * from 表 where 车号=”+edit1.Text+”); ope n; if recordco un t1 the n showmessage(错误); en d; if edit2.text the n begin sql.Clear; sql.Add(select * from 表 where 日期=+edit2.Text+); ope n; if recordco un t1 the n showmessage(错误); end; if edit3.text

10、the n begin sql.Clear; sql.Add(select * from 表 where 终点=”+edit3.Text+”); ope n; if recordco un t1 the n showmessage(错误); en d; en d; /刷新 procedure TForm3.Butto n2Click(Se nder: TObject); begin with adoquery1 do begin close ; sql.Clear; sql.add(select * from 表); ope n; en d; en d; /退出 procedure TForm

11、3.Butto n3Click(Se nder: TObject); begin close; en d; 模块三：售票员登录(无需账户和密码登录) /售票员登录 procedure TForml.Butto n2Click(Se nder: TObject); begin form4.show; en d; 该功能实现后，点击用户登录会跳出Form4,如下： 上图中查询、售票、刷新和退出的代码如下： /查询 procedure TForm4.Butt on 2Click(Se nder: TObject); begin with adoquery1 do begin if edit1.tex

12、t the n begin sql.Clear; sql.Add(select * from 表 where 车号=”+edit1.Text+”); ope n; if recordcount1 then showmessage(错误); en d; if edit2.text the n begin sql.Clear; sql.Add(select * from 表 where 终点=+edit2.Text+); ope n; if recordcount1 then showmessage(错误); en d; if edit3.text the n begin sql.Clear; s

13、ql.Add(select * from 表 where 日期=+edit3.Text+); ope n; if recordcount1 then showmessage(错误); en d; en d; en d; /售票 procedure TForm4.Butt on 1Click(Se nder: TObject); begin if edit1.text the n with adoquery1 do begin sql.Clear; sql.Add(update 表 set 剩余座位数=剩余座位数-1 where 车号=+edit1.Text+); execsql; showme

14、ssage(售票成功！); sql.clear; sql.add(select * from 表); ope n; end ; en d; en d. /刷新 procedure TForm4.Butt on 3Click(Se nder: TObject); begin with adoqueryl do begin close ; sql.Clear; sql.add(select * from 表); ope n; en d; en d; procedure TForm4.Butt on 4Click(Se nder: TObject); begin close; en d; /退出 p

15、rocedure TForm4.Butt on 4Click(Se nder: TObject); begin close; en d; 模块四：退出登录 相应的代码如下： procedure TForml.Butt on 4Click(Se nder: TObject); begin close; en d; en d. 四、测试数据及其结果分析 首先对模块一管理员登录测试: 预设座位数剌余瘙位数票价 开出时刻 20TIM0 20VI-11-11 2011-11-12 2011-1 M3 起点 上尊 南京 北京 南京 上海 9： 00 8:00 10:00 1:00 倒达时刻 12： 00

16、10:00 12:00 1500 100 100 100 10Q 100 99 100 100 99 53.00 53.00 38.00 以管理员身份进入系统，如上图 先对数据库进行添加操作： 1 + - 4 C 车号 日期 终点 开岀时刻 到达时刻 预设厘位数厲 也余座位數 茅 M001 2011-11-11 南曰 atoo 10t00 100 9B sanoz 2011-11-12 上酶 10;00 100 100 1Q0 53 oa0 SM003 2011-11-13 :!匕京 13:00 iscoa 10D 100 93.00 z 1 SM005 |2C11-11-14 12： 00

17、16： 00 100 100 10C !0 IT 然后对数据库进行修改操作: 1 + - X 日期 起点 细、 开岀旳刻 到达时刻 预设座位數耳 則余座位數 票价 A A M001 ：011-11-11 南京 at no 10:00 100 93： 53 00 2 苏 H0Q2 20111112 南京 上晦 1IQ0Q 12:00 100 100 53.00 别003 2011-11-13 北京 ”00 15:00 J lODf 1001 9B.OO I SM005 2011-11-14 12: 00 16： CO 100 1001 W0 芋V 再对数据库进行删除操作: 车号 M001 苏 M

18、0D2 曰期 2C11-11-11 2011-1 M2 2011-11-13 南京 北京 北京 聞京 上海 苏州 昆明 hl 开出时刻到达时刻I藕设座位藪 00 15;00 100 100 96.00 万朋 终点查询: 车号 日期 |起点 鏤点 开出时刻 |到达时剧 预设座位数剩余座垃数 所属 苏忖005 2C11-11-14 北京 晁明 12： 00 16； 00 100 100 100 乔亚 趨H臣 车号 日期 皱占 然后进行刷新操作 就上图而言，进行刷新后如下图显示: 最后点击“退出”就关闭窗口了 最后对模块三售票员登录测试 以售票员的身份进入数据库，如下图: 车号 弄 mOOO 2U111110 002 祚 MD03 2O1111H 懸H 20111112 茴京 2011-11-13 上京 捋直|开辻眄劑|81达阿麹|册&甌JR|划隸厘也E|3R忻 秦州9： DO12： 0010010069 南京8:00100C100905100 上尊moa12001001005100 茅州131001500 工1D0100aoo 所尿