返回指定表、字段信息

最新推荐文章于 2023-05-26 17:30:29 发布

missingzlp

最新推荐文章于 2023-05-26 17:30:29 发布

阅读量255

点赞数

分类专栏： Delphi 文章标签： table code sql

本文链接：https://blog.csdn.net/missingzlp/article/details/90709661

版权

Delphi 专栏收录该内容

36 篇文章 1 订阅

订阅专栏

function GetTable(TableName, SourceName, FieldName,
  Code: string): string;
begin
  result := '';
  try
    with cdsSQL do
    begin
      Close;
      Data := null;
      CommandText := ' select ' + FieldName +
                     ' from '   + TableName +
                     ' where '  + SourceName +
                     ' = ''' + Trim(code) + '''';
      Open;
      if recordcount = 1 then
        result := FieldByName(FieldName).asstring
      else
        result := '';
    end;
  finally
    cdsSQL.Close;
  end;
end;