كيف يمكن الحصول على ترقيم تلقائي لكل 10 تسجيلات

[AbdouProg]

السلام عليكم و رحمة الله و بركاته
بسم الله الرحمن الرحيم
كيف يمكن الحصول على ترقيم تلقائي لكل 10 تسجيلات كما هو موضح في الصورة

لقد قمت بتجارب عديدة و لم افلح و منها

PHP كود :

ADOTable1.Open;
x := 0;
j:= 10 ;
valeur := ADOTable1.RecordCount+1;
if valeur < j then valeur := x+1;
ADOTable1.Append;
ADOTable1.edit;
ADOTable1.FieldByName('numéro').Value:=inttostr(valeur)+'/'+FormatDatetime('YY',now); 
ADOTable1.post; 


PHP كود :

ADOTable1.Open;
      ADOTable1.Last;
      n_annee := formatdatetime('YY', now);
      a_Key := ADOTable1.fields[1].value;
      ADOTable1.Append;
      ADOTable1.Edit;
      if (a_Key = NULL) or (copy(a_Key, length(a_Key)-1, 2)<> n_annee)then
       a_Num := 1
       else
       begin
       val(copy(a_Key, 1, 3), a_Num, Err);
       if Err <> 0 then a_Num := 0;
       end;
      result := format('%3.3d/', [a_Num])+ n_annee ;
      ADOTable1.FieldValues['numéro']:= result;