queryidtrain.~pas

该程序不能实现全程售票

unit QueryIdTrain;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, Grids;

type
  TQueryIdTrainFrm = class(TForm)
    GroupBox1: TGroupBox;
    GroupBox2: TGroupBox;
    Edit1: TEdit;
    Edit2: TEdit;
    Button1: TButton;
    Button2: TButton;
    StringGrid1: TStringGrid;
    Label1: TLabel;
    Label2: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  QueryIdTrainFrm: TQueryIdTrainFrm;
  count:integer;
implementation

uses Login;
 
{$R *.dfm}

procedure TQueryIdTrainFrm.Button1Click(Sender: TObject);
var  i:integer;
  source,dest,train,arrive,load:string;
begin
    begin
     with stringgrid1 do
       begin
        cells[0,0]:='车次号';
        cells[1,0]:='到站时间';
        cells[2,0]:='票价';
        cells[3,0]:='票余量';
        end;
 end;
   for i:=1 to count do
         begin
          with stringgrid1 do
           begin
            cells[0,i]:='';
            cells[1,i]:='';
            cells[2,i]:='';
            cells[3,i]:='';
            end;
           next;
         end;
     begin
    with LoginFrm.ADOQuery1 do
    if edit1.text='' then
          showmessage('请输入相应查询条件')
       else
      if edit2.text='' then
          showmessage('请输入相应查询条件')
      else
        begin
       begin
       close;
       sql.clear;
       sql.Add('select *  from 车次 as s1, 车次 as s2 where s1.passnum<s2.passnum and s1.trainnum=s2.trainnum and s1.passed='+''''+Edit1.Text+''''+'and s2.passed='+''''+Edit2.Text+'''');
       open;
       first;
       end;
       if recordcount=0 then
          begin
          showmessage('对不起，没有符合条件的查询结果！请重新查询！');
          edit1.setfocus;
          edit1.Text:='';
          edit2.Text:='';
             end
       else
        begin
         count:=recordcount;
         StringGrid1.RowCount:=recordcount+1;
         for i:=1 to recordcount do
         begin
          with stringgrid1 do
           begin
            train:=fieldbyname('trainnum').asstring;
            arrive:=fieldbyname('arrivetime').asstring;
            source:=fieldbyname('price').asstring;
            dest:=fieldbyname('price').asstring;
            load:=fieldbyname('maxnum').asstring;
            cells[0,i]:=train;
            cells[1,i]:=arrive;
            cells[2,i]:=source;
            cells[3,i]:=load;
            end;
         next;
        end;
        begin
        for i:=1 to recordcount do
         begin
          with stringgrid1 do
           begin
           close;
          sql.clear;
          sql.Add('select *  from 车次 where passed='+''''+Edit2.Text+''''+'and trainnum='+''''+cells[0,i]+'''');
          open;
          first;
          dest:=fieldbyname('price').asstring;
          cells[2,i]:=floattostr(strtofloat(dest)-strtofloat(cells[2,i]));
           end;
         next;
        end;
        end;
        end;
   end;
  end;
end;


procedure TQueryIdTrainFrm.Button2Click(Sender: TObject);
var i:integer;
begin
       for i:=1 to count do
         begin
          with stringgrid1 do
           begin
            cells[0,i]:='';
            cells[1,i]:='';
            cells[2,i]:='';
            cells[3,i]:='';
            end;
           next;
         end;
       QueryIdTrainFrm.hide;
end;

end.