На этом шаге мы рассмотрим создание простейшего приложения, иллюстрирующий доступ к базе данных формата Paradox.
Начните новый проект Delphi. Переместите на форму следующие компоненты:
- Компонент TADOTable (Вкладка ADO).
- Компонент TDataSource (Вкладка Data Access).
- Компонент TDBGrid (Вкладка Data Controls).
Создайте строку подключения для компонента TADOTable так же как показано на шаге 4.
Замечание. При создании строки подключения можно использовать созданные ранее источники данных. Используйте созданный на шаге 4 источник данных Sport.
Теперь раскройте свойство TableName (название таблицы) компонента TADOTable и выберите Players. Чтобы данные из набора данных ADOTable1 отобразились в сетке DBGrid1 нужно связать эти два компонента с помощью специального компонента TDataSource: свойство DataSet компонента DataSource1 установите равным ADOTable1, а свойство DataSource компонента DBGrid1 установите равным DataSource1.
С помощью свойства Active компонента ADOTable1 вы можете еще во время проектирования приложения соединиться с базой данных. Установите свойство Active компонента ADOTable1 равным True. В результате таблица Players отобразится в сетке DBGrid1 (рисунок 1).
Рис. 1. Пример простейшего приложения во время проектирования
Текст этого приложения можно взять здесь.
Замечание. Заранее выставлять для таблиц свойство Active равным True допустимо только в процессе настройки и отладки приложения. В законченных приложениях свойство Active во всех таблицах должно быть сначала установлено в False, а затем при событии формы OnCreate эти свойства могут быть установлены в True, а при событии формы OnDestroy эти свойства опять должны быть установлены в False. Это иссключит неоправданное поддержание связи с базой данных, которое занимает дополнительные ресурсы системы.
Методы Open и Close компонента TADOTable позволяют открывать и закрывать набор данных. Обработчики событий OnCreate и OnDestroy формы могут выглядеть следующим образом:
procedure TForm1.FormCreate(Sender: TObject); Begin ADOTable1.Open; End;
procedure TForm1.FormDestroy(Sender: TObject); Begin ADOTable1.Close; End;
Замечание. Если попытаться запустить приложение во время проектирования (клавиша F9), отладчик выдает сообщение об ошибке (рисунок 2).
Рис. 2. Ошибка при использовании компонента TADOTable
Исправить данную ошибку можно следующим образом. Достаточно щелкнуть правой кнопкой мыши по компоненту TADOTable и добавить все поля таблицы. В результате ошибка исчезает.
На следующем шаге мы рассмотрим файлы подключения.
