DBGrid + TQuery + TDataSource 일 경우.
TDataSource.properties.DataSet에 TQuery 지정.
DBGrid.properties.DataSource에 TDataSource 지정.
여기까지는 하셨을 테죠....
조회를 한 후에
1. 전체갯수 : count := TQuery.RecordCount;
2. edtA.text := inttostr(TQuery.RecordCount);
3. 합을 구하는 함수가 있는지는 저도 잘 모르겠구요.
procedure TTFT01_01_PPRW.WindowClear;
var
total : Integer; // 타입에 따라 선언 해주세요
begin
total := 0;
TQuery.First;
while not TQuery.Eof do
begin
// danga의 타입에 따라 맞춰주세요.
total := total + TQuery.FieldByName('danga').AsInteger;
TQuery.Next;
end;
TQuery.Frist;
end;
미흡하지만 도움이 되었으면 좋겠네요...^*
DBGrid + TQuery + TDataSource 일 경우.
TDataSource.properties.DataSet에 TQuery 지정.
DBGrid.properties.DataSource에 TDataSource 지정.
여기까지는 하셨을 테죠....
조회를 한 후에
1. 전체갯수 : count := TQuery.RecordCount;
2. edtA.text := inttostr(TQuery.RecordCount);
3. 합을 구하는 함수가 있는지는 저도 잘 모르겠구요.
procedure TTFT01_01_PPRW.WindowClear;
var
total : Integer; // 타입에 따라 선언 해주세요
begin
total := 0;
TQuery.First;
while not TQuery.Eof do
begin
// danga의 타입에 따라 맞춰주세요.
total := total + TQuery.FieldByName('danga').AsInteger;
TQuery.Next;
end;
TQuery.Frist;
end;
저두 많이 접해보지를 못해서 간단하게 나마 적어봅니다...
즐프하세요..