Валентин Озеров - Советы по Delphi. Версия 1.4.3 от 1.1.2001

else ifVarIsNull(NewVal) thenShowMessage('Field was blanked out')

elseShowMessage('New Field Value: ' + String(NewVal));

end;

Если Вы взглянете на исходники формы RecError (в репозитории), то Вы увидите, как она использует эту информацию для вывода строки ' ' при показе ошибок синхронизации данных. На сервере Вы добавляете ограничения уровня записи, используя свойство Constraints Вашего TQuery/TTable или ограничения уровня поля, используя постоянные обьекты TField (с помощью FieldsEditor либо на CustomConstraint, либо ImportedConstraint). Если Вы используете ограничения уровня поля, они вступают в силу, когда данныеотправляются в поле (например, когда Вы уходите из органа управления, связанного с этим полем (типа TDBEdit)).

Nomadicотвечает:

Вот так:

RemoteServer.AppServer.MyMethod

AppServer – свойство только для чтения, возвращающее интерфейс удаленного сервера, возвращаемый провайдером сервера приложений. Клиентские приложения могут общаться напрямую с сервером приложений через этот интерфейс.

Nomadicотвечает:

Ваш INF-файл должен включать в себя строки наподобие:

[Add.Code]

dbclient.dll=dbclient.dll

[dbclient.dll]

file=http://yoursite.com/dbclient.cab

clsid={9E8D2F81-591C-11D0-BF52-0020AF32BD64}

RegisterServer=yes

FileVersion=4,0,0,36

Замените «yoursite» Вашим HTTP-адресом, где находится cab-файл. FileVersion – это версия файла в Вашем cab-файле (проверьте информацию о версии DBCLIENT, чтобы быть уверенным в соответствии). Убедитесь, что FileVersion относится к версии Вашего DBCLIENT.DLL. Вы можете положить dbclient.dll в cab-файл, используя утилиту CABARC, которую Вы найдете в папке delphi\bin. Примерная команда вызова CABARC может выглядеть примерно так:

CABARC N DBCLIENT.CAB DBCLIENT.DLL

Nomadicотвечает:

Вы не сможете отделаться от Провайдера (хотя бросать его на форму/модуль данных не придется), но Вы сможете использовать TClientDataSetв одно-точечном (single-tier) приложении. Для того, чтобы открыть client dataset, Вы должны назначить Провайдера Данных вручную.

{ CDS = TClientDataSet }

{ Table1 = TTable }

CDS.Provider := Table1.Provider;

CDS.Open;

Также Вы должны включить модуль BDEProvв предложение uses.

Nomadicотвечает:

A: (AA): Ставьте Interbase в каталог с путем, соответствующим DOS-овским соглашениям об именах (8+3).

Возможен ли вызов функций редактора полей (Fields Editor) во время выполнения программы?

Да. Если вы определили поля во время разработки приложения, то во время выполнения можно менять их свойства (например, Size).

Например, следующий код изменяет каждый размер поля TField.Size так, чтобы соответствовать фактическому размеру поля открываемого набора данных:

procedureSetupFieldsAndOpenDataset(DataSet: TDataSet);

varFieldNum, DefNum: Integer;

begin

withDataSet do

begin

ifActive thenClose;

FieldDefs.Update;

{набор данных должен быть закрыт}

{ищем каждое предопределенное TField в DataSet.FieldDefs:}

forFieldNum := FieldCount - 1 downto0 do withFields[FieldNum] do

begin

DefNum := FieldDefs.IndexOf(FieldName);

ifDefNum < 0 then raiseException.CreateFmt('Поле "%s" не найдено в наборе данных "%s"',[FieldName, Dataset.Name]);

{устанавливаем свойство size:}

Size := FieldDefs[DefNum].Size;

end;

Open;

end;

end;

– Lindsay Reichmann

Я думал о производной, новом варианте компонента TIntegerfield, но я не могу понять как мне его получить во время разработки, ведь он не устанавливается в палитру компонентов.

Это то, что вы хотите. Создайте следующий молуль:

MICRON.PAS:

unitmicron;

interface

uses DB, DBTables, Classes;

type

TMicronField = class(TIntegerField)

public

functionIsValidChar(Ch: Char): Boolean; override;

end;

procedure Register;

implementation