تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
تحديث أوتوماتيكي لمواقيت عمل الموظفين - فيجوال بيسك
#1
Information 
السلام عليكم أعضاء منتدى فيجوال بيسك لكل العرب

عندي سؤال لو تكرمتم علي بالاجابة عنه

يوجد 3 موظفين يعملون بمواقيت مختلفة كالتالي 

1 - الاول يعمل صباحا لمدة اسبوع 
2 - التاني يعمل ليلا لمدة اسبوع
3- الثالت في عطلة لمدة اسبوع
 
ملاحظة :
 انا اتكلم هنا عن نفس الاسبوع 
 
الاسبوع القادم يتبادلون الأدوار : 
يعني الأول يعمل مكان التاني و التاني يجلس مكان الثالث و الثالت يعمل مكان الاول

السؤال : 
هل يوجد شرح أو خاصية في الفيجوال بيسك يمكن أن اعمل بها برنامج يعطيني هدا الترتيب اوتوماتيكيا على مدار السنة 

و شكرا لكم .
الرد
تم الشكر بواسطة:
#2
وعليكم السلام ورحمة الله وبركاته

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

لنقول لديك قاعدة بيانات تحتوى على جدول ورديات الموظفين مثلاً

وتحتوى على رقم الموظف و الوردية
حتى الان جميل ولا يوجد مشكلة

طيب ناتى الان لعمل شاشة تحديث الوردية
والشاشة دى يمكنك عمل اعدادات لها مثلاً امكانية استخدام الشاشة يوم الخميس فقط
او باصح نهاية الاسبوع بنهاية العمل 

والشاشة تكون وظيفتها بعمل استعلام جلب جميع البيانات بجدول الورديات
ولنقول ان قيمة الاستعلام تم جلبها فى DT والمقصود بها DataTable

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

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

نستكمل الشرح الان بعد ما قمنا بعمل كود الاستعلام داخل الـ Button

وبنفس الـ Button واسفل كود الاستعلام سيتم تطبيق الكود التالى
كود :
       Dim xWardia As String = Nothing
       For ii As Integer = 0 To DT.Rows.Count - 1
           If DT(ii)("alwardia") = "صباحا" Then
               xWardia = "ليلا"
           ElseIf DT(ii)("alwardia") = "ليلا" Then
               xWardia = "عطلة"
           ElseIf DT(ii)("alwardia") = "عطلة" Then
               xWardia = "صباحا"
           End If

           REM بدلاً من السطر ده طبق كود تحديث البيانات / تعديل البيانات بقاعدة البيانات
           REM واللى هو سيكون بالشكل التالى
           ' "UPDATE alwardayaTB SET alwardia = '" & xWardia & "' WHERE idMwazaf = " & DT(ii)("idMwazaf")
       Next

اتمنى ان يكون الكود بسيط وموضح ما ستقوم بفعله تماماً

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
#3
شكرا جزيلا أخي 
أنا أريد برمجته بنفسي و أنا مبتدا بالفيجوال بيسك
الرد
تم الشكر بواسطة: elgokr
#4
الشكر لله والحمد لله
والحمد لله على كل حال

لا عليك اخى حاول الاطلاع على اكثر من دورة
ولا يلزم ان تكون تطابق الدورة لما تريده ولكن حتى تصل لك الفكرة

واتمنى ان هذه الدورة تفيدك ايضاً

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة: medel12 , medel12 , معاذ_ابراهيم
#5
شكرا لك سأتابعها بإذن الله
الرد
تم الشكر بواسطة: elgokr , معاذ_ابراهيم
#6
الشكر لله وبالتوفيق ان شاء الله

تحياتى لك
وتمنياتى لك التوفيق
{ وَقُل رَّبِّ زِدْنِي عِلْمًا }
[ كن على يقين من اعمالنا نخطئ ومن اخطائنا نتعلم ولذلك لا شي مستحيل ]

ساهم دائماً فى تقديم   لكل من يقوم بالمساهمة
فى حل اى مشكلة او استفسار لديك مع اضافة رد بشكره ودعوة له
فالجميع هنا يعمل على مساعدة الاخرين لوجه الله وان تحتسب له اجر عند الله
الرد
تم الشكر بواسطة: معاذ_ابراهيم , medel12 , medel12
#7
نورت اخي الفاضل
الرد
تم الشكر بواسطة: elgokr


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  مشكله فى حفظ قاعده بيانات اكسس فى مشروع فيجوال بيزك مع تلك القاعده خالد كامل1 2 27 منذ 6 ساعة مضت
آخر رد: خالد كامل1
  مطلوب شرح اضافة اداة فى الفيجول بيسك Mohamed Magdy 8 194 05-10-18, 12:26 AM
آخر رد: elgokr
  [سؤال] مساعدة في كود تحديث برنامج ScreamVoice 9 143 03-10-18, 02:48 PM
آخر رد: ScreamVoice
  محتاج اعرف اذاى اشفر برنامج فيجول بيسك naderalkeng54 1 75 23-09-18, 09:35 PM
آخر رد: elgokr
  محتاج لنك فيجول بيسك 2013 رابط مباشر naderalkeng54 4 102 21-09-18, 11:08 PM
آخر رد: essawq
  [سؤال] مشكلة فى اضافة اداة vlc فى الفجول بيسك 2010 naderalkeng54 1 62 21-09-18, 08:12 PM
آخر رد: aljzazy
  فكرة مشروع بالفيجوال بيسك وقاعده بيانات اكسس ارجو المساعده خالد كامل1 3 190 18-09-18, 01:34 PM
آخر رد: elgokr
  [VB.NET] مساعده في تفعيل سلفر اكسيس مع الفجيوال بيسك hayitham 6 147 18-09-18, 11:28 AM
آخر رد: elgokr
  [سؤال] استفسار عن فيجوال ستديو اصدار 2015 essawq 15 377 15-09-18, 05:36 PM
آخر رد: essawq
  طلب مساعدة في عدم تحديث البيانات في الداتا جريد فيو عند الضغط على زر تعديل essawq 9 232 05-09-18, 11:22 PM
آخر رد: essawq

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


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