دخول

**moh61**

مشكورين شباب ...............

ياريت لو تفيدوني بتعديل المشروع بهذا الشكل تما ارفاااق ملف المشروع بعد التعديل

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

1 / اذا تكرر الرقم داخل العمود code اكثر من او يساوي 4 مرات .
2/اذا كان المجموع الخاص بالكود اكبر من او يساوي ال 500 داخل العمود total .
3/اذا كان الفرق بين العمود date1 و date2 3 ايام .

تحسب عموله خاصه من العمود total وتكون بالشروط التاليه وسوف يكون لها حق خاص جديد بأسم total2 ب datagridviwe2 وهاذه العمولة الخاصه بالشكل هذا :
"VAL([number])>=" & 1 & " AND VAL([number])<=" & 10 & ", " & 500 & "," &
"VAL([number])>=" & 11 & " AND VAL([number])<=" & 20 & "," & 700 & "," &
"VAL([number])>=" & 21 & " and VAL([number])<=" & 30 & ", " & 1000 &

اذا تحققت الشرووووووووط اعلاه يتم عرض البيانات في datagridviwe2 ..... بالحقول التاليه كما هو مبين بالصورة

1 / رقم الكود ومن ثم
2 / عدد مرات التكرار في العمود code
3/ المجموع الكلي الخاص بالكود داخل العمود total .
4/ المجموع الخااص اسنادا للقيم السابقه (total2)

الملف المرفق التالي

**الطالب** · 06-09-15, 05:29 AM

سلام

بناء على الملف المرفق

كود :

Dim sql As String = " SELECT [code],                                        " &

                    "        COUNT([code]) As [count],                      " &

                    "        SUM([total]) As [total1],                      " &

                    "        SUM(SWITCH(VAL([total])>=" & 100 & " AND VAL([total])<=" & 200 & "," & 500 & "," &

                    "                   VAL([total])>=" & 201 & " AND VAL([total])<=" & 300 & "," & 700 & "," &

                    "                   VAL([total])>=" & 301 & " AND VAL([total])<=" & 400 & "," & 1000 & "," &

                    "                   VAL([total])>=" & 401 & " AND VAL([total])<=" & 500 & "," & 2000 &

                    "        )) AS [total2]                                 " &

                    "                                                       " &

                    " FROM [Reports]                                        " &

                    "                                                       " &

                    " WHERE (DATEDIFF('d',[data1],[data 2]) >= 3 )          " &

                    "                                                       " &

                    " GROUP BY [code]                                       " &

                    "                                                       " &

                    " HAVING (SUM([total]) > 500) AND (COUNT([code]) >= 4)  "

موفقين

***أبو عمر*** · 06-09-15, 01:47 PM

SQL
تسوي البدع

**moh61**

مشكورين اخواني الكرااااام ............... اخي الطالب وفقا للكود لم تظهر معي مخرجات في عند التنفيذ في ال data gridviwe2 ..... وجزيت خيرا ان شاء الله ماهو الحل او ايش سبب المشكله يرجى رفع المشروع بعد التعديل

**moh61** · 06-09-15, 07:39 PM

ونحن في انتظاركم جزيتو خيرا ووفقكم الله

**الطالب** · 06-09-15, 07:42 PM

سلام

انا طبقت على اخر ملف مرفق منك زالنتيجه ظهرت

موفقين

**moh61**

بارك الله فيك ياطالب مجهود رائع منك مزيدا من التقدم انت و اخي khodor1985 ............. بس باقي شرط واحد ماتحقق معي الي هو الفرق بين التاريخين 3 يام فقط لاحظ معي الصورة الفرق بين التاريخ الاول والثاني 19 يوم ودخل الحسبة المفروض هذا الحقل يعتبر ملغي نهائي وتحسب باقي الحقوووول فقط يعني المفرروض تطلع معي النتائج كما هي في الصورة على datagridviwe2 او اصلا المفروض اصلا ماتظهر معي نتاااااااائج بالمرة لانو الحين صار مرات التكرار 3 مرات فقط باعتبار ال 4 ملغيه لانو في فرق اكثر من 3 ايام في الحقلين يعني المفترض يعتبر رقم 1 كلو ملغي نهائيا ويصير البرنامج يراجع في ارقام اخرى ...... انا بس سويت ليك النتائج على datagridviwe2 على سبيل المثال فقط بس المفروض ماتطلع نتائج لانو عندي الرقم 1 تكرر اكثر من او يساوي 4 مرات نجـــــــــــــــــد هنا تحقق الشرط ونجد ان الشرط اختل في حالة صااارت عدد الحقول 3 فقط بسبب انو في حقل في فرق اكثر من 3 ايام بينه وبين التاريخين .... يعني المفترض رقم 1 مايكون له نتائج نهائيا على الداتا جيردفيو 2 ..... اتمنى الصورة او شرح يكون وضح وجزيت خيرا في الدااارين اخي وحبيبي الطالب .

**الطالب** · 06-09-15, 10:28 PM

سلام

اعتذر عن الخطا، فقد اعتقدت انك تقصد ان فارق الايام 3 او اكثر، الان حذفت < من مقارنه فارق التاريخين

الان بناء على التواريخ اللتي في الصوره الاخير يحصل قولك (او اصلا المفروض اصلا ماتظهر معي نتاااااااائج بالمرة)

كود :

