+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : للخبراء اطلب منكم المساعدة في برنامج مصغر خاص بحساب عمولات (/showthread.php?tid=13126)
RE: للخبراء اطلب منكم المساعدة في برنامج مصغر خاص بحساب عمولات - moh61 - 07-09-15
ارجو منكم الرد والمساعدة ودزاكم الله الف خير على المرور و المساااعدة
RE: للخبراء اطلب منكم المساعدة في برنامج مصغر خاص بحساب عمولات - moh61 - 07-09-15
هل من ايجاد اكواد تساعد في ذلك ؟
RE: للخبراء اطلب منكم المساعدة في برنامج مصغر خاص بحساب عمولات - الطالب - 07-09-15
سلام
بقي مسالت الحفظ، الله يعينك اجتهد فيها، فان لم تستطع فالاخوه موجودون،
كود :
Dim sql As String =
" SELECT [Reports].[code] AS [code], " &
" [table1].[name] AS [name], " &
" [Reports].[count] AS [count], " &
" [Reports].[total1] AS [total1], " &
" [Reports].[total2] AS [total2], " &
" NOW() AS [date], " &
" [table1].[department] AS [department] " &
" " &
" FROM [table1] " &
" " &
" INNER JOIN " &
" ( " &
" " &
" SELECT [Reports].[code] AS [code], " &
" COUNT([Reports].[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 [Reports].[code] " &
" " &
" HAVING (SUM([total]) >= 700 ) " &
" AND (COUNT([Reports].[code]) >= 4 ) " &
" " &
" ) AS [Reports] " &
" " &
" ON [Reports].[code] = [table1].[code] "RE: للخبراء اطلب منكم المساعدة في برنامج مصغر خاص بحساب عمولات - أبو عمر - 07-09-15
حتى اللي يشتي برنامج ما يسوي كذا
ولا يلقى خدمة بالشكل ذا
صحيح ناس تبذل تبذل لا تريد لا جزاء ولا شكورا
الاستاذ الطلب اكيد تحتاج فترة نقاهة :-)
الاستاذ خضر اتوقع باقي نشيط
صاحب الموضوع
بسألك انت جربت تستخدم الكي بورد في مشروعك؟
تراه سؤال بريء برضو
:$
RE: للخبراء اطلب منكم المساعدة في برنامج مصغر خاص بحساب عمولات - moh61 - 07-09-15
الله يعطيك العافيه الاخ الطالب ............. عندي تعديل صغير بس ................. انا اضفت حقل جديد على الجدول report بمسمى date3 .... وابقى اضيفو في الكود نفس الشرط هذا ............" (([data1],[data 2]) = 3 )
بس يكون اضافي وهذا الشرط الجديد
([data1],[data 3]) = 3 )
كيف اركب الشرط الجديد داخل الكود وجزاااااااك الله كل خير مع تمنياتي لك بالتوفيق .....
كيف يكون الكود كذلك ؟؟؟
([data1],[data 3]) = 2 ) & (([data1],[data 3]) = 3 )
ويرجى من باقي الاخوان المساعدة بكود الحفظ للبيانات المجمودة في form2 >>>>> على SaveDataGridView بمجرد الضغط على ذر حفظ وجزيتم خيرا ووفقكم الله
RE: للخبراء اطلب منكم المساعدة في برنامج مصغر خاص بحساب عمولات - الطالب - 07-09-15
سلام
تاكد من المسافه في اسماء الحقول، والافضل عدم وجود مسافات، مثل ما لاحظتها عندك في date 2 مع مراجهت الكود والتعديل من اجل التطابق
كود :
Dim sql As String =
" " &
" SELECT [Reports].[code] AS [code], " &
" [table1].[name] AS [name], " &
" [Reports].[count] AS [count], " &
" [Reports].[total1] AS [total1], " &
" [Reports].[total2] AS [total2], " &
" NOW() AS [date], " &
" [table1].[department] AS [department] " &
" " &
" FROM [table1] " &
" " &
" INNER JOIN " &
" ( " &
" SELECT [code] AS [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 ) " &
" AND (DATEDIFF('d',[data1],[data 3]) = 4 ) " &
" " &
" GROUP BY [code] " &
" " &
" HAVING (SUM([total]) >= 700 ) " &
" AND (COUNT([code]) >= 4 ) " &
" " &
" ) AS [Reports] " &
" " &
" ON [Reports].[code] = [table1].[code] " &
" "موفقين
RE: للخبراء اطلب منكم المساعدة في برنامج مصغر خاص بحساب عمولات - moh61 - 07-09-15
مشكور جزاك الله خير ...................اذا حابب يظهر في حقل ال date التاريخ فقط بدون الساعه مع التاريخ ...............كيف يكون الكود اخي الطالب ؟؟؟؟
RE: للخبراء اطلب منكم المساعدة في برنامج مصغر خاص بحساب عمولات - moh61 - 08-09-15
كيف احفظ التاريخ فقط من غير زمن اخي الطالب
RE: للخبراء اطلب منكم المساعدة في برنامج مصغر خاص بحساب عمولات - الطالب - 08-09-15
سلام
ممكن تعدل خاصائص العمود date،
تروح للخاصيه DefaultCellStyle ومن داخلها تروح للخاصيه Format وتضع فيه حرف d الصغير طبعا ومعناه Short Date
او عن طريق الكود،
تضع هذا السطر قبل عرض الفورم الثاني يعني قبل Form2.Show واذا تريد تضعه في حدث تحميل الفورم Form2_Load ضعه من غير كلمت Form2
وتاكد من رقم ترتيبه (والترتيب يبدا بالصفر وليس واحد يعني 5 معناه سادس عمود)
كود :
Form2.SaveDataGridView.Columns(5).DefaultCellStyle.Format = "d"موفقين
RE: للخبراء اطلب منكم المساعدة في برنامج مصغر خاص بحساب عمولات - abulayth - 08-09-15
السلام عليكم
اشكر كل من ساهم في هذا الموضوع
الرجاء وضع الاستفسارات الجديدة في مواضيع جديدة لكي تعم الفائدة على الجميع
يعطيكم العافية