procedure TADOApostrofStoredProc.SetFieldData(Field: TField; Buffer: Pointer;
NativeFormat: Boolean);
var
Buf: Boolean;
begin
Buf := Field.ReadOnly;
Field.ReadOnly := Field.ReadOnly and (State <> dsInsert);
try
inherited;
finally
Field.ReadOnly := Buf;
end;
end;

procedure TADOApostrofStoredProc.OpenCursor(InfoQuery: Boolean);
var
TheTime: TDateTime;
begin
TheTime := Time;
inherited;
FOpenTime := Time - TheTime;
end;

end.

Страницы: 1 2 3 4

Эта запись была опубликована 14.12.2007в 21:00. В рубриках: Базы данных. Вы можете следить за ответами к этой записи через RSS 2.0. Комментарии пока закрыты, но Вы можете оставить трекбек со своего сайта.