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

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

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

اقتباس

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

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

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

وعليكم السلام أخى الكريم .. أهلاً بعودتك

اخى لايوجد اعتذار لكن كنت اتمنى أن الكل يشارك بالموضوع لا نقتصر على عضو معين لكن حضرتك جزاك الله خيراً قمت بها وهذا شدنى اعجاباً بك .

اقتباس

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

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

أكيد لازم يظهر بقيمة سالبة أنظر ماذا انت قمت به :-

سوف اقوم بالتعويض عن معادلتك .. بفرض ان المبلغ 1000 دولار ونسبة الخصم 10%

(1000*10)/100 - 1000 = -900

قمت بقلب الكود للتصحيح

اقتباس

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

أكيد راح يظهر لأنة يوجد حدث OnChange مينفعش الEdit تبقى فاضية علشان يجرى عملية الخصم قمت بتظبيط الكود واضافة if الشرطية . أنظر المرفق بعد التعديل

اقتباس

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

مينفعش لسبب واحد انى البروسيدر فى كل فورم مختلف عن الأخر وبالأخص لفورم المدينون .

اقتباس

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

اضافة جميلة جداً

اقتباس

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

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

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

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

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

والله أخى الكريم كلامك صحيح وفى محلة وهذه هى البرمجة الصحيحة .

لكن أنا لا أحب ان أتقيد خلال برمجتى بشئ معين بالذات حقول قواعد البيانات اذا حابب نلتزم بها مافى مشاكل . :wub:

سوف اقوم بإرفاق المشروع بعد دقائق سأتسحر وأكمل

رمضان كريم عليكم جميعاً.

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

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

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

التعديلات اللتى حدثت:-

* اضافة فورم المدينون الى حسابات المنشأة .

** اضافة الخصم على العملاء (المدينون) اذا تم السداد قبل الميعاد .

*** لمسات أخرى .

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

- سوف اقوم بأرفاق البرنامج مرة أخرى لأضافة فورم الموردين ( الدائنون) بالمساء ان شاء الله

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

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

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

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

التعديلات اللتى حدثت :-

1. تم اضافة فورم خاص بالدائنون Credit.pas وقد قمت بتكويدها .

2. تم اضافة MainMenu للبرنامج تسمح بمرونة البرنامج وسهولة التحرك بين نوافذة .

3. تم اضافة فورم خاصة "عن البرنامج" About.pas للمعلومات عن البرنامج .

4. تم اضافة فورم خاصة اسمها Setup.pas وجدول بقاعدة البيانات .. تسمح هذه الفورم بعرض معلومات رئيسية عن الشركة بحيث يمككنا استخدامها فى عرض التقارير وطباعتها .

5. تم تعديل شكل البرنامج ليتلائم مع مستواه .

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

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

*. يوجد بكل فورم من الفورمات الأتية

Capital.pas - Credit.pas - Debit.pas- Expenses.pas - Revenue.pas

زر يسمى طباعة التقرير .. اريد هذا الزر عند الضغط عليه يقوم بعرض تقرير يحتوى على جميع العمليات اللتى حدثت على الشكل التالى :-

1. يحتوى هذا التقرير على Header يعنى جزء علوى يحتوى على اسم الشركة وبأسفلها توصيف الشركة .

2. يحتوى الجزء الوسطى على جميع العمليات اللتى حدثت مثلاً على المصروفات أو الأيرادات ..... .

3. يحتوى هذا التقرير على Footer يعنى جزء سفلى يحتوى على "توقيع المدير" وباسفلة اسم المدير .

يوجد أكثر من مكون لعمل التقرير على حسب راحة العضو يقوم بتنفيذة .. بس أنا احبذ ان يكون Rave Report علشان لا نرفق مكونات مع البرنامج ويكون البرنامج كاملاً بأدوات ديلفى الأصلية .

بالتوفيق

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

فعلا البرنامج أصبح بالفعل جميل جدا

اقتباس

اريد هذا الزر عند الضغط عليه يقوم بعرض تقرير يحتوى على جميع العمليات اللتى حدثت

