[Guesuper]

with dm.querygaji do

with dm.datagaji do

begin

sql.Clear;

if rbnip.Checked then

query := 'select * from gaji where nip=: pencarian'

else

if rbnama.Checked then

query := 'select *i from gaji where nama_pegawai =: pencarian'

else

if rbjbtn.Checked then

query := 'select * from gaji where jabatan =: pencarian';

sql.Add(query);

if rbnip.Checked or rbnama.Checked then

parameters.ParamByName('pencarian').Value:=ecari.T ext

else

if rbjbtn.Checked then

parameters.ParamByName('pencarian').Value:=ecari.T ext;

open;

if dm.querygaji.RecordCount = 0 then

messagedlg('Data tidak ada',mtinformation,[MBOK],0);



end;



ada yang bisa benerin script ini gak ya...

agar hasil pencarian nampil di dbgrid dan activrowselect gimana ya gan...