Kayıttan önce eminmisiniz sorusu ??

[çetinkaya]

S.A Arkadaşlar IBTable1.İnsert; yapmadan önce yeni kayıt girmek istediğinize eminmisiniz diye sormak istiyorum acababunu nasıl yaparım veya diğer bir deyişle IBTable1.delete yapmadan önce kaydı silmek istediğinizden emimisiniz diye sormak istiyorum nasıl yaparım..???

[CiTiZEN]

Kod: Tümünü seç

//soru fonksiyonu

function kayitsil:integer;
var Q:integer;
begin
q:=applicaiton.messagebox('kayıt silmek istediğinizden emin misiniz?','kayıt sil',mb_yesno+mb_iconquestion);
if q=mryes then
begin
result:=1;
end;

//kullanımı

procedure kayitsilbutton.click;
begin
if kayitsil=1 then
ibtable.delete;
end;

[çetinkaya]

bu şekilde değil de şöyle yapsak ;
ShowMessage('Yeni kayıt girmek istediğinizden eminmisiniz ?');
If evet der ise yeni kayıt girecek hayır derse else kayıt gimeyecek bu şekilde nasıl yaparım ??
DBEdit1.setfocus;
IBTable1.insert;

[CiTiZEN]

showmessage ile olmaz geriye değer döndürmesi gerek messagebox ile olabilir

Kod: Tümünü seç

var q:integer;
q:=application.messagebox('Yeni kayıt girmek istediğinizden emin misiniz?','Yeni Kayıt Gir',mb_yesno+mb_iconquestion);
if q=mryes then //evet dedi ise
begin
dbedit1.setfocus;
ibtable1.insert;
end;

[çetinkaya]

evet yapmak istediğim buydu tşk ederim..

[azs]

Tablonun BeforePost ve BeforeDelete kısımlarına kodlarını yaz daha kullanışlı olur.

Kod: Tümünü seç

procedure TabloBeforeDelete(DataSet: TDataSet);
begin
  if Application.MessageBox('Kayıtı Silmek İstediğinize Emin misiniz?','Uyarı Mesajı',mb_YesNo+mb_ICONQUESTION)=6 Then
  Tablo.Delete;
end;