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..

coba dulu ya siapa tahu ada yg salah :D [sql] with ADOQuery1 do begin close; SQL.Text := 'SELECT A.NAMA_PEGAWAI,B.JABATAN,A.KANTOR FROM PEGAWAI A, JABATAN B '+ ' WHERE A.NIP = B.NIP AND A.NIP = '+ QuotedStr(enip.text) + ' AND B.NIP = '+ QuotedStr(enip.text); open; end; enama.Text:=fieldbyname('nama_pegawai').AsString; ekantor.Text:=fieldbyname('kantor').AsString; ejabatan.Text:=fieldbyname('jabatan').AsString;[/sql]

koreksi sedikit sql nya, coba begini: select p.nip,p.nama,j.jabatan from pegawai p,jabatan j where p.nip=j.nip and p.nip=:nip semoga membantu.

makasih...semuanya...... udah sukses ternyata... :D