Событие OnEOF

Событие OnNext

Событие OnFirst

Событие OnOpen

Событие OnGetCols

Событие OnGetCols вызывается, когда Rave желает получить мета данные. Внутри этого события Вы захотите вызвать метод Connection.WriteField для каждого поля (колонки) ваших данных. Определение WriteField следующее:

procedure WriteField(Name: string;

DataType: TRpDataType;

Width: integer;

FullName: string;

Description: string);

Name это короткое имя поля и должно состоять только из алфавитно-цифровых символов. DataType это тип данных поля и должен быть одним из следующих типов: dtString, dtInteger, dtBoolean, dtFloat, dtCurrency, dtBCD, dtDate, dtTime, dtDateTime, dtBlob, dtMemo или dtGraphic. Width это относительная ширина поля в символах. Full name это полное, более описательное имя поля и может включать в себя пробелы и другие не алфавитно-цифровые символы. Если FullName пустое, то будет использовано короткое имя поля. Description это полное описание поля и обычно редактируется с помощью компонента, поэтому может состоять из нескольких строк. Используйте свойство Description для описания, как используется поле или для любой другой более, нужной информации насчет данного поля.

Пример:

procedure TDataForm.CustomCXNGetCols(Connection: TRvCustomConnection);

begin

With Connection do begin

WriteField('Index',dtInteger,8,'Index Field','Описание 1');

WriteField('Name',dtString,30,'Name Field','Описание 2');

WriteField('Amount',dtFloat,20,'Amount Field','Описание 3');

end; { with }

end;

Событие OnOpen возбуждается при инициализации сессии данных. В этом событие Вы можете открыть файлы данных, инициализировать переменные и сохранить текущее состояние данных для события OnRestore, которое будет возбуждено при закрытии сессии данных.

Пример:

procedure TDataForm.CustomCXNOpen(Connection: TRvCustomConnection);

begin

AssignFile(DataFile,'DATAFILE.DAT');

Reset(DataFile,1);

end;

Событие OnFirst вызывается, когда требуется перемещение курсора данных на первую строку данных.

Пример:

procedure TDataForm.CustomCXNFirst(Connection: TRvCustomConnection);

begin

Seek(DataFile,0);

BlockRead(DataFile,DataRecord,SizeOf(DataRecord),DataRead);

end;

Событие OnNext вызывается, когда требуется перемещение курсора данных на следующую строку данных.

Пример:

procedure TDataForm.CustomCXNNext(Connection: TRvCustomConnection);

begin

BlockRead(DataFile,DataRecord,SizeOf(DataRecord),DataRead);

end;

Событие OnEOF вызывается для возврата состояния курсора данных, находится ли он на данных или уже вышел за конец. Значение TRUE должно быть возвращено, если данных больше нет или если вызов события OnNext привел к выходу из последней строки.

Пример:

procedure TMainForm.CustomCXNEOF(Connection: TRvCustomConnection;

var EOF: Boolean);

begin

EOF:= DataRead < SizeOf(DataRecord);

end;

Дата добавления: 2015-05-09