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

通达学院 专业课程设计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