مشروع : برنامج محاسبى لإدارة منشأة أو شركة صغيرة

#120 أغسطس 2008 في 23:34 صاحب الموضوع

بسم الله الرحمن الرحيم

اسم المشروع : برنامج محاسبى لإدارة منشأة بسيطة

لغة البرمجة : Delphi 7

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

قاعدة البيانات : Access DB

سؤال : هل لابد أن اكون على معرفة بالمحاسبة للمساعدة فى هذا المشروع ؟

جــ : بالطبع لأ ... لأننى سوف من يقوم بإدارة وشرح ماهية المطلوب

صورة للبرنامج :

صورة للواجهه الرئيسية للبرنامج :-

صورة لنتيجة النشاط وهو فى حالة ربح :-

صورة لنتيجة النشاط وهو فى حالة خسارة :-

صورة لتقرير حساب المصروفات :-

------------------------------------------------------------------------------------------

المطلوب الأول :

1. ربط البرنامج بقاعدة البيانات الموجودة داخل المرفق

الطلوب الثانى :

2. عرض بيانات الجدول Capital داخل DbGrid الموجودة داخل فورم Capital.pas

------------------------------------------------------------------------------------------

البرنامج بالسورس + قاعدة البيانات : Last_Store.rar

لتحميل المكون Quick Report :

/index.php?showtopic=136700&view=findpost&p=848678

------------------------------------------------------------------------------------------

شباب من سيقوم بالمطلوب الأول أو المطلوبين معاً يقوم بإرفاق المشروع للتكملة

تم تعديل هذه المشاركة بواسطة Swift في 6 سبتمبر 2008 في 15:08

Comming Soon

#221 أغسطس 2008 في 11:25

السلام عليكم

هذا هو التعديل المطلوب

Store.rar

#321 أغسطس 2008 في 15:36

جارى التجربة أخى Mohammed Riadh

----------------

بعد التجريب :

ملاحظات على تطبيقك لأننا نريد أن نتعلم من بعضنا البعض :

1. قمت بربط قاعدة البيانات على جهازك الشخصى مما اصدر لى خطأ بخصوص الامتداد : التعديل

ADOConnection1.Connected := false;
ADOConnection1.Close;
ADOConnection1.ConnectionString := 'Provider=Microsoft.Jet.OLEDB.4.0;Data Source=' +Getcurrentdir + '\Data\Store.mdb;';
ADOConnection1.Open;
ADOTable1.Active := true;

2. قمت بعمل مركز الأتصال هو الفورم Capital لكنى افضل أن تكون الفورم الرئيسية Main هى الأم .

----------------

هذا هو البرنامج بعد التعديل : أنظر أخر رد للعضو Swift لتحميل المرفق بعد التطوير

* قمت بإضافة Tab خاصة بأضافة رصيد جديد لرأس المال وقمت بتكويدة .

** قمت بإضافة Tab خاصة بطرح رصيد من رأس المال وقمت بتكويدة .

---------------------

المطلوب الثالث : جمع الحقل الخاص بــ Amount+

جمع الحقل الخاص بــ Amount-

وطرحهم من بعض وعرض النتيجة فى Net capital Stock

تم تعديل هذه المشاركة بواسطة Swift في 24 أغسطس 2008 في 03:01

Comming Soon

#424 أغسطس 2008 في 03:12

لا يوجد أعضاء مشاركين فى المشروع سوى العضو : Mohamed-Riadh

شباب عايزين تفاعل شوية علشان منامش منكم

----------------------------------------------------------------

هذا هو البرنامج بعد التعديل : أنظر أخر رد للعضو Swift لتحميل المرفق بعد التطوير

---------------------------------------------------------------

* قمت بإضافة : جمع الحقل الخاص بــ AmountR ( الإضافة الى رأس المال للشركة كمثال : حصل على فوائد بنك فقام بإضافتها لزيادة رأس مال الشركة)

** قمت بإضافة : جمع الحقل الخاص بــ AmountE (الطرح من رأس المال للشركة كمثال : قام بسحب بضاعة او فى صورة نقدية من خزينة الشركة فقام بطرحها من رأس المال للشركة ).

