[medel12]

السلام عليكم أعضاء منتدى فيجوال بيسك لكل العرب

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

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

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

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

و شكرا لكم .

[elgokr]

وعليكم السلام ورحمة الله وبركاته

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

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

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

وتحتوى على رقم الموظف و الوردية

حتى الان جميل ولا يوجد مشكلة

طيب ناتى الان لعمل شاشة تحديث الوردية

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

او باصح نهاية الاسبوع بنهاية العمل 

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

ولنقول ان قيمة الاستعلام تم جلبها فى 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

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

تحياتى لك

وتمنياتى لك التوفيق

[medel12]

شكرا جزيلا أخي 
أنا أريد برمجته بنفسي و أنا مبتدا بالفيجوال بيسك

[elgokr]

الشكر لله والحمد لله

والحمد لله على كل حال

لا عليك اخى حاول الاطلاع على اكثر من دورة

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

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

https://www.youtube.com/playlist?list=PL...k9ESbdD_ap

تحياتى لك

وتمنياتى لك التوفيق

[medel12]

شكرا لك سأتابعها بإذن الله

[elgokr]

الشكر لله وبالتوفيق ان شاء الله

تحياتى لك

وتمنياتى لك التوفيق

[medel12]

نورت اخي الفاضل