+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : بدء الترقيم بـ 1 بعد 100 (/showthread.php?tid=8737)
بدء الترقيم بـ 1 بعد 100 - الراشيد - 28-06-2017
السلام عليكم ورحمة الله
لدي جدول لحجز مواعيد يوجد به حقول كالتالي رقم الحجز والاسم والموعد اي تاريخ الحجز- كيف بالاماكان عندما يصل رقم الحجز الى 100 100 سجل تم تسجيلها ان يبد الحجز من جديد بالرقم 1 ولكم جزيل الشكر
RE: بدء الترقيم بـ 1 بعد 100 - Ben.Ja - 30-06-2017
ممكن تفاصيل أكثر؟ وما هو البرنامج الذي تعمل به؟
Mysql - Sqlite ...
RE: بدء الترقيم بـ 1 بعد 100 - الراشيد - 04-07-2017
البرنامج اخي الفاضل access
RE: بدء الترقيم بـ 1 بعد 100 - Mustapha29 - 04-07-2017
كود :
procedure TForm1.Button1Click(Sender: TObject);
var i:integer;
begin
i:=0;
with adoTable1 do
begin
First;
While Not EOF do
begin
edit;
Inc(i);
adotable1id.Value:=i;
if i=100 then
i:=0;
Next;
end;
end;
end;RE: بدء الترقيم بـ 1 بعد 100 - الراشيد - 04-07-2017
جزاك الله خير اً يا اخي