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

+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي للعرب التعليمية (https://delphi4arab.net/forum/forumdisplay.php?fid=3)
+--- قسم : سؤال و جواب حول دلفي (https://delphi4arab.net/forum/forumdisplay.php?fid=15)
+--- الموضوع : كود بحث في حقل رقمي (/showthread.php?tid=11893)

كود بحث في حقل رقمي - tahar1983 - 11-04-2022

السلام عليكم


if edit1.Text <>'' then
begin
. adotable2.filter := 'nom like '+ quotedstr(edit1.Text+ '*');
. adotable2.filtered := true;
  end
  else
.adotable2.Filtered := false;

اين يتم التعديل اذا كان نوع الحقل رقمي وليس text

RE: كود بحث في حقل رقمي - larbiparadox - 11-04-2022

(11-04-2022, 03:55 PM)tahar1983 كتب : السلام عليكم


if edit1.Text <>'' then
begin
. adotable2.filter := 'nom like '+ quotedstr(edit1.Text+ '*');
. adotable2.filtered := true;
  end
  else
.adotable2.Filtered := false;

اين يتم التعديل اذا كان نوع الحقل رقمي وليس text

وعليك السلام

غير  like  بـ =  

وحذف +'*'

RE: كود بحث في حقل رقمي - tahar1983 - 11-04-2022

(11-04-2022, 06:08 PM)larbiparadox كتب :
(11-04-2022, 03:55 PM)tahar1983 كتب : السلام عليكم


if edit1.Text <>'' then
begin
. adotable2.filter := 'nom like '+ quotedstr(edit1.Text+ '*');
. adotable2.filtered := true;
  end
  else
.adotable2.Filtered := false;

اين يتم التعديل اذا كان نوع الحقل رقمي وليس text

وعليك السلام

غير  like  بـ =  

وحذف +'*'




  if edit3.Text <>'' then
begin
. adotable1.filter := 'iddbas = '+ quotedstr(edit3.Text')
form1. adotable1.filtered := true;
  end
  else
  .adotable1.Filtered := false;


لم يعمل الكود

if edit3.Text <>'' then
begin
. adotable1.filter := 'iddbas = '+ quotedstr(edit3.Text')
form1. adotable1.filtered := true;
end
else
.adotable1.Filtered := false;

RE: كود بحث في حقل رقمي - larbiparadox - 11-04-2022

(11-04-2022, 06:44 PM)tahar1983 كتب :
(11-04-2022, 06:08 PM)larbiparadox كتب :
(11-04-2022, 03:55 PM)tahar1983 كتب : السلام عليكم


if edit1.Text <>'' then
begin
. adotable2.filter := 'nom like '+ quotedstr(edit1.Text+ '*');
. adotable2.filtered := true;
  end
  else
.adotable2.Filtered := false;

اين يتم التعديل اذا كان نوع الحقل رقمي وليس text

وعليك السلام

غير  like  بـ =  

وحذف +'*'




  if edit3.Text <>'' then
begin
. adotable1.filter := 'iddbas = '+ quotedstr(edit3.Text')
form1. adotable1.filtered := true;
  end
  else
  .adotable1.Filtered := false;


لم يعمل الكود

if edit3.Text <>'' then
begin
. adotable1.filter := 'iddbas = '+ quotedstr(edit3.Text')
form1. adotable1.filtered := true;
  end
  else
  .adotable1.Filtered := false;


.png   Capture d’écran 2022-04-11 221506.png (الحجم : 8.06 ك ب / التحميلات : 15)

لا أعلم هذه أخطاء أو تنسيق النص فقط

يرجى وضع مثال بسيط ليتم تصحيحه

RE: كود بحث في حقل رقمي - Ndagor - 11-04-2022

لاحاجة ل quotedstr مع الارقام و ان كنت تريد مجال فاستعمل < او ¨>,,

كود :
adotable2.filter := 'nom = '+ edit1.Text


RE: كود بحث في حقل رقمي - Lam.Abdeldjalil - 11-04-2022

السلام عليكم
إضافة لما ذكره الأخ larbiparadox
للحقل الرقمي قم بحذف quotedstr

---
Ndagor لم أرى ردك Smile

RE: كود بحث في حقل رقمي - tahar1983 - 12-04-2022

(11-04-2022, 10:55 PM)Lam.Abdeldjalil كتب : السلام عليكم
إضافة لما ذكره الأخ larbiparadox
للحقل الرقمي قم بحذف quotedstr

---
Ndagor لم أرى ردك Smile

ممكن ارفقاق مثال لان التعديل لم ينجح

RE: كود بحث في حقل رقمي - tahar1983 - 12-04-2022

لقد نجح الامر
شكرا جزيلا لكم 
ودمت في خدمة المبتدئين