displayformat

[dost]

Merhaba,

Kod: Tümünü seç

    DM.IBQuery2.Close;
    DM.IBQuery2.SQL.Clear;
    DM.IBQuery2.SQL.Add('SELECT');
    DM.IBQuery2.SQL.Add('SUM(CASE WHEN ISLEM = ''GİRİŞ'' THEN TUTAR ELSE 0 END) as TGIRIS,');
    DM.IBQuery2.SQL.Add('SUM(CASE WHEN ISLEM = ''ÇIKIŞ'' THEN TUTAR ELSE 0 END) as TCIKIS');
    DM.IBQuery2.SQL.Add('FROM TBL_KASA');
    //ShowMessage(DM.IBQuery2.SQL.Text);
    DM.IBQuery2.Open;

    Edit1.Text := DM.IBQuery2.Fields[0].AsString;
    Edit2.Text := DM.IBQuery2.Fields[1].AsString;

    Edit3.Text := IntToStr(StrToInt(Edit1.Text) - StrToInt(Edit2.Text));

rakamları 0,00 formatında nasıl gösterebilirim,
sql de cast ile yapamadım.

yardımcı olabilirmisiniz?

[hbahadir]

Kod: Tümünü seç

Edit1.Text := FormatFloat('#,##0.00', DM.IBQuery2.Fields[0].AsFloat)

[dost]

sorumu geri aldım.

[ikutluay]

hehehe

yok öyle yağma sorun artık forumun malı:)

[rsimsek]

hehehe

yok öyle yağma sorun artık forumun malı:)

@ikutluay doğru söylüyor sorulan soru geri alınamaz