[vb6.0] أريد حاصل ضرب عمودين السعر و الكمية للحصول على الإجمالي في داتا ريبورت - هل من إجابة؟

[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] أريد حاصل ضرب عمودين السعر و الكمية للحصول على الإجمالي في داتا ريبورت - هل من إجابة؟ (/showthread.php?tid=45636)

أريد حاصل ضرب عمودين السعر و الكمية للحصول على الإجمالي في داتا ريبورت - هل من إجابة؟ - hamada salah90 - 07-03-23

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

إخواني و أساتذتي الأعزاء

أريد حاصل ضرب عمودين السعر و الكمية للحصول على الإجمالي ؟؟

عندي عمود في قاعدة البيانات به سعر الصنف 4 : 6 : 8 : 10 : 12

و عمود ثاني في قاعدة البيانات به كمية الصنف 10 : 20 : 30 : 40 : 50

أريد أن يظهر في التقرير Data report

هل من طريقة

أرجو المساعدة

مرفق صورة للتوضيح

RE: أريد حاصل ضرب عمودين السعر و الكمية للحصول على الإجمالي في داتا ريبورت - هل من إجابة؟ - ahmedabdelaliem - 12-03-23

السلام عليكم
ممكن ترفق البرنامج

بالتوفيق

RE: أريد حاصل ضرب عمودين السعر و الكمية للحصول على الإجمالي في داتا ريبورت - هل من إجابة؟ - hamada salah90 - 21-03-23

هذا مرفق لما أريد التعديل عليه

RE: أريد حاصل ضرب عمودين السعر و الكمية للحصول على الإجمالي في داتا ريبورت - هل من إجابة؟ - Taha Okla - 22-03-23

(21-03-23, 11:47 PM)hamada salah90 كتب : هذا مرفق لما أريد التعديل عليه

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

أنشء مشروع جديد وضع فيه الأكواد التي تسبب المشكلة
وجربه قبل أن ترفعه .. إذا كان يعمل كما يعمل لديك وقت المشكلة : قم وقتها برفعه، وليس أن ترفعه بدون أن ترفع الفورم الذي فيه المشكلة..

لو ترفع مشروعك بدون ما تعتمد على أزرار وأدوات من خارج الفيجول بيزك أفضل،
حتى يستطيع الشخص اللي بيفكر يساعدك لما ينزل عنده الكود : يشغله ويصل لمكان المشكلة بدون ما يحتاج يفكر بالمشاكل الثانية
الناتجة عن نقص الأدوات أو الأكواد التي لم ترفقها ويصل لمكان المشكلة بالتحديد ويعالجها هي دون ما يضيع وقته على اصلاح المشاكل
الثانية ويضيع وقته ثم يمل ويتركك بنصف الطريق فلا هو ساعدك ولا أنت استفدت من طول انتظارك لمن يأتي ويحل المشكلة ...

RE: أريد حاصل ضرب عمودين السعر و الكمية للحصول على الإجمالي في داتا ريبورت - هل من إجابة؟ - hamada salah90 - 22-03-23

(22-03-23, 04:09 AM)Taha Okla كتب :
(21-03-23, 11:47 PM)hamada salah90 كتب : هذا مرفق لما أريد التعديل عليه

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

أنشء مشروع جديد وضع فيه الأكواد التي تسبب المشكلة
وجربه قبل أن ترفعه .. إذا كان يعمل كما يعمل لديك وقت المشكلة : قم وقتها برفعه، وليس أن ترفعه بدون أن ترفع الفورم الذي فيه المشكلة..

لو ترفع مشروعك بدون ما تعتمد على أزرار وأدوات من خارج الفيجول بيزك أفضل،
حتى يستطيع الشخص اللي بيفكر يساعدك لما ينزل عنده الكود : يشغله ويصل لمكان المشكلة بدون ما يحتاج يفكر بالمشاكل الثانية
الناتجة عن نقص الأدوات أو الأكواد التي لم ترفقها ويصل لمكان المشكلة بالتحديد ويعالجها هي دون ما يضيع وقته على اصلاح المشاكل
الثانية ويضيع وقته ثم يمل ويتركك بنصف الطريق فلا هو ساعدك ولا أنت استفدت من طول انتظارك لمن يأتي ويحل المشكلة ...

