Задача 25.

Отобразить в новой форме Фамилию, Имя, Отчество студентов, обучающихся в заданной группе и заданном курсе. Группа и курс выбираются в форме 1 щелчком мыши по DBGrid.

Вставка новой записи:

SQL запрос:

Insert into fio values (199,1,1,’Табуреткин’, ‘Иван’, ‘Иванович’)

Задача 26

Добавить нового студента в таблицу fio

procedure TForm1.Button1Click(Sender: TObject);

begin

ADODataSet1.Active:=false;

ADODataSet1.CommandText:='select surname, name from fio';

ADODataSet1.Active:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form2.ShowModal

end;

procedure TForm2.Button1Click(Sender: TObject);

begin

ADOQuery1.SQL.Text:='insert into fio values ('+

IntToStr(nomer+1)+',1,1,'+''''+Edit1.Text+''''+','+

''''+Edit2.Text+''''+','+

''''+Edit3.Text+''''+')';

ADOQuery1.ExecSQL;

Form2.Close;

// Showmessage((ADOQuery1.SQL.Text));

end;

procedure TForm2.FormActivate(Sender: TObject);

begin

ADODataSet1.Active:=false;

ADODataSet1.CommandText:='select max(st_id) from fio';

ADODataSet1.Active:=true;

nomer:=ADODataSet1.FieldValues['Expr1000'];

end;

Задача 27

Добавить новый предмет в таблицу subjects