Arsip: menampilkan selected data di datagrid menggunakan textedit

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,,,

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 ....

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;

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
reply |
Report Obsolete
Last Articles
- Project Group dalam Lazarus
- FastPlaz Database Explorer
- Release: FastPlaz Super Mom v0.12.22
- PascalClass #3: Web Development with Free Pascal
- Makna Pascal di Pascal Indonesia
- Kulgram : Instalasi Lazarus di Perangkat Berbasis ARM
- PascalClass #1: Analisa Database dan Machine Learning
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
- Mengenal OXYGENE – Pascal For .NET
- PascalTalk #5: UX: Research, Design and Engineer
Last Topic
- PascalTalk #6: (Podcast) Kuliah IT di luar negeri, susah gak sih?
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #5: UX: Research, Design and Engineer
by LuriDarmawan in Tutorial & Community Project more 3 months ago - PascalTalk #4: Obrolan Ringan Seputar IT
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #2: Membuat Sendiri SMART HOME
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #3: RADically Fast and Easy Mobile Apps Development with Delphi
by LuriDarmawan in Tutorial & Community Project more 4 months ago - PascalTalk #1: Pemanfaatan Artificial Intelligence di Masa Covid-19
by LuriDarmawan in Tutorial & Community Project more 4 months ago - Tempat Latihan Posting
by LuriDarmawan in OOT more 1 years ago - Archive
- Looping lagi...
by idhiel in Hal umum tentang Pascal Indonesia more 8 years ago - [ask] koneksi ke ODBC user Dsn saat runtime dengan ado
by halimanh in FireBird more 8 years ago - Validasi menggunakan data tanggal
by mas_kofa in Hal umum tentang Pascal Indonesia more 8 years ago
Random Topic
- Mengankat Kembali UI (User Interface) dari @Simba
by saysansay in Tip n Trik Pemrograman more 13 years ago - Store Procedure Seaching
by sp1d3r_n3tz in MsSQL more 13 years ago - notebook ACER gratis man
by dinox in OOT more 14 years ago - enkripsi image
by wedhee04 in Tutorial & Community Project more 11 years ago - [ask] Button dalam DBgrid
by kepiss in Tutorial & Community Project more 8 years ago - PostgreeSQL
by yayaretina in Lain-lain more 12 years ago - label pake timer
by delphi_tikuzz in Multimedia & Graphic Enhancement more 13 years ago - CSS di delphi 2006
by juandon in Delphi.NET more 12 years ago - command copy?
by benyy in Tip n Trik Pemrograman more 14 years ago - Borland Kylix Linux
by palinggi in Hal umum tentang Pascal Indonesia more 14 years ago