تقييم الموضوع :
  • 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 4 80 24-03-24, 02:00 AM
آخر رد: خالد كامل1
  مشكلة عند نقل البرنامج من فيجوال 2013 الى فيجوال 2017 strongriseman 5 148 12-03-24, 10:37 AM
آخر رد: strongriseman
  [VB.NET] تحديث بيانات فى كلاس من جدول سيكوال asdfar1977 6 184 26-02-24, 01:07 AM
آخر رد: asdfar1977
  الالوان في فيجوال بيسك atefkhalf2004 2 418 05-01-24, 04:38 PM
آخر رد: atefkhalf2004
  تحويل مشروع من c# الى فيجول بيسك Lathe1 4 718 05-01-24, 01:05 AM
آخر رد: HALIM ELEULMA
  [كود] اريد كود إرسال البيانات من الفيجوال بيسك إلىPDF issamsaidd 10 5,829 25-12-23, 06:30 PM
آخر رد: الحزين اليماني
  اضافة ادوات لفيجوال بيسك خالد20 10 1,976 18-12-23, 07:51 PM
آخر رد: ابراهيم عبدالباقى
  كيفية جعل من كتاب فيه هوامش ونص (قاعدة بيانات وواجهة فيجوال مثل الشاملة) ابو امجد 1 1,605 10-12-23, 12:53 PM
آخر رد: محمد بن عطية
Photo مشكلة مفاجئة كريستال مع فيجوال 2015 atefkhalf2004 2 367 04-11-23, 12:04 PM
آخر رد: atefkhalf2004
Smile تطبيقي يعمل تمام على ويندوز 10 قبل تحديث الوندوز وبعد التحديث لا يعمل رمضان محمد 2 382 31-10-23, 01:50 PM
آخر رد: رمضان محمد

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


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