[سؤال] المساعده في مثال تاريخ استحقاق الترقية - نسخة قابلة للطباعة

[سؤال] المساعده في مثال تاريخ استحقاق الترقية - نسخة قابلة للطباعة

+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغات البرمجة الاخرى (http://vb4arb.com/vb/forumdisplay.php?fid=4)
+--- قسم : قسم لغة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=18)
+---- قسم : قسم أسئلة vb6.0 (http://vb4arb.com/vb/forumdisplay.php?fid=28)
+---- الموضوع : [سؤال] المساعده في مثال تاريخ استحقاق الترقية (/showthread.php?tid=29)

الصفحات: 1 2

المساعده في مثال تاريخ استحقاق الترقية - allayl - 12-09-13

السلام عليكم

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

المطلوب

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

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

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

امل المساعده

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

المثال مرفق

RE: المساعده في مثال تاريخ استحقاق الترقية - VB_Coder - 12-09-13

السلام عليكم

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

كود :

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

- تحياتي .

RE: المساعده في مثال تاريخ استحقاق الترقية - allayl - 13-09-13

السلام عليكم اخي VB_Coder

تم وضع الكود لم يحدث شي امل التعديل على المثال

RE: المساعده في مثال تاريخ استحقاق الترقية - VB_Coder - 13-09-13

السلام عليكم

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

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

- تحياتي .

RE: المساعده في مثال تاريخ استحقاق الترقية - allayl - 13-09-13

شكرآ لك اخي الكريم

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

امل المساعده

==========

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

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

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

RE: المساعده في مثال تاريخ استحقاق الترقية - VB_Coder - 13-09-13

السلام عليكم

- إذا أردت الكود يكون مربوط بالكومبو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

- تحياتي .

RE: المساعده في مثال تاريخ استحقاق الترقية - allayl - 13-09-13

اخي الكريم

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

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

بارك الله فيك و جزاك الفردوس الاعلى

RE: المساعده في مثال تاريخ استحقاق الترقية - VB_Coder - 14-09-13

السلام عليكم

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

- تحياتي .

RE: المساعده في مثال تاريخ استحقاق الترقية - allayl - 14-09-13

بارك الله فيك اخي الكريم

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

زر الاضافه

زر الحذف

زر البحث

======

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

.... بارك الله فيك و جزاك الفردوس الاعلى

RE: المساعده في مثال تاريخ استحقاق الترقية - VB_Coder - 16-09-13

السلام عليكم

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

- تحياتي .