Kod: Tümünü seç
procedure TForm17.mKaytlarSil1Click(Sender: TObject);
Var
ESILCevap:Byte;
begin
ESILCevap:=Application.MessageBox('Bakiyesi Sıfır Olan Stok Silinecek Eminmisiniz ?','Emanet Sıfır Bakiye Silme', MB_YESNO or MB_ICONQUESTION);
IF ESILCevap = MrYes Then // cevap evetse
Begin
ESTOKSIL.SQL.Text:='DELETE FROM TBLEMANET WHERE ESTOK_KODU=:ESKOD';
ESTOKSIL.Parameters[0].Value:= DBGrid1.DataSource.DataSet.FieldByName('ESTOK_KODU').Asstring;
ESTOKSIL.ExecSQL();
ESTOKSIL.Refresh;
Exit;
END
Else IF ESILCevap = MrNo Then
Application.MessageBox('Stok Silinemedi !!!','Bilgilendirme Mesajı',MB_ICONINFORMATION); // hayır seçilirse ( kaydedilmesin
Exit;
End;
Kod: Tümünü seç
---------------------------
Debugger Exception Notification
---------------------------
Project EMNTMENU.exe raised exception class EDatabaseError with message 'ESTOKSIL: Cannot perform this operation on a closed dataset'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
Kod: Tümünü seç
---------------------------
Debugger Exception Notification
---------------------------
Project EMNTMENU.exe raised exception class EDatabaseError with message 'ESTOKSIL: CommandText does not return a result set'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------
Bana yardımcı olabilir misiniz ? Nasıl güncelleme yapabilirim?