+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تخريج قيمة تلقائية للحقول التعريفية (/showthread.php?tid=976)
الصفحات:
1
2
تخريج قيمة تلقائية للحقول التعريفية - Eagle - 29-06-2013
شكرا على الرد AnoirsoftDeveloper
استخدمت الطريقة التالية وجربتها على الشبكة والحمدلله لم يحصل إلى الآن أي تكرار استخدمت مكون TADODatasetبدلا من TAdoQuery وحولت خاصية cursorType إلى ctDynamic واستخدمت الكود التلي :
كود :
Procedure TCashInvoicefrm.Savebtn
begin
with DM1.T_Orderitm do
begin
open;
DisableControls;
Last;
OrdNoSales := fieldByName('OrderNo').asInteger
Append;
DM1.T_OrderItmOrderNo.valu := OrdNoSales + 1
........
...
...
....
UpdateBatch();
EnableControl;
end;
end;