hata

hata

yazdıgım güncelleme,silme ve kaydetme kodları
kaydetme;
Kod: Tümünü seç
procedure TForm2.Button4Click(Sender: TObject);
begin
if (MusteriAdoQuery.State = dsInsert) or (MusteriAdoQuery.State = dsEdit) then
MusteriAdoQuery.Post else ShowMessage('Lütfen Yeni Kayıt Açınız');
Kod: Tümünü seç
procedure TForm2.BitBtn6Click(Sender: TObject);
var
secim:word;
begin
secim:=messagedlg('Silecek misiniz?',mtwarning,[mbyes,mbno],0);
if secim=mryes then MusteriADOQuery.Delete;
end;
Kod: Tümünü seç
procedure TForm2.BitBtn7Click(Sender: TObject);
begin
MusteriADOQuery.Edit;
end;