[ask] tombol cari data di delphi gan

[Guesuper]

gan ane mau tanya nie....ane kan ingin mencari dalam dua buah table dalam satu form....lebih jelas nya nie aku kasih formnya,,,







and ini srcipnya gan....

kok querynya gak mau ya.......



procedure TFdatapegawai.btncariClick(Sender: TObject);

begin

if ecari.Text = ''then showmessage('data kosong') else

begin

if (cbcari.Text ='NIP') then

begin

with dm.qpegawai,dm.qjabatan do

begin

close;

sql.Clear;

sql.Add('select * from pegawai,jabatan where pegawai.nip=:kd and jabatan.nip=:nip');

prepared;

parameters.Items[0].Value:=ecari.Text;

parameters.Items[1].value:=ecari.Text;

open;

end;

getrecord;

if dm.qpegawai.RecordCount = 0 then

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

refresh;

end

else

if cbcari.Text ='Nama Pegawai' then

begin

with dm.qpegawai,dm.qjabatan do

begin

close;

sql.Clear;

sql.Add ('select * from pegawai,jabatan where pegawai.nip:=kd and jabatan.nip=:kd');

prepared;

parameters.Items[0].Value:=ecari.Text;

parameters.Items[1].Value:=ecari.Text;

open;

end;

end;

getrecord;

if dm.qpegawai.RecordCount = 0 then

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

end;

end;



semoga agan agan programer bisa membantu.....

</div>