求救！使用BDE的UpdateSQL保存失败。

yhj78 2006-08-27 11:28:49

procedure TfrmUserGroup.IniForm;
var Column:TDBGridColumnEh;
i:Integer;
begin
try
GrdEhMain.Columns.Clear;
Column:=AddGridColumn(GrdEhMain,'GrpCode','用户组编码','',100,'','',True,False);
Column.EditMask:='999999999999999999999';
AddGridColumn(GrdEhMain,'GrpName','用户组名称','',100,'','',True,False);
AddGridColumn(GrdEhMain,'Remark','备注','',100,'','',True,False);

UdSQLMain.InsertSQL.Clear;
UdSQLMain.InsertSQL.Add('Insert into GroupUser (GrpCode,GrpName,UserCode,UserName,Remark)');
UdSQLMain.InsertSQL.Add('Values (:GrpCode,:GrpName,''00000000'','''',:Remark)');

UdSQLMain.ModifySQL.Clear;
UdSQLMain.ModifySQL.Add('Update GroupUser Set GrpName=:GrpName,Remark=:Remark ');
UdSQLMain.ModifySQL.Add('Where GrpCode=:OLD_GrpCode ');

UdSQLMain.DeleteSQL.Clear;
UdSQLMain.DeleteSQL.Add('Delete from GroupUser Where GrpCode=:OLD_GrpCode ');
//显示功能列表
ShowFunctionTree(False);
except On E:Exception do
begin
E.Message:='显示用户组基础信息失败！'+#13#10+E.Message;
WriteAppException(E);
ErrorMsgBox('显示用户组基础信息失败！');
end;
end;

end;
procedure TfrmUserGroup.actSaveExecute(Sender: TObject);
begin
if Not QryMain.active then Exit;
QryMain.ApplyUpdates;
end;

以上是我写的程序代码，AddGridColumn自己写的创建表格列的函数，现在使用中发现，显见记录的时候保存没有问题，但是修改记录和删除记录的时候ApplyUpdates失败。

不知道是什么原因，有的时候没事。请教高手。

...全文