郁闷的问题，剿状主从表中，采用ADO连接，为何在存储，删除时不能更新到数据库中，部分原码如下，希望各位赐教！ ( 积分: 50 )

在存储时用了此函数，而子表的clientdataset的state总是dsbrow,在添加时用了append,
不明白原因在哪
function SaveDataSet(ADOSet : TclientDataSet;
Cached : Boolean) : Boolean;
begin
Result := true;
if ADOSet.State in [dsedit,dsinsert] then
try
ADOSet.Post;
ADOSet.ApplyUpdates(-1);
except
begin
MsgBox('录入数据有错,请重新输入!','提示',MB_ICONWARNING);
exit;
end;
end;
end;

procedure Tfrmbase.DELETEClick(Sender: TObject);
begin
if MainSet.Bof and MainSet.Eof then
MsgBox('记录为空，不能删除','提示',MB_ICONWARNING)
else
if MsgBox('你确定要删除该行记录吗?','提示',MB_ICONWARNING+1) = IDOK then
begin
mainset.Delete;
mainset.ApplyUpdates(0);

end;
end;
还有一点，主从表必须要让他们的clientdataset的属性active都为真才能有效，用open 没用，不知道什么原因

在存储时用了此函数，而子表的clientdataset的state总是dsbrow,在添加时用了append,
不明白原因在哪
function SaveDataSet(ADOSet : TclientDataSet;
Cached : Boolean) : Boolean;
begin
Result := true;
if ADOSet.State in [dsedit,dsinsert] then
try
ADOSet.Post;
ADOSet.ApplyUpdates(-1);
except
begin
MsgBox('录入数据有错,请重新输入!','提示',MB_ICONWARNING);
exit;
end;
end;
end;

procedure Tfrmbase.DELETEClick(Sender: TObject);
begin
if MainSet.Bof and MainSet.Eof then
MsgBox('记录为空，不能删除','提示',MB_ICONWARNING)
else
if MsgBox('你确定要删除该行记录吗?','提示',MB_ICONWARNING+1) = IDOK then
begin
mainset.Delete;
mainset.ApplyUpdates(0);

end;
end;
还有一点，主从表必须要让他们的clientdataset的属性active都为真才能有效，用open 没用，不知道什么原因

Result := false;
try
ADOSet.ApplyUpdates(-1);
Result := true;
except
begin
MsgBox('录入数据有错,请重新输入!','提示',MB_ICONWARNING);
exit;
end;
end;