delphi4arab منتديات دلفي للعرب
ترقيم تلقائي يبدأ من 1 كل يوم - نسخة قابلة للطباعة

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : ترقيم تلقائي يبدأ من 1 كل يوم (/showthread.php?tid=6811)



ترقيم تلقائي يبدأ من 1 كل يوم - sorrowdll - 22-02-2015

استخد قاعدة بيانات اكسس وجدول بواسطة ديبي قريد .
عندا استعمال البرنامج ادخل كل يوم مثال 20 اسم يتم ترقيمهم من 1 الى 20.
وفي اليوم التالي ادخل مثال 30 شخص يتم ترقيمهم من 1 الى 30.
بإختصال كيف ترقيم تلقائي متجدد يوميا (كل يوم يبدأ من 1)


ترقيم تلقائي يبدأ من 1 كل يوم - onexite - 22-02-2015

الحل سهل
استخدم ملف ini لحفظ اليوم وعند تغير اليوم تقوم باعادة الترقيم عليك استخدام اوامر sql
select * from table where id = (select max(id2) from table) and date = datesave.....


ترقيم تلقائي يبدأ من 1 كل يوم - sorrowdll - 23-02-2015

ماهو id2
انا عندي id واحد فقط
لا استخدم اوامر sql انا استخدم دلفي عادي مع اكسس


ترقيم تلقائي يبدأ من 1 كل يوم - onexite - 23-02-2015

sorrowdll كتب :ماهو id2
انا عندي id واحد فقط
لا استخدم اوامر sql انا استخدم دلفي عادي مع اكسس
امر sql للحصول على اكبر id وذلك باضافة +1 اليه ليصبح id الجديد
ويمكنك عند فتح البرنامج يقارن بين اليوم المحفوظ و تاريخ اليوم اذا وجدها غير متساويان
ini_id=1
ini_date=today
واذاكانا متساويات
id=ini_id+1