RunSQL(dmRental.quStock, 'SELECT stock FROM t_stock WHERE kode_film= '+QuotedStr(dbeKodeFilm.Text)+' '); if dmRental.quStock.RecordCount > 0 then MessageDlg('Tidak bisa Di Pinjam', mtConfirmation,[mbOK],0) else if MessageDlg('Yakin Akan Di Pinjam', mtConfirmation,[mbYes,mbNo],0) = mrYes then ExecSQLComm(dmRental.ADOComm, 'UPDATE t_stock SET total_sewa=total_sewa + '+QuotedStr(dbeQty.Text)+', stock=stock - '+QuotedStr(dbeQty.Text)+' WHERE kode_film= '+QuotedStr(dbeKodeFilm.Text)+' '); dmRental.quNoSewa.Post; dmRental.quSewa.Post; UbahStatus(dmRental.quSewa.State); saya punya code diatas diatas menjelaskan tentang chek stok yang ada di tabel stok dengan field stock jika stocknya kosong maka tampil pesan tidak bisa dipinjam jika tidak maka lakukan peminjaman code diatas jalan tapi kenapa ketika di pinjam ti table stock dia tidak berkurang tapi ko masih tetep masuk ke table penyewaaan dan ketika saya pilih no ketika akan di pinjam juga masuk jga ke table penyewaan mohon bantuan'ya thank's b4 [/code]

if dmRental.quStock.RecordCount > 0 then MessageDlg('Tidak bisa Di Pinjam', mtConfirmation,[mbOK],0)

ini yakin bener? kok kalau recorndya lebih dari 0 malah g'bisa dipinjam?

swt dah loe. klo cek jgn record countnya dong, record count kan cmn buat tau item yg kamu select ada brp klo 0 ya berarti ga ada item yang sesuai dari query kamu. untuk cek stock harusnya pake field valuenya dong buat tau stock itu ada atau nda.

Coba pelajari code ini, tapi belum saya cek. Saya cuma baca logika programnya saja.

RunSQL(dmRental.quStock, 'SELECT stock FROM t_stock WHERE kode_film= '+QuotedStr(dbeKodeFilm.Text)+' ');
if dmRental.quStock.FieldByName('stock').value = 0 then
   MessageDlg('Tidak bisa di Pinjam.', mtConfirmation,[mbOK],0)
else
   if MessageDlg('Yakin Akan di Pinjam?', mtConfirmation,[mbYes,mbNo],0) = mrYes then begin
      ExecSQLComm(dmRental.ADOComm, 'UPDATE t_stock SET total_sewa=total_sewa + '+QuotedStr(dbeQty.Text)+', stock=stock - '+QuotedStr(dbeQty.Text)+' WHERE kode_film= '+QuotedStr(dbeKodeFilm.Text)+' ');
      dmRental.quSewa.Post;
      UbahStatus(dmRental.quSewa.State);
   end else
      dmRental.quNoSewa.Post;