Кнопки для управление данными на форме

При реализации системы в Delphi, необходимо предусмотреть управление данными в форме, то есть осуществление добавление, удаление и редактирование данных, так же перемещение по записям.
при создании формы с помощью Мастер формы баз данных вверху формы автоматически размещается навигатор, который представляет собой небольшую группу кнопок, связанных с одним набором данных. Навигатор DBNavigator является визуальным компонентом, расположенным на странице Data Controls. Каждая кнопка навигатора выполняет определенную функцию базы данных.
Состав видимых кнопок определяет свойство VisibleButtons. Устанавливая для каждой из кнопок значение True или False в свойстве VisibleButtons, программист может формировать внешний вид навигатора.
Подсказку для каждой из кнопок можно установить с помощью свойства Hint типа TString. Для отображения подсказок необходимо установить значение True для свойства ShowHint. Вызвав строковый редактор String List Editor (нажав на кнопку ... в свойстве Hint), можно вести русские названия соответствующих кнопок.
Для связи навигатора с набором данных для свойства DataSource указывается соответствующие значение компонента DataSource.
реализация функции, выполняемых кнопками навигатора, возможна с помощью кнопок Button. В качестве примера рассмотрим создание групп кнопок на форме представленной ниже.

Для этого поместим на форму восемь компонентов Button (кнопка), находящаяся на странице Standard. Поскольку нажатие на каждую из кнопок должно приводить к стандартным процедурам навигатора базы данных, то в программном коде необходимо вызвать процедуры, присвоенные каждой кнопке формы. программные коды для кнопок управления имеют следующий вид:
Кнопка "Добавить":

procedure TForm5.Button1Click(Sender: TObject);
begin
DataModule2.TKlient.Insert;
end;

Кнопка "Сохранить":

procedure TForm5.Button2Click(Sender: TObject);

begin

DataModule2.TKlient.Post;

end;

Кнопка "Удалить":

procedure TForm5.Button3Click(Sender: TObject);

begin

DataModule2.TKlient.Delete;

end;

Кнопка "Обновить":

procedure TForm5.Button4Click(Sender: TObject);

begin

DataModule2.TKlient.Refresh;

end;

Кнопки, осуществляющие перемещение по записям формы:

Кнопка "Первая":

procedure TForm5.Button5Click(Sender: TObject);

begin

DataModule2.TKlient.First;

end;

Кнопка "Следующая":

procedure TForm5.Button6Click(Sender: TObject);

begin

DataModule2.TKlient.Next;

end;

Кнопка "Предыдущая":

procedure TForm5.Button7Click(Sender: TObject);

begin

DataModule2.TKlient.Prior;

end;

Кнопка "Последняя":

procedure TForm5.Button8Click(Sender: TObject);

begin

DataModule2.TKlient.Last;

end;

Так же на форме определим кнопку, осуществляющую переход на  указанный номер строки, для этого справа от кнопки "Перейти на" необходимо поместить визуальный компонент Edit (однострочный редактор), взяты со страницы DataControls. Этот компонент используется для ввода и отображения текста. В Инструкторе свойства объекта задать значение по умолчанию "1" свойству Text. И назначаем на нее выполнение следующей процедуры:

procedure TForm5.Button9Click(Sender: TObject);

begin

DataModule2.TKlient.RecNo=StrToInt(Edit1.Text);

end;

Для каждого компонента Button необходимо задать соответствующие значения в свойстве Caption.