number:='number'+riqi+leixing;

num_a:=ADOQuery1.FieldValues[amount]; num_num:=ADOQuery1.FieldValues[number];

if num_a>0 then begin

Qbuy:=TADOQuery.Create(nil); with Qbuy do begin

Connection:=ADOConnection1; if leixing='7' then begin

zuo:=120; //一节车厢中硬座的个数 SQL.Clear; sqlstr:='update '+amount+'='+inttostr(num_a-1)+'

train_no=\ SQL.Add(sqlstr); ExecSQL;

SQL.Clear; sqlstr:='update

checi

set

train_node

set where

'+number+'='+inttostr(num_num+1)+' train_no=\ SQL.Add(sqlstr); ExecSQL; end else begin

zuo:=60; //一节车厢中卧铺，软卧的个数 sqlstr:='update

checi

where

set

'+amount+'='+inttostr(num_a-1)+','+number+'='+inttostr(num_num+1)+' where train_no=\ SQL.Clear; SQL.Add(sqlstr); ExecSQL; end; Close; end;

//打印车票 ，可以用报表更简单，但我没有装！ with form2 do begin show;

zhanm.Caption:=ADOQuery1.FieldValues['zhanm'];

no.Caption:=ADOQuery1.FieldValues['train_node.train_no']; riqi.Caption:=r_riqi.Text;

etime.Caption:=ADOQuery1.FieldValues['emit_time']; xiang.Caption:=inttostr(num_num div zuo); hao.Caption:=inttostr(num_num mod zuo); jiage.Caption:=price.Text; leixing.Caption:=r_leixing.Text; end;

ADOQuery1.Close; ADOQuery1.Open;

ADOQuery1.MoveBy(Distance); end else begin

//GroupBox1.Hide;

Qbuy:=TADOQuery.Create(nil); with Qbuy do begin

Connection:=ADOConnection1; DataSource3.DataSet:=Qbuy; SQL.Clear;

SQL.Add('select * from tui where 目的站=\ Open; end;

if Qbuy.RecordCount<=0 then begin

GroupBox2.Hide;

showmessage('对不起！这趟车的票已经售完.'); end else

GroupBox2.Show; end; end;

procedure Tmain.N7Click(Sender: TObject); begin if log then

main.BitBtn2.Click else

showmessage('请先登陆！谢谢！'); end;

procedure Tmain.N8Click(Sender: TObject);