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

[سيل الجليد]

السلام عليكم ورحمة الله وبركاتة

كيف الوين 3 الوان في المقاعد يعني الي عمرة اكبر من 12 سنة بلون الاحمر هذا يتم عن طريق حقل العمر وتم ادراجه في قاعدة البيانات.
الون الثاني لشخص اصغر من 12 سنة بالون الزرق وبرضو عن طريق حقل العمر نضع شرط اذا اكبر من 12 بلون الاحمر واذا اصغر من 12 بالون الازرق
المقعد الثالث للمرئه وهذا المقعد بالون الوردي ويتم عن طريق حقل الجنس وتم ادراجة في قاعدة البيانات
انا عملت المشروع وقاعدة البيانات وكل شي تحتاجونه فقط يحتاج الى برمجة
الملف في المرفقات
بختصار الحقل الاساسي للتلوين هو SeatNo ليوصلنا الى المقعد المطلوب في الرسمة
وقبل التلوين في حاله حقل Age اصغر من 12 بالون الازرق واذا اكبر من 12 بالون الاحمر
وايضاً حقل Sex في حاله كان الحرف F يعني انثى يقوم باتلوين بالون الوردي

[kachwahed]

وعليكم السلام ورحمة الله وبركاته
انا عملت المشروع وقاعدة البيانات وكل شي تحتاجونه فقط يحتاج الى برمجة
البرمجة أنت من سيقوم بها، نحن نوجهك فقط :)
ملاحظات:
- انتبه لمسار ملف قاعدة البيانات
- لا تنشئ أكثر من TTable لكل جدول
- إضافة فحوصات قبل الإضافة/الحذف/التعديل
وماذا عن الأسطر A, B, C ؟
في المرفق تعديل وفق طريقتك
بالتوفيق.

[سيل الجليد]

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

في مشكله اثناء تنفيذ البرنامج
http://img709.imageshack.us/img709/5827/errorqui.jpg
بخصوص استفساركـ لل 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//

[kachwahed]

بخصوص استفساركـ لل a و b و c هي عملية المستخدمة في ترتيب المقاعد في الطائره وهكذا
لكن على أي أساس يلون المربع في السطر a أو b أو c ؟؟؟
في مشكله اثناء تنفيذ البرنامج
رسالة الخطأ تعني أنك تحاول فتح جدول مفتوح مسبقا!
هل لو عكست شرط العمر قبل الجنس ينفذ حسب الاولوية
طبعا، الشروط في يديك إلعب بها كما تريد :)
ويمكنك إضافة شروط أخرى أيضا...
بعض الاكواد تحتاج الى شرح باعربي لاني سوف اقوم بعمل التطبيق وافهمه خطوه بخطوه
نصيحتي... أفتح مشروع جديد وجرب عليه ما لم تفهمه من الأكواد/المكونات/التوابع...
بالتوفيق.

[سيل الجليد]

لكن على أي أساس يلون المربع في السطر a أو b أو c ؟؟؟
لا برمجياً لااحتاج ادراج a و b و c لان في مشروعي سأقوم بأخفاء حقل ال SeatNo
الي راح يوصلنا الى تلوين المقاعد وسأقوم بأظهار حقل جديد اسمه SeatNumber
فرضاً المقعد A5 يكتب فيه لاكن لن يلون المربع المطلوب ويقوم بأدخال في الحقل الخاص ب SeatNo
الرقم الخاص بامربع وبكذا يكون تلون لان عند عملية الطباعه لن يظهر رقم SeatNo انما SeatNumber
رسالة الخطأ تعني أنك تحاول فتح جدول مفتوح مسبقا!
وكيف اقوم بتفادي هذا الخطأ مع ان الجدول مافي اي جدول اقوم بفتحه فقط الجدول الي في الفور 1
نصيحتي... أفتح مشروع جديد وجرب عليه ما لم تفهمه من الأكواد/المكونات/التوابع..
اكييد سأقوم بذلك لاكن لو عرفت عملة مسبقاً سيكون التجريب تأكيد لعمل هذي الاكواد
وان شاء الله اذا ما فهمت اي شي سأقوم بكتابته تحــياتي

[kachwahed]

وكيف اقوم بتفادي هذا الخطأ مع ان الجدول مافي اي جدول اقوم بفتحه فقط الجدول الي في الفور 1
الخطأ لم يحدث معي، من الواضح أنك نسيت الجدول مفتوح أثناء التصميم
أغلق الجدول قبل التشغيل.

[سيل الجليد]

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

[kachwahed]

الحدث الذي اخترته لإعادة الرسم غير مناسب، اختر غيره
OnAfterPost للـ Table1، أو OnDataChange لـ DataSource1، جرب.

[سيل الجليد]

لم تنفع معاي وايضاً في تطبيقك لم تستخدم اي حدث للأثنين