Kod: Tümünü seç
Close;
SQL.Clear;
SQL.Add('Select * From URUNLER Where NOTLAR IN(:NT1, :NT2)');
SQL.Add('And URUNADIADI Like ' + QuotedStr('%' + TSeach.Text + '%'));
SQL.Add('And TARIH BETWEEN :TRH1 And :TRH2 Order By TARIH ASC, SIRANO');
ParamByName('NT1').AsString := 'TR';
ParamByName('NT2').AsString := 'HB';
ParamByName('TRH1').AsDate := StrToDate(ComboDateBasla.Text);
ParamByName('TRH2').AsDate := StrToDate(ComboDateBitis.Text);
Prepared := True;
Open;