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

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

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

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

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

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

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

نعم اخي الفاضل الطريقة ناجحة 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//

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

سيل الجليد

kachwahed

سيل الجليد

kachwahed

سيل الجليد

kachwahed

سيل الجليد

kachwahed

سيل الجليد