Dim sql As String = " SELECT [code],                                        " &

                    "        COUNT([code]) As [count],                      " &

                    "        SUM([total]) As [total1],                      " &

                    "        SUM(SWITCH(VAL([total])>=" & 100 & " AND VAL([total])<=" & 200 & "," & 500 & "," &

                    "                   VAL([total])>=" & 201 & " AND VAL([total])<=" & 300 & "," & 700 & "," &

                    "                   VAL([total])>=" & 301 & " AND VAL([total])<=" & 400 & "," & 1000 & "," &

                    "                   VAL([total])>=" & 401 & " AND VAL([total])<=" & 500 & "," & 2000 &

                    "        )) AS [total2]                                 " &

                    "                                                       " &

                    " FROM [Reports]                                        " &

                    "                                                       " &

                    " WHERE (DATEDIFF('d',[data1],[data 2]) = 3 )           " &

                    "                                                       " &

                    " GROUP BY [code]                                       " &

                    "                                                       " &

                    " HAVING (SUM([total]) > 500 )                          " &

                    "    AND (COUNT([code]) >= 4 )                          "

موفقين

**الطالب** · 06-09-15, 11:38 PM

سلام

ما شاء الله اخ خضر

النتائج في طريقتك مطابقه لما اراد اخونا

موفقين

**moh61**

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

1 - اضافه صف في datagridviwe2 تلقائيا مع كل حقل جديد راح يجي على ال datagridviwe2 راح يكون التاريخ بتاريخ فتح البرنامج يعني مثلا اليوم 6/9/2015 يضيف لي على طول تاريخ اليوم الي انفتح عليه البرنامج يعني بالدارجي تاريخ اليوم ......

2/ ياخذ لي الاسم من جدول جديد بمسى table1 انا اضفتو من في الداتا بيز موجود عليه 3 حقول ....... القسم والاسم و الكود المفروض كل مايجي رقم كود على الداتا جيرد فيو 2 ياخذ من الجدول هذا الحقلين ..........القسم ...........و..........الاسم ........... على حسب رقم الكود الي راح يظهر في الداتا جيرد فيو 2 وانا موضح الشرح بصورة اعمق في الصور عندكم .
3 / الشيئ الاخير يتم عرض البيانات الموجوده في الداتا جيرد فيو 2 الى ............form 2...... علما بأنه تم ربط form2 بجدول موجود الحين ومربوط مع نفس قاعدة البيانات بأسم save................... يعني المفروض لمن اضغط على ذر التالي في فورم1 تظهر معي اليبيانات الموجودة في datagridviwe2 الى form2 ...... savedatagridviwes2 >>>> , ومن ثم عند الظغط على ذر حفظ تنحفظ عندي البيانات مباشرة بقاعدة البيانات في الجدول save ....... تم ارفاق المشروووع جاهز باقي ال 3 تعديلات هاذي بس ..... افضل الاكواد تكون منفصلة من ال button المسمى بالاسم عرض ..... وجزاكم الله الف خير انتظر منكم الرد ويعطيكم الف عافيه

(06-09-15, 11:13 PM)khodor1985 كتب : شكرا لك أخي العزيز طالب على هذا المجهود الرائع، كما أشكر أيضا الأخ moh61 على هذه المشاركة فقد تعلمت منها الكثير.

تفضل أخي العزيز لقد أضفت بعض التعديلات على المشروع :

أشكركم جميعا

الله يعطيك الف عافية ما شاء الله اخ خضر شغل اكثر من رائع جزيتو خيرا جميعااااااا اخواني الكرام ماقصرتو والله معي الله يوفقكم

دخول
إسم المستخدم
كلمة المرور :	فقدت كلمة المرور ؟
	تذكرني بالمرة القادمة

المواضيع المحتمل أن تكون متشابهة .
الموضوع :		الكاتب	الردود :	المشاهدات :	آخر رد
	[سؤال] أتمنى اجابة وافية:عمل برنامج بقاعدة بيانات SQL دون حاجة تثبيت SQLSERVER	dr.programming	6	656	19-03-24, 08:56 AM آخر رد: سلامه محمد11
	[VB.NET] كيف يمكنني استظافة سوفت وير برنامج ادارة جهاز السي بي سي في المختبر الى برنامجي	الحزين اليماني	2	289	15-01-24, 10:39 PM آخر رد: الحزين اليماني
	ارجو المساعدة فى شاشة طباعة الباركود	new_programer	10	583	09-01-24, 08:41 PM آخر رد: new_programer
	برنامج لحفظ اكوادي	samsunggears	2	401	05-01-24, 12:57 AM آخر رد: HALIM ELEULMA
	المساعدة - في تفعيل نسخة VB 2015	emamtron2014	2	5,116	24-12-23, 05:08 AM آخر رد: laban
	[نقاش] أساتذتنا مشرفى المنتدى المساعدة و الدعم فى Telerik	dr.programming	6	387	21-12-23, 12:29 AM آخر رد: dr.programming
	انشاء واجهات برنامج شؤون الموظفين والرواتب	شمسـ لا تغيب	5	12,883	27-09-23, 10:05 PM آخر رد: melad2002
	مطلوب برنامج لحوافظ المالية	الاسطورة1	2	457	27-09-23, 09:12 PM آخر رد: melad2002
	تشغيل برنامج خارجي ضمن شاشة برنامجي	strongriseman	1	375	13-09-23, 10:14 PM آخر رد: anes
	[SQL] يوجد لدى خطأبرمجى ارجو المساعدة	عاصم النجار	6	507	26-07-23, 05:22 PM آخر رد: عبد الخالق