منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب قسم لغة الفيجوال بيسك VB.NET قسم اسئلة VB.NET للخبراء اطلب منكم المساعدة في برنامج مصغر خاص بحساب عمولات
موضوع مغلق 
تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
ادوات الموضوع
للخبراء اطلب منكم المساعدة في برنامج مصغر خاص بحساب عمولات
moh61 غير متصل
عضو مبدع
المشاركات : 151
المواضيع 55
الإنتساب : Mar 2015
السمعة : 1
الشكر: 1501
تم شكره 266 مرات في 24 مشاركات
#21
07-09-15, 01:18 AM
ارجو منكم الرد والمساعدة ودزاكم الله الف خير على المرور و المساااعدة
البحث
}}}
تم الشكر بواسطة:
moh61 غير متصل
عضو مبدع
المشاركات : 151
المواضيع 55
الإنتساب : Mar 2015
السمعة : 1
الشكر: 1501
تم شكره 266 مرات في 24 مشاركات
#22
07-09-15, 05:08 AM
هل من ايجاد اكواد تساعد في ذلك ؟
البحث
}}}
تم الشكر بواسطة:
الطالب غير متصل
المتميزون
المشاركات : 237
المواضيع 9
الإنتساب : May 2015
السمعة : 43
الشكر: 3579
تم شكره 2753 مرات في 170 مشاركات
#23
07-09-15, 06:27 AM
سلام


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

كود :
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 ك ب / التحميلات : 38)
متغيب
البحث
}}}
تم الشكر بواسطة:
أبو عمر غير متصل
عضو نشيط
*
المشاركات : 1,379
المواضيع 83
الإنتساب : Sep 2012
السمعة : 217
الشكر: 10399
تم شكره 17814 مرات في 844 مشاركات

الخوارزمية
#24
07-09-15, 10:09 AM (آخر تعديل لهذه المشاركة : 07-09-15, 10:09 AM {2} بواسطة أبو عمر.)
حتى اللي يشتي برنامج ما يسوي كذا
ولا يلقى خدمة بالشكل ذا


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

صاحب الموضوع
بسألك انت جربت تستخدم الكي بورد في مشروعك؟
تراه سؤال بريء برضو
:$
سبحان الله والحمدلله ولا إله إلا الله والله أكبر
 اللهم اغْفِرْ لِلمؤمنين والمؤمنات والمسلمين والمسلمات الأحياء منهم والأموات
الموقع البحث
}}}
تم الشكر بواسطة: الطالب
moh61 غير متصل
عضو مبدع
المشاركات : 151
المواضيع 55
الإنتساب : Mar 2015
السمعة : 1
الشكر: 1501
تم شكره 266 مرات في 24 مشاركات
#25
07-09-15, 10:11 AM
الله يعطيك العافيه الاخ الطالب ............. عندي تعديل صغير بس ................. انا اضفت حقل جديد على الجدول report بمسمى date3 .... وابقى اضيفو في الكود نفس الشرط هذا ............"  (([data1],[data 2]) = 3 )  
بس يكون اضافي وهذا الشرط الجديد
([data1],[data 3]) = 3 )  

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

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

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

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


الملفات المرفقة صورة/صور
   
البحث
}}}
تم الشكر بواسطة: الطالب
الطالب غير متصل
المتميزون
المشاركات : 237
المواضيع 9
الإنتساب : May 2015
السمعة : 43
الشكر: 3579
تم شكره 2753 مرات في 170 مشاركات
#26
07-09-15, 11:25 AM
سلام


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


موفقين
متغيب
البحث
}}}
تم الشكر بواسطة:
moh61 غير متصل
عضو مبدع
المشاركات : 151
المواضيع 55
الإنتساب : Mar 2015
السمعة : 1
الشكر: 1501
تم شكره 266 مرات في 24 مشاركات
#27
07-09-15, 10:42 PM
مشكور جزاك الله خير ...................اذا حابب يظهر في حقل ال date التاريخ فقط بدون الساعه مع التاريخ ...............كيف يكون الكود اخي الطالب ؟؟؟؟
البحث
}}}
تم الشكر بواسطة: الطالب
moh61 غير متصل
عضو مبدع
المشاركات : 151
المواضيع 55
الإنتساب : Mar 2015
السمعة : 1
الشكر: 1501
تم شكره 266 مرات في 24 مشاركات
#28
08-09-15, 04:01 AM
كيف احفظ التاريخ فقط من غير زمن اخي الطالب
البحث
}}}
تم الشكر بواسطة: الطالب
الطالب غير متصل
المتميزون
المشاركات : 237
المواضيع 9
الإنتساب : May 2015
السمعة : 43
الشكر: 3579
تم شكره 2753 مرات في 170 مشاركات
#29
08-09-15, 06:20 AM
سلام


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


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


موفقين
متغيب
البحث
}}}
تم الشكر بواسطة: moh61
abulayth غير متصل
انا لله وانا اليه راجعون
المشاركات : 1,377
المواضيع 77
الإنتساب : Sep 2012
السمعة : 180
الشكر: 7880
تم شكره 14100 مرات في 905 مشاركات
#30
08-09-15, 06:28 AM (آخر تعديل لهذه المشاركة : 08-09-15, 06:29 AM {2} بواسطة abulayth.)
السلام عليكم

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

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

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

البحث
}}}
تم الشكر بواسطة: الطالب , moh61 , khodor1985
موضوع مغلق 


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Information [VB.NET] مطلوب سورس برنامج من سيربح المليون بدر إشتية 7 6,718 30-11-25, 07:22 AM
آخر رد: Mr_limo
  برنامج نظام محل مواد غذائية crazykinko 0 154 17-10-25, 12:27 AM
آخر رد: crazykinko
  جهاز ارسال رسائل SMS من خلال برنامج فيجوال بيسك جيولوجي مبتدئ 4 1,017 05-09-25, 12:37 PM
آخر رد: جيولوجي مبتدئ
  استفسار عن حامية برنامج ahmedramy 2 578 27-04-25, 06:02 PM
آخر رد: princelovelorn
Lightbulb [مشروع] مطلوب برنامج نظام صيدليه بالفيجوال بيسك 2010 May-5 13 10,775 07-02-25, 07:55 PM
آخر رد: الورد2
Question [VB.NET] هناك سؤال يهم كل مبرمج الماذا برنامجك يظهر على بعض الشاشات اكثر دقه بشكل مصغر ومشوه Microformt 0 448 01-02-25, 03:48 PM
آخر رد: Microformt
  برنامج الفيجول استوديو 2010 لا يتجاوب مع التحديثات التي اجريها عليه في برمجة البرامج PeterGhattas082460 1 421 14-12-24, 01:16 AM
آخر رد: Taha Okla
  خطأ في برنامج بلغة البايثون ahlamalgomate2020 0 282 08-11-24, 11:31 PM
آخر رد: ahlamalgomate2020
  مساعدة فى حفظ مشروع برنامج الى ضيغة apk م / وليد تيتو 1 372 03-11-24, 05:27 PM
آخر رد: Taha Okla
  أريد كود عند الضغط على الصورة في PictureBox تفتح في برنامج الصور في الويندوز F.H.M 6 629 25-10-24, 01:57 PM
آخر رد: F.H.M

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


يقوم بقرائة الموضوع: