+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كيف برمجة "ترقسم تلقائي" في الدلفي (/showthread.php?tid=4956)
الصفحات:
1
2
كيف برمجة "ترقسم تلقائي" في الدلفي - m.rabee - 13-04-2013
السلام عليكم
إقتباس :هل يمكن استعمال دالة تكرار ربيت repeat
مالذي تقصده بالظبط?
وأين تريد استخدامها؟
كيف برمجة "ترقسم تلقائي" في الدلفي - sadwolf - 13-04-2013
الحل اتوقع في القائمة المتصله
Linked List
كيف برمجة "ترقسم تلقائي" في الدلفي - kachwahed - 14-04-2013
وعليكم السلام ورحمة الله
موضوع سابق:
http://www.delphi4arab.net/forum/showthread.php?tid=1515
كيف برمجة "ترقسم تلقائي" في الدلفي - عبد الهادي - 17-04-2013
m.rabee كتب :مالذي تقصده بالظبط?ليعذر لي الاستاذ الكريم بساطة افكاري
لكني اقصد استعمال دالة تكرار لتسجيل الافراد في برنامج الاخ الكريم صاحب الموضوع
اي انه يكرر الجزء الثابت ويكرر في الجزء الاخير الارقام الاربعة بدالة ربيت ، حيث كلما اضاف سجلا ثبت في الذاكرة الرقم المتوقف عنده
استخدامها ؟ هنا اشكال لكني اضع فكرتي البسيطة ..:p
ادراج زر في برمجة تكرار حيث لدينا الرقم المتوقف عنده مخزن سابقا ، عندها يبدأ التكرار منه في حال اضفنا سجلا او حذفنا
والله اعلم
كيف برمجة "ترقسم تلقائي" في الدلفي - makhlouf - 18-04-2013
السلام عليكم و رحمة الله تعالى و بركاته:
فكرة أخرى يمكن استعمال السكيول لجلب آخر رقم مسجل ثم إضافة الواحد و في هذه الحالة لا يقع اي اختلاط للأرقام في حالة حذف رقم و لكن في حالة حذف رقمأقل من آخر رقم يبقى هذا الرقم فارغ في انتظار اية افكار أخرى:
فرضا أن الترقيم من الشكل: 00001/2013
لدينا جدول فيه الحقل الرقم و حقل العام لكي يعيد الرقم الى الواحد في العام الجديد
SQL .Active:=false;
SQL.Clear;
SQL.Text:='select max(a."num ") as "num " from "table" a where (a."annee" like "%'+(n)+'%")'; // : متغير يحمل العام الحاليN: حقل في الجدول لحمل العام الحالي annee
SQL .Active:=true;
i:= table. fieldbyname('num').asstring;متغير لحمل الرقم الناتج عن الاستعلام السابق//
s:=Copy((i),6,5);نتجاوز خمسة ارقام الخاصة العام//
if s='' then في حالة اول تسجيلة في الجدول//
s:='0';
table. fieldbyname('num').asstring:=inttostr(i+1);//إضافة واحد للترقيم الآلي
بالتوفيق
SQL.Clear;
SQL.Text:='select max(a."num ") as "num " from "table" a where (a."annee" like "%'+(n)+'%")'; // : متغير يحمل العام الحاليN: حقل في الجدول لحمل العام الحالي annee
SQL .Active:=true;
i:= table. fieldbyname('num').asstring;متغير لحمل الرقم الناتج عن الاستعلام السابق//
s:=Copy((i),6,5);نتجاوز خمسة ارقام الخاصة العام//
if s='' then في حالة اول تسجيلة في الجدول//
s:='0';
table. fieldbyname('num').asstring:=inttostr(i+1);//إضافة واحد للترقيم الآلي