+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ادراج الترقيم في عمود (/showthread.php?tid=6014)
ادراج الترقيم في عمود - Bachirsoft - 12-03-2014
السلام عليكم
في قاعدة بيانات أكسس من 3000 تسجيل ،كيف تقسيم القائمة على أقسام أو غرف بحيث كل عشرين في قسم ، اي ادراج أرقام من 1 الى 20 في عمود (قسم ) ثم يتكرر الى أخر القائمة وفي الأخير إن كان اكبر من 5 تسجيلات يضاف قسم والعكس تضاف الى القسم السابق
مكون الجدول هو :رقم-اسم-قسم-ملاحظات
يمكن ان يكون الموضوع مكرر، تفضلوا بالتوجيه، وشكرا
ادراج الترقيم في عمود - Bachirsoft - 15-03-2014
لقد وجدت الحل وهو :
PHP كود :
procedure TForm1.Button1Click(Sender: TObject);
var
i, s: Integer;
begin
s := 1;
i := 1;
Table1.First;
While not(Table1.eof) do
begin
for i := 1 to 20 do
begin
Table1.Edit;
Table1.FieldByName('clsse').AsInteger := s;
Table1.Post;
Table1.Next;
end;
s := s + 1
end;
end;
لمن يريد الاستفادة منه وشكرا
ادراج الترقيم في عمود - Bachirsoft - 15-03-2014
هذه محاولة مني ومن له أمر أخر مرحبا به