Дипломная работа: Информационная система ВУЗа

DataM.Table1.FieldByName('FIO').AsString:=' ';

DataM.Table1.FieldByName('GRUPPA').AsString:=' ';

DataM.Table1.FieldByName('TOWN').AsString:=' ';

DataM.Table1.Post;

end;

4. Размещаем кнопку «Удалить», используя все тот же компонент Button. Щелкаем два раза и пишем следующий текст:

procedure TForm3.Button3Click(Sender: TObject);

begin

DataM.Table1.Delete; // удалениезаписи

end;

5. Аналогично размещаем кнопку «Закрыть» и пишем следующий текст:

procedure TForm3.Button4Click(Sender: TObject);

begin

Close;

end;

Создаем еще одну форму (Form4), размещая на ней следующие компоненты (см. Приложение 7):

1. Кнопку Button с названием «Просмотр отчета №1», щелкаем по ней два раза и пишем следующее:

procedure TForm4.Button1Click(Sender: TObject);

begin

Form5.QuickRep1.Preview; // выводотчета

end;

2. Кнопку Button с названием «Просмотр отчета №2», щелкаем по ней два раза и пишем следующее:

procedure TForm4.Button3Click(Sender: TObject);

begin

Form6.QuickRep1.Preview;

end;

3. Кнопку Button с названием «Закрыть», щелкаем по ней два раза и пишем следующее:

procedure TForm4.Button2Click(Sender: TObject);

begin