Kod: Tümünü seç
begin
DataModul.IBDataSet_Ana.Insert;
datamodul.IBDataSet_Ana.FieldByName('DUZEY').AsInteger:=2;
datamodul.IBDataSet_Ana.FieldByName('SG').AsInteger:=34232;
datamodul.IBDataSet_Ana.FieldByName('UST_SG').AsInteger:=23423;
datamodul.IBDataSet_Ana.FieldByName('KIS_DG').AsFloat:=123.45;
datamodul.IBDataSet_Ana.Post;
end;
Yukarıdaki satırları hatamı bulmak için deneme amaçlı oluşturdum ama hatamı bulamadım, KIS_DG alanına 123,45 kaydetmesini beklerken 123,449996948242 kaydetti...
Öncelikle yapmak istediğimi söyleyeyim. Excel'de ondalık hanesi en fazla 2 rakamdan oluşan sayıları FireBird tabanlı veri tabanıma atmak...
IBDataSet.FieldByName(PUAN).AsFloat=WorkSheet.Cells[5,5] yaptığım zaman, örneğin excelde 5. satır 5. sütun 123,45 ise benim veri tabanıma bu değer 123,449689890789 gibi bi değer olarak kaydediliyor... RoundTo fonksiyonuyla da aşamadım... Nasıl yaparım, yardımcı olursanız sevinirim?