program BeforePos'da kalıyo

[mahir]

Kod: Tümünü seç

try
   if  (Length(diziKurumID) = 0) then
   begin
      ShowMessage('En Az   Bir Kurum Seçmelisiniz ...');
      abort;
   end   else

   begin
       [b] ara := tblKisiler.Locate('Ad;Soyad',vararrayof([txtAd.text,txtSoyad.Text]),[])[/b];  //  program  tam  burada   kalıyo  ilerlemiyo
        if (ara=True) then
        begin
        if messagedlg('Bu kaydı güncelleştir ',mtconfirmation,[mbyes,mbno,mbcancel],0)<>mryes then
        //buaraya   güncelleme  komutları  gelecek
        label7.caption := 'kayıt güncelleşti';
        end;
   end;

except
     on e:EAbort do
     begin
     tblKisiler.cancel;
     raise;
     end;

end;

yukarıdaki ara := tblKisiler.Locate('Ad;Soyad',vararrayof([txtAd.text,txtSoyad.Text]),[])[/b] olan yerde
program kalıyo ilerlemiyo. amacım Eklenen ad, soyad varsa güncellenecek.

[emin_as]

Kullanımın doğru degil, tblKisiler post edilirken, locate ile tblkisiler dosyasının konumunu degistirmeye çalışıyorsun.
Bu locate işlemini neden yaptıgını anlamadım, eger amacın girilen bilgilerin olup olmadıgını kontrol ise, başka bir table kullanman gerekir. Post ettigin table i bu işler için kullanamazsın.

[conari]

@Emin'e katılıyorum.

ara gibi bir değişkene de gerek yok aslında.

Kod: Tümünü seç

tblKisiler.Locate('Ad;Soyad',vararrayof([txtAd.text,txtSoyad.Text]),[]) then
begin
....
else begin
tablo.append;
....
....

aynı şey