برنامج لحساب الميزانية

ما هو الخطأ في البرنامج؟ او الكود

الرجاء ذكر معلومات عن المشكلة لنتمكن من المساعدة

البرنامج عبارة عن ثلاثة جداول رئيسية

الجدول الأول :

يحوي تسليم الرواتب للموظفين .

الجدول الثاني :

يحوي أيرادات الدخل للمؤسسة .

الجدول الثالث .

يحوي حسابات اللميزانية .

...(المطلوب عمله )....

في الجدول الأول(فورم صرف الرواتب) ...

يتم عمل ما يلي .

1- عند أختيار أسم الموظف لصرف الراتب له يتم أدراج مسمى الوظيفي في المكان المخصص للوظيفة تلقائياُ وذلك بالاعتماد على جدول الموظفين المدرج

في الفورم نفسه .

2- يتم حساب مجموع الرواتب تلقائيا لجميع الموظفين المصروف لهم الراتب وأظهاره مع بداية تشغيل الفورم في كل مرة في المكان المخصص له وذلك للعرض فقط ( علما بأن الموظف سيتكرر صرف الراتب له خلال السنة )

في الجدول الثاني (فورم الأيرادات)...

يتم عمل ما يلي .

1- يتم حسب مجموع السجلات من البداية إلى أخر سجل وأظهار الناتج

في المكان المخصص له .

في الجدول الثالث (فورم الحسابات )

1- يتم أدخال السنة المعتمدة بالنسبة للجداول الثلاثة عن طريق أين بوكس لأظهار البيانات المطلوبه لفورم الحسابات .

2- عند وجود الرقم أو تطابقه بالسنوات الموجوده في جدول الميزانية

يتم أدراج مبلغ الميزانية في التيكس بوكس المخصص لها تلقائياً .

ومن ثم أظهار مجموع الايرادت لهذه السنة وأدراجه تلقائيا في المكان المخصص له في فورم الحسابات أيضاً .

ومن ثم أدراج مجموع صرف الرواتب لهذه السنة في المكان المخصص لها تلقائيا أيضا .

3- عندما يتم أدراج البيانات السابقة في الأماكن المخصص لها يتم حسم الرواتب المصروف لهذه السنة وأضافة الايرادات الهذه السنة على الميزانية المقدرة لهذه السنة وأظهار الناتج أذا كان بالموجب فيكون ربح ويتم أدراجه في مربع الربح وأذا كان الناتج بالسالب فيكون خسارة ويتم أدراج الناتج في مربع الخسارة .

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

وهكذا أرجوا أن أكون قد أوصلت المقصود بالنسبة لهذا البرنامج وأنال المساعدة من خبراء الفيجول في هذا الموضوع .

شكلي عقدت المبرجين بالسؤال

خلونا نخذها وحدوه وحده

أولا شي كيف أظهر المجموع الكلي للرواتب المصروفه

الاخ الكريم

بالنسبة لسؤالك الأخير عن طريقة حساب و عرض مجموع الرواتب

للعلم توجد عدة طرق لعمل ذلك

اسهلها طريقة يستخدم فيها الاستعلامات بجملة select

و لكن هنالك طريقة اسهل من الساهلة وهي كالاتي

تعرف متغير بأسم sum

as integer

تسند القيمة صفر للمتغير هكذا sum=0

تفتح قاعدة البيانات و الجدول الموجودة فيه رواتب الموظفين

تعمل حلقة تكرارية

do while

loop

أو

for next

داخل الحلقة التكرارية تكتب الاتي

sum=sum+rs.fields(x).value

rs.movenext

حيث rs تعني الركورد ست ( سجلات الجدول )

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

و هكذا يكون الكمبيوتر قد حفظ في ذاكرته مجموع الرواتب فى المتغير sum

و بالتأكيد يمكنك أن تأمره بأن يضع قيمة مجموع الرواتب في المكان الذي تريد

مثلا أكتب

text1.text=sum

اذا لم تعجبك هذه الطريقة فلا مانع لدي في شرح طريقة أخري لعمل مجموع الرواتب

و لكن من الضروري ان يكون لك معرفة بالاستعلامات

معتصم

طيب مشكور أخوي .. هذا مسألة وأنحلت

طيب كيف أقدر أسوي نسخة أحتياطية لهذه القاعدة من البيانات

ومن ثم أستطيع أسترجاها

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

و هذا يعتمد على مسار قاعدة البيانات و مسار النسخة الاحتياطية

مثلا

عمل نسخة من السي و وضعها في الدي يكون هكذا

Private Sub Command1_Click

" \:FileCopy "c:\ ", "d

End Sub

المكان الفارغ لبقية المسار الخاص بقاعدة بياناتك

ويكون استرجاع النسخة الاحتياطية هكذا

Private Sub Command2_Click

" \:FileCopy "d:\ ", "c

End Sub

جرب هذه الطريقة و أعطيني خبر

لا .. أنا أبغى أسوي نسخة أحتياطية لهذه القاعدة المدرجة في المثال السابق

فأرجو منك أخي الكريم توضيح الطريقة على المثال السابق وتنزيله