منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب
[vb6.0] طريقه عمل مجاميل لصنف معين بالجدول - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [vb6.0] طريقه عمل مجاميل لصنف معين بالجدول (/showthread.php?tid=27515)

طريقه عمل مجاميل لصنف معين بالجدول - Ashraf Elafify - 18-11-18

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

الساده المحترمين

هل هناك طريقه لعمل مجاميع او مجموعات لصنف معين فى قاعده البيانات.

انا اعمل برنامج لتاجر فاكهه و مزروعات

بمعنى ان التاجر اشترى من المزارع وليكن احمد عدد 100 كجم من الفراوله بمبلغ 10 جنيه للكيلو.
ثم اشترى من مزارع أخر وليكن محمود عدد 500 كجم من الفراوله بمبلغ 9 جنيه للكيلو
ثم اشترى من مزارع اخر وليكن محمدين عدد 2000 كجم من الفراوله بسعر 6.5 جنيه للكيلو.
ثم اشترى من مزارع أخر 5000 كجم من الفراوله بسعر 6 جنيه للكيلو.

-
فى الوضع الحالى تمت اضافه جميع ما سبق فى قاعده البيانات .

و عند عمل فاتوره للبيع يتم تحميل كل الاصناف فى DBgrid للعميل .

ولكنه طلب منى ان يظهر كل الاصناف مجمعه

بمعنى ان تظهر فى الجدول بهذا الشكل :-

اسم الصنف - السعر - العدد الكلى
فراوله 10جنيه - 7600 كجم

السعر 10 جنيهات هو اعلى سعر اشترى به الصنف.

جربت كتير و لم اصل لنتيجه .
فهل اجد حل لديكم.

سوف اجهز نموذج مصغر و ارفعه لو لديكم حل .

RE: طريقه عمل مجاميل لصنف معين بالجدول - حريف برمجة - 18-11-18

كود :
SELECT Table1.ffrute, Max(Table1.fprice) AS MaxOffprice, Sum(Table1.fkelo) AS SumOffkelo FROM Table1 GROUP BY Table1.ffrute;
الجدول = Table1
حقل اسم الفاكهه = ffrute
حقل الكيلو = fkelo
حقل السعر = fprice

RE: طريقه عمل مجاميل لصنف معين بالجدول - Ashraf Elafify - 18-11-18

شكرا أخى الكريم

بارك الله فيك و جعلها فى ميزان سناتك

جارى التجربه

شكرا

RE: طريقه عمل مجاميل لصنف معين بالجدول - Ashraf Elafify - 19-11-18

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

اخى الكريم حريف برمجه.

لقد قمت بتجربه الكود الذى ساعدتنى به

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

فارجو من سيادتكم ايجاد الملف المرفق و تعديله

و ان أمكن اريد ان يقوم بالمجموعات فى الفورم لوود كما لو كان هناك نفس الصنف ولكن نوع الفرز مختلف

ييجى كل نوع وفرزه منفصل

كما ارجو ان تظهر المعلومات التى بها مربع احمر كما فى الصوره التاليه

[attachment=20136]

و هذه نتيجه ادخال الكود و تشغيله كما فى الصوره التاليه

[attachment=20137]

بارك الله فيك و جزاكم الله خيراً

و شكرا لجميع اساتذتى المحترمين.

RE: طريقه عمل مجاميل لصنف معين بالجدول - Ashraf Elafify - 21-11-18

من فضلكم اجتاج المساعده

RE: طريقه عمل مجاميل لصنف معين بالجدول - Ashraf Elafify - 26-11-18

الحمد لله تعالى
تم عمل الكود الخاص بأستاذى حريف برمجه بعد ضبطه فى برنامجى
وهو يعمل بشكل جيد

كود :
Data1.RecordSource = "Select ProductName,Sum(Quantity)As SumQuantity,max(SellingPrice)As MaxSellingPrice FROM QyFilterationType where ProductName like '" & "*" & TProductTypeName.Text & "*" & "' GROUP BY ProductName"
    Data1.Refresh

حيث
اسم الجدول - QyFilterationType
اسم الصنف او المنتج - ProductName
الكميه - Quantity
سعر البيع - SellingPrice

شكرا جزيلا لجميع اعضاء المنتدى المحترمين