** قمت بإضافة : طرح الحقل المدين من الحقل الدائن لمعرفة كم رأس مال الشركة الحالى وعرضهم فى Net Capital Stock .

---------------------------------------------------------------

المطلوب الحالى :

1. اضافة ايقونات للبرنامج

2. تنظيم شكلة

3. اضافة Splash Screen للبرنامج

4. برمجة الزر Print ليقوم بعمل طباعة للجدول .

--- يرجى ارفاق الملف بعد التعديل .

تم تعديل هذه المشاركة بواسطة Swift في 27 أغسطس 2008 في 08:47

Comming Soon

#526 أغسطس 2008 في 01:58

اين الشغل يا شباب ؟

اقتباس
المطلوب الحالى :
1. اضافة ايقونات للبرنامج
2. تنظيم شكلة
3. اضافة Splash Screen للبرنامج
4. برمجة الزر Print ليقوم بعمل طباعة للجدول .
--- يرجى ارفاق الملف بعد التعديل .

زوار ومبرمجى قسم الدلفى لا يستطيعون فعل ذلك ! هذا مذهل حقاً

Comming Soon

#626 أغسطس 2008 في 12:00

السلام عليكم

محاولت على السريع

Store_1.rar

#726 أغسطس 2008 في 19:31

السلام عليكم : الأخ الكريم زكيري الملف المرفق يحتوي على مكونات لا امتلكها .. من فضلك ممكن ترسلنا المكونات مع الشكر الجزيل

#826 أغسطس 2008 في 19:50

لا لم اضف اي مكون المشكلة الوحيدة اني عملت على دلفي 2007 ساحاول تثبيت دلفي 7 وارفقه

تم التحويل في المرفقات

Store_1.rar

تم تعديل هذه المشاركة بواسطة زكيري عبد العالي في 26 أغسطس 2008 في 20:48

#926 أغسطس 2008 في 21:55

السلام عليكم ورحمة الله وبركاته

لعلي أكون جئت متأخرا، ولكني أحببت المشاركة

فقد أرفقت المشروع مضافا إليه Splash Screen ، مع إضافة أيقونة للبرنامج

وأنا شاء الله غدا سأحاول أن أضع كود الطباعة (أقصد أحاول أن أتعلمه، ثم أكتبه :P )

أرجو أن تكون مشاركة مقبولة

Store.rar

#1026 أغسطس 2008 في 22:06

بالطبع مشاركاتك مقبولة جاري التجريب

كما ننتظر مشاركتك في المشاريع الاخرى

#1127 أغسطس 2008 في 08:57

انا هتحسد كدة

زكيري عبد العالي / المستفيد1 / king_baghdad

معانا فى المشروع خير ومشكورين على بذل المجهود وياريت لو نكمل المشروع سويا

-------------------------------------------------------------

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

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

------------------------------------------------------------

هذا هو البرنامج فى أخر تعديل: أنظر أخر رد للعضو Swift لتحميل المرفق بعد التطوير

------------------------------------------------------------

المطلوب الحالى :

1. برمجة الفورم الخاص بــ الأيرادات على النحو التالى :-

أ. ربط هذه الفورم بقاعدة البيانات .

ب. عرض الجدول الخاص بها من قاعدة البيانات فى DbGrid

ج. برمجة Tab الخاصة بأضافة ايراد بحيث من خلالها يتم التسجيل فى قاعدة البيانات

د. جمع الأيرادات وعرضها فى "Label خاص بعرض صافى الايرادات"

------------------------------------------------------------

بالتوفيق

تم تعديل هذه المشاركة بواسطة Swift في 29 أغسطس 2008 في 04:18

Comming Soon

#1227 أغسطس 2008 في 22:08

السلام عليكم ورحمة الله وبركاته

والله يا Swift يا خويا أن طلع عيني في الكام حاجة اللي انت طلبتها، سبحان الله، دوخت السبع دوخات

لكن كله يهون بس نتعلم

اقتباس
المطلوب الحالى :
1. برمجة الفورم الخاص بــ الأيرادات على النحو التالى :-
أ. ربط هذه الفورم بقاعدة البيانات .
ب. عرض الجدول الخاص بها من قاعدة البيانات فى DbGrid
ج. برمجة Tab الخاصة بأضافة ايراد بحيث من خلالها يتم التسجيل فى قاعدة البيانات
د. جمع الأيرادات وعرضها فى "Label خاص بعرض صافى الايرادات"

