تقييم الموضوع :
  • 1 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] المساعده في مثال تاريخ استحقاق الترقية
#1
Question 
السلام عليكم

امل المساعده في التعديل على المثال المرفق

المطلوب

يوجد تاريخ الترقية على الرتبة الحالية

ابي يحسب لي تاريخ استحقاق الترقية التي بعدها

بمدة سنتين او ثلاث او اربع او خمس حسب مدة الرتبه

امل المساعده

جزاكم الله الف خير

المثال مرفق
الرد }}}}
تم الشكر بواسطة:
#2
السلام عليكم

- أضف هذا الكود في كود المثال :

كود :
Private Sub Adodc1_WillMove(ByVal adReason As ADODB.EventReasonEnum, adStatus As ADODB.EventStatusEnum, ByVal pRecordset As ADODB.Recordset)

If (adReason = adRsnMoveFirst _
   Or adReason = adRsnMoveLast _
   Or adReason = adRsnMoveNext _
   Or adReason = adRsnMovePrevious) _
   And Trim$(Text2.Text) <> "" Then
  
   If Trim$(Combo1.Text) = "جندي" Then
      Text3.Text = DateAdd("yyyy", 2, CDate(Trim$(Text2.Text)))
      
   ElseIf Trim$(Combo1.Text) = "جندي أول" Then
      Text3.Text = DateAdd("yyyy", 2, CDate(Trim$(Text2.Text)))
  
   ElseIf Trim$(Combo1.Text) = "عريف" Then
      Text3.Text = DateAdd("yyyy", 2, CDate(Trim$(Text2.Text)))
  
   ElseIf Trim$(Combo1.Text) = "وكيل رقيب" Then
      Text3.Text = DateAdd("yyyy", 3, CDate(Trim$(Text2.Text)))
  
   ElseIf Trim$(Combo1.Text) = "رقيب" Then
      Text3.Text = DateAdd("yyyy", 4, CDate(Trim$(Text2.Text)))
  
   ElseIf Trim$(Combo1.Text) = "رقيب أول" Then
      Text3.Text = DateAdd("yyyy", 4, CDate(Trim$(Text2.Text)))
  
   ElseIf Trim$(Combo1.Text) = "رئيس رقباء" Then
      Text3.Text = DateAdd("yyyy", 5, CDate(Trim$(Text2.Text)))
  
   End If

End If

End Sub

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}}
تم الشكر بواسطة: allayl , محمد ئوزبك
#3
السلام عليكم اخي VB_Coder

تم وضع الكود لم يحدث شي امل التعديل على المثال
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم

- عند نسخ الكود ولصقه داخل كود المثال الذي أرفقته أنت ، قم بالتنقل أو تحريك السجلات وذلك بالضغط على الأسهم في أداة ال Adodc1 سيتم وضع تاريخ الترقيه القادمه في الText3 ولكن من غير حفظه في قاعدة البيانات .

- إذا كان هذا غير ماتريده ، فياريت أن توضح أكثر عن ماتريده بالضبط .

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}}
تم الشكر بواسطة: allayl
#5
شكرآ لك اخي الكريم

بس لو يكون تنفيذ الكود في Combo1 كان هو المطلوب

امل المساعده

==========

ملاحظة : مشكلة دائم تواجهني مع الاداة Adodc1 هي الحفظ التلقائي بمجرد

التنقل بين اداوت برنامجي دون الضغط على زر حفظ

و عند الخروج من الفروم بدون الضغط على زر حفظ
الرد }}}}
تم الشكر بواسطة:
#6
السلام عليكم

- إذا أردت الكود يكون مربوط بالكومبو1 , إستخدم حدث الChange للكومبو1 , كما يلي, إنسخ هذا لكود وألصقه في كود المثال :

كود :
Private Sub Combo1_Change()
  
If Trim$(Combo1.Text) = "جندي" Then
   Text3.Text = DateAdd("yyyy", 2, CDate(Trim$(Text2.Text)))
      
ElseIf Trim$(Combo1.Text) = "جندي أول" Then
   Text3.Text = DateAdd("yyyy", 2, CDate(Trim$(Text2.Text)))
  
ElseIf Trim$(Combo1.Text) = "عريف" Then
   Text3.Text = DateAdd("yyyy", 2, CDate(Trim$(Text2.Text)))
  
ElseIf Trim$(Combo1.Text) = "وكيل رقيب" Then
   Text3.Text = DateAdd("yyyy", 3, CDate(Trim$(Text2.Text)))
  
ElseIf Trim$(Combo1.Text) = "رقيب" Then
   Text3.Text = DateAdd("yyyy", 4, CDate(Trim$(Text2.Text)))
  
