train_node.train_no=checi.train_no '+sq); Open; end;
if sq<>'' then GroupBox1.Show else
GroupBox1.Hide;
if Adoquery1.RecordCount>0 then begin
if edit1.Text='' then begin
train_no.Items.Clear; while not Adoquery1.Eof do begin
train_no.Items.Add(Adoquery1.FieldValues['train_node.train_no']); Adoquery1.Next; end;
Adoquery1.First; zhanm.Text:=edit2.Text;
train_no.ItemIndex:=0; Distance:=Adoquery1.RecNo-1; end;
if edit2.Text='' then begin
zhanm.Items.Clear; while not Adoquery1.Eof do begin
zhanm.Items.Add(Adoquery1.FieldValues['zhanm']); Adoquery1.Next; end;
Adoquery1.First; train_no.Text:=edit1.Text; zhanm.ItemIndex:=0;
Distance:=Adoquery1.RecNo-1; end;
amount.DataField:='amount'+riqi+leixing; price.DataField:='price'+leixing; end else begin
GroupBox1.Hide;
showmessage('对不起！目前此列车还未开通！请选乘就近的火车站');
Edit1.Text:=''; Edit2.Text:=''; end;
GroupBox2.Hide; end;
procedure Tmain.train_noChange(Sender: TObject); begin
Adoquery1.MoveBy(train_no.ItemIndex-Distance); Distance:=train_no.ItemIndex; end;
procedure Tmain.zhanmChange(Sender: TObject); begin
Adoquery1.MoveBy(zhanm.ItemIndex-Distance); Distance:=zhanm.ItemIndex; end;
procedure Tmain.r_riqiChange(Sender: TObject);
begin
riqi:=inttostr(r_riqi.ItemIndex);
amount.DataField:='amount'+riqi+leixing; price.DataField:='price'+leixing; end;
procedure Tmain.r_leixingChange(Sender: TObject); begin
leixing:=inttostr(r_leixing.ItemIndex+7); amount.DataField:='amount'+riqi+leixing; price.DataField:='price'+leixing; end;
procedure Tmain.buyClick(Sender: TObject); var Qbuy:TADOQuery; amount,number:string; sqlstr:string;
num_a,num_num,zuo:integer; begin
amount:='amount'+riqi+leixing;