使用DataSetProvider的ApplyUpdate增加或者修改数据的样例

function TRDMEnterCaseServer.UpdateBugInfo(BugDelta: OleVariant;

var aMsg: OleVariant): OleVariant;

var

ErrorCount: Integer;

BUGID: Integer;

begin

ErrorCount := 0; // 用于在更新过程中记录发生错误的次数

Result := False; // 返回本次操作是否成功

aMsg := ''; // 若发生错误返回错误信息

try

if not VarIsEmpty(BugDelta) then

begin

ClientDs.Data := BugDelta;

ClientDs.First();

BUGID := 1;

while not ClientDs.Eof do

begin

case ClientDs.UpdateStatus of

usInserted:

begin

while IDIsExist(adoQryTemp, 'BL_TBL_BUG', 'BUGID', IntToStr(BUGID)) do// 确保BUGID的编号唯一

BUGID := BUGID + 1;

ClientDs.Edit();

ClientDs.FieldByName('BUGID').AsInteger := BUGID;

ClientDs.Post;

BUGID := BUGID + 1;

end;

usUnmodified:

begin

ClientDs.Next();

end;

end;

ClientDs.Next();

end;

dsProvider.DataSet := adoQry;

adoQry.Close;

adoQry.Connection := DMCaseServer.adoCon1;

adoQry.SQL.Clear;

// 若要实现无状态，这一步是必须的，因为要根据以上语句生成更新语句

adoQry.SQL.Add('Select * from BL_V_BUG where BUGID = -1');

adoQry.Open;

dsProvider.ApplyUpdates(ClientDs.Data, -1, ErrorCount);

end;

if ErrorCount <> 0 then

begin

aMsg := FErrorMsg;

exit;

end;

Result := True;

except

on E: Exception do

begin

aMsg := E.Message;

end;

end;

end;

// 判断某个表中的某个字段中是否存在此值

function IDIsExist(ado: TADOQuery; TableName, FieldName, FieldValue: string): Boolean;

begin

Result := False;

with ado do

begin

Close;

SQL.Clear;

SQL.Add('select * from ' + TableName + ' where '+ FieldName + ' = ' + FieldValue);

Open;

if RecordCount > 0 then

Result := True;

end;

end;