Приклад 1. Внесення записів через компоненти закладки DataControl

1. Помістимо на форму компоненти DBEdit, DBMemo, DBCheckBox, Label, як вказано на рисунку 14.

Рисунок 14 – Форма для введення нових записів у таблицю «People»

2. Підключимо компоненти. Виділіть всі компоненти для відображення даних (DB…) і встановіть властивість DataSourse у значення DataModule2.DSPeople (DataSource1). Потім встановіть властивість DataField кожного із компонент відповідно до назв полів.

3. Додамо на форму три кнопки (Button1-3): для створення запису, для редагування і внесення змін. Опишемо обробники подій послідовно:

procedure TForm4.Button1Click(Sender: TObject);

begin

datamodule2.Table1.Append(); // створення нового запису (або Insert)

end;

procedure TForm4.Button2Click(Sender: TObject);

begin

datamodule2.Table1.post(); // внесення змін

end;

procedure TForm4.Button3Click(Sender: TObject);

begin

datamodule2.Table1.edit(); // редагування нового запису

end;

4. Додайте ще 4 кнопки Button. Для кожної з них пропишіть властивість Caption відповідно до рисунка 15:

Рисунок 15 – Налаштування кнопок

В обробнику подій OnClick прописуємо:

procedure TForm4.Button4Click(Sender: TObject);

begin

datamodule2.Table1.First;

end;

procedure TForm4.Button5Click(Sender: TObject);

begin

datamodule2.Table1.prior;

end;

procedure TForm4.Button6Click(Sender: TObject);

begin

datamodule2.Table1.Next;

end;

procedure TForm4.Button7Click(Sender: TObject);

begin

datamodule2.Table1.Last;

end;

Таким чином виконується навігація по записам таблиці.