حاولت أنفذ الطلبات بكل ما أملك من أمكانات :P (قال يعني عندي إمكانيات :P )

جايز أكون خربت الدنيا ، خاصة في الحتة بتاعة if الشرطية، بس وماله، أدينا بنتعلم، ياريت تبص بصة صغيرة وتقولي رأيك إيه وتصحح لي الغلط

Store.rar

#1328 أغسطس 2008 في 02:36

حسناً اخى المستفيد بارك الله فيك على مجهودك السامى

-------------------------------------------------------

أولاً : أنت قمت بربط فورم الأيرادات بأداة ADOConnection1 جديدة لماذا ؟

أنا حاطط اداة ADOConnection1 فى الفورم الرئيسية علشان نستعملها فى جميع الفورمات الفرعية علشان كدة .

ثانياً: قمت باستعمال اداة ADOTable1 لجمع الايرادات وهذه طريقة جيدة ؟

احنا شغالين بأداة ADOQuery1 لسرعتها وعلشان نقدر نعمل اى عملية بطريقة سلسة بدون تعقيد .

ثالثاً : قمت باستخدام IF بطريقة تكاد لا تكون طريقة مناسبة ؟ فقط قم بعدم ملأ اى بيان واضغط تسجيل ؟ ماذا تلاحظ ؟ أكثر من رسالة يظهرون لك ؟

حاول تستخدم IF المتداخلة مثل ..

انسخ الكود

if Edit1.Text <> '' then
if Edit3.Text <>'' then
begin
showmessage ('done');
end
else
showmessage ('Please add Note!')
else
showmessage ('Please add Amount!');
end;

----------------------------------------

سأقوم بإرفاق الكود بعد التطوير والتنسيق فى الرد القادم إن شاء الله

أخى الكريم هذه الملاحظات للاستفادة لا تأخذها بحساسية :blink:

بالتوفيق

تم تعديل هذه المشاركة بواسطة Swift في 28 أغسطس 2008 في 02:37

Comming Soon

#1428 أغسطس 2008 في 05:17

اقتباس
أخى الكريم هذه الملاحظات للاستفادة لا تأخذها بحساسية

أستاذي الفاضل

مفيش أي حساسية ولا أي حاجة، بل بالعكس، أنا مبسوط جدا إني لقيت حد يعلمني حاجة

لا تقلق، انت بس اديني ملاحظات وتوجيهات وستجدني تلميذا نشيطًا إن شاء الله

وأنا إن شاء الله سأحاول مرة أخرى في التعديل مع تطبيق ملاحظاتك الغالية

وجزاك الله خيرا

#1528 أغسطس 2008 في 06:18

اقتباس
وأنا إن شاء الله سأحاول مرة أخرى في التعديل مع تطبيق ملاحظاتك الغالية

حسناً أخى الكريم أتنمى أنك ترفق المشروع بعد الملاحظات المتبعة ونطبيقها إن شاء الله

للمساعدة : الفورم الخاصة بحساب رأس المال Capital.pas يوجد بها جميع الأكواد اللى هتحتاجها فى فورم حساب الايرادات يعنى ميش هتكتب كود بايدك جديد .

جزاك الله خيراً

تم تعديل هذه المشاركة بواسطة Swift في 28 أغسطس 2008 في 06:20

Comming Soon

#1628 أغسطس 2008 في 18:14

السلام عليكم ورحمة الله وبركاته

اقتباس
أنا حاطط اداة ADOConnection1 فى الفورم الرئيسية علشان نستعملها فى جميع الفورمات الفرعية

تم التعديل

اقتباس
احنا شغالين بأداة ADOQuery1 لسرعتها وعلشان نقدر نعمل اى عملية بطريقة سلسة بدون تعقيد

تم التعديل

لكن استخدمت ADOTable جديدة كي أعرض منها البيانات في جدول الإيرادات، وكذلك أضفت DataSource وتم ربطها كذلك بـ DBGrid الخاصة بجدول الإيرادات

