مشروع تسيير مخازن بسيط

ارفق الصور هنا ليتم الاحتفاظ بها أطول مدة ممكنة

طريقة رفع الملفات والصور على شكل مرفقات في المشاركات

بالتوفيق

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

رمضان مبارك لجميع الأمة العربية و الإسلامية أعاده الله علينا باليمن واليسر والبركة

مشكور اخي جاب الله

يبدو أن علي توضيح بعض الأمور قبل البدا

وهنا يجب أن نستعرض البرنامج وليكن ذلك رغم إني عاكف على انجازه ولم انهه لحد الآن بسبب ضيق الوقت

لنبدأ في استعراض نوافذ البرنامج المبدئية والمهام التي يؤديها البرنامج عسى أن يكون هناك تفاعل مع المشروع أكثر

وتذكروا أنها نوافذ مبدئية فقط يمكن أن يكون التغيير في أي جزء منها

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

1- النافذة الأولى عبارة عن نموذج رئيسي بسيط يوصلنا إلى النوافذ الأخرى

2- عبارة عن نموذج لإضافة وتعديل وحذف بالاضافة إلى البحث عن المنتجات

3- عبارة عن نموذج لإضافة تعديل حذف بالإضافة إلى البحث عن الموردين

4- عبارة عن نموذج لإضافة تعديل حذف بالإضافة إلى البحث عن العملاء

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

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

7- إنشاء الفواتير أي السحب من المخزون وهنا سعر الوحدة يصبح في جدول المخزون بعد ذلك سعر البيع

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

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

وفقنا الله وأيكم ورمضان مبارك مرة أخرى

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

يرجى ارفاق المشروع + قاعدة البيانات

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

بالتوفيق

شكرا اخي Swift

سعيد جدا بمشاركتك

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

وساقدم الواجهات + قاعدة البيانات بالتدريج حتى نهاية المشروع ان شاء الله

تحياتي

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

بناء على اقتراح الأخ Swift بطرح الواجهات وقاعدة البيانات

على أن يقوم الأعضاء بالمشاركة أيضا في المشروع ساطرح هذا الموضوع

المطلوب في النافذة الأولى(المنتجات)

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

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

1. ربط TDBedit بجدول Article

2. إضافة الكود اللازم للزر (إضافة) بحيث إذا أضيف منتج بنفس رقم المنتج يقوم البرنامج بإرسال رسالة تفيد بان المنتج موجود مسبقا

3. القيام بإنشاء ما يسمى بدورة الإدخال (Focus) وهو انتقال تركيز المؤشر من عنصر لأخر حسب الحاجة

4. البحث في الجدول باستخدام التعليمة (Locate) وذلك حسب الخيارين الموجودين في القسم بحث

أما بقية الأزرار فهي كالأتي

بالنسبة للزر(تعديل) فنقوم بكتابة الكود التالي

 

begin

if DM.TArticle.RecordCount=0 then

ShowMessage('لا يوجد تسجيلات لا يمكنك التعديل')

else

DM.TArticle.Edit;

end;

بالنسبة للزر(حفظ) فنقوم بكتابة الكود التالي

begin

DM.TArticle.post;

Button1.Enabled:=True;

Button1.SetFocus;

Button3.Enabled:=False;

end;

بالنسبة للزر(حذف) فنقوم بكتابة الكود التالي

begin

if DM.TArticle.RecordCount=0 then

ShowMessage(' لا يوجد تسجيلات لا يمكنك الحذف ')

else

begin

if MessageDlg('هل تريد حذف المنتج فعلا',mtConfirmation,[mbYes,mbno],0)=mryes then

DM.TArticle.Delete

else

DM.TArticle.Refresh;

end;

وهنا كود إضافي للزر إضافة

Button3.Enabled:=True;

Button1.Enabled:=False;Button3.Enabled:=False;

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

أرجو أن لا أكون قد أثقلت عليكم

stock.rar

اقتباس

سعيد جدا بمشاركتك

وأنا اسعد ربنا يكرمك

اقتباس

بناء على اقتراح الأخ Swift بطرح الواجهات وقاعدة البيانات

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

أول مرة اتعامل مع قواعد بيانات غير MySQL - Access ياريت بس طريقة تعريف قاعدة البيانات على المحرك

علشان Unit2.pas بيظهرلى رسالة تفيد يتلقين مكان القاعدة

بالتوفيق

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

أود أن أشارك إخواني في هذا المشروع و أبدأ

- عدم إستعمال مسار ثابت ( قرص + فهرس ) ومادام قاعدة المعطيات في الفهرس الإبن للفهرس البرنامج نكتب التالي

.\data

أي نقطة + \ + إسم الفهرس الإبن

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

اشكرك اختي الكريمة على التوضيح واهلا بك معنا

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

