All pastes #182034 Raw Edit

Anonymous

public text v1 · immutable
#182034 ·published 2006-09-25 17:30 UTC
rendered paste body
  if start_ido>end_ido then
    begin
    AdoQuery1.Filter:='Bolt_nev= '+QuotedStr(bolt_valaszt)+' and (Datum >= '+QuotedStr(start_datum)+' and Datum <= '+QuotedStr(end_datum)+') and (Ido>= '+QuotedStr(start_ido)+' or Ido<= '+QuotedStr(end_ido)+')';
    AdoQuery1.Filtered:=true;
    end
  else
    begin
    AdoQuery1.Filter:='Bolt_nev= '+QuotedStr(bolt_valaszt)+' and (Datum >= '+QuotedStr(start_datum)+' and Datum <= '+QuotedStr(end_datum)+') and (Ido>= '+QuotedStr(start_ido)+' and Ido<= '+QuotedStr(end_ido)+')';
    AdoQuery1.Filtered:=true;
    end;