اقتباس
حاول تستخدم IF المتداخلة

تم التعديل

اقتباس
للمساعدة : الفورم الخاصة بحساب رأس المال Capital.pas يوجد بها جميع الأكواد اللى هتحتاجها فى فورم حساب الايرادات يعنى ميش هتكتب كود بايدك جديد

فعلا استفدت منها كثيرا جدا وفهمت حاجات لأول مرة كنت أعرفها

أرجو أن أكون قد أديت المطلوب على ما يرام إن شاء الله ، وأرجو أن توافيني بالملاحظات الجديدة

جزاك الله خيرا أستاذي

Store.rar

#1729 أغسطس 2008 في 04:16

اقتباس
أرجو أن أكون قد أديت المطلوب على ما يرام إن شاء الله ، وأرجو أن توافيني بالملاحظات الجديدة

بسم الله ما شاء الله كل شئ تمام الأن

اقتباس
جزاك الله خيرا أستاذي

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

ملاحظة بسيطة : ياريت لما تكتب الكود بتاع زر "تسجيل العملية" تلحقة بعملية الجمع

calculate2;

--------------------------------

المرحلة الثالثة :

هذا هو المشروع بعد التعديل : أنظر أخر رد للعضو Swift لتحميل المرفق بعد التطوير

* قمت بترتيب الأكواد وقمت بإضافة فورم جديدة لحساب المصروفات من غير تكويد

--------------------------------

المطلوب الحالى :

برمجة فورم حساب المصروفات Expenses.pas بنفس الطريقة المبرمج بها حساب الأيرادات Revenue.pas

بالتوفيق

تم تعديل هذه المشاركة بواسطة Swift في 31 أغسطس 2008 في 04:20

Comming Soon

#1829 أغسطس 2008 في 06:49

السلام عليكم ورحمة الله وبركاته

اقتباس
المطلوب الحالى :
برمجة فورم حساب المصروفات Expenses.pas بنفس الطريقة المبرمج بها حساب الأيرادات Revenue.pas

وما شاء الله هذه المرة أسهل من كل مرة بكتير جدا.

Store3.rar

ولي سؤال بسيط جدا إن شاء الله

لاحظت في الفورم الخاص بالإيرادات أنك اكتفيت له بوضع الكود

RevForm.showmodal;

ووجدت أنها في Project Option غير موجودة في Auto-Create Form لأنك قمت بوضعها في Available Form حتى لا تبقى في الذاكرة

ومع ذلك الفورم بيتفتح بدون أي مشاكل

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

فما السبب في ذلك

#1929 أغسطس 2008 في 07:58

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

لأنى قمت بإنشاء الفورم مسبقاً وحذفتها من Auto-Create يعنى معملتش حاجة

هتلاحظ RevForm ميش موجودة فى Auto-Create لماذا ؟ لأنى قمت بإنشاء الفورم من خلال التطبيق

لاحظ

Project > View Source

لاحظ هذا السطر

Application.CreateForm(TRevForm, RevForm);

--------------------------------------------

ما شاء الله عليك وفيت ممتاز

Comming Soon

#2029 أغسطس 2008 في 08:36

اقتباس
لأنى قمت بإنشاء الفورم مسبقاً وحذفتها من Auto-Create يعنى معملتش حاجة

فعلا طريقة جميلة، وأظن أني سأستعملها دائما إن شاء الله

وأنا في انتظار تعليمات المرحلة الجديدة إن شاء الله

#2129 أغسطس 2008 في 10:28

اقتباس
فعلا طريقة جميلة، وأظن أني سأستعملها دائما إن شاء الله

لا انصحك باستعمالها فهى لا تضيف جديد

بمعنى فورم شلتها من Auto-Create واضفتها ليتم انشاءها بيدك عند التشغيل

سأضع الخطوة القادمة بالمساء ان شاء الله

Comming Soon

#2231 أغسطس 2008 في 04:18

المرحلة الرابعة :-

هذا هو البرنامج بعد التعديل : أنظر أخر رد للعضو Swift لتحميل المرفق بعد التطوير

* قمت باضافة فورم خاص بحساب المدينون Debit.pas من غير تكويد .

