DBExpress를 사용한 컴포넌트입니다.
DBExpress가 단방향이라 사용하기 불편해서 오래 전에 만들었는데 공유하려고 올립니다.
일반적으로 DBExpress를 사용해서 쿼리하고 업데이트 하려면 쿼리용 TSQLQuery, TDataSetProvider, TClientDataSet 이 필요하고 저장하기 위해 또 TSQLQuery가 필요합니다.
이러한 불편함을 없애기 위해 이 기능을 하나로 통합해 TSQLClientDataSet 컴포넌트를 만들었습니다.
버전은 Delphi 7 입니다.
다른 버전은 수정해서 사용하시구요.
소스 중에 DBLRegS.pas는 Property Editor 관련 입니다.
타 버전에서 이 부분 오류를 수정 하지 못할 경우는 제외하시고 사용하셔도 됩니다.
DesignTime 속성 설정 시 조금 불편함을 있겠지만 사용에는 문제가 없을 겁니다.


컴포넌트 기능 간단 설명

properties

CommandText: String
쿼리 설정

DBConnection: TSQLConnection;
DB연결을 위한 TSQLConnection

TranConnection: TSQLConnection;
일반적으로 필요하지 않음
특별하게 트랜잭션이 필요할 경우 사용
다른 컨넥션 사용 기본값은 DBConnection과 동일)

CommitMode: TCommitMode;
값은 cmNone, cmRecord, cmPage
트랜잭션이 필요할 경우 설정

UpdateSQL: TCDSUpdateSQL;
Insert, Update, Delete로 구성
해당 하는 모드에 따라 필드와 동일한 파라미터로 SQL문 작성
Delete나 Update문의 키 값은 "OLD_파라미터명" 사용

Events

UpdateSQL.BeforeGetParam
파라미터 값 사용자 설정
var 파라미터인 AValue에 값 설정
Old 값이 True인 경우에 TField.OldValue나 원하는 값으로 설정

UpdateSQL.BeforeUpdate
업데이트 전 발생
UpdateKind에 따라 제약조건이나 추가조건 등록가능
사용자 업데이트 일 경우 var 파라미터인 Updated 값을 True로 변경

이상 간단한 컴포넌트 기능에 대한 설명이었습니다.

기본은 TClientDataSet과 동일하기 때문에 Midas 사용해보신 분은 쉽게 쓸 수 있을 겁니다.
간단히 DBConnection 설정 gn CommandText를 설정해 Open하면 됩니다.

그럼 즐거운 프로그래밍하시길...