Başlangıç > Kodlar > Delphi ile Grid sütünlarını toplamak

Delphi ile Grid sütünlarını toplamak


Dbgrid ve query ekleyin

procedure TForm2.DBGrid1TitleClick(Column: TColumn);
var
toplam:integer;
begin
if column.FieldName='Stop' then
begin
toplam:=dbgrid1.Fields[3].AsInteger+dbgrid1.Fields[4].AsInteger+dbgrid1.Fields[5].AsInteger+dbgrid1.Fields[6].AsInteger+dbgrid1.Fields[7].AsInteger+dbgrid1.Fields[8].AsInteger+dbgrid1.Fields[9].AsInteger+dbgrid1.Fields[10].AsInteger+dbgrid1.Fields[11].AsInteger+dbgrid1.Fields[12].AsInteger+dbgrid1.Fields[13].AsInteger+dbgrid1.Fields[14].AsInteger+dbgrid1.Fields[15].AsInteger+dbgrid1.Fields[16].AsInteger+dbgrid1.Fields[17].AsInteger+dbgrid1.Fields[18].AsInteger;
toplam:=toplam+dbgrid1.Fields[19].AsInteger+dbgrid1.Fields[20].AsInteger+dbgrid1.Fields[21].AsInteger+dbgrid1.Fields[22].AsInteger+dbgrid1.Fields[23].AsInteger+dbgrid1.Fields[24].AsInteger+dbgrid1.Fields[25].AsInteger+dbgrid1.Fields[26].AsInteger+dbgrid1.Fields[27].AsInteger+dbgrid1.Fields[28].AsInteger+dbgrid1.Fields[29].AsInteger+dbgrid1.Fields[30].AsInteger+dbgrid1.Fields[31].AsInteger+dbgrid1.Fields[32].AsInteger+dbgrid1.Fields[33].AsInteger+dbgrid1.Fields[34].AsInteger;
toplam:=toplam+dbgrid1.Fields[35].AsInteger+dbgrid1.Fields[36].AsInteger+dbgrid1.Fields[37].AsInteger+dbgrid1.Fields[38].AsInteger+dbgrid1.Fields[39].AsInteger+dbgrid1.Fields[40].AsInteger+dbgrid1.Fields[41].AsInteger+dbgrid1.Fields[42].AsInteger;
showmessage('Puan Durumu:'+dbgrid1.Fields[1].AsString+'='+inttostr(toplam));
table1.Edit;
dbgrid1.Fields[2].AsInteger:=toplam;

end;


TD Software


Reklamlar
  1. Henüz yorum yapılmamış.
  1. No trackbacks yet.

Bir Cevap Yazın

Aşağıya bilgilerinizi girin veya oturum açmak için bir simgeye tıklayın:

WordPress.com Logosu

WordPress.com hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Twitter resmi

Twitter hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Facebook fotoğrafı

Facebook hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Google+ fotoğrafı

Google+ hesabınızı kullanarak yorum yapıyorsunuz. Log Out / Değiştir )

Connecting to %s

%d blogcu bunu beğendi: