Menampilkan data dengan filtering
1. Buat form baru
2. Tempelkan komponen : DBGrid,DBCOmboBox,Database,Query
3. Tambahkan komponen Button pada disebelah DBComboBox
4. Isi data pada pilihan DBCOmboBox dengan data dari tabel jurusan. Ketika perintah pada FormCreate:
void __fastcall TForm1::FormCreate(TObject *Sender)
{
//untuk mengisi DBCOmboBox dengan data berasal dari tabel jurusan
//baca data dari tabel
Query1->SQL->Clear();
Query1->SQL->Add("select * from jurusan");
Query1->Open(); ß eksekusi untuk mengambil data dari tabel buku
Query1->First();ß tempatkan pointer pada recored ke-1
//tempelkan ke ComboBox
while(!Query1->Eof)
{
DBComboBox1->Items->Add(Query1->FieldByName("i_buku")->AsString);ß Ambil data dari setiap record untuk mengisi combobox
Query1->Next();ß tempatkan pointer record berikut
}
5. tulis kode pada tombol OK – onClick
void __fastcall TForm1::Button1Click(TObject *Sender)
{
//filtering data yang tampil di Grid.
Query2->Close();
Query2->SQL->Clear();
Query2->SQL->Add("SELECT penerbit,judul");
Query2->SQL->Add("WHERE pribadi.kodejur=jurusan.kodejur and jurusan.jurusan=:jr");
Query2->ParamByName("jr")->AsString = DBComboBox1->Text;ß
ambil nama jurusan dari ComboBox, di transfer ke variabel jr
Query2->Prepare();
Query2->Open(); ßEksekusi SQL
//mengisi parameter di Datasource
DataSource1->DataSet=Query2; ß Mengatur sumber data beradal dari Query2
//isi data pada dbgrid
DBGrid1->DataSource=DataSource1; ßmengisi DBGrid dari Dataseorce
}