Своя навигация по записям

Есть база данных «Sklad», в ней таблица «Tovar». Для базы данных в «BDE Administrator» создан alias «Sklad». Необходимо средствами «Delphi 7» организовать навигацию по записям таблицы «Tovar».

Конечно есть многофункциональный VCL-компонент «DBNavigator» с закладки «Data Controls», ну да ладно, сделаем без него.

Запускаем IDE «Delphi 7», создаем новый проект. На главную форму приложения перетаскиваем следующие компоненты:

– Table (с закладки BDE);

– DataSource (с закладки Data Access);

– DBGrid (с закладки Data Controls);

– две кнопки Button (с закладки Standart).

Далее связываем и настраиваем компоненты.

Компонент	Параметр	Значение	Примечание
Table1	DatabaseName	Sklad	Выбираем
	TableName	Tovar	Выбираем
	Active	True	Выбираем
DataSource1	DataSet	Table1	Выбираем
DBGrid1	DataSource	DataSource1	Выбираем
Button1	OnClick	Table1.Prior;
Button2	OnClick	Table1.Next;

Также можно поменять названия главной формы и кнопок.

Рис. 1. Своя навигация по записям