我自己写了一个业务参数,在ongetvalue中取值代码如下
var
lQuery: Business.Data.TQuery;
begin
lQuery := Business.Data.TQuery.Create(nil);
Value := '100';
with lQuery do
try
ConnectionString := 'DATABASEURL=Biz:JUSTEPCOOPERATIONSYSTEMCOOPERATIONDB.DATABASE';
Close;
CommandText := '';
CommandText := 'select ZGS from GZZD where state = ''10''';
Open;
if (not lQuery.IsEmpty) then
begin
Value := Fields[0].asString;
end;
finally
lQuery.close;
end;