Code: Select all
procedure TMA_Data.Commint_Dataset(var ADataset: TMSQuery);
begin
//Determine if this is insert of edit
if ADataset.State in [dsInsert] then //ADD
begin
ADataset.Post;
end
else //Edit
begin
ADataset.Post;
end;
end;
Code: Select all
procedure TMA_Data.Commint_Dataset(var ADataset: TMSQuery);
begin
//Determine if this is insert of edit
if ADataset.State in [dsInsert] then //ADD
begin
ADataset.Post;
end
else //Edit
begin
ADataset.UpdateRecord;
end;
end;