прогу писал не я, но в силу обстаятельств переделывать надо мне. поэтому помогите пожалуста.
на форме DBGrid1 и DBGrid2 кнопка 3 добавляет записи из DBGrid1 во вторую причем только ту на которой стоит выделение.
кнопка 4 удаляет к сожелению также тоесть на первой ставиш на позицию из второй соответсвенующую позицию удаляет... как переделать чтобы удалял он по выбору поля из DBGrid2 (тоесть там выбор строку и он там же её удалил)
Код:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 | 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;
|
Админ: Пользуемся тегами для оформления кода!
18.04.2011, 16:56
удаление из таблицы
Линейный вид
