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;
   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 train_node set  '+amount+'='+inttostr(num_a-1)+' where train_no="'+train_no.Text+'" and zhanm="'+zhanm.Text+'"';
           SQL.Add(sqlstr);
           ExecSQL;

           SQL.Clear;
           sqlstr:='update checi set  '+number+'='+inttostr(num_num+1)+' where train_no="'+train_no.Text+'"';
           SQL.Add(sqlstr);
           ExecSQL;
      end
      else
      begin
          zuo:=60;    //一節車廂中臥鋪，軟臥的個數
          sqlstr:='update checi set '+amount+'='+inttostr(num_a-1)+','+number+'='+inttostr(num_num+1)+' where train_no="'+train_no.Text+'"';
          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 目的站="'+zhanm.Text+'"');
    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);
begin
  if log then
    main.BitBtn2.Click
  else
    showmessage('請先登陸！謝謝！');
end;



procedure Tmain.Button5Click(Sender: TObject);
begin
 GroupBOx1.Hide;
 GroupBOx2.Hide;
end;

procedure Tmain.N6Click(Sender: TObject);
begin
  close;
end;


procedure Tmain.BitBtn4Click(Sender: TObject);
begin
   ADOQuery2.Open;
   man.Hide;
   tuipiao.Show;
   combobox3.Clear;
   combobox3.Items.Add(datetostr(date()));
   combobox3.Items.Add(datetostr(date()+1));
   combobox3.Items.Add(datetostr(date()+2));
   combobox3.ItemIndex:=0;
end;





procedure Tmain.Button6Click(Sender: TObject);
var   Qtui:TADOQuery;
begin
if (edit3.Text<>'')and (edit4.Text<>'')and(edit5.Text<>'')and(edit6.Text<>'')and(edit7.Text<>'') then
begin
   Qtui:=TADOQuery.Create(nil);
   with Qtui do
   begin
      Connection:=ADOConnection1;
      SQL.Clear;
       SQL.Add('select * from tui');
       Open;
       Append;
       FieldByName('車次').AsString:=edit3.Text;
       FieldByName('目的站').AsString:=edit4.Text;
       FieldByName('發車時間').AsString:=edit7.Text;
       FieldByName('日期').AsString:=combobox3.Text;
       FieldByName('類型').AsString:=combobox4.Text;
       FieldValues['車廂號']:=strtoint(edit5.Text);
       FieldValues['座位號']:=strtoint(edit6.Text);
       Post;
       Close;
   end;
   edit3.Clear;edit4.Clear;edit5.Clear;edit6.Clear;edit7.Clear;
   showmessage('你的操作已經成功！');
 end
 else
    showmessage('請認真添寫！');
end;

procedure Tmain.Button7Click(Sender: TObject);
begin
   edit3.Clear;edit4.Clear;edit5.Clear;edit6.Clear;edit7.Clear;
end;

procedure Tmain.N9Click(Sender: TObject);
begin
  if log then
    main.BitBtn4.Click
  else
    showmessage('請先登陸！謝謝！');
end;

procedure Tmain.BitBtn9Click(Sender: TObject);
begin
 man.Show;
 label30.Caption:='本系統現有'+inttostr(ADOQuery2.RecordCount)+'個操作員！';
end;


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 set '+amount1+'='+amount2);
       qgai.ExecSQL;
     end;
  end;
  Close;
  showmessage('已經將車票整理完畢！');
 end;
 end;



end;



end.