枚举与字符串转及RecordSet转XML，JSON

function AdoToJs(ado: TADOQuery): string;
var
  I, J: Integer;
  json: string;
begin
  json := ‘{columns:[‘;
  for I := 0 to ado.FieldCount - 1 do
  begin
    json := json + ‘{name:"‘ + ado.Fields[I].FieldName + ‘",type:"‘ + DbTypeToStr(ado.Fields[I].DataType) + ‘"}‘;
    if I 1 then
      json := json + ‘,‘;
  end;
  json := json + ‘],rows:[‘;
  for I := 0 to ado.RecordCount - 1 do
  begin
    json := json + ‘{‘;
    for J := 0 to ado.FieldCount - 1 do
    begin
      json := json + ado.Fields[J].FieldName + ‘:"‘ + ado.FieldByName(ado.Fields[J].FieldName).AsString + ‘"‘;
      if J 1 then
        json := json + ‘,‘;
    end;
    json := json + ‘}‘;
    if I 1 then
      json := json + ‘,‘;
  end;
  json := json + ‘]}‘;
  Result := json;
end;

function AdoToXml(ado: TADOQuery): string;
begin
  Result := RecordsetToXMLString(ado.Recordset);
end;

function XmlToAdo(xml: string): TADOQuery;
var
  ado: TADOQuery;
begin
  ado := TADOQuery.Create(nil);
  ado.Recordset := RecordsetFromXMLString(xml);
  Result := ado;
end;

function RecordsetToXMLString(const Recordset: ADOInt._Recordset): string;
var
  RS: Variant;
  Stream: TStringStream;
begin
  Result := ‘‘;
  if Recordset = nil then
    Exit;
  Stream := TStringStream.Create(‘‘, TEncoding.UTF8);
  try
    RS := CreateOleObject(‘ADODB.Recordset‘);
    RS := Recordset;
    RS.Save(TStreamAdapter.Create(Stream) as IUnknown, adPersistXML);
    Stream.Position := 0;
    Result := Stream.DataString;
  finally
    Stream.Free;
  end;
end;

function RecordsetFromXMLString(const xml: string): ADOInt._Recordset;
var
  RS: Variant;
  Stream: TStringStream;
begin
  Result := nil;
  if xml = ‘‘ then
    Exit;
  try
    Stream := TStringStream.Create(xml, TEncoding.UTF8);
    Stream.Position := 0;
    RS := CreateOleObject(‘ADODB.Recordset‘);
    RS.Open(TStreamAdapter.Create(Stream) as IUnknown);
    Result := IUnknown(RS) as ADOInt._Recordset;
  finally
    Stream.Free;
  end;
end;

function DbTypeToStr(dbtype: TFieldType): string;
begin
  Result := GetEnumName(TypeInfo(TFieldType), Ord(dbtype))
end;

function StrToDbType(const dbtype: string): TFieldType;
begin
  Result := TFieldType(GetEnumValue(TypeInfo(TFieldType), dbtype));
end;