Guesuper
20th November 2011, 09:23 AM
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..
</div>
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..
</div>