السلام عليكم
كيف أمنع تكرار التسجيلات أي إذا كانت نفسها تضاف تلقائيا إلى بعضها في عمود واحد مع مجموع عددها
أريد جمع الاسطر لها نفس القيم (نفس الرقم التسلسلي Rfrence) في DBgrid
مثلا في الصورة في المرفقات كيف أجمع سلعة tob في عمود واحد فقط
جزاكم الله خيرا
وعليكم السلام .
هل تستعمل ال sql ؟
إذا كان نعم ،
استعمل Group BY .
إذا كان لا ، وضح أكثر.
(14-01-2022, 10:10 AM)أبو معاذ كتب : [ -> ]وعليكم السلام .
هل تستعمل ال sql ؟
إذا كان نعم ،
استعمل Group BY .
إذا كان لا ، وضح أكثر.
لاحظ الصورة المرفقة
أريد جمع الاسطر لها نفس القيم (نفس الرقم التسلسلي Rfrence) في DBgrid
لا أستعمل SQL
شكرا لك
(14-01-2022, 10:10 AM)أبو معاذ كتب : [ -> ]وعليكم السلام .
هل تستعمل ال sql ؟
إذا كان نعم ،
استعمل Group BY .
إذا كان لا ، وضح أكثر.
أريد جمع الاسطر لها نفس القيم (نفس الرقم التسلسلي Rfrence) في DBgrid
كما في الصورة المرفقة
وعليكم السلام
حتى يمكن مساعدتك اما ترفق مثال لمحاولتك أو على الأقل تضع الكود المستخدم للاضافة
(15-01-2022, 03:58 PM)محمد عبد العزيز كتب : [ -> ]وعليكم السلام
حتى يمكن مساعدتك اما ترفق مثال لمحاولتك أو على الأقل تضع الكود المستخدم للاضافة
أريد جمع الاسطر لها نفس القيم (نفس الرقم التسلسلي Rfrence) في DBgrid
لاحظ الصورة في الرد السابق
السلام عليكم
عندك خلل في الكود
يبدو انك لا تستعمل المفتاح عند الإدخال
المفتاح السلعة و الكمية إذا كانت السلعة موجودة أصلا
فلكل نوع سلعة مفتاح
مثلا بطاطا 01
قرع 02
لذلك الإخوة يريدون الكود لمساعدتك
والله أعلم هذا ما فهمته من سؤالك
ضع فقط جملة الـ SQL المستخدمة
مثلا انت تستخدم
كود :
Select Designation, Qte, Prix from Tablename
الحل هو شئ مثل
كود :
Select Designation, sum(Qte), sum(Prix) from Tablename
groub by
Designation
(17-01-2022, 01:00 AM)Delphi4Us كتب : [ -> ]ضع فقط جملة الـ SQL المستخدمة
مثلا انت تستخدم
كود :
Select Designation, Qte, Prix from Tablename
الحل هو شئ مثل
كود :
Select Designation, sum(Qte), sum(Prix) from Tablename
groub by
Designation
if Key = #13 then
BEGIN
data.L_Ventes.Edit;
data.L_VentesRfrence.Value:=data.ArticlesRfrence.Value;
data.L_Ventes.Insert;
edit1.Text:='';
أريد التغيير على هذا الكود عند الضغظ على زر Entrée إذا كانت السلعة نفس Rfrence تجمع مع بعضها
إقتباس :data.L_Ventes.Edit;
data.L_VentesRfrence.Value := data.ArticlesRfrence.Value;
data.L_Ventes.Insert;
edit1.Text:='';
مشكلتك عويصة فكودك هذا لاعلاقة له بموضوع جمع النتائج وانما بتعديل واضافة البيانات
وحتى تعديل واضافة البيانات هو خاطئ
يعني انت تتحدث عن عرض البيانات وتضع كود لاهو معروف للاضافة او التعديل
على العموم اذا كان الموضوع عرض البيانات فهو كما اشرت لك والحل بجملة الاستعلام
واذا كنت تقصد انك تريد اضافة البيانات بسجل بقاعدة البيانات فالحل اما بجملة استعلام Update بدل من Insert بحال كانت السلعة موجودة
او باستخدام الدالة For على الجدول ومقارنة اسم السلعة فلو كانت موجودة يقوم بعمل Edit واذا كانت غير موجودة يقوم بعمل Insert
واذا كنت تريد كود جاهز فليس بدون ان ترفق اسم الجدول والحقول التي تستخدمها