سأحاول قدر جهدي إن شاء الله في تنفيذ المطلوب

تحياتي

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

أو اى عضو أخر .

بالتوفيق

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

لكني متابع لمشروعك هذا وقد اعجبني كثيرا وان شاء الله ساشارك معك ان تسنى لي الوقت

وفقنا الله واياكم

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

بداية، أنا واثق إن فيه أخطاء كثيرة في عرضي للتقارير :blush: ، لكن عزائي أن هذه أول مرة لي في هذا الأمر

بل هذه أول مرة أشارك في مشروع

اقتباس

اريد هذا الزر عند الضغط عليه يقوم بعرض تقرير يحتوى على جميع العمليات اللتى حدثت

اقتباس

يحتوى هذا التقرير على Header يعنى جزء علوى يحتوى على اسم الشركة وبأسفلها توصيف الشركة

اقتباس

يحتوى الجزء الوسطى على جميع العمليات اللتى حدثت مثلاً على المصروفات أو الأيرادات

اقتباس

يحتوى هذا التقرير على Footer يعنى جزء سفلى يحتوى على "توقيع المدير" وباسفلة اسم المدير

اقتباس

بس أنا احبذ ان يكون Rave Report

وطبعا أنا احوليت :wacko: من QuickReport، لكن حسيت إني ماشي ممكن أعافر معاه والنتيجة باينة لكم في المشروع :P

كان عندي مشكلة في ظهور جميع الصفوف في التقرير ، لكن الحمدلله ربني وفقني في التغلب عليها

وكنت قد وضعت المشروع فيه هذه المشكلة، لكني قمت بتحرير الموضوع وحذفت المشكلة وغيرت المرفق الخاص بالمشروع

Store_4.rar

أرجو موافاتي بنصائحكم الغالية، وجزاكم الله خيرا

أخونا Swift أين أنت ؟

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

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

اقتباس

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

بداية، أنا واثق إن فيه أخطاء كثيرة في عرضي للتقارير ، لكن عزائي أن هذه أول مرة لي في هذا الأمر

بصراحة ما وجدت غلطة عليك .. رغم اننى مبتدأ ايضاً بالتقارير

قمت بتكويد MainManu لسهولة التحرك بين النوافذ .. سأقوم بإرقاق المشروع بعد دقائق بعد تعديلات سوف اكتبها والمطلوب الحالى .

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

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

المرحلة الأخيرة ان شاء الله

**********************

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

* قمت باضافة فورم خاصة بعرض نتيجة نشاط المنشأة وحالتها على النحو التالى :

1. المنشأة فى حالة ربح.

2.المنشأة فى حالة خسارة.

** قمت بترتيب بعض الأكواد .

** حركات أخرى .

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

المطلوب الحالى والاخير ان شاء الله :-

1. برمجة الزر عرض التقرير للفورم AllReport.pas لعرض نتيجة النشاط .

2. برمجة جميع Edit بجميع الفورم الخاصين بكتابة المبلغ على ان لا يقبلوا إلا أرقااااام فقط .

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

بالتوفيق

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

اقتباس

المطلوب الحالى والاخير ان شاء الله :-

1. برمجة الزر عرض التقرير للفورم AllReport.pas لعرض نتيجة النشاط .

2. برمجة جميع Edit بجميع الفورم الخاصين بكتابة المبلغ على ان لا يقبلوا إلا أرقااااام فقط .

Store_5.rar

اقتباس

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

إقتباس

المطلوب الحالى والاخير ان شاء الله :-

1. برمجة الزر عرض التقرير للفورم AllReport.pas لعرض نتيجة النشاط .

2. برمجة جميع Edit بجميع الفورم الخاصين بكتابة المبلغ على ان لا يقبلوا إلا أرقااااام فقط .

تم تنفيذ المطلوب بحمدلله ونعمته وفضله

بسم الله ما شاء الله ما قصرت والله

لى تعقيب على نقطتين غير البرمجة :-

1. لا ترفق البرنامج بعد الكومبايل لة يعنى على ترفق ملف exe لسببين :

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

