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

أخي علي لقد عدلت المرفق , أتمنى أن يكون هذا ماعنيت

تحياتي

تماما هو المطلوب

الان ننتقل الى اخر مرحلة وننبدا

بالبحث بين تاريخين في النموذج الاخير

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

هل المطلوب صعب ؟؟؟؟؟

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

هل يوجد شيئ صحيح فيه ؟؟؟؟؟؟؟؟؟؟ :blush:

Query1.SQL.Clear;

 Query1.SQL.Add('SELECT * FROM stock');

 Query1.SQL.Add('where date_F_C BETWEEN '''+datetostr(datetimepicker1.date)+'''');
 Query1.SQL.Add(' AND '''+datetostr(datetimepicker2.date)+''')');

 Query1.Open;;
end;

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

لا لم ينجح معي أخي علي وكانت هناك محاولات غير هذا الكود , أيضاً لم تنجح

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

في حال أريد البحث عن طريق تاريخ واحد فقط , ماهو الخطأ في هذا الكود

Query1.SQL.Clear;
Query1.SQL.add('select * from stock where date_F_C' = datetostr(datetimepicker1.Date)+'');
Query1.open;

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

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

اكتب في الخاصية SQL للعنصر Query مايلي

Select * from Employees Where hiredate between :d and :f

واكتب في الزر بحث هذا الكود

Query1.Close;
Query1.ParamByName ( 'd').asdate := datetimepicker1.date;
Query1.ParamByName ( 'f').asdate := datetimepicker2.date;
Query1.Open;

وهناك طريقة الفلترة

ويتم ذلك بكتابة الكود التالي في الحدث OnFilterRecord للمكون TTable والذي سميناه TStock

begin  
Accept:= ((TStock.FieldByName('date_f_c').AsDate>=DateTimePicker1.Date)and(TStock1.FieldByName('date_f_c').AsDate<=DateTimePicker2.Date)) 
end;

واكتب في الزر بحث

Filtered := True;

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

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

فيما يخص المثال الأول : هل b,e متغيرات , وماهو نوعها , لأنه يعطيني رسالة المتغير b غير موجود

وفي المثال الثاني : عند التنفيذ توقف البرنامج عند DateTimePicker1 , ماالسبب؟

الان تستطيع ان تقوم بنسخ المثال الاول واستخدمه تم التعديل

واسف مرة اخرى خطا مطبعي

والثاني ايضا خطا مطبعي تم التصحيح نرجو المعذرة

وفقنا الله واياكم اسف مرة اخرى

شكرا أخي علي

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

ناتي اليوم المطلوب من جديد

وهو برمجة الزر بحث حسب الخيار

اخ طلال ارجو منك ان تضع التعديل كلما قمنا بانجاز المطلوب

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

نفس المشكلة إلى الآن أخي علي في المثال الأول

أما في المثال الثاني يتوقف البرنامج هذه المرة عند As Date

اجو منك ارفاق المحاولة

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

هذه هي المحاولة , بالإضافة إلى المطلوب , لكن بقي وصف المادة لاأعرف إن كان قصدك عن الوصف الموجود في الـ dbedit الموجودة أعلى الجدول , لآنها غير مؤيدة في جدول المخزون

بالتوفيق

of_sto2.zip

علي .ع كتب:

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

ناتي اليوم المطلوب من جديد

وهو برمجة الزر بحث حسب الخيار

اخ طلال ارجو منك ان تضع التعديل كلما قمنا بانجاز المطلوب

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

أخ علي أقترح تعريف متحول عام من النوع integer و عند الضغظ على أحد العناصر radiobutton كل عنصر منهم يعطي المتحول قيمة معينة

و نستعين بـ case على الشكل التالي

var
  Form1: TForm1;
  no : integer;

implementation

{$R *.dfm}

procedure TForm1.RadioButton1Click(Sender: TObject);
begin
   no := 0;
end;

procedure TForm1.RadioButton2Click(Sender: TObject);
begin
   no := 1;
end;

procedure TForm1.RadioButton3Click(Sender: TObject);
begin
   no := 2;
end;

procedure TForm1.RadioButton4Click(Sender: TObject);
begin
   no := 3;
end;

procedure TForm1.RadioButton5Click(Sender: TObject);
begin
   no := 4;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
   case no of
   0 : showmessage('you are check the tools number 1');
   1 : showmessage('you are check the tools number 2');
   2 : showmessage('you are check the tools number 3');
   3 : showmessage('you are check the tools number 4');
   4 : showmessage('you are check the tools number 5');
   end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
   RadioButton1Click(Sender);
end;

قمت بإرفاق المثال لتوضيح الفكرة

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

لكني رغبت في المساعدة لو بتقديم فكرة :blush:

أرجو الأستفادة

و السلام ختام

case.rar

لقد عدلت على المرفق السابق , من إجل التقليل من عمل الماوس أرجو أن تتأكدوا منه

أخي روبير ماهو الخطأ في المرفق السابق

talal ibrahim belal كتب:

أخي روبير ماهو الخطأ في المرفق السابق

أي مرفق تقصد أخي طلال ؟؟؟

المرفق الموجود في نهاية الصفحة السابقة الخاص بعملية البحث radiobutton

أخ طلال كانت المشكلة لدي أني لم أكن قد نصبت الـ quick report عندي الأن قمت بتنصيب quick report 5 و المشروع يعمل 100 %

لكني لاحظت في نافذة الطلبيات ان جميع العناصر غير فعالة بإستثناء زري الأضافة و الطباعة و بعض مربعات الأدخل و نفس المشكلة في نافذة المبيعات

فما سبب ذلك ؟

أخي روبير قمنا بذلك من أجل عدم السماح للإدخالات الغير نظامية أو الخاطئة

ولكن عندما تضغط على الزر إضافة ستفتح عندك الخانات بالتتالي

حاول أن تضغط على الزر إضافة . سينتقل الموشر إلى الخانة رقم الطلبية وعندما تأيدها وتأيد التاريخ وتأيد الملاحظات سينتقل المؤشر إلى خانة البحث عن مورد , وهكذا

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

بالتوفيق

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

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

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

والان نتطرق للنقطة ما قبل الاخيرة

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

اقتباس

أخ علي أقترح تعريف متحول عام من النوع integer و عند الضغظ على أحد العناصر radiobutton كل عنصر منهم يعطي المتحول قيمة معينة

و نستعين بـ case على الشكل التالي

اخ روبر لك ان تقترح وان تغيير وتنتقد ما تشاء

وفقنا الله واياكم لما يحب ويرضى

stock.rar

أخي علي وروبير لم تذكروا شيئ عن عملية البحث , هل نعتمدها أو نغيرها

السلام عليكم

أخ علي قمت بعمل التعديل على عملية البحث في نافذة المخزون حسب الطريقة التي كتبتها في مشاركتي السابقة و لكن لم أقم بتعديل اسم الحقل لأني لا أدري ما هو رمز كل حقل في الجدول TStock لذلك تركتها Code_Article أرجو منك تعديلها حسب أسم كل حقل في الجدول في حال تم أعتماد الطريقة أو أعطائي ما ترمز أليه كل من (رقم المنتج - رقم الفاتورة - المواصفات - رقم مورد أو عميل - سعر الشراء - سعر البيع ) و أقوم بتعديلها

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

كل الشكر و الأحترام

و السلام ختام

stock.rar

اقتباس

أخي علي وروبير لم تذكروا شيئ عن عملية البحث , هل نعتمدها أو نغيرها

لا مشكلة اعتمد ما يحلو لك مع انني افضل طريقة الاخ Rober

اقتباس

(رقم المنتج - رقم الفاتورة - المواصفات - رقم مورد أو عميل - سعر الشراء - سعر البيع ) و أقوم بتعديلها

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

اقتباس

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

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

كل التقدير اخوايا الكريمين