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

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

هذا هو المشروع مع قائمة العملاء كما طلبت

stock2.rar

stock.rar

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

مشكور أخ علي على مجهودك

بانتظار المرحلة الثانية إن شاء الله

بالتوفيق

وين الأستاذ علي

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

تحياتي

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

أخ علي كيف تتم إضافة الألوان إلى المفاتيح . كما هو الحال بآخر مرفق أرسلته أنت

شكراً

بالتوفيق

اخ طلال ليست بالالوان وانما هو مكون مظهر XP وهو متوفر في النسخة السابعة لدلفي

واسمه XPManifest وتجده في الصفحة Win32

بالتوفيق

شكراً أخ علي

بانتظار عودتك

تحياتي

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

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

نأتي اليوم على المرحلة الثانية من مشروع تسيير المخزون

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

وارتأيت أن أبدا بالتعريف بالية عمل النموذج حتى يكون الأعضاء في الصورة

سنبدأ بنموذج الطلابيات اليوم

1- المرحلة الأولى تتلخص في إدخال بيانات الطلابية تبعا رقم الطلابية وتاريخها و الملاحظات

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

3- سينتقل المؤشر مباشرة إلى خانة البحث عن المنتجات سيتم البحث عن طريق إما رقم المنتج أو موصفات المنتج وبمجرد الضغط على زر بحث سينتقل المؤشر خانة الكمية في عنصر DBgrid

4- وكما أشرت إليه في المرحلة السابقة سينتظر المؤشر في خانة الكمية في عنصر DBgrid إدخال الكمية المرغوب بها

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

6- ندع هذه الأوامر لحينها إن شاء الله

أتمنى أن أكون قد وفقت في الشرح لإلية العمل

وسناتي على الكثير وقت التطبيق

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

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

الحمد لله على عودتك ياأخ علي

أولاً : في ما يخص الموردين وكي لايكون التعامل مع رقم المورد بل مع اسم المورد مباشرة قمت بعملية ربط . لاأعرف إن كانت هذه الطريقة مناسبة ,أتمنى أن تتأكد منها .

ثانياً : في ما يخص جدول ARticle1 حاولت القيام بالمطلوب لكن الجدول مغلقاً ولم أستطع فتحة حتى ضمن مجلد data لم أجده .

ثم لاإعرف في الحقيقة إذا كانت عملية master\deteal تفي بالغرض أو يجب إضافة query .

قد تكون جميع المحاولات خاطئة .

شكرا لك .

stock2.rar

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

اقتباس

الحمد لله على عودتك ياأخ علي

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

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

ولو انني افضل التعامل مع رقم المورد لانه المفتاح الرئيسي

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

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

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

نعاود مباشرة مشروعنا من جديد

المطلوب

1-ربط المكونات الموجودة داخل المستطيل الاحمر بجدول TAch

2- جعل البرنامج يرسل رسالة في حال تكرار رقم الطلبية

3-انجاز دورة الادخال وانتقال المؤشر بين العناصر الموجودة

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

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

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

هذا هو المطلوب بإذن الله

stock2.rar

بارك الله فيك اخي طلال على المحاولة

لكن هناك بعض الملاحظات

استعمال dbedit في تسجيل التاريخ انا لا احبذه احب دائما استخدام DateTimePicker بدله لانه لا يسمح للمستعمل بالخطا في تاييد التاريخ

وهذا التعديل

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

stock.rar

شكراً أخي علي على توجيهاتك

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

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

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

والانتقال تلقائيا الى خانة البحث عن المنتجات

بالتوفيق

اخي علي هناك ملاحظة وهي من المستحسن دائما ان نستعمل Trim وخاصة في المكونات من مثل TEdit وهذا لتفادي قبول الفرغات .

مثال من البرنامج

procedure TForm3.Button6Click(Sender: TObject);
begin
case RadioGroup1.ItemIndex of
 { إظغط على مفتاح space ثم إظغط على الزر Button6 وسوف ترى النتيجة سوف يتم البحث عن قيمة Space .  }
0:DM.TArticle.Locate('Code_Article',Edit1.Text,[]);
1:DM.TArticle.Locate('Disignation',Edit1.Text,[])
else
ShowMessage('åÐÇ ÇáãäÊÌ ÛíÑ ãæÌæÏ');
end;
end;

ولكن في حالة :

0:DM.TArticle.Locate('Code_Article',Trim(Edit1.Text),[]);
1:DM.TArticle.Locate('Disignation',Trim(Edit1.Text),[])

فلا بحث بقيمة فارغة

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

والله المستعان

مشكور اخي الكريم

اضافة جيدة اتمنى ان تداوم على مثابرتك

لكن اضيف على ما قلت اتمنى ان تضيف رسالة تنبه المستعمل على ان المكون Tedit فارغ ويجب عليه ادخال قيمة

بالتوفيق

ايضا البحث بLocate لا يفرق بين الحروف الصغيرة والكبيرة والخطأ في حرف واحد لايعطي نتيجة وان كانت موجودة

لذلك استخدام الخيار loCaseInsensitive

من

DM.TArticle.Locate('Disignation',Trim(Edit1.Text),[])

الى

DM.TArticle.Locate('Disignation',Trim(Edit1.Text),[loCaseInsensitive])

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

جيد هناك مشاركات جديد

اذا ساحول الكود الى هذا مع اضافة lopartialkey للبحث بجزء من الكلمة

if edit1.Text<>'' then 
DM.TArticle.Locate('Disignation',(Edit1.Text),[locaseinsensitive,lopartialkey])
else
begin
ShowMessage(' عليك ملاء خانة البحث ');
edit1,SetFocus;
end;

اتمنى ان تداومو على المشاركة

لاتستخدم lopartialkey

لانه يعطيك اول قيمة مشابة لكلمة البحث

مثلا تريد البحث عن SHAMP PALMOLIVE

تكتب فقط SHAMP

سيتوقف البحث عند اول سجل

مثلا SHAMP NIVEA FRESH SENSATION

وهو ليس ما تريده

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

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

لذا تجدني لا استعمل locaseinsensitive ولا lopartialkey

وسبب الخطا هو النسخ واللصق

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

بارك الله فيك خونا لعزيز

هناك حل وسط لكن يتعبك قليلا

تاخذ ما في Edit وتفلتر به الجدول وتعرضه في form جديدة والمستخدم يختار ما يريد

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

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

تحياتي

بالنسبة لهذه الواجهة

هذه ما دورها ؟

اضافة طلبية فقط ؟

تعديلها ايضا ؟ ام/ و ماذا ؟

واين يكون الFocus عندما تظهر اول مرة ؟

هجوم بالاسئلة

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