الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

ترحيل سجلات من ملف إلى نفس الملف الديتيل

مغلق
بدأه dr.h في 24 يناير 2002 · 2 رد · 616 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

الأخوة الأعزاء

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

يوجد لدي ملفان إثنان ، واحد ماستر والثاني ديتيل

من قاعدة بيانات بارادوكس 7 والبرمجة بالدلفي5

السجل الأول بالملف الاول تتبعه عدة سجلات في الملف الثاني الديتيل

أود إجراء عملية نقل لتلك السجلات الموجودة بالملف الديتيل إلى نفس الملف الديتيل لكن بحيث تكون تابعة للسجل الجديد (الثاني)بالملف الماستر .

يعني عندما أقوم بإدراج سجل جديد في الماستر

أريد من السجلات القديمة بالديتيل والتي كانت تابعة للسجل الأول بالماستر ، أن تؤخذ منها نسخة وتدرج في الديتيل لتصبح تابعة للسجل الجديد الذي تم فتحه في الماستر .

للتوضيح أكثر بمثال :-

مثلاً في السجل الأول والوحيد بالماستر توجد عبارة السنة الأولى(تعليم) يتبعها في الديتيل سجلات بأسماء المواد المدرسة (ثمانية مواد)

عندما أدرج سجل جديد في الماستر للسنة الدراسية الثانية أريد من الديتيل أن تدرج به السجلات كلها التي كانت تابعة للسنة الأولى

بحيث تظهر الثمانية مواد دراسية في الديتيل تحت عبارة السنة الثانية في الماستر .

سأكون شاكراً وممنوناً لكم لمساعدتي والأهتمام بسؤالي

عنواني للمراسلة halzuwawi@yahoo.com

:'(

#2

اخي العزيز ادا كان لديك الملف الماستر اسمه Master والملف الديتيل اسمه detail , قم بوضع جدول تالت سمه Detail2 لكن ليس له علاقة بالجدول Master , بحيت يكون نفس حقول الجدول Detail , و لا تقم باجراء اي علاقة بينه وبين الجدول Master , تم بقم بطتاب الاوامر التالية في الحدت AfterPost في جدول الماستر

 



procedure TForm1.MasterAfterPost(DataSet: TDataSet);

begin

  Detail2.Filter:='MasterId=''1'';

  Detail2.Filtered:=true;

  Detail2.First;

  while(not Detail2.Eof) do

  begin

    Detail.Append;

    // اكتب جميع الحقول

    Detail.FieldByName('').value:=Detail2.FieldByName('').value;

    Detail.Post;

    Detail2.Next;

  end;

end;

حيت تلاحض اجراء عملية الفلتر على الجدول master2 باستخدام رقم السنة الاولى

Detail2.Filter:='MasterId=''1'';

, بامكانك تغيير الرقم حسب بياناتك متلا

Detail2.Filter:='MasterId=''السنة الاولى'';

ولاي ايضاحات , ان شا الله نحن موجودون .

وشكرا

مــــMADIــــدي

#3

شكراً جزيلاً لك ، سأجرب الكود

هذا الموضوع مغلق.

مواضيع مشابهة

عدد الزوار حالياً

المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية

—الإجمالي—أعضاء مسجّلون—زوار بدون تسجيل

جارٍ التحقق من المتواجدين…