중화사전망 - 자전 검색 - 델파이 기본 자습서: 델파이 맞춤형 구성 요소 개발 (3) [4]

델파이 기본 자습서: 델파이 맞춤형 구성 요소 개발 (3) [4]

다음은 DataSource 및 DataField 의 선언과 구현 방법입니다.

유형

Tdbcalendar = class (tsamplecalendar)

Private {속성 구현 방법은}

함수 getdatafield: string; {데이터베이스 필드의 이름을 반환합니다}

함수 getdatasource: tdatasource; {데이터 소스에 대한 참조를 반환합니다}

프로시저 setdatafield (상수 값: 문자열) {데이터베이스 필드 이름에 값 지정}

프로시저 setdatasource (값: tdata source){ 데이터 소스에 할당}

게시됨 {디자인 타임에 속성 사용 가능}

Property data field: string read get data field write setdata field;

Property data source: tdata source read get data source write set data source;

끝;

......

함수 TDB calendar get data field: string;

시작

결과: = FDataLink FieldName

끝;

함수 TDB calendar get data source: tdata source;

시작

결과: = FDataLink DataSource

끝;

프로시저 TDBCalendar SetDataField (상수 값: 문자열)

시작

FDataLink 필드 이름: = Value

끝;

프로시저 TDBCalendar SetDataSource (값: tDataSource)

시작

FDataLink 데이터 소스: = 값

끝;

이제 달력과 데이터 체인 사이의 체인이 설정되었습니다. 또한 더 중요한 단계가 있습니다. 캘린더를 만들 때 데이터 링크 객체를 만들고 캘린더가 구문 분석될 때 데이터 링크 객체를 실행 취소해야 합니다.

(3) 데이터 체인을 초기화합니다.

데이터 관련 컨트롤이 존재하는 동안 데이터 링크 객체에 연속적으로 액세스해야 하므로 데이터 링크 생성은 생성자에서 생성되어야 하고 데이터 링크 객체는 삭제 중 취소되어야 하므로 달력 생성 및 삭제 방법을 재정의해야 합니다.

유형

TDBCalendar = class(TCalendar)

대중의

생성자 생성 (Aowna: TComponent) 재작성

소멸자 함수 Destroy 커버리지;

끝;

생성자 TDB calendarcreate (aoowner: t component)

시작

상속 생성 (소유자)

Fread only:= True；;

Fdatalink: = tfield datalink create;

끝;

구문 분석 함수 TDBCalendar Destroy

시작

Fdata 링크 무료;

상속 파괴

끝;

이제 구성 요소에 전체 데이터 링크가 있지만 구성 요소는 여전히 연결된 도메인에서 어떤 데이터를 읽는지 알 수 없습니다.

데이터 변경에 대응

컨트롤에 데이터 소스와 데이터 필드를 설명하는 데이터 링크와 속성이 있으면 데이터 레코드가 변경될 때 데이터 필드의 데이터 변경 사항에 응답해야 합니다.

데이터 링크 객체에는 모두 OnDataChange 라는 이벤트가 있습니다. 데이터 소스가 데이터가 변경되었음을 나타내면 DataLink 객체는 OnDataChange 에 연결된 모든 이벤트 처리기를 호출합니다.

데이터가 변경될 때 데이터를 업데이트하려면 DataLink 객체의 OnDataChange 이벤트에 이벤트 처리 프로세스를 추가해야 합니다.

DataChange 메서드가 선언되어 DataLink 객체의 OnDataChange 이벤트에 할당됩니다.

유형

TDBCalendar = class(TCalendar)

개인

프로시저 데이터 변경 (보낸 사람: 대상)

끝;

생성자 TDB calendarcreate (aoowner: t component)

시작

상속 생성 (소유자)

Fread only:= True；;

Fdatalink: = tfield datalink create;

Fdata link on data change: = data change;

끝;

구문 분석 함수 TDBcalendar Destroy

시작

Fdata link on data change: = nil;

Fdata 링크 무료;

상속파괴

끝;

프로그램 TDBCalendar 데이터 변경 (보낸 사람: TObject)

시작

FDataLink 필드가 0 이면

Calendardate: =;

기타

CalendarDate := FDataLink 필드 AsDate

끝;

카탈로그 델파이 기본 자습서로 돌아가기