select CARIAD, CKOD, CTURU, EMAIL, GLNNO, SEHIR, YETKILI, PHONE,ILCE,ADRES from CARI
WHERE ( (CARI.CTURU) STARTING :CTUR ) and
UPPER(CARI.SEHIR) STARTING :SEHIR
ORDER BY CARIAD yazıyorum
Kod: Tümünü seç
begin
//if not dm.ibtrnsctn1.Active then dm.ibtrnsctn1.Active:=true;
dm.ibtrnsctn1.Active:=true;
// if not dm.ibtrnsctn1.InTransaction then dm.ibtrnsctn1.StartTransaction;
if jvled1.Status then
begin
DM.ibdtst1.Close;
DM.ibdtst1.ParamByName('SEHIR').Value:=UPPERCASE(jvmaskedit1.Text);
DM.ibdtst1.ParamByName('ILCE').Value:=UPPERCASE(jvmaskedit2.Text);
//DM.ibdtst1.ParamByName('CTUR').Value:=combobox1.Text;
DM.ibdtst1.Prepare;
DM.ibdtst1.Open;
end else begin
DM.ibdtst1.Close;
DM.ibdtst1.ParamByName('SEHIR').Value:='';
DM.ibdtst1.ParamByName('ILCE').Value:='';
//DM.ibdtst1.ParamByName('CTUR').Value:='';
edt6.Text:='';
edt6.TextHint:='filtre kapalı';
DM.ibdtst1.Prepare;
DM.ibdtst1.Open;
end;
jvled1.Status:= not jvled1.Status;
//dm.ibtrnsctn1.CommitRetaining;
end;