[ask] tombol cari data di delphi gan
 

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



http://cdn-u.kaskus.us/44/sfe1nnk2.jpg



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>