كيف يمكن الحصول على ترقيم تلقائي لكل 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; 


[أبو معاذ]

وعليكم السلام ورحمة الله وبركاته ،
الق نظرة على الرابط التالي :
http://forum.codecall.net/topic/74556-sh...in-dbgrid/

[AbdouProg]

وعليكم السلام ورحمة الله وبركاته ،
الق نظرة على الرابط التالي :
http://forum.codecall.net/topic/74556-sh...in-dbgrid/

السلام عليكم و رحمة الله و بركاته

ليس هدا ما ابحت عنه اخي بارك الله فيك

[محمد عبد العزيز]

السلام عليكم ورحمة الله
هذا مجرد مثال فقط، انتبه لايجب الاعتماد على RecordCount في برنامج حقيقي

كود :

Table1.Append; Table1.FieldByName('Numero').AsString :=FormatFloat('000',0 + Trunc((10+Table1.RecordCount) / 10))+'/'+FormatDateTime('YY',Now); Table1.Post;

[أبو معاذ]

انتبه لايجب الاعتماد على RecordCount في برنامج حقيقي

فعلا لا يمكن الاعتماد على   RecordCount يمكن بدلا منها استعمال تعليمة ال SQL

مثال ذلك :

كود :

SELECT  Count(*) as NuberOfRecord FROM MyTable

بالتوفيق.

[AbdouProg]

بسم الله الرحمن الرحيم
و الصلاة و السلام على ارشرف المرسلين صلوات الله وسلام عليهم اجمعين
بارك الله فيكم على المساعدة و جعله الله في ميزان حسناتكم