bantu dong pecahkan masalah delphi ini

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