aynı tckimlik nolu kişiyi kaydettirmeme

[bobasturk]

merhabalar,

evet benimde yapmış olduğum çalışmada önceleri uniqe alan değildi ve qr ile uygulamaya çalışmıştım ama şimdi uniqe ve rahatım yalnız bişi var kullanıcı aynı kayıttan girmek isterse mesaj veriyor ve bu ingilizce bunu yakalayıp türçe yapma olayı nasıl olur bi ipucu verirseniz sevinirim.

herkese kolay gelsin

[fduman]

Kod: Tümünü seç

try
  Table1.Post;
except
  raise Exception.Create('Kayıt yapılamadı');
end;

[aLonE CoDeR]

Kod: Tümünü seç

try
  Table1.Post;
except
  raise Exception.Create('Kayıt yapılamadı');
end;

Peki farklı bi nedenle kayıt yapılamıyor ve "Teknik Destek" 'e bu hata bildiriliyorsa, nasıl bir yönlendirme yaparsınız bu durumda?Kayıt yapılamama nedenlerini sırayla değerlendirmekten başka alternatifiniz olur mu?

[bobasturk]

Selam,

evet bu try - exception olayını iyi öğrenmem lazım. Sanırım bu kodu after post olayına yazmalıyım. çünkü kayıtlarımı db bileşenleri ve navigator ile yapmaktayım

teşekkür ve saygılarımla
kolay gelsin

[fduman]

Yok OnPostError'a yazacaksın, afterpost a değil.

OnPostError'da try except veya post kullanmayacaksın. Zaten Postta problem varsa bu event tetiklenecek. İçine sadece MessageBox açan kodu koyacaksın.

[freeman35]

Mustafa nın dediği gibi unique index kullsnın, hatanın döndüğünde işlem yapabilmek içinde table yada query nin OnPostError eventini kullanın

Kod: Tümünü seç

procedure TFRM_CariKart.QUE_CariKartPostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
  if Pos('CARI_KART_ADI', E.Message)>0then begin
    Application.MessageBox('Bu Ad Daha Önce Girilmiş',
     PChar(Application.Title), MB_OK + MB_ICONERROR);
    ActiveControl := EDT_Adi;
    Action := daAbort;
  end;

  if Pos('CARI_KART_KODU', E.Message)>0then begin
    Application.MessageBox('Bu Kod Daha Önce Girilmiş',
     PChar(Application.Title), MB_OK + MB_ICONERROR);
    ActiveControl := EDT_Kodu;
    Action := daAbort;
  end;
end;

[mkysoft]

Delphideki bu gibi hata mesajları consts.pas,DBconsts.pas,VDBconsts.pas dosyasında bulunmaktadır. deşikliklerinizi yapıp dcc32 ile derleyin dcu 'larının bulunduğu yerlere yapıştırın. elimde büyük kısmı çevrilmiş olanları rapidshare attım. açılan sayfada free düğmesine basın.
http://rapidshare.de/files/1470252/Delphi.zip.html

[bobasturk]

evet ustalarım öncelikle teşekkürler, events i incelemek aklımıza gelmemiş (eksiklik) ve aslında beforepost' a denemiştim olmamıştı. uygulamalarımı buna göre düzenleyeceğim.

mkysoft sizede teşekkür ederim bu kaynak için

kolay gelsin.

not:mkysoft ustam link şuan hata veriyor yani down aşamasında bağlantı kuramıyor belki sonra düzelir. kolay gelsin

[bobasturk]

selam,

freeman ustam kodunu uyguladım fakat yapamadım. kendi datasetime uyarladım ama sonuç aynı ingilize primery key or unique hatası dönüyor tr ye çeviremedim. onposterror kısmına yazdım hata mesajını yakalayıp tr ye çeviremedim ama üzerinde çalışacağım.


azim lazım heralde. inşaallah azmederiz.

kolay gelsin

Kod: Tümünü seç

procedure TFormArsiv.ArsivIBDataSetPostError(DataSet: TDataSet;
  E: EDatabaseError; var Action: TDataAction);
begin
if Pos('CERAIMNO', E.Message)>0then begin
    Application.MessageBox('Bu Ad Daha Önce Girilmiş', 
     PChar(Application.Title), MB_OK + MB_ICONERROR); 
    ActiveControl := dbedit1;
    Action := daAbort; 
  end; 

  if Pos('ILCENO', E.Message)>0then begin
    Application.MessageBox('Bu Kod Daha Önce Girilmiş', 
     PChar(Application.Title), MB_OK + MB_ICONERROR); 
    ActiveControl := dbedit2;
    Action := daAbort; 
  end;

end;

[bobasturk]

coderlord ustam,

raise Exception.Create('Kayıt yapılamadı. Çünkü Aynı İlçe No İle Girilmiş Kayıt Var');

şeklinde düzenleyerek istediğim sonucu yardımınla aldım teşekkürler.

freeman ustamınkini niçin yapamadım çalışacağım.

kolay gelsin

[huseyinert]

kolay gelsin arkadaşlar ben sorduğum sorunu çözdüm ama burda arkadaşalar uniqe kullandım falan diyorlar ben bunu bilmiyorum,
bu konuda açıklama yapabilirmisiniz, nasıl oluşturuluyor veri tabanı ve kullanım açısından...
teşekkür ederim

[bobasturk]

Merhabalar,

vt olarak frebird kullandığım ve ibexpert ile düzenlediğim için ona göre söylemek istedim.

tablo oluşturma esnasında PK seçimi ile unique oluşturabilirsin veya tablo oluşturduktan sonra ise ibexper te tabloyu açtığında constrains sekmesinde bulunan seçeneklerde unique, pk, fk ayarlamaları yapabilirsin

kolay gelsin

[huseyinert]

merhaba ben interbase kullanıyorum ibexpert te vt hazırlıyorum, bunu nasıl kullanacağız ve ne işe yarıyor tam olrak, hangi alanlara konularbilir ve hazırlaması hakkında bilgi verebilirimisiniz...

pk ve fk oluşturuyorum ama unique hiç yapmadım

[Uğur1982]

merhaba;
viewtopic.php?t=7287&highlight=expert

+ olarak IB Expert diye aratırsan bayaa bi sonuc dönecektir
bu işin kuralı okumak bence,hemde sabah akşam