منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب - تحديث أوتوماتيكي لمواقيت عمل الموظفين

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

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

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

1 - الاول يعمل صباحا لمدة اسبوع
2 - التاني يعمل ليلا لمدة اسبوع
3- الثالت في عطلة لمدة اسبوع

ملاحظة :
انا اتكلم هنا عن نفس الاسبوع

الاسبوع القادم يتبادلون الأدوار :
يعني الأول يعمل مكان التاني و التاني يجلس مكان الثالث و الثالت يعمل مكان الاول

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

و شكرا لكم .

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

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

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

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

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

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

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

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

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

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

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

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

تحياتى لك

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

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

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

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

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

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

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

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

تحياتى لك

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

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

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

تحياتى لك

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

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

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

medel12

elgokr

medel12

elgokr

medel12

elgokr

medel12