المساعدة في عملية البحث بثلاث حقول

[بورمله]

كيف تبحث في أكثر من حقل بإستخدام تعليمة Locate :

يمكن البحث بإستخدام تعليمة Locate في أكثر من حقل بحيث نبحث عن الموظف حسب حقل الإسم الأول و حقل الإسم الثاني . فإذا كان حقل الإسم الأول F_name والإسم الثاني L_name والقيم في Edit1 و Edit2 على التوالي أمكننا ببساطة كتابة الشفرة التالية :

SQL

if not ClientDataSet1.Locate( 'F_Name;L_Name',vararrayof([edit1.Text,Edit2.Text]),[]) then

showmessage( 'Filed Not Found');

ويتم ذلك بفصل الحقول المراد البحث فيها بفاصلة منقوطة , وفصل القيم بإستخدام الدالة VarArrayOf

[medreg]

المشاركة الأصلية كتبت بواسطة dragon1

كيف تبحث في أكثر من حقل بإستخدام تعليمة Locate :

يمكن البحث بإستخدام تعليمة Locate في أكثر من حقل بحيث نبحث عن الموظف حسب حقل الإسم الأول و حقل الإسم الثاني . فإذا كان حقل الإسم الأول F_name والإسم الثاني L_name والقيم في Edit1 و Edit2 على التوالي أمكننا ببساطة كتابة الشفرة التالية :

SQL

if not ClientDataSet1.Locate( 'F_Name;L_Name',vararrayof([edit1.Text,Edit2.Text]),[]) then

showmessage( 'Filed Not Found');

ويتم ذلك بفصل الحقول المراد البحث فيها بفاصلة منقوطة , وفصل القيم بإستخدام الدالة VarArrayOf

جزاكم الله عنا كل خير
وشكرًا على المساعدة
لكن ارجو وضع الكود بالكامل لو سمحت لأنني لم أتعامل قط بSQL
ارجو وضع الكود كاملاً من فضلك والبحث يتم بما هو موضح في هذا السطر
if not Query1.Locate( 'Chapitre;Groupe;Classe',vararrayof([edit1.Text,Edit2.Text,Edit3.Text]),[]) then
showmessage( 'Filed Not Found');

[بورمله]

المشاركة الأصلية كتبت بواسطة medreg

جزاكم الله عنا كل خير
وشكرًا على المساعدة
لكن ارجو وضع الكود بالكامل لو سمحت لأنني لم أتعامل قط بSQL
ارجو وضع الكود كاملاً من فضلك والبحث يتم بما هو موضح في هذا السطر
if not Query1.Locate( 'Chapitre;Groupe;Classe',vararrayof([edit1.Text,Edit2.Text,Edit3.Text]),[]) then
showmessage( 'Filed Not Found');

اذا كنت تستعمل قاعدة بيانات واحدة لماذا تستعمل query
استعمل dataset1
مثل
procedure TForm1.Button1Click(Sender: TObject);
begin
if not ABSdos1.Locate( 'nom;prenom;boitedos',vararrayof([edit1.Text,Edit2.Text,Edit3.Text]),[]) then

showmessage( 'Filed Not Found');
end;

[medreg]

المشاركة الأصلية كتبت بواسطة dragon1

اذا كنت تستعمل قاعدة بيانات واحدة لماذا تستعمل query
استعمل dataset1
مثل
procedure TForm1.Button1Click(Sender: TObject);
begin
if not ABSdos1.Locate( 'nom;prenom;boitedos',vararrayof([edit1.Text,Edit2.Text,Edit3.Text]),[]) then

showmessage( 'Filed Not Found');
end;

شكرًا جزيلاً لقد وضعت الكود كما اعطيتني اياه
procedure TForm1.BitBtn2Click(Sender: TObject);
begin
if not Table1.Locate( 'Chapitre;Groupe;Classe',vararrayof([edit1.Text,Edit2.Text,Edit3.Text]),[]) then
showmessage( 'Filed Not Found');
end;

لكن المقصود ليس انتقال المؤشر الى السجل
بل اقصد إظهار كل التسجيلات التي تحمل نفس القيم بمعنى
لنفرض انني وضعت في Edit1 = 01 و Edit2 = 01 و Edit3 =01
فاثناء البحث وجد أربع زبائن يحملون نفس القيم كهذا المثال :

الزبون المسمى محمد يحمل رقم الباب 01 ورقم الفصل 01 ورقم الصنف 01
الزبون المسمى علي يحمل رقم الباب 01 ورقم الفصل 01 ورقم الصنف 01
الزبون المسمى كرم يحمل رقم الباب 01 ورقم الفصل 01 ورقم الصنف 01
الزبون المسمى اسماعيل يحمل رقم الباب 01 ورقم الفصل 01 ورقم الصنف 01

إذا المطلوب هو إظهار هذه الزبائن الأربعة فقط في DBGrid وإخفاء الباقون
وعندما انتهي من الهدف يجب إظهار كل السجلات
هذا ما قصدته وجزاكم الله عنا كل خير