Firebird Ondalık Sorunu

[MuhammedYasir]

Ben bu tür format ayarlarını bir tabloya ekledim, bu tablodan aldığım verile query nin before unda aktif ettim.
Böylece kullanıcının  formatı kendi istediğine göre değişmesini sağlandı.

[img][/img]

procedure TDMBanka.BankaislemIBQBeforeOpen(DataSet: TDataSet);
begin
       DMSabit.AyarlarIBQ.Locate('AYARKOD','4',[]);
       BankaislemIBQTEDIYE.DisplayFormat := DMSabit.AyarlarIBQFORMAT.AsString;
       BankaislemIBQTAHSILAT.DisplayFormat := DMSabit.AyarlarIBQFORMAT.AsString;
       BankaislemIBQBAKIYE.DisplayFormat := DMSabit.AyarlarIBQFORMAT.AsString;
       BankaislemIBQH_BAKIYE.DisplayFormat := DMSabit.AyarlarIBQFORMAT.AsString;
       BankaislemIBQD_TEDIYE.DisplayFormat := DMSabit.AyarlarIBQFORMAT.AsString;
       BankaislemIBQD_TAHSILAT.DisplayFormat := DMSabit.AyarlarIBQFORMAT.AsString;
       BankaislemIBQCARIKURU.DisplayFormat := DMSabit.AyarlarIBQFORMAT.AsString;
       BankaislemIBQISLEMKURU.DisplayFormat := DMSabit.AyarlarIBQFORMAT.AsString;
end;