[Guesuper]

temen-temen saya lagi belajar delphi ne..mohon pertolongan



procedure TFpotongan.EnipChange(Sender: TObject);

var

query: string;

begin

with dm.querypegawai do

with dm.queryjabatan do

begin

close;

sql.Clear;

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

parameters.ParamByName('kd').Value:=(enip.Text);

dm.querypegawai.Open;

if not eof then

enama.Text:=fieldbyname('nama_pegawai').AsString;

ekantor.Text:=fieldbyname('kantor').AsString;

ejabatan.Text:=fieldbyname('jabatan').AsString;





dengan code diatas ane mau nampilin data daritable pegawai dan jabatan dengan memasukan NIP pegawai di Tedit...gak ada errornya tapi kok datanya gak mau muncul ya....semoga ada yang bisa bantu saya..amien..