تلوين مربعات TShare حسب ارطباطها بقاعدة البيانات

[سيل الجليد]

نعم اخي الفاضل الطريقة ناجحة 100%

في مشكله اثناء تنفيذ البرنامج

بخصوص استفساركـ لل A و B و C هي عملية المستخدمة في ترتيب المقاعد في الطائره وهكذا

هل لو عكست شرط العمر قبل الجنس ينفذ حسب الاولوية
لان اثناء ادخال بنت عمرها اقل من 12 سنه ابغاة بالون الازرق يحسب من نوعيه الاطفال وليس الفتيات
يعني شرط العمر ينفذ اولويه ومن ثم يأتي الجنس

بعض الاكواد تحتاج الى شرح باعربي لاني سوف اقوم بعمل التطبيق وافهمه خطوه بخطوه

كود :

AShape := FindComponent('Shape' + IntToStr(Idx)) as TShape;// if AShape <> nil then// begin with TLabel.Create(self) do// begin

كود :

Form1.Table1.First; // while not Form1.Table1.EOF do// begin if not (Form1.Table1.FieldByName('SeatNo').IsNull) then// begin ShapeName := 'Shape' +// Trim(Form1.Table1.FieldByName('SeatNo').AsString);// AShape := FindComponent(ShapeName) as TShape;// if Ashape <> nil then begin//