Hata Mesajı !!!

[ozcank]

Arkadaşlar bu satırdaki mesajı bir türlü verdiremiyorum yardım ederseniz sevinirim.

[/code]
Raise Exception.Create('Firma Kodu Kullanılmış !!! Önce bu firmaya ait hareketleri Siliniz !!!');

Kod: Tümünü seç

procedure TForm4.Button3Click(Sender: TObject);
Var
ForSil:Integer;
begin
ForSil:=Application.MessageBox('Silmek İstediğinizden Eminmisiniz ?','Kayıt Silme',
Mb_YesNo+Mb_IconQuestion);
If ForSil=IDYes Then
begin
If Table2.Locate('FIRMAKOD',Table1.FieldByName('FIRKODU').AsInteger,[]) Then
Raise Exception.Create('Firma Kodu Kullanılmış !!! Önce bu firmaya ait hareketleri Siliniz !!!');
if not Table1.isempty then
Table1.Delete
else Showmessage('Silinecek Kayıt Yok');
end;
end;

Kod: Tümünü seç

[ozcank]

Kod: Tümünü seç

Raise Exception.Create('Firma Kodu Kullanılmış !!! Önce bu firmaya ait hareketleri Siliniz !!!');

[assoft]

Raise Exception metodunu kullamana bir mâna veremedim ama bu işi (MessageDlg veya MessageBox) yapabilirsin. yapman gereken şey sadece kullanıcı no'sunu aratırsın ve dönen sonuca göre mesaj verdirir yada işlem yaparsın.

[ozcank]

Kitap a göre yapmaya çalışıyorum ama birtürlü beceremedim eksik birşey mi var acaba bi el atarsanız sevinirim.

[ALUCARD]

Kitap a göre yapmaya çalışıyorum ama birtürlü beceremedim eksik birşey mi var acaba bi el atarsanız sevinirim

hangi kitaba gore ne yapmaya çalışıyon anlamadım

niye raise kullanıyon opnu hiç anlamadım

bu kodu şöyle çalıştırabilirsin

Kod: Tümünü seç

procedure TForm4.Button3Click(Sender: TObject); 
Var 
ForSil:Integer; 
begin 
ForSil:=Application.MessageBox('Silmek İstediğinizden Eminmisiniz ?','Kayıt Silme', 
Mb_YesNo+Mb_IconQuestion); 
If ForSil=IDYes Then 
begin 
If Table2.Locate('FIRMAKOD',Table1.FieldByName('FIRKODU').AsInteger,[]) Then 
showmessage('Firma Kodu Kullanılmış !!! Önce bu firmaya ait hareketleri Siliniz !!!'); 
if not Table1.isempty then 
Table1.Delete 
else Showmessage('Silinecek Kayıt Yok'); 
end; 
end; 

[ozcank]

ALUCARD Kardeşim senin dediğin şekilde denedim ama bu sefer her durumdada kaydı siliyor.Mesajı alıyorum ama silme işlemini yapmaması gerekiyor ama yapıyor raise exception create silmeden geri döndürüyor.

[ALUCARD]

Kod: Tümünü seç

ForSil:=Application.MessageBox('Silmek İstediğinizden Eminmisiniz ?','Kayıt Silme', 
Mb_YesNo+Mb_IconQuestion); 
If ForSil=IDYes Then 
begin 
If Table2.Locate('FIRMAKOD',Table1.FieldByName('FIRKODU').AsInteger,[]) Then 
showmessage('Firma Kodu Kullanılmış !!! Önce bu firmaya ait hareketleri Siliniz !!!'); 
end else begin
if not Table1.isempty then 
Table1.Delete 
else 
Showmessage('Silinecek Kayıt Yok'); 
end

şimdi tama olması lazım

[ozcank]

şimdide Hayır a basınca ne olursa olsun siliyor !!!

[kadirkurtoglu]

arkadaşlar yardımcı olmaya çalışmışlar. anladığım kadarıyla master bir kaydı kullanıcı silerken bu kayda ait (Hareket)detail kayıtlarıda silmek mi istiyorsunuz. bunu sql kodlarıyla çok kısa sürede silebilirsiniz. ancak siz table kullanmışsınız. o zaman arama işlemi için table bileşeni ekleyin ve aramayı bu bileşenle yapın. arama yaparken fielde değilde, o anki kaydın id sini gösterdiğiniz text ile yapın örnek vermek gerekirse.

Kod: Tümünü seç

if Table2.Locate('FIRMAKOD', DBEdit1.Text, []) then

veya

Kod: Tümünü seç

if Table2.Locate('FIRMAKOD', DBGrid1.Field[1].Text, []) then

daha sonra kodları işletirsiniz...

kolay gelsin...

[mnt]

Bence ilk yazdığınız kod en iyisi..
Exception üretilmediğine göre;

Kod: Tümünü seç

If Table2.Locate('FIRMAKOD',Table1.FieldByName('FIRKODU').AsInteger,[]) Then 

burada konumlanma olmuyor. Butona bastıktan sonra Table2 ilgili kayıda konumlanıyormu onu kontrol edin..

[ender_arslanturk]

Kod: Tümünü seç

procedure TForm4.Button3Click(Sender: TObject);
begin
      if Application.MessageBox('Silmek İstediğinizden Eminmisiniz ?','Kayıt Silme', Mb_YesNo+Mb_IconQuestion)=6 then
      begin
		If Table2.Locate('FIRMAKOD',Table1FirmaKodu.Text,[]) Then
		Raise Exception.Create('Firma Kodu Kullanılmış !!! Önce bu firmaya ait hareketleri Siliniz !!!');
		if not Table1.isempty then
		Table1.Delete
		else 
		Showmessage('Silinecek Kayıt Yok');
      end;
end;

[aLonE CoDeR]

Selamlar.
Bir nokta gözüme çarptı;
Locate metodunun üçüncü parametresini cevap veren arkadaşlar da dahil olmak üzere boş geçmiş.Söz konusu parametrenin işlevinde benim bilmediğim birşeyler mi var

[Kuri_YJ]

Selamlar,

Locate'in helpine bakarsanız orada her şey yazıyor. Ama ön bilgi olması açısından söyleyeyim, loParitialKey gibi çeşitli methodları vardır. Yani arama yaparken Birebir aynısını mı bulayım yoksa benzerlerini de getireyim mi gibi (SQL'deki LIKE gibi)

Bu tür özellikler belirterek Locate etmesini sağlayabiliyorsunuz.

Kolay Gelsin

[aLonE CoDeR]

Evet benim kasdettiğim de bu olay..

[ender_arslanturk]

Eğer hassas lık istenmiyor ise [] şeklinde de kullanılabilir.