Delphi Programming Forum
C++Builder  |  Delphi  |  FireMonkey  |  C/C++  |  Free Pascal  |  Firebird
볼랜드포럼 BorlandForum
 경고! 게시물 작성자의 사전 허락없는 메일주소 추출행위 절대 금지
델파이 포럼
Q & A
FAQ
팁&트릭
강좌/문서
자료실
컴포넌트/라이브러리
FreePascal/Lazarus
볼랜드포럼 홈
헤드라인 뉴스
IT 뉴스
공지사항
자유게시판
해피 브레이크
공동 프로젝트
구인/구직
회원 장터
건의사항
운영진 게시판
회원 메뉴
북마크
델마당
볼랜드포럼 광고 모집

델파이 Q&A
Delphi Programming Q&A
[435] [해결] DBGrid 필드 계산 방법과 예제
pss0303 [ ] 3060 읽음    1997-12-25 23:50
{ 도움 될까 해서 간단한 예제 하나 적어 봅니다.
          name     type   key
  필드는 '날짜'     D      *
         '수입'     I
         '지출'     I
         '잔액'     I
  입니다.
  이렇게 하시면 될꺼에요
  급하게 짜다보니 좀 엉성하네요
  도움 되셨기를...
 
- 충청도에서 상식이 였습니다. -   }
                               

var
  bm:TBookmark;
  i,PreVal:integer;
begin
  with Table1 do begin
    bm := GetBookmark;
    Refresh;    // 날짜 순으로 정렬하려는게 주 목적
    GotoBookmark(bm);
    if RecNo <> 1 then    // 현재 레코드가 처음이 아니면
      Prior
    else begin            // 처음 이면
      Edit;
      FieldValues['잔액'] :=
            FieldValues['수입'] - FieldValues['지출'];
    end;
    for i := RecNo to RecordCount-1 do begin
      PreVal := FieldValues['잔액'];
      Next;
      Edit;
      FieldValues['잔액'] := PreVal +
            FieldValues['수입'] - FieldValues['지출'];
    end;
    GotoBookmark(bm);
    FreeBookmark(bm);
  end;
end;


+ -

관련 글 리스트
435 [해결] DBGrid 필드 계산 방법과 예제 pss0303 3060 1997/12/25
Google
Copyright © 1999-2015, borlandforum.com. All right reserved.