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

سؤال عن فكرة ناتجة عن جدولين مربوطين مع بعض

بدأه medreg في 4 يناير 2010 · 4 رد · 824 مشاهدة · في لغة Delphi
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

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

لدي جدولين

table1 مربوط بـ Datasource1

table2 مربوط بـ Datasource2

ووضعت على الفورم 1

مكون DBGrid1 مربوط بـ Datasource1

و مكون DBGrid2 مربوط بـ Datasource2

وفي خصائص Table2

وضعت في الحدث MasterSource

Datasource1

ما اسأل عنه هو هل يمكنني حجز عدد معين من السطور في DBGrid2 تلقائيا من خلال كود برمجي

يعني كلما اضفت تسجيلة جديدة في DBGrid1 يظهر لي في DBGrud2 عدد معين من السطور على ان يكون مفتاح Table2 المسمى Cde_Produit مرقم

وهذ حسب السطور التي اريد ان تكون مجذحجوزة تلقائيًا

ولنفرض اني اريد ان يكون عدد السطور او السجلات في DBGrid2 خمسة

المطلوب كلما اضفت سجل جديد في DBGrid1 المربوط بDataSource1

اجد في DBGrid2 حسب هذا المثال

Cde_Produit

01

02

03

04

05

وسأرفق مثال للتعديل إذا أمكن المثال لايعمل بالشكل المطلوب لكن ما هو إلا لتوصيل الفكرة فقط

ارجو ان اكون قد وفقت في طرح السؤال والطلبteste1.rar

#2

الحل سهل جدا

بعد إدخال بيان في (table1) ، إستعمل الأمر (append) لادخال سجل جديد في الملف (table2) وكرره عدد خمس مرات (loop) مع إضافة 1 كل مرة الى حقل (Cde_Produit) مع استخدام (post) في (loop).

#3
احمد س كتب:

الحل سهل جدا

بعد إدخال بيان في (table1) ، إستعمل الأمر (append) لادخال سجل جديد في الملف (table2) وكرره عدد خمس مرات (loop) مع إضافة 1 كل مرة الى حقل (Cde_Produit) مع استخدام (post) في (loop).

شكرًا جزيلاً الأخ أحمد

لكن لم افهم قصدك

ارجوا المحاولة بما تقصد على المثال الذي ارفقته

وجزاكم الله عنا كل خير

#4
medreg كتب:

شكرًا جزيلاً الأخ أحمد

لكن لم افهم قصدك

ارجوا المحاولة بما تقصد على المثال الذي ارفقته

وجزاكم الله عنا كل خير

لقد جربت بعدة محاولات ومن بينها هذا الكود الذي وضعته لكن المشك في ان عندما اضغط على الأنتري يظهر لي عدد السجلات التي اريده

ولكن يبدأها بسجل الأول بدون ترقيم

وهذا هو الكود 

procedure TForm1.Table1BeforeInsert(DataSet: TDataSet);
begin
table2.Append;
table2.Append;
table2.Append;
table2.Append;
if table2.state=dsEdit then table2.Post;
table2.Post;
end;

ارجو الإطلاع وتصحيح الكود إنا كان هناك خطأ

#5
medreg كتب:

لقد جربت بعدة محاولات ومن بينها هذا الكود الذي وضعته لكن المشك في ان عندما اضغط على الأنتري يظهر لي عدد السجلات التي اريده

ولكن يبدأها بسجل الأول بدون ترقيم

وهذا هو الكود 

procedure TForm1.Table1BeforeInsert(DataSet: TDataSet);
begin
table2.Append;
table2.Append;
table2.Append;
table2.Append;
if table2.state=dsEdit then table2.Post;
table2.Post;
end;

ارجو الإطلاع وتصحيح الكود إنا كان هناك خطأ

ألا يوجد من إخواننا الأعضاء من يجيب على موضوعنا

أم الموضوع غير مفهوم

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

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

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

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

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