حدف تسجيلة لتلاتة جداول بزر واحد

[boughagha]

السلام عليكم

كيف يمكننا حدف تسجيلة لتلاتة جداول بزر واحد سواء كانت هده الجداول مرتبطة مع بعضها او لا

جربت عدة طرق وبحث في المنتدى ولم اجد النتيجة

كود

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Table1.Open;
if table1.RecordCount>0 then
if MessageDlg('Voullez vous vraiment supprimer cet enregistrement ?', MtConfirmation, MbOkCancel,0)=mrok
then table1.Delete;

end;

[onexite]

وعند الحذف ماذا ستحذف من الجدول الثاني والثالث ?
مجرد اقتراح
اذا كانت الجداول الثلاثة متساوية
فعند تغيير index جدول تتغير البقية ويصبح الكود

PHP كود :

procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Table1.Open;
if table1.RecordCount>0 then
if MessageDlg('Voullez vous vraiment supprimer cet enregistrement ?', MtConfirmation, MbOkCancel,0)=mrok
then
 begin 
table1.Delete;
table2.Delete
table3.Delete
end;
end; 


[boughagha]

جربت هده الطريقة الجدول التاني والتالت يحدف ولكن في الجدول الاول لا يحدف

وكدلك عندما جربت هده الطريقة والجدول التاني والتالت مرتبطين مع الجدول الاول تظهر لي رسالة خطا

وشكرا

[format82]

هنالك مشكلة في ربط الجداول (العلاقة بين الجدولين ) في الربط حدد خيار عند حذف من الجدول الاساسي يحذ من الجدول الفرعي وكذلك التعديل

[nebchadelphi]

السلام عليكم
سؤالك فيه بعض الغموض
يجب أن يكون هناك عنصر مشترك بين الجداول، مثل حقل من حقول التسجيلة
وعليه يتم الحذف استنادا على هذا المفتاح
اذا أمكنك توضيح سؤالك أكثر، فبالامكان تقديم ال******
شكرا والسلام عليكم

[boughagha]

شكرا لكم جميعا

لقد نجحت العملية ودلك بربط الجداول مع بعضها بحقل مشترك

وبالتالي عند حدف تسجيلة من الجدول الاول تحدف ايضا من الجداول الاخرى المرتبطة معه

كود PHP:
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
Table1.Open;
if table1.RecordCount>0 then
if MessageDlg('Voullez vous vraiment supprimer cet enregistrement ?', MtConfirmation, MbOkCancel,0)=mrok
then
begin
table1.Delete;
table2.Delete
table3.Delete
end;
end;