procedure TFormEmpIndex.edSearchChange(Sender: TObject); begin if edCategory.Text <> '' then begin case edCategory.ItemIndex of 0 : qEmployee.Locate('EMP_NR', edSearch.Text, [loPartialKey, loCaseInSensitive]); 1 : qEmployee.Locate('CONTRACT_NO', edSearch.Text,[loPartialKey, loCaseInsensitive]); else qEmployee.Locate('GIVEN_NAME', edSearch.Text, [loPartialKey, loCaseInSensitive]); end; end; end; mohon bantuannya,,thanks yah,,,

@lukersgn ... mohon diperjelas maksud dan tujuanmu, apa yang diharapkan daro Code yang sudah dibuat atau apa masalah daro Code yang sudah dibuat.. biar rekan-rekan disini lebah enak bantunya ....

mungkin kamsudnya kek gini :

procedure TFormEmpIndex.edSearchChange(Sender: TObject);
begin
if edCategory.Text <> '' then
begin
case edCategory.ItemIndex of
0 : 'SELECT  FROM TABLE ANU WHERE EMP_NR = '+ QuoteStr(edSearch.text)';
 //qEmployee.Locate('EMP_NR', edSearch.Text, [loPartialKey,
//loCaseInSensitive]);
1 : 'SELECT   FROM TABLE ANU WHERE CONTRACT_NO = '+ QuoteStr(edSearch.text)'; 
//qEmployee.Locate('CONTRACT_NO', edSearch.Text,[loPartialKey,
//loCaseInsensitive]);
else
  'SELECT * FROM TABLE ANU WHREE GIVEN_NAME = '+ quoteStr(edSearch.text)';
//qEmployee.Locate('GIVEN_NAME', edSearch.Text, [loPartialKey,
//loCaseInSensitive]);
end;
end;
end; 

edCategory itu text edit atau combobox yah?text edit gak ada property ItemIndex. Saya anggap maksudnya edCategory itu adalah combobox, karena itu yang paling tepat untuk keperluan anda. Kalo gak salah tangkep seh, maksudnya pengen tampilin data di grid berdasarkan informasi yang di isi di edSearch.text untuk kategori yang di definisikan di edCategory. Cara anda sudah benar kok, jadi ada kendala di mana yah? Pastikan saja qEmployee dihubungkan ke grid jadinya hasil dapat langsung di lihat. Kalo saya lebih suka mempergunakan filter, tekniknya sama seh, hanya saja, data yang ditampilkan jadi semakin sedikit. Tapi itu tergantung kebutuhan.

@lukersgn: procedure TFormEmpIndex.edSearchChange(Sender: TObject); begin if edCategory.Text <> '' then begin case edCategory.ItemIndex of 0 : qEmployee.Locate('EMP_NR', edSearch.Text, [loPartialKey, loCaseInSensitive]); 1 : qEmployee.Locate('CONTRACT_NO', edSearch.Text,[loPartialKey, loCaseInsensitive]); else qEmployee.Locate('GIVEN_NAME', edSearch.Text, [loPartialKey, loCaseInSensitive]); end; end; end; mohon bantuannya,,thanks yah,,,