procedure TForm1.Button2Click(Sender: TObject);

⇐ ПредыдущаяСтр 2 из 2

procedure TForm1.Button2Click(Sender: TObject);

Var s:string;

begin

Query1.SQL.Clear;

Query1.DatabaseName:='SCHOOL';

Query1.DataSource:=DataSource2;

Query1.SQL.Add('Insert INTO Vipusk (Fam,Name,Class) SELECT S.Fam, S.Name , S.Class ');

Query1.SQL.Add('FROM school.db S ');

Query1.SQL.Add(' WHERE S.Class LIKE ''11%''');

Query1.ExecSQL; //Button2.Enabled:=false;

end;

Чтобы просмотреть список выпускников уже из новой таблицы, создайте обработчик события нажатия на кнопку Button3 «Просмотр выпускников»

procedure TForm1.Button3Click(Sender: TObject);

begin Table2.DatabaseName := 'School';

Table2.TableName := 'vipusk.db';

DataSource1.DataSet:=Table2;

DBGrid1.DataSource:= DataSource1 ;

DBNavigator1.DataSource:= DataSource1 ;

Table2.Active:=True; end;

Задание. Год выпуска у новых записей имеет пустое или нулевое значение. Создайте запрос на обновление UPDATE, который обновляет его на год, введенный в поле Edit1. Это должно происходить при нажатии на кнопку Button4 «Год выпуска».

Создайте кнопку Button5 «ШКОЛА», нажатие на которую вновь выводит список всех учеников школы.

procedure TForm1.Button5Click(Sender: TObject);

begin

Form1.FormActivate(Sender);

end;

Запрос DELETE

После того, как выпускники скопированы в отдельную таблицу, записи о них можно удалить из таблицы School.db – нажатие на кнопку Button6 «Удалить из базы».

procedure TForm1.Button6Click(Sender: TObject);

begin

Query1.SQL.Clear;

Query1.DatabaseName:='SCHOOL';

Query1.DataSource:=DataSource2;

Query1.SQL.Add('DELETE FROM school.db S ');

Query1.SQL.Add(' WHERE S.Class LIKE ''11%''');

Query1.ExecSQL; end;

Задание. С помощью запроса на обновление выполнить перевод текущего ученика в следующий класс. Предварительно вывести сообщение и запросить подтверждение пользователя на выполнение заданного действия с помощью диалога. Предусмотреть два события: да, нет.

⇐ Предыдущая 12