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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  تغيير تاريخ الجهاز dr.mostashar 4 105 02-11-18, 02:24 AM
آخر رد: AL_BRNS
  من لديه طريقة او مثال لتحويل الصوره من الفجوال بيسك 6 الى الورد scsi7000 0 54 13-10-18, 09:42 PM
آخر رد: scsi7000
  من لديه طريقة او مثال لتحويل الباركود الدي في الصوره الي تكيت scsi7000 1 90 28-09-18, 01:24 PM
آخر رد: elgokr
  مثال على كيفية الطريقة لتحديث برنامجك عن طريق الإنترنت Ahmed_Mansoor 14 3,309 01-09-18, 03:41 PM
آخر رد: MicroDoha
  مثال لارسال ايميل ويعمل جيداً - واحتاج الى التعديل فى التنسيق Ashraf Elafify 2 176 15-08-18, 12:23 PM
آخر رد: Ashraf Elafify
Question [vb6.0] هل يوجد مثال حول عمل باركود نامل المساعده؟؟ Microformt 2 232 09-07-18, 05:28 PM
آخر رد: Microformt
  [vb6.0] الرجاء المساعده asto 3 159 30-06-18, 10:01 PM
آخر رد: elgokr
  احبابى فى الله برجاء المساعدة فى البحث بالكود مرفق مثال mhareek 6 345 03-05-18, 02:09 PM
آخر رد: mhareek
  من لديه مثال عن طباعه الصفوف المختاره من الفلكس جريد الي الاكتيف ريبورت scsi7000 4 289 13-04-18, 10:14 PM
آخر رد: mhareek
  استفسار بخصوص عمل تاريخ صلاحية للبرنامج mhareek 10 498 19-03-18, 08:08 PM
آخر رد: mhareek

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


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