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

var tvi: TTVItem;

begin

 FillChar(tvi, Sizeof(tvi), 0);

 tvi.hItem := node.ItemID;

 tvi.mask := TVIF_STATE;

 tvi.stateMask := TVIS_BOLD or tvis_cut;

 tvi.state := Flags;

 TreeView_SetItem(node.Handle, tvi);

end;

И вызываем:

SetNodeState(TreeView1.Selected, TVIS_BOLD); // Текст жирным

SetNodeState(TreeView1.Selected, TVIS_CUT); // Иконку бледной

(Ctrl+X)

SetNodeState(TreeView1.Selected, TVIS_BOLD or TVIS_CUT); // Текст жирным

SetNodeState(TreeView1.Selected, 0); // Ни того, ни другого

Когда-то (мечтательно закатив глаза в потолок) в API было еще и TVIS_DISABLE. Снесли собаки. А рекомендуемую стилистику употребления этого добра смотри в MS Internet News. 

UpdateSQL 

Что нужно знать о принципе и порядке работы с TUpdateSQL для работы с неживыми запросами?

Nomadic советует:

Кидаешь UpdateSQL на форму, после чего в том SQL, который ты собираешься редактировать, устанавливаешь в UpdateObject имя этого UpdateSQL. После этих дел по дабл-клику на UpdateSQL выдаётся редактор, в котором ты должен для каждой из таблиц,входящих в твой запрос, указать набор полей, являющихся уникальным ключём таблицы, и набор полей, которые требуется редактировать. В общем случае возможны глюки с редактированием, если в числе изменяемых полей будут элементы ключа. Указав все поля, давишь кнопку Generate SQL и в результате у тебя генерятся запросы на редактирование, добавление и удаление, которые прописываются в том же UpdateSQL. Обычно эти запросы никакого дополнительного редактирования не требуют. После всех этих дел ты можешь нормально редактировать запрос, как обычную таблицу.

Hекоторые моменты.

Для того, чтобы всё это нормально работало, нужно, чтобы в TQuery были включены RequestLive и CashedUpdates. Соответственно, для подтверждения изменений нужно вызывать TQuery.ApplyUpdates и TQuery.CommitUpdates, либо TDatabase.ApplyUpdates, а для отмены – CancelUpdates.

Если меняешь структуру таблиц, то не забывай менять списки полей в UpdateSQL, иначе можешь получить неприятный сюрприз – будешь долго сидеть и думать, почему при редактировании/добавлении некоторые поля не прописываются :-).

– Отрезано –

Hасчёт CachedUpdates.

Сия хреновина придумана для того, чтобы обеспечить сохранение/отмену редактирования/добавления/удаления сразу нескольких записей. Принцип совершенно элементарен: если CachedUpdates включен, то все производимые изменения в датасете по команде Post фиксируются не в базе, а во временном файле на винте клиента. Для того, чтобы прописать изменения в таблице (физически), необходимо вызвать для соответствующего запроса последовательно методы ApplyUpdates и CommitUpdates, а для отмены ВСЕХ изменений (начиная от последнего выполненного CommitUpdates), вызвать CancelUpdates. Кроме того, метод ApplyUpdates у TDataBase. Этому методу нужен список датасетов, и он производит их обновление в одной транзакции.

Практическое применение, например, такое: на форме редактирования с гридом и набором кнопок Добавить, Удалить, Редактировать, ОК, Отмена, вешаешь на первые три кнопки обработчики с Insert, Delete и Edit соответственно, на OK – такой примерно обработчик:

with DataSet do begin

 if State in [dsEdit,dsInsert] then Post;

 ApplyUpdates;

 CommitUpdates;

end;

а на Отмену такой:

with DataSet do begin

 if State in [dsEdit,dsInsert] then Cancel;

 CancelUpdates;

end;

В результате юзер может редактировать хоть всю таблицу, но если успеет спохватиться, то может отменить все свои художества. Только желательно на выходе из формы проверить, сохранены ли изменения, и если нет, то напомнить/переспросить.

Лучше использовать конструкцию «State in dsEditModes»

Разное 

Создание компонентов для работы с базами данных

