جستجوی همزمان در کمبوباکس

[famarini]

سلام به همه
من می خواستم توی برنامم از این فیلدهایی که یک حرف رو می نویسن بعد خود برنامه همزمان سرچ می کنه و اتوماتیک بقیه کلمه رو پیشنهاد می کنه رو اضافه کنم می خواستم راهنمایی کنید چطوری می شه نوشت.
مثلا یک اسم کامل علی صادقی وقتی ع رو می زنی علی ها لیست می شن بعد ل و ...

ممنون

[mofrad]

یک راهش اینه که در رویداد onchange فیلد اگه بانک اطلاعاتی داری از دستورات Select و Like استفاده کنی.
یک راه دیگه هم اینه که یکسری کلمات پیشنهادی رو داخل یک فایل مثلا متنی ذخیره کنی و از اون فایل جستجو کنی.
اگه راه دیگه ای هست دوستان بگن.

[masood samadi]

سلام


procedure Tform1.ComboboxChange(Sender: TObject);
begin
ADOQuery1.Close.Close;
AdoQuery1.Sql.Text:=
Select * from Table Where NAme Like'+QuotedStr('%'+Combobox1.Text+'%')AdoQuery1.O pen
end



موفق باشید

[famarini]

سلام masood samadi جان
اين كدي كه قرار دادي ظاهرا همه چيزش درسته اما كار نمي كنه لطفا يه بار ديگه بررسي نمائيد.
ممنون مي شم

لطفا اساتيد ياري بدن اين سوال خيلي از بچه هاست

[pezhvakco]

درود :

كدي كه قرار دادي ظاهرا همه چيزش درسته اما كار نمي كنه
درست کار نمی کنه ؟ چه طوری امتحان کردین !
شما برای این کار دو تا کار دیگه باید انجام بدی :
1 - به جای کومبو باکس از یک ادیت برای گرفتن مقدار ورودی استفاد کن.
2 - برای نمایش اطلاعات خروجی کوئری از یک ابزار مانند DBLookupListBox استفاده کنی و اون رو که کوئری ارتباط بدی .

SELECT code, name FROM Table1 WHERE (name LIKE ' + QuotedStr(Edit1.Text + '%') + ' ')

اگه یه جستجوی ساده می کردین خواصته خودتون و یا گفته جناب mofrad (http://barnamenevis.org/forum/member.php?u=39041) رو ، حتما سریعتر جواب می گرفتین .
1 - http://barnamenevis.org/forum/showthread.php?t=214790&highlight=%D9%86%D9%85%D8%A7%DB%8C%D8%B4+%D8%A7%D8 %AF%D8%A7%D9%85%D9%87+%D8%AC%D8%B3%D8%AA%D8%AC%D9% 88
2 - http://barnamenevis.org/forum/showthread.php?t=218869&highlight=%D8%AC%D8%B3%D8%AA%D8%AC%D9%88+%D8%AD%D8 %B1%D9%81
3 - http://barnamenevis.org/forum/showthread.php?t=209924&highlight=%D8%AC%D8%B3%D8%AA%D8%AC%D9%88+%D8%AD%D8 %B1%D9%81
4 - ...

بدرود .

[famarini]

pezhvakco جان سلام از اینکه جوابمو می دی ممنون (http://barnamenevis.org/forum/member.php?u=59994)

من پروژه ای که داشتم تست می زدم رو ضمیمه کردم شما تست کنید و ایراداتشو ممنون می شم رفع کنید.
1- وقتی کلمه کامل می شه کلا کلمه در زیر ادیت پاک می شه.
2- وقتی نام پیدا شد بشه با کلید رو به پائین بشه رفت روش و نام مورد نظر رو انتخاب کرد


ممنون می شم دوستان راهنمایی کنید چون من هر چی کار کردم نتونستم اساتید و دوستان یاری بدن.



(http://barnamenevis.org/forum/member.php?u=59994)

[pezhvakco]

احتمالا مشکل از جستجو در حرف " ی " است .
این مشکل رو یه جستجو کن .

[famarini]

سلام pezhvakco (http://barnamenevis.org/forum/member.php?u=59994) جان
خيلي گشتم هر كسي يه چيزي گفته اما نتونستم اين مشكل ي رو حل كنم لطفا راهنمايي فرمائيد

ممنون

[famarini]

سلام به همه لطفا راهنمایی کنید واقعا گیر کردم ممنون می شم اساتید راهنمایی کنند

[pezhvakco]

من با اکسس کار نکردم .
در پایگاه داده میشه با یک حرف در ابتدای مقدرا ورودی مشکل رو حل کرد ولی در اکسس 2003 کار نکرد یا من نتونستم .
می تونی در بخش اکسس این مشکل رو جستجو یا مطرح کنی .

[mofrad]

سلام pezhvakco (http://barnamenevis.org/forum/member.php?u=59994) جان
خيلي گشتم هر كسي يه چيزي گفته اما نتونستم اين مشكل ي رو حل كنم لطفا راهنمايي فرمائيد

ممنون
این کد شما به صورت زیر دقیق تر کار میکنه. حالا میتونی برای ک عربی هم همینو به کار ببری.
موفق باشی.


if Edit1.text<>'' then
begin
S := Trim(StringReplace(Edit1.Text,'ي','ی',[]));

with ADOQuery1 do
begin
sql.clear;
sql.add('select * from tName where Name like '+#39+S+'%'+#39+' ;');
open;
end;
DBGrid1.Visible:=true;
end

[famarini]

سلام mofrad عزیز از اینکه جواب دادین ممنون


var
s : String;
begin
if Edit1.text<>'' then
begin
s := Trim(StringReplace(Edit1.Text,'ی','ى',[rfReplaceAll]));
with ADOQuery1 do
begin
sql.clear;
sql.add('select * from tName where Name like '+#39+s+'%'+#39+' ;');
open;
end;
DBGrid1.Visible:=true;
end
else
begin
with ADOQuery1 do
begin
sql.clear;
sql.add('select * from tName');
open;
end;
DBGrid1.Visible:=false;
end;
end;یه مقدار تغییر دادم اما هنوز مشکل پا برجاست لطفا کمک کنید

[pezhvakco]

در کد جناب mofrad

S := Trim(StringReplace(Edit1.Text,'ي','ی',[]));
برای جایگزینی حرف " ی " از " ي " استفاده شده که به نظر میاد شما هر دو رو یکسان گرفتی .

s := Trim(StringReplace(Edit1.Text,'ی','ى',[rfReplaceAll]));


Shift + X = ' ي '

[mofrad]

درست میفرمایید. من چون کد رو کپی کردم ي تبدیل به ی شد!!!