Kod: Tümünü seç
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
FRapor.Close;
FRapor.SQL.Clear;
FRapor.SQL.add('SELECT TBLFATUIRS.FATIRS_NO,TBLFATUIRS.TARIH,TBLFATUIRS.GENELTOPLAM,TBLFATUEK.ACIK1 FROM TBLFATUIRS,TBLFATUEK WHERE TBLFATUIRS.FATIRS_NO=TBLFATUEK.FATIRSNO AND FTIRSIP=1 AND TBLFATUEK.ACIK1=:EMANET AND CARI_KODU='+ QuotedStr(Edit1.text));
(Edit1.text));
FRapor.Open;
end;