ادخال قيمة الى حقل في قاعدة البيانات

[Med-01]

السلام عليكم ورحمة الله وبركاته 
لدينا جدول في قاعدة البيانات table1 يحتوى على عدة حقول من بينها حقل test

اريد ادخال قيمة edit1 الى الحقل test في جميع السجلات 



جزاكم الله خيراااا

[jeanjamil]

كود :

begin   Table1.DisableControls     try        Table1.First         while not Table1.Eof do         begin           Table1.Edit           Table1.FieldByName('test').Value:=Edit1.Text           Table1.Post           Table1.Next         end     finally        Table1.EnableControls end

طبعا مع الفواصل المنقوطة نهاية الاسطر

[Med-01]

اهلا اخي jeanjamil  
جزاك الله خيرااا وجعلها في ميزان حسناتك امين يارب
اسئل الله ان يرزقك من حيث لا تحتسب .

مادا لو اضفنا حقل جديد بجانب test ولنفترض اسمه test2 من نوع bolean اي "true or false "
واردنا عمل شرط if حيت ستعطى قيمة Edit1.Text في فقط ادا امن امامه صح اي true وادا كان false يبقى كما هو






وشكرااا مسبقا اخي الكريم

[jeanjamil]

بالاستطاعة تعديل الكود

كود :

table1.DisableControls; try table1.First; while not table1.eof do begin table1.Edit if table1.FieldByName('check').AsBoolean=true then table1.FieldByName('name').AsString:='done table1.Post table1.Next end Finally table1.EnableControls; end;

[Med-01]

بارك الله فيك اخي الكريم
اسئل الله ان يغفرك لك ولولديك امين يارب .
ويرزقكم الفردوس الاعلى

ياريت تشرح كل من هده الاكواد

كود :

table1.DisableControls; try while not table1.eof do

خاصتا eof
Finally

[jeanjamil]

disablecontrols
لتسريع معالجة البيانات  وخاصة في حالات الثكرارLOOP
table1.first
تضع المؤشر عند اول سجل
وهنا تبدأ معالجة البيانات  سجل تلو الاخر
while not table1.eof
أي اذا لم يكن السجل الحالي هو الأخير في الجدول                
end of file(eof)
اذن  next  أي انتقل الى السجل التالي   حتى الوصول الى نهاية الجدول
try  و finally 
للحماية من الاعتراضات  وتحرير الذاكرة عند نهاية الكود
ارجو ان يكون واضحا  بالتوفيق

[Med-01]

جزاك الله خيراااا اخي الكريم"jeanjamil"
شرح كافي و وافي اعتدر لتاخر في الرد
سادعوا لك في ظهر الغيب