Kod: Tümünü seç
procedure TForm1.hizmetekleBTNClick(Sender: TObject);
begin
if (Trim(komisyonTutarED.text)<>'') then
begin
With hizmetQRY do
begin
close;
sql.clear;
sql.add('select * from hizmet_bedelleri where tutar='''+ komisyonTutarED.text +'''');
Active:=true;
Open;
if Not IsEmpty then
begin
MyMessageDlg( 'Daha önce kaydedilmiş...', mtCustom, [mbOk], ['Tamam'] );
komisyonTutarED.SetFocus;
end
else
begin
With hizmetQRY do
begin
close;
sql.clear;
sql.add('INSERT INTO hizmet_bedelleri (tutar) VALUES (:xtutar)');
Params.ParamByName('xtutar').value := strtofloat(komisyonTutarED.text);
execsql;
end;
hizmet_bedeli;
komisyonTutarED.text:='';
end;
end;
end
else
begin
MyMessageDlg( 'Lütfen Bilgileri Kontrol Ediniz...', mtCustom, [mbOk], ['Tamam'] );
komisyonTutarED.SetFocus;
end;
end;