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

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

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

[صورة: 498879value.png]

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

كود :
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

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

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

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

[صورة: 171778Capture.png]

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

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

كود :
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;

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

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

كود :
table1.DisableControls;
try

 while not table1.eof do

خاصتا eof
Finally

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

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

Med-01

jeanjamil

Med-01

jeanjamil

Med-01

jeanjamil

Med-01