kayderken (,) sorgularken (.) kabul ediyor.

[y.kulac]

s.a.
formu açarken.

Kod: Tümünü seç

procedure TfrmIcmal.FormCreate(Sender: TObject);
var
Sem: THandle;
begin
ThousandSeparator := '.';
DecimalSeparator  := ',';
ShortDateFormat   := 'dd/mm/yyyy';
DateSeparator     := '.';
LongTimeFormat    := 'HH:mm:ss';
TimeSeparator     := ':';
end;

ve kayıt girerken birim fiyatını 0,085 yazıyorum.

daha sonra icmal saayfasında 0,085 birim fiyatlı olanları sorgulatmak istiyorum. sorgulanacak olan alanın adı PIRIMIFIYAT1 ve numeric (18,2) olarak tanımlı.
Firebird 2.03 veritabanı kullanıyorum.

Kod: Tümünü seç

 ibquery1.Close;
 ibquery1.SQL.Clear;
 ibquery1.SQL.Add('Select * From SUTGIRIS');
 ibquery1.SQL.Add('Where ISLEMYILI ='''+Combobox6.Text+'''');
 ibquery1.SQL.Add('and PIRIMFIYAT1='''+Edit5.Text+'''order by FATURATARIHI,ADI,SOYADI');
 ibquery1.Open;

burada Edit5 e 0,085 yazarsam boş kayıt, 0.085 yazarsam kayıtlar geliyor.
ama kayıt girerken kuruş ayıracı virgül idi. sorgulamada ise nokta yazınca doğru çalışıyor.

ibexpert ile alana baktığımda orda da 0,085 görünüyor.

burada programı kullanananın kafası karışır. sorgulamada da virgül kullanımını nasıl sağlayabilirim

iyi çalışmalar.

[aslangeri]

s.a.
parametre kullanarak yapabilirsin kanaatindeyim.
oluşturduğun sql i bir memoya atıp bakarsan niye kabul etmediğini görürsün.
kolay gelsin.