课程设计--长途汽车客运票务系统.doc
文本预览下载声明
通达学院
专业课程设计II
题 目： 长途汽车客运票务系统
专 业 软件工程
学 生 姓 名
班 级 学 号
指 导 教 师 李玲娟
指 导 单 位 计算机学院软件工程系2011年11月17日
教师评语
教师签名：
年 月 日 成绩评定 备 注
长途汽车客运票务系统
课题内容和要求
概要设计
流程图：
管理员
普通用户
售票员
用SQL Server 2000建立后台票务系统数据库
管理员表：
普通用户表：
售票员表：
主键：车号和日期。
详细设计 procedure TForm1.Button1Click(Sender: TObject);
var user,pass:string;
begin
user:=Edit1.Text;
pass:=Edit2.Text;
if ((user=123456) and (pass=123456))then
begin
Form2.Show;
end
else
application.MessageBox(通行证或密码有误!,提示信息,mb_ok)
end;
该功能实现后，管理员登录后会出Form2表，如下：
管理员就可以实现添加、修改、删除等功能。
模块二：用户登录（无需账户和密码登录）
//用户登录
procedure TForm1.Button3Click(Sender: TObject);
begin
Form3.show;
end;
该功能实现后，点击用户登录会跳出Form3表，如下：
上图中查询、刷新和退出的相应的代码如下：
//查询
procedure TForm3.Button1Click(Sender: TObject);
begin
with 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 日期=+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 TForm3.Button2Click(Sender: TObject);
begin
with adoquery1 do
begin
close ;
sql.Clear;
sql.add(select * from 表);
open;
end;
end;
//退出
procedure TForm3.Button3Click(Sender: TObject);
begin
close;
end;
模块三：售票员登录（无需账户和密码登录）
//售票员登录
procedure TForm1.Button2Click(Sender: TObject);
begin
form4.show;
end;
该功能实现后，点击用户登录会跳出Form4，如下：
上图中查询、售票、刷新和退出的代码如下：
//查询
procedure TForm4.Button2Click(Sender: TObject);
begin
with adoquery1 do
begin
if edit1.text then
begin
sql.Clear;
s
显示全部