+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : الترقيم الأوتوماتيكي أو الألي (/showthread.php?tid=8801)
الترقيم الأوتوماتيكي أو الألي - chardoneret - 15-08-2017
السلام عليكم
في المرفقات ملف يوضح السؤال حول الترقيم الأوتوماتيكي أو الألي
![[صورة: 376648712.png]](http://www4.0zz0.com/2017/08/15/14/376648712.png)
RE: الترقيم الأوتوماتيكي أو الألي - محمد عبد العزيز - 15-08-2017
السلام عليكم
أولا اخي اطرح سؤالك بالموضوع/المشاركة
ثانيا لا ترفق ملفات تنفيذية exe بالمنتدى
مع انني حملت المرفق لكن حتى الان لم افهم السؤال: ما المشكل ؟
RE: الترقيم الأوتوماتيكي أو الألي - chardoneret - 15-08-2017
المشكلة تتمثل في مايلي
أريد أن أقوم بوضع مثلا رقم 15 في edit1.text
ثم الضغط على زر ترتيب الملفات ثم تحجز الأرقام أليا في الجقل tartib لتكون 16 17 18 19 20 ......
أرحو ان الفكرة وصلت
و عذرا مسبقا على
RE: الترقيم الأوتوماتيكي أو الألي - محمد عبد العزيز - 15-08-2017
كود :
procedure TF_TOUT.BT_TARTIBClick(Sender: TObject);
begin
ADOTable1.First;
K:=0;
if Edit1.Text<>'' then K:=StrToInt(Edit1.Text);
while (not (ADOTable1.eof)) do
begin
ADOTable1.Edit;
ADOTable1.FieldByName('TARTIB').clear;
ADOTable1.FieldByName('TARTIB').AsInteger := k;
ADOTable1.Post;
k := K + 1;
ADOTable1.Next;
end;
ADOTable1.First;
end;RE: الترقيم الأوتوماتيكي أو الألي - chardoneret - 15-08-2017
الحمد لله
زادك الله علما و شرفا و قدرا أخي عبد العزيز و جعلها الله في ميزان والديك
شكرا أولا و أخيرا