tblIndustry.UpdateBatch() ;
end;
procedure TfmMain.tbFilterClick(Sender: TObject);
var i: Integer;

begin if dbglndustry.SelectedRows.Count > 0 then begin SetLength(Bookmarks, dbglndustry.SelectedRows.Count); for i := 0 to dbglndustry.SelectedRows.Count - 1 do tegin

Bookmarks[i].VType := vtPointer;
Bookmarks[i].VPointer := pointer(dbglndustry.SelectedRows[i]);
end;

tbllndustry.FilterOnBookmarks(Bookmarks); end else

MessageDlg(sEmptyFilter, mtWarning, [mbOK], 0);
end;
procedure TfiriMain.tbUnFilterClick (Sender: TObject) ;
begin
tbllndustry.Filtered := False;
dbglndustry.SelectedRows.Clear;
end;

procedure TfmMain.dbglndustryTitleClick (Column: TColuirin) /

begin if tbllndustry.Active then

if (Pos(Column.FieldName, tbllndustry. Sort) > 0) and(Pos ('ASC', tbllndustry.Sort) > 0)

then tbllndustry. Sort := Colirmn. FieldName + ' DESC

else tbllndustry.Sort := Column.FieldName + ' ASC ;
end;
procedure TfmMain.ADOConnAfterConnect(Sender: TObject);
var i: Integer;
begin
for і := 0 to adoConn.DataSetCount - 1 do ADOConn.DataSets[i].Open;
end;
procedure TfmMain.ADOConnBeforeDisconnect(Sender: TObject);
var i: Integer;
begin
for і := 0 to adoConn.DataSetCount - 1 do ADOConn.DataSets[i].Close;
end;

end.

Соединение с источником данных

Для связывания приложения с источником данных используем компонент TADOConnection и настроим соединения, щелкнув на кнопке свойства connectionstring в Инспекторе объектов.

Перейдя в редактор Data Link Properties, выберем провайдер Microsoft OLE DB Provider for OLE DB Drivers (см. рис. 19.3). Как правило, он имеется в операционной системе, если вы не предпринимали специальных усилий по его удалению.

Далее, на странице Connection (см. рис. 19.4) выберем радиокнопку Use data source name и в списке - файлы dBase. Для создания соединения с провайдером ODBC этого вполне достаточно.

Прокомментируем другие свойства компонента соединения ADO.

Свойство LoginPrompt должно иметь значение False, чтобы запретить показ диалога авторизации пользователя, ненужный для файлов dBase.

Свойство DefaultDatabase пока останется пустым. Мы применим его для указания пути к файлам базы данных, используя элементы пользовательского интерфейса приложения.

Свойство CursorLocation имеет значение clüseClient, чтобы обеспечить использование курсоров наборов данных на стороне клиента.

Свойство ConnectOptions имеет значение по умолчанию coConnectUnspecified. Это означает, что все команды буцут выполняться синхронно - соединение будет ожидать ответ на каждую команду.

Для свойства Mode установим значение cmShareDenyNone, что запрещает другим соединениям устанавливать любые ограничения - ведь в данном случае мы не планируем многопользовательскую работу с источником данных.

Для открытия соединения после запуска приложения необходимо задать путь к хранилищу данных. Для этого предназначена кнопка и однострочный редактор на Панели управления. После выбора пути его значение заносится в переменную DefDBStr и в текст редактора edDefDB. Переменная используется для установления соединения. Для включения соединения необходимо нажать кнопку tbConnect. Ее метод-обработчик проверяет состояние переменной DefDBStr и заполняет свойство DefauitDatabase компонента соединения.


⇐ Предыдущая страница| |Следующая страница ⇒

Программирование в Delphi 7



Новости за месяц

  • Декабрь
    2017
  • Пн
  • Вт
  • Ср
  • Чт
  • Пт
  • Сб
  • Вс