ب. كبر حجم المرفق فى التحميل .

2. يوجد بعض الملفات غير مرغوب بها وتشوه صورة البرنامج هتلاقيها فى الصورة About.~ddp بمعنى اخر تحتوى على العلامة ~ هذه ملفات غير مرغوب بها يمكنك حذفها .

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

شاركت بما فيه الكفاية ولم تكتب اي تعليق لإضافة جديدة ؟

إذا كان لديك أو لدى الأعضاء اى اقتراحات يمكنهم كتابتها هنا

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

بالتوفيق

اقتباس

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

اقتباس

شاركت بما فيه الكفاية ولم تكتب اي تعليق لإضافة جديدة ؟

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

تعلن مجموعة المشروع الثالث "برنامج محاسبى لإدارة منشأة أو شركة صغيرة" عن إنتهاءها من المشروع ووضعة فى أخر صورة لة .

المكونات المستعملة فى البرنامج :-

Quick Report للتقارير وهو مكون واحد فقط يمكنك تحميلة من هنا :-

للتحميل :

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

هذا هو البرنامج فى أخر صورة له :-

للتحميل : Last_Store.rar

شكر خاص لكل من الأعضاء التالية :-

المستفيد1

زكيري عبد العالي

king_baghdad

ورمضان كريم عليكم جميعاً .. وكل عام وأنتم بخير

المشروع ممتاز وبارك الله فيك في هذا العمل ، وإلى مزيد من التقدم .. تحياتي

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

ممتاز

كما ارجوا ان تواصل معنا في المشاريع الاخرى و خاصة المشروع

الدي اقوم به

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

جئت متأخراولكنني احاول القيام بالمشروع مجددا عندي سؤال لو سمحتم

قمت ببناء الفورم الاساس وفورم CapForm رأس المال . ولكن عندما أغلق البرنامج وأفتحه من جديد تكون labelR,Label E,LabelN غير فعالة أي يجب أن أضيف ل +رأس المال أو - راس المال حتى تصبح فعالة وعندما أغلق البرنامج وأفتحة من جديد تكون جميع القين XX:XX

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

شكرا لكم

اقتباس

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

جئت متأخراولكنني احاول القيام بالمشروع مجددا عندي سؤال لو سمحتم

يا أهلا بيك أخى فى اى وقت

اقتباس

قمت ببناء الفورم الاساس وفورم CapForm رأس المال . ولكن عندما أغلق البرنامج وأفتحه من جديد تكون labelR,Label E,LabelN غير فعالة أي يجب أن أضيف ل +رأس المال أو - راس المال حتى تصبح فعالة وعندما أغلق البرنامج وأفتحة من جديد تكون جميع القين XX:XX

يوجد حدث للفورم CapForm اثناء العرض OnShow

يوجد به هذا البروسيدر

calculate;

حيث يسمح لك قبل عرض الفورم ان يقوم بحساب القيمة الحقيقة لرأس المال

هذا هو البروسيدر

procedure TCapForm.calculate;
begin
// Calculate all revnue
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('SELECT SUM(AmountR) AS TotalR FROM Capital');
Form1.ADOQuery1.Open;
LabelR.Caption := Form1.ADOQuery1.FieldByName('TotalR').AsString;
// Calculate all expensess
Form1.ADOQuery1.Close;
Form1.ADOQuery1.SQL.Clear;
Form1.ADOQuery1.SQL.Add('SELECT SUM(AmountE) AS TotalE FROM Capital');
Form1.ADOQuery1.Open;
LabelE.Caption := Form1.ADOQuery1.FieldByName('TotalE').AsString;
LabelN.Caption := FloatToStr ( StrToFloat (LabelR.Caption) - StrToFloat (LabelE.Caption));
end;

طبعاً لا تنسى اضافة

procedure calculate;

اقتباس

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

يوجد أكثر من درس عن كيفية انشاء Splash Screen فى أول البرنامج يمكنك مراجعتهم

بالتوفيق

شكراً لك أخ سويفت على الرد

