الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

مساعده في برنامج محطه

مغلق
بدأه wd_225 في 19 نوفمبر 2002 · 4 رد · 593 مشاهدة · في مراجعة المواضيع
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

انا ابرمج قاعدة بيانات خاصه بمحطة بترول

واجهتني مشكله في ان لدي حقلين القراءه السابقه والقراءه الجديده

اقوم بادخالها لاول مره كقراءتين

وعندما اريد ابداء بادخال سجل جديد يضع لي قيمة القراءه الجديده في السجل السابق في خانة القراءه السابقه في السجل الجديد( الثاني )

بمعنى بمجرد ادخال سجل جديد تظهر قيمة القراءه الجديده في السجل السابق في حقل القراءه السابقه في السجل الجديد

ارجو ان يتم توضيح ذلك مثال وسوف اكون لكم من الشاكرين وإن شاء الله نردها لكم .

#2
Private Sub CmdaddReport_Click()
If IsNull(Me.t1) Or IsNull(Me.t2) Or IsNull(Me.t2) Then
 MsgBox "complete the data please ! null is not allowed)"
Exit Sub
End If

Dim mm As Double
mm = Me.t3
Me.t2 = 0
Me.t1 = mm
Me.t3 = mm
End Sub

Private Sub t2_AfterUpdate()
Me.t3 = Me.t1 + Me.t2
End Sub

cumfromunbound.zip

#3

اخي المشرف شكرا لك على الرد

ولكني اريد ان تتم العمليه على هذا الشكل التالي :

حقلين القراءه الحاليه - القراءه الجديده

خطوات العمل

1) اضافة لاول مره القراءه السابقه

2) اضافة سجل جديد

- ينسخ القراءه السابقه في السجل الذي قبله الى حقل القيمه التراكميه

- نسخ القيمه الموجوده في الحقل التراكمي الى حقل

القراءه الحاليه في السجل الجديد

- ادخال القراءه الجديده

- حفظ السجل

- تصفير القيمه التراكميه

3) حفظ السجل داخل الجدول للاحتفاظ بالبيانات

بمعنى ان القراءه الجديده سوف تصبح قراءه حاليه عند ادخال السجل الجديد

ارجو ان لا اكون قد ازعجتكم واتمنى ان استطيع ردها لكم

#4

المثال السابق به طريقة الحصول علي القيمة السابقة

أما عن التسجيل من فورم بدون مصدر فهي موجودة هنا

http://www.arabteam2000.com/vb/showthread....&threadid=11696

أو هنا

http://www21.brinkster.com/arablessons/Tip...fromUnbound.htm

مع شرح لأبو حمود

و بهما معا تصل لما تريد

جرب و ان لم يمن فأخبرنا

و أن كان فضع المثال ليستفيد به الجميع

#5

السلام عليكم

يوجد لدي برنامج متكامل لمحطات المحروقات

ومستخدم ومجرب وخالي من المشكل ولله الحمد

صمم بواسطة فيجول بيسك vb5

وإذا كنت ترغب الحصول على نسخة من البرنامج مقابل مبلغ مادي لأنه ليس ملكي وحدي

يمكنك مراسلتي على البريد الإلكتروني التالي

alenazi2000@hotmail.com

مميزات البرنامج

============

1- إضافة عدد لانهائي من مضخات الوقود

2- تصنيف المضخات إلى بنزين - ديزل - كاز .......

3-التحكم بالاسعار للتر الواحد

4- تناوب العمال على المضخات ورصد القراءة والمحصول

مقرونة باسم العامل المستلم

5-الرواتب

6- ناقلات النفط

7- الفواتير

8- الميزانية

9-.....................

10-.....................

11-.....................

12-.....................

والكثير الكثير من الخدمات والمميزات في هذا البرنامج

الحمد لله جميع الذين استخدموا البرنامج ليس لهم أي ملاحظات حتى الآن

أول نسخة تم بيعها في

يوم السبت الموافق

24/2/2001

هذا الموضوع مغلق.

مواضيع مشابهة