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

مشروع يستخدم قاعدة بيانات بحاجة الى اكمال

بدأه abudawoodd في 11 فبراير 2010 · 4 رد · 713 مشاهدة · في لغة Ms Visual Basic 6 وما قبلها من إصدارات
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم

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

الفكرة هي انه محل يبيع ويشتري في آن واحد

لقد بسطت قاعدة البينات ما امكن لتسهيل ايصال الفكرة

اريد

1- فرز السجلات المطلوبة

2- فرز السجلات الطالبة

3- فرز السجلات الغير مذمومة

وفي كل عملية فرز يضيف الارقام من جدول الهوية للسجلات التي ينطبق عليها شرط القرز الى جدول الرقم

ارجو اضافة الاكواد المناسبة

ولكم فائق الاحترام والتقدير

ملاحظة قاعدة البينات 2007

VB.rar

تم تعديل هذه المشاركة بواسطة abudawoodd في 11 فبراير 2010 في 12:34

#2

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

ما فهمته انك تريد بناء استعلام على جدول بالإعتماد على بيانات استعلام من جدول اخر ,

انا حاولت ان انفذ هذا على مثالك لكني تُهت في الاسماء العربي :wacko: فكان الإستعلام يتشقلب ولا اعرف اوله من آخره

على العموم سأطبق الإستعلام على مثال بيسط وانت حاول تطبيقه على مثالك , ويفضل لو استخدمت مسميات انجليزية للحقول لتفادي الأخطاء

المثال :

نفرض ان عندنا ثلاث جداول كالتالي :

(1)TB1 - جدول بيانات العميل وما يهمنا منه الحقول التالية :

1- ID ( كود العميل ) - ( ترقيم تلقائي )

2- Name ( اسم العميل )

(2) TB2 - جدول يسجل به ما اخذه العميل من بضاعة - مثلاً - وقيمتها , وما يهمنا منه الحقول التالية :

1- ID ( كود العميل ) - ( وهذا هو الحقل الغريب الذي اخذناه من جدول بيانات العميل ليدل كل رقم على عميل معين نستعلم عنه لمعرفة بياناته او باقي تعاملاته , وهذا الحقل لا يكون ترقيم تلقائي ).

2- Price ( سعر السلعة او البضاعة )

(3) TB3 - جدول يسجل به ما دفعه من نقود لصالح البضاعة المأخوذة , وما يهمنا منه الحقول التالية :

1- ID ( كود العميل ) - ( مثل الجدول السابق )

2- Paid ( المدفوع )

----------------------------------------------------

إذاً نحن نريد عمل استعلام لتصفية الجدول كالآتي :

1- العملاء الذي يتساوى عندهم مجموع المدفوع مع مجموع قيمة البضاعة

2- العملاء الذي يكون مجموع المُستحق من البضاعة المأخوذة اكبر من المدفوع

3- العملاء الذي يكون مجموع المدفوع عندهم اكبر من المُستحق من البضاعة المأخوذة

والإستعلام التالي يقوم بالمطلوب الاول :

Select * From TB1 Where (Select Sum(Price) From TB2 Where TB2.ID=TB1.ID) = ( Select Sum(Paid) From TB3 Where TB3.ID=TB1.ID)

ويمكن تنفيذ باقي الإستعلامات بتغير علامة يساوي الى اكبر من او اصغر من حسب المطلوب

------------------------------------------------------------------

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

وبالتوفيق ,,,

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

#3

الف شكر لك أخي محمد

لكن ليس هذا المطلوب

يوجد ثلاث جداول كما ذكرت

الجدول الأول كما ذكرت تماماً

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

وفي الجدول الثالث هناك حقل دفعات آخر وهو مواد تقدر بقيمة وليس دفعات نقدية

يرجى اضافة الاكواد إلى المشروع ولك فائق الاحترام والتقدير

#4

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

أخي لقد جربت وعدلت الكود فعمل بشكل ممتاز

االف شكر لك فأنت اعطيتني ابسط كود لهذه الغاية

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

لكن هذا الكود هو ابسط كود ويعطي نتائج ممتازة

الف شكر لك ووفقك الله لكل خير

تم تعديل هذه المشاركة بواسطة abudawoodd في 14 فبراير 2010 في 10:29

#5

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

It does not matter what they know about you, but what you can do, so let your work speak of you

mmghv VB6 Programmer

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

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

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

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

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