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

القيم صحيحة أخي روبير

احتمال ان يكون هذا هو الخطا ء

وهناك احتمال اخر ايضا

V1 V2 V3 من النوع string اتوقع ان يكون منها

else
begin
DM.Article2.First;
while not DM.Article2.eof do
begin
DM.TStock.Filtered:=False;
DM.TStock.Filter:='Code_Article='+DM.Article2Code_Article.Text;
DM.TStock.Filtered:=True;
Query1.SQL.Clear;
Query1.SQL.Add('select Code_Article,Qts_f , pu_f , mon_f  from Stock1');
Query1.Open;
Query1.Filtered:=False;
Query1.Filter:='Code_Article='+DM.Article2Code_Article.Text;
Query1.Filtered:=True;
Query1.Last;
DM.TStock.Append;
DM.TStock.FieldByName('N_Fact_Bon').Value:=StrToFloat(DBEdit1.Text);
DM.TStock.FieldByName('Date_F_C').Value:=DateTimePicker1.Date;
DM.TStock.FieldByName('Code_Cli_four').Value:=StrToFloat(Edit1.Text);
DM.TStock.FieldByName('Remarque').Value:=DBEdit2.Text;
DM.TStock.FieldByName('Qts_si').Value:=Query1.FieldByName('Qts_f').Value;
DM.TStock.FieldByName('Pu_si').Value:=Query1.FieldByName('Pu_f').Value;
DM.TStock.FieldByName('MOn_si').Value:=Query1.FieldByName('MOn_f').Value;
DM.TStock.FieldByName('Qts_e').Value:=DM.Article2.FieldByName('Quantite').Value;
DM.TStock.FieldByName('Pu_e').Value:=DM.Article2.FieldByName('Prix_d_Achat').Value;
DM.TStock.FieldByName('MOn_e').Value:=DM.Article2.FieldByName('Quantite').Value * DM.Article2.FieldByName('Prix_d_Achat').Value;
DM.TStock.FieldByName('Code_Article').Value:=DM.Article2.FieldByName('Code_Article').Value;
DM.TStock.FieldByName('Qts_f').Value:=DM.TStock.FieldByName('Qts_si').Value +DM.TStock.FieldByName('Qts_e').Value;
DM.TStock.FieldByName('Pu_f').Value:=DM.TStock.FieldByName('Pu_si').Value+DM.TStock.FieldByName('Pu_e').Value;
DM.TStock.FieldByName('MOn_f').Value:=DM.TStock.FieldByName('MOn_si').Value +DM.TStock.FieldByName('MOn_e').Value;
DM.TStock.Post;
DM.TStock.Filtered:=False;
Query1.Filtered:=False;
DM.Article2.Next;
end;
end;

اخ طلال يمكن استبدال هذا الكود بالجزء الثاني من الكود الذي قدمته المرة الماضية

واحذف V1 V2 V3 ليتسنى لي التاكد

كما عليك ان تمسح الكود الذي كتبته في BeforeInsert للجدول TStock

واضف Query للنافذة طلبيات

اتمنى ان توفق هذه المرة وان ترفق المشروع

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

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

اخ طلال اتمنى ان تكون قد وصلت الى المطلوب

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

المطلوب في هذه المرة

انشاء تقرير للطلبيات

بالتوفيق ان شاء الله

stock.rar

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

شكراً أخي علي

ولكن قبل أن نبدأ في التقرير

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

ولم أستطع الإستفادة من المرفق , فورم المخزون غير ظاهر في view form ومقفل أحيانا يخبرني بأن رقم المنتج غير موجود

stock1.rar

المشكلة في الجدول Tstock

وهو غير مفعل المهم قمت بتغيير المرفق يمكنك تحميله الان

يمكنك القيام باعداد التقرير الان

موفق ان شاء الله

اقتباس

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

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

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

اسماء الحقول مكتوبة باللغة اللاتنية وليس بالعربية ولكي تظهر لك العربية قم بالتالي

من القائمة ابدا (démarrer) لوحة التحكم (Panneau de configuration) ثم اختر اعدادات اقليمية (Option Régionales) كما هو موضح في الصورة

لتظهر الصورة النافذة التالية اختر خيارات متقدمة (Options Avancées) كما هو موضح في داخل المستطيل رقم واحد

اخيرا اختر كما هو في المستطيل رقم 2

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

حينها سيطلب رسالة باعادة التشغيل وعند البدا ستلاحظ ان بمقدورك الكتابة باللغة العربية لكن هنا ايضا لن يشتغل Data Module

حتى ترجع للاعدادت الفرنسية

لكن هناك حل

عليك ان تغيير في بداية تنصيب دلفي على جهازك كما هو موضح في الصورة

غيير العبارة داخل المستطيل وهي (données) الى (donnes) وان شاء الله ستستخدم Data Module حتى ان كانت اعدات اللغة بالعربية

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

شكرا جزيلا وجاري تجربة الحل

ليس هناك محاولات مالذي جرى اخ طلال

اين محاولتك

أسف على التأخير أخ علي

لقد نصبت Quag report ولكن لاأعرف لماذا لايعطيني النتائج

