delphi4arab منتديات دلفي للعرب

السلام عليكم
في قاعدة بيانات أكسس من 3000 تسجيل ،كيف تقسيم القائمة على أقسام أو غرف بحيث كل عشرين في قسم ، اي ادراج أرقام من 1 الى 20 في عمود (قسم ) ثم يتكرر الى أخر القائمة وفي الأخير إن كان اكبر من 5 تسجيلات يضاف قسم والعكس تضاف الى القسم السابق
مكون الجدول هو :رقم-اسم-قسم-ملاحظات
يمكن ان يكون الموضوع مكرر، تفضلوا بالتوجيه، وشكرا

لقد وجدت الحل وهو :

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

Bachirsoft

Bachirsoft