كيفية البحث تلقائيا في Edit

اقتباس

أني قمت بكتابة كود البحث على الحدث onkeypress لكن هده الطريقة بطيئا جدا

استخدم onkeychange بدل من :wink: onkeypress.

أشكرك على الرد السريع لموضوعي و لكني جربة استخدام كل الاحداث تقريبا و يبقي عندي مشكلة البطء التي تسبب مشكلة في سرعة عملية البحث

أنت قلت:

اقتباس

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

فالحدث onkeychange يحدث مرة واحدة فقط بعد انتهاء ادخال المحارف من قارئ الباركود.

بالنسبة للبطء, هل من الممكن ان تضع لنا الكود الذي استخدمته لعملية البحث؟

قاعدة البيانات أكسس تصبح بطيئة بشكل مطرد كلما زاد حجمها في البداية تأكدي من أن الحقل number عليه مفتاح أساسي و حاولي في تصميم قاعدة البيانات أن تستخدمي أعلى مستوى Normalization ممكن مع كتابة القيود المناسبة.

لاداعي للصراخ أخي الكريم

المشكلة أنك تملأ الكويري في كل مرة يتغير محتوى الإيديت وهذا ما يجعل البحث ياخذ وقتا طويلا

الأفضل أن تفتح الكويري مع فتح النافذة وتستخدم Filter بعد تمرير ماتريد البحث عنه تحياتي

بالتفصيل

عند فتح الفورم

procedure Tform1.FormCreate(Sender: TObject);
begin
	 Query1.sql.Text('select * from product ');
end;

وفي حدث التغيير للإيديت

procedure Tform1.(ُEdit1(Sender: TObject);
 var
 i:integer;
 str:string;
 begin
	  if (ُEdit1.Text<>'') then
	  begin
		   str:='';
		   if (Query1.FieldCount)>1 then
		   begin
				for i:=0 to Query1.FieldCount-2 do
					Str:= Str+Query1.Fields.FieldName + ' like ''*' + ُEdit1.Text+'*'' or ';
		   End;
		   Str:=Str+ Query1.Fields[Query1.FieldCount-1].FieldName + ' like ''*' + Edit1.Text+'*''';
		   Query1.Filter:=Str;
		  Query1.Filtered:=true;
	  End;
 end;

الكود السابق يقوم بالبحث في كافة الحقول بالجدول والفلترة علي السجلات التي بها القيمة بأي حقل من الحقول.

تحياتي

جميل TopSec, هذه هي المشكلة الرئيسية:

اقتباس

المشكلة أنك تملأ الكويري في كل مرة يتغير محتوى الإيديت وهذا ما يجعل البحث ياخذ وقتا طويلا

الأفضل أن تفتح الكويري مع فتح النافذة وتستخدم Filter بعد تمرير ماتريد البحث عنه تحياتي

اقتباس

الكود السابق يقوم بالبحث في كافة الحقول بالجدول والفلترة علي السجلات التي بها القيمة بأي حقل من الحقول.

لا تنسى تعديل الكود للبحث في الحقل الذي تريد البحث فيه, وليس كافة الحقول.

TopSec كتب:

المشكلة أنك تملأ الكويري في كل مرة يتغير محتوى الإيديت وهذا ما يجعل البحث ياخذ وقتا طويلا

الأفضل أن تفتح الكويري مع فتح النافذة وتستخدم Filter بعد تمرير ماتريد البحث عنه تحياتي

كون المستخدم يستخدم قارئ باركود فلا أظن أن هذه هي المشكلة إذ أن القارئ يدخل الشريط المحرفي دفعة واحدة بما يكافئ:

EditCode.Text := 'C10236';

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

كم الإجرائات التي تحدث على الكويري من تفريغ وإعادة ملأ مرة أخرى وغلق وفتح وخلافه في كل مرة يسحب الباركود ....

لايوجد مجال للشك في أن الفلترة أسرع طرق البحث ... ;)

تحياتي

ماهو الكود الذي كتبته يا أخي الكريم ... ؟

هل قمت بالتعديل فيه ليناسب إحتياجك؟

ماهي رسالة الخطا التي تظهر لك؟

