تقييم الموضوع :
  • 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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اعدادات الفورم في فيجوال نت 2010 onejan1977 2 54 17-01-21, 09:01 AM
آخر رد: moosa_alabri
  اريد تحميل فيجوال بيسك 2017 اللورد محمود 5 909 03-01-21, 11:49 PM
آخر رد: سلام و محبه
  [كود] ممكن كود فيجوال بيسك نقل ملف من ريسورس الى مستندات jam3h 3 194 23-12-20, 11:56 AM
آخر رد: Ngm
  عمل كود لاسم المستخدم وكلمه المرور وتغير كلمه المرور فيجوال بيسك وربطها بقاعدة sql khowla.goma 2 423 20-12-20, 12:32 AM
آخر رد: khowla.goma
  تصدير بيانات من برنامج بالفيجوال بيسك الى ال EXCEL mohammed_abdu 1 230 16-12-20, 02:29 PM
آخر رد: nrkarat
Big Grin [سؤال] مشروع الفيجوال بيسك ستوديو sad89891 3 403 11-12-20, 09:46 AM
آخر رد: Anas Mahmoud
  محتاج مساعدة بكود فتح الأكسس من الفجول بيسك أبو عبدالله الحلواني 5 277 07-12-20, 12:55 AM
آخر رد: أبو عبدالله الحلواني
  دمج بين حقلين ودمج بين تيكست بالفجيوال بيسك sherf 1 147 01-12-20, 03:51 AM
آخر رد: Anas Mahmoud
Photo [VB.NET] مشكلة عند ربط اكسس به دوال اجرائية بالفيجوال بيسك هيثم_هيثم 4 478 24-11-20, 03:01 PM
آخر رد: هيثم_هيثم
  [VB.NET] اريد افكار لكيفية عرض افلام او مسلسلات دون تحديث للبرنامج ميدو الفنان 2 241 23-11-20, 04:01 PM
آخر رد: ميدو الفنان

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


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