procedure Tmain.Button4Click(Sender: TObject); begin
//打印车票 ，可以用报表更简单，但我没有装！ with form2 do begin show;
with DataSource3.DataSet do begin
zhanm.Caption:=FieldValues['目的站']; no.Caption:=FieldValues['车次']; riqi.Caption:=FieldValues['日期']; etime.Caption:=FieldValues['发车时间']; xiang.Caption:=FieldValues['车厢号']; hao.Caption:=FieldValues['座位号'];
jiage.Caption:=floattostr(FieldValues['价格']); leixing.Caption:=FieldValues['类型']; Delete; end; end; end;
procedure Tmain.BitBtn7Click(Sender: TObject); var Qgai:TADOQuery; riqi,leixing:integer; amount1,amount2:string; begin man.Hide; select.Hide; tuipiao.Hide;
{ s := MessageDlg('yes no',
mtInformation,[mbYes, mbNo], 0); case s of
mrYes: showmessage('yes'); mrNo: showmessage('no'); end; }
if MessageDlg('请确定今天所有的车次已经发出后在整理！', mtInformation,[mbYes, mbNo], 0)=mryes then begin
Qgai:=TADOQuery.Create(nil); Qgai.Connection:=ADOConnection1; with Qgai do
begin
for riqi :=0 to 2 do begin
for leixing := 7 to 9 do begin
amount1:='amount'+inttostr(riqi)+inttostr(leixing); amount2:='amount'+inttostr(riqi+1)+inttostr(leixing); qgai.SQL.Clear; qgai.SQL.Add('update checi,train_node
'+amount1+'='+amount2); qgai.ExecSQL; end; end; Close;
showmessage('已经将车票整理完毕！'); end; end; end;
set
总 结
火车站售票管理系统是一个典型的信息管理系统，其主要通过软件工程方面的选择课题、需求分析、总体设计、选用工具、程序模块、系统测试等几个步骤来实现。开发本系统的过程中，首先要对火车站售票流程进行系统调研，熟悉其中的售票信息查询、订票、购票步骤；其次在系统需求分析过程中，要透过现象看本质，敏锐观察到售票中存在的各种问题，并在总体设计把握好对问题的分析、理解，进而解决问题；选用开发工具要选用自己最熟悉、应用较多的开发工具，本系统开发选用DELPHI 6.0，其具有语言简单、功能强大、组件众多的优点。程序模块的编制中，重点把握系统内部完整性、功能性、实用性、便捷性，使其能够协调统一、运行无误。
致 谢
我首先感谢我的指导老师吕老师，在他严格的要求下我懂得了开发软件要有一种极其认真负责的态度。无论做什么事都要大胆的去想去做，这样会有好的创意，才能更有作为。 在这里我还要感谢我们宿舍的其它5个同学。他们和我共同生活了四年，在生活和学习上给了我很大的帮助。
参 考 文 献
1 张春林.Delphi 6程序设计导学.北京：清华大学出版社，2002.5
2 飞思科技. Delphi6开发者手册. 北京：电子工业出版社,2002.3
3 飞思科技. Delphi6数据库开发. 北京：电子工业出版社, 2002.1
4 丁宝康.数据库原理. 北京：经济科学出版社，2004.1 5 何旭洪.Delphi 6.0数据库系统开发实例导航.北京：人民邮电出版社, 2002.4
6周璋鹏. 基于B/S结构的学生信息管理系统垢研究与开发.西北电力技术.2003，31(4):15~17,26
7 李全彬, 顾明亮. 基于ASP技术的学生信息管理系统的研究与开发. 徐州师范大学学报(自然科学版).2001,19(2):25~28
8 谷军.用Authorware开发学生信息管理系统.计算机与与现代化.2003(7):40~41,44
9李丹荣,杜维.基于Delphi6．0的实时数据采集与分析系统 机电工程.2003,20(5): 64~67