Arsip: menampilkan selected data di datagrid menggunakan textedit

 
user image
more 9 years ago

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,,,
user image
more 9 years ago

elva_ivana

@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 ....
user image
more 9 years ago

madi

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; 
user image
more 9 years ago

iwancs

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,,,
more ...
  • Pages:
  • 1
Share to

Random Topic

Local Business Directory, Search Engine Submission & SEO Tools FreeWebSubmission.com SonicRun.com