课程设计--长途汽车客运票务系统

《课程设计--长途汽车客运票务系统》由会员上传分享，免费在线阅读，更多相关内容在学术论文-天天文库。

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

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

3、起点、终点、日期、开出时刻、到达时刻、剩余座位数、票价售票员售票①售票员无需登录账户和口令直接进入票务系统②进入后，售票员可以进行售票操作售票记录包括：车号、起点、终点、日期、开出时刻、到达时刻、座位号、票价结构框图：长途汽车客运票务系统管理员用户登录查询查询添加删除更新航班号起点终点起飞时刻到达时刻日期售票员售票流程图：◆管理员管理员票务系统票务系统账户和密码登录添加、修改、删除◆普通用户普通用户票务系统票务系统查询刷新◆售票员售票员票务系统票务系统售票、查询刷新用SQLServer2000建立后台

4、票务系统数据库管理员表：普通用户表：售票员表：主键：车号和日期。一、详细设计长途汽车客运票务系统是用Delphi做前台的。登录界面模块一：管理员登录（需要账户和密码认证）//管理员登录验证procedureTForm1.Button1Click(Sender:TObject);varuser,pass:string;beginuser:=Edit1.Text;pass:=Edit2.Text;if((user='123456')and(pass='123456'))thenbeginForm2.Sho

5、w;endelseapplication.MessageBox('通行证或密码有误!','提示信息',mb_ok)end;该功能实现后，管理员登录后会出Form2表，如下：管理员就可以实现添加、修改、删除等功能。模块二：用户登录（无需账户和密码登录）//用户登录procedureTForm1.Button3Click(Sender:TObject);beginForm3.show;end;该功能实现后，点击用户登录会跳出Form3表，如下：上图中查询、刷新和退出的相应的代码如下：//查询procedu

6、reTForm3.Button1Click(Sender:TObject);beginwithadoquery1dobeginifedit1.text<>''thenbeginsql.Clear;sql.Add('select*from表where车号='''+edit1.Text+'''');open;ifrecordcount<1thenshowmessage('错误');end;ifedit2.text<>''thenbeginsql.Clear;sql.Add('select*from表whe

7、re日期='''+edit2.Text+'''');open;ifrecordcount<1thenshowmessage('错误');end;ifedit3.text<>''thenbeginsql.Clear;sql.Add('select*from表where终点='''+edit3.Text+'''');open;ifrecordcount<1thenshowmessage('错误');end;end;//刷新procedureTForm3.Button2Click(Sender:TObjec

8、t);beginwithadoquery1dobeginclose;sql.Clear;sql.add('select*from表');open;end;end;//退出procedureTForm3.Button3Click(Sender:TObject);beginclose;end;模块三：售票员登录（无需账户和密码登录）//售票员登录procedureTForm1.Button2Click(Sender:TObject);beginform4.s