Delphi 判断ClientDataSet控件的UpdateStatus属性类型为 (usUnmodified, usModified, usInserted, usDeleted)）
Delphi 判断ClientDataSet控件的UpdateStatus属性类型为 (usUnmodified, usModified, usInserted, usDeleted)）
根据ClientDataSet控件的UpdateStatus属性类型为（usUnmodified, usModified, usInserted, usDeleted），解析并拼成相应的增、删和改操作语句：
实例如下：
// ATableName : 将要修改的表名
// APrimaryKey : 表的主键值
// AIsMulti : 数据中包含的表的个数
// ADelta : 更新的数据集
procedure TForm1.Save(const ATableName, APrimaryKey, AIsMulti: WideString;
ADelta: OleVariant; var ErrorMsg: WideString);
var
ActualFieldList: TStringList;
PrimaryFieldList: TStringList;
i: Integer;
FieldNameList: string; //字段名称列表
FieldValueList: string; //字段值列表
FieldNameValueList: string; //字段值=名称列表
SetValueList: string; //Set字段值=名称列表, update的Sql用
SqlStr: string;
//返回欲修改表的字段名称列表
procedure GetFieldNameList(const ATableName: string);
var
QueryStr: string;
begin
QueryStr := 'select * from ' + ATableName + ' where 1 = 0 ';
try
FClientDataSet.Data := FDBoperation.cdsGetDataForRead(QueryStr, ErrorMsg);
except
Exit;
end;
FClientDataSet.GetFieldNames(ActualFieldList);
end;
//返回欲修改表的 主键字段名称=值串
function GetPKValueList: string;
var
j: Integer;
ValueStr: string;
ResultStr: string;
begin
ResultStr := ' ';
for j := 0 to PrimaryFieldList.Count - 1 do
begin
with FClientDataSet do
begin
case FieldByName(PrimaryFieldList[j]).DataType of
ftString, ftDate, ftDateTime:
ValueStr := QuotedStr(FieldByName(PrimaryFieldList[j]).AsString);
ftInteger:
ValueStr := FieldByName(PrimaryFieldList[j]).AsString;
end;
end;
if j > 0 then
ResultStr := ResultStr + ' and ';
ResultStr := ResultStr + PrimaryFieldList[j] + ' = ' + ValueStr;
end;
Result := ResultStr;
end;
begin
if AIsMulti = '1 ' then //Delta中仅包含一个表的数据
begin
FDBoperation.cdsUpdateDate(ATableName, ADelta, ErrorMsg);
end
else
begin //Delta中包含多个表的数据
ActualFieldList := TStringList.Create;
PrimaryFieldList := TStringList.Create;
try
{=== 得到欲修改表的字段名称列表 ===}
GetFieldNameList(ATableName);
FClientDataSet.Data := ADelta;
FClientDataSet.First;
with FClientDataSet do
begin
while not Eof do
begin
case UpdateStatus of
usModified:
begin
SetValueList := ' Set ';
for i := 0 to FieldCount - 1 do
begin
//是欲修改表的字段之一
if ActualFieldList.IndexOf(Fields[i].FieldName) > -1 then
begin
case Fields[i].DataType of
ftString, ftDate, ftDateTime:
begin
if not Fields[i].IsNull then
SetValueList := SetValueList + Fields[i].FieldName
+ '= ' + QuotedStr(Fields[i].AsString) + ', ';
end;
ftInteger:
begin
if not Fields[i].IsNull then
SetValueList := SetValueList + Fields[i].FieldName
+ '= ' + Fields[i].AsString + ', ';
end;
end;
end;
end;
System.Delete(SetValueList, Length(SetValueList), 1);
SqlStr := 'update ' + ATableName + SetValueList + ' where ' + FieldNameValueList;
end;
usInserted:
begin
FieldNameList := ' ';
FieldValueList := ' ';
for i := 0 to FieldCount - 1 do
begin
//是欲修改表的字段之一
if ActualFieldList.IndexOf(Fields[i].FieldName) > -1 then
begin
FieldNameList := FieldNameList + Fields[i].FieldName + ', ';
if Fields[i].IsNull then
FieldValueList := FieldValueList + ' null, '
else begin
case Fields[i].DataType of
ftString, ftDate:
begin
FieldValueList := FieldValueList + QuotedStr(Fields[i].AsString) + ', ';
end;
ftInteger:
begin
FieldValueList := FieldValueList + Fields[i].AsString + ', ';
end;
end;
end;
end;
end;
//删除末尾的逗号
System.Delete(FieldNameList, Length(FieldNameList), 1);
System.Delete(FieldValueList, Length(FieldValueList), 1);
SqlStr := 'insert into ' + ATableName + '( ' + FieldNameList + ') '
+ ' values ( ' + FieldValueList + ') ';
end;
usUnmodified, usDeleted:
begin
{=== 得到欲修改表的主键字段名称列表 ===}
PrimaryFieldList.CommaText := APrimaryKey;
{=== 得到欲修改表的主键字段名称=值串 ===}
FieldNameValueList := GetPKValueList;
if UpdateStatus = usDeleted then
SqlStr := 'delete from ' + ATableName + ' where ' + FieldNameValueList;
end;
end;
if UpdateStatus <> usUnmodified then
begin
try
FDBoperation.ExecSql(SqlStr, ErrorMsg);
except
raise;
end;
end;
Next;
end;
end;
finally
ActualFieldList.Free;
PrimaryFieldList.Free;
end;
end;
end;