سؤال عن منظومة

وضحي السؤال لوسمحتي يا اختاه

لدينا حقول في المنظومة مثل رمز المادة ،اسم المادة،الصنف ،الوحدة و التعبئة وغيرها في form1 وهي مثلا فاتورة بيع

قمت بعمل جدول مساعد لاسم المادة والرمز والصنف في form2 بحيث يتم ادخال رموز واسماء المواد والاصناف في هذه الفورم

وعندما يقوم المستخدم في الفورم 1 بكتابة رمز المادة يتم عرض اسم المادة وصنفها المقابل له

لكي ازيد اوضح مثلا ندخل في الفورم 2 الرمز هو1.1 اما الاسم هو مكيف والصنف كهربائي فعندما نقوم بكتابة في الفورم1 في الرمز 1.1 يتم عرض الاسم مكيف وكذلك الصنف هل بجملة sql مع العلم جميع الحقول dbedit اي حتى العرض في dbedit

اريد كيفية عمل هذا الشيء وإن شاء الله السؤال واضح لانني لم اعرف ان اشرحه جيدا

شكرا السؤال واضح

في الحقيقة انت محقة من الافضل استخدام الSQL

ولكن لا افضل استخدام المكونات dbedit لمشاكلها الكثيرة

احبذ استخدام المكونات edit

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

Query2.SQL.Clear;
      Query2.SQL.Add('select MyGoods.GoodsCost,MyOrdersMyGoods.GoodsCode  from MyGoods,MyOrdersMyGoods');
      Query2.SQL.Add('where MyGoods.GoodsCode=MyOrdersMyGoods.GoodsCode');
Query2.SQL.Add('and MyOrdersMyGoods.OrdersCode='+Edit1.Text);
      Query2.Active:=true;

اتمنى ان اكون قد قمت بالتوضيح

بالنسبة لسؤال البحث , إذا لم تريدي التعقيد مع SQL من الممكن استخدام الدالة البسيطة Locate ستجدين الكثير من المعلومات الممتعة عنها ...

ببساطة هذه الدالة تتولى عنك عملية البحث بالكامل :

table1.locate('field_name',edit1.text,[]);

حيث edit هو النص الذين تضعين فيه القيمة التي تريدين البحث عنها , و Field_name هو الحقل الذي تريدين البحث به

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If (Key=#13)And (Edit1 . Text <>'') Then
  Begin
    With  Query1 Do
      Begin
        Close;
         SQL . Clear;
         SQL . Add('select* from employee  ');
         SQL . Add('Where EmpNo = '+QuotedStr(Edit1 . Text));
        Open;
         If Eof Then
          Begin
            Close;
            Edit2 . SetFocus;
          End
         Else
          Begin
            Edit2 . Text := FieldByName('LastName') . AsString;
            Edit3 . Text := FieldByName('FirstName') . AsString;
            Edit4 . Text := FieldByName('PhoneExt') . AsString;
            Edit5 . Text := FieldByName('Salary') . AsString;
            Edit2 . SetFocus;
          End;
      End;
  End
end;
end.

:rolleyes: :rolleyes:

ممتاز . صحيح دع الخيزللخباز ولو اكل نصفه

كنت متاكدا يا سيف الدين ان المنظومات مالها إلا انت

ولو لم تتاخر امس لما تدخلت اساسا

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

وعلى كل حال شكرا والله يبارك الجميع

الحمد لله تنفذ الكود وشكرا

لو كان هذا الشيء مع dbgrid ومقسمة لعدة حقول بمجرد الكتابة في العمود الاول تعرض باقي الحقول في الاعمدة الاخري نفس السؤال السابق لكن dbgrid يعني العمود الاول رمز المادة عندما اضغط enter تملا الاعمدة الاخرى لها مثل اسم المادة والصنف المقابل لها في الحقيقة هناك خاصية columns بس ماعرفت التعامل معها جيدا

وشكرا للجميع :rolleyes:

هكذا تصبح صعبة قليلا ..

أنا برأيي أبقي على البحث عن طريق Edit لكي تريحي رأسك

بالامكان وضع combobox تحوي اسماء الحقول التي يمكن البحث بها , وعند الحبث بتعليمة locate نقرأ اسم الحقل منها , وبالتالي يستطيع المستخدم البحث حسب الاسم أو الرقم أو الراتب أو غيرها حسب اختيار المستخدم

شكرا للجميع