17-10-2012, 08:47 PM
السلام عليكم
اولا :حذف تسجيلة من tablemaster
;(procedure form1.Button1Click(Sender: TObject
begin
;tablemaster.Delete
;end
ثانيا
من الخاصية: Beforedelete ل:tablemaster يتم حذف جميع تسجيلات tabledetail
;(procedure tabledetailBeforeDelete(DataSet: TDataSet
var
;i:integer
begin
for i:=1 to tabledetail.recordcount do
begin try
;tabledetail.Last
;tabledetail.Delete
except
;end;end
;end
اولا :حذف تسجيلة من tablemaster
;(procedure form1.Button1Click(Sender: TObject
begin
;tablemaster.Delete
;end
ثانيا
من الخاصية: Beforedelete ل:tablemaster يتم حذف جميع تسجيلات tabledetail
;(procedure tabledetailBeforeDelete(DataSet: TDataSet
var
;i:integer
begin
for i:=1 to tabledetail.recordcount do
begin try
;tabledetail.Last
;tabledetail.Delete
except
;end;end
;end

