تقييم الموضوع :
  • 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 ك ب / التحميلات : 385)
كود :
For each Breathe in MyLife
Breathe.Say " سبحان الله والحمد لله ولا إله إلا الله والله أكبر أستغر الله العظيم وأتوب إليه"
Next
الرد }}}}


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  من لديه مثال لربط الفجوال بيسك 6 مع PostgreSQL scsi7000 1 56 21-10-17, 09:43 AM
آخر رد: Ahmed_Mansoor
  طلب مثال لبرنامج تصميم الشهادات التقديريه كان في منتدانا القديم الاصيله 5 181 14-10-17, 10:13 AM
آخر رد: الاصيله
  [مثال] مثال متكامل للتعامل مع قاعدة بيانات من نوع mysql على الانترنت ahmedabdelaliem 13 1,641 13-10-17, 06:18 PM
آخر رد: ahmed.m
  ترتيب تاريخ المنحة حافظ حافظ 8 165 13-10-17, 12:45 AM
آخر رد: حافظ حافظ
  [كود] تحويل تاريخ الى نص Microsoft Visual Basic 6.0 4 92 22-09-17, 01:46 AM
آخر رد: Microsoft Visual Basic 6.0
  [vb6.0] احتاج مثال شجرة الحسابات كاملة iAwadop 5 372 08-09-17, 08:19 PM
آخر رد: محمود بكرى
Rainbow [vb6.0] ماهي قاعدة بيانات اكسس و اين تستعمل و مثال مفتوح المصدر للفهم anoname 1 125 30-08-17, 07:34 AM
آخر رد: Ahmed_Mansoor
  ارجو المساعده اخوانى الاحباب "" تاريخ اخر عملية " mhareek 22 731 23-08-17, 06:02 PM
آخر رد: mhareek
  اريد مثال او طريقه لعمل جدول خفارات الموظف الكتروني scsi7000 1 120 02-08-17, 12:33 AM
آخر رد: Ahmed_Mansoor
  اريد احدث تاريخ يظهر في (text1.txt) scsi7000 4 186 01-08-17, 07:17 PM
آخر رد: scsi7000

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


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