В целом принцип:
Код:
procedure TForm1.Button1Click(Sender: TObject);
var
q: TADOQuery;
begin
q:= TADOQuery.Create(nil);
q.Connection:= ADOConnection1;
if DBGrid.DataSource.DataSet.FieldByName('Ostatok').AsInteger <> 0 then
begin
//вставка в Mag
q.SQL.Text:= 'insert into '+ComboBox1.Text+' (...) values (...)';
q.SQL.ExecSQL;
//вставка в SProd
q.SQL.Text:= 'insert into SProd (...) values (...)';
q.SQL.ExecSQL;
end;
//из OsSklad удаляем по любому
q.SQL.Text:= 'delete from OsSklad where id = '+DBGrid.DataSource.DataSet.FieldByName('id').AsString;
q.ExecSQL;
q.Free;
end;
__________________
Google в помощь
|