dbgrid ve para formatı sorunu?

[pelitt]

ah abim seni allah gönderdi dediğin yer dikkatimi çekmişti ancak ne yazacağımı bilemedim sql tıklayınca kod yazmak için bir yer açılıyor ne yazacağım dahadoğrusu bağlantımı kuracağım teşekkür cahilliğimize verin öğrenmiş olduk

[pelitt]

Kod: Tümünü seç

procedure TForm4.FormCreate(Sender: TObject);
begin
dbgrid2.Visible:=false;
zQuery1.Close;
zQuery1.SQL.Add('Select UYE.ADI,UYE.BLOK,HESAP.AIDAT,HESAP.AODEME,HESAP.YAKIT,HESAP.YODEME,HESAP.AY,HESAP.YIL,HESAP.NOTC,HESAP.ID From UYE,HESAP Where UYE.ID=HESAP.KIM' );
zQuery1.Open;

bu kodları silip sql ye aynenmi yazacağım nasıl olacak

[pelitt]

sorumu geri aldım halletim yanlız başka bir sorgu yapacağım zaman bu sorgunun altınamı yoksa yeni bir querymi eklemem gerek

[pelitt]

arkadaşlar dbgridde tam istediğim şekilde görüntüyü elde ettim teşekkürler
yanlız veri girerken ben edit e 25,5 giriyom o 25 olarak kaydediyor bunu nasıl çözerim acaba

procedure TForm4.Button1Click(Sender: TObject);
var

Kod: Tümünü seç

idm,ekle,xkim,xaidat,xyakit,xay,xyil:String;
s:Integer;
begin
if combobox1.Text='Ben Seçeyim' then
begin
idm:=edit3.text;
xaidat:=Edit1.Text;
xyakit:=Edit2.Text;
xay:=ComboBox3.Text;
xyil:=ComboBox2.Text;
ekle:='INSERT INTO hesap (kim,aidat,yakit,ay,yil) values'+'('+idm+','+QuotedStr(xaidat)+','+QuotedStr(xyakit)+','+QuotedStr(xay)+','+QuotedStr(xyil)+')';
ZQuery2.SQL.Text:=ekle;  //Zquery1--->Zeos Bileşeni
ZQuery2.ExecSQL;

[conari]

Kod: Tümünü seç

QuotedStr(xaidat)

string olarak kayıt ediyorsunuz.
bu alanın VT de veri tipi nedir?

[pelitt]

decimal zaten dikkatimi çekti mesala 65,65 giriyom 66 ya yuvarlayıp kaydediyor

[pelitt]

nasıl düzeltebilirim acaba

[conari]

Kod: Tümünü seç

strtofloat(xaidat)

denermisiniz.

birde decimal ama kaça kaç
28,8 genel kullanılır.

[pelitt]

'+QuotedStr(strtofloat(xaidat))+' bu şekilde yazdım çalışmadı
lenght 10 decimal 2 yazıyor bu işlerde yeniyim doğru yerimi dedim bilmiyorum

[conari]

10,2
en fazla
99999999,99
şeklinde girebilirsiniz demek.

Kod: Tümünü seç

QuotedStr(strtofloat(xaidat))

kısmı sadece bu şekilde olacak;
strtofloat(xaidat)

[pelitt]

'+strtofloat(xaidat)+'
yok yine olmadı kardeş

[conari]

Olmadı da mesaj nedir?
hata delphiden mi geliyor
VT denmi nereden bileceğiz.

[pelitt]

xaidat,xyakit,xay,xyil:String;
acaba string yerine başka bişeymi olacaktı

[pelitt]

Olmadı da mesaj nedir?
hata delphiden mi geliyor
VT denmi nereden bileceğiz.

kodsatırı kırmızı oluyor projeyi çalıştıramıyorum düzeltince(eski haline alınca) çalışıyor

şunu bi halletseydim

[pelitt]

bu sorunuda hallettim yardım eden kardeşlerden hepsinin eline ayağına sağlık
noktalı halde girersem oluyor örnek 12.13 giriyom db gride 12,13 olarak yansıyor
display edit
ve
editformat haricinde hiçbişeyle oynamadım çalıştı
bir nokta nelere sebeb oluyor

şimti birtek bişey isteyecem son olarak
bu virgüllere basınca edite . yazdırmam için nasıl bir kod yazacağım