ElseIf Trim$(Combo1.Text) = "رقيب أول" Then
   Text3.Text = DateAdd("yyyy", 4, CDate(Trim$(Text2.Text)))
  
ElseIf Trim$(Combo1.Text) = "رئيس رقباء" Then
   Text3.Text = DateAdd("yyyy", 5, CDate(Trim$(Text2.Text)))
  
End If

End Sub

- وبالنسبة للحفظ التلقائي لأداة adodc1 دون الضغط على زر الحفظ , فبما أنك مسوي ربط لجميع التكستات بحقول الجدول , فضع أمر الحفظ في حدث الLostFocus لكل أداة موجودة على الفورم لكي عند إنتقال التركيز من أي أداة يتم الحفظ , مايلي أمر الحفظ في أداة الText1 وأت طبقها على باقي الأداوت في الفورم :

كود :
Private Sub Text1_LostFocus()
Adodc1.Recordset.Update
End Sub

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}}
تم الشكر بواسطة: allayl
#7
اخي الكريم

انا اعاني منها دون وضع الكود الذي ذكرته

انا ابغى طريقة لا يتم الحفظ الا بالضغط على زر الحفظ فقط

بارك الله فيك و جزاك الفردوس الاعلى
الرد }}}}
تم الشكر بواسطة:
#8
السلام عليكم

- إذا كنت تريد الحفظ فقط من زر الحفظ فيجب عليك أن لا تجعل التكستات مربوطه مباشرة بأداة الAdodc1 أمسح مايوجد في خاصية ال DataField والخاصية الDataSource لكل التكستات والكومبو لكي تفك الإرتباط , ثم أكتب كود الحفظ بالكود كما هو موضح بالمثال المعدل , وإيضاً التنقل بين السجلات ضع أزرار للتنقل بين السجلات وضع أكواد التنقل فيها كما هو موضح بالمثال , ثم قم بإخفاء أداة ال Adodc1 لعدم الحاجه لعرضها .

- تحياتي .
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}}
تم الشكر بواسطة: ناجي إبراهيم , allayl
#9
بارك الله فيك اخي الكريم

و هل يتم استخدام هذه الطريقة في

زر الاضافه

زر الحذف

زر البحث

======

اذا كان يوجد عندك مثال شامل على الاداة Adodc1 امل ارفاقه ...

.... بارك الله فيك و جزاك الفردوس الاعلى
الرد }}}}
تم الشكر بواسطة:
#10
السلام عليكم

- عندي مشكلة في تحميل المرفقات من المنتدى , كنت أريد تحميل المثال الأخير لأعدل عليه , لأنه لم المثال بحوزتي قبل ثلاث ساعات من الآن , والآن المثال لدي وعدلت عليه بما طلبت .

- تحياتي .


الملفات المرفقة
.zip   مثال استحقاق الترقية-4.zip (الحجم : 12.06 ك ب / التحميلات : 258)
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Lightbulb [سؤال] مثال لقطع الإتصال بالإنترنت وإعادة الإتصال ياسر عبد الكريم 11 378 08-12-16, 12:00 AM
آخر رد: ياسر عبد الكريم
  [سؤال] برجاء المساعده في تغيير إسم جدول في قاعدة بيانات SQl Server بالفيجول بيسك6 engabuhema 2 62 24-11-16, 01:49 AM
آخر رد: ahmedabdelaliem
  سؤال في مثال كنونو 1 81 23-10-16, 02:16 AM
آخر رد: Ahmed_Mansoor
  [vb6.0] كيف استطيع ادراج تاريخ من خلال التقويم مباشرة iisys 3 137 29-09-16, 11:02 PM
آخر رد: iisys
  مثال على كيفية الطريقة لتحديث برنامجك عن طريق الإنترنت Ahmed_Mansoor 10 875 27-09-16, 12:13 AM
آخر رد: زياد مقداد
  [سؤال] ارجووو المساعده من الاخوان الاعزاء بالسرعة القصوى سلطان89 5 264 16-08-16, 01:25 PM
آخر رد: Ashraf Elafify
  مثال لارسال صورة الى الايميل hsansalhh 7 216 20-06-16, 03:32 AM
آخر رد: administrator
  اساتذتى الكرام ارجو المساعده فى موضوع الاومر الصوتية mhareek 0 122 09-06-16, 11:05 PM
آخر رد: mhareek
  [vb6.0] طلب تعدل مثال DeMahdi 17 267 02-06-16, 01:59 AM
آخر رد: DeMahdi
  اضافة مثال عن مشكلة رسالة الخطأ في قاعدة البيانات haniblack 7 228 24-05-16, 08:59 AM
آخر رد: haniblack

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


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