حلت المشكلة ولكن الان لايقوم باعطاء الناتج حتى اغلق البرنامج وافتحة من جديد

شكراً جزيلا لك

السلام عليكم

في البداية فكرة انشاء برنامج محاسبي فكرة رائعة اذ انها تضع عدد كبير من الافكار والاحتياجات في برنامج واحد وهي تحتاج لكثير من العمل والدقة والصبر

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

لذى ارجو منكم السماح لي ببعض الملاحظات على البرنامج وإن كانت حادة وذلك لاني صدمت عندما رأيت المشروع

وصدمت اكثر عندما احسست من الردود ان الرضا عن المشروع قد تم بشكل كامل وكأنه اصبح جاهزا للعمل في ميدان البرامج المحاسبية

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

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

- البرنامج الحالي هو حسابي بسيط لشخص يريد ان يبدا بتعلم انشاء برنامج يقوم ببعض الحسابات وبعيد كل البعد أن يسمى باسم برنامج محاسبي باي شكل من الاشكال

- هناك امور كثثيرة وضرورية تنقص البرنامج حتى ليكون حسابيا أذكر منها

1-ليس هناك امكانية لاضافة زبون او مورد بطريقة موثوقة لاي برنامج سجلات في العالم إذ لايوجد برنامج يحفظ الاسم مجردا من رقم حساب له او محذرا من وجود اسم مشابه

2- ليس هناك ربط بين اي عملية دفع او سداد بورقة سند الصرف او القبض او فاتورة الشراء او البيع اللتي ستستعملها اي منشأة كانت ولو كانت بسيطة إذ حتى بعض محلات البقالة البسيطة تتوافر فيها فواتير

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

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

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

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

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

ونصيحتي الأخيرة هي قبل ان تبدأ باختراع العجلة من البداية أنظر لغيرك كيف عجلته وكيف قام بصنعها وما خصائصها

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

للذين استائو من نقدي اللاذع يمكنني التعويض عليهم بالمساعدة قدر الامكان

والله من وراء القصد

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

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

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

شكرا لك على ايضاحك

وشكرا لهم على على هذا الجهد

شكرا أخى سويفت على اهتمامك

سأحاول بالمشروع من البداية وأخبرك بالمشاكل إن شاء الله

اقتباس

شكرا أخى سويفت على اهتمامك

سأحاول بالمشروع من البداية وأخبرك بالمشاكل إن شاء الله

اتمنى ان لا تقابلك اى عقبة

اعتذر عن الرد او المشاركة بعد ذلك داخل هذا الموضوع واتمنى ان يقوم الاخ المستفيد 1 بالرد عوضاً عنى وذلك لأسباب إخرى

كل عام وانتم بخير

شكراً لك أخ سويفت

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

أخي الفاضل decompiler جزاك الله خيرا على ملاحظاتك الغالية

لكن هذا المشروع ليس الغرض منه أن ينتشر في السوق وأن تعمل به أي مؤسسة، ولكن الغرض منه - كما في مشاريع المواقع العلمية - هو التعلم فقط والوقوف على بعض الطرق المؤدية إلى ذلك

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

ولكن بمشاركتي في هذا المشروع وجدت أن الأمر يسير ولكن يحتاج إلى بعض الجهد والمثايرة، وهذا شيء آخر غير الذي نحن فيه.

والذي يعتقد أن برنامج حسابات ينتهي في هذه الأيام القليلة - لاحظ بداية الإعلان عن المشروع ونهايته - ستعرف أن الأصل فيه التعليم فقط.

اقتباس

وصدمت اكثر عندما احسست من الردود ان الرضا عن المشروع قد تم بشكل كامل وكأنه اصبح جاهزا للعمل في ميدان البرامج المحاسبية

اقتباس

البرنامج الحالي هو حسابي بسيط لشخص يريد ان يبدا بتعلم انشاء برنامج يقوم ببعض الحسابات

اقتباس

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

اقتباس

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

أرجو ألا تنزعج من ردي، وجزاك الله خيرا مرة أخرى.

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