136
'(Станция1 = ' + QuotedStr(dblcbStation.KeyValue) + ')';
end;
//По дате оправления:
if DM.qrAllTickets.Filter<>'' then DM.qrAllTickets.Filter :=
DM.qrAllTickets.Filter + ' and ';
DM.qrAllTickets.Filter := DM.qrAllTickets.Filter +
'(Дата1 >= ' + DateToStr(dtpDateFrom.Date) + ')';
//По дате прибытия:
if DM.qrAllTickets.Filter<>'' then DM.qrAllTickets.Filter :=
DM.qrAllTickets.Filter + ' and ';
DM.qrAllTickets.Filter := DM.qrAllTickets.Filter +
'(Дата1 <= ' + DateToStr(dtpDateTo.Date) + ')';
DM.qrAllTickets.Filtered := True;
end
else begin
//Отмена фильтра:
sbtFilter.Caption := 'Отфильтровать';
DM.qrAllTickets.Filtered := False;
dblcbNTrain.KeyValue := Null;
dblcbNameTrain.KeyValue := Null;
dblcbStation.KeyValue := Null;
dtpDateFrom.Date := StrToDate('01.01.2005');
dtpDateTo.Date := Now;;
end;
end;
procedure TfmTickets.BitBtn2Click(Sender: TObject);
begin
fmRep.qrpTickets.Preview;
end;
procedure TfmTickets.BitBtn1Click(Sender: TObject);
begin
Close;
end;
end.