double arrow

Формирование системы Student

Перейдя на страницу Список студентов расположим на ней 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 - Процесс удаления студента из списка

 


Понравилась статья? Добавь ее в закладку (CTRL+D) и не забудь поделиться с друзьями:  



Сейчас читают про: