Задача 31

Удаление названия предмета (УДАЛЯТЬ ТОЛЬКО ТЕХ, КОГО ВЫ СОЗДАЛИ!!!). Выбрав название предмета, удалить его запись из таблицы SUBJECTS.

Изменение записи:

SQL запрос:

Update fio set fio_actual=0 where st_id=155

Задача 32.Изменение фамилии. Выбрать фамилию студента, вписать новую, произвести смену фамилии.

procedure TForm1.Button1Click(Sender: TObject);

begin

ADODataSet1.Active:=false;

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

'where fio_actual=1';

ADODataSet1.Active:=true;

end;

procedure TForm1.Button2Click(Sender: TObject);

begin

Form2.ShowModal

end;

procedure TForm2.Button1Click(Sender: TObject);

var r:integer;

st_id, fio_no:integer;

begin

r:=MessageDlg('Are you shure?',mtConfirmation,[mbYes,mbNo],0);

if r=mrYes then

begin

{запоминаем все поля для текущей записи студента}

ADODataSet1.Active:=false;

ADODataSet1.CommandText:='select st_id, fio_no '+

'from fio where '+

'surname= '+''''+Edit1.Text+''''+'and '+

'name= '+''''+Edit2.Text+''''+'and '+

'patronymic='+''''+Edit3.Text+'''';

ADODataSet1.Active:=true;

st_id:=ADODataSet1.FieldValues['st_id'];

fio_no:=ADODataSet1.FieldValues['fio_no'];

{Изменение существующей записи}

ADOQuery1.SQL.Text:='update fio set '+

'fio_actual=0 '+

'where st_id='+IntToStr(st_id);

ADOQuery1.ExecSQL;

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

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

IntToStr(st_id)+','+IntToStr(fio_no+1)+',1,'+

''''+Edit4.Text+''''+','+

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

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

ADOQuery1.ExecSQL;

Form2.Close;

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

end;

end;

procedure TForm2.FormActivate(Sender: TObject);

begin

Edit1.Text:=form1.ADODataSet1.FieldValues['surname'];

Edit2.Text:=form1.ADODataSet1.FieldValues['name'];

Edit3.Text:=form1.ADODataSet1.FieldValues['patronymic'];

end;