Подготовка запросов SQL c помощью параметров, модификация данных, страница 2

FModTeach.Button1.Caption:='Редактировать';

FModTeach.ShowModal;

end;

procedure TSchoolDB.N7Click(Sender: TObject);

begin

FModTeach.LabeledEdit1.Text:=DataModule1.Table1.FieldByName('NTeacher').AsString;

FModTeach.LabeledEdit2.Text:=DataModule1.Table1.FieldByName('Name').AsString;

FModTeach.LabeledEdit3.Text:=DataModule1.Table1.FieldByName('Category').AsString;

FModTeach.Button1.Caption:='Удалить';

FModTeach.ShowModal;

End;

Процедуры для изменения данных в таблице с помощью TQuery:

procedure TFModTeach.Button1Click(Sender: TObject);

begin

    DataModule1.TestSQL1.Close;

    DataModule1.TestSQL1.SQL.Clear;

    DataModule1.TestSQL1.SQL.Add('INSERT INTO Teachers values (:NTeach, :Name, :Category)');

    DataModule1.TestSQL1.Params[0].AsString:=LabeledEdit1.Text;

    DataModule1.TestSQL1.Params[1].AsString:=LabeledEdit2.Text;

    DataModule1.TestSQL1.Params[2].AsString:=LabeledEdit3.Text;

    DataModule1.TestSQL1.ExecSQl;

if FModTeach.Button1.Caption='Редактировать' then

 begin

    LabeledEdit1.ReadOnly:=True;

    DataModule1.TestSQL2.Close;

    DataModule1.TestSQL2.ParamByName('NTeach').AsString:=LabeledEdit1.Text;

    DataModule1.TestSQL2.ParamByName('Name').AsString:=LabeledEdit2.Text;

    DataModule1.TestSQL2.ParamByName('Cat').AsString:=LabeledEdit3.Text;

    DataModule1.TestSQL2.ExecSQl;

 end;

if FModTeach.Button1.Caption='Удалить' then

 begin

    LabeledEdit1.ReadOnly:=True;

    DataModule1.TestSQL3.Close;

    DataModule1.TestSQL3.ParamByName('NTeach').AsString:=LabeledEdit1.Text;

    DataModule1.TestSQL3.ExecSQl;

 end;

LabeledEdit1.ReadOnly:=True;

DataModule1.Table1.Refresh;

Close;

end;

Выводы: в результате выполнения лабораторной работы были приобретены навыки использования динамических запросов SQL, построенных с помощью параметров и усвоены операторы SQL для вставки, модификации и удаления записей.