آسف أخي الغالي

لكن المقصد ألا أشتت حضراتكم عن المقصود من كلامي فقط

قمت برفع مثال آخر بسيط جدا

RE: أريد حاصل ضرب عمودين السعر و الكمية للحصول على الإجمالي في داتا ريبورت - هل من إجابة؟ - Taha Okla - 22-03-23

عدل كود عرض التقرير إلى الكود التالي :

كود :

   Call ConnectSanfData3

    '=========================

    If rsSanfData3.State = adStateOpen Then rsSanfData3.Close

    'code     sanfName    HaliRsid    gomlaGomla , Amount = HaliRsid * gomlaGomla

    Dim strSQL1 As String

    strSQL1 = "Code,sanfName,HaliRsid,gomlaGomla ,[HaliRsid]*[gomlaGomla] as Amount"

    rsSanfData3.Open "select " & strSQL1 & " from [SanfData] where [HaliRsid] > 0 order By [code] ASC", dbADODB2, adOpenStatic, adLockReadOnly

    Set DRPTsanfTaklfa.DataSource = rsSanfData3

    DRPTsanfTaklfa.Show

    Exit Sub

    '=========================

[/code]

وفي صفحة التقرير غير اسم الحقل DataField من (gomlaGomla) لـ الأداة Text3 لـ (Amount)

=======

الشرح بإختصار :
في جملة الـ SQL قمنا بتبديل النجمة (*) بأسماء الحقول التي نريد عرضها ضمن التقرير فقط
وأضفنا عليها حقل جديد(حقل افتراضي) أسميناه (Amount) وهو ناتج ضرب السعر بالكمية.
فأصبح لدينا جدول افتراضي عوضناه بالتقرير فنتج ما تريد..
..

RE: أريد حاصل ضرب عمودين السعر و الكمية للحصول على الإجمالي في داتا ريبورت - هل من إجابة؟ - hamada salah90 - 22-03-23

(22-03-23, 10:23 PM)Taha Okla كتب : عدل كود عرض التقرير إلى الكود التالي :

كود :

Call ConnectSanfData3 '========================= If rsSanfData3.State = adStateOpen Then rsSanfData3.Close 'code sanfName HaliRsid gomlaGomla , Amount = HaliRsid * gomlaGomla Dim strSQL1 As String strSQL1 = "Code,sanfName,HaliRsid,gomlaGomla ,[HaliRsid]*[gomlaGomla] as Amount" rsSanfData3.Open "select " & strSQL1 & " from [SanfData] where [HaliRsid] > 0 order By [code] ASC", dbADODB2, adOpenStatic, adLockReadOnly Set DRPTsanfTaklfa.DataSource = rsSanfData3 DRPTsanfTaklfa.Show Exit Sub '=========================
[/code]

وفي صفحة التقرير غير اسم الحقل DataField من (gomlaGomla) لـ الأداة Text3 لـ (Amount)

=======

الشرح بإختصار :
في جملة الـ SQL قمنا بتبديل النجمة (*) بأسماء الحقول التي نريد عرضها ضمن التقرير فقط
وأضفنا عليها حقل جديد(حقل افتراضي) أسميناه (Amount) وهو ناتج ضرب السعر بالكمية.
فأصبح لدينا جدول افتراضي عوضناه بالتقرير فنتج ما تريد..
..

سوف اجرب شكرا لك اخي الغالي

(22-03-23, 10:23 PM)Taha Okla كتب : عدل كود عرض التقرير إلى الكود التالي :

كود :

