[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;

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

[Black Raider]

Вот честно скажу я не понял ТЗ.
Конкретнее что надо удалить то?

[lav571]

Сообщение от Black Raider

Вот честно скажу я не понял ТЗ.
Конкретнее что надо удалить то?

собственно проблема что параметр Rol_UID у меня в случае удаления берет данные из DBGrid1 а надо чтобы брал из DBGrid2

[Black Raider]

На какую таблицу в БД ссылается 2-ой грид?

[lav571]

Сообщение от Black Raider

На какую таблицу в БД ссылается 2-ой грид?

BI_View.dbo.SPK_PrjResRol
если я тебя правильно понял(до сего дня делфи не юзал лет 6 так что фактически все забыл)

[Black Raider]

Тогда примерно так:

Код:

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

ADOQUERY2- Если он отображается во 2-м гриде.
Fields[1]-Номер поля в списке полей. (2-раза клик на нужном квери).

[lav571]

Сообщение от Black Raider

Тогда примерно так:

Код:

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

ADOQUERY2- Если он отображается во 2-м гриде.
Fields[1]-Номер поля в списке полей. (2-раза клик на нужном квери).

так выдает ошибку

[Black Raider]

Как называется поле которое надо передать в параметр Rol_UID ?

[lav571]

Сообщение от Black Raider

Как называется поле которое надо передать в параметр Rol_UID ?

column1(на форме)

[Black Raider]

а в таблице БД?

[lav571]

Сообщение от Black Raider

а в таблице БД?

там называется колонка Rol

[Black Raider]

тогда так:

Код:

Rol_UID := QuotedStr(midstr(ADOQuery2.fieldbyname('ROL').AsString, 0, 100));