课程设计票务管理系统

通达学院

专业课程设计报告

题目：汽车客运公司售票系统

专业软件工程

学生姓名

班级学号

指导教师

指导单位南京邮电大学计算机学院

日期2014-6-9至2014-6-20

一．课题名称：汽车客运公司售票系统

二．设计目标：按照软件工程的规范，以SQL Server或Access为后台数据库，以Delphi 或Visual C++为前端开发工具，设计并实现一个简化的汽车客运公司售票系统。

三．需求描述：

某客运公司每日向10个城市各发一个直达班车（中途不停留下客）。每天

都发售今、明、后三天的车票。

系统在磁盘上存储以下信息：

1．今、明、后三天每个班次的基本信息，包括：每个班次的班次号、发车时间、终点城市、座位数量；

2．今、明、后三天每个班次的旅客登记表，表项有：姓名、身份证号、座位号。

该系统的功能如下：

1．添加班次。开始时添加今、明、后三天每个班次的基本信息，以后每天添加后天一天每个班次的基本信息；

2．办理售票，即在旅客登记表中添加旅客信息，座位号不能重复；

3．办理退票，即在旅客登记表中删除旅客信息；

4．班次查询，显示指定班次的余票数和座位号；

5．旅客查询，显示指定班次的旅客登记表（发车前交驾驶员用）。

四.设计概要

流程图

五．具体设计

本次实验以SQL Server 2000为后台数据库，以delphi7.0为前端开发工具，OS为WinXP sp1系统。

票务管理系统用一个数据库和两张表进行存储

两张表的内容如下：

数据库：票务管理

表：1、班次信息表

基本信息用于录入存储班次的信息，包括班次号，日期，发车时间，终点城市，座位，余票，票价。

具体设置如下

3．旅客信息表

基本信息用于录入存储旅客的信息，包括旅客姓名，身份证号，班次号，日期，座位号等

其中座位号=座位—余票

具体设置如下

在前端Delphi开发中最终用到了6个form。

分别为登录，导航，班次管理，旅客查询，订票和退票。五．详细设计

系统自动生成

program Project1;

uses

Forms,

Unit1 in 'Unit1.pas' {Form1},

Unit2 in 'Unit2.pas' {Form2},

Unit3 in 'Unit3.pas' {Form3},

Unit4 in 'Unit4.pas' {Form4},

Unit5 in 'Unit5.pas' {Form5},

Unit6 in 'Unit6.pas' {Form6},

Unit7 in 'Unit7.pas' {Form7};

{$R *.res}

begin

Application.Initialize;

Application.CreateForm(TForm1, Form1);

Application.CreateForm(TForm2, Form2);

Application.CreateForm(TForm3, Form3);

Application.CreateForm(TForm4, Form4);

Application.CreateForm(TForm5, Form5);

Application.CreateForm(TForm6, Form6);

Application.CreateForm(TForm7, Form7);

Application.Run;

end.

1.Form1登陆界面

确认按钮被单击

判断edit1和edit2的数据，当为admin密码为admin进入导航（管理员权限）为123密码为123，进入普通用户界面仅支持查询

procedure TForm1.Button1Click(Sender: TObject);

begin

if (Edit1.Text = 'admin') and (Edit2.Text = 'admin') then

begin

Form2.Button1.Enabled := True;

Form2.Button3.Enabled := True;

Form2.Button5.Enabled := True;

Form2.Show;

end

else

//对于普通用户"123"而言只有查询的权限

if(Edit1.Text = '123') and (Edit2.Text = '123') then

begin

Form2.Button1.Enabled := False;

Form2.Button3.Enabled := False;

Form2.Button5.Enabled := False;

Form2.Show;

end

end;

3.导航界面ForM2

procedure TForm2.Button1Click(Sender: TObject); begin

Form3.show;

end;

procedure TForm2.Button2Click(Sender: TObject); begin

Form4.Show;

end;

procedure TForm2.Button3Click(Sender: TObject); begin

Form5.Show;

end;

procedure TForm2.Button5Click(Sender: TObject); begin

Form6.show;

end;

end.

4.Form3班次管理