删除记录问题
procedure Tgb_k.SpeedButton2Click(Sender: TObject);
begin
if DM.CDS_gb_01.recordcount <> 0 then
begin
if Application.messagebox('请确认是否要删除', '管理系统', mb_iconinformation + mb_yesno) = idyes then
begin
DM.CDS_gb_01.delete;
DM.CDS_gb_01.applyupdates(0);
end;
end
else
begin
Application.messagebox('已没有记录可删除,请确认!', '管理系统', mb_iconinformation + mb_defbutton1);
end;
end;
为什么 我点删除时 DBGrid 里面的记录会删掉 便数据库的记录还存在??