ما افضل طريقة لعمل هذا الكود.......؟

يعني مافي رد ......... العد تجاوز 67 هل السؤال صعب........!

أخي أبو احمد

مبدئياً اعتقد ان الجدول الأول لا حاجة اليه اذا ان محتوياته لا تتكرر بكثرة يمكن الأستعاضة عنه بأحد انواع البيانات أو وضعها مباشرة ضمن الشروط المستخدمة في المقارنة

ألا اذا كانت هذه البيانات قابلة للتغيير من مرة الى أخري

والله أعلم

مع تحياتي

وجدي

مشكوووووور اخي وجدي.

لكن المشكلة ان البيانات متغيره

تحياتي.

أخي أبو أحمد

لقد قمت بعمل هذا الكود بسرعة نظراً لانشغالي بامور أخرى (لا زال يحتاج الى بعض التنقيح ) أو التعديل إن كان لا يوافق مرادك;)

ملاحظات حول الكود

*قمت بأضاقة الحرف w (الحرف الأول من أسمي :D ) لحميع عناصر الجدول الأول ليتناسب مع أستخدامها ضمن تعابير sql

*أستخدمت العنصر tquery بدلا من العنصر Ttable

* في حال كانت قاعدة البيانات الخاصة بك كبيرة رجاءً قم بتعديل الكود لكي يحدث فقط عند حدث الأضافة لاختصار زمن فتح وغلق القاعدة وأيضا المرور بالقاعدة من أولها الى أخرها

procedure TForm1.Button2Click(Sender: TObject);

var

Sqlstring,mystr :string;

begin

sqlString:='Select* From abahmed1.db where (wfrom <= %s ) and (%s <= wto )';

DBNavigator1.BtnClick(nbFirst);

while not table1.Eof do

begin

DBNavigator1.BtnClick(nbEdit);

Table1Quts.Value:=Table1S1.Value+Table1S2.Value+Table1S3.Value;

myStr:=Table1Quts.asString;

query1.Close;

query1.SQL.Clear;

query1.sql.add(format(sqlString,[mystr,mystr]));

try

query1.Open;

except

on e:EdataBaseError do messageDlg(e.message,mtError,[mbok],0);

end;

Table1Ms.Value:=Query1WQuts.Value;

DBNavigator1.BtnClick(nbNext);

end;

end;

ختاماً لكم فائق أحترامي

وجدي