Исходник базы данных

     Вызов процедуры вывода фотографии  (showFoto) во время просмотра базы данных выполняет процедура TForm1.Table1AfterScroll, которая обеспечивает обработку события AfterScroll для компонента Table1. Событие AfterScroll происходит всякий раз после перехода к другой  записи таблицы как результат щелчка пользователя на соответствующей кнопке компонента  DBNavigator. 

Создание базы данных в Delphi.

     В комплекте Delphi 7 входит сразу несколько библиотек для работы с базами данных (ADO, BDE, dbExpress, InterBase и др.). Для того чтобы создать приложение, работающее с локальной базой данных, обычно используется библиотека BDE. Но без определённой подготовки операционной системы эти компоненты работать не будут. Смотри создание базы данных с помощью BDE.
Но Delphi существует альтернатива этим  компонентам – это автономный компонент TClientDataSet который использует свой собственный формат данных.

     Рассмотрим, как фильтровать записи в таблице базы данных  и индексировать их. Фильтровка записей таблицы это эквивалент SQL запросам. Фильтровка нужна, для того чтобы показать пользователю меньше записей согласно определённому условию (например: показать только тех студентов группы у кого день рождения в мае или в январе и т.д.). Фильтрацию в Delphi также можно использовать как поиск какой то записи в таблице. На практике в большинстве случаев SQL запросы используются именно в таких случаях, какой описан в примере.

     Редактировние базы данных, то есть в компоненте TClientDataSet можно редактировать только текущую запись и извлекать значение только из текущей записи. Текущая запись -  это та запись, которая имеет фокус ввода в данный момент. Для того чтобы некоторая запись стала текущей, для редактирования базы данных,  её пользователь должен выделить , также её можно выделить программно. Чтобы сделать некоторую запись текущей в Delphi используется такой метод как Locate:
Locate(const KeyFields: string;
const KeyValues: Variant; Options: TLocateOptions): Boolean;