type
TZYJ1 = class(TBizLibrary)
private
{private declarations}
public
static function findquery(AOwner: Business.System.TComponent):string;
{public declarations}
end;
implementation
static function TZYJ1.findquery(AOwner: Business.System.TComponent):string;
var
tmpDataset:Tsqldataset;
begin
tmpDataset:=tsqldataset.Create(AOwner);
try
tmpdataset.Database.URL:='Biz:\JUSTEP\justepSJK.Database';
tmpdataset.SQL.Text:='SELECT * FROM DDZB ';
tmpdataset.Open;
result:= tmpdataset.Fields[0].AsString;
finally
tmpDataset.Free;
end;
end;