Memfilter Isi DB

// Memfilter Isi database ...

// Memfilter , ada 2 cara yaitu menggunakan adotable dan adoquery

// Masukkan kode kedalam button1 ..
// Contoh saya memfilter berdasarkan Jeniskelamin . Laki-Laki



// Ado Query ..

var Field , Filter : string ;
Begin

Field := 'Jenis Kelamin';
Filter := 'Laki-Laki' ;
ADOQuery1.Open ;
ADOQuery1.Active := false ;
ADOQuery1.SQL.Clear ;
ADOQuery1.SQL.Add('Select * from table1 where ' + quotedstr(field) + ' = ' + quotedstr(Filter) )  ;
ADOQuery1.Active := true ;

end;




// Adotable ...

Var field , filter : string ;
begin
Field := 'Jenis Kelamin' ;
Filter := 'Laki-Laki'
Adotable1.open ;
Adotable1.filtered := false ;
Adotable1.Filter := quotedstr(field) + ' = ' + quotedstr(filter );
Adotable1.Filtered := true ;
Adotable1.open ;
End;