课程设计票务管理系统

《课程设计票务管理系统》由会员上传分享，免费在线阅读，更多相关内容在工程资料-天天文库。

1、通达学院专业课程设计报告题目：汽车客运公司售票系统专业软件工程学生姓名班级学号指导教师指导单位南京邮电大学计算机学院2014-6-9至201+6-20评分细则项评秀优好良等中差度制章规房机守遵现表的时机上度态习学况情备准序程力匕匕厶B计设程神精作合队况清现实匕匕功题课性311理合计设法算计设面界户用度程真认写书告报度程实详W1内度程练熟达表文度确问答回简短评语曰月各年签师教评分等级备注格及不及中良Z秀优••种五有级等分评一.课题名称：汽车客运公司售票系统二.设计目标：按照软件工程的规范，以SQLServer或Access为后台数据庳，以Delphi或Visu

2、alC++为前端开发工具，设计并实现一个简化的汽车客运公司售票系统。三.需求描述：某客运公司每日向10个城市各发一个直达班车（中途不停留卜客）。每天都发售今、明、£；三天的车票。系统在磁盘_卜.存储以H言息：1.今、明、后三天每个班次的基本信息，包括：每个班次的班次号、发车时间、终点城市、座位数量；2.今、明、£；三天每个班次的旅客登记表，表项宥：姓名、身份证号、座位号。该系统的功能如卞：1.添加班次。开始时添加今、明、后三天每个班次的基本信息，以后每天添加厄天一天每个班次的基本信息；2.办理售票，即在旅客登记表中添加旅客信息，座位号不能重复；3.办理退票，

3、即在旅客登记表中删除旅客信息；4.班次杳询，显示指定班次的余票数和座位号；5.旅客杳询，显示指定班次的旅客登记表（发车前交驾驶员用）。!1!流程昧户和密码管理员/票务''系统/添加、修改、删除，仿、退栗/票务系统Vy普通用户/五.具体设计本次实验以SQLServer2000为后台数据库，以delphi7.0为前端开发工具，0S为WinXPspl系统。票务管理系统用一个数据库和两张表进行存储两张表的内容如下：数据库：票务管理表：1、班次信息表基本信息用于录入存储班次的信息，包括班次号，F1期，发车时间，终点城市，座位，余票，票价。具体设置如下列名数据类型长度

4、允许空

5、char10日期datetime8发车时间char10✓终点城市char10V座位int4V余票int4V票价numeric9V1.旅客信息表基本信息用于录入存储旅客的信息，包拈旅客姓名，身份证号，班次号，H期，座位号等其中座位号=座位一余票具体设置如下列名

6、数据类型

7、长度

8、允许空

9、-_姓名char10V_身份证号int4V_班次号char10V日期datetime8V座位号int4V在前端Delphi开发中最终用到了6个form。分别为登录，导航，班次管理，旅客查询，订票和退票。五.详细设计系统自动生成programProject"!;usesFo

10、rms,Unitlin’Unitl.pas’{Forml}，Unit2in’Unit2.pas’{Form2}，Unit3in’Unit3.pas’{Form3}，Unit4in，Unit4.pas’{Form4}，Unit5in’Unit5.pas’{Form5}，Unit6in’Unit6.pas’{Form6}，Unit7in’Unit7.pas’{Form7};beginAppAppAppAppAppAppAppAppApp{$R*.res}Form!)Form2)Form3)Form4)Form5)Form6)Form7)ication.Initi

11、alize;ication.CreateForm(TForml,ication.CreateForm(TForm2,ication.CreateForm(TForm3,ication.CreateForm(TForm4,ication.CreateForm(TForm5,ication.CreateForm(TForm6,ication.CreateForm(TForm7,ication.Run;end.1.Forml登陆界确认按钮被单击判断editl和edit2的数据，当为admin密码为admin进入导航(管理员权限)为123密码为123,进入普通用户界

12、面仅支持查询procedureTForml.ButtonICIick(Sender:TObject);beginif(Edit1.Text=’admin’)and(Edit2.Text=’admin’)thenbeginForm2.Buttonl.Enabled:=True;Form2.Button3.Enabled:=True;Form2.Button5.Enabled:=True;Form2.Show;endelse//对于普通用户"123"而言只有查询的权限if(Editl.Text=’123")and(Edit2.Text=’123’)thenbeg

13、inForm2.Buttonl.Enabled:::