وبقيت عندي مشكلة هي في Quary فإذا بقي أسمها arabteam فهي لاتعمل ولاأستطيع إدخال العمليات إلى المخزون , وإن غيرت تسميتها إلى Data\. يعطيني رسالة الخطأ السابقة

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

بالتوفيق

هذه محاولة

ليست كاملة , لا أعرف ما هو العمل لعرض جميع حقول dbgrid

stock.zip

شكرا اخ طلال على المحاولة

اقتباس

وبقيت عندي مشكلة هي في Quary فإذا بقي أسمها arabteam فهي لاتعمل ولاأستطيع إدخال العمليات إلى المخزون , وإن غيرت تسميتها إلى Data\. يعطيني رسالة الخطأ السابقة

حسننا اعدك اني ساقدم دراسا نتعرف من خلاله على طريقة استخدام BDE

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

طريقة الربط موجودة في الصفحة الاولى

اقتباس

لقد نصبت Quag report ولكن لاأعرف لماذا لايعطيني النتائج

لم اتووقع انك ستستخدم QReport لكن لا مشكلة لقد نصبته توا وسنعمل عليه

وساقدم التعديل غدا ان شاء الله

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

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

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

وقمت بربط جميع الجداول , وكلها تعمل بشكل جيد, إلا عند الإدخال إلى جدول المخزون يعطي هذه الرسالة

شكرا لك

أخي علي

الحمد لله حلت المشكلة

لقد كان الخطأ , في جملة SQL اسم جدول المخزون Stoak1 ولكن اسمه في data moudel هو stock كما هو واضح في رسالة الخطأ

ولكن هذا لن ينجيك من وعدك بالدرس حول BDE

بارك الله بك وألف شكر لك

بانتظارك

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

الحمد لله ارايت ليس بالامر الصعب

واسف لان لم انتبه اني استعمل في جدول المخزون جدول باسم stock1

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

المهم يبدو انك استعملت مكون QReport 5 ولم تستعمل QReport المرفق مع دلفي 7

ليس مهما لقد انجزت التقرير برؤيتك والتعديل موجود في المرفق

الان ناتي الى النقطة الموالية

الغاء تفعيل كل GroupBox الموجودة في النموذج

وهي التنقل بين مكونات GroupBox الموجودة في النموذج مع الغاء تفعيل الذي قبله

لننتقل بعد ذلك الى المرحلة الموالية وهي الفواتير

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

stock.rar

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

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

بالتوفيق

stock.zip

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

ليس في التقارير فحسب

أخ علي

لاأعرف إن كنت فهمت المطلوب بالشكل المناسب

هذه محاولة

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

ملاحظة في جدول المخزون سعر الوحدة يساوي السعر الإجمالي , قمت بتعديلة , لاأعرف إن كان تصرفي صحيح

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

بالتوفيق

stock.zip

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

هو المطلوب اخ طلال لكن هناك بعض التعديلات الطفيفة

الان نستطيع ان نبدا في انجاز نموذج الفاتورة

stock.rar

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

أخي علي , هناك مشكلة جديدة لم نتبه لها , أيضاً عند إدخال منتج جديد إلى جدول المنتجات وأردنا إدخالة إلى المخزون , فإنه ينتقل إلى المدخلات فقط

ولاينتقل إلى المخزون الأولي , والمخزون النهائي,

ولكن بعد أن عدلت كود سعر الوحدة في المحزون النهائي أصبح ينتقل سعر الوحدة فقط . :S :S :S

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

الان فهمت قصدك تم التعديل على المشروع

عذرا مرة اخرى

stock.rar

المرفق نفسه الذي أرسلته أنت من قليل

أنا غيرت في السطر قبل الأخير الخاص بسعر الوحدة للمخزون , بدلا من أن يكون يساوي سعر الوحدة في المدخلات +سعر الوحدة في المخزون الأولي

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

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

ولكن أخ علي حاول أن تدخل منتج جديد إلى جدول المنتجات , ثم حاول إدخاله إلى المخزون

والمرفق الأخير هو نفسه لم أغير به شيء

talal ibrahim belal كتب:

المرفق نفسه الذي أرسلته أنت من قليل

أنا غيرت في السطر قبل الأخير الخاص بسعر الوحدة للمخزون , بدلا من أن يكون يساوي سعر الوحدة في المدخلات +سعر الوحدة في المخزون الأولي

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

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

ولكن أخ علي حاول أن تدخل منتج جديد إلى جدول المنتجات , ثم حاول إدخاله إلى المخزون

والمرفق الأخير هو نفسه لم أغير به شيء

شكراً أخي علي

إذا ً الأن الفواتير

بالتوفيق إن شاء الله

العفو اخ طلال

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

اتمنى لك التوفيق في هذه الخطوة

أخي علي هنا سنستخدم جدول article2 , أليس كذلك كونه لايحوي بيانات محفوظة

أم بحاجة إلى جدول Article جديد ,

سؤال: Daticle2 , Darticle3 مرتبطان بالجدول Article2 , هل هذا له علاقة إذا كنا سنستخدم الجدول الفواتير والطلبيات

بالتوفيق إن شاء الله