[lav571]

прогу писал не я, но в силу обстаятельств переделывать надо мне. поэтому помогите пожалуста.
на форме DBGrid1 и DBGrid2 кнопка 3 добавляет записи из DBGrid1 во вторую причем только ту на которой стоит выделение.
кнопка 4 удаляет к сожелению также тоесть на первой ставиш на позицию из второй соответсвенующую позицию удаляет... как переделать чтобы удалял он по выбору поля из DBGrid2 (тоесть там выбор строку и он там же её удалил)

Код:

procedure Tfrm_BudgetProeject2.GradientButton3Click(Sender: TObject);
begin

  Edit1.Clear;
 Rol_UID := QuotedStr(midstr(ADOQuery1.Fields[1].AsString, 0, 100));

 ADO_MainQuery.Close;
 ADO_MainQuery.SQL.Clear;
 ADO_MainQuery.SQL.Add('insert into BI_View.dbo.SPK_PrjResRol select ' + Proj_UID + ', ' + Res_UID + ', ' + Rol_UID + ', ' + Rol_ID);
 ADO_MainQuery.ExecSQL;
end;

procedure Tfrm_BudgetProeject2.GradientButton4Click(Sender: TObject);
begin
   Edit1.Clear;
 Rol_UID := QuotedStr(midstr(ADOQuery1.Fields[1].AsString, 0, 100));

 ADO_MainQuery.Close;
 ADO_MainQuery.SQL.Clear;
 ADO_MainQuery.SQL.Add('delete from BI_View.dbo.SPK_PrjResRol where');
 ADO_MainQuery.SQL.Add('ProjectUID = ' + Proj_UID);
 ADO_MainQuery.SQL.Add('and ResourceUID = ' + Res_UID);
 ADO_MainQuery.SQL.Add('and Rol = ' + Rol_UID);
 ShowMessage(ADO_MainQuery.SQL.Text);
 ADO_MainQuery.ExecSQL;
end;

Админ: Пользуемся тегами для оформления кода!