aynı tckimlik nolu kişiyi kaydettirmeme

[huseyinert]

merhaba arkadaşlar kayıt girişinde tckimlik no bölümünü girdikten sonra kaydet dediğimizde vt. nın da aynı tckimlik nolu kayıt varsa bu kayıt var şeklinde bir uyarı verip kaydetme işlemini iptal ettirmek istiyorum.
bunun için locate kullandım ama çalışmıyor. kullandığım kod şu şekilde

if query1.locate('tc',query1.fieldbyname('tc').value,[]) then
Showmessage('kayıt var')
else
query1.post;

[lazio]

bence locate kullanma
bunun yerine, tablonu kaydetmeden önce (before bost olayı) bir query ile kaydın olup olmadığını kontrol et. kayır varsa Abort; et

[zyildiz]

Selamunaleykum

kullandıgınız vt yi yazsaydınız daha iyi olurdu.
bu işlemi select sorgusuyla yapsanız daha hızlı ve daha garanti sonuc alacagınız kanaatindeyim.

Kod: Tümünü seç

SELECT tckimlik FROM xxx

bunu bir querynin icine yazıp 

if query.recordcount = 0 Then
  Begin
boyle bir kayıt yok  
  end else
 begin
boyle bir kayıt var
end;

gibi kullanabilirsin

[huseyinert]

aleyküm selam
teşekkür ederim veri tabanı olarak interbase kullanıyorum

[lazio]

interbase kullanıyorsan bu kontrol işini trigger ile yapabilirsin.

[vkamadan]

merhaba ,
@zyildiz' in önerisine ilave olarak,
bence genelde TQuery nin Recordcount özelliğine güvenmeyin eğer kayıt kontrolü yapılacaksa bence daha güvenilir olması açısından TQuery.IsEmpty fonksiyonu kullanın.
iyi çalışmalar.

[huseyinert]

teşekkür ederim ama çalıştıramadım kodlamayı şu şekilde yaptım
data.hastakayit.Close;
data.hastakayit.SQL.Clear;
data.hastakayit.SQL.Add('select *from hastakayit where tckimlikno='+data.hastakayit.fieldbyname('tckimlikno').Value);
data.hastakayit.Open;

if data.hastakayit.RecordCount=0 then
begin
data.hastakayit.Post;
end
else begin
Application.MessageBox('kayıt var','Uyarı',0+48);
end;
acaba nerede problem var

[vkamadan]

merhaba ,
database de tckimlik alanınız numeric bir değerse sorun yok gibi görünüyor ama numeric değilse ozaman query e eklediğiniz cümleyi şu şekilde değiştiriniz.

Kod: Tümünü seç

data.hastakayit.SQL.Add('select *from hastakayit where tckimlikno='+''''+data.hastakayit.fieldbyname('tckimlikno').Value)+''''; 

iyi çalışmalar.

[mussimsek]

en garantisi ve doğrusu unique index tanımlamak hocam. Ağa babası gelse kaydedemez ikinciyi

Kolay gelsin.

[Uğur1982]

merhaba;

teşekkür ederim ama çalıştıramadım kodlamayı şu şekilde yaptım
data.hastakayit.Close;
data.hastakayit.SQL.Clear;
data.hastakayit.SQL.Add('select *from hastakayit where tckimlikno='+data.hastakayit.fieldbyname('tckimlikno').Value);
data.hastakayit.Open;

if data.hastakayit.RecordCount=0 then
begin
data.hastakayit.Post;
end
else begin
Application.MessageBox('kayıt var','Uyarı',0+48);
end;
acaba nerede problem var

şöyle yapabilirsin benim yaptığım gibi

Kod: Tümünü seç

e1tut:=e1.Text;
With IBQuery1 do
   begin
     close;    
     SQL.Clear ;
     SQL.Add('select * from CARIKART where KOD='''+e1tut+'''');
     try
        open;
     except

     Showmessage('Hata : '+IBQuery1.Text);
     end;{try}
   end;{with}

   if IBQuery1.FieldByName('kod').Value<>null then
     showmessage('Kayıt var'); 
   else
  showmessage('Kayıt yok'); 

iyi günler....

[TRSoft]

Birşey dikkatimi çekti eğer o an bilgi girdiğiniz query ile sorguyu yaptığınız query aynı ise ki yukarıdaki kodlardan anladığım kadarıyla öyle zaten sonuca ulaşmanız imkansız. Sorgunuzu farklı bir query ile yapmalısınız.

Ayrıca bende kesinlikle @mussimsek hocamın fikrine katılıyorum..

[Ali Erdoğan]

Kod: Tümünü seç

Qr.Active:=false;
Qr.Sql.Clear();
Qr.Sql.Add('Select count(*) as kayitsayisi from tblHastkayit where tcno='+tcno);
Qr.Active:=true;

if Qr.Fieldbyname('kayitsayisi').asinteger > 0 then
  begin
    showmessage('Bu Kayıt Zaten Var!');
  end
else
  begin
    table.post;
  end;

tekrarsız index kadar olmasa da etkili bir yöntem

[mkysoft]

locate komutuda kullanılabilir ama komutu yanlış kullanmışsın. tercih senin. bende mussimek'e katılıyorum unique yapmak en iyisi.
locate şu şekilde

Kod: Tümünü seç

if query1.locate('tc',varofarray([query1.fieldbyname('tc').value]),[]) then 
Showmessage('kayıt var') 
else 
query1.post;

şeklinde olmalı. burda bir yanlışlık daha var. queryi locate ettiğin için insert olayın iptal olur. qury insert etmeden önce girilne bilgiye göre kontrol yapmalısın. bu nedenle lookup kullanabilirsin.

[mussimsek]

arkadaşlar diğer yöntemlerin hepsinde ŞİŞERSİNİZ.... ne kadar iyi kod yazarsanız yazın, kullanıcılar bir şekilde ikinci kayıdı yapacaktır. Yıllarca aynı yöntemleri uygulamış biri olarak, kullanıcının nasıl data kaydedebildiğine şaşarsınız. Az uğraşmadım bu tip yanlış datalarla

Tek yol unique index.

Kolay gelsin.

[huseyinert]

arkadaşlar hepinize teşekkür ederim işlemi gerçekleştirdim