مساعدة عاااجلة :اريد يكون البحث في combox مثل جوجل (مرفق الفورم) لما يعمل down

Xsearch.rar

 

اين العباقرة

 

؟؟

السلام عليكم

راجع هذا اللينك:

 

http://www.araboug.org/ib/index.php?showtopic=46728&hl=%D8%AC%D9%88%D8%AC%D9%84

شكرا اخي على تجاوب الدائم معنا ولكن لم يعمل معي حيث معي ديفلوبر 6i

السلام عليكم

راجع هذا اللينك:

 

http://www.araboug.org/ib/index.php?showtopic=46728&hl=%D8%AC%D9%88%D8%AC%D9%84

اخي  Ahmad.Hasan  لماذا لم يعمل الفورم على form bulder6i

السلام عليكم

سأرفق لك الأكواد الموجوده في الشاشة:

 

1- WHEN-NEW-FORM-INSTANCE:

 

 

et_item_property('ll',width,0);
set_item_property('l',navigable,property_true);
set_item_property('l',next_navigation_item,'ll');


:GLOBAL.T1:='Search Form';
 

2- قم بإنشاء List من نوع Combo Box، وعرف عليها ترجر: WHEN-LIST-CHANGED:

 

 

 

set_item_property('ll',width,128);
declare
v1 recordgroup;
v2 number(10);
begin
v1:=find_group('tito');
if not id_null(v1) then
delete_group('tito');
end if;
:parameter.p:=:b.l||'%';
v1:=create_group_from_query('tito','select ename,to_char(ename) from emp where ename like :parameter.p');
v2:=populate_group(v1);
populate_list('ll','tito');


end;
 

 

3- قم بإنشاء List من نوع TList، وعرف عليها الترجرات التالية:

 

* WHEN-VALIDATE-ITEM:

 

 

 

:system.message_level:='25';
:l:=:ll;
set_item_property('ll',width,0);
 

* WHEN-MOUSE-DOUBLECLICK:

 

 

 

:l:=:ll;
set_item_property('ll',width,0);
 

 

* WHEN-LIST-CHANGED:

 

 

 

:l:=:ll;
set_item_property('ll',width,128);
 

 

4- قم بإنشاء براميتر بإسم P

 

5- قم بأنشاء زر وبداخل ترجر WHEN-BUTTON-PRESSED إكتب:

 

 

et_item_property('ll',width,0);
declare
v1 varchar2(50);
begin
v1:='ename=:b.l';


set_block_property('emp',default_where,v1);
go_block('emp');
execute_query;
end;
 

 

بالتوفيق.

 

 

الف الف شكر لك اخي احمد

اش تقصد ب tito