Filter هو خاصية في الكويري تماثل كلمة where في جملة SQl ... وخاصية filter يتم تمرير String لها يعادل ما بعد كلمة Where وفي حالتك هنا ستكون

Query1.Filter := 'number='+(edit1.text)+'''

وبعد تعيين قيمة الفلتر تقوم بتفعيله بواسطة الخاصية الأخرى Filterd

Query1.Filtered:=true;

تحياتي

السلام عليكم اردت التعقيب على هذا الموضوع اريد البحث بجزء الكلمة من خلال كويري وفلتر كتبت الكود الآتي ولم يفد ADOQuery1.filter := 'classname like '+QuotedStr(edit1.text+'%');

ADOQuery1.Filtered:=true;

كتبته في adotable تم التنفيذ ولكن المشكلة لما امسح الصنف تظهر رسالة خطأ .. استخدمت جمل sql وحدها ولكن مشكلة لما في الحدث onchange كل لحظة تفتح وتغلق الكويري ويظهر الbdgrid بالتقطيع .. وبالنسبة للاخ tppsec الجملة التي كتبها لم افهمها ولم تنفذ Query1.Filter := 'number='+(edit1.text)+'''

.. ارجو المساعدة مع الشكر كيف يتم استخدام الكويري مع الفلتر ...انتظر اجوبة من الاعضاء والسلام

السلام عليكم : ارفقت المثال الذي انزلته أنت ... ارجو ان تخبرني هل يمكن عمل هذا مع adoquery خاصة لما يكون من النوع details .. اتمنى لو توضح لي في المرفق ولك جزيل الشكر

fil.rar

السلام عليكم

اخي الفترة تصلح مع ادو بالطريقة التالية

في المثال السابق غير السطر التالي ب

 

      table1[color= #339933;].Filter[color= #339933;]:=[color= #0000ff;]'NAME='[color= #0000ff;]''[color= #339933;]+edit1[color= #339933;].text[color= #339933;]+[color= #0000ff;]'*'[color= #0000ff;]''[color= #339933;];

      ADOQuery1[color= #339933;].Filter[color= #339933;]:=[color= #0000ff;]'( NAME LIKE '[color= #0000ff;]'' [color= #339933;]+ edit1[color= #339933;].text [color= #339933;]+ [color= #0000ff;]'%'[color= #0000ff;]')'[color= #339933;];

ارجوا انه ما تريده

السلام عليكم :

بارك الله فيك يا اخ زكيري وتسلم ... نجحت مع ال ado مية بالمية ولكن المشكلة لما استخدم النجمة تظهر رسالة خطأ كيف يمكن أنني استخدم النجمة قبل وبعد ال edit وجزالك الله الف خير وشكراً

طبعاً النجمة أو النسبة المئوية لا تنجح وشكراً

السلام عليكم: نجحت العملية في adoquery ولكن لما يكون ماستر ديتيلز يعني المكان اللي اريد ابحث بي يكون details لا تنجح العملية تقول

adoquery filter proprties cannot be used for details tables

ارجو مساعدتي لان الموضوع بدا يكبر

salma miladi كتب:

أشكركم على التواصل مع موضوعي

وهدا الكود :

with Query1 do

begin

if edit1.text = '' then

exit

else

begin

sql.clear;

close;

sql.Add ('select * from product where number='+(edit1.text)+''); //

open;

if Not isempty then

begin

edit2.text:=fieldbyname('proname').asstring ;

ComboBox1.text:= fieldbyname('proname').asstring;

end

else

begin

edit2.text:='';

ComboBox1.text:='';

end;

end;

لا داعي لهذه الغلبه كلها إستخدم البحث في الكوري او الملف الرئيسي بإستخدام في onchange

salma miladi كتب:

السلام عليكم

:angry:

أين انتم يااعضاء المنتدي ,توقعت ان تكون المشاركات أكثير من كدا ,لم أجد حل لمشكلتي بعد

موجودين ياأختي ولكن إنتي وين هنا أربعة ردود من الأخوة المشاركين وإنت ولا شيء

إذا كنت ترغبين حل مشكلتك فالنأخذها خطوه خطوه وتجربين ثم إشعارنا

بما آلت اليه التجربه وسنواصل حتى ترضين عن كافة الأعضاء

تحياتي