엠바카데로에서 FireDAC Skill Sprint 웨비나(1월 23일 ~ 3월 27일: 매주 금요일 10시)를 진행하고 있습니다.

이 글에서는 웨비나 다시보기와 함께 웨비나 일부 내용을 샘플코드와 함께 소개합니다. 하단 온라인 기술 도움말 링크를 통해 더 자세한 내용을 추가학습하시기 바랍니다.

3회차에서는 FireDAC의 Cached Updates와 Auto-Inc Fields에 대해 진행했습니다.

캐쉬를 이용한 업데이트

캐쉬 업데이트는 애플리케이션의 메모리 영역(즉, 데이터셋)에 업데이트 내역을 기록하고, DBMS에 한번에 업데이트하거나 일괄취소할 수 있는 기능입니다.

캐쉬 업데이트를 사용하면 작업내용을 로컬에서 관리하므로 DBMS와의 트래픽을 줄일 수 있고, 사용자는 인터넷속도와 관계없이 빠르게 작업할 수 있습니다. 그리고 부가적으로 작업이력을 확인(변경된 레코드 조회, 변경된 값 확인 등)하고, 작업을 되돌리는 기능(최종작업 되돌리기, 선택 레코드 되돌리기 등)등을 제공되는 메소드를 이용해 손쉽게 구현할 수 있습니다.

캐쉬 업데이트를 적용하려면 데이터셋(예> TFDQuery, TFDTable)의 CachedUpdates 속성을 True로 설정합니다.

캐쉬 업데이트는 분산 캐쉬 업데이트 모드와 중앙 캐쉬 업데이트 모드를 제공합니다.

• 분산 캐쉬 업데이트 모드 - 각 데이터셋이 다른 데이터셋과 관계없이 변경사항을 추적합니다.(기본 모드)
• 중앙 캐쉬 업데이트 모드 - 여러 데이터셋을 단일 변경로그에 시간순으로 기록합니다.(중앙 캐쉬 업데이트 모드 자세히 보기)

캐쉬 업데이트 주요 메소드

다음은 캐쉬 업데이트에서 사용하는 주요 메소드입니다. 메소드에 대한 설명만 기록합니다. 메소드의 상세설명과 사용법은 FireDAC 기술문서 - Caching Updates(FireDAC) 를 참고하기 바랍니다.

업데이트 내역 추적

캐쉬 업데이트 사용 시 업데이트 내역을 추적할 수 있고, 변경을 취소할 수 있습니다.

• UpdatesPending - 변경 로그가 있으면 True 를 반환합니다. 
• ChangeCount - 변경된 레코드 수를 반환합니다.
• UpdateStatus - 현재 레코드의 변경 유형을 반환합니다. 
• FilterChanges - 레코드를 변경 유형으로 필터링 할 수 있도록합니다.

• SavePoint - 변경 로그의 현재 상태를 설정 / 가져옵니다. 
• RevertRecord - 현재 레코드를 이전 상태로 되돌립니다. 
• UndoLastChange - 마지막으로 수정 한 레코드로 이동하고 레코드를 이전 상태로 되돌립니다. 
• CancelUpdates - 변경 로그에 포함 된 모든 레코드를 취소합니다.

업데이트 적용

캐쉬의 변경을 데이터베이스에 적용하려면 ApplyUpdates 메소드를 사용합니다. 레코드 적용 시 예외가 발생한 경우 그 예외는 레코드에 연결됩니다. 

ApplyUpdates 메소드는 다음 특징이 있습니다.

• ApplyUpdates 시 예외를 발생하지 않고 리턴값으로 예외 수 반환
• 트랜젝션으로 업데이트가 적용되지 않는다. 애플리케이션에서 ApplyUpdates로 적용해야 한다.
• 즉시 업데이트와 데이터셋 처리 방식은 동일하다.

캐시를 이용한 업데이트에 대한 자세한 내용은 FireDAC 기술문서 - Caching_Updates를 참고하기 바랍니다.

FireDAC은 새로운 레코드 추가 시 자동증가 컬럼에 새로운 값을 할당 할 수 있습니다.(즉시 업데이트와 캐쉬 업데이트 모두에서 동작) 

DBMS의 자동 증가 필드는 다음과 같이 특수한 Identity(또는 유사한) 컬럼 데이터형식을 사용하거나 제너레이터(또는 시퀀스)와 테이블 트리거를 사용해 구현됩니다.

FireDAC에는 DBMS 별로 자동 인식 방식과 수동 지정 방식으로 처리해야 합니다.

- FireDAC 기술문서 참고 - http://docwiki.embarcadero.com/RADStudio/XE7/en/Auto-Incremental_Fields_(FireDAC)

자동 인식

FireDAC에서 자동 증가 데이터 형식 컬럼을 자동 인식하고 아래와 같이 설치됩니다.

• TField.DataType = dtInt32 또는 dtUInt32의 경우 ftAutoInc (TFDAutoIncField), 그렇지 않은 경우는 수치 데이터 형 ftXxxx 중 하나 
• TField.Required = False 
• TField.ReadOnly = True 
• TField.ProviderFlags = [pfInWhere] 또는 열이 기본 키 구성 요소의 경우 [pfInWhere, pfInKey]

수동 지정

• UpdateOptions.AutoIncFields 속성에서 자동 증가 컬럼을 설정
• TFDAutoIncField를 직접 만듭니다.(컬럼이 ftAutoInc / ftInteger / ftLongWord 필드 형이여야 함)
• TFieldAutoGenerateValue를 자동 증가 필드에 해당하는 arAutoInc로 설정(ProviderFlags, Required, ReadOnly 설정이 필요할 수 있음)

[샘플코드 받기 - 데브기어 github 페이지]

자동증가 설정(데이터모듈 생성 시)

데이터베이스와 연결된 상태에서 데이터셋(TFDQuery, TFDTable)에서 필드를 추가합니다.

(모든 필드 추가 : 데이터셋 컴포넌트 > 우측 마우스 메뉴 > Fields Editor > 우측 마우스 > Add all fields)

자동 증가 컬럼(SEQ) 선택 후 AutoGenerateValue 속성을 arAutoInc로 설정합니다. 

코드로 진행 시 아래와 같습니다.

SEQ(자동증가 컬럼) 선택 후 AutoGenerateValue 속성을 arAutoInc로 설정합니다. 아래의 코드로 설정 가능합니다.

?

1 2 3 4 5 6 7 8 9 10

procedure TDM.DataModuleCreate(Sender: TObject); begin   // Auto-Inc 설정   FDQuery1SEQ.AutoGenerateValue := arAutoInc;   FDQuery1SEQ.Required := False;   FDQuery1SEQ.ReadOnly := True;     // CachedUpdates 설정   FDQuery1.CachedUpdates := True; end;

캐쉬 업데이트 - 일괄적용 / 일괄취소

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24

procedure TForm2.btnApplyUpdatesClick(Sender: TObject); var   iErr: Integer; begin   DM.FDConnection1.StartTransaction;     // ApplyUpdates는 오류를 발생하지 않음   iErr := DM.FDQuery1.ApplyUpdates(-1);   if iErr = 0 then   begin     DM.FDQuery1.CommitUpdates; // 변경로그 지우기     DM.FDConnection1.Commit;   end   else     DM.FDConnection1.Rollback;     DM.FDQuery1.Refresh; end;   procedure TForm2.btnCancelUpdatesClick(Sender: TObject); begin   DM.FDQuery1.CancelUpdates;   DM.FDQuery1.Refresh; end;