حذف سجل من جدول في قاعدة البيانات

حذف البيانات:

يمكن حذف سجل أو سجلات من جدول، باستعمال أمر الحذف الذي يوفره الدلفي ، ولحذف سجل نستعمل الخاصية "Delete" للعنصرDataSet الذي نريد حذف سجل به، لا يتم تنفيذ أمر الحذف إلا إذا كان الجدول غير فارغ .

لحذف البيانات نقوم بالنقر المزدوج على الزر "ButtonDelete" في الإطار Form1: ونكتب الكود التالي :

procedure TForm1.ButtonDeleteClick(Sender: TObject);
begin
  if not FDQuery2.IsEmpty then
    FDQuery2.Delete;
end;

حيث أن الخاصية IsEmpty للعنصر  FDQuery2، تحمل قيم منطقية، فإذا كانت قيمتها "true" هذه يعني أن الاستعلام لا يحتوي على بيانات.
بعد حذف البيانات يمكن تحديث العرض، حتى لا تظهر البيانات المحذوفة ، وذلك بكتابة الكود التالي في الحادث "AfterDelete" للعنصر "FDQuery2 كما يلي :

procedure TForm1.FDQuery2AfterDelete(DataSet: TDataSet);
begin
  FDQuery2.Active := false;
  FDQuery2.Active := true;
End;

يمكن تعديل الحدث "OnClick" للعنصر "StringGridBindSourceDB1" على الفورم Form1 وذلك للتحكم في ظهور واختفاء الزر "ButtonDelete" وهذا نص الكود :

procedure TForm1.StringGridBindSourceDB1Click(Sender: TObject);
begin
 ButtonDelete.Visible := not FDQuery2.IsEmpty;
end;

يختفي الزر ButtonDelete عندما يكون الجدول فارغا من البيانات.