+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف يمكن الحصول على ترقيم تلقائي لكل 10 تسجيلات (/showthread.php?tid=8245)
كيف يمكن الحصول على ترقيم تلقائي لكل 10 تسجيلات - AbdouProg - 21-11-2016
السلام عليكم و رحمة الله و بركاته
بسم الله الرحمن الرحيم
كيف يمكن الحصول على ترقيم تلقائي لكل 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;
RE: كيف يمكن الحصول على ترقيم تلقائي لكل 10 تسجيلات - أبو معاذ - 21-11-2016
وعليكم السلام ورحمة الله وبركاته ،
الق نظرة على الرابط التالي :
http://forum.codecall.net/topic/74556-show-row-number-in-dbgrid/
RE: كيف يمكن الحصول على ترقيم تلقائي لكل 10 تسجيلات - AbdouProg - 21-11-2016
(21-11-2016, 05:10 PM)Unprogramme كتب : وعليكم السلام ورحمة الله وبركاته ،
الق نظرة على الرابط التالي :
http://forum.codecall.net/topic/74556-show-row-number-in-dbgrid/
السلام عليكم و رحمة الله و بركاته
ليس هدا ما ابحت عنه اخي بارك الله فيك
RE: كيف يمكن الحصول على ترقيم تلقائي لكل 10 تسجيلات - محمد عبد العزيز - 22-11-2016
السلام عليكم ورحمة الله
هذا مجرد مثال فقط، انتبه لايجب الاعتماد على RecordCount في برنامج حقيقي
كود :
Table1.Append;
Table1.FieldByName('Numero').AsString :=FormatFloat('000',0 + Trunc((10+Table1.RecordCount) / 10))+'/'+FormatDateTime('YY',Now);
Table1.Post;RE: كيف يمكن الحصول على ترقيم تلقائي لكل 10 تسجيلات - أبو معاذ - 22-11-2016
(22-11-2016, 11:18 AM)B.M.AbdelAziZ كتب : انتبه لايجب الاعتماد على RecordCount في برنامج حقيقيفعلا لا يمكن الاعتماد على RecordCount يمكن بدلا منها استعمال تعليمة ال SQL
مثال ذلك :
كود :
SELECT Count(*) as NuberOfRecord
FROM MyTableبالتوفيق.
RE: كيف يمكن الحصول على ترقيم تلقائي لكل 10 تسجيلات - AbdouProg - 22-11-2016
بسم الله الرحمن الرحيم
و الصلاة و السلام على ارشرف المرسلين صلوات الله وسلام عليهم اجمعين
بارك الله فيكم على المساعدة و جعله الله في ميزان حسناتكم