05-05-2017, 10:32 PM
(آخر تعديل لهذه المشاركة: 10-05-2017, 11:29 AM بواسطة محمد عبد العزيز.)
بعص الملاخظات وليس الحل على الصور الكود
كود :
procedure TFrmCalc.Button1Click(Sender: TObject);
Var
xCda,xCdb,xCdd:string;
Blq:Boolean;
tot:Double;
begin
with DM do
begin
Table1.first;
xCda:=Table1Cda.asstring;
xCdb:=Table1Cdb.Asstring;
xCdd:=Table1Cdd.Asstring;
Table1.next; // ÎØÃ
Table1.First;
while not (Table1.eof) do
begin
If Table1.Active=False then
begin
{
هذا الشرط لن يتحقق
واذا تحقق سيحدث خطأ من البداية
أعتقد أن هذا خطأ برمجي وغير جائز بتاتا
هذا حسب علمي
وظهور هذه الرسالة
Table1 : Imossible d' effectuer cette opération sur un ensembe de données fermé.
من المستحل اسناد هذه العملية الأن المعطيات في حالة اغلاق
وهذا اذا كان تابل غير نشط أي مغلق
واذا كان غير مقلغ لن يحدث شيء
وقيلى انت تسيي في
}
If (Table1Cda.asstring=xCda) and (Table1Cdb.Asstring=xCdb) and
(Table1Cdd.Asstring=xCdd) then
begin
tot:=Table1MT.value+tot;
end
else
begin
Table1.Prior;
Table1.edit;
Table1MTot.VALUE:=tot;
tot:=Table1MT.value;
Table1.Next;
end;
end;
xCda:=Table1Cda.asstring;
xCdb:=Table1Cdb.Asstring;
xCdd:=Table1Cdd.Asstring;
Table1.Next;
end;
end;
end;