الانتقال الى المشاركة

Primary: Sky Slate Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate Marble
Secondary: Sky Slate Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate Marble
Pattern: Blank Waves Squares Notes Sharp Wood Rockface Leather Honey Vertical Triangles
مرحبا بك في منتديات ابن خلدون التعليمية

أهلا وسهلا بك زائرنا الكريم، و يشرفنا أن تقوم بالتسجيل إذا رغبت بالمشاركة في المنتدى، أما إذا رغبت بقراءة المواضيع والإطلاع فتفضل بزيارة القسم الذي ترغب أدناه.


تسجيل الدخول التسجيل الآن



صورة

الـــدالة Locate وكيفية البحث


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

#1
غير متصل   sabre

sabre

    Advanced Member

  • الأعضاء
  • Pip Pip Pip
  • 54 المشاركات
  • البلد: Country Flag

بسم الله الرحمن الرحيم
الصلاة والسلام على رسول الله وعلى آله وصحبه أجمعين

الـــدالة Locate وكيفية البحث

الدالة "Locate" تستطيع أن تبحث بها في أي قاعدة بيانات كانت,
سوى كان الحقل مفتاح أولا

وهي تقف عند أول اسم تجده في قاعدة البيانات,
وهي دالة منطقية "Boolean" ترجع القيمة
صح أو خطأ true or false ,
أقصد أنه في حالة تم العثور على المبحوث عنه يتم الحصول عل القيمة true
والعكس false

المثال:

procedure TForm1.Button1Click(Sender: TObject);
begin
if Table1.Locate('Nom',Edit1.Text,[])then
ShowMessage('موجود') else ShowMessage('غير موجود');
end;

البحث بكلمة أو جزء من كلمة

procedure TForm1.Button2Click(Sender: TObject);
begin // البحث بكلمة أو جزء من كلمة
if Table1.Locate('Nom',Edit1.Text,[loPartialKey]) = true then
ShowMessage('موجود') else ShowMessage('غير موجود');
end;

سوى كانت الحروف كبيرة أوصغيرة

procedure TForm1.Button3Click(Sender: TObject);
begin // سوى كانت الحروف كبيرة أوصغيرة
if not Table1.Locate('Nom',Edit1.Text,[loCaseInsensitive])then
ShowMessage('غير موجود') else ShowMessage('موجود');
end;

procedure TForm1.Button4Click(Sender: TObject);
begin
if Table1.Locate('Nom',Edit1.Text,[]) = false then
ShowMessage('غير موجود') else ShowMessage('موجود');
end;

البحث برقم واسم

procedure TForm1.Button5Click(Sender: TObject);
begin // البحث برقم واسم
if Table1.Locate('Code;Nom', VarArrayOf([StrToInt(Edit1.Text), Edit2.Text]),
[loCaseInsensitive, loPartialKey])then
ShowMessage('موجود') else ShowMessage('غير موجود');
end;

البحث برقم وكلمتين منفصلتين

procedure TForm1.Button6Click(Sender: TObject);
begin // البحث برقم وكلمتين منفصلتين
if Table1.Locate('Code;Nom;Prenom',
VarArrayOf([StrToInt(Edit1.Text), Edit2.Text, Edit3.Text]),
[loCaseInsensitive, loPartialKey])then
ShowMessage('موجود') else ShowMessage('غير موجود');
end;






عدد المتواجدون الآن فى الموضوع : 0

0 الأعضاء, 0 الزوار, 0 الأعضاء المجهولين