Советы по Delphi. Версия 1.4.3 от 1.1.2001 - страница 28
>
> …
– Pat Ritchey
Работа с комментариями в большом куске кода
Delphi 1
В Паскале существует 2 способа обозначить комментарии – {} и (* *). Вы можете вставлять один комментарий в другой (осуществлять вложенность). Следовательно, вставляя (* в начале вашего блока, и *) в конце, вы все еще можете работать с вложенными комментариями типа { }.
Базы данных
Калькуляция
Код определения возраста
Delphi 1
Вызовите диалог редактирования полей (Fields Editor), дважды щелкнув на компоненте TTable или TQuery, расположенном на вашей форме (или выбрав в контекстном меню пункт Fields Editor). Добавьте все поля, с которыми вы хотите работать в форме (даже если вы хотите, чтобы они были невидимы, но вам необходим к ним доступ – для таких полей установите свойство visible в false). Затем щелкните на «Define…» (определить) для добавления вычисляемого поля. Введите имя вычисляемого поля, отличающееся от имен других полей таблицы, выберите тип (вероятно, StringField) и задайте длину (20 будет в самый раз). Убедитесь в том, что напротив поля 'calculated' стоит галочка. Затем создайте для вашего объекта TTable или TQuery обработчик события 'OnCalcFields'. В этом обработчике вы берете значения реальных полей таблицы, делаете вычисления, и помещаете результаты в объект вычисляемого поля, который вы только что создали. После этого значение выводится в TDBGrid, или в элементе управления TDBText, если вы решили использовать форму вместо табличной сетки.
Наша функция должна достичь цели, обрабатывая значения лет и месяцев. Поскольку не все месяцы имеют одно и то же количество дней, я просто брал среднее число, поэтому результат может быть не очень точен, но большинство людей это удовлетворяет:
>function AgeStr(aDate: TDateTime): string;
>var
> DaysOld: Double;
> Years, Months: Integer;
>begin
> DaysOld:= Date – aDate;
> Years:= Trunc(DaysOld / 365.25);
> DaysOld:= DaysOld – (365.25 * Years);
> Months:= Trunc(DaysOld / 30.41);
> Result:= Format('%d лет, %d месяцев',[Years, Months]);
>end;
В моем случае метод OnCalcFields выглядит так:
>procedure TEntryForm.TableNameOrderCalcFields(DataSet: TDataset);
>begin
> TableNameOrderAge.AsString := AgeStr(TableNameOrderDateOfBirth.AsDateTime);
>end;
Как пересчитать все вычисляемые поля (Calculated fields) без переоткрытия TDataSet?
Одной строкой
Nomadic отвечает:
>Resync([rmExact, rmCenter]);
Как создать вычисляемые поля во время исполнения программы (Calculated fields at RunTime)?
Nomadic отвечает:
Смотрите книгу "Developing Custom Delphi Components" от Рэя Конопки.
Здесь немного исправленный пример из этой книги
>function TMyClass.CreateCalcField(const AFieldName: string; AFieldClass: TFieldClass; ASize: Word): TField;
>begin
> Result := FDataSet.FindField( AFieldName ); // Field may already exists!
> if Result<>nil then Exit;
> if AFieldClass = nil then
> begin
> DBErrorFmt( SUnknownFieldType, [AFieldName] );
> end;
> Result := FieldClass.Create( Owner );
> with Result do
> try
> FieldName := AFieldName;
> if (Result is TStringField) or (Result is TBCDField) or (Result is TBlobField) or (Result is TBytesField) or (Result is TVarBytesField) then
> begin
> Size := ASize;
> end;
> Calculated := True;
> DataSet := FDataset;
> Name := FDataSet.Name + AFieldName;
> except
> Free; // We must release allocated memory on error!
> raise;
> end;
>end;
Доступ
Хитрости многопользовательского доступа к БД
Вот некоторые хитрости, могущие помочь в разработке баз многопользовательского доступа:
В модуле DBIPROCS Delphi 1.0 и в BDE.INT 2.0 существует классная функция с именем DBISETLOCKRETRY(n).
Синтаксис – DBISetLockRetry(n), где n – количество секунд ожидания перед повторной попыткой вставки, редактирования или другой операцией с таблицей. DBISetLockRetry(-1) будет бесконечно пытаться получить доступ к вашей таблице.
Хорошее место для вызова функции – обработчик события TableAfterOpen. В этом случае все, что вам нужно сделать, это:
>DBISetLockRetry(x);
Если вы используете Delphi 1.0, не забудьте включить в вашу программу DBIProcs. В Delphi 2.0 включите BDE.
Мой заказчик и я разработали многопользовательскую базу данных по вашему рецепту, до этого наши пользователи получали сообщения «File is Locked» (файл заблокирован), «Table is Busy» (таблица занята), «Record Locked» (запись заблокирована) и др. Мы также пробовали Session.Netdir, но он не помог нам. Поскольку мы добавили в код эту строку, никаких блокировок не было. Частота обращений пользователей к базе достаточно велика (80 kpm). Мы разработали «измеритель скорости доступа» с 2 открытыми сессиями на двух компьютерах в сети Novell 4.1. Две сессии занимались вставкой, две другие редактированием, а мы сами занимались посылкой данных с частотой около 65 записей в минуту в течение операций редактирования и 85 в течение вставки. Сеть чуть не захлебнулась от такой работы. Утилизация файлового сервера была до нас около 60%. Не плохо для всего! Я думаю Borland необходимо задокументировать такой подход, чтобы другие не становились хакерами типа нас! :)