Базы данных на Delphi 7. Сергей Николаевич Талипов

      В «Делфи» понятие «таблица данных» и «база данных» различаются. Таблицей называется совокупность данных, нормализованных в табличную форму. Примером таблиц служат классические БД типа FoxPro и DBase. База данных – это файл, содержащий в себе несколько таблиц, которые имеют, как правило, внутренние взаимосвязи по ключевым полям. Базы данных используются в крупных промышленных СУБД типа «ORACLE» и других клиент – серверных системах.

      Для ознакомления с программированием баз данных будем пользоваться таблицами типа DBase и FoxPro. Для начала любой работы с БД из под «Делфи» необходимо настроить BDE – систему. Для этого служит специальная программа «BDE Administrator». Для создания таблиц и наполнения их данными можно воспользоваться программой «DataBase Desktop» из установленного комплекта «Делфи».

      2. ПРОСТЕЙШАЯ ПРОГРАММА

      Для создания простейшей программы понадобится одна форма, не визуальные компоненты «DataSource» и «Table» из вкладки «Data Access», и визуальные компоненты «DBGrid» и «DBGrid» из вкладки «Data Controls». Расположите компоненты на форме как показано на рис.1.

      Рис. 1

      Не визуальный компонент «Table» предназначен для непосредственного доступа к таблице данных через BDE – систему. Визуальный компонент «DBGrid» служит для просмотра/редактирования записей в таблице данных, компонент «DBNavigator» служит для перемещения (навигации) по таблице данных. Не визуальный компонент «DataSource» служит посредником между компонентом «Table» и всеми визуальными компонентами.

      Программная часть программы состоит из двух обработчиков событий «OnActivate» и «OnClose» для формы. Ниже приведен исходный текст данных обработчиков.

      procedure TForm1.FormActivate(Sender: TObject);

      begin

      try { Установка защиты на операторы }

        Table1.DatabaseName:='c:\uoo\dbf'; { Установка пути к таблице данных }

        Table1.TableName:='u2_spec.dbf'; { Указание имени файла таблицы данных с расширением }

        DataSource1.DataSet:=Table1; { Связуем компонент Table1 с компонентом DataSource1 }

        DBGrid1.DataSource:=DataSource1; { Связуем компонент DBGrid1 с компонентом DataSource1 }

        DBNavigator1.DataSource:=DataSource1; { Связуем компонент DBNavigator1 с компонентом DataSource1 }

        if not Table1.active then Table1.Open; { Если таблица еще не открыта, то открыть ее }

      except { Если произошла ошибка при открытии таблицы данных, то выдать сообщение }

        showmessage('Error !');

      end;

      end;

      procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);

      begin { Если таблица данных открыта, то закрыть ее }

      try if Table1.active then Table1.Close; except end;

      end;