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

نسخة كاملة : كيف يمكن الحصول على ترقيم تلقائي لكل 10 تسجيلات
أنت حالياً تتصفح نسخة خفيفة من المنتدى . مشاهدة نسخة كاملة مع جميع الأشكال الجمالية .
السلام عليكم و رحمة الله و بركاته
بسم الله الرحمن الرحيم
كيف يمكن الحصول على ترقيم تلقائي لكل 10 تسجيلات كما هو موضح في الصورة
[صورة: do.php?img=209527]
لقد قمت بتجارب عديدة و لم افلح و منها
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/
(21-11-2016, 05:10 PM)Unprogramme كتب : [ -> ]وعليكم السلام ورحمة الله وبركاته ،
الق نظرة على الرابط التالي :
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;
(22-11-2016, 11:18 AM)B.M.AbdelAziZ كتب : [ -> ]انتبه لايجب الاعتماد على RecordCount في برنامج حقيقي
فعلا لا يمكن الاعتماد على   RecordCount يمكن بدلا منها استعمال تعليمة ال SQL

مثال ذلك :
كود :
SELECT  Count(*) as NuberOfRecord FROM MyTable

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