+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : تحديث أوتوماتيكي لمواقيت عمل الموظفين - فيجوال بيسك (/showthread.php?tid=26610)
تحديث أوتوماتيكي لمواقيت عمل الموظفين - فيجوال بيسك - medel12 - 23-09-18
السلام عليكم أعضاء منتدى فيجوال بيسك لكل العرب
عندي سؤال لو تكرمتم علي بالاجابة عنه
يوجد 3 موظفين يعملون بمواقيت مختلفة كالتالي
1 - الاول يعمل صباحا لمدة اسبوع
2 - التاني يعمل ليلا لمدة اسبوع
3- الثالت في عطلة لمدة اسبوع
ملاحظة :
انا اتكلم هنا عن نفس الاسبوع
الاسبوع القادم يتبادلون الأدوار :
يعني الأول يعمل مكان التاني و التاني يجلس مكان الثالث و الثالت يعمل مكان الاول
السؤال :
هل يوجد شرح أو خاصية في الفيجوال بيسك يمكن أن اعمل بها برنامج يعطيني هدا الترتيب اوتوماتيكيا على مدار السنة
و شكرا لكم .
RE: تحديث أوتوماتيكي لمواقيت عمل الموظفين - فيجوال بيسك - elgokr - 23-09-18
وعليكم السلام ورحمة الله وبركاته
هى ليس خصة بال ستعتمد على طريقة
والطريقة تتوقف على ما لديك من بيانات
لنقول لديك قاعدة بيانات تحتوى على جدول ورديات الموظفين مثلاً
وتحتوى على رقم الموظف و الوردية
حتى الان جميل ولا يوجد مشكلة
طيب ناتى الان لعمل شاشة تحديث الوردية
والشاشة دى يمكنك عمل اعدادات لها مثلاً امكانية استخدام الشاشة يوم الخميس فقط
او باصح نهاية الاسبوع بنهاية العمل
والشاشة تكون وظيفتها بعمل استعلام جلب جميع البيانات بجدول الورديات
ولنقول ان قيمة الاستعلام تم جلبها فى 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اتمنى ان يكون الكود بسيط وموضح ما ستقوم بفعله تماماً
تحياتى لك
وتمنياتى لك التوفيق
RE: تحديث أوتوماتيكي لمواقيت عمل الموظفين - فيجوال بيسك - medel12 - 24-09-18
شكرا جزيلا أخي
أنا أريد برمجته بنفسي و أنا مبتدا بالفيجوال بيسك
RE: تحديث أوتوماتيكي لمواقيت عمل الموظفين - فيجوال بيسك - elgokr - 25-09-18
الشكر لله والحمد لله
والحمد لله على كل حال
لا عليك اخى حاول الاطلاع على اكثر من دورة
ولا يلزم ان تكون تطابق الدورة لما تريده ولكن حتى تصل لك الفكرة
واتمنى ان هذه الدورة تفيدك ايضاً
تحياتى لك
وتمنياتى لك التوفيق
RE: تحديث أوتوماتيكي لمواقيت عمل الموظفين - فيجوال بيسك - medel12 - 25-09-18
شكرا لك سأتابعها بإذن الله
RE: تحديث أوتوماتيكي لمواقيت عمل الموظفين - فيجوال بيسك - elgokr - 25-09-18
الشكر لله وبالتوفيق ان شاء الله
تحياتى لك
وتمنياتى لك التوفيق
RE: تحديث أوتوماتيكي لمواقيت عمل الموظفين - فيجوال بيسك - medel12 - 28-09-18
نورت اخي الفاضل