Putera Batam Forum
thanks Selamat Datang di Forum Putera Batam thanks

Enjoy Our Communty

tapi jangan lupa

oh yeah ? Log in dulu donk oh yeah ?
Putera Batam Forum

STMIK - Universitas Putera Batam
 
IndeksIndeks  PortalPortal  CalendarCalendar  GalleryGallery  FAQFAQ  PencarianPencarian  AnggotaAnggota  GroupGroup  PendaftaranPendaftaran  Login  

 

 bantu dong pecahkan masalah delphi ini

Topik sebelumnya Topik selanjutnya Go down 
Pengirim Message
bambang
Moderator


Posts : 206
Reputation : 1
Join date : 18.10.09
Location : home

PostSubyek: bantu dong pecahkan masalah delphi ini   Sun Oct 25 2009, 01:13

procedure TFSupplier.BitBtnCariClick(Sender: TObject);
begin
// Kalau kosong hentikan
if EditKode.Text = '' then
begin
EditKode.SetFocus;
Exit;
end;

// Mematikan EditKode
EditKode.Enabled := False;

// Menyembunyikan Tombol Cari
BitBtnCari.Visible := False;

// Memproses pernyataan SQL
SQLDataSetSupplier.Active := False;
SQLDataSetSupplier.CommandText :=
'SELECT * FROM supplier ' +
'WHERE kode = ' + EditKode.Text;

SQLDataSetSupplier.Active := True;
if SQLDataSetSupplier.RecordCount < 1 then
begin
RecordBaru := True;

// Memberi informasi
EditPesan.Text := 'Klik tambah untuk menambah data';

// Menampilkan tombol Tambah
BitBtnTambah.Visible := True;
BitBtnBatal.Visible := True;

Exit; // Keluar dari prosedur ini
end
else
begin
RecordBaru := False;
// Memberi informasi
EditPesan.Text := 'Anda bisa menghapus atau mengedit data';

BitBtnEdit.Visible := True;
BitBtnHapus.Visible := True;
BitBtnBatal.Visible := True;
end;

// Berarti ketemu
with SQLDataSetSupplier do
begin
EditNama.Text := FieldByName('nama').Value;
EditAlamat.Text := FieldByName('alamat').Value;
EditTelp.Text := FieldByName('telp').Value;

EditEmail.Text := FieldByName('email').Value;
end; { akhir with }
end;

dari coding delphi di atas.....ketika di compile g ada masalah.....namun pada saat pencarian data muncul pesan eror....

if SQLDataSetSupplier.RecordCount < 1 then



buat teman" yg mau bantu saya ucapkan terima kasih sebelum nya.....
Kembali Ke Atas Go down
Lihat profil user
 

bantu dong pecahkan masalah delphi ini

Topik sebelumnya Topik selanjutnya Kembali Ke Atas 
Halaman 1 dari 1

Permissions in this forum: Anda tidak dapat menjawab topik
Putera Batam Forum :: Diskusi :: Pemrograman dan Database :: Delphi -