SERVIS_KABUL_DB.Sql.Add('and SK.CALISILAN_FIRMA = '''+Ana_Pencere.DBEdit6.Text+''' ');
bu işlem yapmıyor nedne olabilir acaba ?
Kod: Tümünü seç
if RadioGroup1.ItemIndex=0 then
begin
SERVIS_KABUL_DB.Close;
SERVIS_KABUL_DB.SQL.Clear;
SERVIS_KABUL_DB.SQL.Add('SELECT CK.Cari_ID,CK.Genel_Cari_Unvan,SK.CALISILAN_FIRMA,SK.SERVIS_ID,SK.URUN_ADI,SK.GIRIS_TARIHI,SK.CIKIS_TARIHI,SK.GIRIS_TESLIM_ALAN,SK.GIRIS_TESLIM_EDEN,SK.CIKIS_TESLIM_ALAN, ');
SERVIS_KABUL_DB.SQL.Add('SK.CIKIS_TESLIM_EDEN,SK.TAMIR_BEDELI,SK.PARCA_BEDELI,SK.TAMIR_EDEN,SK.GARANTI,SK.PARA_BIRIMI,SK.GUNCEL_DURUMU,SK.BILGI_VERILDI,SK.ACIL_TEL,SK.MAX_TAMIR_FIYATI,SK.MARKA_ADI,SK.MODEL_ADI ');
// SERVIS_KABUL_DB.SQL.Add('SELECT CK.Cari_ID,CK.Genel_Cari_Unvan,SK.SERVIS_ID,SK.URUN_ADI,SK.GIRIS_TARIHI,SK.CIKIS_TARIHI,SK.GIRIS_TESLIM_ALAN,SK.GIRIS_TESLIM_EDEN,SK.CIKIS_TESLIM_ALAN,SK.CIKIS_TESLIM_EDEN,SK.TAMIR_BEDELI,SK.PARCA_BEDELI,SK.TAMIR_EDEN,SK.GARANTI,SK.PARA_BIRIMI,SK.GUNCEL_DURUMU,SK.BILGI_VERILDI,SK.ACIL_TEL,SK.MAX_TAMIR_FIYATI,SK.MARKA_ADI,SK.MODEL_ADI FROM SERVIS_KAYIT SK LEFT OUTER JOIN CARI_KART_LISTE CK ON SK.CARI_ID = CK.Cari_ID ');
SERVIS_KABUL_DB.SQL.Add('FROM SERVIS_KAYIT SK LEFT OUTER JOIN CARI_KART_LISTE CK ON SK.CARI_ID = CK.Cari_ID');
if (Edit1.Text <> '' ) then
SERVIS_KABUL_DB.SQL.Add('WHERE URUN_ADI LIKE ''' + Edit1.Text + '%'' ');
SERVIS_KABUL_DB.Sql.Add('and SK.CALISILAN_FIRMA = '''+Ana_Pencere.DBEdit6.Text+''' ');
SERVIS_KABUL_DB.Open;
Caption:='İşlem Kayıt Bulunan Kayıt : '+SERVIS_KABUL_DB.FieldByName('URUN_ADI').AsString;
end;