من القائمة database اختر Explorateur

تظهر النافذة التالية

اختر من القائمة Object اختر New

تظهر النافذة التالية اضغط على Ok

اختر اسما جديدا وهنا كما ترى قد اسميته Swift

الوصول الى المسار الموجودة به قاعد البيانات Path وذلك بالضعط على الزر ... بعد ان تكون قد حددت منطقة Path

او بامكانك كتابته المسار مباشرة في Path

ثم اضغط على Ok

ضع مكوني TDataSource وTTable

اربط DataSource ب Table ضع Table1 في الخاصية Dataset

ثم ضع في الخاصية Database name اسم قاعدة البيانات التي انشانها واسمينها Swift

ثم نختار اسم الجدول المطلوب في الخاصية Table name

ثم نفعل الجدول من الخاصية active نختار Treu

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

اتمنى مشاركة فعالة

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

اقتباس

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

جزاك الله كل خير أخى على.ع سوف اقوم بتطبيق هذه الطريقة واخبارك بالنتائج .

بالتوفيق

اقتباس

ثم نفعل الجدول من الخاصية active نختار True

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

الاحسن فتح كل الجداول في DataModule في الحدث OnCreate

  for i := 0 to ComponentCount-1 do
	if( Components[ i ] is TTable )then
	  (Components[ i ] as TTable).Open;

وغلقها في الحدث OnDestroy

  for i := 0 to ComponentCount-1 do
	if( Components[ i ] is TTable )then
	  (Components[ i ] as TTable).Close;

والسلام عليكم

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

هناك بعض الاضافات سنتحدث عنها لحقا لتحسين اداء البرنامج

انا في انتظار مشاركتك اخ swift انتي ايضا اخت Soumia

وارجو ان ينظم الينا اخرون

تحياتي لكم

اين الاعضاء ..................................؟؟ :(

السلام عليكم

رمضان كريم وتقبل الله منا ومنكم الصيام والقيام

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

والرجاء رسم خريطة عمل وبرنامج حتى يكمل البرنامج مع آخر يوم في رمضان لو سمحتم

ويكون البرنامج هدية للعيد

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

اهلا بك امنايلواد ومرحبا بك في المشروع

بخصوص النموذج التصوري والجداول والواجهات موجودة في الصفحة الاولي

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

وان شاء الله ساضع التعديل بعد ذلك

بالتوفيق

اهلا بك

بالنسبة لدلفي 6 او دلفي 7 اوحتى 5 الفرق في برنامجنا هذا غير موجود

ويمكنك تحويل البرنامج الى منظومة صيدلية بكل يسر

ارجو منكم المحاولة فقط والاسراع في ذلك حملوا المرفق وحاولوا

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

ورمضان كريم

علي .ع كتب:

اشكرك اختي الكريمة على التوضيح واهلا بك معنا

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

من القائمة database اختر Explorateur

تظهر النافذة التالية

اختر من القائمة Object اختر New

تظهر النافذة التالية اضغط على Ok

اختر اسما جديدا وهنا كما ترى قد اسميته Swift

الوصول الى المسار الموجودة به قاعد البيانات Path وذلك بالضعط على الزر ... بعد ان تكون قد حددت منطقة Path

او بامكانك كتابته المسار مباشرة في Path

ثم اضغط على Ok

ضع مكوني TDataSource وTTable

اربط DataSource ب Table ضع Table1 في الخاصية Dataset

ثم ضع في الخاصية Database name اسم قاعدة البيانات التي انشانها واسمينها Swift

ثم نختار اسم الجدول المطلوب في الخاصية Table name

ثم نفعل الجدول من الخاصية active نختار Treu

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

اتمنى مشاركة فعالة

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

مالمقصود من اقتباسك اخي الكريم ........................؟؟؟ :(

ياجماعة انتظر منكم مشاركات خصوصا اخت Soumia واخي Swift وهنا انت اكملت مشروعك

السلام عليكم

شكرا لكم على هذا الموضوع الرائع واتمنى المشاركة معكم

عندي سؤال الايمكن المتابعة في البرنامج باستخدام الاكسس

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

في فورم المنتجات

مع انني عرفت الجدول.

وشكرا لكم

يمكن ذلك لكني قصدت البارادوكس لان الاخ Swift قد استخدم الاكسسس في برنامجه

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

تحياتي لكم

للاسف لاتوجد محاولات

المرفق يحتوي على المطلوب

stock.rar

السلام عليكم

اخ علي شكرا لك ولأهتمامك أخبرنا بالمطلوب عملة وسنشارك انشاء

السلام عليكم

أخي الكريم علي فورم المنتجات في المرفق الثاني لاتعمل فعند الضغط على أي زر يعكينا رسالة(رقم المورد موجود مسبقا )

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