Тема: Создание компонентов для работы с базами данных, позволяющих работать с самими данными

Обзор

Данный документ описывает минимально необходимые шаги, необходимые для создания компонента для работы с базами данных, который может отображать данные отдельного поля. Примером такого компонента может служить панель со свойствами DataSource и DataField, похожая на компонент TDBText. Для получения дополнительных примеров обратитесь к Руководству по написанию компонентов "Making a Control Data-Aware".

Как пользоваться данным документом

Для наилучшего понимания данного документа, вы должны быть знакомы с механизмом функционирования элементов управления для работы с базами данных и основополагающими принципами создания компонент, такими, как

• создание компонентов на основе существующих

• перекрытие конструкторов и деструкторов

• создание новых свойств

• чтение и запись значений свойств

• назначение обработчиков событий

Основные шаги по созданию компоненты, осуществляющей навигацию по данным

• Создайте или наследуйте компонент, который допускает свое отображение, но не ввод данных. Например, вы могли бы использовать компонент TMemo с установленным в True свойством ReadOnly. В примере, приведенном в данном документе, мы используем TCustomPanel. TCustomPanel позволяет себя отображать, но не вводить данные.

• Добавьте к вашему компоненту data-link object (объект для связи с данными). Данный объект позволяет управлять связью между компонентом и таблицей базы данных.

• Добавьте к компоненту свойства DataField и DataSource.

• Добавьте методы для получения и установления DataField и DataSource.

• Добавьте к компоненту метод DataChange, позволяющий управлять событиями OnDataChange объекта data-link.

• Перекройте конструктор компонента для создания datalink и перехвата метода DataChange.

• Перекройте деструктор компонента для очищения datalink.

Создание TDBPANEL

• Создайте или наследуйте компонент, который допускает свое отображение, но не ввод данных. В качестве отправной точки для нашего примера мы будем использовать TCustomPanel.

Выберите соответствующий пункт меню для создания нового компонента (он меняется от версии к версии Delphi), определите TDBPanel как имя класса, и TCustomPanel в качестве наследуемого типа. Определите любую страницу Палитры компонентов.

• Добавьте DB и DBTables в список используемых модулей.

• Добавьте data-link объект в секцию private вашего компонента. Данный пример отображает данные одного поля, поэтому мы используем TFieldDataLink для обеспечения связи между нашим новым компонентом и DataSource. Имя нового data-link объекта – FDataLink.

{ пример }

private

 FDataLink: TFieldDataLink;

• Добавьте к компоненту свойства DataField и DataSource. Мы добавим соответствующий код для методов записи/чтения в последующих шагах.

Примечание: Наш новый компонент будет иметь свойства DataField и DataSource, FDataLink также будет иметь собственные свойства DataField и Datasource.

{ пример }

published

 property DataField: string read GetDataField write SetDataField;

 property DataSource: TDataSource read GetDataSource write SetDataSource;

• Добавьте частные методы для чтения/записи значений свойств DataField и DataSource, и свойств DataField и DataSource для FDataLink.

{ пример }

private

 FDataLink: TFieldDataLink;

 function GetDataField: String;

 function GetDataSource: TDataSource;

 procedure SetDataField(Const Value: string);

 procedure SetDataSource(Value: TDataSource);

 .

 .

implementation

 .

 .

function TDBPanel.GetDataField: String;

begin

 Result := FDataLink.FieldName;

end;

function TDBPanel.GetDataSource: TDataSource;

begin

 Result := FDataLink.DataSource;

end;

procedure TDBPanel.SetDataField(Const Value: string);

begin

 FDataLink.FieldName := Value;

end;

procedure TDBPanel.SetDataSource(Value: TDataSource);

begin

 FDataLink.DataSource := Value;

end;

• Добавьте частный метод DataChange, назначая событие объекта datalink OnDataChange. В методе DataChange добавьте код для отображения данных поля актуальной базы данных, связь с которой обеспечивает объект data-link. В нашем примере мы назначаем значение поля FDataLink заголовку панели.

{ пример }

private

.

.

procedure DataChange(Sender: TObject); = nil then Caption := '';

implementation

.

.

procedure TDBPanel.DataChange(Sender: TObject);

begin