تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
للخبراء اطلب منكم المساعدة في برنامج مصغر خاص بحساب عمولات
#21
ارجو منكم الرد والمساعدة ودزاكم الله الف خير على المرور و المساااعدة
}}}
تم الشكر بواسطة:
#22
هل من ايجاد اكواد تساعد في ذلك ؟
}}}
تم الشكر بواسطة:
#23
سلام


بقي مسالت الحفظ، الله يعينك اجتهد فيها، فان لم تستطع فالاخوه موجودون،

كود :
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]             "


الملفات المرفقة
.rar   WindowsApplication1.rar (الحجم : 42.58 ك ب / التحميلات : 34)
متغيب
}}}
تم الشكر بواسطة:
#24
حتى اللي يشتي برنامج ما يسوي كذا
ولا يلقى خدمة بالشكل ذا


صحيح ناس تبذل تبذل لا تريد لا جزاء ولا شكورا
الاستاذ الطلب اكيد تحتاج فترة نقاهة :-)
الاستاذ خضر اتوقع باقي نشيط Smile

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

تراه سؤال بريء برضو
:$
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
}}}
تم الشكر بواسطة: الطالب
#25
الله يعطيك العافيه الاخ الطالب ............. عندي تعديل صغير بس ................. انا اضفت حقل جديد على الجدول report بمسمى date3 .... وابقى اضيفو في الكود نفس الشرط هذا ............"  (([data1],[data 2]) = 3 )  
بس يكون اضافي وهذا الشرط الجديد
([data1],[data 3]) = 3 )  

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

كيف يكون الكود كذلك ؟؟؟

     ([data1],[data 3]) = 2 )    &     (([data1],[data 3]) = 3 )

ويرجى من باقي الاخوان المساعدة بكود الحفظ للبيانات المجمودة في form2 >>>>> على SaveDataGridView بمجرد الضغط على ذر حفظ وجزيتم خيرا ووفقكم الله


الملفات المرفقة صورة/صور
   
}}}
تم الشكر بواسطة: الطالب
#26
سلام


تاكد من المسافه في اسماء الحقول، والافضل عدم وجود مسافات، مثل ما لاحظتها عندك في 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]             " &
   "                                                   "


موفقين
متغيب
}}}
تم الشكر بواسطة:
#27
مشكور جزاك الله خير ...................اذا حابب يظهر في حقل ال date التاريخ فقط بدون الساعه مع التاريخ ...............كيف يكون الكود اخي الطالب ؟؟؟؟
}}}
تم الشكر بواسطة: الطالب
#28
كيف احفظ التاريخ فقط من غير زمن اخي الطالب
}}}
تم الشكر بواسطة: الطالب
#29
سلام


ممكن تعدل خاصائص العمود date،
تروح للخاصيه DefaultCellStyle ومن داخلها تروح للخاصيه Format وتضع فيه حرف d الصغير طبعا ومعناه Short Date


او عن طريق الكود،
تضع هذا السطر قبل عرض الفورم الثاني يعني قبل Form2.Show واذا تريد تضعه في حدث تحميل الفورم Form2_Load ضعه من غير كلمت Form2
وتاكد من رقم ترتيبه (والترتيب يبدا بالصفر وليس واحد يعني 5 معناه سادس عمود)
كود :
Form2.SaveDataGridView.Columns(5).DefaultCellStyle.Format = "d"


موفقين
متغيب
}}}
تم الشكر بواسطة: moh61
#30
السلام عليكم

اشكر كل من ساهم في هذا الموضوع

الرجاء وضع الاستفسارات الجديدة في مواضيع جديدة لكي تعم الفائدة على الجميع

يعطيكم العافية
(( يَا أَيَّتُهَا النَّفْسُ الْمُطْمَئِنَّةُ ارْجِعِي إِلَى رَبِّكِ رَاضِيَةً مَرْضِيَّةً فَادْخُلِي فِي عِبَادِي وَادْخُلِي جَنَّتِي ))

}}}
تم الشكر بواسطة: الطالب , moh61 , khodor1985


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

التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم