Перейдя на страницу Список студентов расположим на ней Query4, DataSource1, DbGrid, 2 кнопки Button,2 текстовых поля Edit, 2 Label и 4 SpeedButton. Затем установим для них свойства (см. рисунок 11).
Соединить Query с базой данных, установив DatabaseName=date и записав в SQL: select fio, gruppa from student. Установить у DataSource1 Dataset=Query4, чтобы он хранил набор данных Query, а для Dbrid установить DataSource1, чтобы в таблице мы могли увидеть результат запроса. 4 SpeedButton необходимы нам для перемещения по записям в таблице переходя: на следующую запись, первую, последнюю и предыдущую. Для этого мы запишем в обработчик событий для каждой из кнопок соответствующую строчку:
query4.Next;//следующая;
query4.First;//первая;
query4.Last;//последняя;
query4.Prior;//предыдущая.
Для того чтобы внести в таблицу соответствующее значение запишем для кнопки «Вставить» соответствующий код:
procedure TForm1.Button1Click(Sender: TObject);
begin
query4.Insert;
query4.FieldByName('FIO').AsString:= Edit2.Text;
query4.FieldByName('GRUPPA').AsString:= Edit3.Text;
query4.Post;
edit2.Clear;
edit3.Clear;
end;
Рисунок 11 - Страница «Список студентов»
Для удаления записи из таблицы, воспользуемся кнопкой «Удалить», вставив в обработчик события OnClick следующую строчку:
query4.Delete;
Т.к. удаление записи является безвозвратной, то необходимо для query4 записать событие:
procedure TForm1.Query4BeforeDelete(DataSet: TDataSet);
begin
if not (MessageDlg('Вы действительно хотите удалить запись?',
mtError, [mbYes, mbNo], 0)=mrYes) then
begin
Abort;
end;
end;
Итак мы автоматизировали работу с таблицей Student, которая позволяет работать с записями. На рисунке представлена форма в откомпилированном виде:
Рисунок 12 - Процесс удаления студента из списка