【结贴】怎样得到字段的显示名称？**

crskyp

我下面写的代码为啥得到的是字段名称，不是显示名称。
var
    lQuery: TQuery;
   fieldDispalyName:string;
   fieldCount :integer ;
begin
lQuery:=TQuery.Create( nil) ;

    try
    lQuery.ConnectionString := 'DATABASEURL=Biz:\DLSCJYYYXT\DLJYSJK.DATABASE' ;
    lQuery.CommandText := 'select * from T_CONTRACT where 1<>1' ;
    lQuery.Open ;
    fieldCount :=lQuery.FieldCount ;
    for i:=0 to fieldCount-1 do begin
     fieldDisplayName :=lQuery.Fields.DisplayName
    end;

    finally
    lQuery.Free ;
    end;

jiahaiming

用TSqlDataSet

crskyp

还是不行，我这个方法是放在资源集里的

var
    lQuery: TSQLDataset;
   fieldDispalyName:string;
   fieldCount :integer ;
begin
lQuery:=TSQLDataset.Create( self) ;

    try
    lQuery.ConnectionString := 'DATABASEURL=Biz:\DLSCJYYYXT\DLJYSJK.DATABASE' ;
    lQuery.CommandText := 'select * from T_CONTRACT where 1<>1' ;
    lQuery.Open ;
    fieldCount :=lQuery.FieldCount ;
    for i:=0 to fieldCount-1 do begin
     fieldDisplayName :=lQuery.Fields.DisplayName
    end;

    finally
    lQuery.Free ;
    end;

lixy

lQuery.CommandText   tsqldatset没这个属性，楼主没编译吗？

crskyp

哦，这个地方我在程序里修改了，这里忘了改了。
应该是：lQuery.sql.text :=  '一些字符' ;

我有使了一下，在业务信息里，可以得到字段名称，
但在 资源集 中无法得到。
给想个办法吧。

lixy

这个是测试过的

static function TZYJ1.getName(aowner:Tcomponent):string;
var
    lQuery: TSQLDataset;
   fieldDispalyName:string;
   fieldCount :integer ;
   i:integer;
begin
lQuery:=TSQLDataset.Create(aowner) ;

    try
    lQuery.Database.RefID := 'Biz:\SYSTEM\SYSTEM.DATABASE' ;
    lQuery.SQL.Text := 'select * from TPERSON where 1<>1' ;
    lQuery.Open;
    fieldCount :=lQuery.FieldCount ;
    //for i:=0 to fieldCount-1 do begin
     result:=lQuery.Fields[4].DisplayName;

    finally
    lQuery.Free ;
    end;
end;

jiahaiming

楼主，还有问题吗？
没有就结贴了