엠바카데로에서 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로 적용해야 한다.
  • 즉시 업데이트와 데이터셋 처리 방식은 동일하다.
업데이트 이후 수정 된 레코드는 변경 로그가 남아 있어, 변경로그를 삭제하려면 CommitUpdates 메소드를 호출해야 합니다.

1
2
3
4
5
6
7
8
9
10
11
FDQuery1.Append;
...
FDQuery1.Post;
FDConnection1.StartTransaction;
iErrors := FDQuery1.ApplyUpdates;
if iErrors = 0 then begin
  FDQuery1.CommitUpdates;
  FDConnection1.Commit;
end
else
  FDConnection1.Rollback;

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

자동 증가 필드

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

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

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

DBMS 

자동증가 컬럼 구현 

 인식

 InterBase

 Generator와 BEFORE INSERT 트리거

 자동인식 및 수동 지정

 Microsoft SQL Server

 IDENTITY 데이터타입

 자동증가 데이터 형식으로 자동 인식

 Oracle

 시퀀스와 BEFORE INSERT FOR EACH ROW 트리거

 수동 지정

 MySQL

 AUTO_INCREMENT 데이터 타입

 자동증가 데이터 형식으로 자동 인식

 SQLite INTEGER PRIMARY KEY AUTOINCREMENT 데이터 타입

 자동증가 데이터 형식으로 자동 인식

- 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 설정이 필요할 수 있음)
자동 증가 필드 사용에 대한 자세한 내용은 FireDAC 기술문서 - Auto-Incremental Fields를 참고하기 바랍니다.

캐쉬 업데이트 샘플 프로그램 소개

이 샘플에서는 캐쉬 업데이트를 적용해 아래 기능이 구현되어 있습니다.

  • 변경내용 일괄적용 / 일괄취소
  • 변경이력(캐쉬) 보기 / 변경 전의 값 확인
  • 마지막 / 선택 레코드 변경 취소
  • 저장 지점 생성(등록) / 되돌리기
그리고 인터베이스 DB에서 자동증가 설정(Generator & Trigger 이용) 되어 있는 SQL 컬럼을 사용할 수 있도록 설정되어 있습니다.

[샘플코드 받기 - 데브기어 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;
캐쉬 업데이트 - 업데이트 이력 추적
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
// 캐쉬 보기
if DM.FDQuery1.Active then
begin
  DM.FDMemTable1.CloneCursor(DM.FDQuery1, True);
  DM.FDMemTable1.FilterChanges := [rtModified, rtInserted, rtDeleted];
end;
 
// 이전 값 확인
ShowMessage(format('이전 값: %s  ->  새로운 값: %s', [
                    DM.FDQuery1.FieldByName('FIELD1').OldValue,
                    DM.FDQuery1.FieldByName('FIELD1').Value]));
 
// 마지막 변경 취소
DM.FDQuery1.UndoLastChange(True);
 
// 선택 레코드 변경 취소
DM.FDQuery1.RevertRecord;
 
// 저장점 생성
FSavePoint := DM.FDQuery1.SavePoint;
 
// 저장점으로 되돌리기
if FSavePoint > 0 then
  DM.FDQuery1.SavePoint := FSavePoint;

관련 링크

번호 제목 글쓴이 날짜 조회 수
공지 [DelphiCon 요약] 코드사이트 로깅 실전 활용 기법 (Real-world CodeSite Logging Techniques) 관리자 2021.01.19 14387
공지 [UX Summit 요약] 오른쪽 클릭은 옳다 (Right Click is Right) 관리자 2020.11.16 13023
공지 [10.4 시드니] What's NEW! 신기능 자세히 보기 관리자 2020.05.27 15532
공지 RAD스튜디오(델파이,C++빌더) - 고객 사례 목록 관리자 2018.10.23 21064
공지 [데브기어 컨설팅] 모바일 앱 & 업그레이드 마이그레이션 [1] 관리자 2017.02.06 22297
공지 [전체 목록] 이 달의 기술자료 & 기술레터 관리자 2017.02.06 17933
공지 RAD스튜디오(델파이, C++빌더) - 시작하기 [1] 관리자 2015.06.30 38228
공지 RAD스튜디오(델파이,C++빌더) - 모바일 앱 개발 사례 (2020년 11월 업데이트 됨) 험프리 2014.01.16 173741
334 리눅스 서버용 GUI 응용프로그램 만들기(10.2 도쿄 & FMXLINUX 이용) [1] 관리자 2017.04.25 2064
333 [환경설정] 아마존 EC2 이용해 리눅스 서버 환경 구축하기 file 험프리 2017.04.20 10628
332 [환경설정] 아마존 EC2 이용해 윈도우 서버 환경 구축하기 [1] file 험프리 2017.04.13 6207
331 [발표자료] What's NEW! RAD Studio 10.2 도쿄 험프리 2017.04.13 370
330 [고객 사례- 3D, 이미지스캐너, 델파이] mimix 3D 프로필 스캐너 관리자 2017.04.13 758
329 [RAD 서버] 비콘펜스 소개 및 데모(실내외 길찾기, 지역진입 감지하기) [1] 험프리 2017.04.13 958
328 [발표자료] 소개합니다! RAD Studio 10.2 도쿄 관리자 2017.04.06 469
327 이 달의 기술자료 - 2017년 04월 file 험프리 2017.03.30 433
326 [10.2 도쿄] 델파이로 리눅스 기반 웹서비스 제작하기(WebBroker 이용) [1] file 험프리 2017.03.30 3793
325 [10.2 도쿄] 기타 개선 사항 김원경 2017.03.24 423
324 [10.2 도쿄] RTL file 김원경 2017.03.24 632
323 [10.2 도쿄] 디버거 기능 김원경 2017.03.23 445
322 [10.2 도쿄] VCL: 고 해상도(DPI) 지원. 김원경 2017.03.23 612
321 [10.2 도쿄] 개발환경 개선사항 file 김원경 2017.03.23 729
320 [10.2 도쿄] FireDAC과 데이터베이스 개선 file 김원경 2017.03.23 1188
319 [10.2 도쿄] 파이어몽키의 새로운 기능들 file 김원경 2017.03.23 1164
318 [10.2 도쿄] 리눅스 지원을 제공합니다. file 김원경 2017.03.23 1049
317 [발표자료] VCL 애플리케이션 확장하기 with RAD 서버 관리자 2017.03.16 468
316 RAD Studio 10.2 도쿄! 곧 출시됩니다. 관리자 2017.03.16 465
315 델파이로 개발된 '3D Train Studio'가 BizWireTV의 'Startup Standout' 분야에 선정되었습니다. file 관리자 2017.03.14 320