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

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

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : تلوين مربعات TShare حسب ارطباطها بقاعدة البيانات (/showthread.php?tid=1968)

تلوين مربعات TShare حسب ارطباطها بقاعدة البيانات - سيل الجليد - 04-05-2010

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

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

تلوين مربعات TShare حسب ارطباطها بقاعدة البيانات - kachwahed - 04-05-2010

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

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

البرمجة أنت من سيقوم بها، نحن نوجهك فقط Smile

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

تلوين مربعات TShare حسب ارطباطها بقاعدة البيانات - سيل الجليد - 04-05-2010

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

في مشكله اثناء تنفيذ البرنامج
[صورة: 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//

تلوين مربعات TShare حسب ارطباطها بقاعدة البيانات - kachwahed - 04-05-2010

إقتباس :بخصوص استفساركـ لل a و b و c هي عملية المستخدمة في ترتيب المقاعد في الطائره وهكذا

لكن على أي أساس يلون المربع في السطر a أو b أو c ؟؟؟

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

رسالة الخطأ تعني أنك تحاول فتح جدول مفتوح مسبقا!

إقتباس :هل لو عكست شرط العمر قبل الجنس ينفذ حسب الاولوية

طبعا، الشروط في يديك إلعب بها كما تريد Smile

ويمكنك إضافة شروط أخرى أيضا...

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

نصيحتي... أفتح مشروع جديد وجرب عليه ما لم تفهمه من الأكواد/المكونات/التوابع...
بالتوفيق.

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

إقتباس :لكن على أي أساس يلون المربع في السطر a أو b أو c ؟؟؟

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

إقتباس :رسالة الخطأ تعني أنك تحاول فتح جدول مفتوح مسبقا!

وكيف اقوم بتفادي هذا الخطأ مع ان الجدول مافي اي جدول اقوم بفتحه فقط الجدول الي في الفور 1

إقتباس :نصيحتي... أفتح مشروع جديد وجرب عليه ما لم تفهمه من الأكواد/المكونات/التوابع..

اكييد سأقوم بذلك لاكن لو عرفت عملة مسبقاً سيكون التجريب تأكيد لعمل هذي الاكواد
وان شاء الله اذا ما فهمت اي شي سأقوم بكتابته تحــياتي

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

إقتباس :وكيف اقوم بتفادي هذا الخطأ مع ان الجدول مافي اي جدول اقوم بفتحه فقط الجدول الي في الفور 1

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

تلوين مربعات TShare حسب ارطباطها بقاعدة البيانات - سيل الجليد - 06-05-2010

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

تلوين مربعات TShare حسب ارطباطها بقاعدة البيانات - kachwahed - 06-05-2010

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

تلوين مربعات TShare حسب ارطباطها بقاعدة البيانات - سيل الجليد - 06-05-2010

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