Call ConnectSanfData3 '========================= If rsSanfData3.State = adStateOpen Then rsSanfData3.Close 'code sanfName HaliRsid gomlaGomla , Amount = HaliRsid * gomlaGomla Dim strSQL1 As String strSQL1 = "Code,sanfName,HaliRsid,gomlaGomla ,[HaliRsid]*[gomlaGomla] as Amount" rsSanfData3.Open "select " & strSQL1 & " from [SanfData] where [HaliRsid] > 0 order By [code] ASC", dbADODB2, adOpenStatic, adLockReadOnly Set DRPTsanfTaklfa.DataSource = rsSanfData3 DRPTsanfTaklfa.Show Exit Sub '=========================
[/code]

وفي صفحة التقرير غير اسم الحقل DataField من (gomlaGomla) لـ الأداة Text3 لـ (Amount)

=======

الشرح بإختصار :
في جملة الـ SQL قمنا بتبديل النجمة (*) بأسماء الحقول التي نريد عرضها ضمن التقرير فقط
وأضفنا عليها حقل جديد(حقل افتراضي) أسميناه (Amount) وهو ناتج ضرب السعر بالكمية.
فأصبح لدينا جدول افتراضي عوضناه بالتقرير فنتج ما تريد..
..

مشكوووووووووووووووور جدا أخي الغالي

Heart

RE: أريد حاصل ضرب عمودين السعر و الكمية للحصول على الإجمالي في داتا ريبورت - هل من إجابة؟ - sanyor77 - 26-03-23

وعليكم السلام ورحمة الله وبركاته يمكنك حساب حاصل ضرب السعر والكمية في استعلام SQL وعرض النتيجة في تقرير Data report. سأشرح كيفية القيام بذلك. أولاً، ستحتاج لتعديل استعلام SQL الخاص بك بحيث يحسب حاصل ضرب السعر والكمية ويضيفه كحقل جديد في النتائج. قد يبدو الاستعلام مشابهًا لما يلي:

كود :

SELECT Price, Quantity, Price * Quantity as Total FROM YourTableName

حيث يتم استبدال "YourTableName" باسم الجدول الخاص بك في قاعدة البيانات. ثم، في تقرير Data report، قم بإضافة عنصر نص جديد (Text) لعرض الإجمالي وقم بتعيين خاصية DataField الخاصة به إلى "Total"، والذي هو اسم الحقل الذي أضفناه في الاستعلام السابق. بهذه الطريقة، سيتم حساب حاصل ضرب السعر والكمية وعرضه في التقرير Data report.

قمت بتعديل الكود حسب طلبك، كما يلي:

كود :

Dim cnn As New ADODB.Connection

Dim rs As New ADODB.Recordset

Dim strSQL As String

' قم بتعديل هذه السطور للاتصال بقاعدة البيانات الخاصة بك

cnn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=YourDatabase.mdb;"

cnn.Open

' استعلام SQL لجلب السعر والكمية وحساب الإجمالي

strSQL = "SELECT Price, Quantity, Price * Quantity as Total FROM YourTableName"

' تنفيذ الاستعلام وتخزين النتائج في مجموعة السجلات rs

rs.Open strSQL, cnn, adOpenStatic, adLockReadOnly

' ربط مصدر البيانات في تقرير DataReport بمجموعة السجلات rs

Set DataReport1.DataSource = rs

' عرض التقرير

DataReport1.Show

في تقرير Data report، قم بإضافة عناصر النص (Text) لعرض السعر والكمية والإجمالي. وقم بتعيين خاصية DataField لكل عنصر نص بالطريقة التالية:

لعرض السعر: قم بتعيين DataField إلى "Price".
لعرض الكمية: قم بتعيين DataField إلى "Quantity".
لعرض الإجمالي: قم بتعيين DataField إلى "Total".

بهذه الطريقة، ستظهر الأسعار والكميات والإجمالي في تقرير Data report بناءً على البيانات الموجودة في قاعدة البيانات الخاصة بك. لا تنسَ تعديل أسماء الجدول والأعمدة ومعلومات الاتصال بقاعدة البيانات حسب تطبيقك.