** قمت باضافة كود واحد فقط للاداة CheckBox1 الموجودة بالفورم Debit.pas لتفعيل او عدم تفعيل الخصم .

-------------------------------------------------------------

المطلوب الحالى :-

- برمجة الفورم الخاص بحساب المدينون Debit.pas بنفس الطريقة المبرمج بها حساب الأيرادات والمصروفات

مع مراعاه الملاحظات اسفلة .

-------------------------------------------------------------

ملاحظات :-

سيتم التسجيل فى قاعدة البيانات جميع البيانات :-

يوجد 3 حقول للخصم

1. Discount سيسجل فى هذا الحقل قيمة من القيم الاتية

رقم (0) فى حالة عدم وجود خصم .

رقم (1) وجود خصم .

2 . DisRate فى حالة وجود خصم سيسجل النسبة ..فى حالة عدم الخصم يترك فارغاً .

3 . NetAmount سيسجل المبلغ الصافى بعد الخصم .

-------------------------------------------------------------

اى سؤال او استفسار انا جاهز .

تم تعديل هذه المشاركة بواسطة Swift في 2 سبتمبر 2008 في 07:06

Comming Soon

#2331 أغسطس 2008 في 21:02

اين اعضاءنا الكرام ؟ أعضاء الفريق العربى :hmm:

عايزين نكمل المشاريع المتاحة بالقسم يا شباب حتى ننهض بالمنتدى ؟

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

بالتوفيق

Comming Soon

#241 سبتمبر 2008 في 00:12

السلام عليكم ورحمة الله وبركاته

أعتذر بشدة عن التأخير، لكن كل عام وانتم بخير

انتم عارفين بقى رمضان والزيارات ودوشة الأولاد، ما علينا مش هادوشكم معايا

المهم:

اقتباس
المطلوب الحالى :- - برمجة الفورم الخاص بحساب المدينون Debit.pas بنفس الطريقة المبرمج بها حساب الأيرادات والمصروفات

تم والحمد لله

اقتباس
Discount سيسجل فى هذا الحقل قيمة من القيم الاتية رقم (0) فى حالة عدم وجود خصم . رقم (1) وجود خصم

تم وأرجو أن يكون صوابا

اقتباس
DisRate فى حالة وجود خصم سيسجل النسبة ..فى حالة عدم الخصم يترك فارغاً

تم وزي اللي قبله، ياريت يطلع صح

اقتباس
NetAmount سيسجل المبلغ الصافى بعد الخصم

تم، ولكن دايما بيظهر مع الرقم الناتج علامة (-) حاولت التخلص منها لكن لم أعرف الطريقة

المشاكل:

وضعت كود في الفورم الجاري العمل فيه ليقوم بتنظيف حقول Edit بعد كل عملية حفظ، لكن الـ Edit الخاصة بالخصم والصافي بعد الخصم دايما بيظهر فيه خطأ، لا أدري لماذا

استفسار:

احنا وضعنا في كل فورم (procedure) وكنا نسمية مع كل فورم (calculate)، (calculate1)، (calculate2) ، وهكذا، فهل من الممكن أن احنا نضع هذا الإجراء مرة واحدة ونستدعية في جميع أجزاء المشروع

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

Store3.rar

#251 سبتمبر 2008 في 05:34

معذرة فقد نسيت أن أذكر أني جعلت الـ Edit الخاص بحساب صافي المبلغ للقراءة فقط حيث أنه يقوم بحساب الخصم من المبلغ تلقائيا.

استفسار:

في قاعدة البيانات الخاصة بالفورم Capital

- الحقل AmountE أخذ نوع البيانات Number، وكذلك الحقل AmountE

أما في الفورم Expenses ، Revenue ، Debit فقد جعلتُ نوع البيانات فيه من النوع Currency

فهل هذا مقبول أم سيحدث تعارض

- وكذلك الحقول الخاصة بوضع التاريخ كلها نوع البيانات فيها (Text) فهل إذا غيرناها إلى Date/Time سيكون مقبولا أم لا

تحياتي

مشروع : برنامج محاسبى لإدارة منشأة أو شركة صغيرة

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